commit 09580ad9d679841d736157880d7b6a41f57f0883 Author: Marius Mutu Date: Thu Jul 16 10:54:13 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..a6e9eb4 --- /dev/null +++ b/.gitignore @@ -0,0 +1,105 @@ +# ============================================================================= +# 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 + +# --- Tabele .dbf convertite in .db2 (lista explicita; restul .dbf raman binare) --- +DATE/Optiuni_FIRMA.dbf +DATE/Optiuni_FIRMA.fpt +DATE/Optiuni_LOCAL.dbf +DATE/Optiuni_LOCAL.fpt +DATE/Optiuni_PROGRAM.dbf +DATE/Optiuni_PROGRAM.fpt +Help/helpcont.dbf +Help/helpcont.FPT +Help/HELPLEG.DBF +Help/HELPLEG.FPT +Help/helpmenu.dbf +Help/helpmenu.FPT +Locale/locale.dbf +Locale/locale.FPT +Locale/Locale_back.DBF +Locale/Locale_back.FPT +Locale/locale_lang.dbf +Locale/locale_lang.FPT +Locale/locale_source.DBF +Locale/locale_source.FPT +Locale/locale_xref.DBF + +# --- Fisiere generate/compilate Visual FoxPro --- +*.fxp +*.FXP +*.mpr +*.MPR +*.mpx +*.MPX +*.vcr +*.VCR +*.src + +# --- 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 +Date_ROACONT/ +log.txt +LOG.txt +ROACONT.arm.lnk +ROACONT.ini +roacont.exe +roacont.exe.PreARM +roacont_ref.CDX +roacont_ref.DBF +roacont_ref.FPT + +# --- Subversion (working copy paralela) --- +.svn/ + +# --- COMUN este gestionat separat, prin propriul sau git (romfast/comun.git) --- +COMUN/ diff --git a/Alte/Extras_de_cont_11634808EXCEL.xls b/Alte/Extras_de_cont_11634808EXCEL.xls new file mode 100644 index 0000000..a0a6cbe Binary files /dev/null and b/Alte/Extras_de_cont_11634808EXCEL.xls differ diff --git a/Alte/Extras_de_cont_11634808MT 940.txt b/Alte/Extras_de_cont_11634808MT 940.txt new file mode 100644 index 0000000..cf03e50 --- /dev/null +++ b/Alte/Extras_de_cont_11634808MT 940.txt @@ -0,0 +1,42 @@ + +:20:44457020001 +:25:RO57RZBR0000060011634808 +:28C:213/1 +:NS:22A.B.C.VAL SRL +23Cont curent CORPORATE RON +:60F:D171220RON2815046,47 +:61:1712201220D82665,12NTRF32871258//3A9H3KUEDK5T72I +:86:000^20C/V F. 54^24Ref.Doc 1501/OPIB^30GE GARAN +TI BANK S.A.^31RO68UGBI0000442012404RON^32ADINA SI + CAMI UNIVERS SRL +:61:1712201220D13,74NCOMNONREF//3A9H3KUEDK5T72S +:86:000^20Comision OPIB Interbancar +:61:1712201220D173,74NTRFRO 13838336//3A9H3KUEDK5T732 +:86:000^20CV.FACT 3829503 SI 3889431^24Ref.Doc 150 +2/OPMC^30RAIFFEISEN BANK S.A.^31RO50RZBR0000060005 +285217^32SC FAN COURIER EXPRESS SRL +:61:1712201220D1,00NCOMNONREF//3A9H3KUEDK5T73C +:86:000^20Comision MC intrabancar +:61:1712201220D3141,04NTRFNONREF//3A9H3KUEDK5T73M +:86:000^20Tranzactie instrument debit^24BO/RZBR3AE +0497677^30PIRAEUS BANK ROMANIA S.A.^31RO09PIRB1801 +733066002000^32DYNAMIC SELLING GROUP SRL +:61:1712201220D8,00NCOMNONREF//3A9H3KUEDK5T73W +:86:000^20Comision plata BO/RZBR3AE/0^21497677 +:61:1712201220D21600,00NTRF2711022131264//3A9H3KUEDK5T746 +:86:000^20plata salarii noiembrie/mel^21enc^32mele +ndu diana florentina +:61:1712201220D162,00NCOMNONREF//3A9H3KUEDK5T747 +:86:000^20Com retragereIMM lei +:61:1712201220D7300,00NTRFNONREF//3A9H3KUEDK5T74G +:86:000^20transfer suma^24Ref.Doc 1503/OPIB^30RAIF +FEISEN BANK S.A.^31RO53RZBR0000060019503132^32A.B. +C.VAL SRL +:61:1712201220D197,54NTRFRO 13838336//3A9H3KUEDK5T74Q +:86:000^20CV.F. 3859683^24Ref.Doc 1504/OPMC^30RAI +FFEISEN BANK S.A.^31RO50RZBR0000060005285217^32SC +FAN COURIER EXPRESS SRL +:61:1712201220D1,00NCOMNONREF//3A9H3KUEDK5T750 +:86:000^20Comision MC intrabancar +:62F:D171220RON2930309,65 +:64:D171220RON2930309,65 diff --git a/Alte/SmartBill2ROA/ExportSmartBill/10.2020/F_RO16148853_multiple_01.10.2020.xml b/Alte/SmartBill2ROA/ExportSmartBill/10.2020/F_RO16148853_multiple_01.10.2020.xml new file mode 100644 index 0000000..f76e587 --- /dev/null +++ b/Alte/SmartBill2ROA/ExportSmartBill/10.2020/F_RO16148853_multiple_01.10.2020.xml @@ -0,0 +1,8111 @@ + + + Principala159537268 + + - + + + + Piroska Gyorgy + 19.0000 + 01.10.2020 + 0.000 + + RON + VRD4906 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Gift Card + + + 1 + 168.0700 + 19 + buc + 168.07 + 31.93 + + + + + 200.00 + 31.93 + 168.07 + + + + + + + + Corvinilor 5 Et 4, ap 10, Cod Postal 60772 + + - + + + + Raluca Simion + 19.0000 + 02.10.2020 + 0.000 + + RON + VRD4907 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Inel Plain Round Signet din Argint - 52 (1373) + + + 1 + 126.0500 + 19 + buc + 126.05 + 23.95 + + + 1.000 + + + + Lant Bi-Bar M din Argint (6291) + + + 2 + 71.4300 + 19 + buc + 71.43 + 13.57 + + + + + 235.00 + 37.52 + 197.48 + + + + + + + + Calea Victoriei 32-34, Cod Postal 10081 + + - + + + + Virgil Godeanu + 19.0000 + 05.10.2020 + 0.000 + + RON + VRD4908 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Colier Cubicals din Argint (6278) + + + 1 + 105.0400 + 19 + buc + 105.04 + 19.96 + + + 1.000 + + + + Lant One by One din Argint - XL (6279) + + + 2 + 105.0400 + 19 + buc + 105.04 + 19.96 + + + + + 250.00 + 39.92 + 210.08 + + + + + + + + Ioan Moga nr 2 Etaj 3, ap. 10, Cod Postal 550077 + + - + + + + Nadia Pirta + 19.0000 + 05.10.2020 + 0.000 + + RON + VRD4909 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Cercei Girl from 5th Avenue din Argint Aurit (2459) + + + 1 + 166.3900 + 19 + per + 166.39 + 31.61 + + + 1.000 + + + + Taxe Curierat + + + 2 + 13.4500 + 19 + buc + 13.45 + 2.55 + + + + + 214.00 + 34.17 + 179.83 + + + + + + + + B-dul Timisoara 58J bl. B9, sc.A , et. 10, ap. A 1006, interfon 926, CodPostal 61333 + + - + + + + Anca Tirlea + 19.0000 + 05.10.2020 + 0.000 + + RON + VRD4910 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Choker Straight Labyrinth din Argint (6361) + + + 1 + 166.3900 + 19 + buc + 166.39 + 31.61 + + + 1.000 + + + + Inel Oh So Close - 44 (1352) + + + 2 + 54.6200 + 19 + buc + 54.62 + 10.38 + + + 1.000 + + + + Inel Oh So Close - 49 (1352) + + + 3 + 54.6200 + 19 + buc + 54.62 + 10.38 + + + + + 328.00 + 52.37 + 275.63 + + + + + + + + The Feminine Production LTD SRLB-dul Aviatorilor, Nr. 68 + + - + + + + Oana Stoianovici + 19.0000 + 05.10.2020 + 0.000 + + RON + VRD4911 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Gift Card + + + 1 + 210.0800 + 19 + buc + 210.08 + 39.92 + + + 1.000 + + + + Gift Card + + + 2 + 210.0800 + 19 + buc + 210.08 + 39.92 + + + 1.000 + + + + Gift Card + + + 3 + 210.0800 + 19 + buc + 210.08 + 39.92 + + + 1.000 + + + + Gift Card + + + 4 + 210.0800 + 19 + buc + 210.08 + 39.92 + + + 1.000 + + + + Gift Card + + + 5 + 210.0800 + 19 + buc + 210.08 + 39.92 + + + + + 1250.00 + 199.58 + 1050.42 + + + + + + + + Sat Leliceni Strada Leliceni, nr 159, Cod Postal 537268 + + - + + + + Emoke Gyorgy + 19.0000 + 05.10.2020 + 0.000 + + RON + VRD4912 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Inel Extreme Wide Band din Argint Rodiat - Masura 56 (1382) + + + 1 + 231.0900 + 19 + buc + 231.09 + 43.91 + + + + + 275.00 + 43.91 + 231.09 + + + + + + + + strada Daitei nr 6, Cod Postal 80259 + + - + + + + florence margarit + 19.0000 + 05.10.2020 + 0.000 + + RON + VRD4913 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Colier Oh Boy din Argint (6234) + + + 1 + 71.4300 + 19 + buc + 71.43 + 13.57 + + + 1.000 + + + + Bratara Fixa Infinity din Argint - M (4188) + + + 2 + 96.6400 + 19 + buc + 96.64 + 18.36 + + + 1.000 + + + + Bratara Infinity Knot din Argint - M (4187) + + + 3 + 96.6400 + 19 + buc + 96.64 + 18.36 + + + 1.000 + + + + Inel Gordian Torque din Argint - Masura S (1362) + + + 4 + 79.8300 + 19 + buc + 79.83 + 15.17 + + + -1.000 + + + + Discount Produse + + + 5 + 294.1200 + 19 + buc + -294.12 + -55.88 + + + + + 60.00 + 9.58 + 50.42 + + + + + + + + Matei Basarab 13c, Cod Postal 75100 + + - + + + + Maria Maria + 19.0000 + 05.10.2020 + 0.000 + + RON + VRD4914 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + -1.000 + + + + Retur Gift Card partial (din F. VRD nr. 4911 din data 05/10/2020 - E4EB-5DE2-19E4-412B ) ) + + + 1 + 195.8000 + 19 + buc + -195.80 + -37.20 + + + 1.000 + + + + Colier Inner Circle din Argint (6211) + + + 2 + 82.3500 + 19 + buc + 82.35 + 15.65 + + + 1.000 + + + + Cercei Coin Flip din Argint (2646) + + + 3 + 113.4500 + 19 + buc + 113.45 + 21.55 + + + + + 0.00 + 0.00 + 0.00 + + + + + + + + Bulevardul Unirii Nr. 64, Bl. K4, sc. 4, et. 6, ap. 110, Cod Postal 30835 + + - + + + + Denisa Cojocariu + 19.0000 + 05.10.2020 + 0.000 + + RON + VRD4915 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Bratara de Picior Straight Labyrinth din Argint Aurit (4206-1) + + + 1 + 147.0600 + 19 + buc + 147.06 + 27.94 + + + 1.000 + + + + Lant Bi-Bar M din Argint Aurit (6290) + + + 2 + 71.4300 + 19 + buc + 71.43 + 13.57 + + + + + 260.00 + 41.51 + 218.49 + + + + + + + + Strada inginer dumitru tacu 10050184 + + - + + + + Andrei Mihaila-Craciun + 19.0000 + 05.10.2020 + 0.000 + + RON + VRD4916 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Cercei Xanadu Clear Earcuff din Argint (2513) + + + 1 + 113.4500 + 19 + per + 113.45 + 21.55 + + + 1.000 + + + + Taxe Curierat + + + 2 + 56.9700 + 19 + buc + 56.97 + 10.83 + + + + + 202.80 + 32.38 + 170.42 + + + + + + + + Soseaua Panduri, nr.71, sediul Digi 24, receptia mare + + - + + + + Denisa Brezoianu + 19.0000 + 05.10.2020 + 0.000 + + RON + VRD4917 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Inel Square U din Argint - 52 (1376) + + + 1 + 71.4300 + 19 + buc + 71.43 + 13.57 + + + 1.000 + + + + Inel Feathering din Argint (1259) + + + 2 + 71.4300 + 19 + buc + 71.43 + 13.57 + + + 1.000 + + + + Taxe Curierat + + + 3 + 12.4400 + 19 + buc + 12.44 + 2.36 + + + + + 184.80 + 29.51 + 155.29 + + + + + + + + Tecuci, nr 156 C Bl T3, et 7, ap 30 + + - + + + + Ramona Aiu + 19.0000 + 05.10.2020 + 0.000 + + RON + VRD4918 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Colier Siegfried din Argint (6360) + + + 1 + 670.5900 + 19 + buc + 670.59 + 127.41 + + + + + 798.00 + 127.41 + 670.59 + + + + + + + + strada semilunei 2, District 2020797 + + - + + + + Raluca Ana + 19.0000 + 05.10.2020 + 0.000 + + RON + VRD4919 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Cercei Fallen Angel din Argint (2372) + + + 1 + 334.4500 + 19 + per + 334.45 + 63.55 + + + + + 398.00 + 63.55 + 334.45 + + + + + + + + aleea Garofitei 5 bl. L78 sc. A ap, 7900124 + + - + + + + Simona Anghel + 19.0000 + 05.10.2020 + 0.000 + + RON + VRD4920 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Cercei Pearl Utopia din Argint Aurit (2643-1) + + + 1 + 155.4600 + 19 + per + 155.46 + 29.54 + + + 1.000 + + + + Colier Salba XL din Argint Aurit Rose (6265-2) + + + 2 + 250.4200 + 19 + buc + 250.42 + 47.58 + + + + + 483.00 + 77.12 + 405.88 + + + + + + + + Constantinescu Alexandru 17A Et.4, apt.13, Cod Postal 11471 + + - + + + + Violeta Duca + 19.0000 + 06.10.2020 + 0.000 + + RON + VRD4921 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + CerceL Earcuff Pearl Clip din Argint Aurit (2717-1) + + + 1 + 96.6400 + 19 + buc + 96.64 + 18.36 + + + 1.000 + + + + CerceL Earcuff Cartilage din Argint (2691) + + + 2 + 82.3500 + 19 + buc + 82.35 + 15.65 + + + + + 213.00 + 34.01 + 178.99 + + + + + + + + str. Sergent David Ilie nr. 20 ap. 8, Cod Postal 40807 + + - + + + + Andreea Tanasie + 19.0000 + 06.10.2020 + 0.000 + + RON + VRD4922 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Cercei Coin Flip din Argint (2646) + + + 1 + 113.4500 + 19 + buc + 113.45 + 21.55 + + + 1.000 + + + + Taxe Curierat + + + 2 + 12.4400 + 19 + buc + 12.44 + 2.36 + + + + + 149.80 + 23.92 + 125.88 + + + + + + + + Constantin Disescu 22 , Cod Postal 11089 + + - + + + + Ioana Paverman + 19.0000 + 06.10.2020 + 0.000 + + RON + VRD4923 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + -1.000 + + + + Retur Gift Card (din F. VRD nr. 4911 din data 05/10/2020 - 1EEA-64BC-54BF-ADE5 ) + + + 1 + 210.0800 + 19 + buc + -210.08 + -39.92 + + + 1.000 + + + + Colier Salba Fatima S din Argint Aurit (6275) + + + 2 + 113.4500 + 19 + buc + 113.45 + 21.55 + + + 1.000 + + + + Cercei Creole S din Argint Aurit (2567) + + + 3 + 147.0600 + 19 + per + 147.06 + 27.94 + + + + + 60.00 + 9.58 + 50.42 + + + + + + + + dobrogeanu gherea 77 et4 ap10 + + - + + + + livia cimpoeru + 19.0000 + 06.10.2020 + 0.000 + + RON + VRD4924 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Inel Little Oval Plain din Argint - 52 (1374) + + + 1 + 71.4300 + 19 + buc + 71.43 + 13.57 + + + 1.000 + + + + Inel Heart Pinna din Argint - 53 (1297) + + + 2 + 63.0300 + 19 + buc + 63.03 + 11.97 + + + 1.000 + + + + Inel Twin Feathers din Argint (1272) + + + 3 + 54.6200 + 19 + buc + 54.62 + 10.38 + + + 1.000 + + + + Inel Medio Wide Band din Argint Rodiat - Masura 50 (1383) + + + 4 + 166.3900 + 19 + buc + 166.39 + 31.61 + + + 1.000 + + + + Inel Heart on a Plater din Argint - 50 (1290) + + + 5 + 71.4300 + 19 + buc + 71.43 + 13.57 + + + + + 508.00 + 81.11 + 426.89 + + + + + + + + Tibles nr.15 AEtaj 2, ap. 3075100 + + - + + + + Cristina Radoi + 19.0000 + 06.10.2020 + 0.000 + + RON + VRD4925 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Bratara Der Nibelungen din Argint (4204) + + + 1 + 735.2900 + 19 + buc + 735.29 + 139.71 + + + + + 875.00 + 139.71 + 735.29 + + + + + + + + Ion Mincu nr 6, Cod Postal 11358 + + - + + + + Maria Nicoara + 19.0000 + 06.10.2020 + 0.000 + + RON + VRD4926 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Inel Heart Pinna din Argint - 53 (1297) + + + 1 + 63.0300 + 19 + buc + 63.03 + 11.97 + + + 1.000 + + + + Inel Crai Nou din Argint - 53 (1372) + + + 2 + 63.0300 + 19 + buc + 63.03 + 11.97 + + + 1.000 + + + + Bratara Quicksilver din Argint (4201) + + + 3 + 63.0300 + 19 + buc + 63.03 + 11.97 + + + + + 225.00 + 35.92 + 189.08 + + + + + + + + Iuliu Maniu 38 + + - + + + + Ramona Demian + 19.0000 + 06.10.2020 + 0.000 + + RON + VRD4927 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Colier-Lant de Ochelari Placebo Pearl din Argint - Argint rodiat alb (6371) + + + 1 + 378.1500 + 19 + buc + 378.15 + 71.85 + + + 1.000 + + + + Colier Extinct Extravaganza din Argint Aurit (6351) + + + 2 + 714.2900 + 19 + buc + 714.29 + 135.71 + + + 1.000 + + + + Inel Disorder More din Argint Aurit (1339) + + + 3 + 483.1900 + 19 + buc + 483.19 + 91.81 + + + 1.000 + + + + Cercei Disorder Mini din Argint Aurit (2557) + + + 4 + 323.5300 + 19 + per + 323.53 + 61.47 + + + 1.000 + + + + Colier Rosario din Argint Aurit (6220) + + + 5 + 113.4500 + 19 + buc + 113.45 + 21.55 + + + + + 2395.00 + 382.39 + 2012.61 + + + + + + + + Palatul de Justitie, str. Manastirii, Nr.2 + + - + + + + Camelia Oltean-Buruiana + 19.0000 + 07.10.2020 + 0.000 + + RON + VRD4928 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Cercei Girl from 5th Avenue din Argint Aurit (2459) + + + 1 + 166.3900 + 19 + per + 166.39 + 31.61 + + + 1.000 + + + + CerceL Earcuff Cartilage din Argint (2691) + + + 2 + 82.3500 + 19 + buc + 82.35 + 15.65 + + + + + 296.00 + 47.26 + 248.74 + + + + + + + + Mioritei, nr 8, Cod Postal 725500 + + - + + + + Maria Stiubianu + 19.0000 + 08.10.2020 + 0.000 + + RON + VRD4929 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Choker One by One din Argint (6364) + + + 1 + 82.3500 + 19 + buc + 82.35 + 15.65 + + + 1.000 + + + + Taxe Curierat + + + 2 + 13.4500 + 19 + buc + 13.45 + 2.55 + + + + + 114.00 + 18.20 + 95.80 + + + + + + + + Str. Eroilor, N r. 92A , A p.9, Cod Postal 407280 + + - + + + + Antoniu Muntean + 19.0000 + 08.10.2020 + 0.000 + + RON + VRD4930 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Cercei Neptune din Argint (2456) + + + 1 + 166.3900 + 19 + per + 166.39 + 31.61 + + + 1.000 + + + + Colier Star Aspire din Argint (6233) + + + 2 + 113.4500 + 19 + buc + 113.45 + 21.55 + + + + + 333.00 + 53.17 + 279.83 + + + + + + + + str. Babadag, nr. 19 bl.11, sc. C, ap. 11 + + - + + + + Victor-Adrian Bibo + 19.0000 + 08.10.2020 + 0.000 + + RON + VRD4931 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Inel Dark Corners din Argint - 63 (7010) + + + 1 + 166.3900 + 19 + buc + 166.39 + 31.61 + + + 1.000 + + + + Taxe Curierat + + + 2 + 8.9900 + 19 + buc + 8.99 + 1.71 + + + + + 208.70 + 33.32 + 175.38 + + + + + + + + str sergent Ilie David nr 14, Cod Postal 40807 + + - + + + + Lioara Bradu + 19.0000 + 08.10.2020 + 0.000 + + RON + VRD4932 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Colier Sliding Heart din Argint Aurit (6365) + + + 1 + 82.3500 + 19 + buc + 82.35 + 15.65 + + + 1.000 + + + + Cercei Winter Angels din Argint (2324) + + + 2 + 82.3500 + 19 + per + 82.35 + 15.65 + + + 1.000 + + + + Taxe Curierat + + + 3 + 12.4400 + 19 + buc + 12.44 + 2.36 + + + + + 210.80 + 33.66 + 177.14 + + + + + + + + Str. Baba Dochia, N r. 2, Bl. D8, Sc. B, Cod Postal 300118 + + - + + + + Simona-Maria Ilchi + 19.0000 + 08.10.2020 + 0.000 + + RON + VRD4933 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Choker Straight Labyrinth din Argint (6361) + + + 1 + 189.0800 + 19 + buc + 189.08 + 35.92 + + + 1.000 + + + + Choker One by One din Argint (6364) + + + 2 + 82.3500 + 19 + buc + 82.35 + 15.65 + + + + + 323.00 + 51.57 + 271.43 + + + + + + + + Dumbrava Rosie, 14, casa, etaj 1, intrarea din spate, interfon 05Casa020463 + + - + + + + Andreea Ignat + 19.0000 + 08.10.2020 + 0.000 + + RON + VRD4934 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Cercei Piramid din Argint Aurit (2437) + + + 1 + 82.3500 + 19 + per + 82.35 + 15.65 + + + 1.000 + + + + Taxe Curierat + + + 2 + 13.4500 + 19 + buc + 13.45 + 2.55 + + + + + 114.00 + 18.20 + 95.80 + + + + + + + + strada Zeletin Nr 16, ap 4, interfon 4, Cod Postal 13984 + + - + + + + Roxana Banica + 19.0000 + 09.10.2020 + 0.000 + + RON + VRD4935 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Cercei Clear Skies din Argint (2419) + + + 1 + 63.0300 + 19 + per + 63.03 + 11.97 + + + 1.000 + + + + Taxe Curierat + + + 2 + 12.4400 + 19 + buc + 12.44 + 2.36 + + + + + 89.80 + 14.34 + 75.46 + + + + + + + + Strada Tudor Vladimirescu Nr. 86, Cod Postal 77045 + + - + + + + Robert Niculae + 19.0000 + 09.10.2020 + 0.000 + + RON + VRD4936 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Bratara Tennis Round Cut 25 din Argint (4185) + + + 1 + 210.0800 + 19 + buc + 210.08 + 39.92 + + + + + 250.00 + 39.92 + 210.08 + + + + + + + + str. Sergent David Ilie nr. 20 ap. 8, Cod Postal 40807 + + - + + + + Andreea Tanasie + 19.0000 + 09.10.2020 + 0.000 + + RON + VRD4937 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Nu + Nu + + + + + -1.000 + + + + Cercei Coin Flip din Argint (2646) + + + 1 + 113.4500 + 19 + buc + -113.45 + -21.55 + + + + + -135.00 + -21.55 + -113.45 + + + + Storno factura seria VRD nr. 4922 din data 06/10/2020 + + + + Elena Caragiani nr. 32-36 bl. 8b, sc. 1, et. 1, ap. 3, interfon 003, CodPostal 14215 + + - + + + + Andreea Albut + 19.0000 + 09.10.2020 + 0.000 + + RON + VRD4938 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Bratara Mankind Bee din Argint si Fir Cerat (7017) + + + 1 + 126.0500 + 19 + buc + 126.05 + 23.95 + + + 1.000 + + + + Bratara Mankind Helix din Argint si Fir Cerat (7015) + + + 2 + 105.0400 + 19 + buc + 105.04 + 19.96 + + + + + 275.00 + 43.91 + 231.09 + + + + + + + + Liceul De MuzicaBuzoianu Ion, colonel (Strada) N r.1, Cod Postal 500084 + + - + + + + Raluca Stefoni + 19.0000 + 12.10.2020 + 0.000 + + RON + VRD4939 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Colier Rosario din Argint (6190) + + + 1 + 113.4500 + 19 + buc + 113.45 + 21.55 + + + 1.000 + + + + Taxe Curierat + + + 2 + 13.4500 + 19 + buc + 13.45 + 2.55 + + + + + 151.00 + 24.11 + 126.89 + + + + + + + + Invingatorilor 31-31A Sc. A , Et. 3, Ap. 19, Interfon 19, Cod Postal30923 + + - + + + + Ioana Bratan + 19.0000 + 12.10.2020 + 0.000 + + RON + VRD4940 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Cercei Second Cloud din Argint (2641) + + + 1 + 63.0300 + 19 + per + 63.03 + 11.97 + + + 1.000 + + + + Bratara Fixa Sharp as a Feather din Argint - M (4159) + + + 2 + 96.6400 + 19 + buc + 96.64 + 18.36 + + + 1.000 + + + + Taxe Curierat + + + 3 + 7.9800 + 19 + buc + 7.98 + 1.52 + + + + + 199.50 + 31.85 + 167.65 + + + + + + + + Bd. Dimitrie Pompeiu 5-7 Metroffice A , etaj 3, PORR, Cod Postal20335 + + - + + + + Ana Maria Cojocaru + 19.0000 + 12.10.2020 + 0.000 + + RON + VRD4941 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Choker One by One din Argint Aurit (6364-1) + + + 1 + 82.3500 + 19 + buc + 82.35 + 15.65 + + + 1.000 + + + + Lant Cubes din Argint Aurit - L (6319) + + + 2 + 166.3900 + 19 + buc + 166.39 + 31.61 + + + 1.000 + + + + Cercei Blippidy Blop din Argint Aurit (2561) + + + 3 + 82.3500 + 19 + per + 82.35 + 15.65 + + + 1.000 + + + + Colier Salba Square S din Argint Aurit (6272) + + + 4 + 113.4500 + 19 + buc + 113.45 + 21.55 + + + + + 529.00 + 84.46 + 444.54 + + + + + + + + Drumul Belsugului 33-43 Bl. 4, Sc. 1, Et. 6, Ap. 46, Cod Postal62392 + + - + + + + Teodor Popescu + 19.0000 + 12.10.2020 + 0.000 + + RON + VRD4942 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Inel Extreme Wide Band din Argint Rodiat - Masura 58 (1382) + + + 1 + 231.0900 + 19 + buc + 231.09 + 43.91 + + + 1.000 + + + + Inel Extreme Wide Band din Argint Rodiat - Masura 53 (1382) + + + 2 + 231.0900 + 19 + buc + 231.09 + 43.91 + + + 1.000 + + + + Inel Medio Wide Band din Argint Rodiat - Masura 49 (1383) + + + 3 + 166.3900 + 19 + buc + 166.39 + 31.61 + + + + + 748.00 + 119.43 + 628.57 + + + + + + + + MTH DigitalSos. Mihai Bravu nr. 120ap 11, sector 1,021331 + + - + + + + Raluca Radu + 19.0000 + 12.10.2020 + 0.000 + + RON + VRD4943 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Gift Card + + + 1 + 403.3600 + 19 + buc + 403.36 + 76.64 + + + + + 480.00 + 76.64 + 403.36 + + + + + + + + Centrul de dializa Nefromed /Str Tecuciului nr2 cod 731212 + + - + + + + Maria Luminita Butunoi + 19.0000 + 13.10.2020 + 0.000 + + RON + VRD4944 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Colier Disorder Not- din Argint + + + 1 + 334.4500 + 19 + b + 334.45 + 63.55 + + + 1.000 + + + + Taxe de curierat + + + 2 + 13.4500 + 19 + buc + 13.45 + 2.55 + + + -1.000 + + + + Reducere Taxe de curierat + + + 3 + 13.4500 + 19 + buc + -13.45 + -2.55 + + + + + 398.00 + 63.55 + 334.45 + + + + + + + + Str. Independentei nr. 219, Cod Postal 137435 + + - + + + + Alexandra Harasim + 19.0000 + 13.10.2020 + 0.000 + + RON + VRD4945 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Cercei How to Mend a Black Heart din Argint (2621) + + + 1 + 210.0800 + 19 + per + 210.08 + 39.92 + + + + + 250.00 + 39.92 + 210.08 + + + + + + + + george cosbuc 26 + + - + + + + lucia dimitriu + 19.0000 + 13.10.2020 + 0.000 + + RON + VRD4946 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Colier Oh Boy din Argint (6234) + + + 1 + 71.4300 + 19 + buc + 71.43 + 13.57 + + + 1.000 + + + + Taxe Curierat + + + 2 + 13.4500 + 19 + buc + 13.45 + 2.55 + + + + + 101.00 + 16.13 + 84.87 + + + + + + + + Str. Jules Michelet, Nr.18, Et.1, Sector 1 + ING BANK NV + RO16603741 + RO56INGB0001008162268910 + + J40/11495/2004 + MCCANN PROFESIONAL COMMUNICATION SRL + 19.0000 + 13.10.2020 + 0.000 + + RON + VRD4947 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Bratara Infinity Knot din Argint - M (4187) + + + 1 + 96.6400 + 19 + buc + 96.64 + 18.36 + + + 1.000 + + + + Taxe Curierat + + + 2 + 12.4400 + 19 + buc + 12.44 + 2.36 + + + + + 129.80 + 20.72 + 109.08 + + + + + + + + Strada TECUCI, nr 156 C Bloc T3, etaj 7, ap 30 + + - + + + + Ramona Paiu + 19.0000 + 13.10.2020 + 0.000 + + RON + VRD4948 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Inel Medio Wide Band din Argint Rodiat - Masura 50 (1383) + + + 1 + 166.3900 + 19 + buc + 166.39 + 31.61 + + + 1.000 + + + + Taxe Curierat + + + 2 + 8.9900 + 19 + buc + 8.99 + 1.71 + + + + + 208.70 + 33.32 + 175.38 + + + + + + + + Str. Olimp nr 18K (complex Novum) , Olimp, Mangalia, Cod Postal905503 + + - + + + + Adelina Gutu + 19.0000 + 13.10.2020 + 0.000 + + RON + VRD4949 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Choker One by One din Argint (6364) + + + 1 + 82.3500 + 19 + buc + 82.35 + 15.65 + + + 1.000 + + + + Cercei The Bad Sister din Argint (2479) + + + 2 + 82.3500 + 19 + per + 82.35 + 15.65 + + + 1.000 + + + + Cercei Earcuff Accent din Argint (2431) + + + 3 + 96.6400 + 19 + per + 96.64 + 18.36 + + + + + 311.00 + 49.66 + 261.34 + + + + + + + + Jean Alexandru Steriadi 23-25 Bl L16, Scara 4, Ap 138, Cod Postal32495 + + - + + + + Anca Ciobanu + 19.0000 + 13.10.2020 + 0.000 + + RON + VRD4950 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Cercei Casando din Argint (2673) + + + 1 + 147.0600 + 19 + per + 147.06 + 27.94 + + + 1.000 + + + + Cercei Right Here din Argint (2613) + + + 2 + 138.6600 + 19 + per + 138.66 + 26.34 + + + 1.000 + + + + Cercei Centrum din Argint (2549) + + + 3 + 180.6700 + 19 + per + 180.67 + 34.33 + + + 1.000 + + + + CerceL Earcuff Cartilage din Argint (2691) + + + 4 + 82.3500 + 19 + buc + 82.35 + 15.65 + + + -1.000 + + + + Retur Gift Card (din F. VRD nr. 4943 din data 12/10/2020 - 08BF-B275-E7C2-87D8 ) + + + 5 + 403.3600 + 19 + buc + -403.36 + -76.64 + + + -1.000 + + + + Discount Produse + + + 6 + 100.8400 + 19 + buc + -100.84 + -19.16 + + + + + 53.00 + 8.46 + 44.54 + + + + + + + + Primaverii nr. 15, Cod Postal 520050 + + - + + + + Laura Sandor + 19.0000 + 14.10.2020 + 0.000 + + RON + VRD4951 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + CerceL Earcuff Pearl Clip din Argint (2717) + + + 1 + 96.6400 + 19 + buc + 96.64 + 18.36 + + + 1.000 + + + + Cercei Neptune din Argint (2456) + + + 2 + 166.3900 + 19 + per + 166.39 + 31.61 + + + + + 313.00 + 49.97 + 263.03 + + + + + + + + Str Bisericii Ortodoxe nr 30Ap 5 + + - + + + + Adina Gherghe + 19.0000 + 14.10.2020 + 0.000 + + RON + VRD4952 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Inel Oh So Close - 44 (1352) + + + 1 + 54.6200 + 19 + buc + 54.62 + 10.38 + + + 1.000 + + + + Colier Salba Mini cu Banuti din Argint (6292) + + + 2 + 166.3900 + 19 + buc + 166.39 + 31.61 + + + + + 263.00 + 41.99 + 221.01 + + + + + + + + str. George Cosbuc, nr. 13, et. 2, ap. 6, interfon 013, Cod Postal100039 + + - + + + + Roxana Pascu + 19.0000 + 14.10.2020 + 0.000 + + RON + VRD4953 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Cercei Coin Flip din Argint Aurit (2646-1) + + + 1 + 113.4500 + 19 + buc + 113.45 + 21.55 + + + 1.000 + + + + Inel Twin Feathers din Argint (1272) + + + 2 + 54.6200 + 19 + buc + 54.62 + 10.38 + + + + + 200.00 + 31.93 + 168.07 + + + + + + + + Patinoarului (Intrare) nr. 40, Cod Postal 30357 + + - + + + + Patricia Stan + 19.0000 + 14.10.2020 + 0.000 + + RON + VRD4954 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + -1.000 + + + + Retur Gift Card (din F. VRD nr. 4911 din data 05/10/2020 - 2FFD-F8BD-3749-8EC1 ) + + + 1 + 210.0800 + 19 + buc + -210.08 + -39.92 + + + 1.000 + + + + Inel Cellulaire din Argint - 50 (1356) + + + 2 + 210.0800 + 19 + buc + 210.08 + 39.92 + + + + + 0.00 + 0.00 + 0.00 + + + + + + + + Splaiul Independentei Nr. 296 + + - + + + + iris tusa + 19.0000 + 15.10.2020 + 0.000 + + RON + VRD4955 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Colier Ring Ring din Argint (6210) + + + 1 + 126.0500 + 19 + buc + 126.05 + 23.95 + + + 1.000 + + + + Cercei Cou-Cou din Argint Aurit (2323) + + + 2 + 105.0400 + 19 + per + 105.04 + 19.96 + + + 1.000 + + + + Cercei Round Cut din Argint (2661) + + + 3 + 82.3500 + 19 + per + 82.35 + 15.65 + + + + + 373.00 + 59.55 + 313.45 + + + + + + + + Bucuresti + + 2791013390866 + + + + Agache Florentina + 19.0000 + 16.10.2020 + 0.000 + + RON + VRD4956 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Cercei Kandinsky din Argint Aurit (2301) + + + 1 + 197.4800 + 19 + per + 197.48 + 37.52 + + + -1.000 + + + + Cercei Disorder Blue din Argint aurit + + + 2 + 315.1300 + 19 + per + -315.13 + -59.87 + + + -1.000 + + + + Inel Disorder Blue din Argint Aurit + + + 3 + 407.5600 + 19 + buc + -407.56 + -77.44 + + + + + -625.00 + -99.79 + -525.21 + + + + Transfer Bancar , ID tranzactie: 258072932 + + + + str valea girbouluinr 62A, ap 31407280 + + - + + + + Anca Dan + 19.0000 + 16.10.2020 + 0.000 + + RON + VRD4957 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Gift Card + + + 1 + 126.0500 + 19 + buc + 126.05 + 23.95 + + + + + 150.00 + 23.95 + 126.05 + + + + + + + + Strada Buna Ziua nr 82 Bl C1, Ap 11 A + + - + + + + Ioana Jurca + 19.0000 + 16.10.2020 + 0.000 + + RON + VRD4958 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Inel Ringcuff din Argint (1225) + + + 1 + 250.4200 + 19 + buc + 250.42 + 47.58 + + + + + 298.00 + 47.58 + 250.42 + + + + + + + + Aleea Terasei 10, bl.R12B, ap.43, Cod Postal 41775 + + - + + + + Adriana Paun + 19.0000 + 16.10.2020 + 0.000 + + RON + VRD4959 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Inel Oh So Close - 46 (1352) + + + 1 + 54.6200 + 19 + buc + 54.62 + 10.38 + + + 1.000 + + + + Inel Gordian Torque din Argint - Masura S (1362) + + + 2 + 79.8300 + 19 + buc + 79.83 + 15.17 + + + 1.000 + + + + Inel Single Band din Argint - 48 (1280) + + + 3 + 126.0500 + 19 + buc + 126.05 + 23.95 + + + 1.000 + + + + Inel Extreme Wide Band din Argint Rodiat - 51 (1382) + + + 4 + 231.0900 + 19 + buc + 231.09 + 43.91 + + + 1.000 + + + + Inel Medio Wide Band din Argint Rodiat - 56 (1383) + + + 5 + 166.3900 + 19 + buc + 166.39 + 31.61 + + + + + 783.00 + 125.02 + 657.98 + + + + + + + + Strada Sapte Drumuri, nr. 10, apt. 14, et 2 Sector 3, Cod Postal 31647 + + - + + + + Catalina Spanu + 19.0000 + 19.10.2020 + 0.000 + + RON + VRD4960 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Cercei Alice Batton din Argint (2690) + + + 1 + 121.8500 + 19 + per + 121.85 + 23.15 + + + 1.000 + + + + Lant One by One din Argint - XL (6279) + + + 2 + 105.0400 + 19 + buc + 105.04 + 19.96 + + + 1.000 + + + + Colier Torque Chain din Argint (6239) + + + 3 + 281.5100 + 19 + buc + 281.51 + 53.49 + + + + + 605.00 + 96.60 + 508.40 + + + + + + + + Strada Plopilor nr. 20400383 + + - + + + + Andra Bucur + 19.0000 + 19.10.2020 + 0.000 + + RON + VRD4961 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Gift Card + + + 1 + 168.0700 + 19 + buc + 168.07 + 31.93 + + + + + 200.00 + 31.93 + 168.07 + + + + + + + + b-dul revolutiei nr 75, Cod Postal 310025 + + - + + + + imelda krieger + 19.0000 + 19.10.2020 + 0.000 + + RON + VRD4962 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 2.000 + + + + CerceL Earcuff Pearl Clip din Argint (2717) + + + 1 + 96.6400 + 19 + buc + 193.28 + 36.72 + + + + + 230.00 + 36.72 + 193.28 + + + + + + + + b-dul revolutiei nr 75, Cod Postal 310025 + + - + + + + imelda krieger + 19.0000 + 19.10.2020 + 0.000 + + RON + VRD4963 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Cercei Anemone din Argint (2724) + + + 1 + 82.3500 + 19 + per + 82.35 + 15.65 + + + 1.000 + + + + Taxe Curierat + + + 2 + 8.9900 + 19 + buc + 8.99 + 1.71 + + + + + 108.70 + 17.36 + 91.34 + + + + + + + + Ion Banescu nr. 7A , Cod Postal 900669 + + - + + + + Mihaela Cristina Sava + 19.0000 + 19.10.2020 + 0.000 + + RON + VRD4964 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Colier Star Poetry din Argint (6376) + + + 1 + 147.0600 + 19 + buc + 147.06 + 27.94 + + + 1.000 + + + + Inel Plain Round Signet din Argint - 57 (1373) + + + 2 + 126.0500 + 19 + buc + 126.05 + 23.95 + + + 1.000 + + + + Inel ManKind Bad Manners din Argint - 51 (7024) + + + 3 + 147.0600 + 19 + buc + 147.06 + 27.94 + + + + + 500.00 + 79.83 + 420.17 + + + + + + + + Aleea Zavideni, nr3, Bl A 12 bis, Ap 16 + + - + + + + toader sorina + 19.0000 + 19.10.2020 + 0.000 + + RON + VRD4965 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Cercei Pearl Utopia din Argint (2643) + + + 1 + 155.4600 + 19 + per + 155.46 + 29.54 + + + 1.000 + + + + Taxe Curierat + + + 2 + 12.4400 + 19 + buc + 12.44 + 2.36 + + + + + 199.80 + 31.90 + 167.90 + + + + + + + + P -ta Eroilor, nr. 4, Bl. 33, sc. E, et. 5 ap. 14 + + - + + + + Octavian Vasopol + 19.0000 + 19.10.2020 + 0.000 + + RON + VRD4966 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Bratara Minimal Torque din Argint (4138) + + + 1 + 166.3900 + 19 + buc + 166.39 + 31.61 + + + 1.000 + + + + Taxe Curierat + + + 2 + 13.4500 + 19 + buc + 13.45 + 2.55 + + + + + 214.00 + 34.17 + 179.83 + + + + + + + + str. Anton Pann, nr. 1 ap.5, Cod Postal 300102 + + - + + + + raluca pauta + 19.0000 + 19.10.2020 + 0.000 + + RON + VRD4967 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Cercei Bacara din Argint Aurit (2660-1) + + + 1 + 155.4600 + 19 + per + 155.46 + 29.54 + + + 1.000 + + + + Taxe Curierat + + + 2 + 13.4500 + 19 + buc + 13.45 + 2.55 + + + + + 201.00 + 32.09 + 168.91 + + + + + + + + Strada Trapezului 2A Bloc M29G, sc A , ap. 31, et 7, Cod Postal 32324 + + - + + + + Teodora Andreea Visan + 19.0000 + 19.10.2020 + 0.000 + + RON + VRD4968 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Inel Open Ending din Argint (1314) + + + 1 + 71.4300 + 19 + buc + 71.43 + 13.57 + + + 1.000 + + + + Inel Oh So Close - 46 (1352) + + + 2 + 54.6200 + 19 + buc + 54.62 + 10.38 + + + 1.000 + + + + Cercei Geometry din Argint (2514) + + + 3 + 63.0300 + 19 + per + 63.03 + 11.97 + + + + + 225.00 + 35.92 + 189.08 + + + + + + + + Str Gh. Baritiu nr. 36500025 + + - + + + + Diana Ungureanu + 19.0000 + 19.10.2020 + 0.000 + + RON + VRD4969 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Inel Spin Along U din Argint - 53 (1377) + + + 1 + 82.3500 + 19 + buc + 82.35 + 15.65 + + + -1.000 + + + + Discount Produse + + + 2 + 10.9200 + 19 + buc + -10.92 + -2.08 + + + 1.000 + + + + Cercei Creole S din Argint (2566) + + + 3 + 147.0600 + 19 + per + 147.06 + 27.94 + + + 1.000 + + + + Choker One by One din Argint (6364) + + + 4 + 82.3500 + 19 + buc + 82.35 + 15.65 + + + 1.000 + + + + Lant Cubes din Argint Aurit - L (6319) + + + 5 + 166.3900 + 19 + buc + 166.39 + 31.61 + + + 1.000 + + + + Cercei Kandinsky din Argint Aurit (2301) + + + 6 + 197.4800 + 19 + per + 197.48 + 37.52 + + + 1.000 + + + + Lant Bi-Bar M din Argint (6291) + + + 7 + 71.4300 + 19 + buc + 71.43 + 13.57 + + + + + 876.00 + 139.87 + 736.13 + + + + + + + + Str. Laurentiu Raiciu nr.44 Etaj 3, Ap.20, Cod Postal 77160 + + - + + + + Lucica-Cristina Duru + 19.0000 + 19.10.2020 + 0.000 + + RON + VRD4970 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Choker One by One din Argint Aurit (6364-1) + + + 1 + 82.3500 + 19 + buc + 82.35 + 15.65 + + + 1.000 + + + + Taxe Curierat + + + 2 + 13.4500 + 19 + buc + 13.45 + 2.55 + + + + + 114.00 + 18.20 + 95.80 + + + + + + + + Bld I C Bratianu Bl O ap 84 + + - + + + + Laderu Mirela + 19.0000 + 19.10.2020 + 0.000 + + RON + VRD4971 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Cercei Azael Wings White din Argint cu Sidef (2306) + + + 1 + 457.9800 + 19 + per + 457.98 + 87.02 + + + + + 545.00 + 87.02 + 457.98 + + + + + + + + Str Democratiei , nr 91 Bl 4, sc A , et 1, ap 4, Cod Postal 100566 + + - + + + + Emilia Cretu + 19.0000 + 19.10.2020 + 0.000 + + RON + VRD4972 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Cercei All About Eve din Argint (2450) + + + 1 + 239.5000 + 19 + per + 239.50 + 45.50 + + + + + 285.00 + 45.50 + 239.50 + + + + + + + + Spineni nr 6-8, Cod Postal 40267 + + - + + + + Alice Tatuli + 19.0000 + 19.10.2020 + 0.000 + + RON + VRD4973 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Bratara Mankind Battered Silver din Argint (7007) + + + 1 + 189.0800 + 19 + buc + 189.08 + 35.92 + + + + + 225.00 + 35.92 + 189.08 + + + + + + + + Dragalina 2/5, Cod Postal 400024 + + - + + + + Monica Barbovschi + 19.0000 + 19.10.2020 + 0.000 + + RON + VRD4974 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Cercei Creole S din Argint Aurit (2567) + + + 1 + 147.0600 + 19 + per + 147.06 + 27.94 + + + 1.000 + + + + Taxe Curierat + + + 2 + 8.9900 + 19 + buc + 8.99 + 1.71 + + + + + 185.70 + 29.65 + 156.05 + + + + + + + + Siret 95 Complex Cyrom, Cod Postal 12152 + + - + + + + Irina Dimitropol + 19.0000 + 19.10.2020 + 0.000 + + RON + VRD4975 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Cercei Cake Hoops din Argint (2629) + + + 1 + 189.0800 + 19 + per + 189.08 + 35.92 + + + + + 225.00 + 35.92 + 189.08 + + + + + + + + Sos Pantelimon nr 92 Bl 211, Sc 1, et 8, ap 22, interfon 22, Cod Postal21638 + + - + + + + Mara Bancila + 19.0000 + 19.10.2020 + 0.000 + + RON + VRD4976 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Inel Plain Round Signet din Argint - 54 (1373) + + + 1 + 126.0500 + 19 + buc + 126.05 + 23.95 + + + 1.000 + + + + Taxe Curierat + + + 2 + 12.4400 + 19 + buc + 12.44 + 2.36 + + + + + 164.80 + 26.31 + 138.49 + + + + + + + + Emil Racovita 70, Domus Confort Bl 2, Et 5, Ap 26, interf. 26, CodPostal 77190 + + - + + + + Irina Roggy + 19.0000 + 20.10.2020 + 0.000 + + RON + VRD4977 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Inel Pearl Hookup din Argint (1387) + + + 1 + 373.9500 + 19 + buc + 373.95 + 71.05 + + + + + 445.00 + 71.05 + 373.95 + + + + + + + + PROMEARTIS SRL-DAvrig Bl. P 19, Sc. C, Ap. 124, Et. 8, Interfon 124, Cod Postal 21575 + + - + + + + Florina Natu + 19.0000 + 20.10.2020 + 0.000 + + RON + VRD4978 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Choker One by One din Argint (6364) + + + 1 + 82.3500 + 19 + buc + 82.35 + 15.65 + + + 1.000 + + + + Taxe Curierat + + + 2 + 12.4400 + 19 + buc + 12.44 + 2.36 + + + + + 112.80 + 18.01 + 94.79 + + + + + + + + Strada Malcoci, nr 4 + + - + + + + Anca Dinescu + 19.0000 + 20.10.2020 + 0.000 + + RON + VRD4979 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Choker One by One din Argint Aurit (6364-1) + + + 1 + 82.3500 + 19 + buc + 82.35 + 15.65 + + + 1.000 + + + + Choker Straight Labyrinth din Argint Aurit (6361-1) + + + 2 + 189.0800 + 19 + buc + 189.08 + 35.92 + + + 1.000 + + + + Cercei Square Cut din Argint Aurit (2663) + + + 3 + 82.3500 + 19 + per + 82.35 + 15.65 + + + 1.000 + + + + Cercei Chained Feather din Argint Aurit - L (2524) + + + 4 + 82.3500 + 19 + per + 82.35 + 15.65 + + + + + 519.00 + 82.87 + 436.13 + + + + + + + + Sediul Europrint shopP rezan Constantin, maresal (Strada) nr 142, Cod Postal 300695 + + - + + + + Vlad Gombos + 19.0000 + 20.10.2020 + 0.000 + + RON + VRD4980 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Cercei Round Cut din Argint (2661) + + + 1 + 82.3500 + 19 + per + 82.35 + 15.65 + + + 1.000 + + + + Taxe Curierat + + + 2 + 13.4500 + 19 + buc + 13.45 + 2.55 + + + + + 114.00 + 18.20 + 95.80 + + + + + + + + Rascoalei 27, Cod Postal 900727 + + - + + + + Florentina Goane + 19.0000 + 20.10.2020 + 0.000 + + RON + VRD4981 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Inel Square U din Argint - 54 (1376) + + + 1 + 71.4300 + 19 + buc + 71.43 + 13.57 + + + 1.000 + + + + Taxe Curierat + + + 2 + 13.4500 + 19 + buc + 13.45 + 2.55 + + + + + 101.00 + 16.13 + 84.87 + + + + + + + + Str. Gherghitei, N r. 27 + + - + + + + Simona Anghel + 19.0000 + 20.10.2020 + 0.000 + + RON + VRD4982 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Cercei The Good Sister din Argint Aurit (2470) + + + 1 + 82.3500 + 19 + per + 82.35 + 15.65 + + + 1.000 + + + + Taxe Curierat + + + 2 + 12.4400 + 19 + buc + 12.44 + 2.36 + + + + + 112.80 + 18.01 + 94.79 + + + + + + + + Str. Bujorului, nr. 26-28, sector 1 + + - + + + + Angelica Sfintescu + 19.0000 + 20.10.2020 + 0.000 + + RON + VRD4983 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Bratara Tennis Supreme din Argint (4168) + + + 1 + 315.1300 + 19 + buc + 315.13 + 59.87 + + + 1.000 + + + + Bratara Tennis Round Black 20 din Argint (4108) + + + 2 + 210.0800 + 19 + buc + 210.08 + 39.92 + + + + + 625.00 + 99.79 + 525.21 + + + + + + + + Drumul Manastirea Varatec, nr 7-11 Corp 2, etj 5, ap 153, Cod Postal61047 + + - + + + + Gabriela Matei + 19.0000 + 21.10.2020 + 0.000 + + RON + VRD4985 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Colier Oh Boy din Argint (6234) + + + 1 + 71.4300 + 19 + buc + 71.43 + 13.57 + + + 1.000 + + + + Taxe Curierat + + + 2 + 7.9800 + 19 + buc + 7.98 + 1.52 + + + + + 94.50 + 15.09 + 79.41 + + + + + + + + Str Tina petre nr. 5, bloc L41, scara 2, etaj 1, ap. 43, interfon 43c + + - + + + + Anca Marinescu + 19.0000 + 22.10.2020 + 0.000 + + RON + VRD4986 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Colier Dreamer Disguise din Argint Aurit Rose (6341) + + + 1 + 306.7200 + 19 + buc + 306.72 + 58.28 + + + + + 365.00 + 58.28 + 306.72 + + + + + + + + Intrarea Raureni 13 + + - + + + + Luana Visescu + 19.0000 + 22.10.2020 + 0.000 + + RON + VRD4987 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Cercei Cry Your Heart Out din Argint Aurit (2577) + + + 1 + 281.5100 + 19 + per + 281.51 + 53.49 + + + + + 335.00 + 53.49 + 281.51 + + + + + + + + Horei , bl. 5 + + - + + + + Gabriela Mara + 19.0000 + 22.10.2020 + 0.000 + + RON + VRD4988 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Colier RestLess Heart din Argint (6322) + + + 1 + 205.8800 + 19 + buc + 205.88 + 39.12 + + + + + 245.00 + 39.12 + 205.88 + + + + + + + + Vlaicu Voda 28 + + - + + + + Alin Boeru + 19.0000 + 23.10.2020 + 0.000 + + RON + VRD4989 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Cercei Round Cut din Argint (2661) + + + 1 + 82.3500 + 19 + per + 82.35 + 15.65 + + + 1.000 + + + + Taxe Curierat + + + 2 + 12.4400 + 19 + buc + 12.44 + 2.36 + + + + + 112.80 + 18.01 + 94.79 + + + + + + + + Stefan cel Mare nr 1 bl 1 sc A apt 8, Cod Postal 600356 + + - + + + + Claudia Moisa + 19.0000 + 26.10.2020 + 0.000 + + RON + VRD4990 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Inel Mankind Valyria din Argint - 64 (7057) + + + 1 + 166.3900 + 19 + buc + 166.39 + 31.61 + + + 1.000 + + + + Taxe Curierat + + + 2 + 13.4500 + 19 + buc + 13.45 + 2.55 + + + + + 214.00 + 34.17 + 179.83 + + + + + + + + Aleea Compozitorilor nr 8 Bl Z22, sc A , ap 32, interfon 32C, CodPostal 61604 + + - + + + + Gabriela ILU + 19.0000 + 26.10.2020 + 0.000 + + RON + VRD4991 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Cercei Zibeline Earcuff din Argint (2383) + + + 1 + 138.6600 + 19 + per + 138.66 + 26.34 + + + 1.000 + + + + Cercei Pearl Utopia din Argint (2643) + + + 2 + 155.4600 + 19 + per + 155.46 + 29.54 + + + + + 350.00 + 55.88 + 294.12 + + + + + + + + Str. Lt. Nicolae Pascu, Nr.5, Camera 1, Bl.7a1, Sc.2, Ap.M11, Sector 3 + + 39629716 + + + J40/10197/2018 + KINKFIT ADVENTURE S.R.L. + 19.0000 + 26.10.2020 + 0.000 + + RON + VRD4992 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Gift Card + + + 1 + 126.0500 + 19 + buc + 126.05 + 23.95 + + + + + 150.00 + 23.95 + 126.05 + + + + + + + + Traian Popovici, nr 79-9,1Etaj 1, sector 3, Cod Postal 31423 + + - + + + + Ana Maria Stanescu + 19.0000 + 26.10.2020 + 0.000 + + RON + VRD4993 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 2.000 + + + + Bratara Tennis Round Cut 20 din Argint (4185-1) + + + 1 + 180.6700 + 19 + buc + 361.34 + 68.66 + + + + + 430.00 + 68.66 + 361.34 + + + + + + + + Str Bisericii Ortodoxe nr 30Ap 5 + + - + + + + Adina Gherghe + 19.0000 + 26.10.2020 + 0.000 + + RON + VRD4994 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Colier Siegfried Minor din Argint (6359) + + + 1 + 483.1900 + 19 + buc + 483.19 + 91.81 + + + 1.000 + + + + Lant Cubes din Argint Aurit - L (6319) + + + 2 + 166.3900 + 19 + buc + 166.39 + 31.61 + + + + + 773.00 + 123.42 + 649.58 + + + + + + + + Calderon Jean Louis (Strada) Bloc UG5 ,ap7 et 2, Cod Postal 440224 + + - + + + + Ancuta Pop + 19.0000 + 26.10.2020 + 0.000 + + RON + VRD4995 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Medio Wide Band din Argint Rodiat - Masura 58 (1383) + + + 1 + 166.3900 + 19 + buc + 166.39 + 31.61 + + + 1.000 + + + + Taxe Curierat + + + 2 + 13.4500 + 19 + buc + 13.45 + 2.55 + + + + + 214.00 + 34.17 + 179.83 + + + + + + + + Aleea Zmeurei nr.2 Bl U, scara C, et.3, ap.28, Cod Postal 900439 + + - + + + + Daniela Fintina + 19.0000 + 26.10.2020 + 0.000 + + RON + VRD4996 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Colier In Between Pearls din Argint Aurit (6354-1) + + + 1 + 189.0800 + 19 + buc + 189.08 + 35.92 + + + + + 225.00 + 35.92 + 189.08 + + + + + + + + aleea codrii neamtului 7M, Cod Postal 32435 + + - + + + + mihaela chirca + 19.0000 + 26.10.2020 + 0.000 + + RON + VRD4997 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Cercei Round Cut din Argint (2661) + + + 1 + 82.3500 + 19 + per + 82.35 + 15.65 + + + 1.000 + + + + Cercei Round Cut din Argint Aurit (2668) + + + 2 + 82.3500 + 19 + per + 82.35 + 15.65 + + + + + 196.00 + 31.29 + 164.71 + + + + + + + + interf defect, rog apelJean Louis Calderon 61 langa Amb. U ngariei Et 4, ap 9bis, Cod Postal20034 + + - + + + + Roxana Chiriac + 19.0000 + 27.10.2020 + 0.000 + + RON + VRD4998 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Colier Cerubim din Argint (6362) + + + 1 + 82.3500 + 19 + buc + 82.35 + 15.65 + + + 1.000 + + + + Taxe Curierat + + + 2 + 7.9800 + 19 + buc + 7.98 + 1.52 + + + + + 107.50 + 17.16 + 90.34 + + + + + + + + Strada Marului nr20 Bl 1, sc 1, et 3, ap 19, Cod Postal 77085 + + - + + + + Alin Georgescu + 19.0000 + 27.10.2020 + 0.000 + + RON + VRD4999 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Bratara Minimal Torque din Argint (4138) + + + 1 + 166.3900 + 19 + buc + 166.39 + 31.61 + + + 1.000 + + + + Bratara ManKind Round cu Argint (7002) + + + 2 + 79.8300 + 19 + buc + 79.83 + 15.17 + + + + + 293.00 + 46.78 + 246.22 + + + + + + + + Bdul Mamaia 334 + + - + + + + Andreea Serban + 19.0000 + 27.10.2020 + 0.000 + + RON + VRD5000 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Colier-Lant de Ochelari Placebo Coral din Argint Aurit + + + 1 + 378.1500 + 19 + buc + 378.15 + 71.85 + + + + + 450.00 + 71.85 + 378.15 + + + + + + + + Capitan Mircea Vasilescu 12-14, et 2, interfon 21, Cod Postal 40184 + + - + + + + Ilinca Ciubotariu + 19.0000 + 28.10.2020 + 0.000 + + RON + VRD5001 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Cercei Solaris Minor din Argint (2703) + + + 1 + 205.8800 + 19 + per + 205.88 + 39.12 + + + + + 245.00 + 39.12 + 205.88 + + + + + + + + Ale. Ardealului Nr.1, Cod Postal 135400 + + - + + + + Tiberiu Dinulescu + 19.0000 + 28.10.2020 + 0.000 + + RON + VRD5002 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Inel Introspectum 11, Argint - 58 (7049) + + + 1 + 197.4800 + 19 + buc + 197.48 + 37.52 + + + 1.000 + + + + Bratara Gordian Torque din Argint (4177) + + + 2 + 105.0400 + 19 + buc + 105.04 + 19.96 + + + 1.000 + + + + Bratara Mankind Battered Silver din Argint (7007) + + + 3 + 189.0800 + 19 + buc + 189.08 + 35.92 + + + 1.000 + + + + Bratara Minimal Torque din Argint (4138) + + + 4 + 166.3900 + 19 + buc + 166.39 + 31.61 + + + 1.000 + + + + Bratara Torque Cuff din Argint Masiv (4106) + + + 5 + 210.0800 + 19 + buc + 210.08 + 39.92 + + + + + 1033.00 + 164.93 + 868.07 + + + + + + + + stirbei voda nr 152 bl 26b, et 8, ap 24, interfon 24c, Cod Postal 10121 + + - + + + + raluca ciurusniuc + 19.0000 + 28.10.2020 + 0.000 + + RON + VRD5003 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Colier Star Poetry din Argint (6376) + + + 1 + 147.0600 + 19 + buc + 147.06 + 27.94 + + + 1.000 + + + + Cercei Coins din Argint (2705) + + + 2 + 63.0300 + 19 + per + 63.03 + 11.97 + + + + + 250.00 + 39.92 + 210.08 + + + + + + + + Strada SoimarestilorNr. 32, Etaj 1, Ap 2012236 + + - + + + + Laura Cremene (Mirela Stoica) + 19.0000 + 28.10.2020 + 0.000 + + RON + VRD5004 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Colier Star Poetry din Argint (6376) + + + 1 + 147.0600 + 19 + buc + 147.06 + 27.94 + + + 1.000 + + + + Bratara The Change din Argint (4169) + + + 2 + 75.6300 + 19 + buc + 75.63 + 14.37 + + + + + 265.00 + 42.31 + 222.69 + + + + + + + + str. arh. Ion Mincu nr. 6 sector 1, Cod Postal 11358 + + - + + + + Maria Nicoara + 19.0000 + 28.10.2020 + 0.000 + + RON + VRD5005 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Colier Moon Poetry din Argint (6375) + + + 1 + 147.0600 + 19 + buc + 147.06 + 27.94 + + + 1.000 + + + + Bratara Fixa Sharp as a Feather din Argint - S (4159) + + + 2 + 96.6400 + 19 + buc + 96.64 + 18.36 + + + 1.000 + + + + Bratara Hamsa din Argint - S (4004) + + + 3 + 105.0400 + 19 + buc + 105.04 + 19.96 + + + + + 415.00 + 66.26 + 348.74 + + + + + + + + Str. Stefan cel Mare, nr.53 Bl. 53, Scara A , Ap.8, Cod Postal 300116 + + - + + + + Mihai Posdarescu + 19.0000 + 28.10.2020 + 0.000 + + RON + VRD5006 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Cercei Bacara din Argint (2660) + + + 1 + 155.4600 + 19 + per + 155.46 + 29.54 + + + 1.000 + + + + Taxe Curierat + + + 2 + 13.4500 + 19 + buc + 13.45 + 2.55 + + + + + 201.00 + 32.09 + 168.91 + + + + + + + + Str Icoanei, nr 29a Brio + + - + + + + Silvia Ganea + 19.0000 + 28.10.2020 + 0.000 + + RON + VRD5007 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Cercei Creole S din Argint Aurit (2567) + + + 1 + 147.0600 + 19 + per + 147.06 + 27.94 + + + 1.000 + + + + Taxe Curierat + + + 2 + 12.4400 + 19 + buc + 12.44 + 2.36 + + + + + 189.80 + 30.30 + 159.50 + + + + + + + + Spatiului Nr 20A , Cod Postal 51116 + + - + + + + Zlavog Daniela + 19.0000 + 28.10.2020 + 0.000 + + RON + VRD5008 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Colier XL Sliding Chain din Argint (6134) + + + 1 + 147.0600 + 19 + buc + 147.06 + 27.94 + + + 1.000 + + + + Taxe Curierat + + + 2 + 12.4400 + 19 + buc + 12.44 + 2.36 + + + + + 189.80 + 30.30 + 159.50 + + + + + + + + Mircea Malaieru A5, sc 1, et 4 ap 17 + + - + + + + Ela Diaconu + 19.0000 + 28.10.2020 + 0.000 + + RON + VRD5009 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Cercei Coin Flip din Argint (2646) + + + 1 + 113.4500 + 19 + buc + 113.45 + 21.55 + + + 1.000 + + + + Taxe Curierat + + + 2 + 13.4500 + 19 + buc + 13.45 + 2.55 + + + + + 151.00 + 24.11 + 126.89 + + + + + + + + Calea Victoriei blocul macul rosu ap 22, Cod Postal 10094 + + - + + + + Bianca Andreea Albert + 19.0000 + 28.10.2020 + 0.000 + + RON + VRD5010 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Colier Inner Circle din Argint (6211) + + + 1 + 82.3500 + 19 + buc + 82.35 + 15.65 + + + 1.000 + + + + Taxe Curierat + + + 2 + 12.4400 + 19 + buc + 12.44 + 2.36 + + + + + 112.80 + 18.01 + 94.79 + + + + + + + + Str ion corvin Bl c9, ap12, Cod Postal 320070 + + - + + + + Bogdan Sandru + 19.0000 + 29.10.2020 + 0.000 + + RON + VRD5011 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Colier Follow your Heart din Argint (6324) + + + 1 + 250.4200 + 19 + buc + 250.42 + 47.58 + + + + + 298.00 + 47.58 + 250.42 + + + + + + + + Electronicii, nr 48 Sediul CDI Transport + + - + + + + Octavian Tasu + 19.0000 + 29.10.2020 + 0.000 + + RON + VRD5012 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Colier Dominican Rosary M din Argint (6306) + + + 1 + 239.5000 + 19 + buc + 239.50 + 45.50 + + + + + 285.00 + 45.50 + 239.50 + + + + + + + + 23 August Bl. U2, sc. A , ap. 14, et. 4, Cod Postal 80434 + + - + + + + Cezara-Maria Cirlan + 19.0000 + 29.10.2020 + 0.000 + + RON + VRD5013 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Inel Feathering din Argint (1259) + + + 1 + 71.4300 + 19 + buc + 71.43 + 13.57 + + + 1.000 + + + + Inel Oh So Close - 51 (1352) + + + 2 + 54.6200 + 19 + buc + 54.62 + 10.38 + + + 1.000 + + + + Colier Mantra Options din Argint (6256) + + + 3 + 138.6600 + 19 + buc + 138.66 + 26.34 + + + + + 315.00 + 50.29 + 264.71 + + + + + + + + Strada Eroilor Nr. 92A , ap. 9, Cod Postal 407280 + + - + + + + Carmen Latis + 19.0000 + 30.10.2020 + 0.000 + + RON + VRD5014 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + -1.000 + + + + Retur Gift Card (din F. VRD nr. 4957 din data 16/10/2020 - CB8E-9BE6-3B34-36AB) + + + 1 + 126.0500 + 19 + buc + -126.05 + -23.95 + + + 1.000 + + + + Cercei Pirouette din Argint (2484) + + + 2 + 130.2500 + 19 + per + 130.25 + 24.75 + + + 1.000 + + + + Taxe Curierat + + + 3 + 8.9900 + 19 + buc + 8.99 + 1.71 + + + + + 15.70 + 2.51 + 13.19 + + + + + + + + Erou Iancu Nicolae 97 Casa 3, Cod Postal 77190 + + - + + + + Vera Nastase + 19.0000 + 30.10.2020 + 0.000 + + RON + VRD5015 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Colier Siegfried Minor din Argint Aurit (6359-1) + + + 1 + 483.1900 + 19 + buc + 483.19 + 91.81 + + + + + 575.00 + 91.81 + 483.19 + + + + + + + + Str. Imparatul Traian nr. 9 bl B9 sc 2 ap 43 sector 4, Cod Postal 41413 + + - + + + + Rodica Fluturas + 19.0000 + 30.10.2020 + 0.000 + + RON + VRD5016 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Inel Extreme Wide Band din Argint Rodiat - Masura 53 (1382) + + + 1 + 231.0900 + 19 + buc + 231.09 + 43.91 + + + + + 275.00 + 43.91 + 231.09 + + + + + + + + Vasile Lascar nr 119 Etj. 2 Ap 7, Cod Postal 20495 + + - + + + + Carmen Rostotchi + 19.0000 + 30.10.2020 + 0.000 + + RON + VRD5017 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Colier Salba Mini cu Banuti din Argint (6292) + + + 1 + 166.3900 + 19 + buc + 166.39 + 31.61 + + + 1.000 + + + + Taxe Curierat + + + 2 + 12.4400 + 19 + buc + 12.44 + 2.36 + + + + + 212.80 + 33.98 + 178.82 + + + + + + + + Ion Olteanu, nr 42 A , Cod Postal 77045 + + - + + + + Oana Nita + 19.0000 + 30.10.2020 + 0.000 + + RON + VRD5018 + + Str. 6 4 + BANCA TRANSILVANIA + RO16148853 + 200 + RO16BTRLRONCRT00W5493402 + + J13/5379/2004 + PASS COMPANY SRL + Da + Nu + + + + + 1.000 + + + + Cercei Cake Hoops din Argint Aurit (2628) + + + 1 + 189.0800 + 19 + per + 189.08 + 35.92 + + + + + 225.00 + 35.92 + 189.08 + + + + + + \ No newline at end of file diff --git a/Alte/SmartBill2ROA/ExportSmartBill/10.2020/Facturi_11_11_2020.xlsx b/Alte/SmartBill2ROA/ExportSmartBill/10.2020/Facturi_11_11_2020.xlsx new file mode 100644 index 0000000..c5e13a3 Binary files /dev/null and b/Alte/SmartBill2ROA/ExportSmartBill/10.2020/Facturi_11_11_2020.xlsx differ diff --git a/Alte/SmartBill2ROA/ExportSmartBill/10.2020/facturi_roa.xlsx b/Alte/SmartBill2ROA/ExportSmartBill/10.2020/facturi_roa.xlsx new file mode 100644 index 0000000..f0a9473 Binary files /dev/null and b/Alte/SmartBill2ROA/ExportSmartBill/10.2020/facturi_roa.xlsx differ diff --git a/Alte/SmartBill2ROA/ExportSmartBill/obsidian/10_2020/F_34759480_multiple_01.10.2020.xml b/Alte/SmartBill2ROA/ExportSmartBill/obsidian/10_2020/F_34759480_multiple_01.10.2020.xml new file mode 100644 index 0000000..45294c5 --- /dev/null +++ b/Alte/SmartBill2ROA/ExportSmartBill/obsidian/10_2020/F_34759480_multiple_01.10.2020.xml @@ -0,0 +1,2126 @@ + + + Mihai Rusu (Strada), Nr. 8, Cod Postal 307160 + + - + + + + Paula Muntean + + 01.10.2020 + 0.000 + + RON + SBO1365 + + Str. 6 4 + BT + 34759480 + 200 + RO19BTRLRONCRT0308938301 + + J13/1532/2015 + OBSIDIAN BRAND SRL + Nu + Nu + + + + + 1.000 + + + + Cercei Pearl Utopia din Argint Aurit (2643) + + + 1 + 185.0000 + 0 + per + 185.00 + 0.00 + + + 1.000 + + + + Cercei Crescent Octogon din Argint Aurit Satinat (2574) + + + 2 + 155.0000 + 0 + buc + 155.00 + 0.00 + + + + + 340.00 + 0.00 + 340.00 + + + + + + + + Atlantic BrokerBrancusi Constantin (Strada), Nr. 14, Cod Postal 400462 + + - + + + + Georgiana Vultur + + 01.10.2020 + 0.000 + + RON + SBO1366 + + Str. 6 4 + BT + 34759480 + 200 + RO19BTRLRONCRT0308938301 + + J13/1532/2015 + OBSIDIAN BRAND SRL + Nu + Nu + + + + + 1.000 + + + + Colier In Between Pearls din Argint Aurit Rose (6354-2) + + + 1 + 198.0000 + 0 + buc + 198.00 + 0.00 + + + 1.000 + + + + Lant Bi-Bar M din Argint (6291) + + + 2 + 85.0000 + 0 + buc + 85.00 + 0.00 + + + + + 283.00 + 0.00 + 283.00 + + + + + + + + Cismelei (Strada), Nr. 18, Bl. J1, Sc. A, Ap. 22, Cod Postal 900493 + + - + + + + ioana belu + + 02.10.2020 + 0.000 + + RON + SBO1367 + + Str. 6 4 + BT + 34759480 + 200 + RO19BTRLRONCRT0308938301 + + J13/1532/2015 + OBSIDIAN BRAND SRL + Nu + Nu + + + + + 1.000 + + + + Cercei Anemone din Argint (2724) + + + 1 + 98.0000 + 0 + per + 98.00 + 0.00 + + + 1.000 + + + + Taxe Curierat + + + 2 + 16.0000 + 0 + buc + 16.00 + 0.00 + + + + + 114.00 + 0.00 + 114.00 + + + + + + + + Principala, Nr. 214, Cod Postal 527160 + + - + + + + Imola Panczel + + 02.10.2020 + 0.000 + + RON + SBO1368 + + Str. 6 4 + BT + 34759480 + 200 + RO19BTRLRONCRT0308938301 + + J13/1532/2015 + OBSIDIAN BRAND SRL + Nu + Nu + + + + + 1.000 + + + + Cercei Creole L din Argint Aurit (2394) + + + 1 + 175.0000 + 0 + buc + 175.00 + 0.00 + + + 1.000 + + + + Bratara Mevia M din Argint (4195) + + + 2 + 575.0000 + 0 + buc + 575.00 + 0.00 + + + + + 750.00 + 0.00 + 750.00 + + + + + + + + Merilor (Strada), Nr. 1, Cod Postal 330155 + + - + + + + Tereza Popa + + 02.10.2020 + 0.000 + + RON + SBO1369 + + Str. 6 4 + BT + 34759480 + 200 + RO19BTRLRONCRT0308938301 + + J13/1532/2015 + OBSIDIAN BRAND SRL + Nu + Nu + + + + + -1.000 + + + + Inel Extreme Wide Band din Argint Rodiat - Masura 56 (1382) + + + 1 + 275.0000 + 0 + buc + -275.00 + 0.00 + + + + + -275.00 + 0.00 + -275.00 + + + + Storno factura seria SBO nr. 1354 din data 28/09/2020 + + + + TBA + + - + + + + Daniela Stamatoiu + + 02.10.2020 + 0.000 + + RON + SBO1370 + + Str. 6 4 + BT + 34759480 + 200 + RO19BTRLRONCRT0308938301 + + J13/1532/2015 + OBSIDIAN BRAND SRL + Da + Nu + + + + + 1.000 + + + + Cercei Sahara + + + 1 + 798.0000 + 0 + per + 798.00 + 0.00 + + + 1.000 + + + + Inel Aristocracy Favor + + + 2 + 875.0000 + 0 + buc + 875.00 + 0.00 + + + + + 1673.00 + 0.00 + 1673.00 + + + + + + + + Bogdanestilor (Cale), Nr. 22, Ap. 9, Cod Postal 300392 + + - + + + + Adina Dan + + 05.10.2020 + 0.000 + + RON + SBO1371 + + Str. 6 4 + BT + 34759480 + 200 + RO19BTRLRONCRT0308938301 + + J13/1532/2015 + OBSIDIAN BRAND SRL + Nu + Nu + + + + + 1.000 + + + + Colier Siegfried din Argint (6360) + + + 1 + 798.0000 + 0 + buc + 798.00 + 0.00 + + + + + 798.00 + 0.00 + 798.00 + + + + + + + + Sitei (Strada), Nr. 44, Cod Postal 500074 + + - + + + + Raluca Popa + + 05.10.2020 + 0.000 + + RON + SBO1372 + + Str. 6 4 + BT + 34759480 + 200 + RO19BTRLRONCRT0308938301 + + J13/1532/2015 + OBSIDIAN BRAND SRL + Nu + Nu + + + + + 1.000 + + + + Cercei Pirouette din Argint (2484) + + + 1 + 155.0000 + 0 + per + 155.00 + 0.00 + + + 1.000 + + + + Colier Inner Circle din Argint (6211) + + + 2 + 98.0000 + 0 + buc + 98.00 + 0.00 + + + 1.000 + + + + Cercei Pearl Utopia din Argint (2643) + + + 3 + 185.0000 + 0 + per + 185.00 + 0.00 + + + + + 438.00 + 0.00 + 438.00 + + + + + + + + IRIS IONESCUSerbanescu Alexandru, cpt. av. (Strada), Nr. 20E, Sc. A, Et. 3, Ap. 16, Cod Postal 014292 + + - + + + + Irina Ionescu + + 05.10.2020 + 0.000 + + RON + SBO1373 + + Str. 6 4 + BT + 34759480 + 200 + RO19BTRLRONCRT0308938301 + + J13/1532/2015 + OBSIDIAN BRAND SRL + Nu + Nu + + + + + 1.000 + + + + Cercei Salba din Argint Satinat (2328) + + + 1 + 165.0000 + 0 + per + 165.00 + 0.00 + + + 1.000 + + + + Taxe Curierat + + + 2 + 14.8000 + 0 + buc + 14.80 + 0.00 + + + + + 179.80 + 0.00 + 179.80 + + + + + + + + Buc + + - + + + + Carp Daniel + + 05.10.2020 + 0.000 + + RON + SBO1374 + + Str. 6 4 + BT + 34759480 + 200 + RO19BTRLRONCRT0308938301 + + J13/1532/2015 + OBSIDIAN BRAND SRL + Nu + Nu + + + + + 1.000 + + + + Colier The Pearl Connection din Argint Aurit (6330) + + + 1 + 365.0000 + 0 + buc + 365.00 + 0.00 + + + 1.000 + + + + Cercei Fireworks din Argint Aurit + + + 2 + 425.0000 + 0 + per + 425.00 + 0.00 + + + -1.000 + + + + Cercei Azael Wings Dark din Argint cu Sidef + + + 3 + 545.0000 + 0 + per + -545.00 + 0.00 + + + + + 245.00 + 0.00 + 245.00 + + + + + + + + Eroilor (Strada), Nr. 1-3, Cod Postal 910071 + + - + + + + Mihaela Vintila + + 06.10.2020 + 0.000 + + RON + SBO1375 + + Str. 6 4 + BT + 34759480 + 200 + RO19BTRLRONCRT0308938301 + + J13/1532/2015 + OBSIDIAN BRAND SRL + Nu + Nu + + + + + 1.000 + + + + Cercei Alice has a Temper din Argint Aurit (2716) + + + 1 + 98.0000 + 0 + per + 98.00 + 0.00 + + + 1.000 + + + + Taxe Curierat + + + 2 + 16.0000 + 0 + buc + 16.00 + 0.00 + + + + + 114.00 + 0.00 + 114.00 + + + + + + + + Scolii (Strada), Nr. 4, Cod Postal 077062 + + - + + + + Ionut Panaite- Jitianu + + 06.10.2020 + 0.000 + + RON + SBO1376 + + Str. 6 4 + BT + 34759480 + 200 + RO19BTRLRONCRT0308938301 + + J13/1532/2015 + OBSIDIAN BRAND SRL + Nu + Nu + + + + + 1.000 + + + + Colier Rosario din Argint (6190) + + + 1 + 135.0000 + 0 + buc + 135.00 + 0.00 + + + 1.000 + + + + Taxe Curierat + + + 2 + 16.0000 + 0 + buc + 16.00 + 0.00 + + + + + 151.00 + 0.00 + 151.00 + + + + + + + + Independentei (Splai), Nr. 313, Bibl. Centrala a UPB, Corp A, Et. 1, Cod Postal 060042 + + - + + + + Andrei Meszaros + + 06.10.2020 + 0.000 + + RON + SBO1377 + + Str. 6 4 + BT + 34759480 + 200 + RO19BTRLRONCRT0308938301 + + J13/1532/2015 + OBSIDIAN BRAND SRL + Nu + Nu + + + + + 1.000 + + + + Cercei Faraday din Argint (2501) + + + 1 + 145.0000 + 0 + per + 145.00 + 0.00 + + + 1.000 + + + + Colier Ring Ring din Argint (6210) + + + 2 + 150.0000 + 0 + buc + 150.00 + 0.00 + + + 1.000 + + + + Colier Chained Heart din Argint (6203) + + + 3 + 150.0000 + 0 + buc + 150.00 + 0.00 + + + + + 445.00 + 0.00 + 445.00 + + + + + + + + Panduri (sosea), Nr. 60-62, Bl. C, Sc. 2, Et. 3, Ap. 30 int 30, Cod Postal 050661 + + - + + + + Alexandra Florea + + 09.10.2020 + 0.000 + + RON + SBO1378 + + Str. 6 4 + BT + 34759480 + 200 + RO19BTRLRONCRT0308938301 + + J13/1532/2015 + OBSIDIAN BRAND SRL + Nu + Nu + + + + + 1.000 + + + + Bratara Retro Perfecto din Argint Aurit (4205) + + + 1 + 298.0000 + 0 + buc + 298.00 + 0.00 + + + + + 298.00 + 0.00 + 298.00 + + + + + + + + Bd. Nicolae Balcescu, nr.40077190 + + - + + + + Ana Visan + + 09.10.2020 + 0.000 + + RON + SBO1379 + + Str. 6 4 + BT + 34759480 + 200 + RO19BTRLRONCRT0308938301 + + J13/1532/2015 + OBSIDIAN BRAND SRL + Nu + Nu + + + + + 1.000 + + + + Bratara Infinity Knot din Argint - M (4187) + + + 1 + 115.0000 + 0 + buc + 115.00 + 0.00 + + + 1.000 + + + + Taxe Curierat + + + 2 + 16.0000 + 0 + buc + 16.00 + 0.00 + + + + + 131.00 + 0.00 + 131.00 + + + + + + + + Surorile Caceu, martir (Strada), Nr. 25/B, Cod Postal 300585 + + - + + + + Zmioara Anghel + + 12.10.2020 + 0.000 + + RON + SBO1380 + + Str. 6 4 + BT + 34759480 + 200 + RO19BTRLRONCRT0308938301 + + J13/1532/2015 + OBSIDIAN BRAND SRL + Nu + Nu + + + + + 1.000 + + + + Colier Siegfried Minor din Argint (6359) + + + 1 + 575.0000 + 0 + buc + 575.00 + 0.00 + + + + + 575.00 + 0.00 + 575.00 + + + + + + + + Barcelona (Strada), Nr. 2, Ap. 11, Cod Postal 307160 + + - + + + + Cristiana Hlosciuc + + 12.10.2020 + 0.000 + + RON + SBO1381 + + Str. 6 4 + BT + 34759480 + 200 + RO19BTRLRONCRT0308938301 + + J13/1532/2015 + OBSIDIAN BRAND SRL + Nu + Nu + + + + + 1.000 + + + + Colier Inner Circle din Argint (6211) + + + 1 + 98.0000 + 0 + buc + 98.00 + 0.00 + + + 1.000 + + + + Taxe Curierat + + + 2 + 16.0000 + 0 + buc + 16.00 + 0.00 + + + + + 114.00 + 0.00 + 114.00 + + + + + + + + Pacureti (Stradela), Nr. 5, Cod Postal 700545 + + - + + + + Gabriela Dobos + + 13.10.2020 + 0.000 + + RON + SBO1382 + + Str. 6 4 + BT + 34759480 + 200 + RO19BTRLRONCRT0308938301 + + J13/1532/2015 + OBSIDIAN BRAND SRL + Nu + Nu + + + + + 1.000 + + + + Inel Ringcuff din Argint (1225) + + + 1 + 298.0000 + 0 + buc + 298.00 + 0.00 + + + + + 298.00 + 0.00 + 298.00 + + + + + + + + Plantelor (Strada), Nr. 16, Cod Postal 023974 + + - + + + + Andrei Tudor Dumitrescu + + 13.10.2020 + 0.000 + + RON + SBO1383 + + Str. 6 4 + BT + 34759480 + 200 + RO19BTRLRONCRT0308938301 + + J13/1532/2015 + OBSIDIAN BRAND SRL + Nu + Nu + + + + + 1.000 + + + + Cercei Neptune Nights din Argint (2654) + + + 1 + 198.0000 + 0 + per + 198.00 + 0.00 + + + 1.000 + + + + Taxe Curierat + + + 2 + 14.8000 + 0 + buc + 14.80 + 0.00 + + + + + 212.80 + 0.00 + 212.80 + + + + + + + + Lt. Sava Rosescu (Strada), Nr. 15, Cod Postal 125300 + + - + + + + Larisa Ene + + 15.10.2020 + 0.000 + + RON + SBO1384 + + Str. 6 4 + BT + 34759480 + 200 + RO19BTRLRONCRT0308938301 + + J13/1532/2015 + OBSIDIAN BRAND SRL + Nu + Nu + + + + + 1.000 + + + + Cercei Peggy Guggenheim din Argint Aurit (2714) + + + 1 + 798.0000 + 0 + per + 798.00 + 0.00 + + + + + 798.00 + 0.00 + 798.00 + + + + + + + + Traian (Bulevard), Nr. 19, Cod Postal 430261 + + - + + + + Daniela Stamatoiu + + 15.10.2020 + 0.000 + + RON + SBO1385 + + Str. 6 4 + BT + 34759480 + 200 + RO19BTRLRONCRT0308938301 + + J13/1532/2015 + OBSIDIAN BRAND SRL + Nu + Nu + + + + + 1.000 + + + + Inel Aristocracy Dolor din Argint (1381) + + + 1 + 875.0000 + 0 + buc + 875.00 + 0.00 + + + + + 875.00 + 0.00 + 875.00 + + + + + + + + Ghencea (Prelungire), Nr. 65B, Bl. E, Sc. 1, Et. 5, Ap. 20, Cod Postal 061702 + + - + + + + Liliana Florescu + + 15.10.2020 + 0.000 + + RON + SBO1386 + + Str. 6 4 + BT + 34759480 + 200 + RO19BTRLRONCRT0308938301 + + J13/1532/2015 + OBSIDIAN BRAND SRL + Nu + Nu + + + + + 1.000 + + + + Bratara Gordian Torque din Argint (4177) + + + 1 + 125.0000 + 0 + buc + 125.00 + 0.00 + + + 1.000 + + + + Taxe Curierat + + + 2 + 14.8000 + 0 + buc + 14.80 + 0.00 + + + + + 139.80 + 0.00 + 139.80 + + + + + + + + Eroilor (Strada), Nr. 5H, Bl. Barcelona, Sc. 1, Et. 3, Ap. 112, Cod Postal 075100 + + - + + + + Ana Maria Patroi + + 15.10.2020 + 0.000 + + RON + SBO1387 + + Str. 6 4 + BT + 34759480 + 200 + RO19BTRLRONCRT0308938301 + + J13/1532/2015 + OBSIDIAN BRAND SRL + Nu + Nu + + + + + 1.000 + + + + Cercei Creole S din Argint Aurit Roze (2653) + + + 1 + 135.0000 + 0 + per + 135.00 + 0.00 + + + 1.000 + + + + Taxe Curierat + + + 2 + 16.0000 + 0 + buc + 16.00 + 0.00 + + + + + 151.00 + 0.00 + 151.00 + + + + + + + + Hotinului (Alee), Nr. 3, Sc. A, Ap. 2, Cod Postal 300668 + + - + + + + Sabina Scurtu + + 15.10.2020 + 0.000 + + RON + SBO1388 + + Str. 6 4 + BT + 34759480 + 200 + RO19BTRLRONCRT0308938301 + + J13/1532/2015 + OBSIDIAN BRAND SRL + Nu + Nu + + + + + 1.000 + + + + Cercei Clear Skies din Argint (2419) + + + 1 + 75.0000 + 0 + per + 75.00 + 0.00 + + + 1.000 + + + + Taxe Curierat + + + 2 + 16.0000 + 0 + buc + 16.00 + 0.00 + + + + + 91.00 + 0.00 + 91.00 + + + + + + + + Nedeleanu Ion, serg. maj. (Strada), Nr. 12, Bl. P 76, Sc. 2, Ap. 41, CodPostal 051724 + + - + + + + Vera Anghel + + 16.10.2020 + 0.000 + + RON + SBO1389 + + Str. 6 4 + BT + 34759480 + 200 + RO19BTRLRONCRT0308938301 + + J13/1532/2015 + OBSIDIAN BRAND SRL + Nu + Nu + + + + + 1.000 + + + + Inel Medio Wide Band din Argint Rodiat - Masura 59 (1383) + + + 1 + 198.0000 + 0 + buc + 198.00 + 0.00 + + + 1.000 + + + + Cercei Geometry din Argint (2514) + + + 2 + 75.0000 + 0 + per + 75.00 + 0.00 + + + + + 273.00 + 0.00 + 273.00 + + + + + + + + Ohmstrasse 67, 60486 + + - + + + + Cristina Frincu + + 16.10.2020 + 0.000 + + RON + SBO1390 + + Str. 6 4 + BT + 34759480 + 200 + RO19BTRLRONCRT0308938301 + + J13/1532/2015 + OBSIDIAN BRAND SRL + Nu + Nu + + + + + 1.000 + + + + Inel Tragedy Constelation Sq din Argint + + + 1 + 385.0000 + 0 + buc + 385.00 + 0.00 + + + 1.000 + + + + Transport International + + + 2 + 80.0000 + 0 + buc + 80.00 + 0.00 + + + + + 465.00 + 0.00 + 465.00 + + + + + + + + Nedeleanu Ion, serg. maj. (Strada), Nr. 12, Bl. P 76, Sc. 2, Ap. 41, CodPostal 051724 + + - + + + + Vera Anghel + + 20.10.2020 + 0.000 + + RON + SBO1391 + + Str. 6 4 + BT + 34759480 + 200 + RO19BTRLRONCRT0308938301 + + J13/1532/2015 + OBSIDIAN BRAND SRL + Nu + Nu + + + + + -1.000 + + + + Inel Medio Wide Band din Argint Rodiat - Masura 59 (1383) + + + 1 + 198.0000 + 0 + buc + -198.00 + 0.00 + + + 1.000 + + + + Cercei Dusk drops Din argint + + + 2 + 145.0000 + 0 + per + 145.00 + 0.00 + + + + + -53.00 + 0.00 + -53.00 + + + + Storno factura seria SBO nr. 1389 din data 16/10/2020 + + + + Padurii (Strada), Nr. 11, Cod Postal 077180 + + - + + + + Camelia Ghejan (Monica Mihai) + + 20.10.2020 + 0.000 + + RON + SBO1392 + + Str. 6 4 + BT + 34759480 + 200 + RO19BTRLRONCRT0308938301 + + J13/1532/2015 + OBSIDIAN BRAND SRL + Nu + Nu + + + + + -1.000 + + + + Inel Medio Wide Band din Argint Rodiat - Masura 54 (1383) + + + 1 + 198.0000 + 0 + buc + -198.00 + 0.00 + + + + + -198.00 + 0.00 + -198.00 + + + + Storno factura seria SBO nr. 1327 din data 14/09/2020 + + + + Regina Maria + + - + + + + IULIA RUSU + + 22.10.2020 + 0.000 + + RON + SBO1393 + + Str. 6 4 + BT + 34759480 + 200 + RO19BTRLRONCRT0308938301 + + J13/1532/2015 + OBSIDIAN BRAND SRL + Nu + Nu + + + + + 1.000 + + + + Produse cf. BF002 / 22.10.2020 + + + 1 + 1030.5000 + 0 + buc + 1030.50 + 0.00 + + + + + 1030.50 + 0.00 + 1030.50 + + + + Incasare card / numerar + + + + Traian (Bulevard), Nr. 19, Cod Postal 430261 + + - + + + + Ioana Daniela Stamatoiu + + 26.10.2020 + 0.000 + + RON + SBO1394 + + Str. 6 4 + BT + 34759480 + 200 + RO19BTRLRONCRT0308938301 + + J13/1532/2015 + OBSIDIAN BRAND SRL + Nu + Nu + + + + + 1.000 + + + + Cercei Her Majesty’s Secrets din Argint (2707-2) + + + 1 + 675.0000 + 0 + per + 675.00 + 0.00 + + + + + 675.00 + 0.00 + 675.00 + + + + + + + + ING BankStr. Brasov nr 22Bloc Z132, scara A, et. 1, apt. 7, interfon 17061448 + + - + + + + Gabriela Sandu + + 26.10.2020 + 0.000 + + RON + SBO1395 + + Str. 6 4 + BT + 34759480 + 200 + RO19BTRLRONCRT0308938301 + + J13/1532/2015 + OBSIDIAN BRAND SRL + Nu + Nu + + + + + 1.000 + + + + Bratara Minimal Torque din Argint (4138) + + + 1 + 198.0000 + 0 + buc + 198.00 + 0.00 + + + 1.000 + + + + Colier Extinct Extravaganza din Argint (6348) + + + 2 + 850.0000 + 0 + buc + 850.00 + 0.00 + + + 2.000 + + + + Colier Inner Circle din Argint (6211) + + + 3 + 98.0000 + 0 + buc + 196.00 + 0.00 + + + 1.000 + + + + Inel Plain Round Signet din Argint - 57 (1373) + + + 4 + 150.0000 + 0 + buc + 150.00 + 0.00 + + + 1.000 + + + + Cercei Collateral din Argint (2591) + + + 5 + 175.0000 + 0 + per + 175.00 + 0.00 + + + -1.000 + + + + Discount 15% + + + 6 + 235.3500 + 0 + buc + -235.35 + 0.00 + + + + + 1333.65 + 0.00 + 1333.65 + + + + + + \ No newline at end of file diff --git a/Alte/SmartBill2ROA/ExportSmartBill/obsidian/10_2020/Facturi_17_11_2020.xlsx b/Alte/SmartBill2ROA/ExportSmartBill/obsidian/10_2020/Facturi_17_11_2020.xlsx new file mode 100644 index 0000000..7d5c98b Binary files /dev/null and b/Alte/SmartBill2ROA/ExportSmartBill/obsidian/10_2020/Facturi_17_11_2020.xlsx differ diff --git a/Alte/SmartBill2ROA/ExportSmartBill/obsidian/10_2020/facturi_roa.xlsx b/Alte/SmartBill2ROA/ExportSmartBill/obsidian/10_2020/facturi_roa.xlsx new file mode 100644 index 0000000..64c440f Binary files /dev/null and b/Alte/SmartBill2ROA/ExportSmartBill/obsidian/10_2020/facturi_roa.xlsx differ diff --git a/Alte/SmartBill2ROA/SmartBill2ROA.exe b/Alte/SmartBill2ROA/SmartBill2ROA.exe new file mode 100644 index 0000000..e2f4940 Binary files /dev/null and b/Alte/SmartBill2ROA/SmartBill2ROA.exe differ diff --git a/Alte/SmartBill2ROA/SmartBill2ROA.pj2 b/Alte/SmartBill2ROA/SmartBill2ROA.pj2 new file mode 100644 index 0000000..704d1cd --- /dev/null +++ b/Alte/SmartBill2ROA/SmartBill2ROA.pj2 @@ -0,0 +1,92 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="smartbill2roa.pjx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +LPARAMETERS tcDir + +lcCurdir = SYS(5)+CURDIR() +CD ( EVL( tcDir, JUSTPATH( SYS(16) ) ) ) + +* +_Author = "" +_Company = "" +_Address = "" +_City = "" +_State = "" +_PostalCode = "" +_Country = "" +*-- +_Comments = "" +_CompanyName = " " +_FileDescription = " " +_LegalCopyright = "" +_LegalTrademark = "" +_ProductName = " " +_MajorVer = "1" +_MinorVer = "0" +_Revision = "10" +_LanguageID = "" +_AutoIncrement = "0" +* + + +* +*<.HomeDir = 'd:\roa\roacont\alte\smartbill2roa' /> + +FOR EACH loProject IN _VFP.Projects FOXOBJECT + loProject.Close() +ENDFOR + +STRTOFILE( '', '__newproject.f2b' ) +BUILD PROJECT SmartBill2ROA.pjx FROM '__newproject.f2b' +FOR EACH loProject IN _VFP.Projects FOXOBJECT + loProject.Close() +ENDFOR + +MODIFY PROJECT 'SmartBill2ROA.pjx' NOWAIT NOSHOW NOPROJECTHOOK + +loProject = _VFP.Projects('SmartBill2ROA.pjx') + +WITH loProject.FILES + .ADD('..\..\comun\programe\regex.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" User="" /> + .ADD('..\..\comun\utile\excel\appendxlsx.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" User="" /> + .ADD('..\..\comun\utile\excel\importfromxlsx.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" User="" /> + .ADD('import_facturi.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" User="" /> + .ADD('vfpxworkbookxlsx.h') && *< FileMetadata: Type="T" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" /> + .ADD('vfpxworkbookxlsx.vcx') && *< FileMetadata: Type="V" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" User="" /> + * + + .ITEM('__newproject.f2b').Remove() + + * + * + + * + * + + * + .ITEM("vfpxworkbookxlsx.h").Type = 'T' + * +ENDWITH + +WITH loProject + * + .SetMain("import_facturi.prg") + + .Debug = .T. + .Encrypted = .F. + *<.CmntStyle = 1 /> + *<.NoLogo = .F. /> + *<.SaveCode = .T. /> + *<.User = '' /> + .ProjectHookLibrary = '' + .ProjectHookClass = '' + * +ENDWITH + + +_VFP.Projects('SmartBill2ROA.pjx').Close() +*ERASE '__newproject.f2b' +CD (lcCurdir) +RETURN \ No newline at end of file diff --git a/Alte/SmartBill2ROA/VFPxWorkbookXLSX.h b/Alte/SmartBill2ROA/VFPxWorkbookXLSX.h new file mode 100644 index 0000000..04d508d --- /dev/null +++ b/Alte/SmartBill2ROA/VFPxWorkbookXLSX.h @@ -0,0 +1,296 @@ +#DEFINE CR CHR(13) +#DEFINE LF CHR(10) +#DEFINE CRLF CR+LF +#DEFINE TAB CHR(9) +#DEFINE False .F. +#DEFINE True .T. +#DEFINE FOF_SILENT 4 + +#DEFINE LIMITS_MAX_CELL_CHARS 32767 +#DEFINE LIMITS_MAX_COLUMNS 16384 +#DEFINE LIMITS_MAX_ROWS 1048576 +#DEFINE LIMITS_MAX_ROW_HEIGHT 409 +#DEFINE LIMITS_MAX_COLUMN_WIDTH 255 +#DEFINE LIMITS_MAX_HDR_FTR_CHARS 255 +#DEFINE LIMITS_MAX_CELL_FORMATS 200 +#DEFINE LIMITS_MAX_FILL_STYLES 256 +#DEFINE LIMITS_MAX_LINE_STYLES 256 +#DEFINE LIMITS_MAX_FONTS 512 +#DEFINE LIMITS_MAX_FORMULA_LENGTH 8192 +#DEFINE LIMITS_MAX_SH_NAME 30 + +#DEFINE INSERT_BEFORE "BEFORE" +#DEFINE INSERT_AFTER "AFTER" +#DEFINE INSERT_RIGHT "RIGHT" +#DEFINE INSERT_LEFT "LEFT" + +#DEFINE START_NUMERIC_FORMAT_ID 165 + +#DEFINE SCOPE_WB_NAMED_RANGE 0 && Scope of named range - workbook +#DEFINE SCOPE_SH_NAMED_RANGE 1 && Scope of named range - limited to sheet + +#DEFINE VISIBLE_SHEET_STATE 0 && visible (default) +#DEFINE HIDDEN_SHEET_STATE 1 && hidden +#DEFINE VERYHIDDEN_SHEET_STATE 2 && veryHidden + +#DEFINE NONE_VALID_TYPE 1 && none +#DEFINE WHOLE_VALID_TYPE 2 && whole +#DEFINE DECIMAL_VALID_TYPE 3 && decimal +#DEFINE LIST_VALID_TYPE 4 && list +#DEFINE DATE_VALID_TYPE 5 && date +#DEFINE TIME_VALID_TYPE 6 && time +#DEFINE TXTLEN_VALID_TYPE 7 && textLength +#DEFINE CUSTOM_VALID_TYPE 8 && custom + +#DEFINE STOP_VALID_STYLE 1 && stop +#DEFINE WARN_VALID_STYLE 2 && warning +#DEFINE INFO_VALID_STYLE 3 && information + +#DEFINE BETWEEN_VALID_OPER 1 && between +#DEFINE NOTBETW_VALID_OPER 2 && notBetween +#DEFINE EQUAL_VALID_OPER 3 && equal +#DEFINE NOTEQUAL_VALID_OPER 4 && notEqual +#DEFINE LESSTHAN_VALID_OPER 5 && lessThan +#DEFINE LESSOREQUAL_VALID_OPER 6 && lessThanOrEqual +#DEFINE GREATTHAN_VALID_OPER 7 && greaterThan +#DEFINE GREATOREQUAL_VALID_OPER 8 && greaterThanOrEqual + +#DEFINE PORTRAIT_PRINT_ORIENTATION 1 +#DEFINE LANDSCAPE_PRINT_ORIENTATION 2 + +#DEFINE PAPERSIZE_LTR 1 && Letter paper (8.5 in. BY 11 in.) +#DEFINE PAPERSIZE_LTR_SMALL 2 && Letter small paper (8.5 in. BY 11 in.) +#DEFINE PAPERSIZE_TABLOID 3 && Tabloid paper (11 in. BY 17 in.) +#DEFINE PAPERSIZE_LEDGER 4 && Ledger paper (17 in. BY 11 in.) +#DEFINE PAPERSIZE_LEGAL 5 && Legal paper (8.5 in. BY 14 in.) +#DEFINE PAPERSIZE_STATEMENT 6 && Statement paper (5.5 in. BY 8.5 in.) +#DEFINE PAPERSIZE_EXECUTIVE 7 && Executive paper (7.25 in. BY 10.5 in.) +#DEFINE PAPERSIZE_A3 8 && A3 paper (297 mm BY 420 mm) +#DEFINE PAPERSIZE_A4 9 && A4 paper (210 mm BY 297 mm) +#DEFINE PAPERSIZE_A4_SMALL 10 && A4 small paper (210 mm BY 297 mm) +#DEFINE PAPERSIZE_A5 11 && A5 paper (148 mm BY 210 mm) +#DEFINE PAPERSIZE_B4 12 && B4 paper (250 mm BY 353 mm) +#DEFINE PAPERSIZE_B5 13 && B5 paper (176 mm BY 250 mm) +#DEFINE PAPERSIZE_FOLIO 14 && Folio paper (8.5 in. BY 13 in.) +#DEFINE PAPERSIZE_QUARTO 15 && Quarto paper (215 mm BY 275 mm) +#DEFINE PAPERSIZE_STD10X14 16 && Standard paper (10 in. BY 14 in.) +#DEFINE PAPERSIZE_STD11X17 17 && Standard paper (11 in. BY 17 in.) +#DEFINE PAPERSIZE_NOTE 18 && NOTE paper (8.5 in. BY 11 in.) +#DEFINE PAPERSIZE_9ENV 19 && #9 envelope (3.875 in. BY 8.875 in.) +#DEFINE PAPERSIZE_10ENV 20 && #10 envelope (4.125 in. BY 9.5 in.) +#DEFINE PAPERSIZE_11ENV 21 && #11 envelope (4.5 in. BY 10.375 in.) +#DEFINE PAPERSIZE_12ENV 22 && #12 envelope (4.75 in. BY 11 in.) +#DEFINE PAPERSIZE_14ENV 23 && #14 envelope (5 in. BY 11.5 in.) +#DEFINE PAPERSIZE_C 24 && C paper (17 in. BY 22 in.) +#DEFINE PAPERSIZE_D 25 && D paper (22 in. BY 34 in.) +#DEFINE PAPERSIZE_E 26 && E paper (34 in. BY 44 in.) +#DEFINE PAPERSIZE_DL_ENV 27 && DL envelope (110 mm BY 220 mm) +#DEFINE PAPERSIZE_C5_ENV 28 && C5 envelope (162 mm BY 229 mm) +#DEFINE PAPERSIZE_C3_ENV 29 && C3 envelope (324 mm BY 458 mm) +#DEFINE PAPERSIZE_C4_ENV 30 && C4 envelope (229 mm BY 324 mm) +#DEFINE PAPERSIZE_C6_ENV 31 && C6 envelope (114 mm BY 162 mm) +#DEFINE PAPERSIZE_C65_ENV 32 && C65 envelope (114 mm BY 229 mm) +#DEFINE PAPERSIZE_B4_ENV 33 && B4 envelope (250 mm BY 353 mm) +#DEFINE PAPERSIZE_B5_ENV 34 && B5 envelope (176 mm BY 250 mm) +#DEFINE PAPERSIZE_B6_ENV 35 && B6 envelope (176 mm BY 125 mm) +#DEFINE PAPERSIZE_ITALY_ENV 36 && Italy envelope (110 mm BY 230 mm) +#DEFINE PAPERSIZE_MONARCH_ENV 37 && Monarch envelope (3.875 in. BY 7.5 in.). +#DEFINE PAPERSIZE_6_3_4_ENV 38 && 6 3/4 envelope (3.625 in. BY 6.5 in.) +#DEFINE PAPERSIZE_US_STD_FANFOLD 39 && US standard fanfold (14.875 in. BY 11 in.) +#DEFINE PAPERSIZE_GERMAN_STD_FANFOLD 40 && German standard fanfold (8.5 in. BY 12 in.) +#DEFINE PAPERSIZE_GERMAN_LGL_FANFOLD 41 && German legal fanfold (8.5 in. BY 13 in.) +#DEFINE PAPERSIZE_ISO_B4 42 && ISO B4 (250 mm BY 353 mm) +#DEFINE PAPERSIZE_JPN_DBL_POSTCARD 43 && JPN DOUBLE postcard (200 mm BY 148 mm) +#DEFINE PAPERSIZE_STD_PAPER9X11 44 && Standard paper (9 in. BY 11 in.) +#DEFINE PAPERSIZE_STD_PAPER10X11 45 && Standard paper (10 in. BY 11 in.) +#DEFINE PAPERSIZE_STD_PAPER15X11 46 && Standard paper (15 in. BY 11 in.) +#DEFINE PAPERSIZE_INVITE_ENV 47 && Invite envelope (220 mm BY 220 mm) +#DEFINE PAPERSIZE_LTR_XTRA_PAPER 50 && Letter extra paper (9.275 in. BY 12 in.) +#DEFINE PAPERSIZE_LEGAL_XTRA_PAPER 51 && Legal extra paper (9.275 in. BY 15 in.) +#DEFINE PAPERSIZE_TABLOID_XTRA_PAPER 52 && Tabloid extra paper (11.69 in. BY 18 in.) +#DEFINE PAPERSIZE_A4_XTRA_PAPER 53 && A4 extra paper (236 mm BY 322 mm) +#DEFINE PAPERSIZE_LTR_TRANSVERSE 54 && Letter transverse paper (8.275 in. BY 11 in.) +#DEFINE PAPERSIZE_A4_TRANSVERSE 55 && A4 transverse paper (210 mm BY 297 mm) +#DEFINE PAPERSIZE_LTR_XTRA_TRANSV 56 && Letter extra transverse paper (9.275 in. BY 12 in.) +#DEFINE PAPERSIZE_SUPERA_A4 57 && SuperA/SuperA/A4 paper (227 mm BY 356 mm) +#DEFINE PAPERSIZE_SUPERB_A3 58 && SuperB/SuperB/A3 paper (305 mm BY 487 mm) +#DEFINE PAPERSIZE_LTR_PLUS 59 && Letter plus paper (8.5 in. BY 12.69 in.) +#DEFINE PAPERSIZE_A4_PLUS 60 && A4 plus paper (210 mm BY 330 mm) +#DEFINE PAPERSIZE_A5_TRANSVERSE 61 && A5 transverse paper (148 mm BY 210 mm) +#DEFINE PAPERSIZE_JIS_B5_TRANSVERS 62 && JIS B5 transverse paper (182 mm BY 257 mm) +#DEFINE PAPERSIZE_A3_EXTRA 63 && A3 extra paper (322 mm BY 445 mm) +#DEFINE PAPERSIZE_A5_EXTRA 64 && A5 extra paper (174 mm BY 235 mm) +#DEFINE PAPERSIZE_ISO_B5_EXTRA 65 && ISO B5 extra paper (201 mm BY 276 mm) +#DEFINE PAPERSIZE_A2 66 && A2 paper (420 mm BY 594 mm) +#DEFINE PAPERSIZE_A3_TRANSVERSE 67 && A3 transverse paper (297 mm BY 420 mm) +#DEFINE PAPERSIZE_A3_EXTRA_TRANSVE 68 && A3 extra transverse paper (322 mm BY 445 mm) +#DEFINE PAPERSIZE_JPN_DOUBLE 69 && JPN DOUBLE Postcard (200 mm x 148 mm) +#DEFINE PAPERSIZE_A6 70 && A6 (105 mm x 148 mm) +#DEFINE PAPERSIZE_JPN_ENV_KAKU1 71 && JPN Envelope Kaku #2 +#DEFINE PAPERSIZE_JPN_ENV_KAKU2 72 && JPN Envelope Kaku #3 +#DEFINE PAPERSIZE_JPN_ENV_CHOU3 73 && JPN Envelope Chou #3 +#DEFINE PAPERSIZE_JPN_ENV_CHOU4 74 && JPN Envelope Chou #4 +#DEFINE PAPERSIZE_LTR_ROT 75 && Letter Rotated (11in x 8 1/2 11 IN) +#DEFINE PAPERSIZE_A3_ROT 76 && A3 Rotated (420 mm x 297 mm) +#DEFINE PAPERSIZE_A4_ROT 77 && A4 Rotated (297 mm x 210 mm) +#DEFINE PAPERSIZE_A5_ROT 78 && A5 Rotated (210 mm x 148 mm) +#DEFINE PAPERSIZE_B4_JIS_ROT 79 && B4 (JIS) Rotated (364 mm x 257 mm) +#DEFINE PAPERSIZE_B5_JIS_ROT 80 && B5 (JIS) Rotated (257 mm x 182 mm) +#DEFINE PAPERSIZE_JPN_POSTCARD 81 && JPN Postcard Rotated (148 mm x 100 mm) +#DEFINE PAPERSIZE_DOUBLE_JPN 82 && DOUBLE JPN Postcard Rotated (148 mm x 200 mm) +#DEFINE PAPERSIZE_A6_ROT 83 && A6 Rotated (148 mm x 105 mm) +#DEFINE PAPERSIZE_JPN_ENV_KAKU2_ROT 84 && JPN Envelope Kaku #2 Rotated +#DEFINE PAPERSIZE_JPN_ENV_KAKU3_ROT 85 && JPN Envelope Kaku #3 Rotated +#DEFINE PAPERSIZE_JPN_ENV_CHOU3_ROT 86 && JPN Envelope Chou #3 Rotated +#DEFINE PAPERSIZE_JPN_ENV_CHOU4_ROT 87 && JPN Envelope Chou #4 Rotated +#DEFINE PAPERSIZE_B6_JIS 88 && B6 (JIS) (128 mm x 182 mm) +#DEFINE PAPERSIZE_B6_JIS_ROT 89 && B6 (JIS) Rotated (182 mm x 128 mm) +#DEFINE PAPERSIZE_12X11 90 && (12 IN x 11 IN) +#DEFINE PAPERSIZE_JPN_ENV_YOU4 91 && JPN Envelope You #4 +#DEFINE PAPERSIZE_JPN_ENV_YOU4_ROT 92 && JPN Envelope You #4 Rotated +#DEFINE PAPERSIZE_PRC_16K 93 && PRC 16K (146 mm x 215 mm) +#DEFINE PAPERSIZE_PRC_32K 94 && PRC 32K (97 mm x 151 mm) +#DEFINE PAPERSIZE_PRC_32K_BIG 95 && PRC 32K(Big) (97 mm x 151 mm) +#DEFINE PAPERSIZE_PRC_ENV_1 96 && PRC Envelope #1 (102 mm x 165 mm) +#DEFINE PAPERSIZE_PRC_ENV_2 97 && PRC Envelope #2 (102 mm x 176 mm) +#DEFINE PAPERSIZE_PRC_ENV_3 98 && PRC Envelope #3 (125 mm x 176 mm) +#DEFINE PAPERSIZE_PRC_ENV_4 99 && PRC Envelope #4 (110 mm x 208 mm) +#DEFINE PAPERSIZE_PRC_ENV_5 100 && PRC Envelope #5 (110 mm x 220 mm) +#DEFINE PAPERSIZE_PRC_ENV_6 101 && PRC Envelope #6 (120 mm x 230 mm) +#DEFINE PAPERSIZE_PRC_ENV_7 102 && PRC Envelope #7 (160 mm x 230 mm) +#DEFINE PAPERSIZE_PRC_ENV_8 103 && PRC Envelope #8 (120 mm x 309 mm) +#DEFINE PAPERSIZE_PRC_ENV_9 104 && PRC Envelope #9 (229 mm x 324 mm) +#DEFINE PAPERSIZE_PRC_ENV_10 105 && PRC Envelope #10 (324 mm x 458 mm) +#DEFINE PAPERSIZE_PRC_16K_ROT 106 && PRC 16K Rotated +#DEFINE PAPERSIZE_PRC_32K_ROT 107 && PRC 32K Rotated +#DEFINE PAPERSIZE_PRC_32K_BIG_ROT 108 && PRC 32K(Big) Rotated +#DEFINE PAPERSIZE_PRC_ENV_1_ROT 109 && PRC Envelope #1 Rotated (165 mm x 102 mm) +#DEFINE PAPERSIZE_PRC_ENV_2_ROT 110 && PRC Envelope #2 Rotated (176 mm x 102 mm) +#DEFINE PAPERSIZE_PRC_ENV_3_ROT 111 && PRC Envelope #3 Rotated (176 mm x 125 mm) +#DEFINE PAPERSIZE_PRC_ENV_4_ROT 112 && PRC Envelope #4 Rotated (208 mm x 110 mm) +#DEFINE PAPERSIZE_PRC_ENV_5_ROT 113 && PRC Envelope #5 Rotated (220 mm x 110 mm) +#DEFINE PAPERSIZE_PRC_ENV_6_ROT 114 && PRC Envelope #6 Rotated (230 mm x 120 mm) +#DEFINE PAPERSIZE_PRC_ENV_7_ROT 115 && PRC Envelope #7 Rotated (230 mm x 160 mm) +#DEFINE PAPERSIZE_PRC_ENV_8_ROT 116 && PRC Envelope #8 Rotated (309 mm x 120 mm) +#DEFINE PAPERSIZE_PRC_ENV_9_ROT 117 && PRC Envelope #9 Rotated (324 mm x 229 mm) +#DEFINE PAPERSIZE_PRC_ENV_10_ROT 118 && PRC Envelope #10 Rotated (458 mm x 324 mm) + +#DEFINE HEADERFOOTER_SECT_HDR_LEFT 1 +#DEFINE HEADERFOOTER_SECT_HDR_CENTER 2 +#DEFINE HEADERFOOTER_SECT_HDR_RIGHT 3 +#DEFINE HEADERFOOTER_SECT_FTR_LEFT 4 +#DEFINE HEADERFOOTER_SECT_FTR_CENTER 5 +#DEFINE HEADERFOOTER_SECT_FTR_RIGHT 6 +#DEFINE HEADERFOOTER_FONT_STYLE_NORMAL 0 +#DEFINE HEADERFOOTER_FONT_STYLE_BOLD 1 +#DEFINE HEADERFOOTER_FONT_STYLE_ITALIC 2 +#DEFINE HEADERFOOTER_FONT_STYLE_BOLDITALIC 3 +#DEFINE HEADERFOOTER_FIRST_PAGE 0 +#DEFINE HEADERFOOTER_ODD_PAGE 1 +#DEFINE HEADERFOOTER_EVEN_PAGE 2 +#DEFINE HEADERFOOTER_SAME_PAGE 3 + +#DEFINE DATA_TYPE_NONE "X" +#DEFINE DATA_TYPE_DATE "D" +#DEFINE DATA_TYPE_DATETIME "T" +#DEFINE DATA_TYPE_CHAR "C" +#DEFINE DATA_TYPE_INT "I" +#DEFINE DATA_TYPE_FLOAT "N" +#DEFINE DATA_TYPE_CURRENCY "Y" +#DEFINE DATA_TYPE_GENERAL "G" +#DEFINE DATA_TYPE_FORMULA "F" +#DEFINE DATA_TYPE_TIME "M" +#DEFINE DATA_TYPE_PERCENT "P" +#DEFINE DATA_TYPE_LOGICAL "L" + +#DEFINE FIELD_TYPE_DATE "D" +#DEFINE FIELD_TYPE_DATETIME "T" +#DEFINE FIELD_TYPE_CHAR "C" +#DEFINE FIELD_TYPE_INT "I" +#DEFINE FIELD_TYPE_FLOAT "F" +#DEFINE FIELD_TYPE_CURRENCY "Y" +#DEFINE FIELD_TYPE_LOGICAL "L" +#DEFINE FIELD_TYPE_DOUBLE "B" +#DEFINE FIELD_TYPE_MEMO "M" +#DEFINE FIELD_TYPE_NUMERIC "N" + +#DEFINE BORDER_LEFT 1 +#DEFINE BORDER_RIGHT 2 +#DEFINE BORDER_TOP 4 +#DEFINE BORDER_BOTTOM 8 +#DEFINE BORDER_DIAGDOWN 16 +#DEFINE BORDER_DIAGUP 32 + +#DEFINE BORDER_STYLE_NONE "none" +#DEFINE BORDER_STYLE_THIN "thin" +#DEFINE BORDER_STYLE_HAIR "hair" +#DEFINE BORDER_STYLE_DOTTED "dotted" +#DEFINE BORDER_STYLE_DASHDOTDOT "dashDotDot" +#DEFINE BORDER_STYLE_DASHDOT "dashDot" +#DEFINE BORDER_STYLE_DASHED "dashed" +#DEFINE BORDER_STYLE_MEDIUMDASHDOTDOT "mediumDashDotDot" +#DEFINE BORDER_STYLE_SLANTDASHDOT "slantDashDot" +#DEFINE BORDER_STYLE_MEDIUMDASHDOT "mediumDashDot" +#DEFINE BORDER_STYLE_MEDIUMDASHED "mediumDashed" +#DEFINE BORDER_STYLE_MEDIUM "medium" +#DEFINE BORDER_STYLE_THICK "thick" +#DEFINE BORDER_STYLE_DOUBLE "double" + +#DEFINE FILL_STYLE_NONE "none" +#DEFINE FILL_STYLE_SOLID "solid" +#DEFINE FILL_STYLE_GRAY125 "gray125" + +#DEFINE CELL_HORIZ_ALIGN_LEFT "left" +#DEFINE CELL_HORIZ_ALIGN_RIGHT "right" +#DEFINE CELL_HORIZ_ALIGN_CENTER "center" +#DEFINE CELL_VERT_ALIGN_TOP "top" +#DEFINE CELL_VERT_ALIGN_BOTTOM "bottom" +#DEFINE CELL_VERT_ALIGN_CENTER "center" + +#DEFINE UNDERLINE_SINGLE "single" +#DEFINE UNDERLINE_DOUBLE "double" +#DEFINE UNDERLINE_SINGLEACCOUNTING "singleAccounting" +#DEFINE UNDERLINE_DOUBLEACCOUNTING "doubleAccounting" +#DEFINE UNDERLINE_NONE "none" + +#DEFINE FONT_VERTICAL_BASELINE "baseline" +#DEFINE FONT_VERTICAL_SUBSCRIPT "subscript" +#DEFINE FONT_VERTICAL_SUPERSCRIPT "superscript" + +#DEFINE CELL_FORMAT_INTEGER 1 && 0 +#DEFINE CELL_FORMAT_FLOAT 2 && 0.00 +#DEFINE CELL_FORMAT_COMMA_INTEGER 3 && #,##0 +#DEFINE CELL_FORMAT_COMMA_FLOAT 4 && #,##0.00 +#DEFINE CELL_FORMAT_CURRENCY_PAREN 7 && $#,##0.00;($#,##0.00) +#DEFINE CELL_FORMAT_CURRENCY_RED_PAREN 8 && $#,##0.00;[Red]($#,##0.00) +#DEFINE CELL_FORMAT_PERCENT_INTEGER 9 && ###% +#DEFINE CELL_FORMAT_PERCENT_FLOAT 10 && ###.00% +#DEFINE CELL_FORMAT_EXPONENT 11 && 0.00E+00 +#DEFINE CELL_FORMAT_FRACTION_1 12 && # ?/? +#DEFINE CELL_FORMAT_FRACTION_2 13 && # ??/?? +#DEFINE CELL_FORMAT_DATE_MMDDYY 14 && mm-dd-yy +#DEFINE CELL_FORMAT_DATE_DMMMYY 15 && d-mmm-yy +#DEFINE CELL_FORMAT_DATE_DMMM 16 && d-mmm +#DEFINE CELL_FORMAT_DATE_MMMYY 17 && mmm-yy +#DEFINE CELL_FORMAT_TIME_HMMAMPM 18 && h:mm AM/PM +#DEFINE CELL_FORMAT_TIME_HMMSSAMPM 19 && h:mm:ss AM/PM +#DEFINE CELL_FORMAT_TIME_HMM 20 && h:mm +#DEFINE CELL_FORMAT_TIME_HMMSS 21 && h:mm:ss +#DEFINE CELL_FORMAT_DATETIME_MDYYHMM 22 && m/d/yy h:mm +#DEFINE CELL_FORMAT_DATETIME_DDMMMYYYY_TTAM 29 && [$-409]dd/mmm/yyyy\ h:mm\ AM/PM;@ +#DEFINE CELL_FORMAT_DATETIME_DDMMMYYYY_TT24 30 && dd/mmm/yyyy\ h:mm;@ +#DEFINE CELL_FORMAT_DATETIME_MMMDDYYYY_TTAM 31 && [$-409]mmm\ d\,\ yyyy\ h:mm\ AM/PM;@ +#DEFINE CELL_FORMAT_DATETIME_MMMDDYYYY_TT24 32 && [$-409]mmm\ d\,\ yyyy\ h:mm;@ +#DEFINE CELL_FORMAT_DATETIME_MDYY_TTAM 33 && m/d/yy\ h:mm\ AM/PM;@ +#DEFINE CELL_FORMAT_DATETIME_MDYY_TT24 34 && m/d/yy\ h:mm;@ +#DEFINE CELL_FORMAT_COMMA_INTEGER_PAREN 37 && #,##0;(#,##0) +#DEFINE CELL_FORMAT_COMMA_INTEGER_RED_PAREN 38 && #,##0;[Red](#,##0) +#DEFINE CELL_FORMAT_COMMA_FLOAT_PAREN 39 && #,##0.00;(#,##0.00) +#DEFINE CELL_FORMAT_COMMA_FLOAT_RED_PAREN 40 && #,##0.00;[Red](#,##0.00) +#DEFINE CELL_FORMAT_TIME_MMSS 45 && mm:ss +#DEFINE CELL_FORMAT_TIME_H_MMSS 46 && [h]:mm:ss +#DEFINE CELL_FORMAT_CURRENCY_RED 901 && $#,##0.00;[Red]$#,##0.00 +#DEFINE CELL_FORMAT_ACC_CURR_POUNDS 902 && Accounting British Pounds, £#,##0.00 +#DEFINE CELL_FORMAT_ACC_CURR_EURO 903 && Accounting Euro, €#,##0.00 +#DEFINE CELL_FORMAT_CURR_POUNDS_RED 904 && British Pounds, £#,##0.00 RED +#DEFINE CELL_FORMAT_CURR_EURO_RED 905 && Euro, €#,##0.00 RED diff --git a/Alte/SmartBill2ROA/changelog_smartbill2roa.txt b/Alte/SmartBill2ROA/changelog_smartbill2roa.txt new file mode 100644 index 0000000..89d1df1 --- /dev/null +++ b/Alte/SmartBill2ROA/changelog_smartbill2roa.txt @@ -0,0 +1,3 @@ +15.05.2025 +v 1.0.10 +Se completeaza contul '708' pentru articolele care contin: 'curier', 'courier', 'transport' \ No newline at end of file diff --git a/Alte/SmartBill2ROA/citeste.txt b/Alte/SmartBill2ROA/citeste.txt new file mode 100644 index 0000000..88f9702 --- /dev/null +++ b/Alte/SmartBill2ROA/citeste.txt @@ -0,0 +1 @@ +Creeaza fisierul facturi_roa.xlsx din export SmartBill facturi in format saga si facturi excel, pentru import in ROACONT \ No newline at end of file diff --git a/Alte/SmartBill2ROA/import_facturi.prg b/Alte/SmartBill2ROA/import_facturi.prg new file mode 100644 index 0000000..61bb8cd --- /dev/null +++ b/Alte/SmartBill2ROA/import_facturi.prg @@ -0,0 +1,306 @@ +*!* 11.12.2018 +*!* am folosit o schema XSD la importul din xml facturi saga + +Set Century On +Set Ansi On +Set Exact On +Set Deleted On +Set Date Dmy +Set Safety Off +Set Exclusive Off +Close Databases All +Set Default To Justpath(Sys(16,0)) +SET PATH TO 'd:\roa\roacont\comun\programe;' + ; + 'd:\roa\roacont\comun\utile\excel;' ADDITIVE + +SET PROCEDURE TO regex.prg ADDITIVE +Set Procedure To importfromxlsx.prg Additive +Set Classlib To vfpxworkbookxlsx.vcx Additive + +_Screen.Caption = "SmartBill2ROA" + +Messagebox('Pentru import din SmartBill sunt necesare fisierele: ' + Chr(13) + Chr(10) + ; + '1. facturi export saga (format xml) ex: F_CUI_multiple_zz.ll.aaaa.xml' + Chr(13) + Chr(10) + Chr(13) + Chr(10) + ; + '2. facturi export format xlsx ex: Facturi_zz_ll_aaaa.xlsx' + Chr(13) + Chr(10) + ; + '* Primul rand din fisierul xlsx trebuie sa fie completat cu denumirile coloanelor',0+64,_Screen.Caption) + + +***************************************************************** +* xml saga - nu are judet/localitate pentru clienti +lcFileFacturi = Getfile("xml","Facturi SAGA","Alege", 0, "Alege fisierul xml cu exportul de facturi in format SAGA") && "E:\pass\F_RO16148853_multiple_01.08.2018.xml" +If Empty(m.lcFileFacturi) + Return +Endif +If Lower(Justext(m.lcFileFacturi)) <> 'xml' + Messagebox('Fisierul trebuie sa fie de tip xml!',0+48,_Screen.Caption) + Return +Endif + +lcFileFacturiXlsx = Getfile("xlsx","Facturi excel","Alege", 0, "Alege fisierul xlsx cu exportul de facturi in format excel") && 'e:\pass\Facturi_12_09_2018.xlsx' +If Empty(m.lcFileFacturiXlsx) + Return +Endif +If Lower(Justext(m.lcFileFacturiXlsx)) <> 'xlsx' + Messagebox('Fisierul trebuie sa fie de tip xlsx!',0+48,_Screen.Caption) + Return +Endif +***************************************************************** + +*!* lcFileClienti = 'e:\pass\cli_11_09_2018.xml' +lcText = Filetostr(m.lcFileFacturi) + +* ANTETE +lcAntete = "" +lnAntete = Occurs("", Lower(m.lcText)) +For m.lnAntet = 1 To m.lnAntete + lcAntet = Strextract(m.lcText, "", "", lnAntet,1+4) + lcAntete = m.lcAntete + lcAntet + Chr(13) + Chr(10) +Endfor + +lcAntete = "" + m.lcAntete + "" + +Xmltocursor(m.lcAntete,"cAntetTemp") +Select Cast(0 As I) As nAntet, * From cAntetTemp Into Cursor cAntet Readwrite +Use In (Select('cAntetTemp')) +Replace All nAntet With Recno() In cAntet + + +*********** +* Detalii +create cursor cDetalii ; + (NANTET I, ; + CANTITATE N(10,3), ; + CODARTICOLCLIENT C(20), ; + CODARTICOLFURNIZOR C(20), ; + CODBARE C(20), ; + DESCRIERE C(100), ; + GESTIUNE C(20), ; + INFORMATIISUPLIMENTARE C(100), ; + LINIENRCRT I, ; + PRET N(20,4), ; + PROCTVA N(5,2), ; + UM C(10), ; + VALOARE N(20,4), ; + TVA N(20,4)) + +TEXT TO lcXSD NOSHOW + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +ENDTEXT + +lcDetalii = "" +lnDetalii = Occurs("", Lower(m.lcText)) +For m.lnDetaliu = 1 To m.lnDetalii + lcDetaliu = Strextract(m.lcText, "", "", lnDetaliu,1+4) + lcDetaliu = STRTRAN(m.lcDetaliu, "", "" + CHR(13) + CHR(10) + m.lcXSD + CHR(13) + CHR(10),1,1,1) && adaug schema XSD + lcDetaliu = STRTRAN(m.lcDetaliu, "", "",1,1,1) && modific tag-ul de sfarsit tot cu litere mici + Xmltocursor(m.lcDetaliu,"cDetaliu") + Select m.lnDetaliu As nAntet, * From cDetaliu Into Cursor cDetaliiTemp Readwrite + Select cDetalii + Append From Dbf('cDetaliiTemp') + + Use In (Select("cDetaliu")) + Use In (Select("cDetaliiTemp")) + +Endfor + +Select Padr(Upper(Alltrim(a.clientadresa)), 250, ' ') As adresa, a.clientbanca As banca, Padr(Strtran(Upper(a.clientcif), '-', ''), 20, ' ') As cod_fiscal, a.clientiban As cont_banca, a.clientnrregcom As reg_com, Upper(a.clientnume) As denumire, Ctod(a.facturadata) As dataact, a.facturanumar As nrfact, Ctod(a.facturascadenta) As datascad, ; + ROUND(b.cantitate,3) As cantitate, Upper(b.descriere) As articol, b.proctva as proctva, ; + ROUND(b.valoare,2) As valftva, ; + ROUND(b.tva,2) As valtva, ; + CAST(0 as N(20,2)) as valctva, ; + UPPER(a.facturatvaincasare) As tvaincasare, Upper(a.facturataxareinversa) As taxareinversa ; + From cAntet a Left Join cDetalii b On a.nAntet = b.nAntet ; + Into Cursor cFacturiSaga READWRITE + + UPDATE cFacturiSaga SET valctva = valftva + valtva + +Use In (Select('cAntet')) +Use In (Select('cDetalii')) + +********* +* Clienti +* cod, denumire, cod_fiscal, reg_com, tara, judet, adresa, cont_banca, banca, tel, email, discount, informatii +* "cod","Elena Tomescu","-","reg_com","RO","B","Loc. Bucuresti,Calea Serban Voda nr 133 Corp A , etaj 1, receptie Provident, Cod Postal 40204", "cont_banca", "banca", "tel", "email", "discount", "informatii" +* Xmltocursor(m.lcFileClienti,'cClienti',512) + +* Import first sheet + +importfromxlsx(m.lcFileFacturiXlsx,2,'sheet 1',.T.,.T.,1,'facturitemp') + +*!* * sunt fisiere doar cu (valoaretotala), altele cu (valoarefaratva, valoaretva, valoaretotala) +*!* IF TYPE('facturitemp.valoarefaratva') <> 'U' +*!* Select Padr(Upper(client), 100, ' ') As denumire, Padr(Strtran(Upper(cif), '-', ''), 20, ' ') As cod_fiscal, Padr(Upper(Alltrim(adresa)), 250, ' ') As adresa, Padr(Alltrim(factura), 20, ' ') As nrfact, Ctod(Alltrim(dataemiterii)) As datafact, Ctod(Alltrim(datascadentei)) As datascad, ; +*!* Round(VAL(TRANSFORM(valoarefaratva)), 2) As valftva, ; +*!* Round(VAL(TRANSFORM(valoaretva)), 2) As valtva, ; +*!* Round(VAL(TRANSFORM(valoaretotala)), 2) As valctva ; +*!* From facturitemp ; +*!* Into Cursor cFacturiXls +*!* ELSE +*!* Select Padr(Upper(client), 100, ' ') As denumire, Padr(Strtran(Upper(cif), '-', ''), 20, ' ') As cod_fiscal, Padr(Upper(Alltrim(adresa)), 250, ' ') As adresa, Padr(Alltrim(factura), 20, ' ') As nrfact, Ctod(Alltrim(dataemiterii)) As datafact, Ctod(Alltrim(datascadentei)) As datascad, ; +*!* 0 As valftva, ; +*!* 0 As valtva, ; +*!* Round(VAL(TRANSFORM(valoaretotala)), 2) As valctva ; +*!* From facturitemp ; +*!* Into Cursor cFacturiXls +*!* ENDIF + +* Nu am nevoie de valori din fisierul facturitemp +Select Padr(Upper(client), 100, ' ') As denumire, Padr(Strtran(Upper(cif), '-', ''), 20, ' ') As cod_fiscal, Padr(Upper(Alltrim(adresa)), 250, ' ') As adresa, ; + Padr(Alltrim(factura), 50, ' ') As nrfact, Ctod(Alltrim(dataemiterii)) As datafact, Ctod(Alltrim(datascadentei)) As datascad ; + From facturitemp ; + Into Cursor cFacturiXls + +Use In (Select('facturitemp')) + + +*!* lcFile = 'e:\pass\Vanzari_Produse_12_09_2018.xlsx' +*!* importfromxlsx(m.lcFile,2,'sheet 1',.T.,.T.,1,'vanzari') + +*!* SELECT UPPER(produs) as articol, PADR(UPPER(client), 100, ' ') as denumire, PADR(STRTRAN(UPPER(cifclient), '-', ''), 20, ' ') as cod_fiscal, PADR(UPPER(ALLTRIM(judetclient)), 100, ' ') as judet, PADR(ALLTRIM(document), 20, ' ') as nrfact, CTOD(ALLTRIM(data)) as datafact, ROUND(valoarefaratva, 2) as valftva, ROUND(valoarecutva,2)-ROUND(valoarefaratva, 2) as valtva, ROUND(valoarecutva, 2) as valctva FROM vanzari INTO CURSOR cVanzarix + +Select a.articol, a.denumire, a.cod_fiscal, a.reg_com, a.nrfact, b.adresa, SPACE(20) as serie_act, CAST(0 as N(14)) As nract, a.dataact, a.datascad, a.proctva, a.valftva, a.valtva, a.valctva, '707' As cont7xx, '' As acont7xx, '' As acont4111, Iif(a.tvaincasare = 'DA', '4428', '4427') As cont442x, Iif(a.tvaincasare = 'DA', '2', ' ') As acont442x, ; + 'NU' As incasat, '' As casa, '' As cont5xx, '' As acont5xx, ; + a.tvaincasare, a.taxareinversa ; + FROM cFacturiSaga a Left Join cFacturiXls b On a.nrfact = b.nrfact ; + ORDER By a.dataact, a.nrfact ; + INTO Cursor cFacturi Readwrite + +* nract = ultime +SELECT cFacturi +SCAN + lcNrAct = Alltrim(Right(Alltrim(GetRegExp(ALLTRIM(nrfact), "[0-9]+$",1)),14)) + lnNrAct = Int(Val(m.lcNrAct)) + lcSerieAct = ALLTRIM(STRTRAN(nrfact, m.lcNrAct, '',1,1,1)) + REPLACE serie_act WITH m.lcSerieAct, nract WITH m.lnNrAct +ENDSCAN + + +USE IN (SELECT('cFacturiSaga')) +USE IN (SELECT('cFacturiXls')) + +Update cFacturi Set datascad = dataact Where Empty(datascad) +Update cFacturi Set cont7xx = '704' Where 'GRAVURA'$articol +Update cFacturi Set cont7xx = '708' Where 'CURIER'$articol OR 'COURIER'$articol OR 'TRANSPORT'$articol +Update cFacturi Set cont7xx = '667' Where 'DISCOUNT'$articol +Update cFacturi Set cont7xx = '419' Where 'GIFT CARD'$articol +*lcTable = ADDBS(JUSTPATH(m.lcFile)) + 'facturi.dbf' +Select denumire, cod_fiscal, reg_com, adresa, serie_act, nract, dataact, datascad, proctva, cont7xx, acont7xx, acont4111, cont442x, acont442x, incasat, casa, cont5xx, acont5xx, tvaincasare, taxareinversa,; + SUM(valftva) As valftva, Sum(valtva) As valtva ; + GROUP By denumire, cod_fiscal, reg_com, adresa, serie_act, nract, dataact, datascad, proctva, cont7xx, acont7xx, acont4111, cont442x, acont442x, incasat, casa, cont5xx, acont5xx, tvaincasare, taxareinversa ; + ORDER By dataact, nract ; + FROM cFacturi Into Cursor Facturi && (m.lcTable) + +USE IN (SELECT('cFacturi')) + +* EXPORT XLSX +lcExcel = Addbs(Justpath(m.lcFileFacturiXlsx)) + 'facturi_roa.xlsx' + +loExcel = Newobject("VFPxWorkbookXLSX", "VFPxWorkbookXLSX.vcx") +loExcel.SaveTabletoWorkbook('facturi', lcExcel, .T., .T., 'Sheet1') +Messagebox('S-a salvat fisierul ' + m.lcExcel + CHR(13) + CHR(10) + 'Lansati ROACONT > Import > Note facturi clienti',0+64, _Screen.Caption) + +USE IN (SELECT('Facturi')) diff --git a/Alte/SmartBill2ROA/vfpxworkbookxlsx.vc2 b/Alte/SmartBill2ROA/vfpxworkbookxlsx.vc2 new file mode 100644 index 0000000..976c2fa --- /dev/null +++ b/Alte/SmartBill2ROA/vfpxworkbookxlsx.vc2 @@ -0,0 +1,10017 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="vfpxworkbookxlsx.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS vfpxworkbookxlsx AS label + *< CLASSDATA: Baseclass="label" Timestamp="" Scale="Pixels" Uniqueid="" /> + + #INCLUDE "vfpxworkbookxlsx.h" + * + *m: addclassdefinednumericformats && Adds pre-defined numeric cell formats + *m: addcustomnumericformat && Adds a new custom defined numeric format + *m: addindexcolor && Adds a new indexed color definition + *m: addinlinefontobject && Adds an object for setting the inline formatting of cell text + *m: addmrucolor && Adds a custom defined MRU color to the workbook + *m: addnamedrange && Adds a name range to the workbook + *m: addnumericformat && Adds a numeric format expression to be used + *m: addsheet && Adds a new sheet to the workbook + *m: addstringvalue && Adds a string value to the internal cursor + *m: addstyleborders && Adds to the cell style a border definition + *m: addstylefill && Adds to the cell style a fill definition + *m: addstylefont && Adds to the cell style a font definition + *m: addstylehorizalignment && Adds to the cell style horizontal cell alignment + *m: addstyleindent && Adds to the style indent definition + *m: addstylenumericformat && Adds to the style definition numeric format + *m: addstyletextrotation && Adds to the style definition text rotation + *m: addstylevertalignment && Adds to the cell style vertical cell alignment + *m: addstylewordwrap && Adds to the style definition word wrap + *m: cellformatpainter && Copies the formatting of a source cell to other cells + *m: cellrefasciitoindex && Converts a 'AA444' cell reference to the row and column index values + *m: clearcellvalidation && Clears/deletes the named range from the workbook + *m: clearcellvalue && Clears the cell value + *m: columnasciitoindex && Converts Excel Ascii column value to index value + *m: columnindextoascii && Gets the column ASCII code for the column index + *m: convertcolortohex && Converts a color value (integer) to Hex representation + *m: converthexstringtonumeric && ConvertHexStringToNumeric + *m: convertpixelstoexcelunits && Converts Pixel measurement to Excel measurement + *m: createexcelfile && Creates the Excel file from the components + *m: createformatstyle && Creates a new format style definition + *m: createinlineformattext && Creates an in-line text formatted definition + *m: createworkbook && Creates a new workbook object + *m: createworkbookex && Internal method for creating a workbook + *m: createworkingcursors && Creates the working cursors for worksheet definitions + *m: createworkingdirectories && Creates the working directories for the XML files + *m: debugcursorstofile && Debugging use for saving the internal cursors to a text file + *m: debugoutput && Limited functions for debugging + *m: debug_assign + *m: declaredll && Declares the required support Win32 API + *m: deleteallworkbooks && Deletes all workbooks + *m: deletesheet && Deletes the sheet from the Workbook + *m: deleteworkbook && Deletes the selected workbook + *m: demo && Demo for the features of this class + *m: derivesheetname && Derives the sheet name + *m: destroyworkingcursors && Destroys the working cursors + *m: documentation && Documentation of the methods and properties for this class + *m: freezepanes && Freezes the panes of the sheet + *m: getalphanumericsplit && Returns the position of the alpha and numeric split + *m: getbordersrecord && Gets the border record; returns True if found, or False in not found + *m: getcellalignment && Returns the cell alignment + *m: getcellborders && Returns the cell border info + *m: getcelldatatype && Returns the data type for the selected cell + *m: getcellfill && Returns the fill info for the cell + *m: getcellfont && Returns the cell font settings + *m: getcellformula && Returns the cell formula expression + *m: getcellformulafromxml && Gets the cell formula from the XML node + *m: getcellindent && Returns the cell indentation + *m: getcellnumberformat && Returns the format code for the selected cell + *m: getcellnumberformattext && Returns the selected cell numeric format as text + *m: getcellrecord && Positions to the xl_cells record; returns true if found, or false if not found + *m: getcellstyle && Gets the cell style value + *m: getcelltextrotation && Gets the cell text rotation value + *m: getcellvalidation && Returns the cell validation settings + *m: getcellvalue && Returns the value of the cell + *m: getcellwordwrap && Returns the cell word wrap setting + *m: getcellxfsid && Returns the Cell XfsId value + *m: getcellxfsrecord && Positions the record pointer to xl_cellxfs record; returns true if found, or false if not found + *m: getchecksum && Returns the checksum the string + *m: getchildnodecount && Returns the number of child nodes + *m: getchildnodeelement && Returns the selected child node + *m: getcolumnincolrowpair && Returns the column (Ascii value) in a ColRow pair; i.e., returns A from A6 reference + *m: getcolumnwidth && Returns the column width + *m: getcolwidthkeyexpr && Gets the key expression for c_colwidths + *m: getcursorrecord && Gets the specified xl_cursor record; returns true if found, false if not found + *m: getcustomnumericformat && Returns the format code for the specified custom numeric format + *m: getcustompapersize && Gets the values for the custom paper size + *m: getformatkeyexpr && Gets the key expression for t_format + *m: getheaderfooterkeyexpr && Gets the key expression for the header footer table record + *m: getinlinefontdefinition && Returns the inline formatting definition of cell text for each character group + *m: getlastcolumninrow && Returns the last column index in the row + *m: getlastrownumber && Returns the last row number in the sheet + *m: getmaxcolumnnumber && Returns the max column number for a sheet + *m: getnextid && Gets the next sequential Id value + *m: getnodeattributevalue && Returns the attribute value + *m: getnodecount && Returns the number of nodes to be processed + *m: getnodeelement && Gets the string content for the node element + *m: getnodeelementvalue && Gets the value assigned to the node element + *m: getnumberofsheets && Returns the number of sheets for the given workbook + *m: getpapersize && Gets the paper size for the selected sheet + *m: getprintorientation && Gets the print orientation for the sheet output + *m: getrelationshipfilename && Gets the file name for the R:Id value in the relationships XML + *m: getrgbvalues && Gets the specified RGB color value + *m: getrowheightkeyexpr && Gets the key expression for the c_rowheights + *m: getrowincolrowpair && REturns the row (integer value) in a ColRow pair; i.e., return 6 from A6 reference + *m: getrowmaxcolumn && Returns the selected row maximum column + *m: getsharedstringid && Gets the Shared Strings Id value for the cell text + *m: getsheetname && Gets the sheet name + *m: getsheetrecord && Positions the record in xl_sheets; returns true if record found, or false if not found + *m: getsheetrowvalues && Returns the cell values for the given row + *m: getsheetscale && Gets the sheet printing scale + *m: getstringrecord && Positions the record pointer to the selected string record + *m: getstringxml && Returns a converted string from XML to text + *m: getvalidation && Returns the validation definition + *m: getvalidationlist && Returns a list of validations for the workbook/sheet + *m: getworkbook && Gets the workbook Id from the name + *m: getworkbookfilename && Gets the file name for the workbook index + *m: getworkbooksheets && Returns the workbook sheets + *m: getxmlheaderfootertext && Returns a XML formatted string for the header and footer text + *m: getxmlstring && Gets the string as an XML formatted string + *m: initalizeidvalues && Initializes the internal Id values + *m: insertcell && Inserts a new cell into the sheet + *m: insertcolumn && Inserts a new column into the sheet + *m: insertrow && Inserts a new row into the sheet + *m: iscellformula && Returns True if cell contains a formula + *m: iscellreferenceinvalid && Checks if the cell reference is invalid (outside of limits) + *m: isformatstyledefined && Determines if the format is defined as a style + *m: isvalidborderstyle && Validates the border style value + *m: mergecells && Merges cells together + *m: ondestroy && Called by the Destroy() event - user implementation + *m: oninit && User code for Init() Event + *m: onshowerrormessage && Event for displaying an error message to the user + *m: onshowstatusmessage && Event for displaying a wait message to the user + *m: opencreatedxlsxfile && Opens the XLSX file via Win32 API default program + *m: openxlsxworkbook && Opens the passed Xlsx workbook and loads the internal cursors with the content + *m: parsestring && Parses a string based on a specified delimiter + *m: readcellvalueformat && Reads the cell value and format for a sheet + *m: readexternalrefxml && Reads the External References file + *m: readsharedstringsxml && Reads the sharedstrings.xml for opening workbooks + *m: readsheetxml && Reads the sheet.xml for opening a workbook + *m: readstylesxml && Reads the styles.xml file for opening a workbook + *m: removeworkingdirectories && Removes the working directories + *m: renamesheet && Renames the selected sheet + *m: resetcolumnwidth && Resets the column width to default + *m: saveasutf8 && Saves the file as a UTF-8 + *m: savegridtoworkbook && Saves the selected grid to a workbook + *m: savegridtoworkbookex && Saves the passed grid to a workbook without adding the content to the internal cursors + *m: savemultigridtoworkbookex && Same as SaveGridToWorkbookEx() method but handles multiple grids being passed + *m: savetabletoworkbook && Saves the table passed (alias) as a workbook sheet + *m: savetabletoworkbookex && Creates a new workbook from a table; direct write to XLSX file without loading internal cursors + *m: saveworkbook && Saves the selected workbook as an XLSX file + *m: saveworkbookas && Saves the selected workbook with the new name + *m: setcellalignment && Sets the cell horizontal and vertical alignments + *m: setcellalignmentrange && Sets the cell alignment for a range of cells + *m: setcellborder + *m: setcellborderex + *m: setcellborderrange && Sets the cell border for a range of cells + *m: setcellfill && Sets the fill color for the cell + *m: setcellfillrange && Sets the fill for a range of cells + *m: setcellfont && Sets the selected cell font format + *m: setcellfontrange && Sets the cell font format for a range of cells + *m: setcellformula && Sets the cell formula expression + *m: setcellindent && Sets the cell indentation value + *m: setcellinlineformattext && Saves the in-line format definition to a cell value + *m: setcellnumberdecimals && Sets the number of decimals to display + *m: setcellnumberformat && Sets the cell number format + *m: setcellnumberformatrange && Sets the number format for a range of cells + *m: setcellstyle && Sets the cell style + *m: setcellstylerange && Sets the cell style for a range of cells + *m: setcelltextrotation && Sets the cell text rotation value + *m: setcellvalidation && Adds a cell validation + *m: setcellvalue && Sets the cell value + *m: setcellwordwrap && Sets the cell word-wrapping value + *m: setcellwordwraprange && Sets the word wrap for a range of cells + *m: setcolumnbestfit && Set the column to best fit + *m: setcolumnwidth && Sets the column width + *m: setcolumnwidthrange && Sets the column width for a range of columns + *m: setcustompapersize && Sets the paper size based on custom dimensions + *m: setdefaultborder && Sets the default border style for the workbook + *m: setdefaultfill && Sets the default fill for the workbook + *m: setdefaultfont && Sets the default font for the workbook + *m: setheaderfootersetup && Sets the header and footer setup for the sheet + *m: setheaderfootertext && Sets the header/footer text for the sheet + *m: setlastid && Sets the last used Id Value for strings, borders, fills, fonts, and cellxfs + *m: setpapersize && Sets the paper size for the selected sheet + *m: setprintfittoheight && Number of vertical pages to fit on for printing + *m: setprintfittowidth && Number of horizontal pages to fit on for printing + *m: setprintorientation && Sets the printer orientation for sheet output + *m: setrowheight && Sets the row height + *m: setrowheightrange && Sets the row height for a range of rows + *m: setrowmaxcolumn && Sets the value for the maximum cell column in a row + *m: setsheetmargins && Sets the sheet margin values + *m: setsheetscale && Sets the print scale; must be between 10 and 400; i.e. 10=10%, 100=100%, etc. + *m: setsheetvisibility && Sets the sheet visibility + *m: ttoc3 && Equlivalent of TTOC() function for pre VFP9 support + *m: unfreezepanes && Removes the pane freeze from the sheet + *m: unmergedcells && Unmerges merged cells + *m: writeasinlineformattedstring && Writes the string as formatted in-line + *m: writeasinlinestring && Writes the value as an inlineStr value + *m: writedirectcellformattedvalue && WriteDirectCellFormattedValue + *m: writedirectcellvalue && Writes the cell value directly to the sheets xml + *m: writedirectxmls && Writes the workbook XMLs for direct table/grid to workbook output + *m: writerelationshipsxml && Writes the relationships xml file + *m: writesheetxmls && Writes the Sheet XML files + *m: writestringsxml && Writes the sharedStrings XML + *m: writestylesxml && Writes the styles.xml support file + *m: writesupportxmls && Writes the [Content_Types].xml, .rels, core.xml, workbook.xml.rels and app.xml files + *m: writeworkbookxml && Writes the workbook XML + *p: autotrimsheetname && Indicates to auto-trim sheet name to max length ***Boolean + *p: codepage && CodePage to use for the Strings cursor + *p: companyname && Company Name + *p: creatorname && Creator Name + *p: debug && Sets debugging mode ***Boolean + *p: declarewinapi && Flag to execute the DeclareDLL method in the Init() ***Boolean + *p: defaultfont && Workbook Default Font + *p: defaultfontsize && Default font size ***Integer + *p: defaultsheetname && Default sheet name (language specific) + *p: errorlevelid && Error level Id ***Integer + *p: excelxlsxrelease && Release version of Class ***Integer + *p: oxdom && XML DOM Object + *p: savecurrencyasnumeric && Flag to save a currency value as a numeric rather than currency in the spreadsheet; will convert the value to four decimal places ***Boolean + *p: subject && Subject of Workbook (stored in properties) + *p: title && Title of workbook (stored in properties) + *p: truefalsevalue && The boolean value as displayed in Excel delimited by a pipe symbol + *p: username && User Name + *a: lastborderid[1,2] && Stores the last used border Id for a workbook + *a: lastcellxfsid[1,2] && Stores the last used CellXfs Id for a workbook + *a: lastfillid[1,2] && Stores the last used fill Id for a workbook + *a: lastfontid[1,2] && Stores the last used font Id for a workbook + *a: lastindexcolorid[1,2] && Last used IndexedColor Id + *a: lastmrucolorid[1,2] && Last used mruColor Id value + *a: lastnumfmtid[1,2] && Last used NumFmt Id + *a: lastrelationid[1,2] && Last used Relationship Id + *a: lastsheetid[1,2] && Last used sheet Id + *a: laststringid[1,2] && Stores the last used string Id for a workbook + *a: stringndx[1,0] && Returns the next string index value by workbook ***Integer + *p: _memberdata && XML Metadata for customizable properties + * + + PROTECTED Destroy,Init + * + AutoSize = .T. + autotrimsheetname = .T. + Caption = "clsVFPxWorkbookXLSX" + codepage = 0 + companyname = VFPxWorkbookXLSX + creatorname = VFPxWorkbookXLSX + debug = .F. + declarewinapi = .T. + defaultfont = Calibri + defaultfontsize = 11 + defaultsheetname = Sheet + errorlevelid = 0 + excelxlsxrelease = 31 + Height = 17 + Name = "vfpxworkbookxlsx" + oxdom = + savecurrencyasnumeric = .F. + subject = + title = + truefalsevalue = Yes|No + username = VFPxWorkbookXLSX + Visible = .F. + Width = 129 + _memberdata = + + + + + + + + + + + + + + + + + + + + + * + + PROTECTED PROCEDURE addclassdefinednumericformats && Adds pre-defined numeric cell formats + LPARAMETERS tnWB, tnFormatId + LOCAL llAdded, lcTextFormat, lcXMLFormat + DO CASE + CASE tnFormatId = CELL_FORMAT_CURRENCY_RED + lcTextFormat = '"$"#,##0.00;[Red]("$"#,##0.00)' + lcXMLFormat = this.GetXMLString(lcTextFormat) + INSERT INTO xl_numFmts (workbook, id, formatxml, formatcode, applydec) ; + VALUES (tnWB, CELL_FORMAT_CURRENCY_RED, lcXMLFormat, lcTextFormat, False) + llAdded = True + + CASE tnFormatId = CELL_FORMAT_ACC_CURR_POUNDS + lcXMLFormat = '_-[$£-809]* #,##0.00_-;-[$£-809]* #,##0.00_-;_-[$£-809]* "-"??_-;_-@_-' + lcTextFormat = '"£"#,##0.00;[Red]("£"#,##0.00)' + INSERT INTO xl_numFmts (workbook, id, formatxml, formatcode, applydec) ; + VALUES (tnWB, CELL_FORMAT_ACC_CURR_POUNDS, lcXMLFormat, lcTextFormat, False) + llAdded = True + + CASE tnFormatId = CELL_FORMAT_ACC_CURR_EURO + lcXMLFormat = '_-[$€-2]* .00_-;-[$€-2]* .00_-;_-[$€-2]* "-"??_-;_-@_-' + lcTextFormat = '"€"#,##0.00;[Red]("€"#,##0.00)' + INSERT INTO xl_numFmts (workbook, id, formatxml, formatcode, applydec) ; + VALUES (tnWB, CELL_FORMAT_ACC_CURR_EURO, lcXMLFormat, lcTextFormat, False) + llAdded = True + + CASE tnFormatId = CELL_FORMAT_CURR_POUNDS_RED + lcXMLFormat = '[$£-809]#,##0.00;[Red]\-[$£-809]#,##0.00' + lcTextFormat = '"£"#,##0.00;[Red]("£"#,##0.00)' + INSERT INTO xl_numFmts (workbook, id, formatxml, formatcode, applydec) ; + VALUES (tnWB, CELL_FORMAT_CURR_POUNDS_RED, lcXMLFormat, lcTextFormat, False) + llAdded = True + + CASE tnFormatId = CELL_FORMAT_CURR_EURO_RED + lcXMLFormat = '[$€-2]\ #,##0.00_);[Red]\([$€-2]\ #,##0.00\)' + lcTextFormat = '"€"#,##0.00;[Red]("€"#,##0.00)' + INSERT INTO xl_numFmts (workbook, id, formatxml, formatcode, applydec) ; + VALUES (tnWB, CELL_FORMAT_CURR_EURO_RED, lcXMLFormat, lcTextFormat, False) + llAdded = True + + OTHERWISE + llAdded = False + ENDCASE + RETURN llAdded + ENDPROC + + PROCEDURE addcustomnumericformat && Adds a new custom defined numeric format + LPARAMETERS tnWB, tcPosFormat, tcNegFormat, tcZeroFormat, tcTextFormat, tlApplyDec + LOCAL lnId, lcFormatCode, lnNdx, lcSetPoint, lcSeparator + IF VARTYPE(tcPosFormat) != "C" + RETURN 0 + ENDIF + DO CASE + CASE PCOUNT() = 1 + tcNegFormat = "" + tcZeroFormat = "" + tcTextFormat = "" + tlApplyDec = False + + CASE PCOUNT() = 2 + tcZeroFormat = "" + tcTextFormat = "" + tlApplyDec = False + + CASE PCOUNT() = 3 + tcTextFormat = "" + tlApplyDec = False + + CASE PCOUNT() = 4 + tlApplyDec = False + ENDCASE + IF VARTYPE(tcNegFormat) != "C" + tcNegFormat = "" + ENDIF + IF VARTYPE(tcZeroFormat) != "C" + tcZeroFormat = "" + ENDIF + IF VARTYPE(tcTextFormat) != "C" + tcTextFormat = "" + ENDIF + IF OCCURS(";", tcPosFormat) > 0 + RETURN 0 + ENDIF + IF OCCURS(";", tcNegFormat) > 0 + RETURN 0 + ENDIF + IF OCCURS(";", tcZeroFormat) > 0 + RETURN 0 + ENDIF + IF OCCURS(";", tcTextFormat) > 0 + RETURN 0 + ENDIF + *-* If not US standard for separator and decimal point, then change to US standard + lcSetPoint = SET("POINT") + lcSeparator = SET("SEPARATOR") + IF lcSetPoint != "." .OR. lcSeparator != "," + tcPosFormat = CHRTRAN(tcPosFormat, lcSetPoint, TAB) + tcPosFormat = CHRTRAN(tcPosFormat, lcSeparator, CR) + tcPosFormat = CHRTRAN(tcPosFormat, TAB, ".") + tcPosFormat = CHRTRAN(tcPosFormat, CR, ",") + + tcNegFormat = CHRTRAN(tcNegFormat, lcSetPoint, TAB) + tcNegFormat = CHRTRAN(tcNegFormat, lcSeparator, CR) + tcNegFormat = CHRTRAN(tcNegFormat, TAB, ".") + tcNegFormat = CHRTRAN(tcNegFormat, CR, ",") + + tcZeroFormat = CHRTRAN(tcZeroFormat, lcSetPoint, TAB) + tcZeroFormat = CHRTRAN(tcZeroFormat, lcSeparator, CR) + tcZeroFormat = CHRTRAN(tcZeroFormat, TAB, ".") + tcZeroFormat = CHRTRAN(tcZeroFormat, CR, ",") + + tcTextFormat = CHRTRAN(tcTextFormat, lcSetPoint, TAB) + tcTextFormat = CHRTRAN(tcTextFormat, lcSeparator, CR) + tcTextFormat = CHRTRAN(tcTextFormat, TAB, ".") + tcTextFormat = CHRTRAN(tcTextFormat, CR, ",") + ENDIF + *-* Build expression from parts + lcFormatCode = tcPosFormat + IF !EMPTY(tcNegFormat) + lcFormatCode = lcFormatCode + ";" + tcNegFormat + ENDIF + IF !EMPTY(tcZeroFormat) + lcFormatCode = lcFormatCode + ";" + tcZeroFormat + ENDIF + IF !EMPTY(tcTextFormat) + lcFormatCode = lcFormatCode + ";" + tcTextFormat + ENDIF + lnId = this.GetNextId(tnWB, "xl_numfmts") + INSERT INTO xl_numFmts (workbook, id, formatxml, formatcode, applydec) ; + VALUES (tnWB, lnId, this.GetXMLString(lcFormatCode), lcFormatCode, tlApplyDec) + RETURN lnId + ENDPROC + + PROCEDURE addindexcolor && Adds a new indexed color definition + LPARAMETERS tnWB, tnRGBColor + LOCAL lnIndexId, lcHexColor + IF PCOUNT() != 2 .OR. VARTYPE(tnRGBColor) != "N" + RETURN 0 + ENDIF + lcHexColor = this.ConvertColorToHex(tnRGBColor) + IF SEEK(BINTOC(tnWB)+lcHexColor, "xl_ndxcolors", "rgbcolor") + lnIndexId = xl_ndxcolors.indexid + ELSE + lnIndexId = this.GetNextId(tnWB, "xl_ndxcolors") + INSERT INTO xl_ndxcolors (workbook, indexid, rgbcolor) VALUES (tnWB, lnIndexId, lcHexColor) + ENDIF + RETURN lnIndexId + ENDPROC + + PROCEDURE addinlinefontobject && Adds an object for setting the inline formatting of cell text + LPARAMETERS toInline, tnBeg, tnLen, tcFontName, tnFontSize, tnFontColor, tlFontBold, tlFontItalic, tcULine, tlStrkThru, tlSubscript, tlSuperscript + LOCAL loCharacter + IF PCOUNT() < 4 + RETURN .NULL. + ENDIF + IF VARTYPE(toInline) != "O" + RETURN .NULL. + ENDIF + DO CASE + CASE PCOUNT() = 4 + tnFontSize = 10 + tnFontColor = RGB(0,0,0) + tlFontBold = False + tlFontItalic = False + tcULine = UNDERLINE_NONE + tlStrkThru = False + tlSubscript = False + tlSuperscript = False + + CASE PCOUNT() = 5 + tnFontColor = RGB(0,0,0) + tlFontBold = False + tlFontItalic = False + tcULine = UNDERLINE_NONE + tlStrkThru = False + tlSubscript = False + tlSuperscript = False + + CASE PCOUNT() = 6 + tlFontBold = False + tlFontItalic = False + tcULine = UNDERLINE_NONE + tlStrkThru = False + tlSubscript = False + tlSuperscript = False + + CASE PCOUNT() = 7 + tlFontItalic = False + tcULine = UNDERLINE_NONE + tlStrkThru = False + tlSubscript = False + tlSuperscript = False + + CASE PCOUNT() = 8 + tcULine = UNDERLINE_NONE + tlStrkThru = False + tlSubscript = False + tlSuperscript = False + + CASE PCOUNT() = 9 + tlStrkThru = False + tlSubscript = False + tlSuperscript = False + + CASE PCOUNT() = 10 + tlSubscript = False + tlSuperscript = False + + CASE PCOUNT() = 11 + tlSuperscript = False + ENDCASE + loCharacter = CREATEOBJECT("Empty") + ADDPROPERTY(loCharacter, "BegPos", tnBeg) + ADDPROPERTY(loCharacter, "Length", tnLen) + ADDPROPERTY(loCharacter, "FontName", tcFontName) + ADDPROPERTY(loCharacter, "FontSize", tnFontSize) + ADDPROPERTY(loCharacter, "FontBold", tlFontBold) + ADDPROPERTY(loCharacter, "FontItalic", tlFontItalic) + ADDPROPERTY(loCharacter, "FontColor", tnFontColor) + ADDPROPERTY(loCharacter, "Underline", tcULine) + ADDPROPERTY(loCharacter, "StrikeThru", tlStrkThru) + ADDPROPERTY(loCharacter, "SubScript", tlSubscript) + ADDPROPERTY(loCharacter, "SuperScript", tlSuperscript) + + toInline.Count = toInline.Count + 1 + DIMENSION toInline.Characters[toInline.Count] + toInline.Characters[toInline.Count] = loCharacter + + RETURN toInline + ENDPROC + + PROCEDURE addmrucolor && Adds a custom defined MRU color to the workbook + LPARAMETERS tnWB, tnRGBColor + LOCAL lnIndexId, lcHexColor + IF PCOUNT() != 2 .OR. VARTYPE(tnRGBColor) != "N" + RETURN 0 + ENDIF + lcHexColor = this.ConvertColorToHex(tnRGBColor) + IF SEEK(BINTOC(tnWB)+lcHexColor, "xl_mrucolors", "rgbcolor") + lnIndexId = xl_mrucolors.indexid + ELSE + lnIndexId = this.GetNextId(tnWB, "xl_mrucolors") + INSERT INTO xl_mrucolors (workbook, indexid, rgbcolor) VALUES (tnWB, lnIndexId, lcHexColor) + ENDIF + RETURN lnIndexId + ENDPROC + + PROCEDURE addnamedrange && Adds a name range to the workbook + LPARAMETERS tnWB, tnSheet, tcName, tnScope, tcComment, tnBegRow, tnBegCol, tnEndRow, tnEndCol + LOCAL lcRangeName + IF PCOUNT() < 8 + RETURN "" + ENDIF + IF VARTYPE(tcName) != "C" .OR. LEN(tcName) > 50 + RETURN "" + ENDIF + IF VARTYPE(tnScope) != "N" + tnScope = 0 + ENDIF + IF VARTYPE(tcComment) != "C" + tcComment = "" + ENDIF + IF LEN(tcComment) > 254 + RETURN "" + ENDIF + IF tnBegRow > tnEndRow .OR. tnBegCol > tnEndCol + RETURN "" + ENDIF + lcRangeName = CHRTRAN(ALLTRIM(tcName), " !@#$%^&*()+={}[]|<>,.'?/" + CHR(34), REPLICATE("_", 25)) + IF !ISALPHA(lcRangeName) .AND. !INLIST(LEFT(lcRangeName, 1), "_", "\") + lcRangeName = "_" + lcRangeName + ENDIF + IF SEEK(BINTOC(tnWB), "xl_workbooks", "workbook") .AND. !SEEK(BINTOC(tnWB)+PADL(lcRangeName, 254, " "), "xl_namerange", "wbrname") + INSERT INTO xl_namerange (workbook, sheet, rname, scope, comment, begrow, begcol, endrow, endcol) ; + VALUES (tnWB, tnSheet, lcRangeName, tnScope, tcComment, tnBegRow, tnBegCol, tnEndRow, tnEndCol) + ELSE + lcRangeName = "" + ENDIF + RETURN lcRangeName + ENDPROC + + PROCEDURE addnumericformat && Adds a numeric format expression to be used + LPARAMETERS tnWB, tcFormatCode + LOCAL lcPosCode, lcNegCode, lcZerCode + IF PCOUNT() < 2 + RETURN 0 + ENDIF + IF VARTYPE(tnWB) != "N" .AND. tnWB > 0 + RETURN 0 + ENDIF + IF VARTYPE(tcFormatCode) != "C" + RETURN 0 + ENDIF + lcPosCode = this.ParseString(tcFormatCode, 1, ";") + lcNegCode = this.ParseString(tcFormatCode, 2, ";") + lcZerCode = this.ParseString(tcFormatCode, 3, ";") + RETURN this.AddCustomNumericFormat(tnWB, lcPosCode, lcNegCode, lcZerCode) + ENDPROC + + PROCEDURE addsheet && Adds a new sheet to the workbook + LPARAMETERS tnWB, tcSheetName, tnState + LOCAL lnShId, lnRelId + lnShId = 0 + IF PCOUNT() > 0 .AND. SEEK(BINTOC(tnWB), "xl_workbooks", "workbook") + lnShId = this.GetNextId(tnWB, "xl_sheets") + DO CASE + CASE PCOUNT() = 0 + + CASE PCOUNT() = 1 + tcSheetName = "Sheet" + TRANSFORM(lnShId + 1) && Bug fix identified by Dan Lauer + tnState = VISIBLE_SHEET_STATE + + CASE PCOUNT() = 2 + IF VARTYPE(tcSheetName) != "C" + tcSheetName = "Sheet" + TRANSFORM(lnShId + 1) + ENDIF + tnState = VISIBLE_SHEET_STATE + + OTHERWISE + IF VARTYPE(tcSheetName) != "C" + tcSheetName = "Sheet" + TRANSFORM(lnShId + 1) + ENDIF + IF VARTYPE(tnState) != "N" + tnState = VISIBLE_SHEET_STATE + ENDIF + ENDCASE + IF EMPTY(tcSheetName) + tcSheetName = "Sheet" + TRANSFORM(lnShId + 1) + ENDIF + tcSheetName = CHRTRAN(tcSheetName, ":\/?*", "_____") + IF LEN(tcSheetName) > LIMITS_MAX_SH_NAME + IF this.AutoTrimSheetName + tcSheetName = LEFT(ALLTRIM(tcSheetName), LIMITS_MAX_SH_NAME) + ELSE + this.SetLastId(tnWB, lnShId-1, "xl_sheets") + RETURN 0 + ENDIF + ENDIF + IF SEEK(BINTOC(tnWB)+UPPER(PADR(tcSheetName, LEN(xl_sheets.shname))), "xl_sheets", "shname") && Change recommendation by Doug Hennig + lnShId = 0 + ELSE + INSERT INTO xl_sheets (workbook, sheet, shname, state, mleft, mright, mtop, mbot, mheader, mfooter, shdeleted, xsplit, ysplit, prnorient, ; + papersize, paperwidth, paperheight, scale, fittowidth, fittoheight) ; + VALUES (tnWB, lnShId, tcSheetName, tnState, 0.75, 0.75, 0.75, 0.75, 0.3, 0.3, False, 0, 0, PORTRAIT_PRINT_ORIENTATION, 0, 0, 0, 100, 0, 0) + + lnRelId = this.GetNextId(tnWB, "xl_relationships") + INSERT INTO xl_relationships (workbook, sheet, relid, reltype, target) VALUES (tnWB, lnShId, lnRelId, "worksheet", "worksheets/sheet" + TRANSFORM(lnShId) + ".xml") + ENDIF + ENDIF + RETURN lnShId + ENDPROC + + PROTECTED PROCEDURE addstringvalue && Adds a string value to the internal cursor + LPARAMETERS tnWB, tcString, tlInLine + LOCAL lcStringXml, lnStringId, llPresrvSp, lcCheckSum + IF tlInLine + llPresrvSp = IIF(LEFT(tcString, 1) = " ", True, False) + lcStringXml = this.GetXMLString(tcString) + lnStringId = this.GetNextId(tnWB, "xl_strings") + lcCheckSum = this.GetCheckSum(tcString) + INSERT INTO xl_strings (id, workbook, checksum, stringxml, stringval, presvspace, formatted) ; + VALUES (lnStringId, tnWB, lcCheckSum, lcStringXml, tcString, llPresrvSp, True) + ELSE + IF this.GetStringRecord(tnWB, tcString) .AND. xl_strings.formatted = False + lnStringId = xl_strings.id + ELSE + llPresrvSp = IIF(LEFT(tcString, 1) = " " .OR. RIGHT(tcString, 1) = " ", True, False) + lcStringXml = this.GetXMLString(tcString) + lnStringId = this.GetNextId(tnWB, "xl_strings") + lcCheckSum = this.GetCheckSum(tcString) + INSERT INTO xl_strings (id, workbook, checksum, stringxml, stringval, presvspace, formatted) ; + VALUES (lnStringId, tnWB, lcCheckSum, lcStringXml, tcString, llPresrvSp, False) + ENDIF + ENDIF + RETURN lnStringId + ENDPROC + + PROCEDURE addstyleborders && Adds to the cell style a border definition + LPARAMETERS tnWB, tnCellXfsId, tnBorders, tcStyle, tnColor + LOCAL lnDiagDn, lnDiagUp, lcLStyle, lnLColor, lcRStyle, lnRColor, lcTStyle, lnTColor, lcBStyle, lnBColor + LOCAL lcDStyle, lnDColor, lnBorderId + IF PCOUNT() < 3 + RETURN False + ENDIF + IF SEEK(BINTOC(tnWB)+BINTOC(tnCellXfsId), "xl_cellxfs", "id") + IF VARTYPE(tnBorders) != 'N' .OR. EMPTY(tnBorders) .OR. !BETWEEN(tnBorders, 0, 63) + tnBorders = 0 + ENDIF + IF !this.IsValidBorderStyle(tcStyle) + tcStyle = BORDER_STYLE_NONE + ENDIF + IF VARTYPE(tnColor) != 'N' .OR. !BETWEEN(tnColor, 0, RGB(255,255,255)) .OR. EMPTY(tnColor) + tnColor = RGB(0, 0, 0) + ENDIF + STORE 0 TO lnDiagDn, lnDiagUp + STORE RGB(0,0,0) TO lnLColor, lnRColor, lnTColor, lnBColor, lnDColor + STORE BORDER_STYLE_NONE TO lcLStyle, lcRStyle, lcTStyle, lcBStyle, lcDStyle + IF BITTEST(tnBorders, 0) + lcLStyle = tcStyle + lnLColor = tnColor + ENDIF + IF BITTEST(tnBorders, 1) + lcRStyle = tcStyle + lnRColor = tnColor + ENDIF + IF BITTEST(tnBorders, 2) + lcTStyle = tcStyle + lnTColor = tnColor + ENDIF + IF BITTEST(tnBorders, 3) + lcBStyle = tcStyle + lnBColor = tnColor + ENDIF + IF BITTEST(tnBorders, 4) + lcDStyle = tcStyle + lnDColor = tnColor + lnDiagDn = 1 + ENDIF + IF BITTEST(tnBorders, 5) + lcDStyle = tcStyle + lnDColor = tnColor + lnDiagUp = 1 + ENDIF + IF this.GetBordersRecord(tnWB, lcLStyle, lnLColor, lcRStyle, lnRColor, lcTStyle, lnTColor, lcBStyle, lnBColor, lcDStyle, lnDColor, lnDiagDn, lnDiagUp) + lnBorderId = xl_borders.id + ELSE + lnBorderId = this.GetNextId(tnWB, 'xl_borders') + INSERT INTO xl_borders (workbook, id, lstyle, lcolor, rstyle, rcolor, tstyle, tcolor, bstyle, bcolor, dstyle, dcolor, diagdn, diagup) ; + VALUES (tnWB, lnBorderId, lcLStyle, lnLColor, lcRStyle, lnRColor, lcTStyle, lnTColor, lcBStyle, lnBColor, lcDStyle, lnDColor, lnDiagDn, lnDiagUp) + ENDIF + *-* Set the border id to the style definition + REPLACE xl_cellxfs.borderid WITH lnBorderId IN xl_cellxfs + RETURN True + ELSE + RETURN False + ENDIF + ENDPROC + + PROCEDURE addstylefill && Adds to the cell style a fill definition + LPARAMETERS tnWB, tnCellXfsId, tnFColor, tnBColor, tcPatternType + LOCAL lnFillId, lnFIndex, lnBIndex + DO CASE + CASE PCOUNT() < 3 + RETURN False + + CASE PCOUNT() = 3 + tnBColor = tnFColor + tcPatternType = FILL_STYLE_SOLID + + CASE PCOUNT() = 4 + tcPatternType = FILL_STYLE_SOLID + ENDCASE + IF SEEK(BINTOC(tnWB)+BINTOC(tnCellXfsId), "xl_cellxfs", "id") + IF VARTYPE(tnFColor) = 'N' .AND. BETWEEN(tnFColor, 0, RGB(255, 255, 255)) + tnFColor = FLOOR(tnFColor) + lnFIndex = 0 + ELSE + tnFColor = 0 + lnFIndex = 64 + ENDIF + IF VARTYPE(tnBColor) = 'N' .AND. BETWEEN(tnBColor, 0, RGB(255, 255, 255)) + tnBColor = FLOOR(tnBColor) + lnBIndex = 0 + ELSE + tnBColor = tnFColor + lnBIndex = lnFIndex + ENDIF + IF VARTYPE(tcPatternType) != "C" .OR. EMPTY(tcPatternType) + tcPatternType = FILL_STYLE_SOLID + ENDIF + *-* Get the fill record id + IF SEEK(BINTOC(tnWB)+BINTOC(tnFColor)+BINTOC(tnBColor)+tcPatternType, "xl_fills", "fillcolor") + lnFillId = xl_fills.id + REPLACE xl_fills.theme WITH 0, ; + xl_fills.tint WITH 0, ; + xl_fills.fgindexed WITH lnFIndex, ; + xl_fills.bgindexed WITH lnBIndex IN xl_fills + ELSE + lnFillId = this.GetNextId(tnWB, 'xl_fills') + INSERT INTO xl_fills (workbook, id, fgcolor, bgcolor, patttype, theme, tint, fgindexed, bgindexed) ; + VALUES (tnWB, lnFillId, tnFColor, tnBColor, tcPatternType, 0, 0, lnFIndex, lnBIndex) + ENDIF + *-* Set the fill id to the style definition + REPLACE xl_cellxfs.fillid WITH lnFillId IN xl_cellxfs + RETURN True + ELSE + RETURN False + ENDIF + ENDPROC + + PROCEDURE addstylefont && Adds to the cell style a font definition + LPARAMETERS tnWB, tnCellXfsId, tcFName, tnFSize, tlBold, tlItalic, tnFColor, tcULine, tlStrikThr, tcVPos + LOCAL lnFontId + IF PCOUNT() < 3 + RETURN False + ENDIF + IF SEEK(BINTOC(tnWB)+BINTOC(tnCellXfsId), "xl_cellxfs", "id") + IF VARTYPE(tcFName) != 'C' .OR. EMPTY(tcFName) + tcFName = 'Calibri' + ENDIF + tcFName = PROPER(ALLTRIM(tcFName)) + IF VARTYPE(tnFSize) != 'N' .OR. EMPTY(tnFSize) .OR. tnFSize < 0.5 + tnFSize = 11 + ELSE + tnFSize = INT(tnFSize) + ENDIF + IF VARTYPE(tlBold) != 'L' + tlBold = False + ENDIF + IF VARTYPE(tlItalic) != 'L' + tlItalic = False + ENDIF + IF VARTYPE(tnFColor) = 'N' .AND. BETWEEN(tnFColor, 0, RGB(255, 255, 255)) + tnFColor = FLOOR(tnFColor) + ELSE + tnFColor = RGB(0, 0, 0) + ENDIF + IF VARTYPE(tlStrikThr) != 'L' + tlStrikThr = False + ENDIF + IF VARTYPE(tcULine) != 'C' .OR. !INLIST(tcULine, UNDERLINE_SINGLE, UNDERLINE_DOUBLE, UNDERLINE_SINGLEACCOUNTING, UNDERLINE_DOUBLEACCOUNTING, UNDERLINE_NONE) + tcULine = UNDERLINE_NONE + ENDIF + IF VARTYPE(tcVPos) != 'C' .OR. !INLIST(tcVPos, FONT_VERTICAL_BASELINE, FONT_VERTICAL_SUBSCRIPT, FONT_VERTICAL_SUPERSCRIPT) + tcVPos = FONT_VERTICAL_BASELINE + ENDIF + *-* Get the font record id + IF SEEK(BINTOC(tnWB)+PADR(tcFName, 100) + STR(tnFSize, 5, 1) + TRANSFORM(tlBold) + TRANSFORM(tlItalic) + PADL(tnFColor, 15) + PADR(tcULine, 16) + ; + TRANSFORM(tlStrikThr) + PADR(tcVPos, 11), "xl_fonts", "cellformat") + + lnFontId = xl_fonts.id + REPLACE xl_fonts.theme WITH 0, ; + xl_fonts.tint WITH 0, ; + xl_fonts.indexed WITH 0 IN xl_fonts + ELSE + lnFontId = this.GetNextId(tnWB, 'xl_fonts') + INSERT INTO xl_fonts (workbook, id, fname, fsize, fbold, fitalic, fcolor, uline, strkthr, fvpos) ; + VALUES (tnWB, lnFontId, tcFName, tnFSize, tlBold, tlItalic, tnFColor, tcULine, tlStrikThr, tcVPos) + ENDIF + *-* Set the font id to the style definition + REPLACE xl_cellxfs.fontid WITH lnFontId IN xl_cellxfs + RETURN True + ELSE + RETURN False + ENDIF + ENDPROC + + PROCEDURE addstylehorizalignment && Adds to the cell style horizontal cell alignment + LPARAMETERS tnWB, tnCellXfsId, tcHorizAlign + IF PCOUNT() < 3 + RETURN False + ENDIF + IF SEEK(BINTOC(tnWB)+BINTOC(tnCellXfsId), "xl_cellxfs", "id") + IF VARTYPE(tcHorizAlign) = 'C' .AND. INLIST(tcHorizAlign, CELL_HORIZ_ALIGN_LEFT, CELL_HORIZ_ALIGN_RIGHT, CELL_HORIZ_ALIGN_CENTER) + REPLACE xl_cellxfs.halign WITH tcHorizAlign IN xl_cellxfs + RETURN True + ELSE + RETURN False + ENDIF + ELSE + RETURN False + ENDIF + ENDPROC + + PROCEDURE addstyleindent && Adds to the style indent definition + LPARAMETERS tnWB, tnCellXfsId, tnIndent + IF PCOUNT() < 3 + RETURN False + ENDIF + IF SEEK(BINTOC(tnWB)+BINTOC(tnCellXfsId), "xl_cellxfs", "id") + IF VARTYPE(tnIndent) = 'N' + REPLACE xl_cellxfs.indent WITH tnIndent IN xl_cellxfs + RETURN True + ELSE + RETURN False + ENDIF + ELSE + RETURN False + ENDIF + ENDPROC + + PROCEDURE addstylenumericformat && Adds to the style definition numeric format + LPARAMETERS tnWB, tnCellXfsId, tnNumFmtId + LOCAL lnNumFmtId + IF PCOUNT() < 3 + RETURN False + ENDIF + IF SEEK(BINTOC(tnWB)+BINTOC(tnCellXfsId), "xl_cellxfs", "id") + DO CASE + CASE VARTYPE(tnNumFmtId) != 'N' + RETURN False + + CASE tnNumFmtId < START_NUMERIC_FORMAT_ID + lnNumFmtId = tnNumFmtId + + CASE tnNumFmtId >= START_NUMERIC_FORMAT_ID + IF SEEK(BINTOC(tnWB)+BINTOC(tnNumFmtId), "xl_numfmts", "id") + lnNumFmtId = xl_numfmts.id + ELSE + IF !this.AddClassDefinedNumericFormats(tnWB, tnNumFmtId) + RETURN False + ENDIF + lnNumFmtId = tnNumFmtId + ENDIF + + OTHERWISE + RETURN False + ENDCASE + REPLACE xl_cellxfs.numfmtid WITH lnNumFmtId IN xl_cellxfs + RETURN True + ELSE + RETURN False + ENDIF + ENDPROC + + PROCEDURE addstyletextrotation && Adds to the style definition text rotation + LPARAMETERS tnWB, tnCellXfsId, tnRotation + IF PCOUNT() < 3 + RETURN False + ENDIF + IF SEEK(BINTOC(tnWB)+BINTOC(tnCellXfsId), "xl_cellxfs", "id") + IF VARTYPE(tnRotation) = 'N' .AND. BETWEEN(tnRotation, -90, 90) + REPLACE xl_cellxfs.rotation WITH tnRotation IN xl_cellxfs + RETURN True + ELSE + RETURN False + ENDIF + ELSE + RETURN False + ENDIF + ENDPROC + + PROCEDURE addstylevertalignment && Adds to the cell style vertical cell alignment + LPARAMETERS tnWB, tnCellXfsId, tcVertAlign + IF PCOUNT() < 3 + RETURN False + ENDIF + IF SEEK(BINTOC(tnWB)+BINTOC(tnCellXfsId), "xl_cellxfs", "id") + IF VARTYPE(tcVertAlign) = 'C' .AND. INLIST(tcVertAlign, CELL_VERT_ALIGN_TOP, CELL_VERT_ALIGN_BOTTOM, CELL_VERT_ALIGN_CENTER) + REPLACE xl_cellxfs.valign WITH tcVertAlign IN xl_cellxfs + RETURN True + ELSE + RETURN False + ENDIF + ELSE + RETURN False + ENDIF + ENDPROC + + PROCEDURE addstylewordwrap && Adds to the style definition word wrap + LPARAMETERS tnWB, tnCellXfsId, tlWordWrap + IF PCOUNT() < 3 + RETURN False + ENDIF + IF SEEK(BINTOC(tnWB)+BINTOC(tnCellXfsId), "xl_cellxfs", "id") + IF VARTYPE(tlWordWrap) = 'L' + REPLACE xl_cellxfs.wraptext WITH IIF(tlWordWrap, 1, 0) IN xl_cellxfs + RETURN True + ELSE + RETURN False + ENDIF + ELSE + RETURN False + ENDIF + ENDPROC + + PROCEDURE cellformatpainter && Copies the formatting of a source cell to other cells + LPARAMETERS tnWB, tnSheet, tnSrcRow, tnSrcCol, tnBegRow, tnBegCol, tnEndRow, tnEndCol + LOCAL lnCellXfs, lnNumDec, llReturn, lnRow, lnCol + DO CASE + CASE PCOUNT() < 6 + RETURN False + + CASE PCOUNT() = 6 + tnEndRow = tnBegRow + tnEndCol = tnBegCol + + CASE PCOUNT() = 7 + tnEndCol = tnBegCol + ENDCASE + IF this.GetCellRecord(tnWB, tnSheet, tnSrcRow, tnSrcCol) + lnCellXfs = xl_cells.cellxfs + lnNumDec = xl_cells.numdec + FOR lnRow=tnBegRow TO tnEndRow + FOR lnCol=tnBegCol TO tnEndCol + IF this.GetCellRecord(tnWB, tnSheet, lnRow, lnCol) + REPLACE xl_cells.cellxfs WITH lnCellXfs, ; + xl_cells.numdec WITH lnNumDec IN xl_cells + ELSE + INSERT INTO xl_cells (workbook, sheet, cellrow, cellcol, datatype, cellxfs, celldeleted, numdec, validndx) ; + VALUES (tnWB, tnSheet, lnRow, lnCol, DATA_TYPE_NONE, lnCellXfs, False, lnNumDec, 0) + ENDIF + ENDFOR + ENDFOR + llReturn = True + ELSE + llReturn = False + ENDIF + RETURN llReturn + ENDPROC + + PROCEDURE cellrefasciitoindex && Converts a 'AA444' cell reference to the row and column index values + LPARAMETERS tcCellRef + LOCAL lnCellCol, lnNdx, lnCellRow, loCellRef + lnCellCol = this.ColumnAsciiToIndex(tcCellRef) + lnCellRow = 0 + FOR lnNdx=1 TO LEN(tcCellRef) + IF ISDIGIT(SUBSTR(tcCellRef, lnNdx)) + lnCellRow = INT(VAL(SUBSTR(tcCellRef, lnNdx))) + EXIT + ENDIF + ENDFOR + loCellRef = CREATEOBJECT("Empty") + ADDPROPERTY(loCellRef, "Column", lnCellCol) + ADDPROPERTY(loCellRef, "Row", lnCellRow) + RETURN loCellRef + ENDPROC + + PROCEDURE clearcellvalidation && Clears/deletes the named range from the workbook + LPARAMETERS tnWB, tcName + IF PCOUNT() < 2 + RETURN False + ENDIF + IF VARTYPE(tcName) != "C" + RETURN False + ENDIF + IF SEEK(BINTOC(tnWB)+PADL(tcName, 254, " "), "xl_namerange", "wbrname") + DELETE IN xl_namerange + llReturn = True + ELSE + llReturn = False + ENDIF + RETURN llReturn + ENDPROC + + PROCEDURE clearcellvalue && Clears the cell value + LPARAMETERS tnWB, tnSheet, tnCellRow, tnCellCol + LOCAL llReturn + IF this.GetCellRecord(tnWB, tnSheet, tnCellRow, tnCellCol) + REPLACE xl_cells.celldeleted WITH True IN xl_cells + llReturn = True + ELSE + llReturn = False + ENDIF + RETURN llReturn + ENDPROC + + PROCEDURE columnasciitoindex && Converts Excel Ascii column value to index value + LPARAMETERS tcColIndex + LOCAL lnIndex, lnNdx, lnChr + lnIndex = 0 + FOR lnNdx=1 TO LEN(tcColIndex) + lnChr = ASC(UPPER(SUBSTR(tcColIndex, lnNdx, 1))) + IF BETWEEN(lnChr, 65, 90) + lnIndex = (lnChr - 64) + (lnIndex * 26) + ELSE + EXIT + ENDIF + ENDFOR + RETURN lnIndex + ENDPROC + + PROCEDURE columnindextoascii && Gets the column ASCII code for the column index + LPARAMETERS tnCol + LOCAL lnRemCol, lcColumn, lnPartCol + IF PCOUNT() = 0 .OR. VARTYPE(tnCol) != "N" + RETURN "" + ENDIF + TRY + lnRemCol = tnCol + lcColumn = "" + DO WHILE lnRemCol > 0 + lnPartCol = MOD(lnRemCol, 26) + IF lnPartCol = 0 + lnPartCol = 26 + ENDIF + lnRemCol = (lnRemCol - lnPartCol) / 26 + lcColumn = CHR(lnPartCol + 64) + lcColumn + ENDDO + + CATCH TO loException + SET STEP ON + ENDTRY + RETURN lcColumn + ENDPROC + + PROTECTED PROCEDURE convertcolortohex && Converts a color value (integer) to Hex representation + LPARAMETERS tnColor + LOCAL lnRed, lnGreen, lnBlue, lcHexRed, lcHexGreen, lcHexBlue + lnRed = this.GetRGBValues(tnColor, 'R') + lnGreen = this.GetRGBValues(tnColor, 'G') + lnBlue = this.GetRGBValues(tnColor, 'B') + lcHexRed = RIGHT(TRANSFORM(lnRed, '@0'), 2) + lcHexGreen = RIGHT(TRANSFORM(lnGreen, '@0'), 2) + lcHexBlue = RIGHT(TRANSFORM(lnBlue, '@0'), 2) + RETURN "FF" + UPPER(lcHexRed + lcHexGreen + lcHexBlue) + ENDPROC + + PROTECTED PROCEDURE converthexstringtonumeric && ConvertHexStringToNumeric + LPARAMETERS tcHexNum + LOCAL lcValue + IF EMPTY(tcHexNum) + RETURN 0 + ENDIF + IF LEN(tcHexNum) > 6 + tcHexNum = SUBSTR(tcHexNum, 3) + ENDIF + tcHexNum = UPPER(ALLTRIM(tcHexNum)) + tcHexNum = RIGHT(tcHexNum, 2) + SUBSTR(tcHexNum, 3, 2) + LEFT(tcHexNum, 2) + lcValue = "0x" + tcHexNum + RETURN EVAL(lcValue) + ENDPROC + + PROCEDURE convertpixelstoexcelunits && Converts Pixel measurement to Excel measurement + LPARAMETERS tnPixels + RETURN tnPixels * 0.152542 + ENDPROC + + PROTECTED PROCEDURE createexcelfile && Creates the Excel file from the components + LPARAMETERS tcTempPath, tcFilePath, tcWBName + LOCAL loShell, loFolder, lcZipFile, loException, loFile, lnCountBefore, lcFile, lcZipPath, lnCount, lhFile + lcZipPath = ALLTRIM(tcFilePath) + IF EMPTY(lcZipPath) + lcZipPath = SYS(5) + SYS(2003) + ENDIF + lcZipFile = ADDBS(lcZipPath) + FORCEEXT(ALLTRIM(tcWBName), "zip") + *-* Delete any prior file with same Excel name + IF FILE(FORCEEXT(lcZipFile, "xlsx")) + TRY + ERASE (FORCEEXT(lcZipFile, "xlsx")) + llError = False + + CATCH TO loException + this.ErrorLevelId = 10 + RAISEEVENT(this, "OnShowErrorMessage", 10, "Error - unable to delete existing file" + CR + loException.Message) + llError = True + ENDTRY + IF llError + RETURN False + ENDIF + ENDIF + *-* Validate that the file name and path are valid + TRY + lhFile = FCREATE(lcZipFile, 0) + FCLOSE(lhFile) + + CATCH TO loException + this.ErrorLevelId = 11 + RAISEEVENT(this, "OnShowErrorMessage", 11, "CreateExcelFile - Failed to create Zip file"+ CR + loException.Message) + RETURN False + ENDTRY + + *-* Create base zip file + STRTOFILE(CHR(80)+CHR(75)+CHR(5)+CHR(6)+REPLICATE(CHR(0), 18), lcZipFile, 0) + loShell = CREATEOBJECT("shell.application") + loFolder = loShell.NameSpace(tcTempPath).Items + + *-* Add the files to the zip + IF OS(3)<'6' .OR. OS(3)='6' .AND. OS(4)<'1' + TRY + FOR EACH loFile IN loFolder + loShell.NameSpace(lcZipFile).MoveHere(loFile, FOF_SILENT) + apiSleep(100) + ENDFOR + + CATCH TO loException + SET STEP ON + ENDTRY + + llErr = True + DO WHILE llErr + TRY + apiMoveFile(lcZipFile, FORCEEXT(lcZipFile, "xlsx")) + llErr = False + CATCH + apiSleep(100) + ENDTRY + ENDDO + ELSE + TRY + FOR EACH loFile IN loFolder + lnCountBefore = loShell.NameSpace(tcTempPath).Items.Count + loShell.NameSpace(lcZipFile).MoveHere(loFile, FOF_SILENT) + DO WHILE lnCountBefore = loShell.NameSpace(tcTempPath).Items.Count + apiSleep(50) + ENDDO + ENDFOR + + CATCH TO loException + this.ErrorLevelId = 12 + RAISEEVENT(this, "OnShowErrorMessage", 12, "CreateExcelFile - Failed to add contents to Zip file"+ CR + loException.Message) + SET STEP ON + ERASE (lcZipFile) + DO CASE + CASE loException.ErrorNo = 1943 + + OTHERWISE + SET STEP ON + ENDCASE + ENDTRY + TRY + apiMoveFile(lcZipFile, FORCEEXT(lcZipFile, "xlsx")) + + CATCH TO loException + this.ErrorLevelId = 13 + RAISEEVENT(this, "OnShowErrorMessage", 13, "CreateExcelFile - Rename failed"+ CR + loException.Message) + SET STEP ON + ENDTRY + ENDIF + RETURN True + ENDPROC + + PROCEDURE createformatstyle && Creates a new format style definition + LPARAMETERS tnWB + IF PCOUNT() > 0 .AND. SEEK(BINTOC(tnWB), "xl_workbooks", "workbook") + lnId = this.GetNextId(tnWB, "xl_cellxfs") + INSERT INTO xl_cellxfs (workbook, id, numFmtId, fontId, fillId, borderId, halign, valign, indent, wraptext, rotation) ; + VALUES (tnWB, lnId, 0, 0, 0, 0, "", "", 0, 0, 0) + RETURN lnId + ELSE + RETURN -1 + ENDIF + ENDPROC + + PROCEDURE createinlineformattext && Creates an in-line text formatted definition + LPARAMETERS tnWB, tcCellText + LOCAL loInline + loInline = CREATEOBJECT("Empty") + ADDPROPERTY(loInline, "Workbook", tnWB) + ADDPROPERTY(loInline, "StringId", .NULL.) + ADDPROPERTY(loInline, "StringValue", tcCellText) + ADDPROPERTY(loInline, "Count", 0) + ADDPROPERTY(loInline, "Characters[1]") + loInline.Characters[1] = .NULL. + RETURN loInline + ENDPROC + + PROCEDURE createworkbook && Creates a new workbook object + LPARAMETERS tcName + LOCAL lcWBName, lcPath, lnWB + IF PCOUNT() = 1 + tlLoadDefaults = True + ENDIF + lcWBName = JUSTSTEM(tcName) + lcPath = JUSTPATH(tcName) + IF EMPTY(lcPath) + lcPath = SYS(5) + SYS(2003) + tcName = ADDBS(lcPath) + lcWBName + "." + JUSTEXT(tcName) + ENDIF + IF SEEK(PADR(UPPER(tcName), 240, "_"), "xl_workbooks", "fullname") + lnWB = 0 + ELSE + INSERT INTO xl_workbooks (wbname, filepath, fullname) VALUES (lcWBName, lcPath, PADR(UPPER(tcName), 240, "_")) + + lnWB = xl_workbooks.workbook + this.SetDefaultFont(lnWB, this.DefaultFont, this.DefaultFontSize) && Change recommended by Doug Hennig; 2017-06-12 + this.SetDefaultBorder(lnWB, BORDER_STYLE_NONE) + + INSERT INTO xl_relationships (workbook, relid, reltype, target) VALUES (lnWB, 1, "styles", "styles.xml") + INSERT INTO xl_relationships (workbook, relid, reltype, target) VALUES (lnWB, 2, "sharedStrings", "sharedStrings.xml") + this.SetLastId(lnWB, 2, "xl_relationships") + + INSERT INTO xl_cellxfs (workbook, id, numFmtId, fontId, fillId, borderId, halign, valign, indent, wraptext) ; + VALUES (lnWB, 0, 0, 0, 0, 0, "", "", 0, 0) + + INSERT INTO xl_fills (workbook, id, fgcolor, bgcolor, patttype, theme, tint, fgindexed, bgindexed) ; + VALUES (lnWB, 0, 0, 0, FILL_STYLE_NONE, 0, 0, 0, 0) + + INSERT INTO xl_fills (workbook, id, fgcolor, bgcolor, patttype, theme, tint, fgindexed, bgindexed) ; + VALUES (lnWB, 1, 0, 0, FILL_STYLE_GRAY125, 0, 0, 0, 0) + ENDIF + RETURN lnWB + ENDPROC + + PROTECTED PROCEDURE createworkbookex && Internal method for creating a workbook + LPARAMETERS tcName + LOCAL lcWBName, lcPath, lnWB + lcWBName = JUSTSTEM(tcName) + lcPath = JUSTPATH(tcName) + IF EMPTY(lcPath) + lcPath = SYS(5) + SYS(2003) + tcName = ADDBS(lcPath) + lcWBName + "." + JUSTEXT(tcName) + ENDIF + IF SEEK(PADR(UPPER(tcName), 240, "_"), "xl_workbooks", "fullname") + lnWB = 0 + ELSE + INSERT INTO xl_workbooks (wbname, filepath, fullname) VALUES (lcWBName, lcPath, PADR(UPPER(tcName), 240, "_")) + lnWB = xl_workbooks.workbook + ENDIF + RETURN lnWB + ENDPROC + + PROTECTED PROCEDURE createworkingcursors && Creates the working cursors for worksheet definitions + IF USED('xl_strings') + RETURN + ENDIF + DO CASE + CASE this.CodePage = 620 && Mazovia (Polish) MS-DOS + CREATE CURSOR xl_strings CODEPAGE = 620 (id I, workbook I, checksum C(230), stringxml M, stringval M, presvspace L, formatted L) + + CASE this.CodePage = 737 && Greek MS-DOS + CREATE CURSOR xl_strings CODEPAGE = 737 (id I, workbook I, checksum C(230), stringxml M, stringval M, presvspace L, formatted L) + + CASE this.CodePage = 852 && Eastern European MS-DOS + CREATE CURSOR xl_strings CODEPAGE = 852 (id I, workbook I, checksum C(230), stringxml M, stringval M, presvspace L, formatted L) + + CASE this.CodePage = 857 && Turkish MS-DOS + CREATE CURSOR xl_strings CODEPAGE = 857 (id I, workbook I, checksum C(230), stringxml M, stringval M, presvspace L, formatted L) + + CASE this.CodePage = 861 && Icelandic MS-DOS + CREATE CURSOR xl_strings CODEPAGE = 861 (id I, workbook I, checksum C(230), stringxml M, stringval M, presvspace L, formatted L) + + CASE this.CodePage = 865 && Nordic MS-DOS + CREATE CURSOR xl_strings CODEPAGE = 865 (id I, workbook I, checksum C(230), stringxml M, stringval M, presvspace L, formatted L) + + CASE this.CodePage = 866 && Russian MS-DOS + CREATE CURSOR xl_strings CODEPAGE = 866 (id I, workbook I, checksum C(230), stringxml M, stringval M, presvspace L, formatted L) + + CASE this.CodePage = 874 && Thai Windows + CREATE CURSOR xl_strings CODEPAGE = 874 (id I, workbook I, checksum C(230), stringxml M, stringval M, presvspace L, formatted L) + + CASE this.CodePage = 895 && Kamenicky (Czech) MS-DOS + CREATE CURSOR xl_strings CODEPAGE = 895 (id I, workbook I, checksum C(230), stringxml M, stringval M, presvspace L, formatted L) + + CASE this.CodePage = 932 && Japanese Windows + CREATE CURSOR xl_strings CODEPAGE = 932 (id I, workbook I, checksum C(230), stringxml M, stringval M, presvspace L, formatted L) + + CASE this.CodePage = 936 && Chinese Simplified (PRC, Singapore) Windows + CREATE CURSOR xl_strings CODEPAGE = 936 (id I, workbook I, checksum C(230), stringxml M, stringval M, presvspace L, formatted L) + + CASE this.CodePage = 949 &&Korean Windows + CREATE CURSOR xl_strings CODEPAGE = 949 (id I, workbook I, checksum C(230), stringxml M, stringval M, presvspace L, formatted L) + + CASE this.CodePage = 950 && Traditional Chinese (Hong Kong SAR, Taiwan) Windows + CREATE CURSOR xl_strings CODEPAGE = 950 (id I, workbook I, checksum C(230), stringxml M, stringval M, presvspace L, formatted L) + + CASE this.CodePage = 1250 && Eastern European Windows + CREATE CURSOR xl_strings CODEPAGE = 1250 (id I, workbook I, checksum C(230), stringxml M, stringval M, presvspace L, formatted L) + + CASE this.CodePage = 1251 && Russian Windows + CREATE CURSOR xl_strings CODEPAGE = 1251 (id I, workbook I, checksum C(230), stringxml M, stringval M, presvspace L, formatted L) + + CASE this.CodePage = 1252 && Windows ANSI + CREATE CURSOR xl_strings CODEPAGE = 1252 (id I, workbook I, checksum C(230), stringxml M, stringval M, presvspace L, formatted L) + + CASE this.CodePage = 1253 && Greek Windows + CREATE CURSOR xl_strings CODEPAGE = 1253 (id I, workbook I, checksum C(230), stringxml M, stringval M, presvspace L, formatted L) + + CASE this.CodePage = 1254 && Turkish Windows + CREATE CURSOR xl_strings CODEPAGE = 1254 (id I, workbook I, checksum C(230), stringxml M, stringval M, presvspace L, formatted L) + + CASE this.CodePage = 1255 && Hebrew Windows + CREATE CURSOR xl_strings CODEPAGE = 1255 (id I, workbook I, checksum C(230), stringxml M, stringval M, presvspace L, formatted L) + + CASE this.CodePage = 1256 && Arabic Windows + CREATE CURSOR xl_strings CODEPAGE = 1256 (id I, workbook I, checksum C(230), stringxml M, stringval M, presvspace L, formatted L) + + OTHERWISE + CREATE CURSOR xl_strings (id I, workbook I, checksum C(230), stringxml M, stringval M, presvspace L, formatted L) + ENDCASE + INDEX ON BINTOC(workbook)+BINTOC(id) TAG id FOR !DELETED() + INDEX ON BINTOC(workbook)+PADL(id, 10, '0') TAG sortorder FOR !DELETED() + INDEX ON BINTOC(workbook)+checksum TAG stringndx + INDEX ON workbook TAG workbook + + CREATE CURSOR xl_strformat (workbook I, id I, index I, stringxml M, stringval M, fbold L, fitalic L, fcolor I, fname C(100), fsize N(5,1), uline C(16), strkthr L, ; + fvpos C(11), theme I, tint F(20,15), indexed I, presvspace L) + INDEX ON BINTOC(workbook)+BINTOC(id)+PADL(index, 10, '0') TAG sortorder FOR !DELETED() + INDEX ON BINTOC(workbook)+BINTOC(id)+BINTOC(index) TAG id FOR !DELETED() + + CREATE CURSOR xl_workbooks (workbook I AUTOINC NEXTVALUE 1, wbname C(200), filepath C(200), fullname C(240)) + INDEX ON BINTOC(workbook) TAG workbook + INDEX ON UPPER(fullname) TAG fullname + INDEX ON PADR(UPPER(ALLTRIM(wbname)), 200, "_") TAG wbname + + CREATE CURSOR xl_sheets (workbook I, sheet I, shname C(30), state I, mleft N(6,3), mright N(6,3), mtop N(6,3), mbot N(6,3), mheader N(6,3), ; + mfooter N(6,3), shdeleted L, xsplit I, ysplit I, prnorient I, papersize I, paperwidth I, paperheight I, ; + paperdimen C(2), scale I, fittowidth I, fittoheight I, tabcolorndx I, tabcolorrgb C(8)) + INDEX ON sheet TAG sheet + INDEX ON workbook TAG workbook + INDEX ON BINTOC(workbook)+UPPER(ALLTRIM(shname)) TAG shname + INDEX ON BINTOC(workbook)+BINTOC(sheet) TAG sheetndx FOR !DELETED() + + CREATE CURSOR xl_cells (workbook I, sheet I, cellrow I, cellcol I, cellvalue C(25), datatype C(1), cellformula M, stringid I, cellxfs I, numdec I, celldeleted L, validndx I) + INDEX ON sheet TAG sheet + INDEX ON cellrow TAG cellrow + INDEX ON cellcol TAG cellcol + INDEX ON workbook TAG workbook + INDEX ON BINTOC(workbook)+BINTOC(sheet)+BINTOC(cellrow)+BINTOC(cellcol) TAG reverse DESCENDING + INDEX ON BINTOC(workbook)+BINTOC(sheet)+BINTOC(cellrow)+BINTOC(cellcol) TAG cellindex CANDIDATE + + CREATE CURSOR xl_cellxfs (workbook I, id I, numFmtId I, fontId I, fillId I, borderId I, halign C(8), valign C(8), indent I, wraptext I, rotation I) + INDEX ON BINTOC(workbook)+BINTOC(id) TAG id FOR !DELETED() + INDEX ON BINTOC(workbook)+PADL(id, 10, '0') TAG sortorder FOR !DELETED() + INDEX ON BINTOC(workbook)+BINTOC(numFmtId)+BINTOC(fontId)+BINTOC(fillId)+BINTOC(borderId)+BINTOC(indent)+BINTOC(wraptext)+BINTOC(rotation)+ALLTRIM(halign)+ALLTRIM(valign) TAG cellxfs FOR !DELETED() + INDEX ON BINTOC(workbook)+BINTOC(fontId)+BINTOC(fillId)+BINTOC(borderId)+BINTOC(indent)+BINTOC(wraptext)+BINTOC(rotation)+ALLTRIM(halign)+ALLTRIM(valign) TAG cellformat FOR !DELETED() + + CREATE CURSOR xl_fonts (workbook I, id I, fname C(100), fsize N(5,1), fbold L, fitalic L, fcolor I, uline C(16), strkthr L, ; + fvpos C(11), theme I, tint F(20,15), indexed I) + INDEX ON BINTOC(workbook)+fname + STR(fsize, 5, 1) + TRANSFORM(fbold) + TRANSFORM(fitalic) + PADL(fcolor, 15) + uline + TRANSFORM(strkthr) + fvpos TAG cellformat + INDEX ON BINTOC(workbook)+PADL(id, 10, '0') TAG sortorder FOR !DELETED() + INDEX ON BINTOC(workbook)+BINTOC(id) TAG id FOR !DELETED() + + CREATE CURSOR xl_fills (workbook I, id I, fgcolor I, bgcolor I, patttype C(25), theme I, tint F(20,15), fgindexed I, bgindexed I) + INDEX ON BINTOC(workbook)+BINTOC(fgcolor)+BINTOC(bgcolor)+patttype TAG fillcolor + INDEX ON BINTOC(workbook)+PADL(id, 10, '0') TAG sortorder FOR !DELETED() + INDEX ON BINTOC(workbook)+BINTOC(id) TAG id FOR !DELETED() + + CREATE CURSOR xl_borders (workbook I, id I, lstyle C(20), lcolor I, ltheme I, ltint I, lindexed I, rstyle C(20), rcolor I, rtheme I, rtint I, rindexed I, ; + tstyle C(20), tcolor I, ttheme I, ttint I, tindexed I, bstyle C(20), bcolor I, btheme I, btint I, bindexed I, ; + dstyle C(20), dcolor I, dtheme I, dtint I, dindexed I, diagdn I, diagup I, theme I, tint F(20,15)) + INDEX ON BINTOC(workbook) + ALLTRIM(lstyle) + BINTOC(lcolor) + ALLTRIM(rstyle) + BINTOC(rcolor) + ALLTRIM(tstyle) + BINTOC(tcolor) + ALLTRIM(bstyle) + BINTOC(bcolor) + ; + ALLTRIM(dstyle) + BINTOC(dcolor) + BINTOC(diagdn) + BINTOC(diagup) TAG cellborder + INDEX ON BINTOC(workbook)+PADL(id, 10, '0') TAG sortorder FOR !DELETED() + INDEX ON BINTOC(workbook)+BINTOC(id) TAG id FOR !DELETED() + + CREATE CURSOR xl_mergecells (workbook I, sheet I, begrow I, begcol I, endrow I, endcol I) + INDEX ON workbook TAG workbook + INDEX ON sheet TAG sheet + INDEX ON begrow TAG begrow + INDEX ON begcol TAG begcol + INDEX ON endrow TAG endrow + INDEX ON endcol TAG endcol + INDEX ON BINTOC(workbook)+BINTOC(sheet)+BINTOC(begrow)+BINTOC(begcol) TAG mergecell FOR !DELETED() + + CREATE CURSOR xl_colwidths (workbook I, sheet I, column I, width N(16,9), bestfit L) + INDEX ON sheet TAG sheet + INDEX ON column TAG column + INDEX ON workbook TAG workbook + INDEX ON BINTOC(workbook)+BINTOC(sheet)+BINTOC(column) TAG shcolumn FOR !DELETED() + + CREATE CURSOR xl_hdrfooterdefn (workbook I, sheet I, alignmargin L, difffirstpg L, diffoddeven L, scalewdoc L) + INDEX ON workbook TAG workbook + INDEX ON sheet TAG sheet + INDEX ON BINTOC(workbook)+BINTOC(sheet) TAG wbsheet FOR !DELETED() + + CREATE CURSOR xl_hdrfootertext (workbook I, sheet I, page I, section I, text C(200), fontname C(50), fontsize I, fontstyle I, fontcolor I) + INDEX ON workbook TAG workbook + INDEX ON sheet TAG sheet + INDEX ON BINTOC(workbook)+BINTOC(sheet)+BINTOC(page)+BINTOC(section) TAG hdrfootr FOR !DELETED() + + CREATE CURSOR xl_rowheights (workbook I, sheet I, row I, height N(14,7)) + INDEX ON workbook TAG workbook + INDEX ON sheet TAG sheet + INDEX ON row TAG row + INDEX ON BINTOC(workbook)+BINTOC(sheet)+BINTOC(row) TAG shrow FOR !DELETED() + + CREATE CURSOR xl_validation (workbook I, sheet I, validndx I AUTOINC NEXTVALUE 1, vtype I, vstyle I, voperator I, errmsg C(100), errtitle C(100), ; + allowblank L, showinpmsg L, showerrmsg L, vprompt C(100), formula L, formula1 C(254), formula2 C(254)) + INDEX ON BINTOC(validndx) TAG validndx FOR !DELETED() + INDEX ON BINTOC(workbook)+BINTOC(sheet) TAG wbshindex FOR !DELETED() + INDEX ON BINTOC(workbook)+BINTOC(sheet)+BINTOC(validndx) TAG validindex FOR !DELETED() + INDEX ON LEFT(formula1, 240) TAG formula1 FOR !DELETED() + INDEX ON LEFT(formula2, 240) TAG formula2 FOR !DELETED() + + CREATE CURSOR xl_namerange (workbook I, rname C(50), scope I, comment C(254), sheet I, begrow I, begcol I, endrow I, endcol I) + INDEX ON BINTOC(workbook)+rname TAG wbrname FOR !DELETED() + + CREATE CURSOR xl_numfmts (workbook I, id I, tempid I, formatxml M, formatcode M, applydec L) + INDEX ON BINTOC(workbook)+PADL(id, 10, '0') TAG sortorder FOR !DELETED() + INDEX ON BINTOC(workbook)+BINTOC(id) TAG id FOR !DELETED() + + CREATE CURSOR xl_rows (workbook I, sheet I, row I, maxcol I) + INDEX ON BINTOC(workbook)+BINTOC(sheet)+BINTOC(row) TAG id FOR !DELETED() + + CREATE CURSOR xl_ndxcolors (workbook I, indexid I, rgbcolor C(8)) + INDEX ON BINTOC(workbook)+rgbcolor TAG rgbcolor FOR !DELETED() + INDEX ON BINTOC(workbook)+BINTOC(indexid) TAG indexid FOR !DELETED() + + CREATE CURSOR xl_mrucolors (workbook I, indexid I, rgbcolor C(8)) + INDEX ON BINTOC(workbook)+rgbcolor TAG rgbcolor FOR !DELETED() + INDEX ON BINTOC(workbook)+BINTOC(indexid) TAG indexid FOR !DELETED() + + CREATE CURSOR xl_relationships (workbook I, sheet I, relid I, reltype C(20), target C(240)) + INDEX ON BINTOC(workbook)+BINTOC(relid) TAG relid FOR !DELETED() + INDEX ON BINTOC(workbook)+BINTOC(sheet) TAG sheet FOR !DELETED() + INDEX ON BINTOC(workbook)+reltype TAG reltype FOR !DELETED() + + CREATE CURSOR xl_extsheets (workbook I, extid I, relid I, sheetname C(30)) + INDEX ON BINTOC(workbook)+BINTOC(extid) TAG extid FOR !DELETED() + INDEX ON BINTOC(workbook)+BINTOC(extid)+BINTOC(relid) TAG relid FOR !DELETED() + + CREATE CURSOR xl_extcells (workbook I, extid I, cellrow I, cellcol I, cellvalue M) + INDEX ON BINTOC(workbook)+BINTOC(extid) TAG extid FOR !DELETED() + *INDEX ON BINTOC(workbook)+BINTOC(extid)+BINTOC(relid) TAG relid FOR !DELETED() + ENDPROC + + PROTECTED PROCEDURE createworkingdirectories && Creates the working directories for the XML files + LOCAL lcDir, loException + lcDir = ADDBS(SYS(2023)) + SYS(2015) + TRY + MKDIR (lcDir) + MKDIR (lcDir + "\_rels") + MKDIR (lcDir + "\docProps") + MKDIR (lcDir + "\xl") + MKDIR (lcDir + "\xl\_rels") + MKDIR (lcDir + "\xl\worksheets") + + CATCH TO loException + lcDir = .NULL. + ENDTRY + RETURN ADDBS(lcDir) + ENDPROC + + PROCEDURE debugcursorstofile && Debugging use for saving the internal cursors to a text file + LPARAMETERS tcStemName + LOCAL lnNumFlds, lcField, lcLineText, lnFld, lcFileName + LOCAL ARRAY laFields[1, 18] + SELECT xl_workbooks + SET ORDER TO TAG workbook + lnNumFlds = AFIELDS(laFields, "xl_workbooks") + lcFileText = "Cursor: xl_workbooks" + CRLF + SCAN + lcField = LOWER(laFields[1, 1]) + lcLineText = lcField + ": " + TRANSFORM(xl_workbooks.&lcField) + FOR lnFld=2 TO lnNumFlds + lcField = LOWER(laFields[lnFld, 1]) + lcLineText = lcLineText + "; " + lcField + ": " + TRANSFORM(xl_workbooks.&lcField) + ENDFOR + lcFileText = lcFileText + lcLineText + CRLF + ENDSCAN + lcFileText = lcFileText + CRLF + CRLF + CRLF + SET ORDER TO + + SELECT xl_sheets + SET ORDER TO TAG sheetndx + lcFileName = tcStemName + " " + ALIAS() + ".txt" + LIST TO FILE (lcFileName) NOCONSOLE + lnNumFlds = AFIELDS(laFields, "xl_sheets") + lcFileText = lcFileText + "Cursor: xl_sheets" + CRLF + SCAN + lcField = LOWER(laFields[1, 1]) + lcLineText = lcField + ": " + TRANSFORM(xl_sheets.&lcField) + FOR lnFld=2 TO lnNumFlds + lcField = LOWER(laFields[lnFld, 1]) + lcLineText = lcLineText + "; " + lcField + ": " + TRANSFORM(xl_sheets.&lcField) + ENDFOR + lcFileText = lcFileText + lcLineText + CRLF + ENDSCAN + lcFileText = lcFileText + CRLF + CRLF + CRLF + SET ORDER TO + + SELECT xl_cells + SET ORDER TO TAG cellindex + lcFileName = tcStemName + " " + ALIAS() + ".txt" + LIST TO FILE (lcFileName) NOCONSOLE + lnNumFlds = AFIELDS(laFields, "xl_cells") + lcFileText = lcFileText + "Cursor: xl_cells" + CRLF + SCAN + lcField = LOWER(laFields[1, 1]) + lcLineText = lcField + ": " + TRANSFORM(xl_cells.&lcField) + FOR lnFld=2 TO lnNumFlds + lcField = LOWER(laFields[lnFld, 1]) + lcLineText = lcLineText + "; " + lcField + ": " + TRANSFORM(xl_cells.&lcField) + ENDFOR + lcFileText = lcFileText + lcLineText + CRLF + ENDSCAN + lcFileText = lcFileText + CRLF + CRLF + CRLF + SET ORDER TO + + SELECT xl_strings + SET ORDER TO TAG stringid + lcFileName = tcStemName + " " + ALIAS() + ".txt" + LIST TO FILE (lcFileName) NOCONSOLE + lnNumFlds = AFIELDS(laFields, "xl_strings") + lcFileText = lcFileText + "Cursor: xl_strings" + CRLF + SCAN + lcField = LOWER(laFields[1, 1]) + lcLineText = lcField + ": " + TRANSFORM(xl_strings.&lcField) + FOR lnFld=2 TO lnNumFlds + lcField = LOWER(laFields[lnFld, 1]) + lcLineText = lcLineText + "; " + lcField + ": " + TRANSFORM(xl_strings.&lcField) + ENDFOR + lcFileText = lcFileText + lcLineText + CRLF + ENDSCAN + lcFileText = lcFileText + CRLF + CRLF + CRLF + SET ORDER TO + + SELECT xl_mergecells + SET ORDER TO TAG mergecell + lcFileName = tcStemName + " " + ALIAS() + ".txt" + LIST TO FILE (lcFileName) NOCONSOLE + lnNumFlds = AFIELDS(laFields, "xl_mergecells") + lcFileText = lcFileText + "Cursor: xl_mergecells" + CRLF + SCAN + lcField = LOWER(laFields[1, 1]) + lcLineText = lcField + ": " + TRANSFORM(xl_mergecells.&lcField) + FOR lnFld=2 TO lnNumFlds + lcField = LOWER(laFields[lnFld, 1]) + lcLineText = lcLineText + "; " + lcField + ": " + TRANSFORM(xl_mergecells.&lcField) + ENDFOR + lcFileText = lcFileText + lcLineText + CRLF + ENDSCAN + lcFileText = lcFileText + CRLF + CRLF + CRLF + SET ORDER TO + + SELECT xl_colwidths + SET ORDER TO TAG shcolumn + lcFileName = tcStemName + " " + ALIAS() + ".txt" + LIST TO FILE (lcFileName) NOCONSOLE + lnNumFlds = AFIELDS(laFields, "xl_colwidths") + lcFileText = lcFileText + "Cursor: xl_colwidths" + CRLF + SCAN + lcField = LOWER(laFields[1, 1]) + lcLineText = lcField + ": " + TRANSFORM(xl_colwidths.&lcField) + FOR lnFld=2 TO lnNumFlds + lcField = LOWER(laFields[lnFld, 1]) + lcLineText = lcLineText + "; " + lcField + ": " + TRANSFORM(xl_colwidths.&lcField) + ENDFOR + lcFileText = lcFileText + lcLineText + CRLF + ENDSCAN + lcFileText = lcFileText + CRLF + CRLF + CRLF + SET ORDER TO + + SELECT xl_fonts + SET ORDER TO TAG id + lcFileName = tcStemName + " " + ALIAS() + ".txt" + LIST TO FILE (lcFileName) NOCONSOLE + lnNumFlds = AFIELDS(laFields, "xl_fonts") + lcFileText = lcFileText + "Cursor: xl_fonts" + CRLF + SCAN + lcField = LOWER(laFields[1, 1]) + lcLineText = lcField + ": " + TRANSFORM(xl_fonts.&lcField) + FOR lnFld=2 TO lnNumFlds + lcField = LOWER(laFields[lnFld, 1]) + lcLineText = lcLineText + "; " + lcField + ": " + TRANSFORM(xl_fonts.&lcField) + ENDFOR + lcFileText = lcFileText + lcLineText + CRLF + ENDSCAN + lcFileText = lcFileText + CRLF + CRLF + CRLF + SET ORDER TO + + SELECT xl_fills + SET ORDER TO TAG id + lcFileName = tcStemName + " " + ALIAS() + ".txt" + LIST TO FILE (lcFileName) NOCONSOLE + lnNumFlds = AFIELDS(laFields, "xl_fills") + lcFileText = lcFileText + "Cursor: xl_fills" + CRLF + SCAN + lcField = LOWER(laFields[1, 1]) + lcLineText = lcField + ": " + TRANSFORM(xl_fills.&lcField) + FOR lnFld=2 TO lnNumFlds + lcField = LOWER(laFields[lnFld, 1]) + lcLineText = lcLineText + "; " + lcField + ": " + TRANSFORM(xl_fills.&lcField) + ENDFOR + lcFileText = lcFileText + lcLineText + CRLF + ENDSCAN + lcFileText = lcFileText + CRLF + CRLF + CRLF + SET ORDER TO + + SELECT xl_numfmts + SET ORDER TO TAG id + lcFileName = tcStemName + " " + ALIAS() + ".txt" + LIST TO FILE (lcFileName) NOCONSOLE + lnNumFlds = AFIELDS(laFields, "xl_numfmts") + lcFileText = lcFileText + "Cursor: xl_numfmts" + CRLF + SCAN + lcField = LOWER(laFields[1, 1]) + lcLineText = lcField + ": " + TRANSFORM(xl_numfmts.&lcField) + FOR lnFld=2 TO lnNumFlds + lcField = LOWER(laFields[lnFld, 1]) + lcLineText = lcLineText + "; " + lcField + ": " + TRANSFORM(xl_numfmts.&lcField) + ENDFOR + lcFileText = lcFileText + lcLineText + CRLF + ENDSCAN + lcFileText = lcFileText + CRLF + CRLF + CRLF + SET ORDER TO + + SELECT xl_borders + SET ORDER TO TAG id + lcFileName = tcStemName + " " + ALIAS() + ".txt" + LIST TO FILE (lcFileName) NOCONSOLE + lnNumFlds = AFIELDS(laFields, "xl_borders") + lcFileText = lcFileText + "Cursor: xl_borders" + CRLF + SCAN + lcField = LOWER(laFields[1, 1]) + lcLineText = lcField + ": " + TRANSFORM(xl_borders.&lcField) + FOR lnFld=2 TO lnNumFlds + lcField = LOWER(laFields[lnFld, 1]) + lcLineText = lcLineText + "; " + lcField + ": " + TRANSFORM(xl_borders.&lcField) + ENDFOR + lcFileText = lcFileText + lcLineText + CRLF + ENDSCAN + lcFileText = lcFileText + CRLF + CRLF + CRLF + SET ORDER TO + + SELECT xl_rowheights + SET ORDER TO TAG shrow + lcFileName = tcStemName + " " + ALIAS() + ".txt" + LIST TO FILE (lcFileName) NOCONSOLE + lnNumFlds = AFIELDS(laFields, "xl_rowheights") + lcFileText = lcFileText + "Cursor: xl_rowheights" + CRLF + SCAN + lcField = LOWER(laFields[1, 1]) + lcLineText = lcField + ": " + TRANSFORM(xl_rowheights.&lcField) + FOR lnFld=2 TO lnNumFlds + lcField = LOWER(laFields[lnFld, 1]) + lcLineText = lcLineText + "; " + lcField + ": " + TRANSFORM(xl_rowheights.&lcField) + ENDFOR + lcFileText = lcFileText + lcLineText + CRLF + ENDSCAN + lcFileText = lcFileText + CRLF + CRLF + CRLF + SET ORDER TO + + SELECT xl_hdrfooterdefn + SET ORDER TO TAG wbsheet + lcFileName = tcStemName + " " + ALIAS() + ".txt" + LIST TO FILE (lcFileName) NOCONSOLE + lnNumFlds = AFIELDS(laFields, "xl_hdrfooterdefn") + lcFileText = lcFileText + "Cursor: xl_hdrfooterdefn" + CRLF + SCAN + lcField = LOWER(laFields[1, 1]) + lcLineText = lcField + ": " + TRANSFORM(xl_hdrfooterdefn.&lcField) + FOR lnFld=2 TO lnNumFlds + lcField = LOWER(laFields[lnFld, 1]) + lcLineText = lcLineText + "; " + lcField + ": " + TRANSFORM(xl_hdrfooterdefn.&lcField) + ENDFOR + lcFileText = lcFileText + lcLineText + CRLF + ENDSCAN + lcFileText = lcFileText + CRLF + CRLF + CRLF + SET ORDER TO + + SELECT xl_hdrfootertext + SET ORDER TO TAG hdrfootr + lcFileName = tcStemName + " " + ALIAS() + ".txt" + LIST TO FILE (lcFileName) NOCONSOLE + lnNumFlds = AFIELDS(laFields, "xl_hdrfootertext") + lcFileText = lcFileText + "Cursor: xl_hdrfootertext" + CRLF + SCAN + lcField = LOWER(laFields[1, 1]) + lcLineText = lcField + ": " + TRANSFORM(xl_hdrfootertext.&lcField) + FOR lnFld=2 TO lnNumFlds + lcField = LOWER(laFields[lnFld, 1]) + lcLineText = lcLineText + "; " + lcField + ": " + TRANSFORM(xl_hdrfootertext.&lcField) + ENDFOR + lcFileText = lcFileText + lcLineText + CRLF + ENDSCAN + lcFileText = lcFileText + CRLF + CRLF + CRLF + SET ORDER TO + + lcFileName = tcStemName + " Cursors.txt" + STRTOFILE(lcFileText, lcFileName) + ENDPROC + + PROCEDURE debugoutput && Limited functions for debugging + LOCAL lnWb, lnSh + lnWb = this.CreateWorkbook("ExcelDebug.xlsx") + + lnSh = this.AddSheet(lnWb, "Debug Output") + + this.SetCellValue(lnWb, lnSh, 1, 1, "Test string 1") + this.SetCellValue(lnWb, lnSh, 2, 1, "Test string 2") + this.SetCellValue(lnWb, lnSh, 3, 1, "Test string 3") + this.SetCellValue(lnWb, lnSh, 4, 1, "Test string 4") + this.SetCellValue(lnWb, lnSh, 5, 1, "Test string 5") + + this.SetCellValue(lnWb, lnSh, 8, 1, "This is a long Test string for word-wrapping to occur This is a long Test string for word-wrapping to occur") + this.SetCellWordWrap(lnWb, lnSh, 8, 1, True) + this.SetRowHeight(lnWb, lnSh, 8, 75) + this.SetColumnWidth(lnWb, lnSh, 1, 25) + + this.SetCellValue(lnWb, lnSh, 10, 1, DATE(2015, 5, 6)) + this.SetCellValue(lnWb, lnSh, 11, 1, DATETIME(2015, 5, 6, 6, 30, 30)) + + this.SetCellFont(lnWb, lnSh, 1, 1, "Arial", 14, True, , RGB(0,0,255)) + this.SetCellFont(lnWb, lnSh, 2, 1, "Times New Roman", , , , RGB(0,0,255)) + this.SetCellFont(lnWb, lnSh, 3, 1, "Consolas" , 14, True) + this.SetCellFont(lnWb, lnSh, 4, 1, "Arial", 24, True, True, RGB(0,0,255)) + this.SetCellFont(lnWb, lnSh, 5, 1, "Cooper Black" , 12, , , ) + + this.SetCellBorder(lnWb, lnSh, 2, 1, BORDER_TOP+BORDER_BOTTOM, BORDER_STYLE_THICK, RGB(100,150,200)) + this.SetCellBorder(lnWb, lnSh, 5, 1, BORDER_LEFT+BORDER_RIGHT, BORDER_STYLE_DOUBLE, RGB(255,0,0)) + + this.SetCellFill(lnWb, lnSh, 1, 1, RGB(255,204,153)) + this.SetCellFill(lnWb, lnSh, 3, 1, RGB(204,255,255)) + + this.SaveWorkbook(lnWb) + ENDPROC + + PROCEDURE debug_assign + LPARAMETERS tlDebug + IF tlDebug + SET DEBUGOUT TO "VFPXWorkbookXLSXDebug.txt" + ENDIF + this.Debug = tlDebug + ENDPROC + + PROTECTED PROCEDURE declaredll && Declares the required support Win32 API + DECLARE Sleep IN kernel32 AS apiSleep INTEGER tnTime + DECLARE INTEGER DeleteFile IN kernel32 AS apiDeleteFile STRING lpFileName + DECLARE INTEGER RemoveDirectory IN kernel32 AS apiRemoveDirectory STRING lpPathName + DECLARE LONG MoveFile IN Win32API AS apiMoveFile STRING SourceFileName, STRING DestFileName + DECLARE INTEGER ShellExecute IN Shell32 AS apiShellExecute LONG nhWnd, STRING lpAction, STRING lpFile, STRING lpParams, STRING lpDirectory, INTEGER nShowCmd + ENDPROC + + PROCEDURE deleteallworkbooks && Deletes all workbooks + LOCAL loException + TRY + this.DestroyWorkingCursors() + this.CreateWorkingCursors() + this.InitalizeIdValues() + + CATCH TO loException + SET STEP ON + ENDTRY + ENDPROC + + PROCEDURE deletesheet && Deletes the sheet from the Workbook + LPARAMETERS tnWB, txSheet + LOCAL lnSheet, lxReturn + lxReturn = False + DO CASE + CASE VARTYPE(txSheet) = "C" + IF SEEK(BINTOC(tnWB)+UPPER(txSheet), "xl_sheets", "shname") .AND. SEEK(BINTOC(tnWB)+BINTOC(xl_sheets.sheet), "xl_relationships", "sheet") + lnSheet = xl_sheets.sheet + REPLACE xl_sheets.shdeleted WITH True IN xl_sheets + DELETE IN xl_sheets + DELETE IN xl_relationships + lxReturn = True + ENDIF + + CASE VARTYPE(txSheet) = "N" + IF SEEK(BINTOC(tnWB)+BINTOC(txSheet), "xl_sheets", "sheetndx") .AND. SEEK(BINTOC(tnWB)+BINTOC(xl_sheets.sheet), "xl_relationships", "sheet") + lnSheet = txSheet + REPLACE xl_sheets.shdeleted WITH True IN xl_sheets + DELETE IN xl_sheets + DELETE IN xl_relationships + lxReturn = True + ENDIF + ENDCASE + IF lxReturn + REPLACE xl_cells.celldeleted WITH True FOR workbook = tnWB .AND. sheet = lnSheet IN xl_cells + DELETE FOR workbook = tnWB .AND. sheet = lnSheet IN xl_cells + ENDIF + RETURN lxReturn + ENDPROC + + PROCEDURE deleteworkbook && Deletes the selected workbook + LPARAMETERS tnWB + LOCAL llSuccess, lnNdx + TRY + REPLACE xl_sheets.shdeleted WITH True FOR workbook = tnWB IN xl_sheets + REPLACE xl_cells.celldeleted WITH True FOR workbook = tnWB IN xl_cells + DELETE FOR workbook = tnWB IN xl_workbooks + DELETE FOR workbook = tnWB IN xl_sheets + DELETE FOR workbook = tnWB IN xl_cells + DELETE FOR workbook = tnWB IN xl_strformat + DELETE FOR workbook = tnWB IN xl_strings + DELETE FOR workbook = tnWB IN xl_cellxfs + DELETE FOR workbook = tnWB IN xl_fonts + DELETE FOR workbook = tnWB IN xl_fills + DELETE FOR workbook = tnWB IN xl_borders + DELETE FOR workbook = tnWB IN xl_mergecells + DELETE FOR workbook = tnWB IN xl_colwidths + DELETE FOR workbook = tnWB IN xl_hdrfooterdefn + DELETE FOR workbook = tnWB IN xl_hdrfootertext + DELETE FOR workbook = tnWB IN xl_rowheights + DELETE FOR workbook = tnWB IN xl_validation + DELETE FOR workbook = tnWB IN xl_namerange + DELETE FOR workbook = tnWB IN xl_numfmts + DELETE FOR workbook = tnWB IN xl_rows + DELETE FOR workbook = tnWB IN xl_ndxcolors + DELETE FOR workbook = tnWB IN xl_mrucolors + DELETE FOR workbook = tnWB IN xl_relationships + DELETE FOR workbook = tnWB IN xl_extsheets + DELETE FOR workbook = tnWB IN xl_extcells + + lnNdx = ASCAN(this.LastBorderId, tnWB, 1, -1, 1, 15) + IF lnNdx > 0 + ADEL(this.LastBorderId, lnNdx) + lnNdx = ALEN(this.LastBorderId, 1) - 1 + IF lnNdx > 0 + DIMENSION this.LastBorderId[lnNdx, 2] + ELSE + this.LastBorderId[1, 1] = 0 && Workbook Id + this.LastBorderId[1, 2] = 0 && Last Border Id + ENDIF + ENDIF + + lnNdx = ASCAN(this.LastCellXfsId, tnWB, 1, -1, 1, 15) + IF lnNdx > 0 + ADEL(this.LastCellXfsId, lnNdx) + lnNdx = ALEN(this.LastCellXfsId, 1) - 1 + IF lnNdx > 0 + DIMENSION this.LastCellXfsId[lnNdx, 2] + ELSE + this.LastCellXfsId[1, 1] = 0 && Workbook Id + this.LastCellXfsId[1, 2] = 0 && Last CellXfs Id + ENDIF + ENDIF + + lnNdx = ASCAN(this.LastFillId, tnWB, 1, -1, 1, 15) + IF lnNdx > 0 + ADEL(this.LastFillId, lnNdx) + lnNdx = ALEN(this.LastFillId, 1) - 1 + IF lnNdx > 0 + DIMENSION this.LastFillId[lnNdx, 2] + ELSE + this.LastFillId[1, 1] = 0 && Workbook Id + this.LastFillId[1, 2] = 0 && Last Fill Id + ENDIF + ENDIF + + lnNdx = ASCAN(this.LastFontId, tnWB, 1, -1, 1, 15) + IF lnNdx > 0 + ADEL(this.LastFontId, lnNdx) + lnNdx = ALEN(this.LastFontId, 1) - 1 + IF lnNdx > 0 + DIMENSION this.LastFontId[lnNdx, 2] + ELSE + this.LastFontId[1, 1] = 0 && Workbook Id + this.LastFontId[1, 2] = 0 && Last Font Id + ENDIF + ENDIF + + lnNdx = ASCAN(this.LastIndexColorId, tnWB, 1, -1, 1, 15) + IF lnNdx > 0 + ADEL(this.LastIndexColorId, lnNdx) + lnNdx = ALEN(this.LastIndexColorId, 1) - 1 + IF lnNdx > 0 + DIMENSION this.LastIndexColorId[lnNdx, 2] + ELSE + this.LastIndexColorId[1, 1] = 0 && Workbook Id + this.LastIndexColorId[1, 2] = 0 && Last IndexColor Id + ENDIF + ENDIF + + lnNdx = ASCAN(this.LastMruColorId, tnWB, 1, -1, 1, 15) + IF lnNdx > 0 + ADEL(this.LastMruColorId, lnNdx) + lnNdx = ALEN(this.LastMruColorId, 1) - 1 + IF lnNdx > 0 + DIMENSION this.LastMruColorId[lnNdx, 2] + ELSE + this.LastMruColorId[1, 1] = 0 && Workbook Id + this.LastMruColorId[1, 2] = 0 && Last mruColor Id + ENDIF + ENDIF + + lnNdx = ASCAN(this.LastNumFmtId, tnWB, 1, -1, 1, 15) + IF lnNdx > 0 + ADEL(this.LastNumFmtId, lnNdx) + lnNdx = ALEN(this.LastNumFmtId, 1) - 1 + IF lnNdx > 0 + DIMENSION this.LastNumFmtId[lnNdx, 2] + ELSE + this.LastNumFmtId[1, 1] = 0 && Workbook Id + this.LastNumFmtId[1, 2] = 0 && Last NumFmt Id + ENDIF + ENDIF + + lnNdx = ASCAN(this.LastRelationId, tnWB, 1, -1, 1, 15) + IF lnNdx > 0 + ADEL(this.LastRelationId, lnNdx) + lnNdx = ALEN(this.LastRelationId, 1) - 1 + IF lnNdx > 0 + DIMENSION this.LastRelationId[lnNdx, 2] + ELSE + this.LastRelationId[1, 1] = 0 && Workbook Id + this.LastRelationId[1, 2] = 0 && Last Relationship Id + ENDIF + ENDIF + + lnNdx = ASCAN(this.LastSheetId, tnWB, 1, -1, 1, 15) + IF lnNdx > 0 + ADEL(this.LastSheetId, lnNdx) + lnNdx = ALEN(this.LastSheetId, 1) - 1 + IF lnNdx > 0 + DIMENSION this.LastSheetId[lnNdx, 2] + ELSE + this.LastSheetId[1, 1] = 0 && Workbook Id + this.LastSheetId[1, 2] = 0 && Last Sheet Id + ENDIF + ENDIF + + lnNdx = ASCAN(this.LastStringId, tnWB, 1, -1, 1, 15) + IF lnNdx > 0 + ADEL(this.LastStringId, lnNdx) + lnNdx = ALEN(this.LastStringId, 1) - 1 + IF lnNdx > 0 + DIMENSION this.LastStringId[lnNdx, 2] + ELSE + this.LastStringId[1, 1] = 0 && Workbook Id + this.LastStringId[1, 2] = 0 && Last String Id + ENDIF + ENDIF + llSuccess = True + + CATCH TO loException + SET STEP ON + llSuccess = False + ENDTRY + RETURN llSuccess + ENDPROC + + PROCEDURE demo && Demo for the features of this class + LOCAL lnWb, lnSh1, lnRow, lnCol, lnSh2, lnSh3, lnSh4, lnCnt, lnFormat, llBoolean, lcNamedRange + LOCAL lnSh6, lnSh5, loInline, lnStyle1, lnStyle2, lnBorders, lcString + lnWb = this.CreateWorkbook("ExcelTest.xlsx") + IF lnWb = 0 + RETURN False + ENDIF + + lnSh1 = this.AddSheet(lnWb, "Test Sheet 1") + IF lnSh1 = 0 + RETURN False + ENDIF + this.FreezePanes(lnWb, lnSh1, 1, 2) + + llBoolean = True + FOR lnRow=1 TO 10 + FOR lnCol=1 TO 9 + this.SetCellValue(lnWb, lnSh1, lnRow, lnCol, SYS(2015)) + ENDFOR + llBoolean = !llBoolean + this.SetCellValue(lnWb, lnSh1, lnRow, 10, llBoolean) + ENDFOR + this.SetRowHeight(lnWb, lnSh1, 6, 25) + + *-* Example of cell styles + lnStyle1 = this.CreateFormatStyle(lnWB) && Create the base style definition + lnBorders = BORDER_LEFT + BORDER_RIGHT + BORDER_TOP + BORDER_BOTTOM + this.AddStyleBorders(lnWB, lnStyle1, lnBorders, BORDER_STYLE_THIN, RGB(16,100,200)) + this.AddStyleFont(lnWB, lnStyle1, "Times New Roman", 14, False, False, RGB(0,0,255)) + this.SetCellStyleRange(lnWB, lnSh1, 2, 1, 2, 9, lnStyle1) + + lnStyle2 = this.CreateFormatStyle(lnWB) && Create the base style definition + lnBorders = BORDER_BOTTOM + this.AddStyleBorders(lnWB, lnStyle2, lnBorders, BORDER_STYLE_THICK, RGB(16,100,200)) + this.AddStyleFont(lnWB, lnStyle2, "Arial", 16, True, False) + this.SetCellStyleRange(lnWB, lnSh1, 4, 1, 4, 9, lnStyle2) + + *-* * Indentation examples [OLD WAY - DEPRICATED METHODS] + *-* this.SetCellIndent(lnWb, lnSh1, 2, 6, 3) + *-* this.SetCellIndent(lnWb, lnSh1, 4, 6, 3) + *-* this.SetCellIndent(lnWb, lnSh1, 6, 6, 3) + *-* this.SetCellIndent(lnWb, lnSh1, 8, 6, 3) + *-* this.SetCellIndent(lnWb, lnSh1, 10, 6, 3) + *-* + *-* * tnWB, tnSheet, tnCellRow, tnCellCol, tcFName, tnFSize, tlBold, tlItalic, tnFColor, tcULine, tlStrikThr, tcVPos + *-* this.SetCellFont(lnWb, lnSh1, 1, 1, "Arial", 14, True, True, RGB(0,0,255)) + *-* this.SetCellFont(lnWb, lnSh1, 2, 1, "Times New Roman", , , , RGB(0,0,255)) + *-* this.SetCellFont(lnWb, lnSh1, 3, 1, , 14, True) + *-* this.SetCellFont(lnWb, lnSh1, 4, 1, "Arial", 14, True, True, RGB(0,0,255)) + *-* this.SetCellFont(lnWb, lnSh1, 6, 1, , , , , , 'single') + *-* this.SetCellFont(lnWb, lnSh1, 7, 1, , , , , , 'double') + *-* this.SetCellFont(lnWb, lnSh1, 8, 1, , , , , , , True) + *-* this.SetCellFont(lnWb, lnSh1, 9, 1, , , , , , , , "superscript") + *-* + *-* * New procedure each line is drawed with the same style and color + *-* this.SetCellBorder(lnWb, lnSh1, 3, 4, 63, BORDER_STYLE_THIN, RGB(16,100,200)) + *-* this.SetCellBorder(lnWb, lnSh1, 3, 6, 31, BORDER_STYLE_THICK, RGB(100,150,200)) + *-* this.SetCellBorder(lnWb, lnSh1, 3, 8, 47, BORDER_STYLE_DOUBLE, RGB(200,150,100)) + *-* this.SetCellBorder(lnWb, lnSh1, 3, 4, 8, BORDER_STYLE_THIN, RGB(16,100,200)) + *-* + *-* this.SetCellWordWrapRange(lnWb, lnSh1, 1, 1, 10, 9, True) + *-* + *-* * Old procedure - each line can have a different style or color + *-* this.SetCellBorderEx(lnWb, lnSh1, 5, 2, 'thin',,'thin',,'thick',,'thick') + *-* this.SetCellBorderEx(lnWb, lnSh1, 9, 2, ,,,,'double',255,'thick',RGB(255,0,255)) + + * Example of setting inline text formatting + loInline = this.CreateInLineFormatText(lnWb, "This is an in-line formatted text string") + loInline = this.AddInLineFontObject(loInline, 1, 4, "Arial Black", 16) + loInline = this.AddInLineFontObject(loInline, 5, 15, "Times New Roman", 14, RGB(255,0,0), .T.) + loInline = this.AddInLineFontObject(loInline, 20, 21, "Arial", 12) + this.SetCellInLineFormatText(lnWb, lnSh1, 16, 1, loInline) + + * Rotated text + this.SetCellValue(lnWb, lnSh1, 17, 1, "This text is rotated 45 degrees") + this.SetCellTextRotation(lnWb, lnSh1, 17, 1, 45) + this.SetCellValue(lnWb, lnSh1, 18, 1, "This text is rotated -45 degrees") + this.SetCellTextRotation(lnWb, lnSh1, 18, 1, -45) + + * Similar text + this.SetCellValue(lnWb, lnSh1, 15, 7, "This text is similar") + this.SetCellValue(lnWb, lnSh1, 16, 7, "This text is similar to the one above but is longer length") + + *-* Very long text + lcString = "Addtionally, there is a new method for reading an existing XLSX file into the working cursors and then supporting methods to extract the individual cell values and formatting. However, this XLSX read method is still in development " + this.SetCellValue(lnWb, lnSh1, 22, 1, lcString) + lcString = lcString + "and not yet ready for use. This is the method OpenXlsxWorkbook() - only use if you want to try it but the method will not necessarily read all the numeric" + this.SetCellValue(lnWb, lnSh1, 23, 1, lcString) + lcString = lcString + " or date values correctly at this point. I did not want to hold this release of VFPxWorkbookXlsx class for the completion of the reading of the XLSX file due to the other bug fixes." + this.SetCellValue(lnWb, lnSh1, 24, 1, lcString) + + * Text with ASCII > 128 + this.SetCellValue(lnWb, lnSh1, 19, 1, "This text that has ASCII chars > 128:" + CRLF + "Trademark symbol: " + CHR(174) + CRLF + "Copyright symbol: " + CHR(169)) + + * Column Width examples + this.SetColumnWidth(lnWb, lnSh1, 1, 25) + this.SetColumnWidth(lnWb, lnSh1, 2, 15) + this.SetColumnWidth(lnWb, lnSh1, 3, 15) + this.SetColumnWidth(lnWb, lnSh1, 4, 20) + this.SetColumnWidth(lnWb, lnSh1, 5, 15) + this.SetColumnWidth(lnWb, lnSh1, 6, 25) + this.SetColumnWidth(lnWb, lnSh1, 9, 15) + + *Row inserted + this.InsertRow(lnWb, lnSh1, 5, INSERT_AFTER) + + *Column inserted + this.InsertColumn(lnWb, lnSh1, 5, INSERT_RIGHT) + + * Sheet setup examples + this.SetPrintOrientation(lnWb, lnSh1, PORTRAIT_PRINT_ORIENTATION) + this.SetPaperSize(lnWb, lnSh1, PAPERSIZE_LEGAL) + this.SetSheetScale(lnWb, lnSh1, 50) + + ******************************************************************************* + + lnSh2 = this.AddSheet(lnWb, "Test Sheet 2") + IF lnSh2 = 0 + RETURN False + ENDIF + this.FreezePanes(lnWb, lnSh2, 1) + + this.SetCellValue(lnWb, lnSh2, 1, 1, "Column Header 1") + this.SetCellValue(lnWb, lnSh2, 1, 2, "Column Header 2") + this.SetCellValue(lnWb, lnSh2, 1, 3, "Column Header 3") + this.SetCellValue(lnWb, lnSh2, 1, 4, "Column Header 4") + this.SetCellValue(lnWb, lnSh2, 1, 5, "Column Header 5") + + this.SetCellFont(lnWb, lnSh2, 1, 1, "Arial", 14, True, False, RGB(255,255,255)) + this.SetCellFill(lnWb, lnSh2, 1, 1, RGB(51,102,255)) + this.CellFormatPainter(lnWb, lnSh2, 1, 1, 1, 2, 1, 5) + + this.SetColumnWidthRange(lnWb, lnSh2, 1, 5, 24) + + * Add integer values to cells + FOR lnRow=2 TO 6 + FOR lnCol=1 TO 5 + this.SetCellValue(lnWb, lnSh2, lnRow, lnCol, lnRow*lnCol) + ENDFOR + ENDFOR + + * Add SUM() formula to columns + FOR lnCol=1 TO 5 + lcColumn = this.ColumnIndexToAscii(lnCol) + this.SetCellFormula(lnWb, lnSh2, 7, lnCol, "=SUM(" + lcColumn + "2:" + lcColumn + "6)") + ENDFOR + + * Add floating point values to cells + FOR lnRow=10 TO 15 + FOR lnCol=3 TO 5 + this.SetCellValue(lnWb, lnSh2, lnRow, lnCol, lnRow*1.25) + ENDFOR + ENDFOR + + * Add AVERAGE(), MAX(), & MIN() formula to columns + this.SetCellFormula(lnWb, lnSh2, 16, 3, "=AVERAGE(C10:C15)") + this.SetCellFormula(lnWb, lnSh2, 16, 4, "=MAX(D10:D15)") + this.SetCellFormula(lnWb, lnSh2, 16, 5, "=MIN(E10:E15)") + + this.SetCellValue(lnWb, lnSh2, 16, 1, "This row contains calculated formulas -->") + + * Merge some cells + this.MergeCells(lnWb, lnSh2, 2, 8, 2, 10) + this.MergeCells(lnWb, lnSh2, 3, 8, 3, 10) + this.MergeCells(lnWb, lnSh2, 5, 8, 10, 10) + this.SetCellValue(lnWb, lnSh2, 2, 8, "Merged H2:J2") + this.SetCellValue(lnWb, lnSh2, 3, 8, "Merged H3:J3") + this.SetCellValue(lnWb, lnSh2, 5, 8, "Merged H5:J10") + this.SetCustomPaperSize(lnWb, lnSh2, 841, 1189, "mm") + this.SetHeaderFooterSetup(lnWb, lnSh2, False, True, False, False) + this.SetHeaderFooterText(lnWb, lnSh2, HEADERFOOTER_FIRST_PAGE, HEADERFOOTER_SECT_HDR_CENTER, "This is First Page", "Arial", 16, HEADERFOOTER_FONT_STYLE_BOLD, RGB(255,0,0)) + this.SetHeaderFooterText(lnWb, lnSh2, HEADERFOOTER_SAME_PAGE, HEADERFOOTER_SECT_HDR_CENTER, "These are Additional Pages", "Arial", 10, HEADERFOOTER_FONT_STYLE_BOLD, RGB(0,128,0)) + this.SetHeaderFooterText(lnWb, lnSh2, HEADERFOOTER_SAME_PAGE, HEADERFOOTER_SECT_FTR_CENTER, "Page &P of &N", "Arial", 16, HEADERFOOTER_FONT_STYLE_BOLD) + + ******************************************************************************* + + lnSh3 = this.AddSheet(lnWb, "Number Formats") + IF lnSh3 = 0 + RETURN False + ENDIF + + lnFormat = this.AddNumericFormat(lnWb, '[Green]"$"#,##0.00;[Red]"$"#,##0.00') + *lnFormat = this.AddCustomNumericFormat(lnWb, '[Green]"$"#,##0.00', '[Red]"$"#,##0.00') + this.SetCellValue(lnWb, lnSh3, 1, 1, 56.558) + this.SetCellValue(lnWb, lnSh3, 1, 2, "Custom defined format: " + this.GetCustomNumericFormat(lnWb, lnFormat)) + this.SetCellNumberFormat(lnWb, lnSh3, 1, 1, lnFormat) + + this.SetColumnWidth(lnWb, lnSh3, 1, 18) + this.SetColumnWidth(lnWb, lnSh3, 2, 60) + + this.SetCellValue(lnWb, lnSh3, 3, 1, 14) + this.SetCellValue(lnWb, lnSh3, 3, 2, "Integer format") + this.SetCellNumberFormat(lnWb, lnSh3, 3, 1, CELL_FORMAT_INTEGER) + + this.SetCellValue(lnWb, lnSh3, 4, 1, 13355.2) + this.SetCellValue(lnWb, lnSh3, 4, 2, "Float format") + this.SetCellNumberFormat(lnWb, lnSh3, 4, 1, CELL_FORMAT_FLOAT) + + this.SetCellValue(lnWb, lnSh3, 5, 1, 16898) + this.SetCellValue(lnWb, lnSh3, 5, 2, "Integer format, comma separated") + this.SetCellNumberFormat(lnWb, lnSh3, 5, 1, CELL_FORMAT_COMMA_INTEGER) + + this.SetCellValue(lnWb, lnSh3, 6, 1, 13355.20) + this.SetCellValue(lnWb, lnSh3, 6, 2, "Float format, comma separated") + this.SetCellNumberFormat(lnWb, lnSh3, 6 , 1, CELL_FORMAT_COMMA_FLOAT) + + this.SetCellValue(lnWb, lnSh3, 7, 1, -13355.20) + this.SetCellValue(lnWb, lnSh3, 7, 2, "Currency format, negative in parenthesis") + this.SetCellNumberFormat(lnWb, lnSh3, 7, 1, CELL_FORMAT_CURRENCY_PAREN) + + this.SetCellValue(lnWb, lnSh3, 8, 1, -13355.20) + this.SetCellValue(lnWb, lnSh3, 8, 2, "Currency format, negative red in parenthesis") + this.SetCellNumberFormat(lnWb, lnSh3, 8, 1, CELL_FORMAT_CURRENCY_RED_PAREN) + + this.SetCellValue(lnWb, lnSh3, 10, 1, 0.55) + this.SetCellValue(lnWb, lnSh3, 10, 2, "Percent format, integer") + this.SetCellNumberFormat(lnWb, lnSh3, 10, 1, CELL_FORMAT_PERCENT_INTEGER) + + this.SetCellValue(lnWb, lnSh3, 11, 1, 0.5534) + this.SetCellValue(lnWb, lnSh3, 11, 2, "Percent format, float") + this.SetCellNumberFormat(lnWb, lnSh3, 11, 1, CELL_FORMAT_PERCENT_FLOAT) + + this.SetCellValue(lnWb, lnSh3, 13, 1, 456800000.00) + this.SetCellValue(lnWb, lnSh3, 13, 2, "Exponential format") + this.SetCellNumberFormat(lnWb, lnSh3, 13, 1, CELL_FORMAT_EXPONENT) + + this.SetCellValue(lnWb, lnSh3, 15, 1, 0.25) + this.SetCellValue(lnWb, lnSh3, 15, 2, "Fraction format, single place") + this.SetCellNumberFormat(lnWb, lnSh3, 15, 1, CELL_FORMAT_FRACTION_1) + + this.SetCellValue(lnWb, lnSh3, 16, 1, 0.3125) + this.SetCellValue(lnWb, lnSh3, 16, 2, "Fraction format, 2 places") + this.SetCellNumberFormat(lnWb, lnSh3, 16, 1, CELL_FORMAT_FRACTION_2) + + this.SetCellValue(lnWb, lnSh3, 18, 1, DATE()) + this.SetCellValue(lnWb, lnSh3, 18, 2, "Default date format") + this.SetCellNumberFormat(lnWb, lnSh3, 18, 1, CELL_FORMAT_DATE_DMMMYY) + + this.SetCellValue(lnWb, lnSh3, 19, 1, DATE()) + this.SetCellValue(lnWb, lnSh3, 19, 2, "Date format, d-mmm-yy") + this.SetCellNumberFormat(lnWb, lnSh3, 19, 1, CELL_FORMAT_DATE_DMMMYY) + + this.SetCellValue(lnWb, lnSh3, 20, 1, DATE()) + this.SetCellValue(lnWb, lnSh3, 20, 2, "Date format, d-mmm") + this.SetCellNumberFormat(lnWb, lnSh3, 20, 1, CELL_FORMAT_DATE_DMMM) + + this.SetCellValue(lnWb, lnSh3, 21, 1, DATE()) + this.SetCellValue(lnWb, lnSh3, 21, 2, "Date format, mmm-yy") + this.SetCellNumberFormat(lnWb, lnSh3, 21, 1, CELL_FORMAT_DATE_MMMYY) + + this.SetCellValue(lnWb, lnSh3, 23, 1, 0.35733796296296294) + this.SetCellValue(lnWb, lnSh3, 23, 2, "Time format, h:mm AM/PM") + this.SetCellNumberFormat(lnWb, lnSh3, 23, 1, CELL_FORMAT_TIME_HMMAMPM) + + this.SetCellValue(lnWb, lnSh3, 24, 1, 0.35733796296296294) + this.SetCellValue(lnWb, lnSh3, 24, 2, "Time format, h:mm:ss AM/PM") + this.SetCellNumberFormat(lnWb, lnSh3, 24, 1, CELL_FORMAT_TIME_HMMSSAMPM) + + this.SetCellValue(lnWb, lnSh3, 25, 1, 0.35733796296296294) + this.SetCellValue(lnWb, lnSh3, 25, 2, "Time format, h:mm") + this.SetCellNumberFormat(lnWb, lnSh3, 25, 1, CELL_FORMAT_TIME_HMM) + + this.SetCellValue(lnWb, lnSh3, 26, 1, 0.35733796296296294) + this.SetCellValue(lnWb, lnSh3, 26, 2, "Time format, h:mm:ss") + this.SetCellNumberFormat(lnWb, lnSh3, 26, 1, CELL_FORMAT_TIME_HMMSS) + + this.SetCellValue(lnWb, lnSh3, 28, 1, DATETIME()) + this.SetCellValue(lnWb, lnSh3, 28, 2, "Date-Time format, m/d/yy h:mm") + this.SetCellNumberFormat(lnWb, lnSh3, 28, 1, CELL_FORMAT_DATETIME_MDYYHMM) + + this.SetCellValue(lnWb, lnSh3, 29, 1, DATETIME()) + this.SetCellValue(lnWb, lnSh3, 29, 2, "Date-Time format, [$-409]dd/mmm/yyyy\ h:mm\ AM/PM;@") + this.SetCellNumberFormat(lnWb, lnSh3, 29, 1, CELL_FORMAT_DATETIME_DDMMMYYYY_TTAM) + + this.SetCellValue(lnWb, lnSh3, 30, 1, DATETIME()) + this.SetCellValue(lnWb, lnSh3, 30, 2, "Date-Time format, dd/mmm/yyyy\ h:mm;@") + this.SetCellNumberFormat(lnWb, lnSh3, 30, 1, CELL_FORMAT_DATETIME_DDMMMYYYY_TT24) + + this.SetCellValue(lnWb, lnSh3, 31, 1, DATETIME()) + this.SetCellValue(lnWb, lnSh3, 31, 2, "Date-Time format, [$-409]mmm\ d\,\ yyyy\ h:mm\ AM/PM;@") + this.SetCellNumberFormat(lnWb, lnSh3, 31, 1, CELL_FORMAT_DATETIME_MMMDDYYYY_TTAM) + + this.SetCellValue(lnWb, lnSh3, 32, 1, DATETIME()) + this.SetCellValue(lnWb, lnSh3, 32, 2, "Date-Time format, [$-409]mmm\ d\,\ yyyy\ h:mm;@") + this.SetCellNumberFormat(lnWb, lnSh3, 32, 1, CELL_FORMAT_DATETIME_MMMDDYYYY_TT24) + + this.SetCellValue(lnWb, lnSh3, 33, 1, DATETIME()) + this.SetCellValue(lnWb, lnSh3, 33, 2, "Date-Time format, m/d/yy\ h:mm\ AM/PM;@") + this.SetCellNumberFormat(lnWb, lnSh3, 33, 1, CELL_FORMAT_DATETIME_MDYY_TTAM) + + this.SetCellValue(lnWb, lnSh3, 34, 1, DATETIME()) + this.SetCellValue(lnWb, lnSh3, 34, 2, "Date-Time format, m/d/yy\ h:mm;@") + this.SetCellNumberFormat(lnWb, lnSh3, 34, 1, CELL_FORMAT_DATETIME_MDYY_TT24) + + this.SetCellValue(lnWb, lnSh3, 36, 1, -89235) + this.SetCellValue(lnWb, lnSh3, 36, 2, "Numeric format, #,##0;(#,##0)") + this.SetCellNumberFormat(lnWb, lnSh3, 36, 1, CELL_FORMAT_COMMA_INTEGER_PAREN) + + this.SetCellValue(lnWb, lnSh3, 37, 1, -12457) + this.SetCellValue(lnWb, lnSh3, 37, 2, "Numeric format, #,##0;[Red](#,##0)") + this.SetCellNumberFormat(lnWb, lnSh3, 37, 1, CELL_FORMAT_COMMA_INTEGER_RED_PAREN) + + this.SetCellValue(lnWb, lnSh3, 38, 1, -1245789.22) + this.SetCellValue(lnWb, lnSh3, 38, 2, "Numeric format, #,##0.00;(#,##0.00)") + this.SetCellNumberFormat(lnWb, lnSh3, 38, 1, CELL_FORMAT_COMMA_FLOAT_PAREN) + + this.SetCellValue(lnWb, lnSh3, 39, 1, -125896.33) + this.SetCellValue(lnWb, lnSh3, 39, 2, "Numeric format, #,##0.00;[Red](#,##0.00)") + this.SetCellNumberFormat(lnWb, lnSh3, 39, 1, CELL_FORMAT_COMMA_FLOAT_RED_PAREN) + + this.SetCellValue(lnWb, lnSh3, 41, 1, 6.25E-2) + this.SetCellValue(lnWb, lnSh3, 41, 2, "Time format") + this.SetCellNumberFormat(lnWb, lnSh3, 41, 1, CELL_FORMAT_TIME_MMSS) + + this.SetCellValue(lnWb, lnSh3, 42, 1, 0.35733796296296294) + this.SetCellValue(lnWb, lnSh3, 42, 2, "Time format, [h]:mm:ss") + this.SetCellNumberFormat(lnWb, lnSh3, 42, 1, CELL_FORMAT_TIME_H_MMSS) + + this.SetCellValue(lnWb, lnSh3, 44, 1, -45.55) + this.SetCellValue(lnWb, lnSh3, 44, 2, "CELL_FORMAT_CURRENCY_RED") + this.SetCellNumberFormat(lnWb, lnSh3, 44, 1, CELL_FORMAT_CURRENCY_RED) + + this.SetCellValue(lnWb, lnSh3, 45, 1, -45.55) + this.SetCellValue(lnWb, lnSh3, 45, 2, "CELL_FORMAT_ACC_CURR_POUNDS") + this.SetCellNumberFormat(lnWb, lnSh3, 45, 1, CELL_FORMAT_ACC_CURR_POUNDS) + + this.SetCellValue(lnWb, lnSh3, 46, 1, -45.55) + this.SetCellValue(lnWb, lnSh3, 46, 2, "CELL_FORMAT_ACC_CURR_EURO") + this.SetCellNumberFormat(lnWb, lnSh3, 46, 1, CELL_FORMAT_ACC_CURR_EURO) + + this.SetCellValue(lnWb, lnSh3, 47, 1, -45.55) + this.SetCellValue(lnWb, lnSh3, 47, 2, "CELL_FORMAT_CURR_EURO_RED") + this.SetCellNumberFormat(lnWb, lnSh3, 47, 1, CELL_FORMAT_CURR_EURO_RED) + + this.SetCellValue(lnWb, lnSh3, 48, 1, -45.55) + this.SetCellValue(lnWb, lnSh3, 48, 2, "CELL_FORMAT_CURR_POUNDS_RED") + this.SetCellNumberFormat(lnWb, lnSh3, 48, 1, CELL_FORMAT_CURR_POUNDS_RED) + + this.SetPrintOrientation(lnWb, lnSh3, LANDSCAPE_PRINT_ORIENTATION) + *-* this.SetPrintFitToHeight(lnWb, lnSh3, 2) + + ******************************************************************************* + + lnSh4 = this.AddSheet(lnWb, "Color Sheet") + IF lnSh4 = 0 + RETURN False + ENDIF + + this.SetCellValue(lnWb, lnSh4, 1, 1, "RGB(51,102,255)") + this.SetCellFill(lnWb, lnSh4, 1, 1, RGB(51,102,255)) + + this.SetCellValue(lnWb, lnSh4, 1, 2, "RGB(255,0,0)") + this.SetCellFill(lnWb, lnSh4, 1, 2, RGB(255,0,0)) + + this.SetCellAlignmentRange(lnWb, lnSh4, 1, 1, 1, 2, CELL_HORIZ_ALIGN_CENTER, CELL_VERT_ALIGN_CENTER) + + this.SetColumnWidthRange(lnWb, lnSh4, 1, 2, 18) + this.SetRowHeight(lnWb, lnSh4, 1, 60) + + ******************************************************************************* + + lnSh5 = this.AddSheet(lnWb, "Blank Sheet") + + ******************************************************************************* + + lnSh6 = this.AddSheet(lnWb, "List Values", HIDDEN_SHEET_STATE) + IF lnSh6 = 0 + RETURN False + ENDIF + + this.SetCellValidation(lnWb, lnSh1, 13, 1, LIST_VALID_TYPE, , , , , , , , , "Yes,No,Maybe") + this.SetCellValue(lnWb, lnSh1, 13, 2, "The cell to the left has a droplist validation") + + this.SetCellValue(lnWb, lnSh6, 1, 1, "Named Value List") + this.SetCellValue(lnWb, lnSh6, 2, 1, "Named Value 1") + this.SetCellValue(lnWb, lnSh6, 3, 1, "Named Value 2") + this.SetCellValue(lnWb, lnSh6, 4, 1, "Named Value 3") + this.SetCellValue(lnWb, lnSh6, 5, 1, "Named Value 4") + this.SetCellValue(lnWb, lnSh6, 6, 1, "Named Value 5") + this.SetCellValue(lnWb, lnSh6, 7, 1, "Named Value 6") + + lcNamedRange = this.AddNamedRange(lnWb, lnSh6, "Named Range", SCOPE_WB_NAMED_RANGE, "This is a comment", 2, 1, 7, 1) + + this.SetCellValidation(lnWb, lnSh1, 14, 1, LIST_VALID_TYPE, , , , , , , , , "=" + lcNamedRange) + this.SetCellValue(lnWb, lnSh1, 14, 2, "The cell to the left has a droplist validation based on a Named Range (stored in Hidden Sheet6)") + + this.InsertCell(lnWb, lnSh1, 9, 9, INSERT_RIGHT) + this.InsertCell(lnWb, lnSh1, 11, 9, INSERT_BEFORE) + + *-* For testing sheet saving only + *this.DeleteSheet(lnWb, lnSh2) + + this.SaveWorkbook(lnWb) + IF this.Debug + this.DebugCursorsToFile("ExcelTest") + ENDIF + ENDPROC + + PROTECTED PROCEDURE derivesheetname && Derives the sheet name + LPARAMETERS txWB + DO CASE + CASE VARTYPE(txWB) = "C" + lcSheetName = JUSTSTEM(txWB) + + CASE VARTYPE(txWB) = "N" + lcSheetName = JUSTSTEM(this.GetWorkbookFileName(txWB)) + + OTHERWISE + RETURN "" + ENDCASE + RETURN lcSheetName + ENDPROC + + PROTECTED PROCEDURE Destroy + SET DEBUGOUT TO + this.DestroyWorkingCursors() + this.OnDestroy() + ENDPROC + + PROTECTED PROCEDURE destroyworkingcursors && Destroys the working cursors + TRY + USE IN SELECT('xl_strings') + USE IN SELECT('xl_workbooks') + USE IN SELECT('xl_sheets') + USE IN SELECT('xl_cells') + USE IN SELECT('xl_fonts') + USE IN SELECT('xl_fills') + USE IN SELECT('xl_borders') + USE IN SELECT('xl_mergecells') + USE IN SELECT('xl_colwidths') + USE IN SELECT('xl_hdrfooterdefn') + USE IN SELECT('xl_hdrfootertext') + USE IN SELECT('xl_rowheights') + USE IN SELECT('xl_numfmts') + USE IN SELECT('xl_namerange') + USE IN SELECT('xl_validation') + USE IN SELECT('xl_strformat') + USE IN SELECT('xl_cellxfs') + USE IN SELECT('xl_rows') + USE IN SELECT('xl_ndxcolors') + USE IN SELECT('xl_mrucolors') + USE IN SELECT('xl_relationships') + USE IN SELECT('xl_extsheets') + USE IN SELECT('xl_extcells') + + CATCH TO loException + ENDTRY + ENDPROC + + PROTECTED PROCEDURE documentation && Documentation of the methods and properties for this class + *-* + *-* Written by: Vilhelm Praisach + *-* Gregory Green + *-* + *-* Release History: + *-* + *-* May 11, 2015 Initial release. + *-* May 12, 2015 Added new methods: SetCellFormatRange, SetCellBorderRange, SaveGridToWorkbook + *-* Added new properties: Title, Subject, CompanyName + *-* Added check in SetCellValue that if a value is being set in a merged cell range then the value is set in the upper + *-* left cell of the merged range + *-* Corrected sheet references when writing the sheet XML + *-* May 27, 2015 Added new methods: ConvertPixelsToExcelUnits, GetWorkbook, GetWorkbookSheets, DeleteWorkbook, DeleteAllWorkbooks, + *-* SetCellAlignment, SetCellNumberDecimals, SetCellNumberFormat, SetCellNumberFormatRange, + *-* SetColumnWidthRange, SetRowHeight, SetRowHeightRange, SetCellWordWrap + *-* Renamed method RemoveSheet to DeleteSheet + *-* Corrected string to XML conversion (was performing a double conversion of the string) + *-* Corrected issue of generated XLSX file being deleted; increase of Sleep() time for file rename + *-* June 1, 2015 Corrected bug in merge cell and cell value assignment (after a merge cell was performed any subsequent sheets + *-* added that had cells in the same merge range with value assignments was not having the values set correctly) + *-* Changed property name ExcelXlsxVersion to ExcelXlsxRelease; this property will give the Release number (integer) + *-* of this class + *-* June 5, 2015 Added to set the default selected table/cursor (value retuned by ALIAS() function) when the default table/cursor + *-* is changed in a method + *-* Added new method: SaveTableToWorkbook + *-* June 8, 2015 No new features. Code was optimized for better performance. + *-* + *-* The first optimization I changed the SetCellValue() code to now always attempt to INSERT first. I added the CANDIDATE + *-* clause to the primary INDEX so that if a cell is already entered, the INSERT command will fail in a TRY-CATCH block + *-* (duplicate KEY); in the CATCH portion I do an update to the cell value. This reduced the time to assign the values + *-* significantly. I had been doing a SEEK() for the cell and updating if found otherwise doing an INSERT + *-* + *-* The second optimization was how I was assigning a string index value. The original code did a SELECT-SQL WITH a MAX() + *-* for the last used index value IN the workbook (strings are universal TO a workbook); I changed to a property value + *-* (array indexed by the workbook number) and then just increment this value as it is used. Great amount of savings here too. + *-* + *-* The LAST optimization was in how the Sheet.xml were being written. I now just do a SCAN across the cells and add to the + *-* XML. I was doing several SQL calls to first get the rows and then SQL calls TO the columns for each row. Again not as + *-* efficient as just SCAN-ENDSCAN on the cells cursor table. Had to build in logic to populate rows that did not have a + *-* cell value assigned but had row height assigned. The SQL coding was easier for this but at a great cost in time. + *-* June 9, 2015 No new features. Bug fix for a nasty crash of Excel when the print or print-preview is selected. Congratulations to + *-* Vilhelm for finding this bug. + *-* July 1, 2015 Corrected return value for AddNumericFormat. + *-* Changed the parameters on AddNumericFormat(); now just pass the numeric format + *-* + *-* Oct 29, 2015 Added new functions for opening an existing workbook (xlsx). Added sheet print formatting methods. + *-* + *-************************************************************************************************************************************ + ENDPROC + + PROCEDURE freezepanes && Freezes the panes of the sheet + LPARAMETERS tnWB, tnSheet, tnTopRowCount, tnSideColCount + LOCAL lxReturn + DO CASE + CASE PCOUNT() < 3 + RETURN False + + CASE PCOUNT() = 3 + tnSideColCount = 0 + ENDCASE + IF VARTYPE(tnTopRowCount) != 'N' + tnTopRowCount = 0 + ENDIF + IF VARTYPE(tnSideColCount) != 'N' + tnSideColCount = 0 + ENDIF + IF this.GetSheetRecord(tnWB, tnSheet) + REPLACE xl_sheets.xsplit WITH tnSideColCount, ; + xl_sheets.ysplit WITH tnTopRowCount IN xl_sheets + lxReturn = True + ELSE + lxReturn = False + ENDIF + RETURN lxReturn + ENDPROC + + PROTECTED PROCEDURE getalphanumericsplit && Returns the position of the alpha and numeric split + LPARAMETERS tcText + LOCAL lnChr + FOR lnChr=1 TO LEN(tcText) + IF ISDIGIT(SUBSTR(tcText, lnChr, 1)) + RETURN lnChr + ENDIF + ENDFOR + RETURN 0 + ENDPROC + + PROTECTED PROCEDURE getbordersrecord && Gets the border record; returns True if found, or False in not found + LPARAMETERS tnWB, tcLStyle, tnLColor, tcRStyle, tnRColor, tcTStyle, tnTColor, tcBStyle, tnBColor, tcDStyle, tnDColor, tnDiagDn, tnDiagUp + RETURN SEEK(BINTOC(tnWB) + tcLStyle + BINTOC(tnLColor) + tcRStyle + BINTOC(tnRColor) + tcTStyle + BINTOC(tnTColor) + tcBStyle + BINTOC(tnBColor) + ; + tcDStyle + BINTOC(tnDColor) + BINTOC(tnDiagDn) + BINTOC(tnDiagUp), "xl_borders", "cellborder") + ENDPROC + + PROCEDURE getcellalignment && Returns the cell alignment + LPARAMETERS tnWB, tnSheet, tnCellRow, tnCellCol + LOCAL loAlignInfo + IF PCOUNT() < 4 + RETURN .NULL. + ENDIF + IF this.GetCellRecord(tnWB, tnSheet, tnCellRow, tnCellCol) .AND. this.GetCellXfsRecord(tnWB, xl_cells.cellxfs) + loAlignInfo = CREATEOBJECT("Empty") + ADDPROPERTY(loAlignInfo, "HorzAlign", xl_cellxfs.halign) + ADDPROPERTY(loAlignInfo, "VertAlign", xl_cellxfs.valign) + ELSE + loAlignInfo = .NULL. + ENDIF + RETURN loAlignInfo + ENDPROC + + PROCEDURE getcellborders && Returns the cell border info + LPARAMETERS tnWB, tnSheet, tnCellRow, tnCellCol + LOCAL loBdrInfo + IF PCOUNT() < 4 + RETURN .NULL. + ENDIF + IF this.GetCellRecord(tnWB, tnSheet, tnCellRow, tnCellCol) .AND. this.GetCellXfsRecord(tnWB, xl_cells.cellxfs) .AND. this.GetCursorRecord("xl_borders", tnWB, xl_cellxfs.borderId) + loBdrInfo = CREATEOBJECT("Empty") + ADDPROPERTY(loBdrInfo, "LeftStyle", xl_borders.lstyle) + ADDPROPERTY(loBdrInfo, "LeftColor", xl_borders.lcolor) + ADDPROPERTY(loBdrInfo, "LeftTheme", xl_borders.ltheme) + ADDPROPERTY(loBdrInfo, "LeftTint", xl_borders.ltint) + ADDPROPERTY(loBdrInfo, "LeftIndex", xl_borders.lindexed) + + ADDPROPERTY(loBdrInfo, "RightStyle", xl_borders.rstyle) + ADDPROPERTY(loBdrInfo, "RightColor", xl_borders.rcolor) + ADDPROPERTY(loBdrInfo, "RightTheme", xl_borders.rtheme) + ADDPROPERTY(loBdrInfo, "RightTint", xl_borders.rtint) + ADDPROPERTY(loBdrInfo, "RightIndex", xl_borders.rindexed) + + ADDPROPERTY(loBdrInfo, "TopStyle", xl_borders.tstyle) + ADDPROPERTY(loBdrInfo, "TopColor", xl_borders.tcolor) + ADDPROPERTY(loBdrInfo, "TopTheme", xl_borders.ttheme) + ADDPROPERTY(loBdrInfo, "TopTint", xl_borders.ttint) + ADDPROPERTY(loBdrInfo, "TopIndex", xl_borders.tindexed) + + ADDPROPERTY(loBdrInfo, "BotStyle", xl_borders.bstyle) + ADDPROPERTY(loBdrInfo, "BotColor", xl_borders.bcolor) + ADDPROPERTY(loBdrInfo, "BotTheme", xl_borders.btheme) + ADDPROPERTY(loBdrInfo, "BotTint", xl_borders.btint) + ADDPROPERTY(loBdrInfo, "BotIndex", xl_borders.bindexed) + + ADDPROPERTY(loBdrInfo, "DiagStyle", xl_borders.dstyle) + ADDPROPERTY(loBdrInfo, "DiagColor", xl_borders.dcolor) + ADDPROPERTY(loBdrInfo, "DiagTheme", xl_borders.dtheme) + ADDPROPERTY(loBdrInfo, "DiagTint", xl_borders.dtint) + ADDPROPERTY(loBdrInfo, "DiagIndex", xl_borders.dindexed) + + ADDPROPERTY(loBdrInfo, "DiagDn", xl_borders.diagdn) + ADDPROPERTY(loBdrInfo, "DiagUp", xl_borders.diagup) + ELSE + loBdrInfo = .NULL. + ENDIF + RETURN loBdrInfo + ENDPROC + + PROCEDURE getcelldatatype && Returns the data type for the selected cell + LPARAMETERS tnWB, tnSheet, tnCellRow, tnCellCol + LOCAL lxReturn + IF PCOUNT() < 4 + RETURN .NULL. + ENDIF + IF this.GetCellRecord(tnWB, tnSheet, tnCellRow, tnCellCol) + lxReturn = xl_cells.datatype + ELSE + lxReturn = .NULL. + ENDIF + RETURN lxReturn + ENDPROC + + PROCEDURE getcellfill && Returns the fill info for the cell + LPARAMETERS tnWB, tnSheet, tnCellRow, tnCellCol + LOCAL loFillInfo + IF PCOUNT() < 4 + RETURN .NULL. + ENDIF + IF this.GetCellRecord(tnWB, tnSheet, tnCellRow, tnCellCol) .AND. this.GetCellXfsRecord(tnWB, xl_cells.cellxfs) .AND. this.GetCursorRecord("xl_fills", tnWB, xl_cellxfs.fillid) + loFillInfo = CREATEOBJECT("Empty") + ADDPROPERTY(loFillInfo, "FgColor", xl_fills.fgcolor) + ADDPROPERTY(loFillInfo, "BgColor", xl_fills.bgcolor) + ADDPROPERTY(loFillInfo, "PatType", xl_fills.patttype) + ADDPROPERTY(loFillInfo, "Theme", xl_fills.theme) + ADDPROPERTY(loFillInfo, "Tint", xl_fills.tint) + ADDPROPERTY(loFillInfo, "FgIndexed", xl_fills.fgindexed) + ADDPROPERTY(loFillInfo, "BgIndexed", xl_fills.bgindexed) + ELSE + loFillInfo = .NULL. + ENDIF + RETURN loFillInfo + ENDPROC + + PROCEDURE getcellfont && Returns the cell font settings + LPARAMETERS tnWB, tnSheet, tnCellRow, tnCellCol + LOCAL loFontInfo + IF PCOUNT() < 4 + RETURN .NULL. + ENDIF + IF this.GetCellRecord(tnWB, tnSheet, tnCellRow, tnCellCol) .AND. this.GetCellXfsRecord(tnWB, xl_cells.cellxfs) .AND. this.GetCursorRecord("xl_fonts", tnWB, xl_cellxfs.fontid) + loFontInfo = CREATEOBJECT("Empty") + ADDPROPERTY(loFontInfo, "FontName", ALLTRIM(xl_fonts.fname)) + ADDPROPERTY(loFontInfo, "FontSize", xl_fonts.fsize) + ADDPROPERTY(loFontInfo, "FontBold", xl_fonts.fbold) + ADDPROPERTY(loFontInfo, "FontItalic", xl_fonts.fitalic) + ADDPROPERTY(loFontInfo, "ForeColor", xl_fonts.fcolor) + ADDPROPERTY(loFontInfo, "FontUnderline", ALLTRIM(xl_fonts.uline)) + ADDPROPERTY(loFontInfo, "FontStrikeThr", xl_fonts.strkthr) + ADDPROPERTY(loFontInfo, "FontVerticalPos", ALLTRIM(xl_fonts.fvpos)) + ELSE + loFontInfo = .NULL. + ENDIF + RETURN loFontInfo + ENDPROC + + PROCEDURE getcellformula && Returns the cell formula expression + LPARAMETERS tnWB, tnSheet, tnCellRow, tnCellCol + LOCAL lcFormula + IF PCOUNT() < 4 + RETURN .NULL. + ENDIF + lcFormula = .NULL. + IF this.GetCellRecord(tnWB, tnSheet, tnCellRow, tnCellCol) + lcFormula = ALLTRIM(xl_cells.cellformula) + ENDIF + RETURN lcFormula + ENDPROC + + PROTECTED PROCEDURE getcellformulafromxml && Gets the cell formula from the XML node + LPARAMETERS tcFormula, tnCellCol + LOCAL lcFormula, lcShared, lnId, lcTemp, lnNdx, lcChr, lcAddExpr, lnCol, lcRef, lcRefBeg, lcRefEnd, llColRelative + LOCAL lnColBase, llRowRelative, lnRowBase + lcFormula = this.GetNodeElementValue(tcFormula) + lcShared = this.GetNodeAttributeValue(tcFormula, "t") + IF !EMPTY(lcShared) + *-* The formula is a shared formula + lnId = this.GetNodeAttributeValue(tcFormula, "si") + IF EMPTY(lcFormula) + IF SEEK(lnId, "t_shared", "id") + *-* Shared formula already added; update the column:row relative references + lcFormula = "" + lcTemp = ALLTRIM(t_shared.cellformula) + DO CASE + CASE t_shared.colrelative && Forumla column is relative + lnNdx = 1 + DO WHILE lnNdx <= LEN(lcTemp) + lcChr = SUBSTR(lcTemp, lnNdx, 1) + IF ISALPHA(lcChr) + lcAddExpr = lcChr + DO WHILE lnNdx <= LEN(lcTemp) + lnNdx = lnNdx + 1 + lcChr = SUBSTR(lcTemp, lnNdx, 1) + DO CASE + CASE ISALPHA(lcChr) + lcAddExpr = lcAddExpr + lcChr + + CASE ISDIGIT(lcChr) + lnCol = this.ColumnAsciiToIndex(lcAddExpr) + lnCol = lnCol + (tnCellCol - t_shared.colbase) + lcAddExpr = this.ColumnIndexToAscii(lnCol) + lcChr + EXIT + + OTHERWISE + lcAddExpr = lcAddExpr + lcChr + EXIT + ENDCASE + ENDDO + ELSE + lcAddExpr = lcChr + ENDIF + lcFormula = lcFormula + lcAddExpr + lnNdx = lnNdx + 1 + ENDDO + + CASE t_shared.rowrelative && Forumla row is relative + lnNdx = 1 + DO WHILE lnNdx <= LEN(lcTemp) + lcChr = SUBSTR(lcTemp, lnNdx, 1) + IF ISDIGIT(lcChr) + lcAddExpr = lcChr + DO WHILE lnNdx <= LEN(lcTemp) + lnNdx = lnNdx + 1 + lcChr = SUBSTR(lcTemp, lnNdx, 1) + IF ISDIGIT(lcChr) + lcAddExpr = lcAddExpr + lcChr + ELSE + IF ISALPHA(lcChr) + lcAddExpr = lcAddExpr + lcChr + ELSE + lnRow = INT(VAL(lcAddExpr)) + lnRow = lnRow + (lnCellRow - t_shared.rowbase) + lcAddExpr = TRANSFORM(lnRow) + lcChr + ENDIF + EXIT + ENDIF + ENDDO + ELSE + lcAddExpr = lcChr + ENDIF + lcFormula = lcFormula + lcAddExpr + lnNdx = lnNdx + 1 + ENDDO + ENDCASE + ELSE + lcFormula = "" + ENDIF + ELSE + lcRef = this.GetNodeAttributeValue(tcFormula, "ref") + IF !SEEK(lnId, "t_shared", "id") .AND. OCCURS(":", lcRef) > 0 + lcRefBeg = this.GetColumnInColRowPair(GETWORDNUM(lcRef, 1, ":")) + lcRefEnd = this.GetColumnInColRowPair(GETWORDNUM(lcRef, 2, ":")) + IF lcRefBeg == lcRefEnd + llColRelative = False + lnColBase = 0 + llRowRelative = True + lnRowBase = this.GetRowInColRowPair(GETWORDNUM(lcRef, 1, ":")) + ELSE + llColRelative = True + lnColBase = this.ColumnAsciiToIndex(lcRefBeg) + llRowRelative = False + lnRowBase = 0 + ENDIF + INSERT INTO t_shared (id, colrelative, colbase, rowrelative, rowbase, cellformula) ; + VALUES (lnId, llColRelative, lnColBase, llRowRelative, lnRowBase, lcFormula) + ENDIF + ENDIF + ENDIF + RETURN lcFormula + ENDPROC + + PROCEDURE getcellindent && Returns the cell indentation + LPARAMETERS tnWB, tnSheet, tnCellRow, tnCellCol + LOCAL lnIndent + IF PCOUNT() != 4 + RETURN -1 + ENDIF + IF this.GetCellRecord(tnWB, tnSheet, tnCellRow, tnCellCol) .AND. this.GetCellXfsRecord(tnWB, xl_cells.cellxfs) + lnIndent = xl_cellxfs.indent + ELSE + lnIndent = 0 + ENDIF + RETURN lnIndent + ENDPROC + + PROCEDURE getcellnumberformat && Returns the format code for the selected cell + LPARAMETERS tnWB, tnSheet, tnCellRow, tnCellCol + LOCAL lnNumFmtId + IF PCOUNT() != 4 + RETURN -1 + ENDIF + IF this.GetCellRecord(tnWB, tnSheet, tnCellRow, tnCellCol) .AND. this.GetCellXfsRecord(tnWB, xl_cells.cellxfs) + lnNumFmtId = xl_cellxfs.numFmtId + ELSE + lnNumFmtId = 0 + ENDIF + RETURN lnNumFmtId + ENDPROC + + PROCEDURE getcellnumberformattext && Returns the selected cell numeric format as text + LPARAMETERS tnWB, tnSheet, tnCellRow, tnCellCol + LOCAL lcFormatCode + IF PCOUNT() != 4 + RETURN "" + ENDIF + IF this.GetCellRecord(tnWB, tnSheet, tnCellRow, tnCellCol) .AND. this.GetCellXfsRecord(tnWB, xl_cells.cellxfs) + lcFormatCode = xl_cellxfs.formatcode + ELSE + lcFormatCode = "" + ENDIF + RETURN lcFormatCode + ENDPROC + + PROTECTED PROCEDURE getcellrecord && Positions to the xl_cells record; returns true if found, or false if not found + LPARAMETERS tnWB, tnSheet, tnCellRow, tnCellCol + RETURN SEEK(BINTOC(tnWB)+BINTOC(tnSheet)+BINTOC(tnCellRow)+BINTOC(tnCellCol), "xl_cells", "cellindex") + ENDPROC + + PROCEDURE getcellstyle && Gets the cell style value + LPARAMETERS tnWB, tnSheet, tnCellRow, tnCellCol + IF PCOUNT() = 4 .AND. this.GetCellRecord(tnWB, tnSheet, tnCellRow, tnCellCol) + RETURN xl_cells.cellxfs + ELSE + RETURN -1 + ENDIF + ENDPROC + + PROCEDURE getcelltextrotation && Gets the cell text rotation value + LPARAMETERS tnWB, tnSheet, tnCellRow, tnCellCol + LOCAL lnRotation + IF PCOUNT() != 4 + RETURN 99 + ENDIF + IF this.GetCellRecord(tnWB, tnSheet, tnCellRow, tnCellCol) .AND. this.GetCellXfsRecord(tnWB, xl_cells.cellxfs) + lnRotation = xl_cellxfs.rotation + IF lnRotation > 90 + lnRotation = 90 - lnRotation + ENDIF + ELSE + lnRotation = 0 + ENDIF + RETURN lnRotation + ENDPROC + + PROCEDURE getcellvalidation && Returns the cell validation settings + LPARAMETERS tnWB, tnSheet, tnCellRow, tnCellCol + LOCAL loValiation + loValiation = CREATEOBJECT("Empty") + ADDPROPERTY(loValiation, "Type", 0) + ADDPROPERTY(loValiation, "Style", 0) + ADDPROPERTY(loValiation, "Operator", 0) + ADDPROPERTY(loValiation, "AllowBlank", False) + ADDPROPERTY(loValiation, "ShowInputMsg", False) + ADDPROPERTY(loValiation, "ShowErrMsg", False) + ADDPROPERTY(loValiation, "ErrMsg", "") + ADDPROPERTY(loValiation, "ErrTitle", "") + ADDPROPERTY(loValiation, "Prompt", "") + ADDPROPERTY(loValiation, "Formula1", "") + ADDPROPERTY(loValiation, "Formula2", "") + IF PCOUNT() < 4 + RETURN loValiation + ENDIF + IF this.GetCellRecord(tnWB, tnSheet, tnCellRow, tnCellCol) .AND. SEEK(BINTOC(xl_cells.validndx), "xl_validation", "validndx") + loValiation.Type = xl_validation.vtype + loValiation.Style = xl_validation.vstyle + loValiation.Operator = xl_validation.voperator + loValiation.AllowBlank = xl_validation.allowblank + loValiation.ShowInputMsg = xl_validation.showinpmsg + loValiation.ShowErrMsg = xl_validation.showerrmsg + loValiation.ErrMsg = xl_validation.errmsg + loValiation.ErrTitle = xl_validation.errtitle + loValiation.Prompt = xl_validation.vprompt + loValiation.Formula1 = xl_validation.formula1 + loValiation.Formula2 = xl_validation.formula2 + ENDIF + RETURN loValiation + ENDPROC + + PROCEDURE getcellvalue && Returns the value of the cell + LPARAMETERS tnWB, tnSheet, tnCellRow, tnCellCol + LOCAL lxValue, lnDays, lnDecimals, lnMSec, lnTime, lnSize, lcType, loException + IF PCOUNT() < 4 + RETURN .NULL. + ENDIF + lxValue = .NULL. + IF this.GetCellRecord(tnWB, tnSheet, tnCellRow, tnCellCol) + lnDecimals = SET("DECIMALS") + TRY + DO CASE + CASE xl_cells.datatype = DATA_TYPE_DATE + lnDays = CAST(xl_cells.cellvalue AS I) + lxValue = DATE(1900, 1, 1) + lnDays - 2 + + CASE xl_cells.datatype = DATA_TYPE_TIME + SET DECIMALS TO 12 + lnMSec = CAST(xl_cells.cellvalue AS N(20,12)) + lnTime = lnMSec * 24 * 60 * 60 + lxValue = DTOT(DATE()) + lnTime + lxValue = TRANSFORM(HOUR(lxValue)) + ":" + TRANSFORM(MINUTE(lxValue)) + ":" + TRANSFORM(SEC(lxValue)) + + CASE xl_cells.datatype = DATA_TYPE_DATETIME + SET DECIMALS TO 12 + lnDays = CAST(xl_cells.cellvalue AS I) + lxValue = DATE(1900, 1, 1) + lnDays - 2 + lnMSec = CAST(xl_cells.cellvalue AS N(20,12)) - lnDays + lnTime = lnMSec * 24 * 60 * 60 + lxValue = DTOT(lxValue) + lnTime + + CASE xl_cells.datatype = DATA_TYPE_CHAR + IF this.GetCursorRecord("xl_strings", tnWB, xl_cells.stringid) + lxValue = RTRIM(xl_strings.stringval) + ELSE + lxValue = "" + ENDIF + + CASE xl_cells.datatype = DATA_TYPE_INT + lxValue = CAST(xl_cells.cellvalue AS I) + IF lxValue != VAL(xl_cells.cellvalue) && Fix suggestion by Dan Lauer for integer values larger than VFP max + lxValue = CAST(xl_cells.cellvalue AS N(20,0)) + ENDIF + + CASE xl_cells.datatype = DATA_TYPE_FLOAT + lnSize = ATC(".", ALLTRIM(xl_cells.cellvalue)) + IF lnSize > 0 + lnSize = lnSize + lnDecimals + ELSE + lnSize = LEN(ALLTRIM(xl_cells.cellvalue)) + lnDecimals + 1 + ENDIF + lcType = "N(" + TRANSFORM(lnSize) + "," + TRANSFORM(lnDecimals) + ")" + lxValue = CAST(xl_cells.cellvalue AS &lcType) + + CASE xl_cells.datatype = DATA_TYPE_CURRENCY + lxValue = CAST(xl_cells.cellvalue AS Y) + + CASE xl_cells.datatype = DATA_TYPE_PERCENT + lxValue = CAST(xl_cells.cellvalue AS N(14,8)) + lxValue = TRANSFORM(lxValue * 100) + "%" + + CASE xl_cells.datatype = DATA_TYPE_GENERAL + lxValue = ALLTRIM(xl_cells.cellvalue) + + CASE xl_cells.datatype = DATA_TYPE_FORMULA + + CASE xl_cells.datatype = DATA_TYPE_NONE + lxValue = ALLTRIM(xl_cells.cellvalue) + + OTHERWISE + lxValue = ALLTRIM(xl_cells.cellvalue) + ENDCASE + + CATCH TO loException + SET STEP ON + FINALLY + SET DECIMALS TO &lnDecimals + ENDTRY + ENDIF + RETURN lxValue + ENDPROC + + PROCEDURE getcellwordwrap && Returns the cell word wrap setting + LPARAMETERS tnWB, tnSheet, tnCellRow, tnCellCol + LOCAL lxReturn + IF PCOUNT() < 4 + RETURN .NULL. + ENDIF + IF this.GetCellRecord(tnWB, tnSheet, tnCellRow, tnCellCol) .AND. this.GetCellXfsRecord(tnWB, xl_cells.cellxfs) + lxReturn = xl_cellxfs.wraptext + ELSE + lxReturn = .NULL. + ENDIF + RETURN lxReturn + ENDPROC + + PROTECTED PROCEDURE getcellxfsid && Returns the Cell XfsId value + LPARAMETERS tnWB, tnNumFmtId, tnFontId, tnFillId, tnBorderId, tcHAlign, tcVAlign, tnIndex, tnWrapText, tnRotation + LOCAL lnCellXfsId + IF SEEK(BINTOC(tnWB)+BINTOC(tnNumFmtId)+BINTOC(tnFontId)+BINTOC(tnFillId)+BINTOC(tnBorderId)+BINTOC(tnIndex)+BINTOC(tnWrapText)+BINTOC(tnRotation)+ALLTRIM(tcHAlign)+ALLTRIM(tcVAlign), "xl_cellxfs", "cellxfs") + lnCellXfsId = xl_cellxfs.id + ELSE + lnCellXfsId = this.GetNextId(tnWB, 'xl_cellxfs') + INSERT INTO xl_cellxfs (workbook, id, numFmtId, fontId, fillId, borderId, halign, valign, indent, wraptext, rotation) ; + VALUES (tnWB, lnCellXfsId, tnNumFmtId, tnFontId, tnFillId, tnBorderId, tcHAlign, tcVAlign, tnIndex, tnWrapText, tnRotation) + ENDIF + RETURN lnCellXfsId + ENDPROC + + PROTECTED PROCEDURE getcellxfsrecord && Positions the record pointer to xl_cellxfs record; returns true if found, or false if not found + LPARAMETERS tnWB, tnId + RETURN SEEK(BINTOC(tnWB)+BINTOC(tnId), "xl_cellxfs", "id") + ENDPROC + + PROTECTED PROCEDURE getchecksum && Returns the checksum the string + LPARAMETERS tcString + LOCAL lcString, lcCheckSum + lcString = ALLTRIM(tcString) + lcCheckSum = SYS(2007, lcString, 0, 1) + lcCheckSum = lcCheckSum + PADR(lcString, (230-LEN(lcCheckSum)), "_") + RETURN lcCheckSum + ENDPROC + + PROTECTED PROCEDURE getchildnodecount && Returns the number of child nodes + LPARAMETERS tcNode + RETURN OCCURS("<", tcNode) - 2 + ENDPROC + + PROTECTED PROCEDURE getchildnodeelement && Returns the selected child node + LPARAMETERS tcNode, tnChild + LOCAL lcElement + lcElement = STREXTRACT(tcNode, '<', '>', tnChild+1, 1) + RETURN STREXTRACT(tcNode, '<'+lcElement+'>', '', 1, 5) + ENDPROC + + PROTECTED PROCEDURE getcolumnincolrowpair && Returns the column (Ascii value) in a ColRow pair; i.e., returns A from A6 reference + LPARAMETERS tcColRow + LOCAL lnNdx, lcCol, lcChr + lcCol = "" + FOR lnNdx=1 TO LEN(tcColRow) + lcChr = SUBSTR(tcColRow, lnNdx, 1) + IF ISDIGIT(lcChr) + EXIT + ENDIF + lcCol = lcCol + lcChr + ENDFOR + RETURN lcCol + ENDPROC + + PROCEDURE getcolumnwidth && Returns the column width + LPARAMETERS tnWB, tnSheet, tnColumn + LOCAL lxReturn + IF PCOUNT() < 3 + RETURN .NULL. + ENDIF + IF this.GetSheetRecord(tnWB, tnSheet) + IF SEEK(this.GetColWidthKeyExpr(tnWB, tnSheet, tnColumn), "xl_colwidths", "shcolumn") + lxReturn = xl_colwidths.width + ELSE + lxReturn = -1 + ENDIF + ELSE + lxReturn = .NULL. + ENDIF + RETURN lxReturn + ENDPROC + + PROTECTED PROCEDURE getcolwidthkeyexpr && Gets the key expression for c_colwidths + LPARAMETERS tnWB, tnSheet, tnColumn + RETURN BINTOC(tnWB)+BINTOC(tnSheet)+BINTOC(tnColumn) + ENDPROC + + PROTECTED PROCEDURE getcursorrecord && Gets the specified xl_cursor record; returns true if found, false if not found + LPARAMETERS tcCursor, tnWB, tnId + RETURN SEEK(BINTOC(tnWB)+BINTOC(tnId), tcCursor, "id") + ENDPROC + + PROCEDURE getcustomnumericformat && Returns the format code for the specified custom numeric format + LPARAMETERS tnWB, tnNumFormat + LOCAL lxReturn + IF SEEK(BINTOC(tnWB)+BINTOC(tnNumFormat), "xl_numfmts", "id") + lxReturn = ALLTRIM(xl_numfmts.formatcode) + ELSE + lxReturn = "" + ENDIF + RETURN lxReturn + ENDPROC + + PROCEDURE getcustompapersize && Gets the values for the custom paper size + LPARAMETERS tnWB, tnSheet + LOCAL loReturn + IF PCOUNT() = 2 .AND. this.GetSheetRecord(tnWB, tnSheet) + loReturn = CREATEOBJECT("Empty") + ADDPROPERTY(loReturn, "PaperWidth", xl_sheets.paperwidth) + ADDPROPERTY(loReturn, "PaperHeight", xl_sheets.paperheight) + ADDPROPERTY(loReturn, "PaperDimen", xl_sheets.paperdimen) + ELSE + loReturn = .NULL. + ENDIF + RETURN loReturn + ENDPROC + + PROTECTED PROCEDURE getformatkeyexpr && Gets the key expression for t_format + LPARAMETERS tnNbrFmtId, tnNumDec, tnFontId, tnFillId, tnBorderId, tcHAlign, tcVAlign, tlWordWrap + RETURN BINTOC(tnNbrFmtId)+BINTOC(tnNumDec)+BINTOC(tnFontId)+BINTOC(tnFillId)+BINTOC(tnBorderId)+tcHAlign+tcVAlign+TRANSFORM(tlWordWrap) + ENDPROC + + PROTECTED PROCEDURE getheaderfooterkeyexpr && Gets the key expression for the header footer table record + LPARAMETERS tnWB, tnSheet, tnPage, tnSection + RETURN BINTOC(tnWB)+BINTOC(tnSheet)+BINTOC(tnPage)+BINTOC(tnSection) + ENDPROC + + PROCEDURE getinlinefontdefinition && Returns the inline formatting definition of cell text for each character group + LPARAMETERS tnWB, tnSheet, tnCellRow, tnCellCol + LOCAL loSharedString, loInline, lcAlias, lnBegPos, lnLen, loCharacter + IF PCOUNT() != 4 + RETURN .NULL. + ENDIF + loSharedString = this.GetSharedStringId(tnWB, tnSheet, tnCellRow, tnCellCol) + IF ISNULL(loSharedString) + RETURN .NULL. + ENDIF + lnBegPos = 1 + lcAlias = ALIAS() + loInline = CREATEOBJECT("Empty") + ADDPROPERTY(loInline, "Workbook", tnWB) + ADDPROPERTY(loInline, "StringId", loSharedString.StringId) + ADDPROPERTY(loInline, "StringValue", loSharedString.StringValue) + ADDPROPERTY(loInline, "Count", 0) + ADDPROPERTY(loInline, "Characters[1]") + SELECT xl_strformat + SET ORDER TO TAG sortorder + SCAN FOR workbook = tnWB .AND. id = loSharedString.StringId .AND. !DELETED() + lnLen = LEN(RTRIM(xl_strformat.stringxml)) + loCharacter = CREATEOBJECT("Empty") + ADDPROPERTY(loCharacter, "BegPos", lnBegPos) + ADDPROPERTY(loCharacter, "Length", lnLen) + ADDPROPERTY(loCharacter, "FontName", xl_strformat.fname) + ADDPROPERTY(loCharacter, "FontSize", xl_strformat.fsize) + ADDPROPERTY(loCharacter, "FontBold", xl_strformat.fbold) + ADDPROPERTY(loCharacter, "FontItalic", xl_strformat.fitalic) + ADDPROPERTY(loCharacter, "FontColor", xl_strformat.fcolor) + ADDPROPERTY(loCharacter, "Underline", xl_strformat.uline) + ADDPROPERTY(loCharacter, "StrikeThru", xl_strformat.strkthr) + ADDPROPERTY(loCharacter, "SubScript", IIF(xl_strformat.fvpos=FONT_VERTICAL_SUBSCRIPT, True, False)) + ADDPROPERTY(loCharacter, "SuperScript", IIF(xl_strformat.fvpos=FONT_VERTICAL_SUPERSCRIPT, True, False)) + loInline.Count = loInline.Count + 1 + DIMENSION loInline.Characters[loInline.Count] + loInline.Characters[loInline.Count] = loCharacter + lnBegPos = lnBegPos + lnLen + ENDSCAN + SET ORDER TO + IF !EMPTY(lcAlias) + SELECT &lcAlias + ENDIF + IF loInline.Count = 0 + loInline = .NULL. + ENDIF + RETURN loInline + ENDPROC + + PROCEDURE getlastcolumninrow && Returns the last column index in the row + LPARAMETERS tnWB, tnSheet, tnCellRow + LOCAL lnMaxCol + IF PCOUNT() < 3 + RETURN .NULL. + ENDIF + lnMaxCol = 0 + SELECT MAX(tmp.cellcol) AS maxcol FROM xl_cells AS tmp ; + WHERE workbook = tnWB ; + AND tmp.sheet = tnSheet ; + AND tmp.cellrow = tnCellRow ; + AND tmp.celldeleted = False ; + INTO CURSOR t_temp + + IF _TALLY > 0 + lnMaxCol = t_temp.maxcol + ENDIF + IF USED('t_temp') + USE IN t_temp + ENDIF + RETURN lnMaxCol + ENDPROC + + PROCEDURE getlastrownumber && Returns the last row number in the sheet + LPARAMETERS tnWB, tnSheet + LOCAL lnLastRow + LOCAL ARRAY laMaxRow[1] + IF PCOUNT() < 2 + RETURN .NULL. + ENDIF + SELECT MAX(cellrow) FROM xl_cells ; + WHERE workbook = tnWB ; + AND sheet = tnSheet ; + AND celldeleted = False ; + INTO ARRAY laMaxRow + + IF _TALLY > 0 + lnLastRow = laMaxRow[1] + ELSE + lnLastRow = 0 + ENDIF + RETURN lnLastRow + ENDPROC + + PROCEDURE getmaxcolumnnumber && Returns the max column number for a sheet + LPARAMETERS tnWB, tnSheet + LOCAL lnMaxCol + LOCAL ARRAY laMaxCol[1] + IF PCOUNT() < 2 + RETURN .NULL. + ENDIF + SELECT MAX(tmp.maxcol) AS maxcol FROM xl_rows AS tmp ; + WHERE tmp.workbook = tnWB ; + AND tmp.sheet = tnSheet ; + INTO ARRAY laMaxCol + + IF _TALLY > 0 + lnMaxCol = laMaxCol[1] + ELSE + lnMaxCol = 0 + ENDIF + RETURN NVL(lnMaxCol, 0) + ENDPROC + + PROTECTED PROCEDURE getnextid && Gets the next sequential Id value + LPARAMETERS tnWB, tcCursor + LOCAL lnNdx, lnNextId + DO CASE + CASE tcCursor = "xl_borders" + lnNdx = ASCAN(this.LastBorderId, tnWB, 1, -1, 1, 15) + IF lnNdx > 0 + this.LastBorderId[lnNdx, 2] = this.LastBorderId[lnNdx, 2] + 1 + lnNextId = this.LastBorderId[lnNdx, 2] + ELSE + IF this.LastBorderId[1, 1] = 0 + lnNdx = 1 + ELSE + lnNdx = ALEN(this.LastBorderId, 1) + 1 + ENDIF + DIMENSION this.LastBorderId[lnNdx, 2] + this.LastBorderId[lnNdx, 1] = tnWB + this.LastBorderId[lnNdx, 2] = 1 + lnNextId = 1 + ENDIF + + CASE tcCursor = "xl_cellxfs" + lnNdx = ASCAN(this.LastCellXfsId, tnWB, 1, -1, 1, 15) + IF lnNdx > 0 + this.LastCellXfsId[lnNdx, 2] = this.LastCellXfsId[lnNdx, 2] + 1 + lnNextId = this.LastCellXfsId[lnNdx, 2] + ELSE + IF this.LastCellXfsId[1, 1] = 0 + lnNdx = 1 + ELSE + lnNdx = ALEN(this.LastCellXfsId, 1) + 1 + ENDIF + DIMENSION this.LastCellXfsId[lnNdx, 2] + this.LastCellXfsId[lnNdx, 1] = tnWB + this.LastCellXfsId[lnNdx, 2] = 1 + lnNextId = 1 + ENDIF + + CASE tcCursor = "xl_fills" + lnNdx = ASCAN(this.LastFillId, tnWB, 1, -1, 1, 15) + IF lnNdx > 0 + this.LastFillId[lnNdx, 2] = this.LastFillId[lnNdx, 2] + 1 + lnNextId = this.LastFillId[lnNdx, 2] + ELSE + IF this.LastFillId[1, 1] = 0 + lnNdx = 1 + ELSE + lnNdx = ALEN(this.LastFillId, 1) + 1 + ENDIF + DIMENSION this.LastFillId[lnNdx, 2] + this.LastFillId[lnNdx, 1] = tnWB + this.LastFillId[lnNdx, 2] = 2 + lnNextId = 2 + ENDIF + + CASE tcCursor = "xl_fonts" + lnNdx = ASCAN(this.LastFontId, tnWB, 1, -1, 1, 15) + IF lnNdx > 0 + this.LastFontId[lnNdx, 2] = this.LastFontId[lnNdx, 2] + 1 + lnNextId = this.LastFontId[lnNdx, 2] + ELSE + IF this.LastFontId[1, 1] = 0 + lnNdx = 1 + ELSE + lnNdx = ALEN(this.LastFontId, 1) + 1 + ENDIF + DIMENSION this.LastFontId[lnNdx, 2] + this.LastFontId[lnNdx, 1] = tnWB + this.LastFontId[lnNdx, 2] = 1 + lnNextId = 1 + ENDIF + + CASE tcCursor = "xl_ndxcolors" + lnNdx = ASCAN(this.LastIndexColorId, tnWB, 1, -1, 1, 15) + IF lnNdx > 0 + this.LastIndexColorId[lnNdx, 2] = this.LastIndexColorId[lnNdx, 2] + 1 + lnNextId = this.LastIndexColorId[lnNdx, 2] + ELSE + IF this.LastIndexColorId[1, 1] = 0 + lnNdx = 1 + ELSE + lnNdx = ALEN(this.LastIndexColorId, 1) + 1 + ENDIF + DIMENSION this.LastIndexColorId[lnNdx, 2] + this.LastIndexColorId[lnNdx, 1] = tnWB + this.LastIndexColorId[lnNdx, 2] = 1 + lnNextId = 1 + ENDIF + + CASE tcCursor = "xl_mrucolors" + lnNdx = ASCAN(this.LastMruColorId, tnWB, 1, -1, 1, 15) + IF lnNdx > 0 + this.LastMruColorId[lnNdx, 2] = this.LastMruColorId[lnNdx, 2] + 1 + lnNextId = this.LastMruColorId[lnNdx, 2] + ELSE + IF this.LastMruColorId[1, 1] = 0 + lnNdx = 1 + ELSE + lnNdx = ALEN(this.LastMruColorId, 1) + 1 + ENDIF + DIMENSION this.LastMruColorId[lnNdx, 2] + this.LastMruColorId[lnNdx, 1] = tnWB + this.LastMruColorId[lnNdx, 2] = 1 + lnNextId = 1 + ENDIF + + CASE tcCursor = "xl_numfmts" + lnNdx = ASCAN(this.LastNumFmtId, tnWB, 1, -1, 1, 15) + IF lnNdx > 0 + this.LastNumFmtId[lnNdx, 2] = this.LastNumFmtId[lnNdx, 2] + 1 + lnNextId = this.LastNumFmtId[lnNdx, 2] + ELSE + IF this.LastNumFmtId[1, 1] = 0 + lnNdx = 1 + ELSE + lnNdx = ALEN(this.LastNumFmtId, 1) + 1 + ENDIF + DIMENSION this.LastNumFmtId[lnNdx, 2] + this.LastNumFmtId[lnNdx, 1] = tnWB + this.LastNumFmtId[lnNdx, 2] = START_NUMERIC_FORMAT_ID + lnNextId = START_NUMERIC_FORMAT_ID + ENDIF + + CASE tcCursor = "xl_relationships" + lnNdx = ASCAN(this.LastRelationId, tnWB, 1, -1, 1, 15) + IF lnNdx > 0 + this.LastRelationId[lnNdx, 2] = this.LastRelationId[lnNdx, 2] + 1 + lnNextId = this.LastRelationId[lnNdx, 2] + ELSE + IF this.LastRelationId[1, 1] = 0 + lnNdx = 1 + ELSE + lnNdx = ALEN(this.LastRelationId, 1) + 1 + ENDIF + DIMENSION this.LastRelationId[lnNdx, 2] + this.LastRelationId[lnNdx, 1] = tnWB + this.LastRelationId[lnNdx, 2] = 1 + lnNextId = 1 + ENDIF + + CASE tcCursor = "xl_sheets" + lnNdx = ASCAN(this.LastSheetId, tnWB, 1, -1, 1, 15) + IF lnNdx > 0 + this.LastSheetId[lnNdx, 2] = this.LastSheetId[lnNdx, 2] + 1 + lnNextId = this.LastSheetId[lnNdx, 2] + ELSE + IF this.LastSheetId[1, 1] = 0 + lnNdx = 1 + ELSE + lnNdx = ALEN(this.LastSheetId, 1) + 1 + ENDIF + DIMENSION this.LastSheetId[lnNdx, 2] + this.LastSheetId[lnNdx, 1] = tnWB + this.LastSheetId[lnNdx, 2] = 1 + lnNextId = 1 + ENDIF + + CASE tcCursor = "xl_strings" + lnNdx = ASCAN(this.LastStringId, tnWB, 1, -1, 1, 15) + IF lnNdx > 0 + this.LastStringId[lnNdx, 2] = this.LastStringId[lnNdx, 2] + 1 + lnNextId = this.LastStringId[lnNdx, 2] + ELSE + IF this.LastStringId[1, 1] = 0 + lnNdx = 1 + ELSE + lnNdx = ALEN(this.LastStringId, 1) + 1 + ENDIF + DIMENSION this.LastStringId[lnNdx, 2] + this.LastStringId[lnNdx, 1] = tnWB + this.LastStringId[lnNdx, 2] = 0 + lnNextId = 0 + ENDIF + + OTHERWISE + lnNextId = 0 + ENDCASE + RETURN lnNextId + ENDPROC + + PROTECTED PROCEDURE getnodeattributevalue && Returns the attribute value + LPARAMETERS tcXf, tcAttrName + RETURN STREXTRACT(tcXf, tcAttrName+'="', '"', 1) + ENDPROC + + PROTECTED PROCEDURE getnodecount && Returns the number of nodes to be processed + LPARAMETERS tcNode, tcElement + LOCAL lnCount + lnCount = OCCURS("<"+tcElement+">", tcNode) + IF lnCount = 0 + lnCount = OCCURS("<"+tcElement+" ", tcNode) + IF lnCount = 0 + lnCount = OCCURS("<"+tcElement, tcNode) + ENDIF + ENDIF + RETURN lnCount + ENDPROC + + PROTECTED PROCEDURE getnodeelement && Gets the string content for the node element + LPARAMETERS tcNode, tcElement, tnNode, tlStrict, tnFlag + LOCAL lcContent, lnNdx, loException + DO CASE + CASE PCOUNT() = 3 + tlStrict = False + tnFlag = 5 + + CASE PCOUNT() = 4 + tnFlag = 5 + ENDCASE + IF tlStrict + lcContent = STREXTRACT(tcNode, "<"+tcElement+">", "", tnNode, tnFlag) + ELSE + lcContent = STREXTRACT(tcNode, "<"+tcElement+" ", ">", tnNode, tnFlag) + IF RIGHT(lcContent, 2) != "/>" + lcContent = STREXTRACT(tcNode, "<"+tcElement+" ", "", tnNode, tnFlag) + IF EMPTY(lcContent) + lcContent = STREXTRACT(tcNode, "<"+tcElement+">", "", tnNode, tnFlag) + ENDIF + IF EMPTY(lcContent) + lcContent = STREXTRACT(tcNode, "<"+tcElement, "/>", tnNode, tnFlag) + ENDIF + ENDIF + ENDIF + RETURN lcContent + ENDPROC + + PROTECTED PROCEDURE getnodeelementvalue && Gets the value assigned to the node element + LPARAMETERS tcElement + RETURN STREXTRACT(tcElement, '>', '<', 1, 1) + ENDPROC + + PROCEDURE getnumberofsheets && Returns the number of sheets for the given workbook + LPARAMETERS tnWB + LOCAL lnCount + SELECT xl_sheets + COUNT FOR xl_sheets.workbook = tnWB .AND. !xl_sheets.shdeleted TO lnCount + RETURN lnCount + ENDPROC + + PROCEDURE getpapersize && Gets the paper size for the selected sheet + LPARAMETERS tnWB, tnSheet + LOCAL lxReturn + IF PCOUNT() = 2 .AND. this.GetSheetRecord(tnWB, tnSheet) + lxReturn = xl_sheets.papersize + ELSE + lxReturn = -1 + ENDIF + RETURN lxReturn + ENDPROC + + PROCEDURE getprintorientation && Gets the print orientation for the sheet output + LPARAMETERS tnWB, tnSheet + LOCAL lxReturn + IF PCOUNT() = 2 .AND. this.GetSheetRecord(tnWB, tnSheet) + lxReturn = xl_sheets.prnorient + ELSE + lxReturn = 0 + ENDIF + RETURN lxReturn + ENDPROC + + PROTECTED PROCEDURE getrelationshipfilename && Gets the file name for the R:Id value in the relationships XML + LPARAMETERS tnWB, tnShRId + LOCAL lcFileName + lcFileName = "" + IF SEEK(BINTOC(tnWB)+BINTOC(tnShRId), "xl_relationships", "relid") + lcFileName = ALLTRIM(xl_relationships.target) + ENDIF + RETURN lcFileName + ENDPROC + + PROCEDURE getrgbvalues && Gets the specified RGB color value + LPARAMETERS tnColorValue, tcRGB + LOCAL lnValue, lnNdx + IF PCOUNT() < 2 + RETURN -1 + ENDIF + DO CASE + CASE tcRGB = "R" + lnValue = tnColorValue + FOR lnNdx=8 TO 31 + lnValue = BITCLEAR(lnValue, lnNdx) + ENDFOR + + CASE tcRGB = "G" + lnValue = BITRSHIFT(tnColorValue, 8) + FOR lnNdx=8 TO 31 + lnValue = BITCLEAR(lnValue, lnNdx) + ENDFOR + + CASE tcRGB = "B" + lnValue = BITRSHIFT(tnColorValue, 16) + FOR lnNdx=8 TO 31 + lnValue = BITCLEAR(lnValue, lnNdx) + ENDFOR + + OTHERWISE + RETURN -1 + ENDCASE + RETURN INT(lnValue) + ENDPROC + + PROTECTED PROCEDURE getrowheightkeyexpr && Gets the key expression for the c_rowheights + LPARAMETERS tnWB, tnSheet, tnRow + RETURN BINTOC(tnWB)+BINTOC(tnSheet)+BINTOC(tnRow) + ENDPROC + + PROTECTED PROCEDURE getrowincolrowpair && REturns the row (integer value) in a ColRow pair; i.e., return 6 from A6 reference + LPARAMETERS tcColRow + LOCAL lcRow, lnNdx, lcChr + lcRow = "" + FOR lnNdx=1 TO LEN(tcColRow) + lcChr = SUBSTR(tcColRow, lnNdx, 1) + IF ISDIGIT(lcChr) + lcRow = lcRow + lcChr + ENDIF + ENDFOR + RETURN INT(VAL(lcRow)) + ENDPROC + + PROCEDURE getrowmaxcolumn && Returns the selected row maximum column + LPARAMETERS tnWB, tnSheet, tnCellRow + LOCAL lnMaxCol + IF SEEK(BINTOC(tnWB)+BINTOC(tnSheet)+BINTOC(tnCellRow), "xl_rows", "id") + lnMaxCol = xl_rows.maxcol + ELSE + lnMaxCol = 0 + ENDIF + RETURN lnMaxCol + ENDPROC + + PROTECTED PROCEDURE getsharedstringid && Gets the Shared Strings Id value for the cell text + LPARAMETERS tnWB, tnSheet, tnCellRow, tnCellCol + LOCAL loSharedString + loSharedString = .NULL. + IF PCOUNT() < 4 + RETURN loSharedString + ENDIF + IF this.GetCellRecord(tnWB, tnSheet, tnCellRow, tnCellCol) .AND. this.GetCursorRecord("xl_strings", tnWB, xl_cells.stringid) + loSharedString = CREATEOBJECT("Empty") + ADDPROPERTY(loSharedString, "StringId", xl_cells.stringid) + ADDPROPERTY(loSharedString, "StringValue", xl_strings.stringval) + ENDIF + RETURN loSharedString + ENDPROC + + PROCEDURE getsheetname && Gets the sheet name + LPARAMETERS tnWB, tnSheet + LOCAL lcSheetName + IF PCOUNT() = 2 .AND. this.GetSheetRecord(tnWB, tnSheet) + lcSheetName = ALLTRIM(xl_sheets.shname) + ELSE + lcSheetName = "" + ENDIF + RETURN lcSheetName + ENDPROC + + PROTECTED PROCEDURE getsheetrecord && Positions the record in xl_sheets; returns true if record found, or false if not found + LPARAMETERS tnWB, tnSheet + RETURN SEEK(BINTOC(tnWB)+BINTOC(tnSheet), "xl_sheets", "sheetndx") + ENDPROC + + PROCEDURE getsheetrowvalues && Returns the cell values for the given row + LPARAMETERS tnWB, tnSheet, tnCellRow + LOCAL lnMaxCol, loRow + IF PCOUNT() < 3 + RETURN .NULL. + ENDIF + lnMaxCol = this.GetMaxColumnNumber(tnWB, tnSheet) + IF !ISNULL(lnMaxCol) .AND. lnMaxCol > 0 + loRow = CREATEOBJECT("Empty") + ADDPROPERTY(loRow, "Values[lnMaxCol, 2]", "") + ADDPROPERTY(loRow, "Count", lnMaxCol) + loRow.Values = .NULL. + SELECT tmp.cellcol FROM xl_cells AS tmp ; + WHERE workbook = tnWB ; + AND tmp.sheet = tnSheet ; + AND tmp.cellrow = tnCellRow ; + AND tmp.celldeleted = False ; + INTO CURSOR t_temp + + SELECT t_temp + SCAN + loRow.Values[t_temp.cellcol, 1] = this.GetCellValue(tnWB, tnSheet, tnCellRow, t_temp.cellcol) + loRow.Values[t_temp.cellcol, 2] = this.GetCellDataType(tnWB, tnSheet, tnCellRow, t_temp.cellcol) + ENDSCAN + USE IN t_temp + ELSE + loRow = .NULL. + ENDIF + RETURN loRow + ENDPROC + + PROCEDURE getsheetscale && Gets the sheet printing scale + LPARAMETERS tnWB, tnSheet + LOCAL lxReturn + IF PCOUNT() = 2 .AND. this.GetSheetRecord(tnWB, tnSheet) + lxReturn = xl_sheets.scale + ELSE + lxReturn = -1 + ENDIF + RETURN lxReturn + ENDPROC + + PROTECTED PROCEDURE getstringrecord && Positions the record pointer to the selected string record + LPARAMETERS tnWB, tcString + RETURN SEEK(BINTOC(tnWB)+this.GetCheckSum(tcString), "xl_strings", "stringndx") + ENDPROC + + PROTECTED PROCEDURE getstringxml && Returns a converted string from XML to text + LPARAMETERS tcString + LOCAL lcString, lcOldChr, lcChr, lnChr, lnNdx + IF LEFT(tcString, 1) != " " .AND. EMPTY(tcString) + RETURN "" + ENDIF + TRY + IF ISNULL(this.oXDOM) + lcString = STRTRAN(tcString, '&', CHR(38)) + lcString = STRTRAN(lcString, '>', '>') + lcString = STRTRAN(lcString, '<', '<') + lcString = STRTRAN(lcString, '"', '"') + lnNdx = 1 + DO WHILE ATC("&#", lcString, lnNdx) > 0 + lcOldChr = STREXTRACT(lcString, "&#", ";", lnNdx) + lnChr = INT(VAL(lcOldChr)) + IF lnChr < 256 + lcChr = CHR(lnChr) + lcOldChr = "&#" + lcOldChr + ";" + lcString = STRTRAN(lcString, lcOldChr, lcChr) + ELSE + lnNdx = lnNdx + 1 && Increment to skip this embedded value + ENDIF + ENDDO + ELSE + this.oXDOM.loadXML("" + tcString + "") + lcString = this.oXDOM.Text + ENDIF + + CATCH TO loException + SET STEP ON + ENDTRY + RETURN lcString + ENDPROC + + PROCEDURE getvalidation && Returns the validation definition + LPARAMETERS tnValidNdx + LOCAL loValiation + loValiation = CREATEOBJECT("Empty") + ADDPROPERTY(loValiation, "Type", 0) + ADDPROPERTY(loValiation, "Style", 0) + ADDPROPERTY(loValiation, "Operator", 0) + ADDPROPERTY(loValiation, "AllowBlank", False) + ADDPROPERTY(loValiation, "ShowInputMsg", False) + ADDPROPERTY(loValiation, "ShowErrMsg", False) + ADDPROPERTY(loValiation, "ErrMsg", "") + ADDPROPERTY(loValiation, "ErrTitle", "") + ADDPROPERTY(loValiation, "Prompt", "") + ADDPROPERTY(loValiation, "Formula1", "") + ADDPROPERTY(loValiation, "Formula2", "") + IF PCOUNT() < 1 + RETURN loValiation + ENDIF + IF SEEK(BINTOC(tnValidNdx), "xl_validation", "validndx") + loValiation.Type = xl_validation.vtype + loValiation.Style = xl_validation.vstyle + loValiation.Operator = xl_validation.voperator + loValiation.AllowBlank = xl_validation.allowblank + loValiation.ShowInputMsg = xl_validation.showinpmsg + loValiation.ShowErrMsg = xl_validation.showerrmsg + loValiation.ErrMsg = xl_validation.errmsg + loValiation.ErrTitle = xl_validation.errtitle + loValiation.Prompt = xl_validation.vprompt + loValiation.Formula1 = IIF(xl_validation.formula, "=", "") + ALLTRIM(xl_validation.formula1) + loValiation.Formula2 = IIF(EMPTY(xl_validation.formula2), "", IIF(xl_validation.formula, "=", "") + ALLTRIM(xl_validation.formula2)) + ENDIF + RETURN loValiation + ENDPROC + + PROCEDURE getvalidationlist && Returns a list of validations for the workbook/sheet + LPARAMETERS tnWB, tnSheet + LOCAL loValiation, lcAlias + lcAlias = ALIAS() + loValiation = CREATEOBJECT("Empty") + ADDPROPERTY(loValiation, "List[1]") + ADDPROPERTY(loValiation, "Count", 0) + SELECT xl_validation + SCAN FOR BINTOC(workbook)+BINTOC(sheet) + loValiation.Count = loValiation.Count + 1 + DIMENSION loValiation.List[loValiation.Count, 2] + loValiation.List[loValiation.Count, 1] = xl_validation.vtype + loValiation.List[loValiation.Count, 2] = xl_validation.validndx + ENDSCAN + IF !EMPTY(lcAlias) + SELECT &lcAlias + ENDIF + RETURN loValiation + ENDPROC + + PROCEDURE getworkbook && Gets the workbook Id from the name + LPARAMETERS tcName + LOCAL lcWBName, lnWBIndex + lcWBName = JUSTSTEM(tcName) + IF SEEK(PADR(UPPER(lcWBName), 200, "_"), "xl_workbooks", "wbname") + lnWBIndex = xl_workbooks.workbook + ELSE + lnWBIndex = 0 + ENDIF + RETURN lnWBIndex + ENDPROC + + PROCEDURE getworkbookfilename && Gets the file name for the workbook index + LPARAMETERS tnWB + LOCAL lcFileName + IF SEEK(BINTOC(tnWB), "xl_workbooks", "workbook") + lcFileName = ADDBS(ALLTRIM(xl_workbooks.filepath)) + ALLTRIM(xl_workbooks.wbname) + lcFileName = FORCEEXT(lcFileName, "xlsx") + ELSE + lcFileName = "" + ENDIF + ENDPROC + + PROCEDURE getworkbooksheets && Returns the workbook sheets + LPARAMETERS tnWB + LOCAL loSheets + loSheets = CREATEOBJECT("Empty") + ADDPROPERTY(loSheets, "List[1, 2]") + ADDPROPERTY(loSheets, "Count", 0) + SELECT xl_sheets + SET ORDER TO TAG sheet + SCAN FOR workbook = tnWB .AND. !shdeleted + loSheets.Count = loSheets.Count + 1 + DIMENSION loSheets.List[loSheets.Count, 2] + loSheets.List[loSheets.Count, 1] = xl_sheets.sheet + loSheets.List[loSheets.Count, 2] = ALLTRIM(xl_sheets.shname) + ENDSCAN + SET ORDER TO + RETURN loSheets + ENDPROC + + PROTECTED PROCEDURE getxmlheaderfootertext && Returns a XML formatted string for the header and footer text + LOCAL lcText + IF EMPTY(xl_hdrfootertext.fontname) + lcText = '"-,' + ELSE + lcText = '"' + ALLTRIM(xl_hdrfootertext.fontname) + ',' + ENDIF + DO CASE + CASE xl_hdrfootertext.fontstyle = HEADERFOOTER_FONT_STYLE_BOLD + lcText = lcText + 'Bold"' + + CASE xl_hdrfootertext.fontstyle = HEADERFOOTER_FONT_STYLE_ITALIC + lcText = lcText + 'Italic"' + + CASE xl_hdrfootertext.fontstyle = HEADERFOOTER_FONT_STYLE_BOLDITALIC + lcText = lcText + 'Bold Italic"' + + OTHERWISE + lcText = lcText + 'Regular"' + ENDCASE + IF xl_hdrfootertext.fontsize > 0 + lcText = lcText + '&' + TRANSFORM(xl_hdrfootertext.fontsize) + ENDIF + IF xl_hdrfootertext.fontcolor > 0 + lcText = lcText + '&K' + this.ConvertColorToHex(xl_hdrfootertext.fontcolor) + ENDIF + lcText = lcText + ALLTRIM(xl_hdrfootertext.text) + RETURN lcText + ENDPROC + + PROTECTED PROCEDURE getxmlstring && Gets the string as an XML formatted string + LPARAMETERS tcString + LOCAL lcString, lcXMLString, lnNdx, lcChar, lcInvalidChars, loNodeText + IF LEFT(tcString, 1) != " " .AND. EMPTY(tcString) + RETURN "" + ENDIF + *-* TJF 2016-12-12 Strip out invalid XML characters (ASCII 0 to 31 except 9 (TAB), 10 (LF), and 13 (CR)) + lcInvalidChars = CHR(0) + CHR(1) + CHR(2) + CHR(3) + CHR(4) + CHR(5) + CHR(6) + CHR(7) + CHR(8) + CHR(11) + CHR(12) + ; + CHR(14) + CHR(15) + CHR(16) + CHR(17) + CHR(18) + CHR(19) + CHR(20) + CHR(21) + CHR(22) + CHR(23) + ; + CHR(24) + CHR(25) + CHR(26) + CHR(27) + CHR(28) + CHR(29) + CHR(30) + CHR(31) + lcString = CHRTRAN(tcString, lcInvalidChars, "") + IF ISNULL(this.oXDOM) + lcString = STRTRAN(lcString, CHR(38), '&') + lcString = STRTRAN(lcString, '>', '>') + lcString = STRTRAN(lcString, '<', '<') + lcString = STRTRAN(lcString, '"', '"') + + IF this.CodePage = 0 + lcXMLString = "" + FOR lnNdx=1 TO LEN(lcString) + lcChar = SUBSTR(lcString, lnNdx, 1) + lnChar = ASC(lcChar) + lcXMLString = lcXMLString + IIF(lnChar < 128, lcChar, "&#" + TRANSFORM(lnChar) + ";") + ENDFOR + ELSE + lcXMLString = lcString + ENDIF + ELSE + loNodeText = this.oXDOM.createTextNode(lcString) + lcXMLString = loNodeText.xml + lcXMLString = STRTRAN(lcXMLString, '"', '"') + ENDIF + RETURN lcXMLString + ENDPROC + + PROTECTED PROCEDURE Init + LPARAMETERS tnCodePage + LOCAL loException, lnSelect + IF PCOUNT() > 0 .AND. VARTYPE(tnCodePage) = "N" + this.CodePage = tnCodePage + ENDIF + lnSelect = SELECT() + this.CreateWorkingCursors() + IF this.DeclareWinAPI + this.DeclareDLL() + ENDIF + TRY + this.oXDOM = CREATEOBJECT('MSXML2.DOMDocument') + CATCH TO loException + this.oXDOM = .NULL. + ENDTRY + this.InitalizeIdValues() + this.OnInit() + SELECT (lnSelect) + ENDPROC + + PROTECTED PROCEDURE initalizeidvalues && Initializes the internal Id values + DIMENSION this.LastBorderId[1, 2] + this.LastBorderId[1, 1] = 0 && Workbook Id + this.LastBorderId[1, 2] = 0 && Last Border Id + + DIMENSION this.LastCellXfsId[1, 2] + this.LastCellXfsId[1, 1] = 0 && Workbook Id + this.LastCellXfsId[1, 2] = 0 && Last CellXfs Id + + DIMENSION this.LastFillId[1, 2] + this.LastFillId[1, 1] = 0 && Workbook Id + this.LastFillId[1, 2] = 0 && Last Fill Id + + DIMENSION this.LastFontId[1, 2] + this.LastFontId[1, 1] = 0 && Workbook Id + this.LastFontId[1, 2] = 0 && Last Font Id + + DIMENSION this.LastIndexColorId[1, 2] + this.LastIndexColorId[1, 1] = 0 && Workbook Id + this.LastIndexColorId[1, 2] = 0 && Last IndexColor Id + + DIMENSION this.LastMruColorId[1, 2] + this.LastMruColorId[1, 1] = 0 && Workbook Id + this.LastMruColorId[1, 2] = 0 && Last mruColor Id + + DIMENSION this.LastNumFmtId[1, 2] + this.LastNumFmtId[1, 1] = 0 && Workbook Id + this.LastNumFmtId[1, 2] = 0 && Last NumFmt Id + + DIMENSION this.LastRelationId[1, 2] + this.LastRelationId[1, 1] = 0 && Workbook Id + this.LastRelationId[1, 2] = 0 && Last Relationship Id + + DIMENSION this.LastSheetId[1, 2] + this.LastSheetId[1, 1] = 0 && Workbook Id + this.LastSheetId[1, 2] = 0 && Last Sheet Id + + DIMENSION this.LastStringId[1, 2] + this.LastStringId[1, 1] = 0 && Workbook Id + this.LastStringId[1, 2] = 0 && Last String Id + ENDPROC + + PROCEDURE insertcell && Inserts a new cell into the sheet + LPARAMETERS tnWB, tnSheet, tnRow, tnCol, tnShift + LOCAL llReturn, lnRow + IF PCOUNT() < 5 + RETURN False + ENDIF + IF this.GetSheetRecord(tnWB, tnSheet) + SELECT xl_cells + SET ORDER TO TAG reverse + DO CASE + CASE tnShift = INSERT_LEFT + SCAN FOR workbook = tnWB .AND. sheet = tnSheet .AND. cellcol >= tnCol .AND. cellrow = tnRow + REPLACE xl_cells.cellcol WITH xl_cells.cellcol + 1 IN xl_cells + this.SetRowMaxColumn(tnWB, tnSheet, xl_cells.cellrow, xl_cells.cellcol) + ENDSCAN + llReturn = True + + CASE tnShift = INSERT_RIGHT + SCAN FOR workbook = tnWB .AND. sheet = tnSheet .AND. cellcol > tnCol .AND. cellrow = tnRow + REPLACE xl_cells.cellcol WITH xl_cells.cellcol + 1 IN xl_cells + this.SetRowMaxColumn(tnWB, tnSheet, xl_cells.cellrow, xl_cells.cellcol) + ENDSCAN + llReturn = True + + CASE tnShift = INSERT_BEFORE + SCAN FOR workbook = tnWB .AND. sheet = tnSheet .AND. cellrow >= tnRow .AND. cellcol = tnCol + REPLACE xl_cells.cellrow WITH xl_cells.cellrow + 1 IN xl_cells + this.SetRowMaxColumn(tnWB, tnSheet, xl_cells.cellrow, xl_cells.cellcol) + ENDSCAN + llReturn = True + + CASE tnShift = INSERT_AFTER + SCAN FOR workbook = tnWB .AND. sheet = tnSheet .AND. cellrow > tnRow .AND. cellcol = tnCol + REPLACE xl_cells.cellrow WITH xl_cells.cellrow + 1 IN xl_cells + this.SetRowMaxColumn(tnWB, tnSheet, xl_cells.cellrow, xl_cells.cellcol) + ENDSCAN + llReturn = True + + OTHERWISE + llReturn = False + ENDCASE + SET ORDER TO + ELSE + llReturn = False + ENDIF + RETURN llReturn + ENDPROC + + PROCEDURE insertcolumn && Inserts a new column into the sheet + LPARAMETERS tnWB, tnSheet, tnCol, tnShift + LOCAL llReturn + IF PCOUNT() < 4 + RETURN False + ENDIF + IF this.GetSheetRecord(tnWB, tnSheet) + SELECT xl_cells + SET ORDER TO TAG reverse + DO CASE + CASE tnShift = INSERT_LEFT + SCAN FOR workbook = tnWB .AND. sheet = tnSheet .AND. cellcol >= tnCol + REPLACE xl_cells.cellcol WITH xl_cells.cellcol + 1 IN xl_cells + IF SEEK(BINTOC(tnWB)+BINTOC(tnSheet)+BINTOC(xl_cells.cellrow), "xl_rows", "id") .AND. xl_cells.cellcol > xl_rows.maxcol + REPLACE xl_rows.maxcol WITH xl_cells.cellcol IN xl_rows + ENDIF + ENDSCAN + llReturn = True + + CASE tnShift = INSERT_RIGHT + SCAN FOR workbook = tnWB .AND. sheet = tnSheet .AND. cellcol > tnCol + REPLACE xl_cells.cellcol WITH xl_cells.cellcol + 1 IN xl_cells + IF SEEK(BINTOC(tnWB)+BINTOC(tnSheet)+BINTOC(xl_cells.cellrow), "xl_rows", "id") .AND. xl_cells.cellcol > xl_rows.maxcol + REPLACE xl_rows.maxcol WITH xl_cells.cellcol IN xl_rows + ENDIF + ENDSCAN + llReturn = True + + OTHERWISE + llReturn = False + ENDCASE + SET ORDER TO + ELSE + llReturn = False + ENDIF + RETURN llReturn + ENDPROC + + PROCEDURE insertrow && Inserts a new row into the sheet + LPARAMETERS tnWB, tnSheet, tnRow, tnShift + LOCAL llReturn, lnRow + IF PCOUNT() < 4 + RETURN False + ENDIF + IF this.GetSheetRecord(tnWB, tnSheet) + SELECT xl_cells + SET ORDER TO TAG reverse + DO CASE + CASE tnShift = INSERT_BEFORE + SCAN FOR workbook = tnWB .AND. sheet = tnSheet .AND. cellrow >= tnRow + lnRow = xl_cells.cellrow + REPLACE xl_cells.cellrow WITH lnRow + 1 IN xl_cells + IF SEEK(BINTOC(tnWB)+BINTOC(tnSheet)+BINTOC(lnRow), "xl_rows", "id") + REPLACE xl_rows.row WITH xl_cells.cellrow IN xl_rows + ENDIF + ENDSCAN + llReturn = True + + CASE tnShift = INSERT_AFTER + SCAN FOR workbook = tnWB .AND. sheet = tnSheet .AND. cellrow > tnRow + lnRow = xl_cells.cellrow + REPLACE xl_cells.cellrow WITH lnRow + 1 IN xl_cells + IF SEEK(BINTOC(tnWB)+BINTOC(tnSheet)+BINTOC(lnRow), "xl_rows", "id") + REPLACE xl_rows.row WITH xl_cells.cellrow IN xl_rows + ENDIF + ENDSCAN + llReturn = True + + OTHERWISE + llReturn = False + ENDCASE + SET ORDER TO + ELSE + llReturn = False + ENDIF + RETURN llReturn + ENDPROC + + PROCEDURE iscellformula && Returns True if cell contains a formula + LPARAMETERS tnWB, tnSheet, tnCellRow, tnCellCol + LOCAL llFormula + IF PCOUNT() < 4 + RETURN .NULL. + ENDIF + llFormula = False + IF this.GetCellRecord(tnWB, tnSheet, tnCellRow, tnCellCol) + llFormula = !EMPTY(xl_cells.cellformula) + ENDIF + RETURN llFormula + ENDPROC + + PROTECTED PROCEDURE iscellreferenceinvalid && Checks if the cell reference is invalid (outside of limits) + LPARAMETERS tnRow, tnCol + IF tnRow > LIMITS_MAX_ROWS .OR. tnCol > LIMITS_MAX_COLUMNS + RETURN True + ENDIF + RETURN False + ENDPROC + + PROCEDURE isformatstyledefined && Determines if the format is defined as a style + LPARAMETERS tnWB, tcFName, tnFSize, tlBold, tlItalic, tnFColor, tcULine, tlStrikThr, tcVPos + DO CASE + CASE PCOUNT() < 3 + RETURN .NULL. + + CASE PCOUNT() = 3 + tlBold = False + tlItalic = False + tnFColor = RGB(0, 0, 0) + tcULine = UNDERLINE_NONE + tlStrikThr = False + tcVPos = FONT_VERTICAL_BASELINE + + CASE PCOUNT() = 4 + tlItalic = False + tnFColor = RGB(0, 0, 0) + tcULine = UNDERLINE_NONE + tlStrikThr = False + tcVPos = FONT_VERTICAL_BASELINE + + CASE PCOUNT() = 5 + tnFColor = RGB(0, 0, 0) + tcULine = UNDERLINE_NONE + tlStrikThr = False + tcVPos = FONT_VERTICAL_BASELINE + + CASE PCOUNT() = 6 + tcULine = UNDERLINE_NONE + tlStrikThr = False + tcVPos = FONT_VERTICAL_BASELINE + + CASE PCOUNT() = 7 + tlStrikThr = False + tcVPos = FONT_VERTICAL_BASELINE + + CASE PCOUNT() = 8 + tcVPos = FONT_VERTICAL_BASELINE + ENDCASE + + IF SEEK(BINTOC(tnWB)+PADR(tcFName, 100) + STR(tnFSize, 5, 1) + TRANSFORM(tlBold) + TRANSFORM(tlItalic) + PADL(tnFColor, 15) + PADR(tcULine, 16) + ; + TRANSFORM(tlStrikThr) + PADR(tcVPos, 11), "xl_fonts", "cellformat") + + IF SEEK(BINTOC(tnWB)+BINTOC(xl_fonts.id)+BINTOC(0)+BINTOC(0)+BINTOC(0)+BINTOC(0)+BINTOC(0), "xl_cellxfs", "cellformat") + RETURN xl_cellxfs.id + ELSE + RETURN .NULL. + ENDIF + ELSE + RETURN .NULL. + ENDIF + ENDPROC + + PROTECTED PROCEDURE isvalidborderstyle && Validates the border style value + LPARAMETERS tcStyle + IF VARTYPE(tcStyle) != 'C' .OR. EMPTY(tcStyle) .OR. !INLIST(tcStyle, BORDER_STYLE_THIN, BORDER_STYLE_HAIR, BORDER_STYLE_DOTTED, BORDER_STYLE_DASHDOTDOT, ; + BORDER_STYLE_DASHDOT, BORDER_STYLE_DASHED, BORDER_STYLE_THIN, BORDER_STYLE_MEDIUMDASHDOTDOT, ; + BORDER_STYLE_SLANTDASHDOT, BORDER_STYLE_MEDIUMDASHDOT, BORDER_STYLE_MEDIUMDASHED, ; + BORDER_STYLE_MEDIUM, BORDER_STYLE_THICK, BORDER_STYLE_DOUBLE) + RETURN False + ENDIF + RETURN True + ENDPROC + + PROCEDURE mergecells && Merges cells together + LPARAMETERS tnWB, tnSheet, tnBegRow, tnBegCol, tnEndRow, tnEndCol + LOCAL lnRow, lnCol, lcCellValue, lnStringIndex, lcDataType, lcCellFormula, llReturn + IF PCOUNT() < 6 + RETURN False + ENDIF + IF this.GetSheetRecord(tnWB, tnSheet) + IF SEEK(BINTOC(tnWB)+BINTOC(tnSheet)+BINTOC(tnBegRow)+BINTOC(tnBegCol), "xl_mergecells", "mergecell") + REPLACE xl_mergecells.endrow WITH tnEndRow, ; + xl_mergecells.endcol WITH tnEndCol IN xl_mergecells + ELSE + *-* Check if a cell being merged is already in a merge group + SELECT xl_mergecells + LOCATE FOR workbook = tnWB .AND. sheet = tnSheet .AND. BETWEEN(tnBegRow, begrow, endrow) .AND. BETWEEN(tnBegCol, begcol, endcol) .AND. !DELETED() + IF FOUND() + llReturn = False + ELSE + LOCATE FOR workbook = tnWB .AND. sheet = tnSheet .AND. BETWEEN(tnEndRow, begrow, endrow) .AND. BETWEEN(tnEndCol, begcol, endcol) .AND. !DELETED() + IF FOUND() + llReturn = False + ELSE + *-* Add merged cells + INSERT INTO xl_mergecells (workbook, sheet, begrow, begcol, endrow, endcol) ; + VALUES (tnWB, tnSheet, tnBegRow, tnBegCol, tnEndRow, tnEndCol) + *-* Get upper left most cell value -> will be value of the merged cells (clear all other cell values) + SELECT xl_cells + lcCellValue = .NULL. + FOR lnRow=tnBegRow TO tnEndRow + FOR lnCol=tnBegCol TO tnEndCol + IF this.GetCellRecord(tnWB, tnSheet, lnRow, lnCol) .AND. !EMPTY(xl_cells.cellvalue) + IF ISNULL(lcCellValue) .AND. !xl_cells.celldeleted + lcDataType = xl_cells.datatype + lcCellValue = xl_cells.cellvalue + lcCellFormula = xl_cells.cellformula + lnStringIndex = xl_cells.stringid + ENDIF + REPLACE xl_cells.cellvalue WITH "", ; + xl_cells.cellformula WITH "", ; + xl_cells.stringid WITH 0, ; + xl_cells.datatype WITH "" IN xl_cells + ENDIF + ENDFOR + ENDFOR + IF !ISNULL(lcCellValue) + IF this.GetCellRecord(tnWB, tnSheet, tnBegRow, tnBegCol) + REPLACE xl_cells.cellvalue WITH lcCellValue, ; + xl_cells.cellformula WITH lcCellFormula, ; + xl_cells.stringid WITH lnStringIndex, ; + xl_cells.datatype WITH lcDataType, ; + xl_cells.celldeleted WITH False IN xl_cells + ENDIF + ENDIF + *-* If the tnEndCol cell is not a cell already in the row then add the cell to the cursor for the max cells by row determination + * SELECT xl_cells + * FOR lnRow=tnBegRow TO tnEndRow + * LOCATE FOR workbook = tnWB .AND. sheet = tnSheet .AND. cellrow = lnRow .AND. cellcol >= tnEndCol .AND. !DELETED() + * IF !FOUND() + * INSERT INTO xl_cells (workbook, sheet, cellrow, cellcol, datatype, cellxfs, numdec, celldeleted) ; + * VALUES (tnWB, tnSheet, lnRow, tnEndCol, DATA_TYPE_NONE, 0, -1, False) + * ENDIF + * ENDFOR + llReturn = True + ENDIF + ENDIF + ENDIF + FOR lnRow=tnBegRow TO tnEndRow + this.SetRowMaxColumn(tnWB, tnSheet, lnRow, tnEndCol) + ENDFOR + ELSE + llReturn = False + ENDIF + RETURN llReturn + ENDPROC + + PROCEDURE ondestroy && Called by the Destroy() event - user implementation + *-* + *-* TODO: Add your code here + *-* + ENDPROC + + PROCEDURE oninit && User code for Init() Event + *-* + *-* TODO: Add your code here + *-* + ENDPROC + + PROCEDURE onshowerrormessage && Event for displaying an error message to the user + LPARAMETERS tnErrorId, tcErrMessage + *-* + *-* TODO: Use BINDEVENTS to bind to this event and display a message to your users + *-* + ENDPROC + + PROCEDURE onshowstatusmessage && Event for displaying a wait message to the user + LPARAMETERS tnMode, tnStage, tnTotStages + *-* + *-* TODO: Use BINDEVENTS to bind to this event and display a message to your users + *-* + *-* tnTotStages = total number of tnStages (only passed on first call) + *-* + *-* tnMode = 1; opening an xlsx file + *-* tnStage = 0; start of open + *-* tnStage = 1; reading shared strings XML + *-* tnStage = 2; reading styles XML + *-* tnStage = 3; reading relationships XML + *-* tnStage = 4; reading sheets XML + *-* tnStage = 5; reading named ranges + *-* tnStage = 6; reading external references + *-* tnStage = -1; end of open + *-* + *-* tnMode = 2; saving an xlsx file + *-* tnStage = 0; start of save + *-* tnStage = 1; indicates saving supporting XMLs + *-* tnStage = 2; indicates saving strings XML + *-* tnStage = 3; indicates saving styles XML + *-* tnStage = 4; indicates saving workbook + *-* tnStage = 5; indicates saving relationship XML + *-* tnStage = 6+; indicates saving sheets + *-* tnStage = -1; end of close + *-* + *-* tnMode = 3; saving an xlsx file + *-* tnStage = 0; start of write of data to cell values + *-* tnStage = 1-n; indicates saving cell values + *-* tnStage = -1; write of data + *-* + ENDPROC + + PROCEDURE opencreatedxlsxfile && Opens the XLSX file via Win32 API default program + LPARAMETERS txWB + LOCAL lcFileName + DO CASE + CASE PCOUNT() = 0 + RETURN False + + CASE VARTYPE(txWB) = "N" + lcFileName = this.GetWorkbookFileName(txWB) + IF EMPTY(lcFileName) .OR. !FILE(lcFileName) + RETURN False + ENDIF + + CASE VARTYPE(txWB) = "C" + IF FILE(txWB) + lcFileName = txWB + ELSE + RETURN False + ENDIF + + OTHERWISE + RETURN False + ENDCASE + TRY + apiShellExecute(0, "Open", lcFileName, "", "", 5) + + CATCH TO loException + RAISEEVENT(this, "OnShowErrorMessage", 99, "Failure to open file: " + loException.Message) + ENDTRY + ENDPROC + + PROCEDURE openxlsxworkbook && Opens the passed Xlsx workbook and loads the internal cursors with the content + LPARAMETERS tcFileName, tlForceTextFormat + LOCAL lnWB, lcBaseName, lcTempPath, lcZipName, loShell, lnCnt, lnCntTot, lcRelationsXml, lnNode + LOCAL lnRelId, lcRelType, lcTarget, lcWbXmlPath, lcRelation, lcWorkbook, lcSheet, lcShName, lnShRId, lcShFile + LOCAL loException, loFS, lcDefinedNames, lcDefinedName, lcRName, lcComment, lnRangeId, lcRange, lnNdx + LOCAL lnBegRow, lnBegCol, lnEndRow, lnEndCol, lcExternalRefs, lnExRId, lcExtRef, lcCellRange, lcBegRange + LOCAL lcEndRange, loDir, lnLastRelId, lcSheets, lcRelationships, lcShState + LOCAL ARRAY laTemp[1] + DO CASE + CASE PCOUNT() = 0 + this.ErrorLevelId = 1 + RAISEEVENT(this, "OnShowErrorMessage", 1, "Invalid call to OpenXlsxWorkbook() method; must include file name to open") + + CASE PCOUNT() = 1 + tlForceTextFormat = False + ENDCASE + lnWB = 0 + IF ADIR(laTemp, tcFileName) > 0 + *-* Open the Workbook as an archive (zip) file and extract contents + TRY + lcBaseName = SYS(2015) + lcTempPath = ADDBS(SYS(2023)) + lcBaseName + lcZipName = lcTempPath + ".zip" + COPY FILE (tcFileName) TO (lcZipName) + loShell = CREATEOBJECT("shell.application") + MKDIR (lcTempPath) + loShell.NameSpace(lcTempPath).CopyHere(loShell.NameSpace(lcZipName).Items, FOF_SILENT) + lnCnt = 0 + lnCntTot = loShell.NameSpace(lcZipName).Items.Count + DO WHILE loShell.NameSpace(lcTempPath).Items.Count != lnCntTot + lnCnt = lnCnt + 1 + apiSleep(100) + IF lnCnt > lnCntTot + SET STEP ON + ENDIF + ENDDO + ERASE (lcZipName) + + CATCH TO loException + SET STEP ON + this.ErrorLevelId = 2 + RAISEEVENT(this, "OnShowErrorMessage", 2, loException.Message) + lnWB = .NULL. + ENDTRY + IF ISNULL(lnWB) + RETURN 0 + ENDIF + *-* Add to the workbook table + lnWB = this.CreateWorkbookEx(tcFileName) + IF lnWB > 0 + *-* Verify all required XML files are present + lcWbXmlPath = ADDBS(lcTempPath) + IF ADIR(laTemp, lcWbXmlPath + "xl\workbook.xml") = 0 + this.ErrorLevelId = 3 + RAISEEVENT(this, "OnShowErrorMessage", 3, "Invalid XLSX file - missing workbook.xml") + this.DeleteWorkbook(lnWB) + RETURN 0 + ENDIF + IF ADIR(laTemp, lcWbXmlPath + "xl\_rels\workbook.xml.rels") = 0 + this.ErrorLevelId = 4 + RAISEEVENT(this, "OnShowErrorMessage", 4, "Invalid XLSX file - missing workbook.xml.rels") + this.DeleteWorkbook(lnWB) + RETURN 0 + ENDIF + IF ADIR(laTemp, lcWbXmlPath + "xl\styles.xml") = 0 + this.ErrorLevelId = 5 + RAISEEVENT(this, "OnShowErrorMessage", 5, "Invalid XLSX file - missing styles.xml") + this.DeleteWorkbook(lnWB) + RETURN 0 + ENDIF + + *-* Process the workbook + RAISEEVENT(this, "OnShowStatusMessage", 1, 1, 6) + TRY + *-* Get the shared strings if present + IF ADIR(laTemp, lcWbXmlPath + "xl\sharedStrings.xml") > 0 + IF !this.ReadSharedStringsXML(lcWbXmlPath, lnWB) + this.ErrorLevelId = 7 + RAISEEVENT(this, "OnShowErrorMessage", 7, "Invalid XLSX file - error during shared string loading") + THROW + ENDIF + ENDIF + + *-* Get the cell formatting styles + this.ReadStylesXML(lcWbXmlPath, lnWB) + + *-* Get the defined relationship files for this workbook + RAISEEVENT(this, "OnShowStatusMessage", 1, 3) + lcRelationsXml = FILETOSTR(lcWbXmlPath + "xl\_rels\workbook.xml.rels") + lcRelationships = this.GetNodeElement(lcRelationsXml, 'Relationships', 1, False, 1) + + lnNode = 1 + lnLastRelId = 0 + lcRelation = this.GetNodeElement(lcRelationships, 'Relationship', lnNode) + DO WHILE !EMPTY(lcRelation) + lnRelId = CAST(SUBSTR(this.GetNodeAttributeValue(lcRelation, "Id"), 4) AS I) + lcTarget = this.GetNodeAttributeValue(lcRelation, "Target") + lcRelType = this.GetNodeAttributeValue(lcRelation, "Type") + lcRelType = SUBSTR(lcRelType, RATC("/", lcRelType)+1) + IF lcRelType != "theme" + INSERT INTO xl_relationships (workbook, relid, reltype, target) VALUES (lnWB, lnRelId, lcRelType, lcTarget) + + IF lnRelId > lnLastRelId + lnLastRelId = lnRelId + ENDIF + ENDIF + lnNode = lnNode + 1 + lcRelation = this.GetNodeElement(lcRelationships, 'Relationship', lnNode) + ENDDO + this.SetLastId(lnWB, lnLastRelId, "xl_relationships") + + *-* Get the sheets + RAISEEVENT(this, "OnShowStatusMessage", 1, 4) + lcWorkbook = FILETOSTR(lcWbXmlPath + "xl\workbook.xml") + + lcSheets = this.GetNodeElement(lcWorkbook, 'sheets', 1, False, 1) + lnNode = 1 + lcSheet = this.GetNodeElement(lcSheets, 'sheet', lnNode) + DO WHILE !EMPTY(lcSheet) + lcShName = this.GetNodeAttributeValue(lcSheet, "name") + lnShRId = CAST(SUBSTR(this.GetNodeAttributeValue(lcSheet, "r:id"), 4) AS I) + lcShFile = lcWbXmlPath + "xl\" + this.GetRelationshipFileName(lnWB, lnShRId) + lcShState = this.GetNodeAttributeValue(lcSheet, "state") + DO CASE + CASE lcShState = "visible" + lnShState = VISIBLE_SHEET_STATE + + CASE lcShState = "hidden" + lnShState = HIDDEN_SHEET_STATE + + CASE lcShState = "veryHidden" + lnShState = VERYHIDDEN_SHEET_STATE + + OTHERWISE + lnShState = VISIBLE_SHEET_STATE + ENDCASE + + IF ADIR(laTemp, lcShFile) = 0 .OR. !this.ReadSheetXML(lcShFile, lnWB, lnNode, lcShName, lnShState, tlForceTextFormat) + this.ErrorLevelId = 8 + RAISEEVENT(this, "OnShowErrorMessage", 8, "Invalid XLSX file - missing sheet or invalid sheet: " + lcShFile) + this.DeleteWorkbook(lnWB) + THROW + ENDIF + IF SEEK(BINTOC(lnWB)+BINTOC(lnShRId), "xl_relationships", "relid") + REPLACE xl_relationships.sheet WITH lnNode IN xl_relationships + ELSE + SET STEP ON + ENDIF + + lnNode = lnNode + 1 + lcSheet = this.GetNodeElement(lcSheets, 'sheet', lnNode) + ENDDO + this.SetLastId(lnWB, lnNode-1, "xl_sheets") + + *-* Get the defined name ranges + RAISEEVENT(this, "OnShowStatusMessage", 1, 5) + lcDefinedNames = this.GetNodeElement(lcWorkbook, 'definedNames', 1) + IF !EMPTY(lcDefinedNames) + lnNode = 1 + lcDefinedName = this.GetNodeElement(lcDefinedNames, 'definedName', lnNode) + DO WHILE !EMPTY(lcDefinedName) + lcRange = this.GetNodeElementValue(lcDefinedName) + IF !EMPTY(lcRange) + lnNdx = ATC("!", lcRange) + lcShName = LEFT(lcRange, lnNdx-1) + IF !EMPTY(lcShName) + lcShName = CHRTRAN(lcShName, "'", "") + IF SEEK(BINTOC(lnWB)+UPPER(PADR(lcShName, LEN(xl_sheets.shname))), "xl_sheets", "shname") + + lcRName = this.GetNodeAttributeValue(lcDefinedName, "name") + lcComment = this.GetNodeAttributeValue(lcDefinedName, "comment") + lnRangeId = CAST(this.GetNodeAttributeValue(lcDefinedName, "localSheetId") AS I) + + lcCellRange = SUBSTR(lcRange, lnNdx+1) + lcCellRange = CHRTRAN(lcCellRange, "$", "") + lcBegRange = GETWORDNUM(lcCellRange, 1, ":") + lcEndRange = GETWORDNUM(lcCellRange, 2, ":") + + lnNdx = this.GetAlphaNumericSplit(lcBegRange) + DO CASE + CASE lnNdx = 0 && Column only range + lnBegCol = this.ColumnAsciiToIndex(lcBegRange) + lnBegRow = 0 + + CASE lnNdx = 1 && Row only range + lnBegCol = 0 + lnBegRow = CAST(lcBegRange AS I) + + OTHERWISE + lnBegCol = this.ColumnAsciiToIndex(LEFT(lcBegRange, lnNdx-1)) + lnBegRow = CAST(SUBSTR(lcBegRange, lnNdx) AS I) + ENDCASE + + lnNdx = this.GetAlphaNumericSplit(lcEndRange) + DO CASE + CASE lnNdx = 0 && Column only range + lnEndCol = this.ColumnAsciiToIndex(lcEndRange) + lnEndRow = 0 + + CASE lnNdx = 1 && Row only range + lnEndCol = 0 + lnEndRow = CAST(lcEndRange AS I) + + OTHERWISE + lnEndCol = this.ColumnAsciiToIndex(LEFT(lcEndRange, lnNdx-1)) + lnEndRow = CAST(SUBSTR(lcEndRange, lnNdx) AS I) + ENDCASE + + INSERT INTO xl_namerange (workbook, sheet, rname, scope, comment, begrow, begcol, endrow, endcol) ; + VALUES (lnWB, xl_sheets.sheet, lcRName, lnRangeId, lcComment, lnBegRow, lnBegCol, lnEndRow, lnEndCol) + ENDIF + ENDIF + ENDIF + lnNode = lnNode + 1 + lcDefinedName = this.GetNodeElement(lcDefinedNames, 'definedName', lnNode) + ENDDO + ENDIF + + *-* Get the external references + RAISEEVENT(this, "OnShowStatusMessage", 1, 6) + * lcExternalRefs = this.GetNodeElement(lcWorkbook, 'externalReferences', 1) + * IF !EMPTY(lcExternalRefs) + * lnNode = 1 + * lcExtRef = this.GetNodeElement(lcExternalRefs, 'externalReference', lnNode) + * DO WHILE !EMPTY(lcExtRef) + * lnExRId = CAST(SUBSTR(this.GetNodeAttributeValue(lcExtRef, "r:id"), 4) AS I) + * lcFile = lcWbXmlPath + "xl\" + this.GetRelationshipFileName(lnWB, lnExRId) + * this.ReadExternalRefXML(lnWB, lcFile, lnExRId) + * + * lnNode = lnNode + 1 + * lcExtRef = this.GetNodeElement(lcExternalRefs, 'externalReference', lnNode) + * ENDDO + * ENDIF + + CATCH TO loException + SET STEP ON + this.ErrorLevelId = 9 + RAISEEVENT(this, "OnShowErrorMessage", 9, "Invalid XLSX file - error reading data; " + loException.Message) + this.DeleteWorkbook(lnWB) + lnWB = 0 + + FINALLY + TRY + loFS = CREATEOBJECT("Scripting.FileSystemObject") + loDir = loFS.GetFolder(lcTempPath) + loDir.Delete() + + CATCH TO loException + SET STEP ON + ENDTRY + RAISEEVENT(this, "OnShowStatusMessage", 1, -1) + ENDTRY + IF this.Debug + this.DebugCursorsToFile("Extract") + ENDIF + ENDIF + ENDIF + RETURN lnWB + ENDPROC + + PROCEDURE parsestring && Parses a string based on a specified delimiter + LPARAMETERS tcText, tnPos, tcDelimiter + LOCAL lcWord, lnCnt, lnBeg, lnEnd + lnCnt = OCCURS(tcDelimiter, tcText) + 1 + IF tnPos <= lnCnt + DO CASE + CASE lnCnt = 0 + lcWord = tcText + + CASE tnPos = 1 + lcWord = LEFT(tcText, ATC(tcDelimiter, tcText)-1) + + CASE tnPos = lnCnt + lcWord = SUBSTR(tcText, RATC(tcDelimiter, tcText)+1) + + OTHERWISE + lnBeg = ATC(tcDelimiter, tcText, tnPos-1) + 1 + lnEnd = ATC(tcDelimiter, tcText, tnPos) + lcWord = SUBSTR(tcText, lnBeg, lnEnd-lnBeg) + ENDCASE + RETURN lcWord + ELSE + RETURN "" + ENDIF + ENDPROC + + PROTECTED PROCEDURE readcellvalueformat && Reads the cell value and format for a sheet + LPARAMETERS tnWB, tcColumn, tnCellCol + LOCAL lcCellType, lnNode, lcBaseName, lcFormatCode, lnNdx, loCellFormat, lcWholeNbr, lcDecNbr + LOCAL lcPosFormat, lcNegFormat, lcZerFormat, lcInLineTxt + loCellFormat = CREATEOBJECT("Empty") + ADDPROPERTY(loCellFormat, "CellVal", "") + ADDPROPERTY(loCellFormat, "DataType", DATA_TYPE_NONE) + ADDPROPERTY(loCellFormat, "Formula", "") + ADDPROPERTY(loCellFormat, "StringNdx", 0) + ADDPROPERTY(loCellFormat, "CellXfsId", 0) + + lcCellType = this.GetNodeAttributeValue(tcColumn, "t") + FOR lnChild=1 TO this.GetChildNodeCount(tcColumn) + lcChild = this.GetChildNodeElement(tcColumn, lnChild) + DO CASE + CASE lcChild = " 0 + lnNdx = ATC(".", loCellFormat.CellVal) + lcWholeNbr = LEFT(loCellFormat.CellVal, lnNdx-1) + lcDecNbr = SUBSTR(loCellFormat.CellVal, lnNdx+1) + IF LEN(lcDecNbr) > 0 + loCellFormat.CellVal = lcWholeNbr + "." + PADR(lcDecNbr, 17, "0") + loCellFormat.DataType = DATA_TYPE_DATETIME + ELSE + loCellFormat.CellVal = lcWholeNbr + loCellFormat.DataType = DATA_TYPE_DATE + ENDIF + ENDCASE + + CASE INLIST(xl_cellxfs.numFmtId, 18, 19, 20, 21, 45, 46) && Time format + DO CASE + CASE ATC("E-", loCellFormat.CellVal) > 0 + loCellFormat.CellVal = PADR(TRANSFORM(EVAL(loCellFormat.CellVal)), 19, "0") + loCellFormat.DataType = DATA_TYPE_TIME + + CASE ATC("E", loCellFormat.CellVal) > 0 + loCellFormat.CellVal = TRANSFORM(EVAL(loCellFormat.CellVal)) + lnNdx = ATC(".", loCellFormat.CellVal) + lcWholeNbr = LEFT(loCellFormat.CellVal, lnNdx-1) + lcDecNbr = SUBSTR(loCellFormat.CellVal, lnNdx+1) + loCellFormat.CellVal = lcWholeNbr + "." + PADR(lcDecNbr, 17, "0") + loCellFormat.DataType = DATA_TYPE_DATETIME + + CASE LEFT(loCellFormat.CellVal, 2) = "0." + lcDecNbr = SUBSTR(loCellFormat.CellVal, 3) + loCellFormat.CellVal = "0." + PADR(lcDecNbr, 17, "0") + loCellFormat.DataType = DATA_TYPE_TIME + + OTHERWISE + lnNdx = ATC(".", loCellFormat.CellVal) + lcWholeNbr = LEFT(loCellFormat.CellVal, lnNdx-1) + lcDecNbr = SUBSTR(loCellFormat.CellVal, lnNdx+1) + loCellFormat.CellVal = lcWholeNbr + "." + PADR(lcDecNbr, 17, "0") + loCellFormat.DataType = DATA_TYPE_DATETIME + ENDCASE + + CASE INLIST(xl_cellxfs.numFmtId, 22, 29, 30, 31, 32, 33, 34) && Date-time format + lnNdx = ATC(".", loCellFormat.CellVal) + lcWholeNbr = IIF(lnNdx=0, loCellFormat.CellVal, LEFT(loCellFormat.CellVal, lnNdx-1)) && Bug fix provide by Dan Goodwin from VFPx + lcDecNbr = IIF(lnNdx=0, "", SUBSTR(loCellFormat.CellVal, lnNdx+1)) && Bug fix provide by Dan Goodwin from VFPx + loCellFormat.CellVal = lcWholeNbr + "." + PADR(lcDecNbr, 17, "0") + loCellFormat.DataType = DATA_TYPE_DATETIME + + CASE xl_cellxfs.numFmtId = 49 && Numeric formatted as text + loCellFormat.StringNdx = this.AddStringValue(tnWB, loCellFormat.CellVal, False) + loCellFormat.CellVal = "StringValue" + loCellFormat.DataType = DATA_TYPE_CHAR + + CASE SEEK(BINTOC(tnWB)+BINTOC(xl_cellxfs.numFmtId), "xl_numfmts", "id") && Determine based on custom format + lcFormatCode = ALLTRIM(xl_numfmts.formatcode) + DO CASE + CASE ATC("h:m", lcFormatCode) > 0 .OR. ATC("m:s", lcFormatCode) > 0 .OR. ATC("AM/PM", lcFormatCode) > 0 .OR. ATC("A/P", lcFormatCode) > 0 + loCellFormat.DataType = DATA_TYPE_DATETIME + + CASE ATC("yy", lcFormatCode) > 0 .OR. ATC("d\-m", lcFormatCode) > 0 + loCellFormat.DataType = DATA_TYPE_DATE + + OTHERWISE + lnNdx = ATC(".", lcFormatCode) + IF lnNdx > 0 + loCellFormat.DataType = DATA_TYPE_FLOAT + lnNdx = lnNdx + 1 + DO WHILE lnNdx < LEN(lcFormatCode) + IF SUBSTR(lcFormatCode, lnNdx, 1) != "0" + EXIT + ENDIF + lnNdx = lnNdx + 1 + ENDDO + ELSE + loCellFormat.DataType = DATA_TYPE_INT + ENDIF + ENDCASE + + + OTHERWISE + DO CASE + CASE ISNULL(loCellFormat.CellVal) .OR. EMPTY(loCellFormat.CellVal) + loCellFormat.DataType = DATA_TYPE_NONE + + CASE ATC(".", loCellFormat.CellVal) > 0 + loCellFormat.DataType = DATA_TYPE_FLOAT + + OTHERWISE + loCellFormat.DataType = DATA_TYPE_INT + ENDCASE + ENDCASE + ELSE + DO CASE + CASE ISNULL(loCellFormat.CellVal) .OR. EMPTY(loCellFormat.CellVal) + loCellFormat.CellVal = "" + loCellFormat.DataType = DATA_TYPE_NONE + + CASE ATC(".", loCellFormat.CellVal) > 0 + loCellFormat.DataType = DATA_TYPE_FLOAT + + OTHERWISE + loCellFormat.DataType = DATA_TYPE_INT + ENDCASE + ENDIF + ENDCASE + RETURN loCellFormat + ENDPROC + + PROTECTED PROCEDURE readexternalrefxml && Reads the External References file + LPARAMETERS tnWB, tcFileName, tnRelId + LOCAL lcExternalLink, lcSheetNames, lnNode, lcSheetName, lcShName + + *-* Open the external file for processing + lcExternalLink = FILETOSTR(tcFileName) + + *-* Get the sheet names + lcSheetNames = this.GetNodeElement(lcExternalLink, 'sheetNames', 1) + IF !EMPTY(lcSheetNames) + lnNode = 1 + lcSheetName = this.GetNodeElement(lcSheetNames, 'sheetName', lnNode) + DO WHILE !EMPTY(lcSheetName) + lcShName = this.GetNodeAttributeValue(lcSheetName, "val") + + INSERT INTO xl_extsheets (workbook, extid, relid, sheetname) VALUES (tnWB, lnNode, tnRelId, lcShName) + + lnNode = lnNode + 1 + lcSheetName = this.GetNodeElement(lcSheetNames, 'sheetName', lnNode) + ENDDO + + *-* Get each external sheet detail + lnNode = 1 + lcSheetData = this.GetNodeElement(lcExternalLink, 'sheetData', lnNode) + DO WHILE !EMPTY(lcSheetData) + lnRow = 1 + lcRowData = this.GetNodeElement(lcSheetData, 'row', lnRow) + DO WHILE !EMPTY(lcRowData) + + ENDDO + + lnNode = lnNode + 1 + lcSheetData = this.GetNodeElement(lcExternalLink, 'sheetData', lnNode) + ENDDO + ENDIF + ENDPROC + + PROTECTED PROCEDURE readsharedstringsxml && Reads the sharedstrings.xml for opening workbooks + LPARAMETERS tcFilePath, tnWB + LOCAL lcStrings, lcString, lnNode, lcRichTextRun, lcText, lnIndex, llFBold, llFItalic, loException, lcT + LOCAL lnFColor, lcFName, lnFSize, lcULine, llStrkThr, lcFVPos, lnTheme, lnTint, lnIndexed, lcRunPrp + LOCAL lnR, lcRText, lcRunProp, lcColor, llPrsvSp, llFormatted, llSuccess, lhFile, lcSharedStringFile, lnSize + LOCAL lcStringXml, lcCheckSum + + RAISEEVENT(this, "OnShowStatusMessage", 1, 1) + TRY + lcSharedStringFile = ADDBS(tcFilePath) + "xl\sharedStrings.xml" + lcStrings = FILETOSTR(lcSharedStringFile) + IF this.CodePage = 0 + lcStrings = STRCONV(lcStrings, 11) + ELSE + lcStrings = STRCONV(lcStrings, 11, this.CodePage, 1) + ENDIF + + lnNode = 1 + lcString = this.GetNodeElement(lcStrings, 'si', lnNode) + DO WHILE !EMPTY(lcString) + lnR = 1 + lcRichTextRun = this.GetNodeElement(lcString, 'r', lnR, True) + IF EMPTY(lcRichTextRun) + llFormatted = False + lcT = this.GetNodeElement(lcString, 't', 1) + lcText = this.GetNodeElementValue(lcT) + llPrsvSp = IIF(EMPTY(this.GetNodeAttributeValue(lcT, "xml:space")), False, True) + + IF llPrsvSp + lcRText = CHRTRAN(lcText, CHR(32), CHR(160)) + ENDIF + ELSE + llFormatted = True + lcText = "" + lnIndex = 0 + DO WHILE !EMPTY(lcRichTextRun) + lnIndex = lnIndex + 1 + lcT = this.GetNodeElement(lcRichTextRun, 't', 1) + llPrsvSp = IIF(EMPTY(this.GetNodeAttributeValue(lcT, "xml:space")), False, True) + lcRText = this.GetNodeElementValue(lcT) + lcText = lcText + lcRText + + lcRunProp = this.GetNodeElement(lcRichTextRun, 'rPr', 1, True) + llFBold = IIF(ATC("", lcRunProp)>0, True, False) + llFItalic = IIF(ATC("", lcRunProp)>0, True, False) + llStrkthr = IIF(ATC("", lcRunProp)>0, True, False) + IF ATC("", lcRunProp) > 0 + lcULine = UNDERLINE_SINGLE + ELSE + lcULine = this.GetNodeAttributeValue(this.GetNodeElement(lcRunProp, 'u', 1), "val") + lcULine = IIF(EMPTY(lcULine), UNDERLINE_NONE, lcULine) + ENDIF + + lnFSize = CAST(this.GetNodeAttributeValue(this.GetNodeElement(lcRunProp, 'sz', 1), "val") AS I) + lcFName = this.GetNodeAttributeValue(this.GetNodeElement(lcRunProp, 'rFont', 1), "val") + lcFVPos = this.GetNodeAttributeValue(this.GetNodeElement(lcRunProp, 'vertAlign', 1), "val") + + lcColor = this.GetNodeElement(lcRunProp, 'color', 1) + lnFColor = this.ConvertHexStringToNumeric(this.GetNodeAttributeValue(lcColor, "rgb")) + lnTheme = CAST(this.GetNodeAttributeValue(lcColor, "theme") AS I) + lnTint = CAST(this.GetNodeAttributeValue(lcColor, "tint") AS I) + lnIndexed = CAST(this.GetNodeAttributeValue(lcColor, "indexed") AS I) + + IF llPrsvSp + lcRText = CHRTRAN(lcRText, CHR(32), CHR(160)) + ENDIF + + INSERT INTO xl_strformat (workbook, id, index, stringxml, stringval, fbold, fitalic, fcolor, fname, fsize, uline, strkthr, fvpos, theme, tint, indexed, presvspace) ; + VALUES (tnWB, lnNode-1, lnIndex, lcRText, this.GetStringXML(lcRText), llFBold, llFItalic, lnFColor, lcFName, lnFSize, lcULine, llStrkThr, ; + lcFVPos, lnTheme, lnTint, lnIndexed, llPrsvSp) + + lnR = lnR + 1 + lcRichTextRun = this.GetNodeElement(lcString, 'r', lnR, True) + ENDDO + llPrsvSp = False + ENDIF + lcStringXml = this.GetXMLString(lcText) + lcCheckSum = this.GetCheckSum(lcText) + + INSERT INTO xl_strings (id, workbook, checksum, stringxml, stringval, presvspace, formatted) ; + VALUES (lnNode-1, tnWB, lcCheckSum, lcText, lcStringXml, llPrsvSp, llFormatted) + + lnNode = lnNode + 1 + lcString = this.GetNodeElement(lcStrings, 'si', lnNode) + ENDDO + this.SetLastId(tnWB, lnNode-2, "xl_strings") && Decrement by 2 to account for empty string not assigned + llSuccess = True + + CATCH TO loException + SET STEP ON + llSuccess = False + ENDTRY + RETURN llSuccess + ENDPROC + + PROTECTED PROCEDURE readsheetxml && Reads the sheet.xml for opening a workbook + LPARAMETERS tcShFile, tnWB, tnSheet, tcShName, tnShState, tlForceTextFormat + LOCAL lcSheet, lcSheetViews, lcSheetView, lcPane, lcMargin, lnXSplit, lnYSplit, lnLeft, lcDimen, lnScale, lnFitToWidth, lnFitToHeight + LOCAL lnRight, lnTop, lnBottom, lnHeader, lnFooter, lcPageSetup, lnOrientation, lnPaperSize, lnWidth, lnHeight, lnNode, lcMergeCells + LOCAL lnCnt, lcMergeCell, lcCellRef, lnBegCol, lnBegRow, lnEndCol, lnEndRow, lcTemp, lnNdx, lcSheetData + LOCAL lcRow, lnRowHt, lnCellRow, lnCellCol, lnCol, loCell, lnTabColNdx, lcTabColRgb, lcTabColor, lcSheetPr + LOCAL lcValidations, lnValidType, lcValidation, lnValidStyle, lnOperator, lcErrMsg, lcErrTitle, lcPrompt, lcFormula1 + LOCAL lcFormula2, llAllowBlank, llShowInputMsg, llShowErrMsg, llFormula, llCustHt, lcValidType, lcValidStyle + LOCAL lcValidSqRef, lnIndex + + *-* Open the sheet for processing + lcSheet = FILETOSTR(tcShFile) + IF this.CodePage = 0 + lcSheet = STRCONV(lcSheet, 11) + ELSE + lcSheet = STRCONV(lcSheet, 11, this.CodePage, 1) + ENDIF + + *-* Get the freeze rows/columns settings + lcSheetViews = this.GetNodeElement(lcSheet, 'sheetViews', 1, True) + lcSheetView = this.GetNodeElement(lcSheetViews, 'sheetView', 1) + lcPane = this.GetNodeElement(lcSheetView, 'pane', 1) + lnXSplit = CAST(this.GetNodeAttributeValue(lcPane, "xSplit") AS I) + lnYSplit = CAST(this.GetNodeAttributeValue(lcPane, "ySplit") AS I) + + *-* Get the tab color settings + lcSheetPr = this.GetNodeElement(lcSheet, 'sheetPr', 1) + IF EMPTY(lcSheetPr) + lnTabColNdx = 0 + lcTabColRgb = "" + ELSE + lcTabColor = this.GetNodeElement(lcSheetPr, 'tabColor', 1) + lnTabColNdx = CAST(this.GetNodeAttributeValue(lcTabColor, "indexed") AS I) + lcTabColRgb = this.GetNodeAttributeValue(lcTabColor, "rgb") + ENDIF + + *-* Get the worksheet margins + lcMargin = this.GetNodeElement(lcSheet, 'pageMargins', 1) + lnLeft = CAST(this.GetNodeAttributeValue(lcMargin, "left") AS N(6,3)) + lnLeft = IIF(lnLeft = 0.000, 0.75, lnLeft) + lnRight = CAST(this.GetNodeAttributeValue(lcMargin, "right") AS N(6,3)) + lnRight = IIF(lnRight = 0.000, 0.75, lnRight) + lnTop = CAST(this.GetNodeAttributeValue(lcMargin, "top") AS N(6,3)) + lnTop = IIF(lnTop = 0.000, 0.75, lnTop) + lnBottom = CAST(this.GetNodeAttributeValue(lcMargin, "bottom") AS N(6,3)) + lnBottom = IIF(lnBottom = 0.000, 0.75, lnBottom) + lnFooter = CAST(this.GetNodeAttributeValue(lcMargin, "footer") AS N(6,3)) + lnFooter = IIF(lnFooter = 0.000, 0.30, lnFooter) + lnHeader = CAST(this.GetNodeAttributeValue(lcMargin, "header") AS N(6,3)) + lnHeader = IIF(lnHeader = 0.000, 0.30, lnHeader) + + *-* Get the page setup + lcPageSetup = this.GetNodeElement(lcSheet, 'pageMargins', 1) + lnOrientation = IIF(this.GetNodeAttributeValue(lcPageSetup, "orientation")='portrait', PORTRAIT_PRINT_ORIENTATION, LANDSCAPE_PRINT_ORIENTATION) + lnPaperSize = CAST(this.GetNodeAttributeValue(lcPageSetup, "paperSize") AS I) + lnPaperSize = IIF(lnPaperSize=0, PAPERSIZE_LTR, lnPaperSize) + lnWidth = CAST(this.GetNodeAttributeValue(lcPageSetup, "paperWidth") AS I) + lnHeight = CAST(this.GetNodeAttributeValue(lcPageSetup, "paperHeight") AS I) + lcDimen = RIGHT(this.GetNodeAttributeValue(lcPageSetup, "paperHeight"), 2) + lnScale = CAST(this.GetNodeAttributeValue(lcPageSetup, "scale") AS I) + lnScale = IIF(lnScale=0, 100, lnScale) + lnFitToWidth = CAST(this.GetNodeAttributeValue(lcPageSetup, "fitToWidth") AS I) + lnFitToHeight = CAST(this.GetNodeAttributeValue(lcPageSetup, "fitToHeight") AS I) + + *-* Save the worksheet to the cursor + INSERT INTO xl_sheets (workbook, sheet, shname, state, mleft, mright, mtop, mbot, mheader, mfooter, shdeleted, xsplit, ysplit, prnorient, ; + papersize, paperwidth, paperheight, paperdimen, scale, fittowidth, fittoheight, tabcolorndx, tabcolorrgb) ; + VALUES (tnWB, tnSheet, tcShName, tnShState, lnLeft, lnRight, lnTop, lnBottom, lnHeader, lnFooter, False, lnXSplit, lnYSplit, lnOrientation, ; + lnPaperSize, lnWidth, lnHeight, lcDimen, lnScale, lnFitToWidth, lnFitToHeight, lnTabColNdx, lcTabColRgb) + + *-* Get the defined column widths + lcCols = this.GetNodeElement(lcSheet, 'cols', 1, True) + lnNode = 1 + lcCol = this.GetNodeElement(lcCols, 'col', lnNode) + DO WHILE !EMPTY(lcCol) + lnMinCol = CAST(this.GetNodeAttributeValue(lcCol, "min") AS I) + lnMaxCol = CAST(this.GetNodeAttributeValue(lcCol, "max") AS I) + lnWidth = CAST(this.GetNodeAttributeValue(lcCol, "width") AS N(16,9)) - 0.71093750 + FOR lnCol=lnMinCol TO lnMaxCol + INSERT INTO xl_colwidths (workbook, sheet, COLUMN, width) VALUES (tnWB, tnSheet, lnCol, lnWidth) + ENDFOR + lnNode = lnNode + 1 + lcCol = this.GetNodeElement(lcCols, 'col', lnNode) + ENDDO + + *-* Get the defined merged cells + lcMergeCells = this.GetNodeElement(lcSheet, 'mergeCells', 1) + lnCnt = CAST(this.GetNodeAttributeValue(lcMergeCells, "count") AS I) + FOR lnNode=1 TO lnCnt + lcMergeCell = this.GetNodeElement(lcMergeCells, 'mergeCell', lnNode) + IF EMPTY(lcMergeCell) + SET STEP ON + LOOP + ENDIF + lcCellRef = this.GetNodeAttributeValue(lcMergeCell, "ref") + lnBegCol = 0 + lnBegRow = 0 + lnEndCol = 0 + lnEndRow = 0 + lcTemp = GETWORDNUM(lcCellRef, 1, ":") + lnNdx = 0 + DO WHILE lnNdx < LEN(lcTemp) + lnNdx = lnNdx + 1 + IF ISDIGIT(SUBSTR(lcTemp, lnNdx, 1)) + lnBegCol = this.ColumnAsciiToIndex(LEFT(lcTemp, lnNdx-1)) + lnBegRow = INT(VAL(SUBSTR(lcTemp, lnNdx))) + EXIT + ENDIF + ENDDO + IF lnBegCol > 0 + lcTemp = GETWORDNUM(lcCellRef, 2, ":") + lnNdx = 0 + DO WHILE lnNdx < LEN(lcTemp) + lnNdx = lnNdx + 1 + IF ISDIGIT(SUBSTR(lcTemp, lnNdx, 1)) + lnEndCol = this.ColumnAsciiToIndex(LEFT(lcTemp, lnNdx-1)) + lnEndRow = INT(VAL(SUBSTR(lcTemp, lnNdx))) + EXIT + ENDIF + ENDDO + IF lnEndCol > 0 + INSERT INTO xl_mergecells (workbook, sheet, begrow, begcol, endrow, endcol) ; + VALUES (tnWB, tnSheet, lnBegRow, lnBegCol, lnEndRow, lnEndCol) + ENDIF + ENDIF + ENDFOR + + *-* Get the sheet cell values and formatting + lcSheetData = this.GetNodeElement(lcSheet, 'sheetData', 1, True) + lnNode = 1 + lcRow = this.GetNodeElement(lcSheetData, 'row', lnNode) + DO WHILE !EMPTY(lcRow) && Process each row in the sheet + lnCellRow = CAST(this.GetNodeAttributeValue(lcRow, "r") AS I) + lnRowHt = CAST(this.GetNodeAttributeValue(lcRow, "ht") AS N(14,7)) + llCustHt = IIF(CAST(this.GetNodeAttributeValue(lcRow, "customHeight") AS I) = 1, True, False) + IF llCustHt .OR. (lnRowHt > 0.00 .AND. lnRowHt != 30) + INSERT INTO xl_rowheights (workbook, sheet, row, height) VALUES (tnWB, tnSheet, lnCellRow, lnRowHt) + ENDIF + + lnCol = 1 + lnCellCol = 1 + lcColumn = this.GetNodeElement(lcRow, 'c', lnCol) + DO WHILE !EMPTY(lcColumn) && Process each column in a row + lnCellCol = this.ColumnAsciiToIndex(this.GetNodeAttributeValue(lcColumn, "r")) + loCell = this.ReadCellValueFormat(tnWB, lcColumn, lnCellCol) + IF tlForceTextFormat .AND. loCell.DataType != DATA_TYPE_CHAR + loCell.DataType = DATA_TYPE_CHAR + loCell.StringNdx = this.AddStringValue(tnWB, TRANSFORM(loCell.CellVal), False) + loCell.CellVal = "StringValue" + loCell.Formula = "" + ENDIF + INSERT INTO xl_cells (workbook, sheet, cellrow, cellcol, cellvalue, datatype, cellformula, stringid, cellxfs, celldeleted) ; + VALUES (tnWB, tnSheet, lnCellRow, lnCellCol, loCell.CellVal, loCell.DataType, loCell.Formula, loCell.StringNdx, loCell.CellXfsId, False) + + lnCol = lnCol + 1 + lcColumn = this.GetNodeElement(lcRow, 'c', lnCol) + ENDDO + INSERT INTO xl_rows (workbook, sheet, row, maxcol) VALUES (tnWB, tnSheet, lnCellRow, lnCellCol) + + lnNode = lnNode + 1 + lcRow = this.GetNodeElement(lcSheet, 'row', lnNode) + ENDDO + + *-* Get the validations + lcValidations = this.GetNodeElement(lcSheet, 'dataValidations', 1) + lnCnt = CAST(this.GetNodeAttributeValue(lcValidations, "count") AS I) + FOR lnNode=1 TO lnCnt + lcValidation = this.GetNodeElement(lcValidations, 'dataValidation', lnNode) + IF EMPTY(lcValidation) + SET STEP ON + LOOP + ENDIF + lcValidSqRef = this.GetNodeAttributeValue(lcValidation, "sqref") + IF EMPTY(lcValidSqRef) + SET STEP ON + LOOP + ENDIF + lcValidType = this.GetNodeAttributeValue(lcValidation, "type") + DO CASE + CASE lcValidType = "none" + lnValidType = NONE_VALID_TYPE + + CASE lcValidType = "whole" + lnValidType = WHOLE_VALID_TYPE + + CASE lcValidType = "decimal" + lnValidType = DECIMAL_VALID_TYPE + + CASE lcValidType = "list" + lnValidType = LIST_VALID_TYPE + + CASE lcValidType = "date" + lnValidType = DATE_VALID_TYPE + + CASE lcValidType = "time" + lnValidType = TIME_VALID_TYPE + + CASE lcValidType = "textLength" + lnValidType = TXTLEN_VALID_TYPE + + CASE lcValidType = "custom" + lnValidType = CUSTOM_VALID_TYPE + + OTHERWISE + lnValidType = NONE_VALID_TYPE + ENDCASE + + lcValidStyle = this.GetNodeAttributeValue(lcValidation, "errorStyle") + DO CASE + CASE lcValidStyle = "stop" + lnValidStyle = STOP_VALID_STYLE + + CASE lcValidStyle = "warning" + lnValidStyle = WARN_VALID_STYLE + + CASE lcValidStyle = "information" + lnValidStyle = INFO_VALID_STYLE + + OTHERWISE + lnValidStyle = 0 + ENDCASE + + lcOperator = this.GetNodeAttributeValue(lcValidation, "operator") + DO CASE + CASE lcOperator = "between" + lnOperator = BETWEEN_VALID_OPER + + CASE lcOperator = "notBetween" + lnOperator = NOTBETW_VALID_OPER + + CASE lcOperator = "equal" + lnOperator = EQUAL_VALID_OPER + + CASE lcOperator = "notEqual" + lnOperator = NOTEQUAL_VALID_OPER + + CASE lcOperator = "lessThan" + lnOperator = LESSTHAN_VALID_OPER + + CASE lcOperator = "lessThanOrEqual" + lnOperator = LESSOREQUAL_VALID_OPER + + CASE lcOperator = "greaterThan" + lnOperator = GREATTHAN_VALID_OPER + + CASE lcOperator = "greaterThanOrEqual" + lnOperator = GREATOREQUAL_VALID_OPER + + OTHERWISE + lnOperator = 0 + ENDCASE + + lcErrMsg = this.GetNodeAttributeValue(lcValidation, "error") + lcErrTitle = this.GetNodeAttributeValue(lcValidation, "errorTitle") + lcPrompt = this.GetNodeAttributeValue(lcValidation, "prompt") + llAllowBlank = IIF(CAST(this.GetNodeAttributeValue(lcValidation, "allowBlank") AS I)=1, True, False) + llShowInputMsg = IIF(CAST(this.GetNodeAttributeValue(lcValidation, "showInputMessage") AS I)=1, True, False) + llShowErrMsg = IIF(CAST(this.GetNodeAttributeValue(lcValidation, "showErrorMessage") AS I)=1, True, False) + + lcFormula1 = this.GetNodeElementValue(this.GetNodeElement(lcValidation, 'formula1', 1, True)) + lcFormula2 = this.GetNodeElementValue(this.GetNodeElement(lcValidation, 'formula2', 1, True)) + + IF LEFT(lcFormula1, 1) = '"' .OR. LEFT(lcFormula2, 1) = '"' + lcFormula1 = ALLTRIM(lcFormula1, 1, '"') + lcFormula2 = ALLTRIM(lcFormula2, 1, '"') + llFormula = False + ELSE + llFormula = True + ENDIF + INSERT INTO xl_validation (workbook, sheet, vtype, vstyle, voperator, errmsg, errtitle, vprompt, allowblank, showinpmsg, showerrmsg, formula, formula1, formula2) ; + VALUES (tnWB, tnSheet, lnValidType, lnValidStyle, lnOperator, lcErrMsg, lcErrTitle, lcPrompt, llAllowBlank, llShowInputMsg, llShowErrMsg, llFormula, lcFormula1, lcFormula2) + lnIndex = xl_validation.validndx + + loCell = this.CellRefAsciiToIndex(lcValidSqRef) + IF this.GetCellRecord(tnWB, tnSheet, loCell.Row, loCell.Column) + REPLACE xl_cells.validndx WITH lnIndex IN xl_cells + ELSE + INSERT INTO xl_cells (workbook, sheet, cellrow, cellcol, datatype, cellxfs, celldeleted, numdec, validndx) ; + VALUES (tnWB, tnSheet, loCell.Row, loCell.Column, DATA_TYPE_NONE, 0, False, -1, lnIndex) + + this.SetRowMaxColumn(tnWB, tnSheet, loCell.Row, loCell.Column) + ENDIF + ENDFOR + RETURN True + ENDPROC + + PROTECTED PROCEDURE readstylesxml && Reads the styles.xml file for opening a workbook + LPARAMETERS tcFilePath, tnWB + LOCAL lcCellXfs, lnCnt, lcXf, lnIndent, lnWrapTx, lcAlign, lcStyleSheet, lnNode, lnNumFmtId, lnFontId, lnFillId, lnBorderId + LOCAL lcHAlign, lcVAlign, lcNumFmts, lcFonts, lcNumFmt, lcFormatCode, lcFont, lnIndexed, lnFSize, lcFName, llFBold, llFItalic, llStrkthr + LOCAL lcFVPos, lcULine, lnFColor, lnTheme, lnTint, lcColor, lcFills, lcFill, lcPatternFill, lcPatternType, lnFgColor, lnFgIndexed, lcBorder + LOCAL lnBgColor, lnBgIndexed, lcBorders, lcBLeft, lcLStyle, lnLColor, lnLTheme, lnLTint, lnLIndex, lcBRight, lcRStyle, lnRColor, lnRTheme + LOCAL lnRTint, lnRIndex, lcBTop, lcTStyle, lnTColor, lnTTheme, lnTTint, lnTIndex, lcBBottm, lcBStyle, lnBColor, lnBTheme, lnBTint, lnBIndex + LOCAL lnDTint, lnDIndex, lcBDiag, lcDStyle, lnDColor, lnDTheme, lcIndexedColors, lcRgbColor, lcMruColors, lnIdCnt + + RAISEEVENT(this, "OnShowStatusMessage", 1, 2) + + *-* Open the styles sheet for processing + lcStyleSheet = FILETOSTR(ADDBS(tcFilePath) + "xl\styles.xml") + + *-* Retreive the cell format mapping information + lnIdCnt = -1 + lcCellXfs = this.GetNodeElement(lcStyleSheet, 'cellXfs', 1) + lnCnt = CAST(this.GetNodeAttributeValue(lcCellXfs, "count") AS I) + FOR lnNode=1 TO lnCnt + lcXf = this.GetNodeElement(lcCellXfs, 'xf', lnNode) + IF EMPTY(lcXf) + SET STEP ON + LOOP + ENDIF + lnIdCnt = lnIdCnt + 1 + lcAlign = this.GetNodeElement(lcXf, 'alignment', 1) + lcHAlign = this.GetNodeAttributeValue(lcAlign, "horizontal") + lcVAlign = this.GetNodeAttributeValue(lcAlign, "vertical") + lnNumFmtId = CAST(this.GetNodeAttributeValue(lcXf, "numFmtId") AS I) + lnFontId = CAST(this.GetNodeAttributeValue(lcXf, "fontId") AS I) + lnFillId = CAST(this.GetNodeAttributeValue(lcXf, "fillId") AS I) + lnBorderId = CAST(this.GetNodeAttributeValue(lcXf, "borderId") AS I) + lnIndent = CAST(this.GetNodeAttributeValue(lcAlign, "indent") AS I) + lnWrapTx = CAST(this.GetNodeAttributeValue(lcAlign, "wrapText") AS I) + lnRotation = CAST(this.GetNodeAttributeValue(lcAlign, "textRotation") AS I) + + INSERT INTO xl_cellxfs (workbook, id, numFmtId, fontId, fillId, borderId, halign, valign, indent, wraptext, rotation) ; + VALUES (tnWB, lnIdCnt, lnNumFmtId, lnFontId, lnFillId, lnBorderId, lcHAlign, lcVAlign, lnIndent, lnWrapTx, lnRotation) + ENDFOR + this.SetLastId(tnWB, lnIdCnt, "xl_cellxfs") + + *-* Retreive the number format information + lnIdCnt = -1 + lcNumFmts = this.GetNodeElement(lcStyleSheet, 'numFmts', 1) + lnCnt = CAST(this.GetNodeAttributeValue(lcNumFmts, "count") AS I) + FOR lnNode=1 TO lnCnt + lcNumFmt = this.GetNodeElement(lcNumFmts, 'numFmt', lnNode) + IF EMPTY(lcNumFmt) + SET STEP ON + LOOP + ENDIF + lnNumFmtId = CAST(this.GetNodeAttributeValue(lcNumFmt, "numFmtId") AS I) + lcFormatCode = this.GetNodeAttributeValue(lcNumFmt, "formatCode") + + INSERT INTO xl_numFmts (workbook, id, formatxml, formatcode, applydec) ; + VALUES (tnWB, lnNumFmtId, lcFormatCode, this.GetStringXML(lcFormatCode), False) + ENDFOR + + *-* Retreive the font informaton + lnIdCnt = -1 + lcFonts = this.GetNodeElement(lcStyleSheet, 'fonts', 1) + lnCnt = CAST(this.GetNodeAttributeValue(lcFonts, "count") AS I) + FOR lnNode=1 TO lnCnt + lcFont = this.GetNodeElement(lcFonts, 'font', lnNode) + IF EMPTY(lcFont) + SET STEP ON + LOOP + ENDIF + lnIdCnt = lnIdCnt + 1 + lnFSize = CAST(this.GetNodeAttributeValue(this.GetNodeElement(lcFont, 'sz', 1), "val") AS I) + lnFSize = IIF(lnFSize>0, lnFSize, 10) + lcFName = this.GetNodeAttributeValue(this.GetNodeElement(lcFont, 'name', 1), "val") + llFBold = IIF(ATC("", lcFont)>0, True, False) + llFItalic = IIF(ATC("", lcFont)>0, True, False) + llStrkthr = IIF(ATC("", lcFont)>0, True, False) + lcFVPos = this.GetNodeAttributeValue(this.GetNodeElement(lcFont, 'vertAlign', 1), "val") + + IF ATC("", lcFont) > 0 + lcULine = UNDERLINE_SINGLE + ELSE + lcULine = this.GetNodeAttributeValue(this.GetNodeElement(lcFont, 'u', 1), "val") + lcULine = IIF(EMPTY(lcULine), UNDERLINE_NONE, lcULine) + ENDIF + + lcColor = this.GetNodeElement(lcFont, 'color', 1) + lnFColor = this.ConvertHexStringToNumeric(this.GetNodeAttributeValue(lcColor, "rgb")) + lnTheme = CAST(this.GetNodeAttributeValue(lcColor, "theme") AS I) + lnTint = CAST(this.GetNodeAttributeValue(lcColor, "tint") AS I) + lnIndexed = CAST(this.GetNodeAttributeValue(lcColor, "indexed") AS I) + + INSERT INTO xl_fonts (workbook, id, fname, fsize, fcolor, fbold, fitalic, uline, strkthr, fvpos, theme, tint, indexed) ; + VALUES (tnWB, lnIdCnt, lcFName, lnFSize, lnFColor, llFBold, llFItalic, lcULine, llStrkthr, lcFVPos, lnTheme, lnTint, lnIndexed) + ENDFOR + this.SetLastId(tnWB, lnIdCnt, "xl_fonts") + + *-* Retreive the cell fill information + lnIdCnt = -1 + lcFills = this.GetNodeElement(lcStyleSheet, 'fills', 1) + lnCnt = CAST(this.GetNodeAttributeValue(lcFills, "count") AS I) + FOR lnNode=1 TO lnCnt + lcFill = this.GetNodeElement(lcFills, 'fill', lnNode) + IF EMPTY(lcFill) + SET STEP ON + LOOP + ENDIF + lnIdCnt = lnIdCnt + 1 + lcPatternFill = this.GetNodeElement(lcFill, 'patternFill', 1) + lcPatternType = this.GetNodeAttributeValue(lcPatternFill, "patternType") + lcPatternType = IIF(EMPTY(lcPatternType), "none", lcPatternType) + lnTheme = CAST(this.GetNodeAttributeValue(lcPatternFill, "theme") AS I) + + lcColor = this.GetNodeElement(lcPatternFill, 'fgColor', 1) + IF EMPTY(lcColor) + lnFgColor = 0 + lnFgIndexed = 0 + ELSE + lnFgColor = this.ConvertHexStringToNumeric(this.GetNodeAttributeValue(lcColor, "rgb")) + lnFgIndexed = CAST(this.GetNodeAttributeValue(lcColor, "indexed") AS I) + ENDIF + lcColor = this.GetNodeElement(lcPatternFill, 'bgColor', 1) + IF EMPTY(lcColor) + lnBgColor = 0 + lnBgIndexed = 0 + ELSE + lnBgColor = this.ConvertHexStringToNumeric(this.GetNodeAttributeValue(lcColor, "rgb")) + lnBgIndexed = CAST(this.GetNodeAttributeValue(lcColor, "indexed") AS I) + ENDIF + INSERT INTO xl_fills (workbook, id, patttype, theme, tint, fgcolor, bgcolor, fgindexed, bgindexed) ; + VALUES (tnWB, lnIdCnt, lcPatternType, lnTheme, lnTint, lnFgColor, lnBgColor, lnFgIndexed, lnBgIndexed) + ENDFOR + this.SetLastId(tnWB, lnIdCnt, "xl_fills") + + *-* Retreive the cell border information + lnIdCnt = -1 + lcBorders = this.GetNodeElement(lcStyleSheet, 'borders', 1) + lnCnt = CAST(this.GetNodeAttributeValue(lcBorders, "count") AS I) + FOR lnNode=1 TO lnCnt + lcBorder = this.GetNodeElement(lcBorders, 'border', lnNode) + IF EMPTY(lcBorder) + SET STEP ON + LOOP + ENDIF + lnIdCnt = lnIdCnt + 1 + lcBLeft = this.GetNodeElement(lcBorder, 'left', 1) + lcLStyle = this.GetNodeAttributeValue(lcBLeft, "style") + lcColor = this.GetNodeElement(lcBLeft, 'color', 1) + IF EMPTY(lcColor) + lnLColor = RGB(0, 0, 0) + lnLTheme = 0 + lnLTint = 0 + lnLIndex = 0 + ELSE + lnLColor = this.ConvertHexStringToNumeric(this.GetNodeAttributeValue(lcColor, "rgb")) + lnLTheme = CAST(this.GetNodeAttributeValue(lcColor, "theme") AS I) + lnLTint = CAST(this.GetNodeAttributeValue(lcColor, "tint") AS I) + lnLIndex = CAST(this.GetNodeAttributeValue(lcColor, "indexed") AS I) + ENDIF + + lcBRight = this.GetNodeElement(lcBorder, 'right', 1) + lcRStyle = this.GetNodeAttributeValue(lcBRight, "style") + lcColor = this.GetNodeElement(lcBRight, 'color', 1) + IF EMPTY(lcColor) + lnRColor = RGB(0, 0, 0) + lnRTheme = 0 + lnRTint = 0 + lnRIndex = 0 + ELSE + lnRColor = this.ConvertHexStringToNumeric(this.GetNodeAttributeValue(lcColor, "rgb")) + lnRTheme = CAST(this.GetNodeAttributeValue(lcColor, "theme") AS I) + lnRTint = CAST(this.GetNodeAttributeValue(lcColor, "tint") AS I) + lnRIndex = CAST(this.GetNodeAttributeValue(lcColor, "indexed") AS I) + ENDIF + + lcBTop = this.GetNodeElement(lcBorder, 'top', 1) + lcTStyle = this.GetNodeAttributeValue(lcBTop, "style") + lcColor = this.GetNodeElement(lcBTop, 'color', 1) + IF EMPTY(lcColor) + lnTColor = RGB(0, 0, 0) + lnTTheme = 0 + lnTTint = 0 + lnTIndex = 0 + ELSE + lnTColor = this.ConvertHexStringToNumeric(this.GetNodeAttributeValue(lcColor, "rgb")) + lnTTheme = CAST(this.GetNodeAttributeValue(lcColor, "theme") AS I) + lnTTint = CAST(this.GetNodeAttributeValue(lcColor, "tint") AS I) + lnTIndex = CAST(this.GetNodeAttributeValue(lcColor, "indexed") AS I) + ENDIF + + lcBBottm = this.GetNodeElement(lcBorder, 'bottom', 1) + lcBStyle = this.GetNodeAttributeValue(lcBBottm, "style") + lcColor = this.GetNodeElement(lcBBottm, 'color', 1) + IF EMPTY(lcColor) + lnBColor = RGB(0, 0, 0) + lnBTheme = 0 + lnBTint = 0 + lnBIndex = 0 + ELSE + lnBColor = this.ConvertHexStringToNumeric(this.GetNodeAttributeValue(lcColor, "rgb")) + lnBTheme = CAST(this.GetNodeAttributeValue(lcColor, "theme") AS I) + lnBTint = CAST(this.GetNodeAttributeValue(lcColor, "tint") AS I) + lnBIndex = CAST(this.GetNodeAttributeValue(lcColor, "indexed") AS I) + ENDIF + + lcBDiag = this.GetNodeElement(lcBorder, 'diagonal', 1) + lcDStyle = this.GetNodeAttributeValue(lcBDiag, "style") + lnDiagDn = CAST(this.GetNodeAttributeValue(lcBDiag, "diagonalDown") AS I) + lnDiagUp = CAST(this.GetNodeAttributeValue(lcBDiag, "diagonalUp") AS I) + lcColor = CAST(this.GetNodeElement(lcBDiag, 'color', 1) AS I) + IF EMPTY(lcColor) + lnDColor = RGB(0, 0, 0) + lnDTheme = 0 + lnDTint = 0 + lnDIndex = 0 + ELSE + lnDColor = this.ConvertHexStringToNumeric(this.GetNodeAttributeValue(lcColor, "rgb")) + lnDTheme = CAST(this.GetNodeAttributeValue(lcColor, "theme") AS I) + lnDTint = CAST(this.GetNodeAttributeValue(lcColor, "tint") AS I) + lnDIndex = CAST(this.GetNodeAttributeValue(lcColor, "indexed") AS I) + ENDIF + + INSERT INTO xl_borders (workbook, id, lstyle, lcolor, ltheme, ltint, lindexed, rstyle, rcolor, rtheme, rtint, rindexed, tstyle, tcolor, ttheme, ttint, tindexed, ; + bstyle, bcolor, btheme, btint, bindexed, dstyle, dcolor, dtheme, dtint, dindexed, diagdn, diagup) ; + VALUES (tnWB, lnIdCnt, lcLStyle, lnLColor, lnLTheme, lnLTint, lnLIndex, lcRStyle, lnRColor, lnRTheme, lnRTint, lnRIndex, lcTStyle, lnTColor, lnTTheme, ; + lnTTint, lnTIndex, lcBStyle, lnBColor, lnBTheme, lnBTint, lnBIndex, lcDStyle, lnDColor, lnDTheme, lnDTint, lnDIndex, lnDiagDn, lnDiagUp) + ENDFOR + this.SetLastId(tnWB, lnIdCnt, "xl_borders") + + *-* Retreive the indexed color information + lcColors = this.GetNodeElement(lcStyleSheet, 'colors', 1) + IF !EMPTY(lcColors) + lcIndexedColors = this.GetNodeElement(lcColors, 'indexedColors', 1) + IF !EMPTY(lcIndexedColors) + lnNode = 1 + lcRgbColor = this.GetNodeElement(lcIndexedColors, 'rgbColor', lnNode) + DO WHILE !EMPTY(lcRgbColor) + lcHexColor = this.GetNodeAttributeValue(lcRgbColor, "rgb") + + INSERT INTO xl_ndxcolors (workbook, indexid, rgbcolor) VALUES (tnWB, lnNode, lcHexColor) + + lnNode = lnNode + 1 + lcRgbColor = this.GetNodeElement(lcIndexedColors, 'rgbColor', lnNode) + ENDDO + this.SetLastId(tnWB, lnNode-1, "xl_ndxcolors") + ENDIF + + lcMruColors = this.GetNodeElement(lcColors, 'mruColors', 1) + IF !EMPTY(lcMruColors) + lnNode = 1 + lcRgbColor = this.GetNodeElement(lcMruColors, 'color', lnNode) + DO WHILE !EMPTY(lcRgbColor) + lcHexColor = this.GetNodeAttributeValue(lcRgbColor, "rgb") + + INSERT INTO xl_mrucolors (workbook, indexid, rgbcolor) VALUES (tnWB, lnNode, lcHexColor) + + lnNode = lnNode + 1 + lcRgbColor = this.GetNodeElement(lcMruColors, 'color', lnNode) + ENDDO + this.SetLastId(tnWB, lnNode-1, "xl_mrucolors") + ENDIF + ENDIF + ENDPROC + + PROTECTED PROCEDURE removeworkingdirectories && Removes the working directories + LPARAMETERS tcDir + LOCAL llReturn, loException + TRY + llReturn = IIF(apiRemoveDirectory(tcDir) != 0, True, False) + + CATCH TO loException + SET STEP ON + llReturn = False + ENDTRY + RETURN llReturn + ENDPROC + + PROCEDURE renamesheet && Renames the selected sheet + LPARAMETERS tnWB, txSheet, tcSheetName + LOCAL llReturn + llReturn = False + DO CASE + CASE VARTYPE(txSheet) = "C" + IF SEEK(BINTOC(tnWB)+UPPER(txSheet), "xl_sheets", "shname") + REPLACE xl_sheets.shname WITH tcSheetName IN xl_sheets + llReturn = True + ENDIF + + CASE VARTYPE(txSheet) = "N" + IF SEEK(BINTOC(tnWB)+BINTOC(txSheet), "xl_sheets", "sheetndx") + REPLACE xl_sheets.shname WITH tcSheetName IN xl_sheets + llReturn = True + ENDIF + ENDCASE + RETURN llReturn + ENDPROC + + PROCEDURE resetcolumnwidth && Resets the column width to default + LPARAMETERS tnWB, tnSheet, tnColumn + IF SEEK(this.GetColWidthKeyExpr(tnWB, tnSheet, tnColumn), "xl_colwidths", "shcolumn") + DELETE IN xl_colwidths + ENDIF + ENDPROC + + PROTECTED PROCEDURE saveasutf8 && Saves the file as a UTF-8 + LPARAMETERS tcFileName + STRTOFILE(STRCONV(FILETOSTR(tcFileName), 9), tcFileName, 4) + ENDPROC + + PROCEDURE savegridtoworkbook && Saves the selected grid to a workbook + LPARAMETERS toGrid, txWB, tlFreeze, tlSaveWB, tcSheetName, tlInclHiddenCols + LOCAL lcAlias, lnCol, lnWB, lnSh, lnRow, lcField, loReturn, loColumn, lnStyle, lnColCount, lnDefStyle + LOCAL ARRAY laRowCount[1], laColOrder[1] + loReturn = CREATEOBJECT("Empty") + ADDPROPERTY(loReturn, "Workbook", 0) + ADDPROPERTY(loReturn, "Sheet", 0) + DO CASE + CASE PCOUNT() = 0 + RETURN loReturn + + CASE PCOUNT() = 1 + RETURN loReturn + + CASE PCOUNT() = 2 + tlFreeze = True + tlSaveWB = True + tcSheetName = this.DeriveSheetName(txWB) + tlInclHiddenCols = True + + CASE PCOUNT() = 3 + tlSaveWB = True + tcSheetName = this.DeriveSheetName(txWB) + tlInclHiddenCols = True + + CASE PCOUNT() = 4 + tcSheetName = this.DeriveSheetName(txWB) + tlInclHiddenCols = True + + CASE PCOUNT() = 5 + tlInclHiddenCols = True + ENDCASE + IF VARTYPE(tcSheetName) != 'C' .OR. EMPTY(tcSheetName) + tcSheetName = this.DeriveSheetName(txWB) + ENDIF + tcSheetName = CHRTRAN(tcSheetName, ":\/?*", "_____") + IF LEN(tcSheetName) > LIMITS_MAX_SH_NAME + IF this.AutoTrimSheetName + tcSheetName = LEFT(ALLTRIM(tcSheetName), LIMITS_MAX_SH_NAME) + ELSE + RETURN loReturn + ENDIF + ENDIF + IF VARTYPE(toGrid) != "O" .AND. PEMSTATUS(toGrid, "BaseClass", 5) .AND. LOWER(toGrid.BaseClass) != "grid" + RETURN loReturn + ENDIF + DO CASE + CASE VARTYPE(txWB) = "C" + lnWB = this.CreateWorkbook(txWB) + IF lnWB = 0 + lnWB = this.GetWorkbook(txWB) + ENDIF + + CASE VARTYPE(txWB) = "N" + IF SEEK(BINTOC(txWB), "xl_workbooks", "workbook") + lnWB = txWB + ELSE + RETURN loReturn + ENDIF + + OTHERWISE + RETURN loReturn + ENDCASE + IF lnWB > 0 + lnSh = this.AddSheet(lnWB, tcSheetName) + IF lnSh > 0 + lcAlias = JUSTSTEM(toGrid.RecordSource) + + *-* Get the record count and display a status window + SELECT COUNT(*) FROM &lcAlias INTO ARRAY laRowCount + RAISEEVENT(this, "OnShowStatusMessage", 3, 0, laRowCount[1]) + + *-* Get the number of columns to process and + *-* Get the column output order based on grid display order && Change requested by Matt Slay to output by grid display order and visible setting + IF tlInclHiddenCols + lnColCount = toGrid.ColumnCount + DIMENSION laColOrder[lnColCount, 2] + FOR lnCol=1 TO toGrid.ColumnCount + laColOrder[lnCol, 1] = toGrid.Columns(lnCol).ColumnOrder && Grid display order + laColOrder[lnCol, 2] = lnCol && Column property order + ENDFOR + ELSE + lnColCount = 0 + FOR lnCol=1 TO toGrid.ColumnCount + IF toGrid.Columns(lnCol).Visible + lnColCount = lnColCount + 1 + DIMENSION laColOrder[lnColCount, 2] + laColOrder[lnColCount, 1] = toGrid.Columns(lnCol).ColumnOrder && Grid display order + laColOrder[lnColCount, 2] = lnCol && Column property order + ENDIF + ENDFOR + ENDIF + IF lnColCount = 0 + RETURN False + ENDIF + ASORT(laColOrder) + + *-* Add the header row if defined and set the column widths; get the column font info + IF toGrid.HeaderHeight > 0 && Change recommendation by Doug Hennig (if no headers, start in first row) + lnRow = 1 + FOR lnCol=1 TO lnColCount + loColumn = toGrid.Columns(laColOrder[lnCol, 2]) + this.SetCellValue(lnWB, lnSh, 1, lnCol, loColumn.Header1.Caption) + this.SetColumnWidth(lnWB, lnSh, lnCol, this.ConvertPixelsToExcelUnits(loColumn.Width)) + ENDFOR + ELSE + lnRow = 0 + FOR lnCol=1 TO lnColCount + loColumn = toGrid.Columns(laColOrder[lnCol, 2]) + this.SetColumnWidth(lnWB, lnSh, lnCol, this.ConvertPixelsToExcelUnits(loColumn.Width)) + ENDFOR + ENDIF + + *-* Add the cell data values + SELECT &lcAlias + SCAN + lnRow = lnRow + 1 + RAISEEVENT(this, "OnShowStatusMessage", 3, lnRow) + FOR lnCol=1 TO lnColCount + loColumn = toGrid.Columns(laColOrder[lnCol, 2]) + lcField = loColumn.ControlSource + this.SetCellValue(lnWB, lnSh, lnRow, lnCol, &lcField) + ENDFOR + ENDSCAN + + *-* Set the cell style formatting + lnDefStyle = this.IsFormatStyleDefined(lnWB, this.DefaultFont, this.DefaultFontSize) + IF ISNULL(lnDefStyle) + lnDefStyle = this.CreateFormatStyle(lnWB) + this.AddStyleFont(lnWB, lnDefStyle, this.DefaultFont, this.DefaultFontSize) + ENDIF + + FOR lnCol=1 TO lnColCount + loColumn = toGrid.Columns(laColOrder[lnCol, 2]) + lcField = loColumn.ControlSource + IF VARTYPE(&lcField) != DATA_TYPE_DATE + IF this.DefaultFont != loColumn.FontName .OR. this.DefaultFontSize != loColumn.FontSize && Change recommended by Doug Hennig; 2017-06-12 + lnStyle = this.IsFormatStyleDefined(lnWB, loColumn.FontName, loColumn.FontSize) + IF ISNULL(lnStyle) + lnStyle = this.CreateFormatStyle(lnWB) + this.AddStyleFont(lnWB, lnStyle, loColumn.FontName, loColumn.FontSize) + ENDIF + ELSE + lnStyle = lnDefStyle + ENDIF + this.SetCellStyleRange(lnWB, lnSh, 1, lnCol, laRowCount[1]+1, lnCol, lnStyle) + ENDIF + ENDFOR + + *-* Freeze the first row if specified + IF tlFreeze + this.FreezePanes(lnWB, lnSh, 1, 0) + ENDIF + RAISEEVENT(this, "OnShowStatusMessage", 3, -1) + IF tlSaveWB + this.SaveWorkbook(lnWB) + ENDIF + loReturn.Sheet = lnSh + loReturn.Workbook = lnWB + ENDIF + ENDIF + RETURN loReturn + ENDPROC + + PROCEDURE savegridtoworkbookex && Saves the passed grid to a workbook without adding the content to the internal cursors + LPARAMETERS toGrid, tcFileName, tlFreeze, tcSheetName, tlInclHiddenCols + LOCAL llError, lcTempPath, lcAlias, lcFileName, lhFile, lcRowDefHt, lnCol, lnRow, lcSETCentury, lxCellValue + LOCAL lnColCount, lnColWidth, lcCurAlias + LOCAL ARRAY laColOrder[1], laSheetNames[1] + llError = False + lcCurAlias = ALIAS() + IF VARTYPE(toGrid) != "O" .AND. PEMSTATUS(toGrid, "BaseClass", 5) .AND. LOWER(toGrid.BaseClass) != "grid" + RETURN False + ENDIF + DO CASE + CASE PCOUNT() < 2 + RETURN False + + CASE PCOUNT() = 2 + tlFreeze = True + tcSheetName = toGrid.Name + tlInclHiddenCols = True + + CASE PCOUNT() = 3 + tcSheetName = toGrid.Name + tlInclHiddenCols = True + + CASE PCOUNT() = 4 + tlInclHiddenCols = True + ENDCASE + IF VARTYPE(tcSheetName) != 'C' .OR. EMPTY(tcSheetName) + tcSheetName = toGrid.Name + ENDIF + tcSheetName = CHRTRAN(tcSheetName, ":\/?*", "_____") + IF LEN(tcSheetName) > LIMITS_MAX_SH_NAME + IF this.AutoTrimSheetName + tcSheetName = LEFT(ALLTRIM(tcSheetName), LIMITS_MAX_SH_NAME) + ELSE + RETURN False + ENDIF + ENDIF + + *-* Set temporary output path + lcTempPath = this.CreateWorkingDirectories() + IF ISNULL(lcTempPath) + RETURN False + ENDIF + + *-* Save current settings and then set to US formats + lcSetPoint = SET("POINT") + lcSeparator = SET("SEPARATOR") + IF lcSetPoint != "." + SET POINT TO "." + SET SEPARATOR TO "," + ENDIF + + *-* Output the workbook + lcAlias = JUSTSTEM(toGrid.RecordSource) + + *-* Get the number of columns to process + *-* Get the column output order based on grid display order && Change requested by Matt Slay to output by grid display order and visible setting + IF tlInclHiddenCols + lnColCount = toGrid.ColumnCount + DIMENSION laColOrder[lnColCount, 2] + FOR lnCol=1 TO toGrid.ColumnCount + laColOrder[lnCol, 1] = toGrid.Columns(lnCol).ColumnOrder && Grid display order + laColOrder[lnCol, 2] = lnCol && Column property order + ENDFOR + ELSE + lnColCount = 0 + FOR lnCol=1 TO toGrid.ColumnCount + IF toGrid.Columns(lnCol).Visible + lnColCount = lnColCount + 1 + DIMENSION laColOrder[lnColCount, 2] + laColOrder[lnColCount, 1] = toGrid.Columns(lnCol).ColumnOrder && Grid display order + laColOrder[lnColCount, 2] = lnCol && Column property order + ENDIF + ENDFOR + ENDIF + IF lnColCount = 0 + RETURN False + ENDIF + ASORT(laColOrder) + + DIMENSION laSheetNames[1] + laSheetNames[1] = tcSheetName + IF this.WriteDirectXMLs(lcTempPath, @laSheetNames) + *-* Write the sheet XML + TRY + lcFileName = lcTempPath + "xl\worksheets\sheet1.xml" + lhFile = FCREATE(lcFileName) + IF lhFile < 0 + THROW + ENDIF + + *-* Write sheet XML header information + FWRITE(lhFile, '') + FWRITE(lhFile, '') + + *-* Write the sheet view information which includes the freeze pane information + FWRITE(lhFile, '') + IF tlFreeze + FWRITE(lhFile, '') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + ENDIF + FWRITE(lhFile, '') + + *-* Write sheet Column widths + FWRITE(lhFile, '') + FOR lnCol=1 TO lnColCount + lnColWidth = this.ConvertPixelsToExcelUnits(toGrid.Columns(laColOrder[lnCol, 2]).Width) + FWRITE(lhFile, '') + ENDFOR + FWRITE(lhFile, '') + + *-* Write sheet cell data values + lcRowDefHt = ' ht="30"' + FWRITE(lhFile, '') + + *-* Place field names in the first row + IF toGrid.HeaderHeight > 0 && Change recommendation by Doug Hennig (if no headers, then no output) + FWRITE(lhFile, '') + IF this.DefaultFont = "Calibri" .AND. this.DefaultFontSize = 11 + FOR lnCol=1 TO lnColCount + this.WriteAsInLineString(lhFile, 1, lnCol, toGrid.Columns(laColOrder[lnCol, 2]).Header1.Caption) + ENDFOR + ELSE + FOR lnCol=1 TO lnColCount + this.WriteAsInLineFormattedString(lhFile, 1, lnCol, toGrid.Columns(laColOrder[lnCol, 2]).Header1.Caption) + ENDFOR + ENDIF + FWRITE(lhFile, '') + lnRow = 1 + ELSE + lnRow = 0 + ENDIF + + *-* Write the grid field values to cells + lcSETCentury = SET("CENTURY") + SET CENTURY ON + SELECT &lcAlias + IF this.DefaultFont = "Calibri" .AND. this.DefaultFontSize = 11 + SCAN + lnRow = lnRow + 1 + FWRITE(lhFile, '') + FOR lnCol=1 TO lnColCount + lxCellValue = EVALUATE(toGrid.Columns(laColOrder[lnCol, 2]).ControlSource) + this.WriteDirectCellValue(lhFile, lnRow, lnCol, lxCellValue) + ENDFOR + FWRITE(lhFile, '') + ENDSCAN + ELSE + SCAN + lnRow = lnRow + 1 + FWRITE(lhFile, '') + FOR lnCol=1 TO lnColCount + lxCellValue = EVALUATE(toGrid.Columns(laColOrder[lnCol, 2]).ControlSource) + this.WriteDirectCellFormattedValue(lhFile, lnRow, lnCol, lxCellValue) + ENDFOR + FWRITE(lhFile, '') + ENDSCAN + ENDIF + SET CENTURY &lcSETCentury + + *-* End the sheet cell data values and worksheet + FWRITE(lhFile, '') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + + CATCH TO loException + SET STEP ON + llError = True + this.ErrorLevelId = 14 + RAISEEVENT(this, "OnShowErrorMessage", 14, loException.message) + + FINALLY + FCLOSE(lhFile) + this.SaveAsUTF8(lcFileName) + ENDTRY + IF llError + llSuccess = False + ELSE + llSuccess = this.CreateExcelFile(lcTempPath, JUSTPATH(tcFileName), JUSTSTEM(tcFileName)) && Change recommendation by Doug Hennig [placement of code after ELSE] + ENDIF + this.RemoveWorkingDirectories(lcTempPath) + + ELSE + llSuccess = False + ENDIF + IF !EMPTY(lcCurAlias) + SELECT (lcCurAlias) + ENDIF + + *-* Restore default settings + IF lcSetPoint != "." + SET POINT TO (lcSetPoint) + SET SEPARATOR TO (lcSeparator) + ENDIF + RETURN llSuccess + ENDPROC + + PROCEDURE savemultigridtoworkbookex && Same as SaveGridToWorkbookEx() method but handles multiple grids being passed + LPARAMETERS toGrids, tcFileName + LOCAL llError, lcTempPath, lcAlias, lcFileName, lhFile, lcRowDefHt, lnCol, lnRow, lcSETCentury, lxCellValue + LOCAL lnColCount, lnColWidth, lcCurAlias, lnGrid, loGrid, loException, lcSheetName + LOCAL ARRAY laColOrder[1], laSheetNames[1] + llError = False + lcCurAlias = ALIAS() + IF PCOUNT() < 2 + RETURN False + ENDIF + IF VARTYPE(toGrids) = "O" + IF PEMSTATUS(toGrids, "Count", 5) .AND. VARTYPE(toGrids.Count) != "N" + RETURN False + ELSE + IF toGrids.Count < 1 + RETURN False + ENDIF + ENDIF + + IF PEMSTATUS(toGrids, "List", 5) + llError = False + TRY + IF ALEN(toGrids.List, 2) != 4 && Column 1 Grid; Column 2 SheetName; Column 3 Freeze indicator, Column 4 HiddenCols indicator + THROW + ENDIF + CATCH TO loException + llError = True + ENDTRY + IF llError + RETURN False + ENDIF + FOR lnGrid=1 TO toGrids.Count + *-* Validate grid object + loGrid = toGrids.List[lnGrid, 1] + IF VARTYPE(loGrid) != "O" .AND. PEMSTATUS(loGrid, "BaseClass", 5) .AND. LOWER(loGrid.BaseClass) != "grid" + RETURN False + ENDIF + *-* Validate sheet name + lcSheetName = toGrids.List[lnGrid, 2] + IF VARTYPE(lcSheetName) != 'C' .OR. EMPTY(lcSheetName) + lcSheetName = loGrid.Name + ENDIF + lcSheetName = CHRTRAN(lcSheetName, ":\/?*", "_____") + IF LEN(lcSheetName) > LIMITS_MAX_SH_NAME + IF this.AutoTrimSheetName + lcSheetName = LEFT(ALLTRIM(lcSheetName), LIMITS_MAX_SH_NAME) + ELSE + RETURN False + ENDIF + ENDIF + toGrids.List[lnGrid, 2] = lcSheetName + *-* Validate freeze indicator + IF VARTYPE(toGrids.List[lnGrid, 3]) != 'L' + toGrids.List[lnGrid, 3] = False + ENDIF + *-* Validate hidden column indicator + IF VARTYPE(toGrids.List[lnGrid, 4]) != 'L' + toGrids.List[lnGrid, 4] = False + ENDIF + ENDFOR + ENDIF + ELSE + RETURN False + ENDIF + + *-* Set temporary output path + lcTempPath = this.CreateWorkingDirectories() + IF ISNULL(lcTempPath) + RETURN False + ENDIF + + *-* Save current settings and then set to US formats + lcSetPoint = SET("POINT") + lcSeparator = SET("SEPARATOR") + IF lcSetPoint != "." + SET POINT TO "." + SET SEPARATOR TO "," + ENDIF + + *-* Output the workbook + DIMENSION laSheetNames[toGrids.Count] + FOR lnGrid=1 TO toGrids.Count + laSheetNames[lnGrid] = toGrids.List[lnGrid, 2] + ENDFOR + IF !this.WriteDirectXMLs(lcTempPath, @laSheetNames) + RETURN False + ENDIF + + *-* Write the sheet xml for each grid + FOR lnGrid=1 TO toGrids.Count + loGrid = toGrids.List[lnGrid, 1] + lcAlias = JUSTSTEM(loGrid.RecordSource) + + *-* Get the number of columns to process + *-* Get the column output order based on grid display order && Change requested by Matt Slay to output by grid display order and visible setting + IF toGrids.List[lnGrid, 4] + lnColCount = loGrid.ColumnCount + DIMENSION laColOrder[lnColCount, 2] + FOR lnCol=1 TO loGrid.ColumnCount + laColOrder[lnCol, 1] = loGrid.Columns(lnCol).ColumnOrder && Grid display order + laColOrder[lnCol, 2] = lnCol && Column property order + ENDFOR + ELSE + lnColCount = 0 + FOR lnCol=1 TO loGrid.ColumnCount + IF loGrid.Columns(lnCol).Visible + lnColCount = lnColCount + 1 + DIMENSION laColOrder[lnColCount, 2] + laColOrder[lnColCount, 1] = loGrid.Columns(lnCol).ColumnOrder && Grid display order + laColOrder[lnColCount, 2] = lnCol && Column property order + ENDIF + ENDFOR + ENDIF + IF lnColCount = 0 + RETURN False + ENDIF + ASORT(laColOrder) + + TRY + lcFileName = lcTempPath + "xl\worksheets\sheet" + TRANSFORM(lnGrid) + ".xml" + lhFile = FCREATE(lcFileName) + IF lhFile < 0 + THROW + ENDIF + + *-* Write sheet XML header information + FWRITE(lhFile, '') + FWRITE(lhFile, '') + + *-* Write the sheet view information which includes the freeze pane information + FWRITE(lhFile, '') + IF toGrids.List[lnGrid, 3] + FWRITE(lhFile, '') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + ENDIF + FWRITE(lhFile, '') + + *-* Write sheet Column widths + FWRITE(lhFile, '') + FOR lnCol=1 TO lnColCount + lnColWidth = this.ConvertPixelsToExcelUnits(loGrid.Columns(laColOrder[lnCol, 2]).Width) + FWRITE(lhFile, '') + ENDFOR + FWRITE(lhFile, '') + + *-* Write sheet cell data values + lcRowDefHt = ' ht="30"' + FWRITE(lhFile, '') + + *-* Place field names in the first row + IF loGrid.HeaderHeight > 0 && Change recommendation by Doug Hennig (if no headers, then no output) + FWRITE(lhFile, '') + IF this.DefaultFont = "Calibri" .AND. this.DefaultFontSize = 11 + FOR lnCol=1 TO lnColCount + this.WriteAsInLineString(lhFile, 1, lnCol, loGrid.Columns(laColOrder[lnCol, 2]).Header1.Caption) + ENDFOR + ELSE + FOR lnCol=1 TO lnColCount + this.WriteAsInLineFormattedString(lhFile, 1, lnCol, loGrid.Columns(laColOrder[lnCol, 2]).Header1.Caption) + ENDFOR + ENDIF + FWRITE(lhFile, '') + lnRow = 1 + ELSE + lnRow = 0 + ENDIF + + *-* Write the grid field values to cells + lcSETCentury = SET("CENTURY") + SET CENTURY ON + SELECT &lcAlias + IF this.DefaultFont = "Calibri" .AND. this.DefaultFontSize = 11 + SCAN + lnRow = lnRow + 1 + FWRITE(lhFile, '') + FOR lnCol=1 TO lnColCount + lxCellValue = EVALUATE(loGrid.Columns(laColOrder[lnCol, 2]).ControlSource) + this.WriteDirectCellValue(lhFile, lnRow, lnCol, lxCellValue) + ENDFOR + FWRITE(lhFile, '') + ENDSCAN + ELSE + SCAN + lnRow = lnRow + 1 + FWRITE(lhFile, '') + FOR lnCol=1 TO lnColCount + lxCellValue = EVALUATE(loGrid.Columns(laColOrder[lnCol, 2]).ControlSource) + this.WriteDirectCellFormattedValue(lhFile, lnRow, lnCol, lxCellValue) + ENDFOR + FWRITE(lhFile, '') + ENDSCAN + ENDIF + SET CENTURY &lcSETCentury + + *-* End the sheet cell data values and worksheet + FWRITE(lhFile, '') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + + CATCH TO loException + SET STEP ON + llError = True + this.ErrorLevelId = 14 + RAISEEVENT(this, "OnShowErrorMessage", 14, loException.message) + + FINALLY + FCLOSE(lhFile) + this.SaveAsUTF8(lcFileName) + ENDTRY + ENDFOR + IF llError + llSuccess = False + ELSE + llSuccess = this.CreateExcelFile(lcTempPath, JUSTPATH(tcFileName), JUSTSTEM(tcFileName)) && Change recommendation by Doug Hennig [placement of code after ELSE] + ENDIF + *-* Cleanup + this.RemoveWorkingDirectories(lcTempPath) + IF !EMPTY(lcCurAlias) + SELECT (lcCurAlias) + ENDIF + + *-* Restore default settings + IF lcSetPoint != "." + SET POINT TO (lcSetPoint) + SET SEPARATOR TO (lcSeparator) + ENDIF + RETURN llSuccess + ENDPROC + + PROCEDURE savetabletoworkbook && Saves the table passed (alias) as a workbook sheet + LPARAMETERS tcAlias, tnWB, tlFreeze, tlSaveWB, tcSheetName + LOCAL lcAlias, lnCol, lnWB, lnSh, lnRow, lcField, lnFldCnt, llError, llOpenedTbl, loException, lcCurAlias, loReturn + LOCAL lnNdx, lcCaption + LOCAL ARRAY laFields[1], laRowCount[1] + loReturn = CREATEOBJECT("Empty") + ADDPROPERTY(loReturn, "Workbook", 0) + ADDPROPERTY(loReturn, "Sheet", 0) + DO CASE + CASE PCOUNT() < 2 + RETURN loReturn + + CASE PCOUNT() = 2 + tlFreeze = True + tlSaveWB = False + tcSheetName = JUSTSTEM(tcAlias) + + CASE PCOUNT() = 3 + tlSaveWB = False + tcSheetName = JUSTSTEM(tcAlias) + + CASE PCOUNT() = 4 + tcSheetName = JUSTSTEM(tcAlias) + ENDCASE + IF VARTYPE(tcSheetName) != 'C' .OR. EMPTY(tcSheetName) + tcSheetName = this.DeriveSheetName(tnWB) + ENDIF + tcSheetName = CHRTRAN(tcSheetName, ":\/?*", "_____") + IF LEN(tcSheetName) > LIMITS_MAX_SH_NAME + IF this.AutoTrimSheetName + tcSheetName = LEFT(ALLTRIM(tcSheetName), LIMITS_MAX_SH_NAME) + ELSE + RETURN loReturn + ENDIF + ENDIF + DO CASE + CASE USED(tcAlias) + lcCurAlias = ALIAS() + llOpenedTbl = False + lcAlias = tcAlias + + CASE OCCURS("\", tcAlias) > 0 + TRY + lcAlias = JUSTSTEM(tcAlias) + USE (tcAlias) IN 0 ALIAS (lcAlias) SHARED + llOpenedTbl = True + + CATCH TO loException + llError = True + ENDTRY + IF llError + RETURN loReturn + ENDIF + + OTHERWISE + RETURN loReturn + ENDCASE + DO CASE + CASE VARTYPE(tnWB) = "C" + lnWB = this.CreateWorkbook(tnWB) + IF lnWB = 0 + lnWB = this.GetWorkbook(tnWB) + ENDIF + + CASE VARTYPE(tnWB) = "N" + IF SEEK(BINTOC(tnWB), "xl_workbooks", "workbook") + lnWB = tnWB + ELSE + RETURN loReturn + ENDIF + + OTHERWISE + RETURN loReturn + ENDCASE + IF lnWB > 0 + lnSh = this.AddSheet(lnWB, tcSheetName) + IF lnSh > 0 + *-* Get the record count and display a status window + SELECT COUNT(*) FROM &lcAlias INTO ARRAY laRowCount + RAISEEVENT(this, "OnShowStatusMessage", 3, 0, laRowCount[1]) + + SELECT &lcAlias + lnFldCnt = AFIELDS(laFields, lcAlias) + FOR lnNdx=1 TO lnFldCnt + TRY + lcCaption = DBGETPROP(lcAlias + "." + laFields[lnNdx, 1], "FIELD", "CAPTION") + laFields[lnNdx, 3] = IIF(EMPTY(lcCaption), laFields[lnNdx, 1], lcCaption) + + CATCH TO loException + laFields[lnNdx, 3] = laFields[lnNdx, 1] + ENDTRY + ENDFOR + + *-* Place field names in the first row + FOR lnCol=1 TO lnFldCnt + this.SetCellValue(lnWb, lnSh, 1, lnCol, laFields[lnCol, 3]) + ENDFOR + *-* Populate next rows with data + lnRow = 0 + SCAN + lnRow = lnRow + 1 + RAISEEVENT(this, "OnShowStatusMessage", 3, lnRow) + FOR lnCol=1 TO lnFldCnt + IF laFields[lnCol, 2] = "G" + this.SetCellValue(lnWb, lnSh, 1 + lnRow, lnCol, "General") + ELSE + this.SetCellValue(lnWb, lnSh, 1 + lnRow, lnCol, EVALUATE(lcAlias + '.' + laFields[lnCol, 1])) + ENDIF + ENDFOR + ENDSCAN + + IF tlFreeze + this.FreezePanes(lnWB, lnSh, 1, 0) + ENDIF + RAISEEVENT(this, "OnShowStatusMessage", 3, -1) + IF tlSaveWB + this.SaveWorkbook(lnWB) + ENDIF + ELSE + lnWB = 0 + lnSh = 0 + ENDIF + ELSE + lnSh = 0 + lnWB = 0 + ENDIF + IF llOpenedTbl + USE IN &lcAlias + ELSE + lnSh = 0 + lnWB = 0 + IF !EMPTY(lcCurAlias) + SELECT &lcCurAlias + ENDIF + ENDIF + loReturn.Sheet = lnSh + loReturn.Workbook = lnWB + RETURN loReturn + ENDPROC + + PROCEDURE savetabletoworkbookex && Creates a new workbook from a table; direct write to XLSX file without loading internal cursors + LPARAMETERS tcAlias, tcXlsxName, taFields, tlFreeze, tcSheetName + LOCAL lcCurAlias, llOpenedTbl, lcAlias, llError, loException, lhFile, lnCol, lcRowDefHt + LOCAL lnFldCnt, lnRow, lxCellValue, lcTempPath, lcFileName, lcSETCentry, lcCaption, llSuccess, lcSetPoint + LOCAL lcSeparator + LOCAL ARRAY laSheetNames[1] + EXTERNAL ARRAY taFields + llError = False + DO CASE + CASE PCOUNT() < 2 + RETURN False + + CASE PCOUNT() = 2 + DIMENSION taFields[1, 2] + taFields[1, 1] = .NULL. + tlFreeze = True + tcSheetName = JUSTSTEM(tcAlias) + + CASE PCOUNT() = 3 + tlFreeze = True + tcSheetName = JUSTSTEM(tcAlias) + + CASE PCOUNT() = 4 + tcSheetName = JUSTSTEM(tcAlias) + ENDCASE + IF VARTYPE(tcSheetName) != 'C' .OR. EMPTY(tcSheetName) + tcSheetName = JUSTSTEM(tcAlias) + ENDIF + tcSheetName = CHRTRAN(tcSheetName, ":\/?*", "_____") + IF LEN(tcSheetName) > LIMITS_MAX_SH_NAME + IF this.AutoTrimSheetName + tcSheetName = LEFT(ALLTRIM(tcSheetName), LIMITS_MAX_SH_NAME) + ELSE + RETURN False + ENDIF + ENDIF + lcCurAlias = ALIAS() + lcAlias = JUSTSTEM(tcAlias) + DO CASE + CASE USED(lcAlias) + llOpenedTbl = False + + CASE OCCURS("\", tcAlias) > 0 + TRY + USE (tcAlias) IN 0 ALIAS (lcAlias) SHARED + llOpenedTbl = True + + CATCH TO loException + llError = True + ENDTRY + IF llError + RETURN False + ENDIF + + OTHERWISE + RETURN False + ENDCASE + *-* Get the table fields to export if not passed as a parameter + SELECT &lcAlias + IF ISNULL(taFields) .OR. EMPTY(taFields[1]) + DIMENSION taFields[1, 5] + taFields = "" + lnFldCnt = AFIELDS(taFields, lcAlias) + FOR lnCol=1 TO lnFldCnt + TRY + lcCaption = DBGETPROP(lcAlias + "." + taFields[lnCol, 1], "FIELD", "CAPTION") + taFields[lnCol, 2] = IIF(EMPTY(lcCaption), taFields[lnCol, 1], lcCaption) + + CATCH TO loException + taFields[lnCol, 2] = taFields[lnCol, 1] + ENDTRY + ENDFOR + ELSE + lnFldCnt = ALEN(taFields, 1) + IF ALEN(taFields, 2) < 2 .OR. VARTYPE(taFields[1, 2]) != "C" + RETURN False + ENDIF + ENDIF + + *-* Set temporary output path + lcTempPath = this.CreateWorkingDirectories() + IF ISNULL(lcTempPath) + RETURN False + ENDIF + + *-* Save current settings and then set to US formats + lcSetPoint = SET("POINT") + lcSeparator = SET("SEPARATOR") + IF lcSetPoint != "." + SET POINT TO "." + SET SEPARATOR TO "," + ENDIF + + DIMENSION laSheetNames[1] + laSheetNames[1] = tcSheetName + IF this.WriteDirectXMLs(lcTempPath, @laSheetNames) + *-* Write the sheet XML + TRY + lcFileName = lcTempPath + "xl\worksheets\sheet1.xml" + lhFile = FCREATE(lcFileName) + IF lhFile < 0 + THROW + ENDIF + + *-* Write sheet XML header information + FWRITE(lhFile, '') + FWRITE(lhFile, '') + + *-* Write the sheet view information which includes the freeze pane information + FWRITE(lhFile, '') + IF tlFreeze + FWRITE(lhFile, '') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + ENDIF + FWRITE(lhFile, '') + FWRITE(lhFile, '') + + *-* Write sheet cell data values + FWRITE(lhFile, '') + + *-* Place field names in the first row + lcRowDefHt = ' ht="30"' + FWRITE(lhFile, '') + IF this.DefaultFont = "Calibri" .AND. this.DefaultFontSize = 11 + FOR lnCol=1 TO lnFldCnt + this.WriteAsInLineString(lhFile, 1, lnCol, taFields[lnCol, 2]) + ENDFOR + ELSE + FOR lnCol=1 TO lnFldCnt + this.WriteAsInLineFormattedString(lhFile, 1, lnCol, taFields[lnCol, 2]) + ENDFOR + ENDIF + FWRITE(lhFile, '') + + *-* Write the table field values to cells + lcSETCentry = SET("CENTURY") + SET CENTURY ON + lnRow = 1 + IF this.DefaultFont = "Calibri" .AND. this.DefaultFontSize = 11 + SCAN + lnRow = lnRow + 1 + FWRITE(lhFile, '') + FOR lnCol=1 TO lnFldCnt + lxCellValue = EVALUATE(lcAlias + '.' + taFields[lnCol, 1]) + this.WriteDirectCellValue(lhFile, lnRow, lnCol, lxCellValue) + ENDFOR + FWRITE(lhFile, '') + ENDSCAN + ELSE + SCAN + lnRow = lnRow + 1 + FWRITE(lhFile, '') + FOR lnCol=1 TO lnFldCnt + lxCellValue = EVALUATE(lcAlias + '.' + taFields[lnCol, 1]) + this.WriteDirectCellFormattedValue(lhFile, lnRow, lnCol, lxCellValue) + ENDFOR + FWRITE(lhFile, '') + ENDSCAN + ENDIF + SET CENTURY &lcSETCentry + + *-* End the sheet cell data values and worksheet + FWRITE(lhFile, '') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + + CATCH TO loException + SET STEP ON + llError = True + this.ErrorLevelId = 14 + RAISEEVENT(this, "OnShowErrorMessage", 14, loException.message) + + FINALLY + FCLOSE(lhFile) + this.SaveAsUTF8(lcFileName) + ENDTRY + IF llError + llSuccess = False + ELSE + *-* Create the XLSX file + llSuccess = this.CreateExcelFile(lcTempPath, JUSTPATH(tcXlsxName), JUSTSTEM(tcXlsxName)) && Change recommendation by Doug Hennig [placement of code after ELSE] + ENDIF + this.RemoveWorkingDirectories(lcTempPath) + ELSE + llSuccess = False + ENDIF + IF !EMPTY(lcCurAlias) + SELECT (lcCurAlias) + ENDIF + + *-* Restore default settings + IF lcSetPoint != "." + SET POINT TO (lcSetPoint) + SET SEPARATOR TO (lcSeparator) + ENDIF + RETURN llSuccess + ENDPROC + + PROCEDURE saveworkbook && Saves the selected workbook as an XLSX file + LPARAMETERS tnWB + LOCAL lcTempPath, lnSheet, lcDeleted, lcSetPoint, lcSeparator, lcSetDeleted, llReturn, lcAlias + LOCAL lcSafety, lnTotStages + IF SEEK(BINTOC(tnWB), "xl_workbooks", "workbook") + llReturn = True + lcAlias = ALIAS() + lcSafety = SET("SAFETY") + lcSetDeleted = SET("DELETED") + lcSetPoint = SET("POINT") + lcSeparator = SET("SEPARATOR") + SET SAFETY OFF + SET POINT TO "." + SET SEPARATOR TO "," + SET DELETED ON + + *-* Write the XLSX Workbook to XML structures + lcTempPath = this.CreateWorkingDirectories() + IF ISNULL(lcTempPath) + llReturn = False + ELSE + SELECT xl_sheets + COUNT FOR workbook = tnWB .AND. !shdeleted TO lnTotStages + lnTotStages = lnTotStages + 5 + RAISEEVENT(this, "OnShowStatusMessage", 2, 0, lnTotStages) + + IF this.WriteStringsXML(tnWB, lcTempPath) ; + .AND. this.WriteSupportXMLs(tnWB, lcTempPath) ; + .AND. this.WriteStylesXML(tnWB, lcTempPath) ; + .AND. this.WriteWorkbookXML(tnWB, lcTempPath) ; + .AND. this.WriteRelationshipsXML(tnWB, lcTempPath) + + lnSheet = 0 + SELECT xl_sheets + SET ORDER TO TAG sheet + SCAN FOR workbook = tnWB .AND. !shdeleted + lnSheet = lnSheet + 1 + RAISEEVENT(this, "OnShowStatusMessage", 2, lnSheet+5) + IF !this.WriteSheetXMLs(tnWB, xl_sheets.sheet, lcTempPath) + llReturn = False + EXIT + ENDIF + ENDSCAN + SELECT xl_sheets + SET ORDER TO + + IF llReturn .AND. SEEK(BINTOC(tnWB), "xl_workbooks", "workbook") + llReturn = this.CreateExcelFile(lcTempPath, xl_workbooks.filepath, xl_workbooks.wbname) + ENDIF + ELSE + llReturn = False + ENDIF + this.RemoveWorkingDirectories(lcTempPath) + RAISEEVENT(this, "OnShowStatusMessage", 2, -1) + ENDIF + + SET SAFETY &lcSafety + SET DELETED &lcSetDeleted + SET POINT TO (lcSetPoint) + SET SEPARATOR TO (lcSeparator) + IF !EMPTY(lcAlias) + SELECT &lcAlias + ENDIF + ELSE + llReturn = False + ENDIF + RETURN llReturn + ENDPROC + + PROCEDURE saveworkbookas && Saves the selected workbook with the new name + LPARAMETERS tnWB, tcWBName + LOCAL lcName, lcPath + IF SEEK(BINTOC(tnWB), "xl_workbooks", "workbook") .AND. !EMPTY(tcWBName) + lcName = JUSTSTEM(tcWBName) + lcPath = JUSTPATH(tcWBName) + IF EMPTY(lcPath) + lcPath = SYS(5) + SYS(2003) + ENDIF + REPLACE xl_workbooks.wbname WITH lcName, ; + xl_workbooks.filepath WITH lcPath IN xl_workbooks + this.SaveWorkbook(tnWB) + ENDIF + ENDPROC + + PROCEDURE setcellalignment && Sets the cell horizontal and vertical alignments + LPARAMETERS tnWB, tnSheet, tnCellRow, tnCellCol, tcHorizAlign, tcVertAlign + LOCAL llReturn, lnCellXfsId, lcAlias + IF PCOUNT() < 4 .OR. this.IsCellReferenceInvalid(tnCellRow, tnCellCol) + RETURN False + ENDIF + lcAlias = ALIAS() + IF this.GetSheetRecord(tnWB, tnSheet) + DO CASE + CASE VARTYPE(tcHorizAlign) = 'C' .AND. VARTYPE(tcVertAlign) = 'C' + IF INLIST(tcHorizAlign, CELL_HORIZ_ALIGN_LEFT, CELL_HORIZ_ALIGN_RIGHT, CELL_HORIZ_ALIGN_CENTER) .AND. ; + INLIST(tcVertAlign, CELL_VERT_ALIGN_TOP, CELL_VERT_ALIGN_BOTTOM, CELL_VERT_ALIGN_CENTER) + + IF this.GetCellRecord(tnWB, tnSheet, tnCellRow, tnCellCol) + IF xl_cells.cellxfs > 0 .AND. this.GetCellXfsRecord(tnWB, xl_cells.cellxfs) + lnCellXfsId = xl_cellxfs.id + SELECT workbook FROM xl_cells WHERE workbook = tnWB AND cellxfs = lnCellXfsId INTO CURSOR xl_temp + IF _TALLY > 1 + lnCellXfsId = this.GetCellXfsId(tnWB, xl_cellxfs.numFmtId, xl_cellxfs.fontId, xl_cellxfs.fillId, xl_cellxfs.borderId, tcHorizAlign, tcVertAlign, xl_cellxfs.indent, xl_cellxfs.wraptext, xl_cellxfs.rotation) + ELSE + REPLACE xl_cellxfs.halign WITH tcHorizAlign, ; + xl_cellxfs.valign WITH tcVertAlign IN xl_cellxfs + ENDIF + USE IN SELECT('xl_temp') + ELSE + lnCellXfsId = this.GetCellXfsId(tnWB, 0, 0, 0, 0, tcHorizAlign, tcVertAlign, 0, 0, 0) + ENDIF + REPLACE xl_cells.cellxfs WITH lnCellXfsId IN xl_cells + ELSE + lnCellXfsId = this.GetCellXfsId(tnWB, 0, 0, 0, 0, tcHorizAlign, tcVertAlign, 0, 0, 0) + INSERT INTO xl_cells (workbook, sheet, cellrow, cellcol, datatype, cellxfs, celldeleted) ; + VALUES (tnWB, tnSheet, tnCellRow, tnCellCol, DATA_TYPE_NONE, lnCellXfsId, False) + this.SetRowMaxColumn(tnWB, tnSheet, tnCellRow, tnCellCol) + ENDIF + llReturn = True + ELSE + llReturn = False + ENDIF + + CASE VARTYPE(tcHorizAlign) = 'C' .AND. VARTYPE(tcVertAlign) != 'C' + IF INLIST(tcHorizAlign, CELL_HORIZ_ALIGN_LEFT, CELL_HORIZ_ALIGN_RIGHT, CELL_HORIZ_ALIGN_CENTER) + IF this.GetCellRecord(tnWB, tnSheet, tnCellRow, tnCellCol) + IF xl_cells.cellxfs > 0 .AND. this.GetCellXfsRecord(tnWB, xl_cells.cellxfs) + lnCellXfsId = xl_cellxfs.id + SELECT workbook FROM xl_cells WHERE workbook = tnWB AND cellxfs = lnCellXfsId INTO CURSOR xl_temp + IF _TALLY > 1 + lnCellXfsId = this.GetCellXfsId(tnWB, xl_cellxfs.numFmtId, xl_cellxfs.fontId, xl_cellxfs.fillId, xl_cellxfs.borderId, tcHorizAlign, "", xl_cellxfs.indent, xl_cellxfs.wraptext, xl_cellxfs.rotation) + ELSE + REPLACE xl_cellxfs.halign WITH tcHorizAlign, ; + xl_cellxfs.valign WITH "" IN xl_cellxfs + ENDIF + USE IN SELECT('xl_temp') + ELSE + lnCellXfsId = this.GetCellXfsId(tnWB, 0, 0, 0, 0, tcHorizAlign, "", 0, 0, 0) + ENDIF + REPLACE xl_cells.cellxfs WITH lnCellXfsId IN xl_cells + ELSE + lnCellXfsId = this.GetCellXfsId(tnWB, 0, 0, 0, 0, tcHorizAlign, "", 0, 0, 0) + INSERT INTO xl_cells (workbook, sheet, cellrow, cellcol, datatype, cellxfs, celldeleted) ; + VALUES (tnWB, tnSheet, tnCellRow, tnCellCol, DATA_TYPE_NONE, lnCellXfsId, False) + this.SetRowMaxColumn(tnWB, tnSheet, tnCellRow, tnCellCol) + ENDIF + llReturn = True + ELSE + llReturn = False + ENDIF + + CASE VARTYPE(tcHorizAlign) != 'C' .AND. VARTYPE(tcVertAlign) = 'C' + IF INLIST(tcVertAlign, CELL_VERT_ALIGN_TOP, CELL_VERT_ALIGN_BOTTOM, CELL_VERT_ALIGN_CENTER) + IF this.GetCellRecord(tnWB, tnSheet, tnCellRow, tnCellCol) + IF xl_cells.cellxfs > 0 .AND. this.GetCellXfsRecord(tnWB, xl_cells.cellxfs) + lnCellXfsId = xl_cellxfs.id + SELECT workbook FROM xl_cells WHERE workbook = tnWB AND cellxfs = lnCellXfsId INTO CURSOR xl_temp + IF _TALLY > 1 + lnCellXfsId = this.GetCellXfsId(tnWB, xl_cellxfs.numFmtId, xl_cellxfs.fontId, xl_cellxfs.fillId, xl_cellxfs.borderId, "", tcVertAlign, xl_cellxfs.indent, xl_cellxfs.wraptext, xl_cellxfs.rotation) + ELSE + REPLACE xl_cellxfs.halign WITH "", ; + xl_cellxfs.valign WITH tcVertAlign IN xl_cellxfs + ENDIF + USE IN SELECT('xl_temp') + ELSE + lnCellXfsId = this.GetCellXfsId(tnWB, 0, 0, 0, 0, "", tcVertAlign, 0, 0, 0) + ENDIF + REPLACE xl_cells.cellxfs WITH lnCellXfsId IN xl_cells + ELSE + lnCellXfsId = this.GetCellXfsId(tnWB, 0, 0, 0, 0, "", tcVertAlign, 0, 0, 0) + INSERT INTO xl_cells (workbook, sheet, cellrow, cellcol, datatype, cellxfs, celldeleted) ; + VALUES (tnWB, tnSheet, tnCellRow, tnCellCol, DATA_TYPE_NONE, lnCellXfsId, False) + this.SetRowMaxColumn(tnWB, tnSheet, tnCellRow, tnCellCol) + ENDIF + llReturn = True + ELSE + llReturn = False + ENDIF + + OTHERWISE + IF this.GetCellRecord(tnWB, tnSheet, tnCellRow, tnCellCol) + REPLACE xl_cells.halign WITH "", ; + xl_cells.valign WITH "" IN xl_cells + ENDIF + llReturn = True + ENDCASE + ELSE + llReturn = False + ENDIF + IF !EMPTY(lcAlias) + SELECT &lcAlias + ENDIF + RETURN llReturn + ENDPROC + + PROCEDURE setcellalignmentrange && Sets the cell alignment for a range of cells + LPARAMETERS tnWB, tnSheet, tnBegRow, tnBegCol, tnEndRow, tnEndCol, tcHorizAlign, tcVertAlign + LOCAL lnRow, lnCol, llReturn + IF PCOUNT() < 7 .OR. this.IsCellReferenceInvalid(tnBegRow, tnBegCol) .OR. this.IsCellReferenceInvalid(tnEndRow, tnEndCol) + RETURN False + ENDIF + IF tnBegRow > tnEndRow .OR. tnBegCol > tnEndCol + RETURN False + ENDIF + llReturn = True + FOR lnRow=tnBegRow TO tnEndRow + FOR lnCol=tnBegCol TO tnEndCol + IF !this.SetCellAlignment(tnWB, tnSheet, lnRow, lnCol, tcHorizAlign, tcVertAlign) + llReturn = False + EXIT + ENDIF + ENDFOR + ENDFOR + RETURN llReturn + ENDPROC + + PROCEDURE setcellborder + LPARAMETERS tnWB, tnSheet, tnCellRow, tnCellCol, tnBorders, tcStyle, tnColor + LOCAL lcLStyle, lnLColor, lcRStyle, lcTStyle, lnTColor, lcBStyle, lnBColor, lcDStyle, lnDColor, lnDiagDn, lnDiagUp + LOCAL lnRColor, llReturn, lcAlias + IF PCOUNT() < 5 .OR. this.IsCellReferenceInvalid(tnCellRow, tnCellCol) + RETURN False + ENDIF + lcAlias = ALIAS() + IF this.GetSheetRecord(tnWB, tnSheet) + IF VARTYPE(tnBorders) != 'N' .OR. EMPTY(tnBorders) .OR. !BETWEEN(tnBorders, 0, 63) + tnBorders = 0 + ENDIF + IF !this.IsValidBorderStyle(tcStyle) + tcStyle = BORDER_STYLE_NONE + ENDIF + IF VARTYPE(tnColor) != 'N' .OR. !BETWEEN(tnColor, 0, RGB(255,255,255)) .OR. EMPTY(tnColor) + tnColor = RGB(0, 0, 0) + ENDIF + STORE 0 TO lnDiagDn, lnDiagUp + STORE RGB(0,0,0) TO lnLColor, lnRColor, lnTColor, lnBColor, lnDColor + STORE BORDER_STYLE_NONE TO lcLStyle, lcRStyle, lcTStyle, lcBStyle, lcDStyle + IF BITTEST(tnBorders, 0) + lcLStyle = tcStyle + lnLColor = tnColor + ENDIF + IF BITTEST(tnBorders, 1) + lcRStyle = tcStyle + lnRColor = tnColor + ENDIF + IF BITTEST(tnBorders, 2) + lcTStyle = tcStyle + lnTColor = tnColor + ENDIF + IF BITTEST(tnBorders, 3) + lcBStyle = tcStyle + lnBColor = tnColor + ENDIF + IF BITTEST(tnBorders, 4) + lcDStyle = tcStyle + lnDColor = tnColor + lnDiagDn = 1 + ENDIF + IF BITTEST(tnBorders, 5) + lcDStyle = tcStyle + lnDColor = tnColor + lnDiagUp = 1 + ENDIF + this.SetCellBorderEx(tnWB, tnSheet, tnCellRow, tnCellCol, lcLStyle, lnLColor, lcRStyle, lnRColor, ; + lcTStyle, lnTColor, lcBStyle, lnBColor, lcDStyle, lnDColor, lnDiagDn, lnDiagUp) + this.SetRowMaxColumn(tnWB, tnSheet, tnCellRow, tnCellCol) + llReturn = True + ELSE + llReturn = False + ENDIF + IF !EMPTY(lcAlias) + SELECT &lcAlias + ENDIF + RETURN llReturn + ENDPROC + + PROCEDURE setcellborderex + LPARAMETERS tnWB, tnSheet, tnCellRow, tnCellCol, tcLStyle, tnLColor, tcRStyle, tnRColor, tcTStyle, tnTColor, tcBStyle, tnBColor, tcDStyle, tnDColor, tnDiagDn, tnDiagUp + LOCAL lnCellXfsId, lnBorderId + IF PCOUNT() < 5 .OR. this.IsCellReferenceInvalid(tnCellRow, tnCellCol) + RETURN False + ENDIF + IF this.GetSheetRecord(tnWB, tnSheet) + IF !this.IsValidBorderStyle(tcLStyle) + tcLStyle = BORDER_STYLE_NONE + ENDIF + IF VARTYPE(tnLColor) != 'N' .OR. EMPTY(tnLColor) .OR. !BETWEEN(tnLColor, 0, RGB(255,255,255)) + tnLColor = RGB(0, 0, 0) + ENDIF + + IF !this.IsValidBorderStyle(tcRStyle) + tcRStyle = BORDER_STYLE_NONE + ENDIF + IF VARTYPE(tnRColor) != 'N' .OR. EMPTY(tnRColor) .OR. !BETWEEN(tnRColor, 0, RGB(255,255,255)) + tnRColor = RGB(0, 0, 0) + ENDIF + + IF !this.IsValidBorderStyle(tcTStyle) + tcTStyle = BORDER_STYLE_NONE + ENDIF + IF VARTYPE(tnTColor) != 'N' .OR. EMPTY(tnTColor) .OR. !BETWEEN(tnTColor, 0, RGB(255,255,255)) + tnTColor = RGB(0, 0, 0) + ENDIF + + IF !this.IsValidBorderStyle(tcBStyle) + tcBStyle = BORDER_STYLE_NONE + ENDIF + IF VARTYPE(tnBColor) != 'N' .OR. EMPTY(tnBColor) .OR. !BETWEEN(tnBColor, 0, RGB(255,255,255)) + tnBColor = RGB(0, 0, 0) + ENDIF + + IF !this.IsValidBorderStyle(tcDStyle) + tcDStyle = BORDER_STYLE_NONE + ENDIF + IF VARTYPE(tnDColor) != 'N' .OR. EMPTY(tnDColor) .OR. !BETWEEN(tnDColor, 0, RGB(255,255,255)) + tnDColor = RGB(0, 0, 0) + ENDIF + IF VARTYPE(tnDiagDn) != 'N' .OR. !BETWEEN(tnDiagDn, 0, 3) + tnDiagDn = 0 + ENDIF + IF VARTYPE(tnDiagUp) != 'N' .OR. !BETWEEN(tnDiagUp, 0, 3) + tnDiagUp = 0 + ENDIF + + *-* Get the border record Id + IF this.GetBordersRecord(tnWB, tcLStyle, tnLColor, tcRStyle, tnRColor, tcTStyle, tnTColor, tcBStyle, tnBColor, tcDStyle, tnDColor, tnDiagDn, tnDiagUp) + lnBorderId = xl_borders.id + ELSE + lnBorderId = this.GetNextId(tnWB, 'xl_borders') + INSERT INTO xl_borders (workbook, id, lstyle, lcolor, rstyle, rcolor, tstyle, tcolor, bstyle, bcolor, dstyle, dcolor, diagdn, diagup) ; + VALUES (tnWB, lnBorderId, tcLStyle, tnLColor, tcRStyle, tnRColor, tcTStyle, tnTColor, tcBStyle, tnBColor, tcDStyle, tnDColor, tnDiagDn, tnDiagUp) + ENDIF + *-* Set the XfsId to the cell record + IF this.GetCellRecord(tnWB, tnSheet, tnCellRow, tnCellCol) + IF xl_cells.cellxfs > 0 .AND. this.GetCellXfsRecord(tnWB, xl_cells.cellxfs) + lnCellXfsId = xl_cellxfs.id + SELECT workbook FROM xl_cells WHERE workbook = tnWB AND cellxfs = lnCellXfsId INTO CURSOR xl_temp + IF _TALLY > 1 + lnCellXfsId = this.GetCellXfsId(tnWB, xl_cellxfs.numFmtId, xl_cellxfs.fontId, xl_cellxfs.fillId, lnBorderId, xl_cellxfs.halign, xl_cellxfs.valign, xl_cellxfs.indent, xl_cellxfs.wraptext, xl_cellxfs.rotation) + ELSE + REPLACE xl_cellxfs.borderId WITH lnBorderId IN xl_cellxfs + ENDIF + USE IN SELECT('xl_temp') + ELSE + lnCellXfsId = this.GetCellXfsId(tnWB, 0, 0, 0, lnBorderId, "", "", 0, 0, 0) + ENDIF + REPLACE xl_cells.cellxfs WITH lnCellXfsId IN xl_cells + ELSE + lnCellXfsId = this.GetCellXfsId(tnWB, 0, 0, 0, lnBorderId, "", "", 0, 0, 0) + INSERT INTO xl_cells (workbook, sheet, cellrow, cellcol, datatype, cellxfs, celldeleted, numdec, validndx) ; + VALUES (tnWB, tnSheet, tnCellRow, tnCellCol, DATA_TYPE_NONE, lnCellXfsId, False, -1, 0) + this.SetRowMaxColumn(tnWB, tnSheet, tnCellRow, tnCellCol) + ENDIF + llReturn = True + ELSE + llReturn = False + ENDIF + RETURN llReturn + ENDPROC + + PROCEDURE setcellborderrange && Sets the cell border for a range of cells + LPARAMETERS tnWB, tnSheet, tnBegRow, tnBegCol, tnEndRow, tnEndCol, tnBorder, tcStyle, tnColor + LOCAL llReturn, lnRow, lnCol + IF PCOUNT() < 7 .OR. this.IsCellReferenceInvalid(tnBegRow, tnBegCol) .OR. this.IsCellReferenceInvalid(tnEndRow, tnEndCol) + RETURN False + ENDIF + IF tnBegRow > tnEndRow .OR. tnBegCol > tnEndCol + RETURN False + ENDIF + llReturn = True + FOR lnRow=tnBegRow TO tnEndRow + FOR lnCol=tnBegCol TO tnEndCol + IF !this.SetCellBorder(tnWB, tnSheet, lnRow, lnCol, tnBorder, tcStyle, tnColor) + llReturn = False + EXIT + ENDIF + ENDFOR + ENDFOR + RETURN llReturn + ENDPROC + + PROCEDURE setcellfill && Sets the fill color for the cell + LPARAMETERS tnWB, tnSheet, tnCellRow, tnCellCol, tnFColor, tnBColor, tcPatternType + LOCAL llReturn, lnFillId, lnCellXfsId, lnFIndex, lnBIndex, lcAlias + DO CASE + CASE PCOUNT() < 5 + RETURN False + + CASE PCOUNT() = 5 + tnBColor = RGB(255,255,255) + tcPatternType = FILL_STYLE_SOLID + + CASE PCOUNT() = 6 + tcPatternType = FILL_STYLE_SOLID + ENDCASE + IF this.IsCellReferenceInvalid(tnCellRow, tnCellCol) + RETURN False + ENDIF + lcAlias = ALIAS() + IF PCOUNT() = 5 .OR. PCOUNT() = 6 .OR. VARTYPE(tcPatternType) != "C" .OR. EMPTY(tcPatternType) + tcPatternType = FILL_STYLE_SOLID + ENDIF + IF this.GetSheetRecord(tnWB, tnSheet) + IF VARTYPE(tnBColor) != 'N' + tnBColor = RGB(255,255,255) + ENDIF + IF VARTYPE(tnFColor) = 'N' .AND. BETWEEN(tnFColor, 0, RGB(255, 255, 255)) + tnFColor = FLOOR(tnFColor) + lnFIndex = 0 + ELSE + tnFColor = 0 + lnFIndex = 64 + ENDIF + IF VARTYPE(tnBColor) = 'N' .AND. BETWEEN(tnBColor, 0, RGB(255, 255, 255)) + tnBColor = FLOOR(tnBColor) + lnBIndex = 0 + ELSE + tnBColor = RGB(0, 0, 0) + lnBIndex = 64 + ENDIF + *-* Get the fill record id + IF SEEK(BINTOC(tnWB)+BINTOC(tnFColor)+BINTOC(tnBColor)+tcPatternType, "xl_fills", "fillcolor") + lnFillId = xl_fills.id + REPLACE xl_fills.theme WITH 0, ; + xl_fills.tint WITH 0, ; + xl_fills.fgindexed WITH lnFIndex, ; + xl_fills.bgindexed WITH lnBIndex IN xl_fills + ELSE + lnFillId = this.GetNextId(tnWB, 'xl_fills') + INSERT INTO xl_fills (workbook, id, fgcolor, bgcolor, patttype, theme, tint, fgindexed, bgindexed) ; + VALUES (tnWB, lnFillId, tnFColor, tnBColor, tcPatternType, 0, 0, lnFIndex, lnBIndex) + ENDIF + *-* Set the XfsId to the cell record + IF this.GetCellRecord(tnWB, tnSheet, tnCellRow, tnCellCol) + IF xl_cells.cellxfs > 0 .AND. this.GetCellXfsRecord(tnWB, xl_cells.cellxfs) + lnCellXfsId = xl_cellxfs.id + SELECT workbook FROM xl_cells WHERE workbook = tnWB AND cellxfs = lnCellXfsId INTO CURSOR xl_temp + IF _TALLY > 1 + lnCellXfsId = this.GetCellXfsId(tnWB, xl_cellxfs.numFmtId, xl_cellxfs.fontId, lnFillId, xl_cellxfs.borderId, xl_cellxfs.halign, xl_cellxfs.valign, xl_cellxfs.indent, xl_cellxfs.wraptext, xl_cellxfs.rotation) + ELSE + REPLACE xl_cellxfs.fillId WITH lnFillId IN xl_cellxfs + ENDIF + USE IN SELECT('xl_temp') + ELSE + lnCellXfsId = this.GetCellXfsId(tnWB, 0, 0, lnFillId, 0, "", "", 0, 0, 0) + ENDIF + REPLACE xl_cells.cellxfs WITH lnCellXfsId IN xl_cells + ELSE + lnCellXfsId = this.GetCellXfsId(tnWB, 0, 0, lnFillId, 0, "", "", 0, 0, 0) + INSERT INTO xl_cells (workbook, sheet, cellrow, cellcol, datatype, cellxfs, celldeleted, numdec, validndx) ; + VALUES (tnWB, tnSheet, tnCellRow, tnCellCol, DATA_TYPE_NONE, lnCellXfsId, False, -1, 0) + this.SetRowMaxColumn(tnWB, tnSheet, tnCellRow, tnCellCol) + ENDIF + llReturn = True + ELSE + llReturn = False + ENDIF + IF !EMPTY(lcAlias) + SELECT &lcAlias + ENDIF + RETURN llReturn + ENDPROC + + PROCEDURE setcellfillrange && Sets the fill for a range of cells + LPARAMETERS tnWB, tnSheet, tnBegRow, tnBegCol, tnEndRow, tnEndCol, tnFColor, tnBColor, tcPatternType + LOCAL lnRow, lnCol, llReturn + DO CASE + CASE PCOUNT() < 7 + RETURN False + + CASE PCOUNT() = 7 + tnBColor = RGB(255,255,255) + tcPatternType = FILL_STYLE_SOLID + + CASE PCOUNT() = 8 + tcPatternType = FILL_STYLE_SOLID + ENDCASE + IF tnBegRow > tnEndRow .OR. tnBegCol > tnEndCol .OR. this.IsCellReferenceInvalid(tnBegRow, tnBegCol) .OR. this.IsCellReferenceInvalid(tnEndRow, tnEndCol) + RETURN False + ENDIF + IF VARTYPE(tnBColor) != 'N' + tnBColor = RGB(255,255,255) + ENDIF + llReturn = True + FOR lnRow=tnBegRow TO tnEndRow + FOR lnCol=tnBegCol TO tnEndCol + IF !this.SetCellFill(tnWB, tnSheet, lnRow, lnCol, tnFColor, tnBColor, tcPatternType) + llReturn = False + EXIT + ENDIF + ENDFOR + ENDFOR + RETURN llReturn + ENDPROC + + PROCEDURE setcellfont && Sets the selected cell font format + LPARAMETERS tnWB, tnSheet, tnCellRow, tnCellCol, tcFName, tnFSize, tlBold, tlItalic, tnFColor, tcULine, tlStrikThr, tcVPos + LOCAL llReturn, lcAlias + IF PCOUNT() < 5 .OR. this.IsCellReferenceInvalid(tnCellRow, tnCellCol) + RETURN False + ENDIF + lcAlias = ALIAS() + IF this.GetSheetRecord(tnWB, tnSheet) + IF VARTYPE(tcFName) != 'C' .OR. EMPTY(tcFName) + tcFName = 'Calibri' + ENDIF + tcFName = PROPER(ALLTRIM(tcFName)) + IF VARTYPE(tnFSize) != 'N' .OR. EMPTY(tnFSize) .OR. tnFSize < 0.5 + tnFSize = 11 + ELSE + tnFSize = INT(tnFSize) + ENDIF + IF VARTYPE(tlBold) != 'L' + tlBold = False + ENDIF + IF VARTYPE(tlItalic) != 'L' + tlItalic = False + ENDIF + IF VARTYPE(tnFColor) = 'N' .AND. BETWEEN(tnFColor, 0, RGB(255, 255, 255)) + tnFColor = FLOOR(tnFColor) + ELSE + tnFColor = RGB(0, 0, 0) + ENDIF + IF VARTYPE(tlStrikThr) != 'L' + tlStrikThr = False + ENDIF + IF VARTYPE(tcULine) != 'C' .OR. !INLIST(tcULine, UNDERLINE_SINGLE, UNDERLINE_DOUBLE, UNDERLINE_SINGLEACCOUNTING, UNDERLINE_DOUBLEACCOUNTING, UNDERLINE_NONE) + tcULine = UNDERLINE_NONE + ENDIF + IF VARTYPE(tcVPos) != 'C' .OR. !INLIST(tcVPos, FONT_VERTICAL_BASELINE, FONT_VERTICAL_SUBSCRIPT, FONT_VERTICAL_SUPERSCRIPT) + tcVPos = FONT_VERTICAL_BASELINE + ENDIF + *-* Get the font record id + IF SEEK(BINTOC(tnWB)+PADR(tcFName, 100) + STR(tnFSize, 5, 1) + TRANSFORM(tlBold) + TRANSFORM(tlItalic) + PADL(tnFColor, 15) + PADR(tcULine, 16) + ; + TRANSFORM(tlStrikThr) + PADR(tcVPos, 11), "xl_fonts", "cellformat") + + lnFontId = xl_fonts.id + REPLACE xl_fonts.theme WITH 0, ; + xl_fonts.tint WITH 0, ; + xl_fonts.indexed WITH 0 IN xl_fonts + ELSE + lnFontId = this.GetNextId(tnWB, 'xl_fonts') + INSERT INTO xl_fonts (workbook, id, fname, fsize, fbold, fitalic, fcolor, uline, strkthr, fvpos) ; + VALUES (tnWB, lnFontId, tcFName, tnFSize, tlBold, tlItalic, tnFColor, tcULine, tlStrikThr, tcVPos) + ENDIF + *-* Set the XfsId to the cell record + IF this.GetCellRecord(tnWB, tnSheet, tnCellRow, tnCellCol) + IF xl_cells.cellxfs > 0 .AND. this.GetCellXfsRecord(tnWB, xl_cells.cellxfs) + lnCellXfsId = xl_cellxfs.id + SELECT workbook FROM xl_cells WHERE workbook = tnWB AND cellxfs = lnCellXfsId INTO CURSOR xl_temp + IF _TALLY > 1 + lnCellXfsId = this.GetCellXfsId(tnWB, xl_cellxfs.numFmtId, lnFontId, xl_cellxfs.fillid, xl_cellxfs.borderId, xl_cellxfs.halign, xl_cellxfs.valign, xl_cellxfs.indent, xl_cellxfs.wraptext, xl_cellxfs.rotation) + ELSE + REPLACE xl_cellxfs.fontid WITH lnFontId IN xl_cellxfs + ENDIF + USE IN SELECT('xl_temp') + ELSE + lnCellXfsId = this.GetCellXfsId(tnWB, 0, lnFontId, 0, 0, "", "", 0, 0, 0) + ENDIF + REPLACE xl_cells.cellxfs WITH lnCellXfsId IN xl_cells + ELSE + lnCellXfsId = this.GetCellXfsId(tnWB, 0, lnFontId, 0, 0, "", "", 0, 0, 0) + INSERT INTO xl_cells (workbook, sheet, cellrow, cellcol, datatype, cellxfs, celldeleted, numdec, validndx) ; + VALUES (tnWB, tnSheet, tnCellRow, tnCellCol, DATA_TYPE_NONE, lnCellXfsId, False, -1, 0) + this.SetRowMaxColumn(tnWB, tnSheet, tnCellRow, tnCellCol) + ENDIF + llReturn = True + ELSE + llReturn = False + ENDIF + IF !EMPTY(lcAlias) + SELECT &lcAlias + ENDIF + RETURN llReturn + ENDPROC + + PROCEDURE setcellfontrange && Sets the cell font format for a range of cells + LPARAMETERS tnWB, tnSheet, tnBegRow, tnBegCol, tnEndRow, tnEndCol, tcFName, tnFSize, tlBold, tlItalic, tnFColor, tcULine, tlStrikThr, tcVPos + LOCAL lnRow, lnCol, llReturn + IF PCOUNT() < 7 .OR. this.IsCellReferenceInvalid(tnBegRow, tnBegCol) .OR. this.IsCellReferenceInvalid(tnEndRow, tnEndCol) + RETURN False + ENDIF + IF tnBegRow > tnEndRow .OR. tnBegCol > tnEndCol + RETURN False + ENDIF + llReturn = True + FOR lnRow=tnBegRow TO tnEndRow + FOR lnCol=tnBegCol TO tnEndCol + IF !this.SetCellFont(tnWB, tnSheet, lnRow, lnCol, tcFName, tnFSize, tlBold, tlItalic, tnFColor, tcULine, tlStrikThr, tcVPos) + llReturn = False + EXIT + ENDIF + ENDFOR + ENDFOR + RETURN llReturn + ENDPROC + + PROCEDURE setcellformula && Sets the cell formula expression + LPARAMETERS tnWB, tnSheet, tnCellRow, tnCellCol, tcCellFormula + LOCAL llReturn, lcAlias + IF PCOUNT() < 5 .OR. VARTYPE(tcCellFormula) != "C" .OR. this.IsCellReferenceInvalid(tnCellRow, tnCellCol) + RETURN False + ENDIF + lcAlias = ALIAS() + IF this.GetSheetRecord(tnWB, tnSheet) + IF this.GetCellRecord(tnWB, tnSheet, tnCellRow, tnCellCol) + REPLACE xl_cells.cellvalue WITH "", ; + xl_cells.cellformula WITH tcCellFormula, ; + xl_cells.stringid WITH 0, ; + xl_cells.datatype WITH DATA_TYPE_FORMULA, ; + xl_cells.celldeleted WITH False IN xl_cells + ELSE + INSERT INTO xl_cells (workbook, sheet, cellrow, cellcol, cellformula, datatype, cellxfs, celldeleted, numdec, validndx) ; + VALUES (tnWB, tnSheet, tnCellRow, tnCellCol, tcCellFormula, DATA_TYPE_FORMULA, 0, False, -1, 0) + this.SetRowMaxColumn(tnWB, tnSheet, tnCellRow, tnCellCol) + ENDIF + llReturn = True + ELSE + llReturn = False + ENDIF + IF !EMPTY(lcAlias) + SELECT &lcAlias + ENDIF + RETURN llReturn + ENDPROC + + PROCEDURE setcellindent && Sets the cell indentation value + LPARAMETERS tnWB, tnSheet, tnCellRow, tnCellCol, tnIndent + LOCAL lnCellXfsId, lcAlias + IF PCOUNT() != 5 .OR. this.IsCellReferenceInvalid(tnCellRow, tnCellCol) + RETURN False + ENDIF + IF VARTYPE(tnIndent) != 'N' + RETURN False + ENDIF + lcAlias = ALIAS() + tnIndent = FLOOR(tnIndent) + IF this.GetCellRecord(tnWB, tnSheet, tnCellRow, tnCellCol) + IF xl_cells.cellxfs > 0 .AND. this.GetCellXfsRecord(tnWB, xl_cells.cellxfs) + lnCellXfsId = xl_cellxfs.id + SELECT workbook FROM xl_cells WHERE workbook = tnWB AND cellxfs = lnCellXfsId INTO CURSOR xl_temp + IF _TALLY > 1 + lnCellXfsId = this.GetCellXfsId(tnWB, xl_cellxfs.numFmtId, xl_cellxfs.fontid, xl_cellxfs.fillid, xl_cellxfs.borderId, xl_cellxfs.halign, xl_cellxfs.valign, tnIndent, xl_cellxfs.wraptext, xl_cellxfs.rotation) + ELSE + REPLACE xl_cellxfs.indent WITH tnIndent IN xl_cellxfs + ENDIF + USE IN SELECT('xl_temp') + ELSE + lnCellXfsId = this.GetCellXfsId(tnWB, 0, 0, 0, 0, "", "", tnIndent, 0, 0) + ENDIF + REPLACE xl_cells.cellxfs WITH lnCellXfsId IN xl_cells + ELSE + lnCellXfsId = this.GetCellXfsId(tnWB, 0, 0, 0, 0, "", "", tnIndent, 0, 0) + INSERT INTO xl_cells (workbook, sheet, cellrow, cellcol, datatype, cellxfs, celldeleted, numdec, validndx) ; + VALUES (tnWB, tnSheet, tnCellRow, tnCellCol, DATA_TYPE_NONE, lnCellXfsId, False, -1, 0) + this.SetRowMaxColumn(tnWB, tnSheet, tnCellRow, tnCellCol) + ENDIF + IF !EMPTY(lcAlias) + SELECT &lcAlias + ENDIF + RETURN True + ENDPROC + + PROCEDURE setcellinlineformattext && Saves the in-line format definition to a cell value + LPARAMETERS tnWB, tnSheet, tnCellRow, tnCellCol, toInLine + LOCAL lnNdx, lcRText, llFBold, llFItalic, lnFColor, lcFName, lnFSize, lcULine, llStrkThr, lcFVPos, lcAlias + IF this.IsCellReferenceInvalid(tnCellRow, tnCellCol) + RETURN False + ENDIF + IF tnWB = toInLine.Workbook + lcAlias = ALIAS() + IF ISNULL(toInLine.StringId) + toInLine.StringId = this.AddStringValue(toInLine.Workbook, toInLine.StringValue, True) + ENDIF + IF this.GetCellRecord(toInLine.Workbook, tnSheet, tnCellRow, tnCellCol) + REPLACE xl_cells.cellvalue WITH "StringValue", ; + xl_cells.cellxfs WITH 0, ; + xl_cells.cellformula WITH "", ; + xl_cells.stringid WITH toInLine.StringId, ; + xl_cells.datatype WITH DATA_TYPE_CHAR, ; + xl_cells.celldeleted WITH False IN xl_cells + ELSE + INSERT INTO xl_cells (workbook, sheet, cellrow, cellcol, cellvalue, stringid, datatype, cellxfs, celldeleted, numdec, validndx) ; + VALUES (toInLine.Workbook, tnSheet, tnCellRow, tnCellCol, "StringValue", toInLine.StringId, DATA_TYPE_CHAR, 0, False, -1, 0) + + this.SetRowMaxColumn(tnWB, tnSheet, tnCellRow, tnCellCol) + ENDIF + FOR lnNdx=1 TO toInLine.Count + lcRText = SUBSTR(toInLine.StringValue, toInLine.Characters[lnNdx].BegPos, toInLine.Characters[lnNdx].Length) + llFBold = toInLine.Characters[lnNdx].FontBold + llFItalic = toInLine.Characters[lnNdx].FontItalic + lnFColor = toInLine.Characters[lnNdx].FontColor + lcFName = toInLine.Characters[lnNdx].FontName + lnFSize = toInLine.Characters[lnNdx].FontSize + lcULine = toInLine.Characters[lnNdx].Underline + llStrkThr = toInLine.Characters[lnNdx].StrikeThru + lcFVPos = ICASE(toInLine.Characters[lnNdx].SubScript, FONT_VERTICAL_SUBSCRIPT, toInLine.Characters[lnNdx].SuperScript, FONT_VERTICAL_SUPERSCRIPT, FONT_VERTICAL_BASELINE) + + INSERT INTO xl_strformat (workbook, id, index, stringxml, stringval, fbold, fitalic, fcolor, fname, fsize, uline, strkthr, fvpos, theme, tint, indexed) ; + VALUES (toInLine.Workbook, toInLine.StringId, lnNdx, this.GetXMLString(lcRText), lcRText, llFBold, llFItalic, lnFColor, lcFName, lnFSize, lcULine, ; + llStrkThr, lcFVPos, 0, 0, 0) + ENDFOR + IF !EMPTY(lcAlias) + SELECT &lcAlias + ENDIF + RETURN True + ELSE + RETURN False + ENDIF + ENDPROC + + PROCEDURE setcellnumberdecimals && Sets the number of decimals to display + LPARAMETERS tnWB, tnSheet, tnCellRow, tnCellCol, tnNumDecimals + LOCAL lcAlias + IF PCOUNT() < 5 .OR. this.IsCellReferenceInvalid(tnCellRow, tnCellCol) + RETURN False + ENDIF + IF VARTYPE(tnNumDecimals) != 'N' .OR. tnNumDecimals < 0 + RETURN False + ENDIF + lcAlias = ALIAS() + IF this.GetCellRecord(tnWB, tnSheet, tnCellRow, tnCellCol) + REPLACE xl_cells.numdec WITH tnNumDecimals IN xl_cells + ELSE + INSERT INTO xl_cells (workbook, sheet, cellrow, cellcol, datatype, nbrfmtid, numdec, celldeleted) ; + VALUES (tnWB, tnSheet, tnCellRow, tnCellCol, DATA_TYPE_NONE, 0, tnNumDecimals, False) + this.SetRowMaxColumn(tnWB, tnSheet, tnCellRow, tnCellCol) + ENDIF + IF !EMPTY(lcAlias) + SELECT &lcAlias + ENDIF + RETURN True + ENDPROC + + PROCEDURE setcellnumberformat && Sets the cell number format + LPARAMETERS tnWB, tnSheet, tnCellRow, tnCellCol, tnNumFormat + LOCAL llReturn, lnNumFmtId, lcAlias, loException + IF PCOUNT() < 5 .OR. this.IsCellReferenceInvalid(tnCellRow, tnCellCol) + RETURN False + ENDIF + IF VARTYPE(tnNumFormat) != 'N' + RETURN False + ENDIF + lcAlias = ALIAS() + IF this.GetSheetRecord(tnWB, tnSheet) + DO CASE + CASE tnNumFormat < START_NUMERIC_FORMAT_ID + lnNumFmtId = tnNumFormat + + CASE tnNumFormat >= START_NUMERIC_FORMAT_ID + IF SEEK(BINTOC(tnWB)+BINTOC(tnNumFormat), "xl_numfmts", "id") + lnNumFmtId = xl_numfmts.id + ELSE + IF !this.AddClassDefinedNumericFormats(tnWB, tnNumFormat) + RETURN False + ENDIF + lnNumFmtId = tnNumFormat + ENDIF + + OTHERWISE + RETURN False + ENDCASE + IF this.GetCellRecord(tnWB, tnSheet, tnCellRow, tnCellCol) + IF xl_cells.cellxfs > 0 .AND. this.GetCellXfsRecord(tnWB, xl_cells.cellxfs) + lnCellXfsId = xl_cellxfs.id + SELECT workbook FROM xl_cells WHERE workbook = tnWB AND cellxfs = lnCellXfsId INTO CURSOR xl_temp + IF _TALLY > 1 + lnCellXfsId = this.GetCellXfsId(tnWB, lnNumFmtId, xl_cellxfs.fontid, xl_cellxfs.fillid, xl_cellxfs.borderId, xl_cellxfs.halign, xl_cellxfs.valign, xl_cellxfs.indent, xl_cellxfs.wraptext, xl_cellxfs.rotation) + ELSE + TRY + REPLACE xl_cellxfs.numFmtId WITH lnNumFmtId IN xl_cellxfs + CATCH TO loException + SET STEP ON + ENDTRY + ENDIF + USE IN SELECT('xl_temp') + ELSE + lnCellXfsId = this.GetCellXfsId(tnWB, lnNumFmtId, 0, 0, 0, "", "", 0, 0, 0) + ENDIF + REPLACE xl_cells.cellxfs WITH lnCellXfsId IN xl_cells + ELSE + lnCellXfsId = this.GetCellXfsId(tnWB, lnNumFmtId, 0, 0, 0, "", "", 0, 0, 0) + INSERT INTO xl_cells (workbook, sheet, cellrow, cellcol, datatype, cellxfs, celldeleted, numdec, validndx) ; + VALUES (tnWB, tnSheet, tnCellRow, tnCellCol, DATA_TYPE_NONE, lnCellXfsId, False, -1, 0) + this.SetRowMaxColumn(tnWB, tnSheet, tnCellRow, tnCellCol) + ENDIF + llReturn = True + ELSE + llReturn = False + ENDIF + IF !EMPTY(lcAlias) + SELECT &lcAlias + ENDIF + RETURN llReturn + ENDPROC + + PROCEDURE setcellnumberformatrange && Sets the number format for a range of cells + LPARAMETERS tnWB, tnSheet, tnBegRow, tnBegCol, tnEndRow, tnEndCol, tnNumFormat + LOCAL lnRow, lnCol, llReturn + IF PCOUNT() < 7 .OR. this.IsCellReferenceInvalid(tnBegRow, tnBegCol) .OR. this.IsCellReferenceInvalid(tnEndRow, tnEndCol) + RETURN False + ENDIF + IF tnBegRow > tnEndRow .OR. tnBegCol > tnEndCol + RETURN False + ENDIF + llReturn = True + FOR lnRow=tnBegRow TO tnEndRow + FOR lnCol=tnBegCol TO tnEndCol + IF !this.SetCellNumberFormat(tnWB, tnSheet, lnRow, lnCol, tnNumFormat) + llReturn = False + EXIT + ENDIF + ENDFOR + ENDFOR + RETURN llReturn + ENDPROC + + PROCEDURE setcellstyle && Sets the cell style + LPARAMETERS tnWB, tnSheet, tnCellRow, tnCellCol, tnCellXfsId + IF SEEK(BINTOC(tnWB)+BINTOC(tnCellXfsId), "xl_cellxfs", "id") + IF this.GetCellRecord(tnWB, tnSheet, tnCellRow, tnCellCol) + REPLACE xl_cells.cellxfs WITH tnCellXfsId IN xl_cells + ELSE + INSERT INTO xl_cells (workbook, sheet, cellrow, cellcol, datatype, cellxfs, celldeleted, numdec, validndx) ; + VALUES (tnWB, tnSheet, tnCellRow, tnCellCol, DATA_TYPE_NONE, tnCellXfsId, False, -1, 0) + this.SetRowMaxColumn(tnWB, tnSheet, lnRow, lnCol) + ENDIF + RETURN True + ELSE + RETURN False + ENDIF + ENDPROC + + PROCEDURE setcellstylerange && Sets the cell style for a range of cells + LPARAMETERS tnWB, tnSheet, tnBegRow, tnBegCol, tnEndRow, tnEndCol, tnCellXfsId + LOCAL lnRow, lnCol + IF PCOUNT() < 7 .OR. tnBegRow > tnEndRow .OR. tnBegCol > tnEndCol + RETURN False + ENDIF + IF SEEK(BINTOC(tnWB)+BINTOC(tnCellXfsId), "xl_cellxfs", "id") + FOR lnRow=tnBegRow TO tnEndRow + FOR lnCol=tnBegCol TO tnEndCol + IF this.GetCellRecord(tnWB, tnSheet, lnRow, lnCol) + REPLACE xl_cells.cellxfs WITH tnCellXfsId IN xl_cells + ELSE + INSERT INTO xl_cells (workbook, sheet, cellrow, cellcol, datatype, cellxfs, celldeleted, numdec, validndx) ; + VALUES (tnWB, tnSheet, lnRow, lnCol, DATA_TYPE_NONE, tnCellXfsId, False, -1, 0) + this.SetRowMaxColumn(tnWB, tnSheet, lnRow, lnCol) + ENDIF + ENDFOR + ENDFOR + RETURN True + ELSE + RETURN False + ENDIF + ENDPROC + + PROCEDURE setcelltextrotation && Sets the cell text rotation value + LPARAMETERS tnWB, tnSheet, tnCellRow, tnCellCol, tnRotation + LOCAL lnCellXfsId, lcAlias + IF PCOUNT() != 5 .OR. this.IsCellReferenceInvalid(tnCellRow, tnCellCol) + RETURN False + ENDIF + IF VARTYPE(tnRotation) != 'N' + RETURN False + ENDIF + IF !BETWEEN(tnRotation, -90, 90) + RETURN False + ENDIF + lcAlias = ALIAS() + tnRotation = FLOOR(tnRotation) + IF tnRotation < 0 + tnRotation = 90 - tnRotation + ENDIF + IF this.GetCellRecord(tnWB, tnSheet, tnCellRow, tnCellCol) + IF xl_cells.cellxfs > 0 .AND. this.GetCellXfsRecord(tnWB, xl_cells.cellxfs) + lnCellXfsId = xl_cellxfs.id + SELECT workbook FROM xl_cells WHERE workbook = tnWB AND cellxfs = lnCellXfsId INTO CURSOR xl_temp + IF _TALLY > 1 + lnCellXfsId = this.GetCellXfsId(tnWB, xl_cellxfs.numFmtId, xl_cellxfs.fontid, xl_cellxfs.fillid, xl_cellxfs.borderId, xl_cellxfs.halign, xl_cellxfs.valign, xl_cellxfs.indent, xl_cellxfs.wraptext, tnRotation) + ELSE + REPLACE xl_cellxfs.rotation WITH tnRotation IN xl_cellxfs + ENDIF + USE IN SELECT('xl_temp') + ELSE + lnCellXfsId = this.GetCellXfsId(tnWB, 0, 0, 0, 0, "", "", 0, 0, tnRotation) + ENDIF + REPLACE xl_cells.cellxfs WITH lnCellXfsId IN xl_cells + ELSE + lnCellXfsId = this.GetCellXfsId(tnWB, 0, 0, 0, 0, "", "", 0, 0, tnRotation) + INSERT INTO xl_cells (workbook, sheet, cellrow, cellcol, datatype, cellxfs, celldeleted, numdec, validndx) ; + VALUES (tnWB, tnSheet, tnCellRow, tnCellCol, DATA_TYPE_NONE, lnCellXfsId, False, -1, 0) + this.SetRowMaxColumn(tnWB, tnSheet, tnCellRow, tnCellCol) + ENDIF + IF !EMPTY(lcAlias) + SELECT &lcAlias + ENDIF + RETURN True + ENDPROC + + PROCEDURE setcellvalidation && Adds a cell validation + LPARAMETERS tnWB, tnSheet, tnCellRow, tnCellCol, tnType, tnStyle, tnOperator, tlAllowBlank, tlShowInputMsg, tlShowErrMsg, tcErrMsg, tcErrTitle, tcPrompt, tcFormula1, tcFormula2 + LOCAL lcAlias, lnIndex, llFormula + lcAlias = ALIAS() + IF PCOUNT() < 14 .OR. this.IsCellReferenceInvalid(tnCellRow, tnCellCol) + RETURN False + ENDIF + IF !BETWEEN(tnType, 0, CUSTOM_VALID_TYPE) + RETURN False + ENDIF + IF VARTYPE(tcFormula1) != "C" + tcFormula1 = TRANSFORM(tcFormula1) + ENDIF + IF EMPTY(tcFormula1) .OR. LEN(tcFormula1) > 254 + RETURN False + ENDIF + IF LEFT(tcFormula1, 1) = "=" + llFormula = True + tcFormula1 = ALLTRIM(SUBSTR(tcFormula1, 2)) + ELSE + llFormula = False + ENDIF + IF PCOUNT() < 15 + tcFormula2 = "" + ENDIF + IF VARTYPE(tcFormula2) != "C" + tcFormula2 = TRANSFORM(tcFormula2) + ENDIF + IF LEN(tcFormula2) > 254 + RETURN False + ENDIF + IF LEFT(tcFormula2, 1) = "=" + tcFormula2 = ALLTRIM(SUBSTR(tcFormula2, 2)) + ENDIF + IF VARTYPE(tnStyle) = "N" + IF !BETWEEN(tnStyle, 0, INFO_VALID_STYLE) + RETURN False + ENDIF + ELSE + tnStyle = 0 + ENDIF + IF VARTYPE(tnOperator) = "N" + IF !BETWEEN(tnOperator, 0, GREATOREQUAL_VALID_OPER) + RETURN False + ENDIF + ELSE + tnOperator = 0 + ENDIF + IF VARTYPE(tcErrMsg) != "C" + tcErrMsg = "" + ENDIF + IF VARTYPE(tcErrTitle) != "C" + tcErrTitle = "" + ENDIF + IF VARTYPE(tcPrompt) != "C" + tcPrompt = "" + ENDIF + IF VARTYPE(tlAllowBlank) != "L" + tlAllowBlank = True + ENDIF + IF VARTYPE(tlShowInputMsg) != "L" + tlShowInputMsg = True + ENDIF + IF VARTYPE(tlShowErrMsg) != "L" + tlShowErrMsg = True + ENDIF + *-* Check if the cell is part of a merged range of cells; if so set the cell to the upper left cell of the merged range + IF RECCOUNT('xl_mergecells') > 0 + SELECT xl_mergecells + LOCATE FOR workbook = tnWB .AND. sheet = tnSheet .AND. BETWEEN(tnCellRow, begrow, endrow) .AND. BETWEEN(tnCellCol, begcol, endcol) .AND. !DELETED() + IF FOUND() + tnCellRow = xl_mergecells.begrow + tnCellCol = xl_mergecells.begcol + ENDIF + ENDIF + SELECT xl_validation + LOCATE FOR BINTOC(workbook)+BINTOC(sheet) = BINTOC(tnWB)+BINTOC(tnSheet) ; + .AND. UPPER(formula1) = UPPER(PADR(tcFormula1, 240)) ; + .AND. UPPER(formula2) = UPPER(PADR(tcFormula2, 240)) .AND. !DELETED() + IF FOUND() + lnIndex = 0 + DO WHILE FOUND() + IF xl_validation.vtype = tnType ; + .AND. xl_validation.vstyle = tnStyle ; + .AND. xl_validation.voperator = tnOperator ; + .AND. xl_validation.errmsg = tcErrMsg ; + .AND. xl_validation.errtitle = tcErrTitle ; + .AND. xl_validation.allowblank = tlAllowBlank ; + .AND. xl_validation.showinpmsg = tlShowInputMsg ; + .AND. xl_validation.showerrmsg = tlShowErrMsg ; + .AND. xl_validation.vprompt = tcPrompt + + lnIndex = xl_validation.validndx + EXIT + ENDIF + CONTINUE + ENDDO + IF lnIndex = 0 + INSERT INTO xl_validation (workbook, sheet, vtype, vstyle, voperator, errmsg, errtitle, vprompt, allowblank, showinpmsg, showerrmsg, formula, formula1, formula2) ; + VALUES (tnWB, tnSheet, tnType, tnStyle, tnOperator, tcErrMsg, tcErrTitle, tcPrompt, tlAllowBlank, tlShowInputMsg, tlShowErrMsg, llFormula, tcFormula1, tcFormula2) + lnIndex = xl_validation.validndx + ENDIF + ELSE + INSERT INTO xl_validation (workbook, sheet, vtype, vstyle, voperator, errmsg, errtitle, vprompt, allowblank, showinpmsg, showerrmsg, formula, formula1, formula2) ; + VALUES (tnWB, tnSheet, tnType, tnStyle, tnOperator, tcErrMsg, tcErrTitle, tcPrompt, tlAllowBlank, tlShowInputMsg, tlShowErrMsg, llFormula, tcFormula1, tcFormula2) + lnIndex = xl_validation.validndx + ENDIF + IF this.GetCellRecord(tnWB, tnSheet, tnCellRow, tnCellCol) + REPLACE xl_cells.validndx WITH lnIndex IN xl_cells + ELSE + INSERT INTO xl_cells (workbook, sheet, cellrow, cellcol, datatype, cellxfs, celldeleted, numdec, validndx) ; + VALUES (tnWB, tnSheet, tnCellRow, tnCellCol, DATA_TYPE_NONE, 0, False, -1, lnIndex) + this.SetRowMaxColumn(tnWB, tnSheet, tnCellRow, tnCellCol) + ENDIF + IF !EMPTY(lcAlias) + SELECT &lcAlias + ENDIF + RETURN True + ENDPROC + + PROCEDURE setcellvalue && Sets the cell value + LPARAMETERS tnWB, tnSheet, tnCellRow, tnCellCol, txCellValue + LOCAL lcCellValue, lcDataType, lnStringNdx, lnSetDecimals, lnWholePart, lnFractPart, lcAlias, lnNumFmtId, lcHorzAlign + LOCAL lcSetDate, lcSetPoint, lcSeparator, lcCurrency + IF PCOUNT() < 5 .OR. this.IsCellReferenceInvalid(tnCellRow, tnCellCol) + RETURN False + ENDIF + lcAlias = ALIAS() + *-* Check if the cell is part of a merged range of cells; if so set the cell to the upper left cell of the merged range + IF RECCOUNT('xl_mergecells') > 0 + SELECT xl_mergecells + LOCATE FOR workbook = tnWB .AND. sheet = tnSheet .AND. tnCellRow >= begrow .AND. tnCellRow <= endrow .AND. tnCellCol >= begcol .AND. tnCellCol <= endcol .AND. !DELETED() + IF FOUND() + tnCellRow = xl_mergecells.begrow + tnCellCol = xl_mergecells.begcol + ENDIF + ENDIF + *-* Assign the data type based on type of value and add to cell + lnStringNdx = 0 + lcHorzAlign = "" + lnNumFmtId = 0 + lcSetPoint = SET("POINT") + lcSeparator = SET("SEPARATOR") + IF lcSetPoint != "." && Change recommended by Doug Hennig; 2017-06-12 + SET POINT TO "." + SET SEPARATOR TO "," + ENDIF + DO CASE + CASE VARTYPE(txCellValue) = DATA_TYPE_LOGICAL + lcDataType = DATA_TYPE_LOGICAL + lcCellValue = "StringValue" + txCellValue = IIF(txCellValue, GETWORDNUM(this.TrueFalseValue, 1, "|"), GETWORDNUM(this.TrueFalseValue, 2, "|")) + lnStringNdx = this.AddStringValue(tnWB, txCellValue, False) + + CASE VARTYPE(txCellValue) = DATA_TYPE_CHAR + txCellValue = ALLTRIM(txCellValue) + IF LEN(txCellValue) > LIMITS_MAX_CELL_CHARS + RETURN False + ENDIF + lcDataType = DATA_TYPE_CHAR + lcCellValue = "StringValue" + lnStringNdx = this.AddStringValue(tnWB, txCellValue, False) + DELETE FOR workbook = tnWB .AND. id = lnStringNdx IN xl_strformat + + CASE VARTYPE(txCellValue) = DATA_TYPE_DATE + IF txCellValue >= DATE(1900, 1, 1) + lcDataType = DATA_TYPE_DATE + lcCellValue = TRANSFORM(INT(txCellValue - DATE(1900, 1, 1) + 2)) + ELSE + lcDataType = DATA_TYPE_CHAR + lcCellValue = "StringValue" + lcSetDate = SET("DATE") + SET DATE TO AMERICAN + lnStringNdx = this.AddStringValue(tnWB, TRANSFORM(txCellValue), False) + SET DATE TO (lcSetDate) + ENDIF + lcHorzAlign = CELL_HORIZ_ALIGN_LEFT + lnNumFmtId = CELL_FORMAT_DATE_MMDDYY + + CASE VARTYPE(txCellValue) = DATA_TYPE_DATETIME + IF TTOD(txCellValue) >= DATE(1900, 1, 1) + lnSetDecimals = SET("DECIMALS") + SET DECIMALS TO 12 + lcDataType = DATA_TYPE_DATETIME + lnWholePart = INT(TTOD(txCellValue) - DATE(1900, 1, 1) + 2) + lnFractPart = ((HOUR(txCellValue) * 60 + MINUTE(txCellValue)) * 60 + SEC(txCellValue)) / (24 * 60 * 60) + lcCellValue = TRANSFORM(lnWholePart + lnFractPart) + SET DECIMALS TO (lnSetDecimals) + ELSE + lcDataType = DATA_TYPE_CHAR + lcCellValue = "StringValue" + lcSetDate = SET("DATE") + SET DATE TO AMERICAN + lnStringNdx = this.AddStringValue(tnWB, TRANSFORM(txCellValue), False) + SET DATE TO (lcSetDate) + ENDIF + lcHorzAlign = CELL_HORIZ_ALIGN_LEFT + lnNumFmtId = CELL_FORMAT_DATETIME_MMMDDYYYY_TTAM + + CASE VARTYPE(txCellValue) = DATA_TYPE_FLOAT + lcCellValue = TRANSFORM(txCellValue) + IF ATC(".", lcCellValue) > 0 + lcDataType = DATA_TYPE_FLOAT + ELSE + lcDataType = DATA_TYPE_INT + ENDIF + + CASE VARTYPE(txCellValue) = DATA_TYPE_CURRENCY + IF this.SaveCurrencyAsNumeric + lcDataType = DATA_TYPE_FLOAT && Change requested by Tony Federer + lcCellValue = TRANSFORM(MTON(txCellValue)) + ELSE + lcCurrency = SET("Currency", 1) + lcCellValue = CHRTRAN(TRANSFORM(txCellValue), lcCurrency+",", "") + lcDataType = DATA_TYPE_CURRENCY + lcHorzAlign = CELL_HORIZ_ALIGN_RIGHT + DO CASE + CASE lcCurrency = "£" + lnNumFmtId = CELL_FORMAT_ACC_CURR_POUNDS + + CASE lcCurrency = "€" + lnNumFmtId = CELL_FORMAT_ACC_CURR_EURO + + OTHERWISE + lnNumFmtId = CELL_FORMAT_CURRENCY_PAREN + ENDCASE + ENDIF + + CASE VARTYPE(txCellValue) = DATA_TYPE_GENERAL + lcDataType = DATA_TYPE_GENERAL + lcCellValue = "" && Change recommendation by Doug Hennig + + OTHERWISE + lcDataType = DATA_TYPE_GENERAL + lcCellValue = TRANSFORM(txCellValue) + ENDCASE + IF this.GetCellRecord(tnWB, tnSheet, tnCellRow, tnCellCol) + IF xl_cells.cellxfs > 0 .AND. this.GetCellXfsRecord(tnWB, xl_cells.cellxfs) + lnCellXfsId = xl_cellxfs.id + SELECT workbook FROM xl_cells WHERE workbook = tnWB AND cellxfs = lnCellXfsId INTO CURSOR xl_temp + IF _TALLY > 1 + lnCellXfsId = this.GetCellXfsId(tnWB, lnNumFmtId, xl_cellxfs.fontid, xl_cellxfs.fillid, xl_cellxfs.borderId, xl_cellxfs.halign, xl_cellxfs.valign, xl_cellxfs.indent, xl_cellxfs.wraptext, xl_cellxfs.rotation) + ELSE + REPLACE xl_cellxfs.numFmtId WITH lnNumFmtId IN xl_cellxfs + ENDIF + USE IN SELECT('xl_temp') + ELSE + lnCellXfsId = this.GetCellXfsId(tnWB, lnNumFmtId, 0, 0, 0, "", "", 0, 0, 0) + ENDIF + REPLACE xl_cells.cellvalue WITH lcCellValue, ; + xl_cells.cellxfs WITH lnCellXfsId, ; + xl_cells.cellformula WITH "", ; + xl_cells.stringid WITH lnStringNdx, ; + xl_cells.datatype WITH lcDataType, ; + xl_cells.celldeleted WITH False IN xl_cells + ELSE + IF lnNumFmtId > 0 + lnCellXfsId = this.GetCellXfsId(tnWB, lnNumFmtId, 0, 0, 0, "", "", 0, 0, 0) + ELSE + lnCellXfsId = 0 + ENDIF + INSERT INTO xl_cells (workbook, sheet, cellrow, cellcol, cellvalue, stringid, datatype, cellxfs, celldeleted, numdec, validndx) ; + VALUES (tnWB, tnSheet, tnCellRow, tnCellCol, lcCellValue, lnStringNdx, lcDataType, lnCellXfsId, False, -1, 0) + + this.SetRowMaxColumn(tnWB, tnSheet, tnCellRow, tnCellCol) + ENDIF + IF !EMPTY(lcAlias) + SELECT &lcAlias + ENDIF + IF lcSetPoint != "." && Change recommended by Doug Hennig; 2017-06-12 + SET POINT TO (lcSetPoint) + SET SEPARATOR TO (lcSeparator) + ENDIF + RETURN True + ENDPROC + + PROCEDURE setcellwordwrap && Sets the cell word-wrapping value + LPARAMETERS tnWB, tnSheet, tnCellRow, tnCellCol, tlWordWrap + LOCAL llReturn, lnWrapText, lnCellXfsId, lcAlias + IF PCOUNT() < 5 .OR. VARTYPE(tlWordWrap) != "L" .OR. this.IsCellReferenceInvalid(tnCellRow, tnCellCol) + RETURN False + ENDIF + lcAlias = ALIAS() + IF this.GetSheetRecord(tnWB, tnSheet) + lnWrapText = IIF(tlWordWrap, 1, 0) + *-* Set the XfsId to the cell record + IF this.GetCellRecord(tnWB, tnSheet, tnCellRow, tnCellCol) + IF xl_cells.cellxfs > 0 .AND. this.GetCellXfsRecord(tnWB, xl_cells.cellxfs) + lnCellXfsId = xl_cellxfs.id + SELECT workbook FROM xl_cells WHERE workbook = tnWB AND cellxfs = lnCellXfsId INTO CURSOR xl_temp + IF _TALLY > 1 + lnCellXfsId = this.GetCellXfsId(tnWB, xl_cellxfs.numFmtId, xl_cellxfs.fontId, xl_cellxfs.fillid, xl_cellxfs.borderId, xl_cellxfs.halign, xl_cellxfs.valign, xl_cellxfs.indent, lnWrapText, xl_cellxfs.rotation) + ELSE + REPLACE xl_cellxfs.wraptext WITH lnWrapText IN xl_cellxfs + ENDIF + USE IN SELECT('xl_temp') + ELSE + lnCellXfsId = this.GetCellXfsId(tnWB, 0, 0, 0, 0, "", "", 0, lnWrapText, 0) + ENDIF + REPLACE xl_cells.cellxfs WITH lnCellXfsId IN xl_cells + ELSE + lnCellXfsId = this.GetCellXfsId(tnWB, 0, 0, 0, 0, "", "", 0, lnWrapText, 0) + INSERT INTO xl_cells (workbook, sheet, cellrow, cellcol, datatype, cellxfs, celldeleted, numdec, validndx) ; + VALUES (tnWB, tnSheet, tnCellRow, tnCellCol, DATA_TYPE_NONE, lnCellXfsId, False, -1, 0) + this.SetRowMaxColumn(tnWB, tnSheet, tnCellRow, tnCellCol) + ENDIF + llReturn = True + ELSE + llReturn = False + ENDIF + IF !EMPTY(lcAlias) + SELECT &lcAlias + ENDIF + RETURN llReturn + ENDPROC + + PROCEDURE setcellwordwraprange && Sets the word wrap for a range of cells + LPARAMETERS tnWB, tnSheet, tnBegRow, tnBegCol, tnEndRow, tnEndCol, tlWordWrap + LOCAL lnRow, lnCol, llReturn + IF PCOUNT() < 7 .OR. VARTYPE(tlWordWrap) != "L" .OR. this.IsCellReferenceInvalid(tnBegRow, tnBegCol) .OR. this.IsCellReferenceInvalid(tnEndRow, tnEndCol) + RETURN False + ENDIF + IF tnBegRow > tnEndRow .OR. tnBegCol > tnEndCol + RETURN False + ENDIF + llReturn = True + FOR lnRow=tnBegRow TO tnEndRow + FOR lnCol=tnBegCol TO tnEndCol + IF !this.SetCellWordWrap(tnWB, tnSheet, lnRow, lnCol, tlWordWrap) + llReturn = False + EXIT + ENDIF + ENDFOR + ENDFOR + RETURN llReturn + ENDPROC + + PROCEDURE setcolumnbestfit && Set the column to best fit + LPARAMETERS tnWB, tnSheet, tnColumn, tlBestFit + LOCAL llReturn, lcAlias + IF PCOUNT() < 4 + RETURN False + ENDIF + lcAlias = ALIAS() + IF this.GetSheetRecord(tnWB, tnSheet) + IF SEEK(this.GetColWidthKeyExpr(tnWB, tnSheet, tnColumn), "xl_colwidths", "shcolumn") + REPLACE xl_colwidths.bestfit WITH tlBestFit IN xl_colwidths + ELSE + INSERT INTO xl_colwidths (workbook, sheet, column, bestfit) VALUES (tnWB, tnSheet, tnColumn, tlBestFit) + ENDIF + llReturn = True + ELSE + llReturn = False + ENDIF + IF !EMPTY(lcAlias) + SELECT &lcAlias + ENDIF + RETURN llReturn + ENDPROC + + PROCEDURE setcolumnwidth && Sets the column width + LPARAMETERS tnWB, tnSheet, tnColumn, tnWidth + LOCAL llReturn, lcAlias + IF PCOUNT() < 4 .OR. VARTYPE(tnWidth) != "N" + RETURN False + ENDIF + lcAlias = ALIAS() + IF this.GetSheetRecord(tnWB, tnSheet) + IF SEEK(this.GetColWidthKeyExpr(tnWB, tnSheet, tnColumn), "xl_colwidths", "shcolumn") + REPLACE xl_colwidths.width WITH tnWidth IN xl_colwidths + ELSE + INSERT INTO xl_colwidths (workbook, sheet, column, width, bestfit) VALUES (tnWB, tnSheet, tnColumn, tnWidth, False) + ENDIF + llReturn = True + ELSE + llReturn = False + ENDIF + IF !EMPTY(lcAlias) + SELECT &lcAlias + ENDIF + RETURN llReturn + ENDPROC + + PROCEDURE setcolumnwidthrange && Sets the column width for a range of columns + LPARAMETERS tnWB, tnSheet, tnBegCol, tnEndCol, tnWidth + LOCAL lnCol, llReturn + IF PCOUNT() < 5 + RETURN False + ENDIF + IF tnBegCol > tnEndCol + RETURN False + ENDIF + llReturn = True + FOR lnCol=tnBegCol TO tnEndCol + IF !this.SetColumnWidth(tnWB, tnSheet, lnCol, tnWidth) + llReturn = False + EXIT + ENDIF + ENDFOR + RETURN llReturn + ENDPROC + + PROCEDURE setcustompapersize && Sets the paper size based on custom dimensions + LPARAMETERS tnWB, tnSheet, tnWidth, tnHeight, tcDimen + LOCAL llReturn, lcAlias + lcAlias = ALIAS() + IF PCOUNT() = 5 .AND. this.GetSheetRecord(tnWB, tnSheet) + DO CASE + CASE tnWidth=0 .OR. tnHeight=0 + REPLACE xl_sheets.paperwidth WITH 0, ; + xl_sheets.paperheight WITH 0, ; + xl_sheets.paperdimen WITH "" IN xl_sheets + llReturn = True + + CASE tnWidth>0 .AND. tnHeight>0 .AND. INLIST(tcDimen, "mm", "in") + REPLACE xl_sheets.paperwidth WITH tnWidth, ; + xl_sheets.paperheight WITH tnHeight, ; + xl_sheets.paperdimen WITH LOWER(tcDimen) IN xl_sheets + llReturn = True + + OTHERWISE + llReturn = False + ENDCASE + ELSE + llReturn = False + ENDIF + IF !EMPTY(lcAlias) + SELECT &lcAlias + ENDIF + RETURN llReturn + ENDPROC + + PROCEDURE setdefaultborder && Sets the default border style for the workbook + LPARAMETERS tnWB, tcLStyle, tnLColor, tcRStyle, tnRColor, tcTStyle, tnTColor, tcBStyle, tnBColor, tcDStyle, tnDColor, tnDiagDn, tnDiagUp + LOCAL lcAlias + IF PCOUNT() < 2 + RETURN False + ENDIF + IF VARTYPE(tcLStyle) != "C" + tcLStyle = BORDER_STYLE_NONE + ENDIF + lcAlias = ALIAS() + DO CASE + CASE PCOUNT() = 2 + tnLColor = 0 + tcRStyle = tcLStyle + tnRColor = 0 + tcTStyle = tcLStyle + tnTColor = 0 + tcBStyle = tcLStyle + tnBColor = 0 + tcDStyle = tcLStyle + tnDColor = 0 + tnDiagDn = 0 + tnDiagUp = 0 + + CASE PCOUNT() = 3 + tcRStyle = tcLStyle + tnRColor = 0 + tcTStyle = tcLStyle + tnTColor = 0 + tcBStyle = tcLStyle + tnBColor = 0 + tcDStyle = tcLStyle + tnDColor = 0 + tnDiagDn = 0 + tnDiagUp = 0 + + CASE PCOUNT() = 4 + tnRColor = 0 + tcTStyle = tcLStyle + tnTColor = 0 + tcBStyle = tcLStyle + tnBColor = 0 + tcDStyle = tcLStyle + tnDColor = 0 + tnDiagDn = 0 + tnDiagUp = 0 + + CASE PCOUNT() = 5 + tcTStyle = tcLStyle + tnTColor = 0 + tcBStyle = tcLStyle + tnBColor = 0 + tcDStyle = tcLStyle + tnDColor = 0 + tnDiagDn = 0 + tnDiagUp = 0 + + CASE PCOUNT() = 6 + tnTColor = 0 + tcBStyle = tcLStyle + tnBColor = 0 + tcDStyle = tcLStyle + tnDColor = 0 + tnDiagDn = 0 + tnDiagUp = 0 + + CASE PCOUNT() = 7 + tcBStyle = tcLStyle + tnBColor = 0 + tcDStyle = tcLStyle + tnDColor = 0 + tnDiagDn = 0 + tnDiagUp = 0 + + CASE PCOUNT() = 8 + tnBColor = 0 + tcDStyle = tcLStyle + tnDColor = 0 + tnDiagDn = 0 + tnDiagUp = 0 + + CASE PCOUNT() = 9 + tcDStyle = tcLStyle + tnDColor = 0 + tnDiagDn = 0 + tnDiagUp = 0 + + CASE PCOUNT() = 10 + tnDColor = 0 + tnDiagDn = 0 + tnDiagUp = 0 + + CASE PCOUNT() = 11 + tnDiagDn = 0 + tnDiagUp = 0 + + CASE PCOUNT() = 12 + tnDiagUp = 0 + + ENDCASE + IF VARTYPE(tnLColor) != "N" + tnLColor = 0 + ENDIF + IF VARTYPE(tcRStyle) != "C" + tcRStyle = tcLStyle + ENDIF + IF VARTYPE(tnRColor) != "N" + tnRColor = 0 + ENDIF + IF VARTYPE(tcTStyle) != "C" + tcTStyle = tcLStyle + ENDIF + IF VARTYPE(tnTColor) != "N" + tnTColor = 0 + ENDIF + IF VARTYPE(tcBStyle) != "C" + tcBStyle = tcLStyle + ENDIF + IF VARTYPE(tnBColor) != "N" + tnBColor = 0 + ENDIF + IF VARTYPE(tcDStyle) != "C" + tcDStyle = tcLStyle + ENDIF + IF VARTYPE(tnDColor) != "N" + tnDColor = 0 + ENDIF + IF VARTYPE(tnDiagDn) != "N" + tnDiagDn = 0 + ENDIF + IF VARTYPE(tnDiagUp) != "N" + tnDiagUp = 0 + ENDIF + IF SEEK(BINTOC(tnWB)+BINTOC(0), "xl_borders", "id") + REPLACE xl_borders.lstyle WITH tcLStyle, ; + xl_borders.lcolor WITH tnLColor, ; + xl_borders.rstyle WITH tcRStyle, ; + xl_borders.rcolor WITH tnRColor, ; + xl_borders.tstyle WITH tcTStyle, ; + xl_borders.tcolor WITH tnTColor, ; + xl_borders.bstyle WITH tcBStyle, ; + xl_borders.bcolor WITH tnBColor, ; + xl_borders.dstyle WITH tcDStyle, ; + xl_borders.dcolor WITH tnDColor, ; + xl_borders.diagdn WITH tnDiagDn, ; + xl_borders.diagup WITH tnDiagUp IN xl_borders + ELSE + INSERT INTO xl_borders (workbook, id, lstyle, lcolor, rstyle, rcolor, tstyle, tcolor, bstyle, bcolor, dstyle, dcolor, diagdn, diagup) ; + VALUES (tnWB, 0, tcLStyle, tnLColor, tcRStyle, tnRColor, tcTStyle, tnTColor, tcBStyle, tnBColor, tcDStyle, tnDColor, tnDiagDn, tnDiagUp) + ENDIF + IF !EMPTY(lcAlias) + SELECT &lcAlias + ENDIF + RETURN True + ENDPROC + + PROCEDURE setdefaultfill && Sets the default fill for the workbook + LPARAMETERS tnWB, tcPatternType, tnFColor, tnBColor + LOCAL lnFIndex, lnBIndex, lcAlias + IF PCOUNT() < 2 + RETURN False + ENDIF + lcAlias = ALIAS() + IF VARTYPE(tcPatternType) != "C" + tcPatternType = FILL_STYLE_NONE + ENDIF + DO CASE + CASE PCOUNT() = 2 + tnFColor = 0 + lnFIndex = 0 + tnBColor = 0 + lnBIndex = 0 + + CASE PCOUNT() = 3 + tnBColor = 0 + lnBIndex = 64 + ENDCASE + IF VARTYPE(tnFColor) != "N" + tnFColor = 0 + ENDIF + IF VARTYPE(tnBColor) != "N" + tnBColor = RGB(255,255,255) + ENDIF + IF SEEK(BINTOC(tnWB)+BINTOC(0), "xl_fills", "id") + REPLACE xl_fills.fgcolor WITH tnFColor, ; + xl_fills.bgcolor WITH tnBColor, ; + xl_fills.patttype WITH tcPatternType, ; + xl_fills.theme WITH 0, ; + xl_fills.tint WITH 0, ; + xl_fills.fgindexed WITH 0, ; + xl_fills.bgindexed WITH 0 IN xl_fills + ELSE + INSERT INTO xl_fills (workbook, id, fgcolor, bgcolor, patttype, theme, tint, fgindexed, bgindexed) ; + VALUES (tnWB, 0, tnFColor, tnBColor, tcPatternType, 0, 0, lnFIndex, lnBIndex) + ENDIF + IF !EMPTY(lcAlias) + SELECT &lcAlias + ENDIF + RETURN True + ENDPROC + + PROCEDURE setdefaultfont && Sets the default font for the workbook + LPARAMETERS tnWB, tcFontName, tnSize, tlBold, tlItalic, tnColor, tcUline, tlStrkthr, tcFVPos, tnTheme, tnTint, tnIndexed + LOCAL lcAlias + IF PCOUNT() < 2 + RETURN False + ENDIF + lcAlias = ALIAS() + DO CASE + CASE PCOUNT() = 2 + tnSize = 11 + tlBold = False + tlItalic = False + tnColor = 0 + tcUline = "" + tlStrkthr = False + tcFVPos = "" + tnTheme = 0 + tnTint = 0 + tnIndexed = 0 + + CASE PCOUNT() = 3 + tlBold = False + tlItalic = False + tnColor = 0 + tcUline = "" + tlStrkthr = False + tcFVPos = "" + tnTheme = 0 + tnTint = 0 + tnIndexed = 0 + + CASE PCOUNT() = 4 + tlItalic = False + tnColor = 0 + tcUline = "" + tlStrkthr = False + tcFVPos = "" + tnTheme = 0 + tnTint = 0 + tnIndexed = 0 + + CASE PCOUNT() = 5 + tnColor = 0 + tcUline = "" + tlStrkthr = False + tcFVPos = "" + tnTheme = 0 + tnTint = 0 + tnIndexed = 0 + + CASE PCOUNT() = 6 + tcUline = "" + tlStrkthr = False + tcFVPos = "" + tnTheme = 0 + tnTint = 0 + tnIndexed = 0 + + CASE PCOUNT() = 7 + tlStrkthr = False + tcFVPos = "" + tnTheme = 0 + tnTint = 0 + tnIndexed = 0 + + CASE PCOUNT() = 8 + tcFVPos = "" + tnTheme = 0 + tnTint = 0 + tnIndexed = 0 + + CASE PCOUNT() = 9 + tnTheme = 0 + tnTint = 0 + tnIndexed = 0 + + CASE PCOUNT() = 10 + tnTint = 0 + tnIndexed = 0 + + CASE PCOUNT() = 11 + tnIndexed = 0 + ENDCASE + IF VARTYPE(tcFontName) != "C" + tcFontName = "Calibri" + ENDIF + IF VARTYPE(tnSize) != "N" + tnSize = 11 + ENDIF + IF VARTYPE(tlBold) != "L" + tlBold = False + ENDIF + IF VARTYPE(tlItalic) != "L" + tlItalic = False + ENDIF + IF VARTYPE(tnColor) != "N" + tnColor = 0 + ENDIF + IF VARTYPE(tcUline) != "C" + tcUline = "" + ENDIF + IF VARTYPE(tlStrkthr) != "L" + tlStrkthr = False + ENDIF + IF VARTYPE(tcFVPos) != "C" + tcFVPos = "" + ENDIF + IF VARTYPE(tnTheme) != "N" + tnTheme = 0 + ENDIF + IF VARTYPE(tnTint) != "N" + tnTint = 0 + ENDIF + IF VARTYPE(tnIndexed) != "N" + tnTint = 0 + ENDIF + IF SEEK(BINTOC(tnWB)+BINTOC(0), "xl_fonts", "id") + REPLACE xl_fonts.fname WITH tcFontName, ; + xl_fonts.fsize WITH tnSize, ; + xl_fonts.fbold WITH tlBold, ; + xl_fonts.fitalic WITH tlItalic, ; + xl_fonts.fcolor WITH tnColo , ; + xl_fonts.uline WITH tcUline, ; + xl_fonts.strkthr WITH tlStrkthr, ; + xl_fonts.fvpos WITH tcFVPos, ; + xl_fonts.theme WITH tnTheme, ; + xl_fonts.tint WITH tnTint, ; + xl_fonts.indexed WITH tnIndexed IN xl_fonts + ELSE + INSERT INTO xl_fonts (workbook, id, fname, fsize, fbold, fitalic, fcolor, uline, strkthr, fvpos, theme, tint, indexed) ; + VALUES (tnWB, 0, tcFontName, tnSize, tlBold, tlItalic, tnColor, tcUline, tlStrkthr, tcFVPos, tnTheme, tnTint, tnIndexed) + ENDIF + IF !EMPTY(lcAlias) + SELECT &lcAlias + ENDIF + RETURN true + ENDPROC + + PROCEDURE setheaderfootersetup && Sets the header and footer setup for the sheet + LPARAMETERS tnWB, tnSheet, tlAlignMargin, tlDiffFirstPg, tlDiffOddEven, tlScaleWDoc + LOCAL llReturn, lcAlias + lcAlias = ALIAS() + IF PCOUNT() = 6 .AND. this.GetSheetRecord(tnWB, tnSheet) + IF SEEK(BINTOC(tnWB)+BINTOC(tnSheet), "xl_hdrfooterdefn", "wbsheet") + REPLACE xl_hdrfooterdefn.alignmargin WITH tlAlignMargin, ; + xl_hdrfooterdefn.difffirstpg WITH tlDiffFirstPg, ; + xl_hdrfooterdefn.diffoddeven WITH tlDiffOddEven, ; + xl_hdrfooterdefn.scalewdoc WITH tlScaleWDoc IN xl_hdrfooterdefn + ELSE + INSERT INTO xl_hdrfooterdefn (workbook, sheet, alignmargin, difffirstpg, diffoddeven, scalewdoc) ; + VALUES (tnWB, tnSheet, tlAlignMargin, tlDiffFirstPg, tlDiffOddEven, tlScaleWDoc) + ENDIF + llReturn = True + ELSE + llReturn = False + ENDIF + IF !EMPTY(lcAlias) + SELECT &lcAlias + ENDIF + RETURN llReturn + ENDPROC + + PROCEDURE setheaderfootertext && Sets the header/footer text for the sheet + LPARAMETERS tnWB, tnSheet, tnPage, tnSection, tcText, tcFontName, tnFontSize, tnFontEffect, tnFontColor + LOCAL llReturn, lcAlias + DO CASE + CASE PCOUNT() < 5 + RETURN False + + CASE PCOUNT() = 5 + tcFontName = "" + tnFontSize = 0 + tnFontEffect = 0 + tnFontColor = 0 + + CASE PCOUNT() = 6 + tnFontSize = 0 + tnFontEffect = 0 + tnFontColor = 0 + + CASE PCOUNT() = 7 + tnFontEffect = 0 + tnFontColor = 0 + + CASE PCOUNT() = 8 + tnFontColor = 0 + ENDCASE + IF VARTYPE(tcFontName) != "C" + tcFontName = "" + ENDIF + IF VARTYPE(tnFontSize) != "N" + tnFontSize = 0 + ENDIF + IF VARTYPE(tnFontEffect) != "N" + tnFontEffect = 0 + ENDIF + IF VARTYPE(tnFontColor) != "N" + tnFontColor = 0 + ENDIF + lcAlias = ALIAS() + IF this.GetSheetRecord(tnWB, tnSheet) + IF SEEK(BINTOC(tnWB)+BINTOC(tnSheet), "xl_hdrfooterdefn", "wbsheet") + IF SEEK(this.GetHeaderFooterKeyExpr(tnWB, tnSheet, tnPage, tnSection), "xl_hdrfootertext", "hdrfootr") + REPLACE xl_hdrfootertext.text WITH tcText, ; + xl_hdrfootertext.fontname WITH tcFontName, ; + xl_hdrfootertext.fontsize WITH tnFontSize, ; + xl_hdrfootertext.fontstyle WITH tnFontEffect, ; + xl_hdrfootertext.fontcolor WITH tnFontColor IN xl_hdrfootertext + ELSE + INSERT INTO xl_hdrfootertext (workbook, sheet, page, section, text, fontname, fontsize, fontstyle, fontcolor) ; + VALUES (tnWB, tnSheet, tnPage, tnSection, tcText, tcFontName, tnFontSize, tnFontEffect, tnFontColor) + ENDIF + llReturn = True + ELSE + llReturn = False + ENDIF + ELSE + llReturn = False + ENDIF + IF !EMPTY(lcAlias) + SELECT &lcAlias + ENDIF + RETURN llReturn + ENDPROC + + PROTECTED PROCEDURE setlastid && Sets the last used Id Value for strings, borders, fills, fonts, and cellxfs + LPARAMETERS tnWB, tnLastId, tcCursor + LOCAL lnNdx + DO CASE + CASE tcCursor = "xl_borders" + lnNdx = ASCAN(this.LastBorderId, tnWB, 1, -1, 1, 15) + IF lnNdx > 0 + this.LastBorderId[lnNdx, 2] = tnLastId + ELSE + IF this.LastBorderId[1, 1] = 0 + lnNdx = 1 + ELSE + lnNdx = ALEN(this.LastBorderId, 1) + 1 + ENDIF + DIMENSION this.LastBorderId[lnNdx, 2] + this.LastBorderId[lnNdx, 1] = tnWB + this.LastBorderId[lnNdx, 2] = tnLastId + ENDIF + + CASE tcCursor = "xl_cellxfs" + lnNdx = ASCAN(this.LastCellXfsId, tnWB, 1, -1, 1, 15) + IF lnNdx > 0 + this.LastCellXfsId[lnNdx, 2] = tnLastId + ELSE + IF this.LastCellXfsId[1, 1] = 0 + lnNdx = 1 + ELSE + lnNdx = ALEN(this.LastCellXfsId, 1) + 1 + ENDIF + DIMENSION this.LastCellXfsId[lnNdx, 2] + this.LastCellXfsId[lnNdx, 1] = tnWB + this.LastCellXfsId[lnNdx, 2] = tnLastId + ENDIF + + CASE tcCursor = "xl_fills" + lnNdx = ASCAN(this.LastFillId, tnWB, 1, -1, 1, 15) + IF lnNdx > 0 + this.LastFillId[lnNdx, 2] = tnLastId + ELSE + IF this.LastFillId[1, 1] = 0 + lnNdx = 1 + ELSE + lnNdx = ALEN(this.LastFillId, 1) + 1 + ENDIF + DIMENSION this.LastFillId[lnNdx, 2] + this.LastFillId[lnNdx, 1] = tnWB + this.LastFillId[lnNdx, 2] = tnLastId + ENDIF + + CASE tcCursor = "xl_fonts" + lnNdx = ASCAN(this.LastFontId, tnWB, 1, -1, 1, 15) + IF lnNdx > 0 + this.LastFontId[lnNdx, 2] = tnLastId + ELSE + IF this.LastFontId[1, 1] = 0 + lnNdx = 1 + ELSE + lnNdx = ALEN(this.LastFontId, 1) + 1 + ENDIF + DIMENSION this.LastFontId[lnNdx, 2] + this.LastFontId[lnNdx, 1] = tnWB + this.LastFontId[lnNdx, 2] = tnLastId + ENDIF + + CASE tcCursor = "xl_ndxcolors" + lnNdx = ASCAN(this.LastIndexColorId, tnWB, 1, -1, 1, 15) + IF lnNdx > 0 + this.LastIndexColorId[lnNdx, 2] = tnLastId + ELSE + IF this.LastIndexColorId[1, 1] = 0 + lnNdx = 1 + ELSE + lnNdx = ALEN(this.LastIndexColorId, 1) + 1 + ENDIF + DIMENSION this.LastIndexColorId[lnNdx, 2] + this.LastIndexColorId[lnNdx, 1] = tnWB + this.LastIndexColorId[lnNdx, 2] = tnLastId + ENDIF + + CASE tcCursor = "xl_mrucolors" + lnNdx = ASCAN(this.LastMruColorId, tnWB, 1, -1, 1, 15) + IF lnNdx > 0 + this.LastMruColorId[lnNdx, 2] = tnLastId + ELSE + IF this.LastMruColorId[1, 1] = 0 + lnNdx = 1 + ELSE + lnNdx = ALEN(this.LastMruColorId, 1) + 1 + ENDIF + DIMENSION this.LastMruColorId[lnNdx, 2] + this.LastMruColorId[lnNdx, 1] = tnWB + this.LastMruColorId[lnNdx, 2] = tnLastId + ENDIF + + CASE tcCursor = "xl_numfmts" + lnNdx = ASCAN(this.LastNumFmtId, tnWB, 1, -1, 1, 15) + IF lnNdx > 0 + this.LastNumFmtId[lnNdx, 2] = tnLastId + ELSE + IF this.LastNumFmtId[1, 1] = 0 + lnNdx = 1 + ELSE + lnNdx = ALEN(this.LastNumFmtId, 1) + 1 + ENDIF + DIMENSION this.LastNumFmtId[lnNdx, 2] + this.LastNumFmtId[lnNdx, 1] = tnWB + this.LastNumFmtId[lnNdx, 2] = tnLastId + ENDIF + + CASE tcCursor = "xl_relationships" + lnNdx = ASCAN(this.LastRelationId, tnWB, 1, -1, 1, 15) + IF lnNdx > 0 + this.LastRelationId[lnNdx, 2] = tnLastId + ELSE + IF this.LastRelationId[1, 1] = 0 + lnNdx = 1 + ELSE + lnNdx = ALEN(this.LastRelationId, 1) + 1 + ENDIF + DIMENSION this.LastRelationId[lnNdx, 2] + this.LastRelationId[lnNdx, 1] = tnWB + this.LastRelationId[lnNdx, 2] = tnLastId + ENDIF + + CASE tcCursor = "xl_sheets" + lnNdx = ASCAN(this.LastSheetId, tnWB, 1, -1, 1, 15) + IF lnNdx > 0 + this.LastSheetId[lnNdx, 2] = tnLastId + ELSE + IF this.LastSheetId[1, 1] = 0 + lnNdx = 1 + ELSE + lnNdx = ALEN(this.LastSheetId, 1) + 1 + ENDIF + DIMENSION this.LastSheetId[lnNdx, 2] + this.LastSheetId[lnNdx, 1] = tnWB + this.LastSheetId[lnNdx, 2] = tnLastId + ENDIF + + CASE tcCursor = "xl_strings" + lnNdx = ASCAN(this.LastStringId, tnWB, 1, -1, 1, 15) + IF lnNdx > 0 + this.LastStringId[lnNdx, 2] = tnLastId + ELSE + IF this.LastStringId[1, 1] = 0 + lnNdx = 1 + ELSE + lnNdx = ALEN(this.LastStringId, 1) + 1 + ENDIF + DIMENSION this.LastStringId[lnNdx, 2] + this.LastStringId[lnNdx, 1] = tnWB + this.LastStringId[lnNdx, 2] = tnLastId + ENDIF + ENDCASE + ENDPROC + + PROCEDURE setpapersize && Sets the paper size for the selected sheet + LPARAMETERS tnWB, tnSheet, tnPaperSize + LOCAL llReturn, lcAlias + lcAlias = ALIAS() + IF PCOUNT() = 3 .AND. this.GetSheetRecord(tnWB, tnSheet) + IF BETWEEN(tnPaperSize, 0, 118) + REPLACE xl_sheets.papersize WITH tnPaperSize IN xl_sheets + llReturn = True + ELSE + llReturn = False + ENDIF + ELSE + llReturn = False + ENDIF + IF !EMPTY(lcAlias) + SELECT &lcAlias + ENDIF + RETURN llReturn + ENDPROC + + PROCEDURE setprintfittoheight && Number of vertical pages to fit on for printing + LPARAMETERS tnWB, tnSheet, tnFitToHeight + LOCAL llReturn + lcAlias = ALIAS() + IF PCOUNT() = 3 .AND. this.GetSheetRecord(tnWB, tnSheet) + IF INT(tnFitToHeight) >= 0 + REPLACE xl_sheets.fittoheight WITH INT(tnFitToHeight) IN xl_sheets + llReturn = True + ELSE + llReturn = False + ENDIF + ELSE + llReturn = False + ENDIF + IF !EMPTY(lcAlias) + SELECT &lcAlias + ENDIF + RETURN llReturn + ENDPROC + + PROCEDURE setprintfittowidth && Number of horizontal pages to fit on for printing + LPARAMETERS tnWB, tnSheet, tnFitToWidth + LOCAL llReturn, lcAlias + lcAlias = ALIAS() + IF PCOUNT() = 3 .AND. this.GetSheetRecord(tnWB, tnSheet) + IF INT(tnFitToWidth) >= 0 + REPLACE xl_sheets.fittowidth WITH INT(tnFitToWidth) IN xl_sheets + llReturn = True + ELSE + llReturn = False + ENDIF + ELSE + llReturn = False + ENDIF + IF !EMPTY(lcAlias) + SELECT &lcAlias + ENDIF + RETURN llReturn + ENDPROC + + PROCEDURE setprintorientation && Sets the printer orientation for sheet output + LPARAMETERS tnWB, tnSheet, tnOrientation + LOCAL llReturn, lcAlias + lcAlias = ALIAS() + IF PCOUNT() = 3 .AND. this.GetSheetRecord(tnWB, tnSheet) + REPLACE xl_sheets.prnorient WITH tnOrientation IN xl_sheets + llReturn = True + ELSE + llReturn = False + ENDIF + IF !EMPTY(lcAlias) + SELECT &lcAlias + ENDIF + RETURN llReturn + ENDPROC + + PROCEDURE setrowheight && Sets the row height + LPARAMETERS tnWB, tnSheet, tnRow, tnHeight + LOCAL llReturn, lcAlias + IF PCOUNT() < 4 .OR. VARTYPE(tnHeight) != "N" + RETURN False + ENDIF + lcAlias = ALIAS() + IF this.GetSheetRecord(tnWB, tnSheet) + IF SEEK(this.GetRowHeightKeyExpr(tnWB, tnSheet, tnRow), "xl_rowheights", "shrow") + REPLACE xl_rowheights.height WITH tnHeight IN xl_rowheights + ELSE + INSERT INTO xl_rowheights (workbook, sheet, row, height) VALUES (tnWB, tnSheet, tnRow, tnHeight) + ENDIF + llReturn = True + ELSE + llReturn = False + ENDIF + IF !EMPTY(lcAlias) + SELECT &lcAlias + ENDIF + RETURN llReturn + ENDPROC + + PROCEDURE setrowheightrange && Sets the row height for a range of rows + LPARAMETERS tnWB, tnSheet, tnBegRow, tnEndRow, tnHeight + LOCAL lnRow, llReturn + IF PCOUNT() < 5 + RETURN False + ENDIF + IF tnBegRow > tnEndRow + RETURN False + ENDIF + llReturn = True + FOR lnRow=tnBegRow TO tnEndRow + IF !this.SetRowHeight(tnWB, tnSheet, lnRow, tnHeight) + llReturn = False + EXIT + ENDIF + ENDFOR + RETURN llReturn + ENDPROC + + PROTECTED PROCEDURE setrowmaxcolumn && Sets the value for the maximum cell column in a row + LPARAMETERS tnWB, tnSheet, tnCellRow, tnCellCol + IF SEEK(BINTOC(tnWB)+BINTOC(tnSheet)+BINTOC(tnCellRow), "xl_rows", "id") + IF xl_rows.maxcol < tnCellCol + REPLACE xl_rows.maxcol WITH tnCellCol IN xl_rows + ENDIF + ELSE + INSERT INTO xl_rows (workbook, sheet, row, maxcol) VALUES (tnWB, tnSheet, tnCellRow, tnCellCol) + ENDIF + ENDPROC + + PROCEDURE setsheetmargins && Sets the sheet margin values + LPARAMETERS tnWB, tnSheet, tnLeft, tnRight, tnTop, tnbot, tnHeader, tnFooter + LOCAL llReturn, lcAlias + lcAlias = ALIAS() + IF PCOUNT() = 8 .AND. this.GetSheetRecord(tnWB, tnSheet) + REPLACE xl_sheets.mleft WITH tnLeft, ; + xl_sheets.mright WITH tnRight, ; + xl_sheets.mtop WITH tnTop, ; + xl_sheets.mbot WITH tnbot, ; + xl_sheets.mheader WITH tnHeader, ; + xl_sheets.mfooter WITH tnFooter IN xl_sheets + llReturn = True + ELSE + llReturn = False + ENDIF + IF !EMPTY(lcAlias) + SELECT &lcAlias + ENDIF + RETURN llReturn + ENDPROC + + PROCEDURE setsheetscale && Sets the print scale; must be between 10 and 400; i.e. 10=10%, 100=100%, etc. + LPARAMETERS tnWB, tnSheet, tnScale + LOCAL llReturn, lcAlias + lcAlias = ALIAS() + IF PCOUNT() = 3 .AND. this.GetSheetRecord(tnWB, tnSheet) + IF BETWEEN(INT(tnScale), 10, 400) + REPLACE xl_sheets.scale WITH INT(tnScale) IN xl_sheets + llReturn = True + ELSE + llReturn = False + ENDIF + ELSE + llReturn = False + ENDIF + IF !EMPTY(lcAlias) + SELECT &lcAlias + ENDIF + RETURN llReturn + ENDPROC + + PROCEDURE setsheetvisibility && Sets the sheet visibility + LPARAMETERS tnWB, tnSheet, tnVisiblity + LOCAL llReturn, lcAlias + llReturn = False + lcAlias = ALIAS() + IF PCOUNT() = 3 .AND. this.GetSheetRecord(tnWB, tnSheet) + IF BETWEEN(tnVisiblity, VISIBLE_SHEET_STATE, VERYHIDDEN_SHEET_STATE) + REPLACE xl_sheets.state WITH tnVisiblity IN xl_sheets + llReturn = True + ENDIF + ENDIF + IF !EMPTY(lcAlias) + SELECT &lcAlias + ENDIF + RETURN llReturn + ENDPROC + + PROTECTED PROCEDURE ttoc3 && Equlivalent of TTOC() function for pre VFP9 support + LPARAMETERS ttime + LOCAL lct + IF PCOUNT() < 1 OR VARTYPE(m.ttime) != "T" + RETURN + ENDIF + lct = TTOC(m.ttime,1) + RETURN LEFT(m.lct,4) + "-" + SUBSTR(m.lct,5,2) + "-" + SUBSTR(m.lct,7,2) + "T" + SUBSTR(m.lct,9,2) + ":" + SUBSTR(m.lct,11,2) + ":" + RIGHT(m.lct,2) + ENDPROC + + PROCEDURE unfreezepanes && Removes the pane freeze from the sheet + LPARAMETERS tnWB, tnSheet + LOCAL llReturn, lcAlias + lcAlias = ALIAS() + IF this.GetSheetRecord(tnWB, tnSheet) + REPLACE xl_sheets.xsplit WITH 0, ; + xl_sheets.ysplit WITH 0 IN xl_sheets + llReturn = True + ELSE + llReturn = False + ENDIF + IF !EMPTY(lcAlias) + SELECT &lcAlias + ENDIF + RETURN llReturn + ENDPROC + + PROCEDURE unmergedcells && Unmerges merged cells + LPARAMETERS tnWB, tnSheet, tnBegRow, tnBegCol, tnEndRow, tnEndCol + LOCAL llReturn, lcAlias + lcAlias = ALIAS() + SELECT xl_mergecells + LOCATE FOR workbook=tnWB .AND. sheet=tnSheet .AND. begrow=tnBegRow .AND. begcol=tnBegCol .AND. endrow=tnEndRow .AND. endcol=tnEndCol .AND. !DELETED() + IF FOUND() + DELETE IN xl_mergecells + llReturn = True + ELSE + llReturn = False + ENDIF + IF !EMPTY(lcAlias) + SELECT &lcAlias + ENDIF + RETURN llReturn + ENDPROC + + PROTECTED PROCEDURE writeasinlineformattedstring && Writes the string as formatted in-line + LPARAMETERS thFile, tnRow, tnCol, txCellValue + FWRITE(thFile, '') + FWRITE(thFile, '') + FWRITE(thFile, '') + FWRITE(thFile, '') + FWRITE(thFile, '') + FWRITE(thFile, '') + FWRITE(thFile, '') + FWRITE(thFile, '' + this.GetXMLString(txCellValue) + '') + FWRITE(thFile, '') + FWRITE(thFile, '') + FWRITE(thFile, '') + ENDPROC + + PROTECTED PROCEDURE writeasinlinestring && Writes the value as an inlineStr value + LPARAMETERS thFile, tnRow, tnCol, txCellValue + FWRITE(thFile, '') + FWRITE(thFile, '' + this.GetXMLString(txCellValue) + '') + FWRITE(thFile, '') + ENDPROC + + PROTECTED PROCEDURE writedirectcellformattedvalue && WriteDirectCellFormattedValue + LPARAMETERS thFile, tnRow, tnCol, txCellValue + DO CASE + CASE ISNULL(txCellValue) + RETURN + + CASE INLIST(VARTYPE(txCellValue), "C", "D", "T") .AND. EMPTY(txCellValue) + RETURN + + CASE VARTYPE(txCellValue) = DATA_TYPE_DATE + this.WriteAsInLineFormattedString(thFile, tnRow, tnCol, TRANSFORM(txCellValue)) + + CASE VARTYPE(txCellValue) = DATA_TYPE_DATETIME + this.WriteAsInLineFormattedString(thFile, tnRow, tnCol, TTOC(txCellValue)) + + CASE VARTYPE(txCellValue) = DATA_TYPE_LOGICAL + txCellValue = IIF(txCellValue, GETWORDNUM(this.TrueFalseValue, 1, "|"), GETWORDNUM(this.TrueFalseValue, 2, "|")) + this.WriteAsInLineFormattedString(thFile, tnRow, tnCol, txCellValue) + + CASE VARTYPE(txCellValue) = DATA_TYPE_CURRENCY + FWRITE(thFile, '') + FWRITE(thFile, '' + TRANSFORM(MTON(txCellValue)) + '') + + CASE VARTYPE(txCellValue) = DATA_TYPE_CHAR + this.WriteAsInLineFormattedString(thFile, tnRow, tnCol, ALLTRIM(txCellValue)) + + CASE INLIST(VARTYPE(txCellValue), DATA_TYPE_INT, DATA_TYPE_FLOAT) + FWRITE(thFile, '') + FWRITE(thFile, '' + TRANSFORM(txCellValue) + '') + + OTHERWISE + FWRITE(thFile, '') + FWRITE(thFile, 'Unsupported Field Type') + ENDCASE + ENDPROC + + PROTECTED PROCEDURE writedirectcellvalue && Writes the cell value directly to the sheets xml + LPARAMETERS thFile, tnRow, tnCol, txCellValue + DO CASE + CASE ISNULL(txCellValue) + RETURN + + CASE INLIST(VARTYPE(txCellValue), "C", "D", "T") .AND. EMPTY(txCellValue) + RETURN + + CASE VARTYPE(txCellValue) = DATA_TYPE_DATE + this.WriteAsInLineString(thFile, tnRow, tnCol, TRANSFORM(txCellValue)) + + CASE VARTYPE(txCellValue) = DATA_TYPE_DATETIME + this.WriteAsInLineString(thFile, tnRow, tnCol, TTOC(txCellValue)) + + CASE VARTYPE(txCellValue) = DATA_TYPE_LOGICAL + txCellValue = IIF(txCellValue, GETWORDNUM(this.TrueFalseValue, 1, "|"), GETWORDNUM(this.TrueFalseValue, 2, "|")) + this.WriteAsInLineString(thFile, tnRow, tnCol, txCellValue) + + CASE VARTYPE(txCellValue) = DATA_TYPE_CURRENCY + FWRITE(thFile, '') + FWRITE(thFile, '' + TRANSFORM(MTON(txCellValue)) + '') + + CASE VARTYPE(txCellValue) = DATA_TYPE_CHAR + this.WriteAsInLineString(thFile, tnRow, tnCol, ALLTRIM(txCellValue)) + + CASE INLIST(VARTYPE(txCellValue), DATA_TYPE_INT, DATA_TYPE_FLOAT) + FWRITE(thFile, '') + FWRITE(thFile, '' + TRANSFORM(txCellValue) + '') + + OTHERWISE + FWRITE(thFile, '') + FWRITE(thFile, 'Unsupported Field Type') + ENDCASE + ENDPROC + + PROTECTED PROCEDURE writedirectxmls && Writes the workbook XMLs for direct table/grid to workbook output + LPARAMETERS tcPath, taSheetNames + LOCAL lhFile, lcFileName, loException, lcSheetName, lnSheet, lnNumSheets + EXTERNAL ARRAY taSheetNames + *-* Create the supporting XML files + loException = .NULL. + TRY + lnNumSheets = ALEN(taSheetNames, 1) + CATCH TO loException + ENDTRY + IF !ISNULL(loException) + RETURN False + ENDIF + TRY + lhFile = FCREATE(tcPath + "[Content_Types].xml") + IF lhFile < 0 + THROW + ENDIF + FWRITE(lhFile, '') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + FOR lnSheet=1 TO lnNumSheets + FWRITE(lhFile, '') + ENDFOR + FWRITE(lhFile, '') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + FCLOSE(lhFile) + + *-* Save the .rels XML + lhFile = FCREATE(tcPath + "_rels\.rels") + IF lhFile < 0 + THROW + ENDIF + FWRITE(lhFile, '') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + FCLOSE(lhFile) + + *-* Write the workbook relationships file + lhFile = FCREATE(tcPath + "xl\_rels\workbook.xml.rels") + IF lhFile < 0 + THROW + ENDIF + FWRITE(lhFile, '') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + FOR lnSheet=1 TO lnNumSheets + FWRITE(lhFile, '') + ENDFOR + FWRITE(lhFile, '') + FCLOSE(lhFile) + + *-* Save the app XML + lcFileName = tcPath + "docProps\app.xml" + lhFile = FCREATE(lcFileName) + IF lhFile < 0 + THROW + ENDIF + FWRITE(lhFile, '') + FWRITE(lhFile, '') + FWRITE(lhFile, 'ExcelXMLX Release ' + TRANSFORM(this.ExcelXlsxRelease) + '') + IF !EMPTY(this.CompanyName) + FWRITE(lhFile, '' + this.CompanyName + '') + ENDIF + FWRITE(lhFile, '') + FCLOSE(lhFile) + this.SaveAsUTF8(lcFileName) + + *-* Save the core XML + lcFileName = tcPath + "docProps\core.xml" + lhFile = FCREATE(lcFileName) + IF lhFile < 0 + THROW + ENDIF + FWRITE(lhFile, '') + FWRITE(lhFile, '') + IF !EMPTY(this.Title) + FWRITE(lhFile, '' + this.GetXMLString(this.Title) + '') + ENDIF + IF !EMPTY(this.Subject) + FWRITE(lhFile, '' + this.GetXMLString(this.Subject) + '') + ENDIF + IF !EMPTY(this.CreatorName) + FWRITE(lhFile, '' + this.GetXMLString(this.CreatorName) + '') + ENDIF + IF !EMPTY(this.UserName) + FWRITE(lhFile, '' + this.GetXMLString(this.UserName) + '') + ENDIF + IF VERSION(5) < 900 + FWRITE(lhFile, '' + this.TTOC3(DATETIME()) + 'Z') + FWRITE(lhFile, '' + this.TTOC3(DATETIME()) + 'Z') + ELSE + FWRITE(lhFile, '' + TTOC(DATETIME(), 3) + 'Z') + FWRITE(lhFile, '' + TTOC(DATETIME(), 3) + 'Z') + ENDIF + FWRITE(lhFile, '') + FCLOSE(lhFile) + this.SaveAsUTF8(lcFileName) + + *-* Save the styles XML + lcFileName = tcPath + "xl\styles.xml" + lhFile = FCREATE(lcFileName) + IF lhFile < 0 + THROW + ENDIF + FWRITE(lhFile, '') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + FCLOSE(lhFile) + this.SaveAsUTF8(lcFileName) + + *-* Write the workbook XML + lcFileName = tcPath + "xl\workbook.xml" + lhFile = FCREATE(lcFileName) + IF lhFile < 0 + THROW + ENDIF + FWRITE(lhFile, ''+ LF) + FWRITE(lhFile, '') + FWRITE(lhFile, '') + FOR lnSheet=1 TO lnNumSheets + IF EMPTY(taSheetNames[lnSheet]) + lcSheetName = "Sheet" + TRANSFORM(lnSheet) + ELSE + lcSheetName = taSheetNames[lnSheet] + ENDIF + FWRITE(lhFile, '') + ENDFOR + FWRITE(lhFile, '') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + FCLOSE(lhFile) + this.SaveAsUTF8(lcFileName) + + CATCH TO loException + SET STEP ON + FCLOSE(lhFile) + this.ErrorLevelId = 18 + RAISEEVENT(this, "OnShowErrorMessage", 18, "Unable to create workbook supporting XMLs") + ENDTRY + RETURN ISNULL(loException) + ENDPROC + + PROTECTED PROCEDURE writerelationshipsxml && Writes the relationships xml file + LPARAMETERS tnWB, tcPath + LOCAL lhFile, lcBaseType, llSuccess + RAISEEVENT(this, "OnShowStatusMessage", 2, 5) + lcBaseType = "http://schemas.openxmlformats.org/officeDocument/2006/relationships/" + TRY + *-* Write the workbook relationships file + lhFile = FCREATE(tcPath + "xl\_rels\workbook.xml.rels") + IF lhFile < 0 + THROW + ENDIF + + FWRITE(lhFile, '') + FWRITE(lhFile, '') + + SELECT xl_relationships + SCAN FOR workbook = tnWB + FWRITE(lhFile, '') + ENDSCAN + + FWRITE(lhFile, '') + llSuccess = True + + CATCH TO loException + SET STEP ON + llSuccess = False + this.ErrorLevelId = 16 + RAISEEVENT(this, "OnShowErrorMessage", 16, "Unable to create workbook.xml.rels") + + FINALLY + FCLOSE(lhFile) + ENDTRY + RETURN llSuccess + ENDPROC + + PROTECTED PROCEDURE writesheetxmls && Writes the Sheet XML files + LPARAMETERS tnWB, tnSheetNbr, tcPath + LOCAL llSuccess, lcAlias, lhFile, lcRow, lnMinCol, lnMaxCol, lnWidth, lnLastRow, lcDyDescent + LOCAL lcRowDefHt, lcFileName + *-* Write the sheet XML + lcAlias = ALIAS() + *-* Write the sheet + TRY + lcFileName = tcPath + "xl\worksheets\sheet" + TRANSFORM(tnSheetNbr) + ".xml" + lhFile = FCREATE(lcFileName) + IF lhFile < 0 + THROW + ENDIF + * lcDyDescent = ' x14ac:dyDescent="0.25"' && Uncomment to add back... + lcDyDescent = '' + lcRowDefHt = ' ht="30"' + + *-* Write sheet XML header information + FWRITE(lhFile, '') + FWRITE(lhFile, '') + + *-* Write the tab color definition if set + DO CASE + CASE xl_sheets.tabcolorndx > 0 + FWRITE(lhFile, '') + + CASE !EMPTY(xl_sheets.tabcolorrgb) + FWRITE(lhFile, '') + ENDCASE + + *-* Verify cells have been written + SELECT xl_cells + LOCATE FOR workbook = tnWB .AND. sheet = xl_sheets.sheet .AND. !celldeleted + IF FOUND() + *-* Write the sheet view information which includes the freeze pane information + SELECT cel.sheet, MAX(cel.cellrow) AS maxrow, MAX(cel.cellcol) AS maxcol ; + FROM xl_cells AS cel ; + WHERE cel.workbook = tnWB ; + AND cel.sheet = xl_sheets.sheet ; + AND cel.celldeleted = False ; + GROUP BY 1 ; + INTO CURSOR t_max READWRITE + + FWRITE(lhFile, '') + DO CASE + CASE xl_sheets.ysplit > 0 .AND. xl_sheets.xsplit = 0 && Freeze top row(s) only + FWRITE(lhFile, '') + lcRow = TRANSFORM(xl_sheets.ysplit+1) + FWRITE(lhFile, '') + FWRITE(lhFile, '') + + CASE xl_sheets.ysplit = 0 .AND. xl_sheets.xsplit > 0 && Freeze side column(s) only + FWRITE(lhFile, '') + lcColumn = this.ColumnIndexToAscii(xl_sheets.xsplit+1) + FWRITE(lhFile, '') + FWRITE(lhFile, '') + + CASE xl_sheets.ysplit > 0 .AND. xl_sheets.xsplit > 0 && Freeze both top row(s) and side column(s) + FWRITE(lhFile, '') + lcRow = TRANSFORM(xl_sheets.ysplit+1) + lcColumn = this.ColumnIndexToAscii(xl_sheets.xsplit+1) + FWRITE(lhFile, '') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + + OTHERWISE + FWRITE(lhFile, '') + * FWRITE(lhFile, '') + ENDCASE + FWRITE(lhFile, '') + FWRITE(lhFile, '') + + *-* Write sheet Column widths + SELECT clm.column, clm.width, clm.bestfit FROM xl_colwidths AS clm ; + WHERE clm.workbook = tnWB ; + AND clm.sheet = xl_sheets.sheet ; + ORDER BY clm.column ; + INTO CURSOR t_colwidths READWRITE + + IF _TALLY > 0 + FWRITE(lhFile, '') + SELECT t_colwidths + GOTO TOP + lnMinCol = t_colwidths.column + lnMaxCol = t_colwidths.column + lnWidth = t_colwidths.width + SKIP IN t_colwidths + DO WHILE !EOF('t_colwidths') + DO CASE + * CASE t_colwidths.bestfit && Not yet working!!! + * FWRITE(lhFile, '') + + CASE t_colwidths.width = lnWidth .AND. t_colwidths.column-1 = lnMinCol + lnMaxCol = t_colwidths.column + + OTHERWISE + FWRITE(lhFile, '') + lnMinCol = t_colwidths.column + lnMaxCol = t_colwidths.column + lnWidth = t_colwidths.width + ENDCASE + SKIP IN t_colwidths + ENDDO + FWRITE(lhFile, '') + FWRITE(lhFile, '') + ENDIF + USE IN SELECT('t_colwidths') + + *-* Write sheet cell data values + FWRITE(lhFile, '') + * lnLastRow = 0 + lnHeadRow = 0 + SELECT xl_cells + SET ORDER TO TAG cellindex + SCAN FOR workbook = tnWB .AND. sheet = xl_sheets.sheet .AND. !celldeleted + *-* Write row header + IF lnHeadRow != xl_cells.cellrow + IF lnHeadRow != 0 + FWRITE(lhFile, '') + ENDIF + lnHeadRow = xl_cells.cellrow + lnMaxCol = this.GetRowMaxColumn(tnWB, xl_sheets.sheet, lnHeadRow) + IF SEEK(this.GetRowHeightKeyExpr(tnWB, xl_sheets.sheet, xl_cells.cellrow), "xl_rowheights", "shrow") + FWRITE(lhFile, '') + ELSE + FWRITE(lhFile, '') + ENDIF + ENDIF + *-* Write columns + IF xl_cells.cellxfs > 0 + lcStyle = ' s="' + TRANSFORM(xl_cells.cellxfs) + '"' + ELSE + lcStyle = '' + ENDIF + DO CASE + CASE xl_cells.datatype = DATA_TYPE_TIME + FWRITE(lhFile, '') + FWRITE(lhFile, '' + ALLTRIM(xl_cells.cellvalue) + '') + + CASE xl_cells.datatype = DATA_TYPE_DATE + FWRITE(lhFile, '') + FWRITE(lhFile, '' + ALLTRIM(xl_cells.cellvalue) + '') + + CASE xl_cells.datatype = DATA_TYPE_DATETIME + FWRITE(lhFile, '') + FWRITE(lhFile, '' + ALLTRIM(xl_cells.cellvalue) + '') + + CASE xl_cells.datatype = DATA_TYPE_LOGICAL + FWRITE(lhFile, '') + FWRITE(lhFile, '' + TRANSFORM(xl_cells.stringid) + '') + + CASE xl_cells.datatype = DATA_TYPE_CHAR + FWRITE(lhFile, '') + FWRITE(lhFile, '' + TRANSFORM(xl_cells.stringid) + '') + + CASE xl_cells.datatype = DATA_TYPE_INT + FWRITE(lhFile, '') + FWRITE(lhFile, '' + ALLTRIM(xl_cells.cellvalue) + '') + + CASE xl_cells.datatype = DATA_TYPE_FLOAT + FWRITE(lhFile, '') + FWRITE(lhFile, '' + ALLTRIM(xl_cells.cellvalue) + '') + + CASE xl_cells.datatype = DATA_TYPE_CURRENCY + FWRITE(lhFile, '') + FWRITE(lhFile, '' + ALLTRIM(xl_cells.cellvalue) + '') + + CASE xl_cells.datatype = DATA_TYPE_PERCENT + FWRITE(lhFile, '') + FWRITE(lhFile, '' + ALLTRIM(xl_cells.cellvalue) + '') + + CASE xl_cells.datatype = DATA_TYPE_FORMULA + FWRITE(lhFile, '') + FWRITE(lhFile, '' + ALLTRIM(xl_cells.cellformula) + '' + ALLTRIM(xl_cells.cellvalue) + '') + + CASE xl_cells.datatype = DATA_TYPE_NONE + IF !EMPTY(lcStyle) + FWRITE(lhFile, '') + ENDIF + ENDCASE + ENDSCAN + FWRITE(lhFile, '') + FWRITE(lhFile, '') + SET ORDER TO + USE IN t_max + + ELSE + *-* No cell data has been created/written + FWRITE(lhFile, '') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + ENDIF + *-* Write sheet merge data + SELECT mrg.begrow, mrg.begcol, mrg.endrow, mrg.endcol FROM xl_mergecells AS mrg ; + WHERE mrg.workbook = tnWB ; + AND mrg.sheet = xl_sheets.sheet ; + ORDER BY mrg.begrow ; + INTO CURSOR t_merge + + IF _TALLY > 0 + FWRITE(lhFile, '') + SELECT t_merge + SCAN + FWRITE(lhFile, '') + ENDSCAN + FWRITE(lhFile, '') + ENDIF + USE IN t_merge + + *-* Write the cell validation data + SELECT xl_validation + COUNT FOR xl_validation.workbook = tnWB .AND. xl_validation.sheet = xl_sheets.sheet .AND. !DELETED() TO lnValidCnt + IF lnValidCnt > 0 + FWRITE(lhFile, '') + SCAN + SELECT xl.cellrow, xl.cellcol FROM xl_cells AS xl ; + WHERE BINTOC(xl.workbook)+BINTOC(xl.sheet)+BINTOC(xl.validndx) = BINTOC(tnWB)+BINTOC(xl_sheets.sheet)+BINTOC(xl_validation.validndx) ; + ORDER BY xl.cellrow, xl.cellcol ; + INTO CURSOR t_celllist + SELECT t_celllist + lcSqRef = "" + SCAN + lcSqRef = lcSqRef + this.ColumnIndexToAscii(t_celllist.cellcol) + TRANSFORM(t_celllist.cellrow) + " " + ENDSCAN + lcSqRef = ALLTRIM(lcSqRef) + DO CASE + CASE xl_validation.vtype = NONE_VALID_TYPE + lcValidationText = 'type="none"' + + CASE xl_validation.vtype = WHOLE_VALID_TYPE + lcValidationText = 'type="whole"' + + CASE xl_validation.vtype = DECIMAL_VALID_TYPE + lcValidationText = 'type="decimal"' + + CASE xl_validation.vtype = LIST_VALID_TYPE + lcValidationText = 'type="list"' + + CASE xl_validation.vtype = DATE_VALID_TYPE + lcValidationText = 'type="date"' + + CASE xl_validation.vtype = TIME_VALID_TYPE + lcValidationText = 'type="time"' + + CASE xl_validation.vtype = TXTLEN_VALID_TYPE + lcValidationText = 'type="textLength"' + + CASE xl_validation.vtype = CUSTOM_VALID_TYPE + lcValidationText = 'type="custom"' + + OTHERWISE + lcValidationText = 'type="none"' + ENDCASE + IF xl_validation.vstyle > 0 + DO CASE + CASE xl_validation.vstyle = STOP_VALID_STYLE + lcValidationText = lcValidationText + ' errorStyle="stop"' + + CASE xl_validation.vstyle = WARN_VALID_STYLE + lcValidationText = lcValidationText + ' errorStyle="warning"' + + CASE xl_validation.vstyle = INFO_VALID_STYLE + lcValidationText = lcValidationText + ' errorStyle="information"' + ENDCASE + ENDIF + IF xl_validation.voperator > 0 + DO CASE + CASE xl_validation.voperator = BETWEEN_VALID_OPER + lcValidationText = lcValidationText + ' operator="between"' + + CASE xl_validation.voperator = NOTBETW_VALID_OPER + lcValidationText = lcValidationText + ' operator="notBetween"' + + CASE xl_validation.voperator = EQUAL_VALID_OPER + lcValidationText = lcValidationText + ' operator="equal"' + + CASE xl_validation.voperator = NOTEQUAL_VALID_OPER + lcValidationText = lcValidationText + ' operator="notEqual"' + + CASE xl_validation.voperator = LESSTHAN_VALID_OPER + lcValidationText = lcValidationText + ' operator="lessThan"' + + CASE xl_validation.voperator = LESSOREQUAL_VALID_OPER + lcValidationText = lcValidationText + ' operator="lessThanOrEqual"' + + CASE xl_validation.voperator = GREATTHAN_VALID_OPER + lcValidationText = lcValidationText + ' operator="greaterThan"' + + CASE xl_validation.voperator = GREATOREQUAL_VALID_OPER + lcValidationText = lcValidationText + ' operator="greaterThanOrEqual"' + ENDCASE + ENDIF + lcValidationText = lcValidationText + ' allowBlank="' + IIF(xl_validation.allowblank, '1', '0') + '"' + lcValidationText = lcValidationText + ' showInputMessage="' + IIF(xl_validation.showinpmsg, '1', '0') + '"' + lcValidationText = lcValidationText + ' showErrorMessage="' + IIF(xl_validation.showerrmsg, '1', '0') + '"' + IF !EMPTY(xl_validation.errtitle) + lcValidationText = lcValidationText + ' errorTitle="' + ALLTRIM(xl_validation.errtitle) + '"' + ENDIF + IF !EMPTY(xl_validation.errmsg) + lcValidationText = lcValidationText + ' error="' + ALLTRIM(xl_validation.errmsg) + '"' + ENDIF + IF !EMPTY(xl_validation.vprompt) + lcValidationText = lcValidationText + ' prompt="' + ALLTRIM(xl_validation.vprompt) + '"' + ENDIF + FWRITE(lhFile, '') + IF xl_validation.formula + FWRITE(lhFile, '' + ALLTRIM(xl_validation.formula1) + '') + IF !EMPTY(xl_validation.formula2) + FWRITE(lhFile, '' + ALLTRIM(xl_validation.formula2) + '') + ENDIF + ELSE + FWRITE(lhFile, '"' + ALLTRIM(xl_validation.formula1) + '"') + IF !EMPTY(xl_validation.formula2) + FWRITE(lhFile, '"' + ALLTRIM(xl_validation.formula2) + '"') + ENDIF + ENDIF + FWRITE(lhFile, '') + ENDSCAN + USE IN SELECT('t_celllist') + FWRITE(lhFile, '') + ENDIF + + *-* Write sheet margin data + FWRITE(lhFile, '') + + *-* Write the sheet page print setup + FWRITE(lhFile, ' 0 .AND. xl_sheets.paperheight > 0 + FWRITE(lhFile, ' paperHeight="' + TRANSFORM(xl_sheets.paperheight) + xl_sheets.paperdimen + '"') + FWRITE(lhFile, ' paperWidth="' + TRANSFORM(xl_sheets.paperwidth) + xl_sheets.paperdimen + '"') + ELSE + IF xl_sheets.papersize > 0 + FWRITE(lhFile, ' paperSize="' + TRANSFORM(xl_sheets.papersize) + '"') + ENDIF + ENDIF + DO CASE + CASE xl_sheets.fittowidth > 0 .AND. xl_sheets.fittoheight > 0 + FWRITE(lhFile, ' fitToWidth="' + TRANSFORM(xl_sheets.fittowidth) + '"') + FWRITE(lhFile, ' fitToHeight="' + TRANSFORM(xl_sheets.fittoheight) + '"') + + CASE xl_sheets.fittowidth = 0 .AND. xl_sheets.fittoheight > 0 + FWRITE(lhFile, ' fitToHeight="' + TRANSFORM(xl_sheets.fittoheight) + '"') + + CASE xl_sheets.fittowidth > 0 .AND. xl_sheets.fittoheight = 0 + FWRITE(lhFile, ' fitToWidth="' + TRANSFORM(xl_sheets.fittowidth) + '"') + + OTHERWISE + IF xl_sheets.scale != 100 + FWRITE(lhFile, ' scale="' + TRANSFORM(xl_sheets.scale) + '"') + ENDIF + ENDCASE + FWRITE(lhFile, '/>') + + *-* Write the header and footer for the sheet if defined + IF SEEK(BINTOC(tnWB)+BINTOC(xl_sheets.sheet), "xl_hdrfooterdefn", "wbsheet") + FWRITE(lhFile, '') + + *-* Get the page header text + lcOddText = "" + IF SEEK(this.GetHeaderFooterKeyExpr(tnWB, xl_sheets.sheet, HEADERFOOTER_ODD_PAGE, HEADERFOOTER_SECT_HDR_LEFT), "xl_hdrfootertext", "hdrfootr") + lcOddText = IIF(EMPTY(lcOddText), '', lcOddText) + '&L&' + this.GetXMLHeaderFooterText() + ENDIF + IF SEEK(this.GetHeaderFooterKeyExpr(tnWB, xl_sheets.sheet, HEADERFOOTER_ODD_PAGE, HEADERFOOTER_SECT_HDR_CENTER), "xl_hdrfootertext", "hdrfootr") + lcOddText = IIF(EMPTY(lcOddText), '', lcOddText) + '&C&' + this.GetXMLHeaderFooterText() + ENDIF + IF SEEK(this.GetHeaderFooterKeyExpr(tnWB, xl_sheets.sheet, HEADERFOOTER_ODD_PAGE, HEADERFOOTER_SECT_HDR_RIGHT), "xl_hdrfootertext", "hdrfootr") + lcOddText = IIF(EMPTY(lcOddText), '', lcOddText) + '&R&' + this.GetXMLHeaderFooterText() + ENDIF + IF !EMPTY(lcOddText) + lcOddText = lcOddText + '' + ENDIF + + lcEvenText = "" + IF SEEK(this.GetHeaderFooterKeyExpr(tnWB, xl_sheets.sheet, HEADERFOOTER_EVEN_PAGE, HEADERFOOTER_SECT_HDR_LEFT), "xl_hdrfootertext", "hdrfootr") + lcEvenText = IIF(EMPTY(lcEvenText), '', lcEvenText) + '&L&' + this.GetXMLHeaderFooterText() + ENDIF + IF SEEK(this.GetHeaderFooterKeyExpr(tnWB, xl_sheets.sheet, HEADERFOOTER_EVEN_PAGE, HEADERFOOTER_SECT_HDR_CENTER), "xl_hdrfootertext", "hdrfootr") + lcEvenText = IIF(EMPTY(lcEvenText), '', lcEvenText) + '&C&' + this.GetXMLHeaderFooterText() + ENDIF + IF SEEK(this.GetHeaderFooterKeyExpr(tnWB, xl_sheets.sheet, HEADERFOOTER_EVEN_PAGE, HEADERFOOTER_SECT_HDR_RIGHT), "xl_hdrfootertext", "hdrfootr") + lcEvenText = IIF(EMPTY(lcEvenText), '', lcEvenText) + '&R&' + this.GetXMLHeaderFooterText() + ENDIF + IF !EMPTY(lcEvenText) + lcEvenText = lcEvenText + '' + ENDIF + + lcSameText = "" + IF SEEK(this.GetHeaderFooterKeyExpr(tnWB, xl_sheets.sheet, HEADERFOOTER_SAME_PAGE, HEADERFOOTER_SECT_HDR_LEFT), "xl_hdrfootertext", "hdrfootr") + lcSameText = IIF(EMPTY(lcSameText), '', lcSameText) + '&L&' + this.GetXMLHeaderFooterText() + ENDIF + IF SEEK(this.GetHeaderFooterKeyExpr(tnWB, xl_sheets.sheet, HEADERFOOTER_SAME_PAGE, HEADERFOOTER_SECT_HDR_CENTER), "xl_hdrfootertext", "hdrfootr") + lcSameText = IIF(EMPTY(lcSameText), '', lcSameText) + '&C&' + this.GetXMLHeaderFooterText() + ENDIF + IF SEEK(this.GetHeaderFooterKeyExpr(tnWB, xl_sheets.sheet, HEADERFOOTER_SAME_PAGE, HEADERFOOTER_SECT_HDR_RIGHT), "xl_hdrfootertext", "hdrfootr") + lcSameText = IIF(EMPTY(lcSameText), '', lcSameText) + '&R&' + this.GetXMLHeaderFooterText() + ENDIF + IF !EMPTY(lcSameText) + lcSameText = lcSameText + '' + ENDIF + IF EMPTY(lcSameText) + lcHeaderText = lcOddText + lcEvenText + ELSE + lcHeaderText = lcSameText + ENDIF + + *-* Get the page footer text + lcOddText = "" + IF SEEK(this.GetHeaderFooterKeyExpr(tnWB, xl_sheets.sheet, HEADERFOOTER_ODD_PAGE, HEADERFOOTER_SECT_FTR_LEFT), "xl_hdrfootertext", "hdrfootr") + lcOddText = IIF(EMPTY(lcOddText), '', lcOddText) + '&L&' + this.GetXMLHeaderFooterText() + ENDIF + IF SEEK(this.GetHeaderFooterKeyExpr(tnWB, xl_sheets.sheet, HEADERFOOTER_ODD_PAGE, HEADERFOOTER_SECT_FTR_CENTER), "xl_hdrfootertext", "hdrfootr") + lcOddText = IIF(EMPTY(lcOddText), '', lcOddText) + '&C&' + this.GetXMLHeaderFooterText() + ENDIF + IF SEEK(this.GetHeaderFooterKeyExpr(tnWB, xl_sheets.sheet, HEADERFOOTER_ODD_PAGE, HEADERFOOTER_SECT_FTR_RIGHT), "xl_hdrfootertext", "hdrfootr") + lcOddText = IIF(EMPTY(lcOddText), '', lcOddText) + '&R&' + this.GetXMLHeaderFooterText() + ENDIF + IF !EMPTY(lcOddText) + lcOddText = lcOddText + '' + ENDIF + + lcEvenText = "" + IF SEEK(this.GetHeaderFooterKeyExpr(tnWB, xl_sheets.sheet, HEADERFOOTER_EVEN_PAGE, HEADERFOOTER_SECT_FTR_LEFT), "xl_hdrfootertext", "hdrfootr") + lcEvenText = IIF(EMPTY(lcEvenText), '', lcEvenText) + '&L&' + this.GetXMLHeaderFooterText() + ENDIF + IF SEEK(this.GetHeaderFooterKeyExpr(tnWB, xl_sheets.sheet, HEADERFOOTER_EVEN_PAGE, HEADERFOOTER_SECT_FTR_CENTER), "xl_hdrfootertext", "hdrfootr") + lcEvenText = IIF(EMPTY(lcEvenText), '', lcEvenText) + '&C&' + this.GetXMLHeaderFooterText() + ENDIF + IF SEEK(this.GetHeaderFooterKeyExpr(tnWB, xl_sheets.sheet, HEADERFOOTER_EVEN_PAGE, HEADERFOOTER_SECT_FTR_RIGHT), "xl_hdrfootertext", "hdrfootr") + lcEvenText = IIF(EMPTY(lcEvenText), '', lcEvenText) + '&R&' + this.GetXMLHeaderFooterText() + ENDIF + IF !EMPTY(lcEvenText) + lcEvenText = lcEvenText + '' + ENDIF + + lcSameText = "" + IF SEEK(this.GetHeaderFooterKeyExpr(tnWB, xl_sheets.sheet, HEADERFOOTER_SAME_PAGE, HEADERFOOTER_SECT_FTR_LEFT), "xl_hdrfootertext", "hdrfootr") + lcSameText = IIF(EMPTY(lcSameText), '', lcSameText) + '&L&' + this.GetXMLHeaderFooterText() + ENDIF + IF SEEK(this.GetHeaderFooterKeyExpr(tnWB, xl_sheets.sheet, HEADERFOOTER_SAME_PAGE, HEADERFOOTER_SECT_FTR_CENTER), "xl_hdrfootertext", "hdrfootr") + lcSameText = IIF(EMPTY(lcSameText), '', lcSameText) + '&C&' + this.GetXMLHeaderFooterText() + ENDIF + IF SEEK(this.GetHeaderFooterKeyExpr(tnWB, xl_sheets.sheet, HEADERFOOTER_SAME_PAGE, HEADERFOOTER_SECT_FTR_RIGHT), "xl_hdrfootertext", "hdrfootr") + lcSameText = IIF(EMPTY(lcSameText), '', lcSameText) + '&R&' + this.GetXMLHeaderFooterText() + ENDIF + IF !EMPTY(lcSameText) + lcSameText = lcSameText + '' + ENDIF + IF EMPTY(lcSameText) + lcFooterText = lcOddText + lcEvenText + ELSE + lcFooterText = lcSameText + ENDIF + + *-* Get the first page text + lcFirstHdrText = "" + IF SEEK(this.GetHeaderFooterKeyExpr(tnWB, xl_sheets.sheet, HEADERFOOTER_FIRST_PAGE, HEADERFOOTER_SECT_HDR_LEFT), "xl_hdrfootertext", "hdrfootr") + lcFirstHdrText = IIF(EMPTY(lcFirstHdrText), '', lcFirstHdrText) + '&L&' + this.GetXMLHeaderFooterText() + ENDIF + IF SEEK(this.GetHeaderFooterKeyExpr(tnWB, xl_sheets.sheet, HEADERFOOTER_FIRST_PAGE, HEADERFOOTER_SECT_HDR_CENTER), "xl_hdrfootertext", "hdrfootr") + lcFirstHdrText = IIF(EMPTY(lcFirstHdrText), '', lcFirstHdrText) + '&C&' + this.GetXMLHeaderFooterText() + ENDIF + IF SEEK(this.GetHeaderFooterKeyExpr(tnWB, xl_sheets.sheet, HEADERFOOTER_FIRST_PAGE, HEADERFOOTER_SECT_HDR_RIGHT), "xl_hdrfootertext", "hdrfootr") + lcFirstHdrText = IIF(EMPTY(lcFirstHdrText), '', lcFirstHdrText) + '&R&' + this.GetXMLHeaderFooterText() + ENDIF + IF !EMPTY(lcFirstHdrText) + lcFirstHdrText = lcFirstHdrText + '' + ENDIF + + lcFirstFtrText = "" + IF SEEK(this.GetHeaderFooterKeyExpr(tnWB, xl_sheets.sheet, HEADERFOOTER_FIRST_PAGE, HEADERFOOTER_SECT_FTR_LEFT), "xl_hdrfootertext", "hdrfootr") + lcFirstFtrText = IIF(EMPTY(lcFirstFtrText), '', lcFirstFtrText) + '&L&' + this.GetXMLHeaderFooterText() + ENDIF + IF SEEK(this.GetHeaderFooterKeyExpr(tnWB, xl_sheets.sheet, HEADERFOOTER_FIRST_PAGE, HEADERFOOTER_SECT_FTR_CENTER), "xl_hdrfootertext", "hdrfootr") + lcFirstFtrText = IIF(EMPTY(lcFirstFtrText), '', lcFirstFtrText) + '&C&' + this.GetXMLHeaderFooterText() + ENDIF + IF SEEK(this.GetHeaderFooterKeyExpr(tnWB, xl_sheets.sheet, HEADERFOOTER_FIRST_PAGE, HEADERFOOTER_SECT_FTR_RIGHT), "xl_hdrfootertext", "hdrfootr") + lcFirstFtrText = IIF(EMPTY(lcFirstFtrText), '', lcFirstFtrText) + '&R&' + this.GetXMLHeaderFooterText() + ENDIF + IF !EMPTY(lcFirstFtrText) + lcFirstFtrText = lcFirstFtrText + '' + ENDIF + *-* Write the header/footer text to XML + FWRITE(lhFile, lcHeaderText + lcFooterText + lcFirstHdrText + lcFirstFtrText + '') + ENDIF + *-* Completed writing sheet + FWRITE(lhFile, '') + llSuccess = True + + CATCH TO loException + SET STEP ON + llSuccess = False + this.ErrorLevelId = 14 + RAISEEVENT(this, "OnShowErrorMessage", 14, loException.message) + + FINALLY + FCLOSE(lhFile) + this.SaveAsUTF8(lcFileName) + ENDTRY + IF !EMPTY(lcAlias) + SELECT &lcAlias + ENDIF + RETURN llSuccess + ENDPROC + + PROTECTED PROCEDURE writestringsxml && Writes the sharedStrings XML + LPARAMETERS tnWB, tcPath + LOCAL lcFileName, lhFile, lnTotCount, lnUniqueCnt, loException, llSuccess, lnRelId + RAISEEVENT(this, "OnShowStatusMessage", 2, 2) + TRY + SELECT xl_strformat + SET ORDER TO TAG sortorder + COUNT FOR workbook = tnWB .AND. !DELETED() TO lnTotCount + + SELECT xl_strings + SET ORDER TO TAG sortorder + COUNT FOR workbook = tnWB .AND. !DELETED() TO lnUniqueCnt + lnTotCount = lnTotCount + lnUniqueCnt + + IF lnUniqueCnt > 0 + *-* If the shared strings xml has not been defined in the relationships, add it + IF !SEEK(BINTOC(tnWB)+"sharedStrings", "xl_relationships", "reltype") + lnRelId = this.GetNextId(tnWB, "xl_relationships") + INSERT INTO xl_relationships (workbook, relid, reltype, target) VALUES (tnWB, lnRelId, "sharedStrings", "sharedStrings.xml") + ENDIF + + *-* Output the file + lcFileName = tcPath + "xl\sharedStrings.xml" + lhFile = FCREATE(lcFileName) + IF lhFile < 0 + THROW + ENDIF + + FWRITE(lhFile, '' + LF) + FWRITE(lhFile, '') && Change 19Jun2018: missplaced > + + SELECT xl_strings + SCAN FOR workbook = tnWB .AND. !DELETED() + IF xl_strings.formatted + FWRITE(lhFile, '') + SELECT xl_strformat + SCAN FOR workbook = tnWB .AND. id = xl_strings.id .AND. !DELETED() + FWRITE(lhFile, '') + IF xl_strformat.fbold .OR. xl_strformat.fitalic .OR. xl_strformat.fcolor>0 .OR. !EMPTY(xl_strformat.fname) .OR. xl_strformat.fsize>0 ; + .OR. xl_strformat.strkthr .OR. !EMPTY(xl_strformat.fvpos) .OR. xl_strformat.theme>0 .OR. xl_strformat.indexed>0 .OR. xl_strformat.uline != UNDERLINE_NONE + + FWRITE(lhFile, '') + IF xl_strformat.fbold + FWRITE(lhFile, '') + ENDIF + IF xl_strformat.fitalic + FWRITE(lhFile, '') + ENDIF + IF xl_strformat.uline != UNDERLINE_NONE + FWRITE(lhFile, '') + ENDIF + IF xl_strformat.strkthr + FWRITE(lhFile, '') + ENDIF + IF xl_strformat.fsize > 0 + FWRITE(lhFile, '') + ENDIF + DO CASE + CASE xl_strformat.fcolor > 0 + FWRITE(lhFile, '') + + CASE xl_strformat.indexed > 0 + FWRITE(lhFile, '') + + CASE xl_strformat.theme > 0 + FWRITE(lhFile, '') + ENDCASE + IF !EMPTY(xl_strformat.fvpos) + FWRITE(lhFile, '') + ENDIF + IF !EMPTY(xl_strformat.fname) + FWRITE(lhFile, '') + ENDIF + FWRITE(lhFile, '') + ENDIF + * IF xl_strformat.presvspace + FWRITE(lhFile, '' + CHRTRAN(xl_strformat.stringxml, CHR(160), CHR(32)) + '') + * ELSE + * FWRITE(lhFile, '' + xl_strformat.stringxml + '') + * ENDIF + FWRITE(lhFile, '') + ENDSCAN + FWRITE(lhFile, '') + SELECT xl_strings + ELSE + IF xl_strings.presvspace + FWRITE(lhFile, '' + CHRTRAN(xl_strformat.stringxml, CHR(160), CHR(32)) + '') + ELSE + FWRITE(lhFile, '' + xl_strings.stringxml + '') + ENDIF + ENDIF + ENDSCAN + SET ORDER TO + FWRITE(lhFile, '') + FCLOSE(lhFile) + STRTOFILE(STRCONV(FILETOSTR(lcFileName), 9), lcFileName, 4) && Save as UTF-8 + ELSE + *-* No strings are assigned to cells; remove from relationships if present + DELETE FROM xl_relationships WHERE workbook = tnWB AND reltype = "sharedStrings" + ENDIF + llSuccess = True + + CATCH TO loException + SET STEP ON + llSuccess = False + this.ErrorLevelId = 15 + RAISEEVENT(this, "OnShowErrorMessage", 15, loException.message) + ENDTRY + RETURN llSuccess + ENDPROC + + PROTECTED PROCEDURE writestylesxml && Writes the styles.xml support file + LPARAMETERS tnWB, tcPath + LOCAL lcAlias, lcFileName, lhFile, lnNumFmtsId, lnRecCount, lcNumFmtId, lnRotation, llIndexedColors + LOCAL llMruColors + RAISEEVENT(this, "OnShowStatusMessage", 2, 3) + TRY + lcAlias = ALIAS() + lcFileName = tcPath + "xl\styles.xml" + lhFile = FCREATE(lcFileName) + IF lhFile < 0 + THROW + ENDIF + FWRITE(lhFile, '') + FWRITE(lhFile, '') + + *-* Get last used custom number format Id + lnNumFmtsId = 0 + SELECT xl_numfmts + SET ORDER TO TAG sortorder + SCAN FOR workbook = tnWB .AND. xl_numfmts.id < 900 + IF xl_numfmts.id > lnNumFmtsId + lnNumFmtsId = xl_numfmts.id + ENDIF + ENDSCAN + + *-* Write the Number format section + COUNT FOR workbook = tnWB TO lnRecCount + FWRITE(lhFile, '') + SCAN FOR workbook = tnWB + IF xl_numfmts.id > 900 + lnNumFmtsId = lnNumFmtsId + 1 + FWRITE(lhFile, '') + REPLACE xl_numfmts.tempid WITH lnNumFmtsId IN xl_numfmts + ELSE + FWRITE(lhFile, '') + REPLACE xl_numfmts.tempid WITH xl_numfmts.id IN xl_numfmts + ENDIF + ENDSCAN + FWRITE(lhFile, '') + SET ORDER TO + + *-* Write the fonts section + SELECT xl_fonts + SET ORDER TO TAG sortorder + COUNT FOR workbook = tnWB TO lnRecCount + FWRITE(lhFile, '') + SCAN FOR workbook = tnWB + FWRITE(lhFile, '') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + IF xl_fonts.fbold + FWRITE(lhFile, '') + ENDIF + IF xl_fonts.fitalic + FWRITE(lhFile, '') + ENDIF + IF !EMPTY(xl_fonts.uline) + FWRITE(lhFile, '') + ENDIF + IF xl_fonts.strkthr + FWRITE(lhFile, '') + ENDIF + IF !EMPTY(xl_fonts.fvpos) + FWRITE(lhFile, '') + ENDIF + DO CASE + CASE xl_fonts.fcolor > 0 + FWRITE(lhFile, '') + + CASE xl_fonts.indexed > 0 + FWRITE(lhFile, '') + + CASE xl_fonts.theme > 0 + FWRITE(lhFile, '') + ENDCASE + FWRITE(lhFile, '') + ENDSCAN + FWRITE(lhFile, '') + SET ORDER TO + + *-* Write the fills section + SELECT xl_fills + SET ORDER TO TAG sortorder + COUNT FOR workbook = tnWB TO lnRecCount + FWRITE(lhFile, '') + SCAN FOR workbook = tnWB + FWRITE(lhFile, ' 0 .AND. xl_fills.bgindexed > 0 + FWRITE(lhFile, '>') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + + CASE xl_fills.fgcolor > 0 .AND. xl_fills.bgindexed > 0 + FWRITE(lhFile, '>') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + + CASE xl_fills.bgcolor > 0 .AND. xl_fills.fgindexed > 0 + FWRITE(lhFile, '>') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + + CASE xl_fills.fgcolor > 0 .AND. xl_fills.bgcolor > 0 + FWRITE(lhFile, '>') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + + CASE xl_fills.theme > 0 + FWRITE(lhFile, '>') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + + OTHERWISE + FWRITE(lhFile, '/>') + ENDCASE + FWRITE(lhFile, '') + ENDSCAN + FWRITE(lhFile, '') + + *-* Write the borders section + SELECT xl_borders + SET ORDER TO TAG sortorder + COUNT FOR workbook = tnWB TO lnRecCount + FWRITE(lhFile, '') + SCAN FOR workbook = tnWB + FWRITE(lhFile, '') + IF EMPTY(xl_borders.lstyle) + FWRITE(lhFile, '') + ELSE + IF xl_borders.lstyle = BORDER_STYLE_NONE + FWRITE(lhFile, ' 0 + FWRITE(lhFile, '>') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + + CASE xl_borders.lindexed > 0 + FWRITE(lhFile, '>') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + + CASE xl_borders.ltheme > 0 + FWRITE(lhFile, '>') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + + OTHERWISE + FWRITE(lhFile, '/>') + ENDCASE + ENDIF + IF EMPTY(xl_borders.rstyle) + FWRITE(lhFile, '') + ELSE + IF xl_borders.rstyle = BORDER_STYLE_NONE + FWRITE(lhFile, ' 0 + FWRITE(lhFile, '>') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + + CASE xl_borders.rindexed > 0 + FWRITE(lhFile, '>') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + + + CASE xl_borders.rtheme > 0 + FWRITE(lhFile, '>') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + + OTHERWISE + FWRITE(lhFile, '/>') + ENDCASE + ENDIF + IF EMPTY(xl_borders.tstyle) + FWRITE(lhFile, '') + ELSE + IF xl_borders.tstyle = BORDER_STYLE_NONE + FWRITE(lhFile, ' 0 + FWRITE(lhFile, '>') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + + CASE xl_borders.tindexed > 0 + FWRITE(lhFile, '>') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + + CASE xl_borders.ttheme > 0 + FWRITE(lhFile, '>') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + + OTHERWISE + FWRITE(lhFile, '/>') + ENDCASE + ENDIF + IF EMPTY(xl_borders.bstyle) + FWRITE(lhFile, '') + ELSE + IF xl_borders.bstyle = BORDER_STYLE_NONE + FWRITE(lhFile, ' 0 + FWRITE(lhFile, '>') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + + CASE xl_borders.bindexed > 0 + FWRITE(lhFile, '>') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + + CASE xl_borders.btheme > 0 + FWRITE(lhFile, '>') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + + OTHERWISE + FWRITE(lhFile, '/>') + ENDCASE + ENDIF + IF EMPTY(xl_borders.dstyle) + FWRITE(lhFile, '') + ELSE + IF xl_borders.dstyle = BORDER_STYLE_NONE + FWRITE(lhFile, ' 0 + FWRITE(lhFile, '>') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + + CASE xl_borders.dindexed > 0 + FWRITE(lhFile, '>') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + + CASE xl_borders.dtheme > 0 + FWRITE(lhFile, '>') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + + OTHERWISE + FWRITE(lhFile, '/>') + ENDCASE + ENDIF + FWRITE(lhFile, '') + ENDSCAN + FWRITE(lhFile, '') + *-* Write the cellStyleXfs section + + *-* Write the cellXfs section + SELECT xl_cellxfs + SET ORDER TO TAG sortorder + COUNT FOR workbook = tnWB TO lnRecCount + FWRITE(lhFile, '') + SCAN FOR workbook = tnWB + IF xl_cellxfs.numFmtId > 0 .AND. SEEK(BINTOC(tnWB)+BINTOC(xl_cellxfs.numFmtId), "xl_numfmts", "id") + lcNumFmtId = TRANSFORM(xl_numfmts.tempid) + ELSE + lcNumFmtId = TRANSFORM(xl_cellxfs.numFmtId) + ENDIF + FWRITE(lhFile, ' 0, ' applyFont="1"', '') + ; + IIF(xl_cellxfs.fillid > 0, ' applyFill="1"', '') + IIF(xl_cellxfs.borderid > 0, ' applyBorder="1"', '') + ' applyAlignment="1"') + + IF !EMPTY(xl_cellxfs.halign) .OR. !EMPTY(xl_cellxfs.valign) .OR. xl_cellxfs.wraptext > 0 .OR. xl_cellxfs.indent > 0 .OR. xl_cellxfs.rotation > 0 + FWRITE(lhFile, '> 0 + FWRITE(lhFile, ' wrapText="1"') + ENDIF + IF xl_cellxfs.indent > 0 + FWRITE(lhFile, ' indent="' + TRANSFORM(xl_cellxfs.indent) + '"') + ENDIF + IF xl_cellxfs.rotation != 0 + FWRITE(lhFile, ' textRotation="' + TRANSFORM(xl_cellxfs.rotation) + '"') + ENDIF + FWRITE(lhFile, '/>') + ELSE + FWRITE(lhFile, '/>') + ENDIF + ENDSCAN + FWRITE(lhFile, '') + + *-* Write the colors section + llIndexedColors = SEEK(BINTOC(tnWB)+BINTOC(1), "xl_ndxcolors", "indexid") + llMruColors = SEEK(BINTOC(tnWB)+BINTOC(1), "xl_mrucolors", "indexid") + IF llIndexedColors .OR. llMruColors + FWRITE(lhFile, '') + IF llIndexedColors + FWRITE(lhFile, '') + SELECT xl_ndxcolors + SET ORDER TO TAG indexid + SCAN FOR workbook = tnWB + FWRITE(lhFile, '') + ENDSCAN + FWRITE(lhFile, '') + ENDIF + + IF llMruColors + FWRITE(lhFile, '') + SELECT xl_mrucolors + SET ORDER TO TAG indexid + SCAN FOR workbook = tnWB + FWRITE(lhFile, '') + ENDSCAN + FWRITE(lhFile, '') + ENDIF + FWRITE(lhFile, '') + ENDIF + + *-* Close the style sheet + FWRITE(lhFile, '') + llSuccess = True + + CATCH TO loException + SET STEP ON + llSuccess = False + this.ErrorLevelId = 17 + RAISEEVENT(this, "OnShowErrorMessage", 17, "Unable to create styles.xml") + + FINALLY + FCLOSE(lhFile) + this.SaveAsUTF8(lcFileName) + ENDTRY + IF !EMPTY(lcAlias) + SELECT &lcAlias + ENDIF + RETURN llSuccess + ENDPROC + + PROTECTED PROCEDURE writesupportxmls && Writes the [Content_Types].xml, .rels, core.xml, workbook.xml.rels and app.xml files + LPARAMETERS tnWB, tcPath + LOCAL llSuccess, loException, lhFile, lnSheet, lnUniqueCnt, lcCurr, lcColor, lnTotCount, lcFileName, lcBaseContentType + RAISEEVENT(this, "OnShowStatusMessage", 2, 1) + TRY + lhFile = FCREATE(tcPath + "[Content_Types].xml") + IF lhFile < 0 + THROW + ENDIF + FWRITE(lhFile, '') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + + lcBaseContentType = '') + + CASE xl_relationships.reltype = "drawings" + * FWRITE(lhFile, lcBaseContentType + 'drawing+xml" PartName="/xl/drawings/drawing1.xml"/>') + + CASE xl_relationships.reltype = "externalLink" + * FWRITE(lhFile, lcBaseContentType + 'externalLink+xml" PartName="/xl/externalLinks/externalLink1.xml"/>') + + CASE xl_relationships.reltype = "sharedStrings" + FWRITE(lhFile, lcBaseContentType + 'sharedStrings+xml" PartName="/xl/sharedStrings.xml"/>') + + CASE xl_relationships.reltype = "styles" + FWRITE(lhFile, lcBaseContentType + 'styles+xml" PartName="/xl/styles.xml"/>') + + CASE xl_relationships.reltype = "theme" + * FWRITE(lhFile, lcBaseContentType + 'theme+xml" PartName="/xl/theme/theme1.xml"/>') + + CASE xl_relationships.reltype = "worksheet" + FWRITE(lhFile, lcBaseContentType + 'worksheet+xml" PartName="/xl/worksheets/sheet' + TRANSFORM(xl_relationships.sheet) + '.xml"/>') + ENDCASE + ENDSCAN + + FWRITE(lhFile, '') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + FCLOSE(lhFile) + + *-* Save the .rels XML + lhFile = FCREATE(tcPath + "_rels\.rels") + IF lhFile < 0 + THROW + ENDIF + FWRITE(lhFile, '') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + FWRITE(lhFile, '') + FCLOSE(lhFile) + + *-* Save the app XML + lcFileName = tcPath + "docProps\app.xml" + lhFile = FCREATE(lcFileName) + IF lhFile < 0 + THROW + ENDIF + FWRITE(lhFile, '') + FWRITE(lhFile, '') + FWRITE(lhFile, 'ExcelXMLX Release ' + TRANSFORM(this.ExcelXlsxRelease) + '') + IF !EMPTY(this.CompanyName) + FWRITE(lhFile, '' + this.CompanyName + '') + ENDIF + FWRITE(lhFile, '') + FCLOSE(lhFile) + STRTOFILE(STRCONV(FILETOSTR(lcFileName), 9), lcFileName, 4) && Save as UTF-8 + + *-* Save the core XML + lcFileName = tcPath + "docProps\core.xml" + lhFile = FCREATE(lcFileName) + IF lhFile < 0 + THROW + ENDIF + FWRITE(lhFile, '') + FWRITE(lhFile, '') + IF !EMPTY(this.Title) + FWRITE(lhFile, '' + this.GetXMLString(this.Title) + '') + ENDIF + IF !EMPTY(this.Subject) + FWRITE(lhFile, '' + this.GetXMLString(this.Subject) + '') + ENDIF + IF !EMPTY(this.CreatorName) + FWRITE(lhFile, '' + this.GetXMLString(this.CreatorName) + '') + ENDIF + IF !EMPTY(this.UserName) + FWRITE(lhFile, '' + this.GetXMLString(this.UserName) + '') + ENDIF + IF VERSION(5) < 900 + FWRITE(lhFile, '' + this.TTOC3(DATETIME()) + 'Z') + FWRITE(lhFile, '' + this.TTOC3(DATETIME()) + 'Z') + ELSE + FWRITE(lhFile, '' + TTOC(DATETIME(), 3) + 'Z') + FWRITE(lhFile, '' + TTOC(DATETIME(), 3) + 'Z') + ENDIF + FWRITE(lhFile, '') + FCLOSE(lhFile) + STRTOFILE(STRCONV(FILETOSTR(lcFileName), 9), lcFileName, 4) && Save as UTF-8 + + llSuccess = True + + CATCH TO loException + SET STEP ON + llSuccess = False + this.ErrorLevelId = 18 + RAISEEVENT(this, "OnShowErrorMessage", 18, "Unable to create workbook supporting XMLs") + ENDTRY + RETURN llSuccess + ENDPROC + + PROTECTED PROCEDURE writeworkbookxml && Writes the workbook XML + LPARAMETERS tnWB, tcPath + LOCAL lcFileName, lhFile, loException, llSuccess, lcSheetName + RAISEEVENT(this, "OnShowStatusMessage", 2, 4) + TRY + lcFileName = tcPath + "xl\workbook.xml" + lhFile = FCREATE(lcFileName) + IF lhFile < 0 + THROW + ENDIF + FWRITE(lhFile, ''+ LF) + FWRITE(lhFile, '') + + *-* Write thw sheet information + FWRITE(lhFile, '') + SELECT xl_relationships + SET ORDER TO TAG relid + SCAN FOR workbook = tnWB .AND. reltype = "worksheet" + IF SEEK(BINTOC(tnWB)+BINTOC(xl_relationships.sheet), "xl_sheets", "sheetndx") + DO CASE + CASE xl_sheets.state = VISIBLE_SHEET_STATE + FWRITE(lhFile, '') + + CASE xl_sheets.state = HIDDEN_SHEET_STATE + FWRITE(lhFile, '') + + CASE xl_sheets.state = VERYHIDDEN_SHEET_STATE + FWRITE(lhFile, '') + ENDCASE + ELSE + THROW + ENDIF + ENDSCAN + SET ORDER TO + FWRITE(lhFile, '') + + *-* Write the named range information + SELECT xl_namerange + LOCATE FOR workbook = tnWB .AND. !DELETED() + IF FOUND() + FWRITE(lhFile, '') + SCAN FOR workbook = tnWB .AND. !DELETED() + IF (xl_namerange.begcol = 0 .AND. xl_namerange.begrow = 0) .OR. (xl_namerange.begcol = 0 .AND. xl_namerange.begrow = 0) + LOOP + ENDIF + FWRITE(lhFile, '') + + lcSheetName = this.GetSheetName(tnWB, xl_namerange.sheet) + FWRITE(lhFile, IIF(OCCURS(" ", lcSheetName)>0, "'", "") + lcSheetName + IIF(OCCURS(" ", lcSheetName)>0, "'", "")) + DO CASE + CASE xl_namerange.begcol = 0 .AND. xl_namerange.begrow > 0 + FWRITE(lhFile, '!$' + TRANSFORM(xl_namerange.begrow)) + + CASE xl_namerange.begcol > 0 .AND. xl_namerange.begrow = 0 + FWRITE(lhFile, '!$' + this.ColumnIndexToAscii(xl_namerange.begcol)) + + OTHERWISE + FWRITE(lhFile, '!$' + this.ColumnIndexToAscii(xl_namerange.begcol) + '$' + TRANSFORM(xl_namerange.begrow)) + ENDCASE + DO CASE + CASE xl_namerange.endcol = 0 .AND. xl_namerange.endrow > 0 + FWRITE(lhFile, ':$' + TRANSFORM(xl_namerange.endrow)) + + CASE xl_namerange.endcol > 0 .AND. xl_namerange.begrow = 0 + FWRITE(lhFile, ':$' + this.ColumnIndexToAscii(xl_namerange.endcol)) + + OTHERWISE + FWRITE(lhFile, ':$' + this.ColumnIndexToAscii(xl_namerange.endcol) + '$' + TRANSFORM(xl_namerange.endrow)) + ENDCASE + FWRITE(lhFile, '') + ENDSCAN + FWRITE(lhFile, '') + ENDIF + + *-* Close the workbook + FWRITE(lhFile, '') + FWRITE(lhFile, '') + + llSuccess = True + + CATCH TO loException + FCLOSE(lhFile) + SET STEP ON + llSuccess = False + + FINALLY + FCLOSE(lhFile) + this.SaveAsUTF8(lcFileName) + ENDTRY + RETURN llSuccess + ENDPROC + +ENDDEFINE diff --git a/CLAUDE.md b/CLAUDE.md new file mode 100644 index 0000000..ec55e74 --- /dev/null +++ b/CLAUDE.md @@ -0,0 +1,214 @@ +# CLAUDE.md + +This file provides guidance to Claude Code (claude.ai/code) when working with code in this repository. + +## What this is + +ROACONT ("ROA Financiar Contabilitate") is a Visual FoxPro 9 desktop accounting +application, one product in the ROA business-software suite built by ROA Romfast SRL. +It is a thick client: VFP source (`.prg`, `.scx`, `.vcx`, `.mnx`, `.frx`) compiled to an +`.exe`, talking to an Oracle backend over ODBC/native connections. There is no web +front-end and no package-manager-based build. + +This directory (`D:\ROA\ROACONT`) is one working copy inside a much larger `D:\ROA` +tree that holds dozens of sibling ROA products (ROAGEST, ROACASA, ROAAUTO, ROAMANAGER, +ROAEFACTURA, ROASAL, etc.) plus a suite-wide shared library at `D:\ROA\COMUNROA`. +Changes to shared code can ripple into other products — see "Shared code" below. + +## Version control + +This is primarily an **SVN** working copy (`svn info` → `^/ROACONT/Trunk`, +repository root `http://svnroa:3001/svn/ROA`). Use `svn status`, `svn diff`, `svn commit`, +`svn log`, etc. for the day-to-day legacy workflow. + +A **git** mirror also runs in parallel, pushed to `gitea.romfast.ro:romfast/roacont.git`. +SVN remains the "live" source of truth; git is synced to it manually, not the other way +around. `.svn/` is git-ignored. `COMUN/` is excluded from this repo's git (see `.gitignore`) +because it's shared by every ROA product and is versioned by its **own separate git repo**, +`gitea.romfast.ro:romfast/comun.git` (same remote used by ROAACNPRO and other siblings) — +run git commands for `COMUN/` from inside that directory, not from the ROACONT root. + +Git tracks the **FoxBin2Prg text versions** of the VFP binaries +(`.vc2/.sc2/.fr2/.mn2/.lb2/.pj2/.dc2/.db2`), generated in-tree next to each binary — not the +binaries themselves. The binaries and regenerable indexes (`.cdx/.dcx`) are git-ignored (SVN +stays the EOL authority), so git diffs are readable text. Refresh those text versions with +`git_sync.ps1` (folder-mode recursive over the whole tree incl. `COMUN\`, incremental): +``` +powershell -ExecutionPolicy Bypass -File D:\ROA\UTIL\foxbin2prg\git_sync.ps1 -ProjectRoot D:\ROA\ROACONT +``` +Run it **at the start of every session and before any `git commit`** so the text matches the +binaries. It converts in a temp staging area and copies back only the text (never touches the +SVN working-copy binaries), continues past per-file failures, and exits nonzero on any failure: +**do not commit while `git_sync` reports unexplained failures.** Then search the `.??2` files +in-tree with Grep (e.g. `PROCEDURE do_salvare`), citing `file:line`. + +Editing: write-back text→binary via `txt2vcx.ps1` is supported **only for `.vc2/.sc2`** +(vcx/scx); `.frx/.mnx/.lbx/.pjx/.dbc/.dbf` are editable **only in the VFP IDE** (no write-back). +See `D:\ROA\UTIL\foxbin2prg\CLAUDE.md` and `COMUN\docs\flux-editare-vfp-text.md`. + +Orphan cleanup: on each full run `git_sync` deletes `.??2` text whose binary was removed from +SVN (and `.db2` whose table left the per-project list) and reports it, so git records the +deletion. + +SVN ignores the `.??2` files via `global-ignores` in the machine's local Subversion config +(`%APPDATA%\Subversion\config`, `[miscellany]`), together with `*.dbf.cfg`. Limitation: +global-ignores only covers *unversioned* files — if a `.??2` ever gets `svn add`-ed, remove it +with `svn rm --keep-local`. The `.dbf.cfg` files (per-table export config that makes `.db2` +carry data, not just structure) are committed to git but sit in SVN global-ignores. + +### Branching (git) + +Two lanes in the git mirror: +- **`main` = SVN mirror**: receives ONLY `sync SVN rN` commits, made from a clean tree (right + after `svn update`, before local work). `git diff main..claude/` then shows exactly + and only Claude's work. +- **Claude works on a branch** (`claude/`) and commits only there. +- Once the changes land in SVN (user runs `svn commit`), the branch is closed (merged into + `main` at the next sync, or deleted). +- Hygiene: sync `main` only from a clean tree — an `svn update` mid-work mixes binaries on disk + (nature of SVN). + +## Building / running + +There is no CLI build tool. The project is compiled from inside the Visual FoxPro 9 IDE: + +- Project file: `roacont.PJX` / `roacont.PJT` (open in VFP, then Project > Build / Rebuild + to produce `roacont.exe`). +- Every `.prg`/`.scx`/`.vcx`/`.mnx` source file has a compiled sibling (`.FXP`/`.SCT`/`.VCT`/`.MPR`). + **Always edit the source file, never the compiled binary companion** — the binaries are + regenerated by the VFP compiler and are not meant to be hand-edited or diffed. +- `.BAK` files scattered throughout `Programe/`, `Clase/`, etc. are VFP's own editor backups, + not something to restore from manually. +- There are no automated tests. `COMUN/utile/Teste/test.prg` and `teste_roacont.prg` are + ad hoc manual test scripts, not a test runner. + +## Entry point and startup flow + +`Programe/roacont.prg` is the application entry point (`PARAMETERS tparam` — a semicolon- +delimited connection string when launched by the ROA "Start" launcher). It: + +1. Sets the VFP environment (`SET PATH`, `SET CLASSLIB`/`SET PROCEDURE ... ADDITIVE`) — + this is effectively the dependency-injection root: dozens of `.vcx` class libraries and + `.prg` procedure files are registered here in a fixed order, and later code assumes they're + all loaded. New shared `.prg`/`.vcx` files must be registered here to be reachable app-wide. +2. Verifies the license/serial (`PORNIRE()` — disk serial + `comdir.snr` + registry key check) + and that the app was launched via the suite's start mechanism (`Verific_Start`), unless a + local `debug.txt` marker is present. +3. Reads `settings.ini` (via `getini`/`setini`, `COMUN` ini helpers) for local machine config + (report behavior, keepalive interval, error-reporting host, locale). +4. Instantiates global singleton objects that the rest of the app depends on as `PUBLIC`/module + globals: `goConn` (Oracle connect/disconnect wrapper), `goExecutor` (SQL exec wrapper with + error handling), `goExport` (report/Excel export), `goLocale` (i18n), `poLog`/`goLog` + (`Log_Mesaje` logging object), `goApi`/`goMyXMLHTTP` (remote error/update HTTP calls). +5. Sets `ON ERROR ErrorHandler(...)` and `ON SHUTDOWN` handlers — uncaught errors are logged via + `goLog`, posted to a remote error endpoint (`goMyXMLHTTP.postError`, host from + `settings.ini` `[errors] host`), and shown via `AMESSAGEBOX`. +6. Creates the main `cApplication` object (`goApp`) and shows the login form + (`COMUN\ferestre\frm_login.scx`), which resolves the target company (`goFirma`), Oracle + schema (`gcS`, e.g. `'CONTAFIN'`), and fiscal period (`gnAn`/`gnLuna`) before handing off to + the main menu (`Meniuri\cont2000.mpr`). + +Key long-lived globals to know when reading code: `gcS` (current Oracle schema/company), +`gnAn`/`gnLuna` (current fiscal year/month), `goFirma`/`gnIdFirma` (current company object/id), +`gcAppPath`/`DIRGEN` (app root paths), `glLunaInchisa` (period-closed flag that disables edit UI). + +## Directory layout + +- `Programe/` — top-level `.prg` business-logic modules registered via `SET PROCEDURE ... + ADDITIVE` in `roacont.prg` (e.g. `proceduri.prg`, `oproceduri_*.prg` per functional area: + incasari, casademarcat, conversie, decont, import, facturare, etc.). +- `Clase/` — `.vcx`/`.vct` VFP class libraries: base UI classes (`cont2000`, `contab`, `baza`), + Oracle-domain classes prefixed `o*` (`oparteneri`, `ovanzcump`, `ocasabanca`, `orapoarte_*`, + `oconversii`, `saft_d406`, `anaf_efactura`, ...). +- `Ferestre/` — `.scx`/`.sct` forms (data entry screens, dialogs). +- `Meniuri/` — `.mnx`/`.mnt`/`.mpr` menus; one `.mpr` per top-level menu context + (`cont2000.mpr` is the main menu; `casa1`, `banca1`, `capitaluri1`...`8`, etc. are + module-specific submenus/menus). +- `Rapoarte/` — `.frx`/`.frt` report definitions (balances, journals, declarations like + `rap_declaratia100`, D394/D406/SAF-T exports, invoices). +- `Include/` — third-party OCX controls and reference docs (SAF-T guide, D394 spec). +- `Initializari/` — `.tmpl` templates for generated XML/receipt files. +- `Locale/` — DBF-based i18n tables (`locale*.dbf`) and `locale.dbc` database container; + Romanian is the built-in default (see Localization below). +- `DATE/` — local machine/company option tables (`Optiuni_FIRMA/LOCAL/PROGRAM.dbf`). +- `Grafice/` — icons/bitmaps used by forms and toolbars. +- `Help/` — DBF-based in-app help content tables. +- `Alte/` — scratch/example data files (bank statement exports, import templates); not part + of the shipped app. +- Root `.sql` files (`roacont1/2/3.sql`, `anaf_efactura.sql`, `vanzari*.sql`, `mfinante.sql`) — + hand-run Oracle DDL/DML migrations, not applied automatically. +- `changelog_roacont.txt`, `bug_registru.txt` — human-maintained change logs (see Changelog + convention below). +- `versiune_db.txt` — a manually bumped `YYYY_MM_DD_NN` marker used to track the last applied + DB migration. + +### Shared code (`COMUN/` vs. `COMUNROA`) + +- `COMUN/` inside this project is ROACONT's *local* copy of shared assets (`clase`, `ferestre`, + `programe`, `rapoarte`, `meniuri`, `utile`), mirroring the same substructure as the app root. + `COMUN/utile/` holds cross-cutting utilities: `web` (`WWUTILS.PRG`, `WWAPI.PRG`, `wwhttp`, + http/xml helpers), `excel`, `hpdf` (PDF export), `nfjson`/`nfXml`, `calendar`, `ctl32`, + `email`, `chatbot`, `GridExtras`. +- `D:\ROA\COMUNROA` (outside this working copy) is the suite-wide shared library referenced + from `roacont.prg`'s `SET PATH` (`...COMUNROA\`) and used by every sibling ROA product — + treat edits there as cross-project and higher-blast-radius than edits under this project's + own `COMUN/`. +- `COMUN/Drepturi utilizatori/` holds the per-product SQL that defines user permission objects + (subfolders per product: `ROACONT`, `ROAGEST`, `ROACASA`, `ROAAUTO`, ...) and + `instructiuni drepturi.txt`, which documents the permission-object conventions used on forms + (`ntip` values 0–5 for view/report/register/ledger-or-partner/view/custom access levels, + `verifica_drepturi(...)` gating, `cbuton1..4` button wiring, `glLunaInchisa` read-only lock). + +## Changelog convention + +`changelog_roacont.txt` is a flat file of HTML-comment blocks, newest first, one per release: + +``` + +``` + +Tags in use: `:nou:` (new feature), `:modificare:` (change/fix to existing behavior), +`:eroare:` (bug fix), `:adaugare:` (addition). Version numbers increment per entry (current +series is `2.11.x`). When asked to log a change, follow this exact format/tag set rather than +inventing a new one. In-code change comments follow a similar per-block convention: +`*!* DD.MM.YYYY` followed by `*!* author.name` and a short description, directly above the +code being changed — preserve this style when editing existing modules. + +## Localization + +`gcLocale` defaults to `'Romana'`, in which case `goLocale` is a `Locale_dummy` pass-through +(no translation lookup). Any other locale value loads the real `Locale` class (`Locale.vcx`) +backed by the `locale*.dbf` tables under `Locale/`. Most in-app strings and comments are +Romanian; keep new user-facing strings and code comments in Romanian to match the existing +codebase unless told otherwise. + +## Reguli de lucru si testare + +Obligatoriu la modificari de cod si testare: `COMUN\docs\reguli_lucru.md` +(diff ca fisier + aprobare inainte de write-back; comentarii max o linie; +testare headless cu `COMUN\utile\Teste\test_init_env_auto.prg`). +Depanare detaliata: `COMUN\docs\depanare_testare_vfp.md`. + +## Skill routing + +When the user's request matches an available skill, invoke it via the Skill tool. When in doubt, invoke the skill. + +Key routing rules: +- Product ideas/brainstorming → invoke /office-hours +- Strategy/scope → invoke /plan-ceo-review +- Architecture → invoke /plan-eng-review +- Design system/plan review → invoke /design-consultation or /plan-design-review +- Full review pipeline → invoke /autoplan +- Bugs/errors → invoke /investigate +- QA/testing site behavior → invoke /qa or /qa-only +- Code review/diff check → invoke /review +- Visual polish → invoke /design-review +- Ship/deploy/PR → invoke /ship or /land-and-deploy +- Save progress → invoke /context-save +- Resume context → invoke /context-restore diff --git a/Clase/Backup0109/ferestrebaza.vc2 b/Clase/Backup0109/ferestrebaza.vc2 new file mode 100644 index 0000000..8c14666 --- /dev/null +++ b/Clase/Backup0109/ferestrebaza.vc2 @@ -0,0 +1,1489 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="ferestrebaza.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS atentie AS fatentie OF "ferestrebaza.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="CMDTERMIN1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" /> + + * + BorderStyle = 3 + DoCreate = .T. + Height = 100 + Name = "atentie" + Width = 401 + WindowType = 0 + Shape1.Height = 92 + Shape1.Left = 4 + Shape1.Name = "Shape1" + Shape1.Top = 4 + Shape1.Width = 392 + IMAGE1.Height = 32 + IMAGE1.Left = 31 + IMAGE1.Name = "IMAGE1" + IMAGE1.Picture = ..\grafice\exclam1.ico + IMAGE1.Top = 11 + IMAGE1.Width = 32 + Label1.Alignment = 0 + Label1.AutoSize = .T. + Label1.Left = 73 + Label1.Name = "Label1" + Label1.Top = 18 + Line1.Name = "Line1" + * + + ADD OBJECT 'CMDTERMIN1' AS cmdtermin WITH ; + AutoSize = .F., ; + Caption = "\ + + ADD OBJECT 'Label2' AS label WITH ; + Alignment = 0, ; + AutoSize = .T., ; + Caption = "label2", ; + FontSize = 11, ; + Height = 19, ; + Left = 137, ; + Name = "Label2", ; + Top = 18, ; + Width = 40 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label3' AS label WITH ; + Alignment = 2, ; + AutoSize = .F., ; + BackStyle = 0, ; + Caption = "label3", ; + FontSize = 11, ; + Height = 19, ; + Left = 27, ; + Name = "Label3", ; + Top = 45, ; + Width = 348, ; + WordWrap = .T. + *< END OBJECT: BaseClass="label" /> + + PROCEDURE Deactivate + thisform.release + ENDPROC + + PROCEDURE LostFocus + thisform.release + + ENDPROC + +ENDDEFINE + +DEFINE CLASS atentierosu AS stop OF "ferestrebaza.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + BorderStyle = 2 + Desktop = .F. + DoCreate = .T. + Height = 104 + Name = "atentierosu" + Width = 400 + Shape1.Height = 92 + Shape1.Left = 10 + Shape1.Name = "Shape1" + Shape1.Top = 6 + Shape1.Width = 380 + Image1.BackStyle = 0 + Image1.Height = 32 + Image1.Left = 16 + Image1.Name = "Image1" + Image1.Picture = ..\grafice\pericol.ico + Image1.Top = 14 + Image1.Width = 32 + Label1.Caption = "Atentie!" + Label1.Left = 60 + Label1.Name = "Label1" + Label1.Top = 116 + Line1.Name = "Line1" + LABEL2.Alignment = 2 + LABEL2.AutoSize = .F. + LABEL2.Height = 19 + LABEL2.Left = 48 + LABEL2.Name = "LABEL2" + LABEL2.Top = 18 + LABEL2.Width = 336 + CMDTERMIN1.Left = 158 + CMDTERMIN1.Name = "CMDTERMIN1" + LABEL3.Height = 19 + LABEL3.Left = 26 + LABEL3.Name = "LABEL3" + LABEL3.Top = 43 + LABEL3.Width = 358 + * + + PROCEDURE Init + _screen.visible=.t. + ENDPROC + +ENDDEFINE + +DEFINE CLASS atr AS atentierosu OF "ferestrebaza.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + BorderStyle = 2 + Desktop = .T. + DoCreate = .T. + Height = 104 + Name = "atr" + Width = 476 + SHAPE1.Height = 92 + SHAPE1.Left = 10 + SHAPE1.Name = "SHAPE1" + SHAPE1.Top = 6 + SHAPE1.Width = 458 + IMAGE1.Height = 32 + IMAGE1.Name = "IMAGE1" + IMAGE1.Width = 32 + LABEL1.Name = "LABEL1" + LINE1.Name = "LINE1" + LABEL2.Height = 19 + LABEL2.Left = 48 + LABEL2.Name = "LABEL2" + LABEL2.Top = 18 + LABEL2.Width = 408 + CMDTERMIN1.Left = 196 + CMDTERMIN1.Name = "CMDTERMIN1" + CMDTERMIN1.Top = 68 + LABEL3.Height = 19 + LABEL3.Left = 23 + LABEL3.Name = "LABEL3" + LABEL3.Top = 43 + LABEL3.Width = 430 + * + + PROCEDURE CMDTERMIN1.Click + _SCREEN.VISIBLE=.F. + THISFORM.RELEASE + + ENDPROC + +ENDDEFINE + +DEFINE CLASS buttulb AS commandbutton + *< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + *p: nrbar + * + + * + Caption = "Command1" + FontBold = .T. + ForeColor = 0,0,0 + Height = 27 + Name = "buttulb" + nrbar = 0 + Width = 84 + * + + PROCEDURE Click + *do exec_meniu with this.nrbar + ENDPROC + + PROCEDURE RightClick + this.visible=.f. + ENDPROC + +ENDDEFINE + +DEFINE CLASS cmdlist AS commandbutton + *< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + Caption = "\ + +ENDDEFINE + +DEFINE CLASS cmdrenunt AS commandbutton + *< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + Caption = "\ + + PROCEDURE Click + buton=2 + THISFORM.RELEASE + ENDPROC + +ENDDEFINE + +DEFINE CLASS cmdtermin AS commandbutton + *< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + Caption = "\ + + PROCEDURE Click + buton=1 + IF TYPE("THISFORM.Parent") = "O" + THISFORMSET.Release + ELSE + THISFORM.Release + ENDIF + + + ENDPROC + +ENDDEFINE + +DEFINE CLASS danu AS sigur OF "ferestrebaza.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + DoCreate = .T. + Name = "danu" + Shape1.Name = "Shape1" + Image1.Height = 32 + Image1.Left = 24 + Image1.Name = "Image1" + Image1.Top = 12 + Image1.Width = 32 + Label1.Alignment = 2 + Label1.AutoSize = .F. + Label1.FontBold = .F. + Label1.FontSize = 9 + Label1.Height = 44 + Label1.Left = 60 + Label1.Name = "Label1" + Label1.Top = 16 + Label1.Width = 300 + Label1.WordWrap = .T. + Line1.Name = "Line1" + Label2.Name = "Label2" + CMDTERMIN1.Name = "CMDTERMIN1" + Label3.Name = "Label3" + CMDRENUNT1.Name = "CMDRENUNT1" + * + + PROCEDURE CMDRENUNT1.Valid + buton=2 + ENDPROC + + PROCEDURE CMDTERMIN1.Valid + buton=1 + ENDPROC + +ENDDEFINE + +DEFINE CLASS danurenunt AS ffergen OF "ferestrebaza.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Seip1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cele3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="CMDTERMIN1" UniqueID="" Timestamp="" /> + + * + DoCreate = .T. + Height = 225 + Name = "danurenunt" + Width = 288 + LINE1.Name = "LINE1" + * + + ADD OBJECT 'cele3' AS optiongroup WITH ; + ButtonCount = 3, ; + Height = 72, ; + Left = 24, ; + Name = "cele3", ; + Top = 91, ; + Value = 2, ; + Width = 240, ; + ZOrderSet = 3, ; + Option1.AutoSize = .T., ; + Option1.Caption = "Se retin in totalitate", ; + Option1.Height = 17, ; + Option1.Left = 14, ; + Option1.Name = "Option1", ; + Option1.Top = 7, ; + Option1.Value = 0, ; + Option1.Width = 122, ; + Option2.AutoSize = .T., ; + Option2.Caption = "Se retin numai cele diferite de zero", ; + Option2.Height = 17, ; + Option2.Left = 14, ; + Option2.Name = "Option2", ; + Option2.Top = 26, ; + Option2.Value = 1, ; + Option2.Width = 207, ; + Option3.AutoSize = .T., ; + Option3.Caption = "Nu se retine nici unul", ; + Option3.Height = 17, ; + Option3.Left = 14, ; + Option3.Name = "Option3", ; + Option3.Top = 45, ; + Option3.Width = 134 + *< END OBJECT: BaseClass="optiongroup" /> + + ADD OBJECT 'CMDTERMIN1' AS cmdtermin WITH ; + Left = 180, ; + Name = "CMDTERMIN1", ; + Top = 178 + *< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Image1' AS image WITH ; + BackStyle = 0, ; + Height = 32, ; + Left = 27, ; + Name = "Image1", ; + Picture = ..\..\sal2000\grafice\intreb.ico, ; + Top = 40, ; + Width = 32 + *< END OBJECT: BaseClass="image" /> + + ADD OBJECT 'Label1' AS label WITH ; + AutoSize = .F., ; + Caption = "Care dintre salariile brute calculate in aceasta foaie de lucru se retin si se inregistreaza in state?", ; + Height = 60, ; + Left = 72, ; + Name = "Label1", ; + Top = 36, ; + Width = 192, ; + WordWrap = .T., ; + ZOrderSet = 2 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Seip1' AS seip WITH ; + Height = 204, ; + Left = 12, ; + Name = "Seip1", ; + Top = 12, ; + Width = 264, ; + ZOrderSet = 0 + *< END OBJECT: ClassLib="..\..\sal2000\clase\ferestrebaza.vcx" BaseClass="shape" /> + + PROCEDURE CMDTERMIN1.Click + buton=thisform.cele3.value + thisform.release + ENDPROC + +ENDDEFINE + +DEFINE CLASS diary AS ffergen OF "ferestrebaza.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Seip1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Container1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Container1.Label4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Container1.Label5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Container1.Label6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Container1.Label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Container1.Label2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Container1.Label7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Container1.Label3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="CALEND" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="ComboAn" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="ComboLuna" UniqueID="" Timestamp="" /> + + * + *p: an + *p: numel + * + + * + an = 2000 + BorderStyle = 3 + Caption = "Calendar" + Closable = .T. + ControlBox = .T. + DoCreate = .T. + Height = 270 + Icon = ..\grafice\cont11.ico + Name = "diary" + numel = Martie + Width = 478 + Line1.Name = "Line1" + Line1.ZOrderSet = 3 + * + + ADD OBJECT 'CALEND' AS olecontrol WITH ; + Height = 156, ; + Left = 15, ; + Name = "CALEND", ; + Top = 94, ; + Width = 441, ; + ZOrderSet = 2 + *< END OBJECT: BaseClass="olecontrol" OLEObject="c:\windows\system32\mscal.ocx" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7///8EAAAA/v///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKDB9P1fK8QBAwAAAEADAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAigIAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAA4AAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAQAAAAAAAAAAwAAAP7////+////BAAAAAUAAAAGAAAABwAAAAgAAAAJAAAACgAAAAsAAAAMAAAA/v////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////8rySeOZBIcEIovBAIkAJwCAAAIAJQtAAAgEAAA0AcEABgAwMDAAITpEgAAAAAAAAAAAAAAAAAAAAIAAAAAAAEAOAAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAvAJEQgEADU1TIFNhbnMgU2VyaWYBAAAAkAFEQgEADU1TIFNhbnMgU2VyaWYBAAAAvALA1AEADU1TIFNhbnMgU2VyaWYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAe4AALwCREIBAAVBcmlhbAHuAACQAURCAQAFQXJpYWwB7gAAvALA1AEABUFyaWFsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" /> + + ADD OBJECT 'ComboAn' AS combobox WITH ; + Alignment = 0, ; + BackColor = 255,255,255, ; + ControlSource = "m.AN", ; + Height = 20, ; + Left = 372, ; + Name = "ComboAn", ; + RowSource = "1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010", ; + RowSourceType = 1, ; + Style = 2, ; + TabIndex = 4, ; + TabStop = .F., ; + Top = 20, ; + Visible = .T., ; + Width = 72, ; + ZOrderSet = 15 + *< END OBJECT: BaseClass="combobox" /> + + ADD OBJECT 'ComboLuna' AS combobox WITH ; + BackColor = 255,255,255, ; + ControlSource = "M.LUNA", ; + Height = 20, ; + Left = 252, ; + Name = "ComboLuna", ; + RowSource = "lunilean.numeluna", ; + RowSourceType = 6, ; + Style = 2, ; + TabIndex = 3, ; + TabStop = .F., ; + Top = 20, ; + Visible = .T., ; + Width = 108, ; + ZOrderSet = 14 + *< END OBJECT: BaseClass="combobox" /> + + ADD OBJECT 'Container1' AS container WITH ; + Height = 25, ; + Left = 25, ; + Name = "Container1", ; + SpecialEffect = 1, ; + Top = 68, ; + Width = 421, ; + ZOrderSet = 1 + *< END OBJECT: BaseClass="container" /> + + ADD OBJECT 'Container1.Label1' AS label WITH ; + AutoSize = .T., ; + Caption = "L", ; + FontBold = .T., ; + FontName = "Arial", ; + FontSize = 12, ; + ForeColor = 0,0,160, ; + Height = 22, ; + Left = 11, ; + Name = "Label1", ; + Top = 2, ; + Width = 12, ; + ZOrderSet = 4 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Container1.Label2' AS label WITH ; + AutoSize = .T., ; + Caption = "M", ; + FontBold = .T., ; + FontName = "Arial", ; + FontSize = 12, ; + ForeColor = 0,0,160, ; + Height = 22, ; + Left = 70, ; + Name = "Label2", ; + Top = 2, ; + Width = 15, ; + ZOrderSet = 5 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Container1.Label3' AS label WITH ; + AutoSize = .T., ; + Caption = "M", ; + FontBold = .T., ; + FontName = "Arial", ; + FontSize = 12, ; + ForeColor = 0,0,160, ; + Height = 22, ; + Left = 130, ; + Name = "Label3", ; + Top = 2, ; + Width = 15, ; + ZOrderSet = 6 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Container1.Label4' AS label WITH ; + AutoSize = .T., ; + Caption = "J", ; + FontBold = .T., ; + FontName = "Arial", ; + FontSize = 12, ; + ForeColor = 0,0,160, ; + Height = 22, ; + Left = 190, ; + Name = "Label4", ; + Top = 2, ; + Width = 11, ; + ZOrderSet = 7 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Container1.Label5' AS label WITH ; + AutoSize = .T., ; + Caption = "V", ; + FontBold = .T., ; + FontName = "Arial", ; + FontSize = 12, ; + ForeColor = 0,0,160, ; + Height = 22, ; + Left = 250, ; + Name = "Label5", ; + Top = 2, ; + Width = 13, ; + ZOrderSet = 8 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Container1.Label6' AS label WITH ; + AutoSize = .T., ; + Caption = "S", ; + FontBold = .T., ; + FontName = "Arial", ; + FontSize = 12, ; + ForeColor = 0,0,160, ; + Height = 22, ; + Left = 310, ; + Name = "Label6", ; + Top = 2, ; + Width = 13, ; + ZOrderSet = 9 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Container1.Label7' AS label WITH ; + AutoSize = .T., ; + Caption = "D", ; + FontBold = .T., ; + FontName = "Arial", ; + FontSize = 12, ; + ForeColor = 0,0,160, ; + Height = 22, ; + Left = 371, ; + Name = "Label7", ; + Top = 2, ; + Width = 14, ; + ZOrderSet = 10 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Seip1' AS seip WITH ; + Height = 201, ; + Left = 8, ; + Name = "Seip1", ; + Top = 55, ; + Width = 456, ; + ZOrderSet = 0 + *< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="shape" /> + + ADD OBJECT 'Text1' AS textbox WITH ; + Alignment = 0, ; + BorderStyle = 0, ; + ControlSource = "THISFORM.NUMEL", ; + FontBold = .T., ; + FontName = "Arial", ; + FontSize = 15, ; + ForeColor = 0,0,128, ; + Height = 32, ; + Left = 24, ; + Name = "Text1", ; + ReadOnly = .T., ; + Top = 16, ; + Width = 120, ; + ZOrderSet = 11 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text2' AS textbox WITH ; + BorderStyle = 0, ; + ControlSource = "THISFORM.AN", ; + FontBold = .T., ; + FontName = "Arial", ; + FontSize = 15, ; + ForeColor = 0,0,128, ; + Height = 23, ; + Left = 147, ; + Name = "Text2", ; + ReadOnly = .T., ; + Top = 16, ; + Width = 58, ; + ZOrderSet = 12 + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE Init + + THISFORM.CALEND.day=day(date()) + THISFORM.CALEND.month=month(date()) + THISFORM.CALEND.year=year(date()) + SELE LUNILEAN + LOCA FOR val(NL)=THISFORM.CALEND.MONTH + + THISFORM.NUMEL=NUMELUNA + THISFORM.TEXT1.REFRESH + thisform.comboluna.value=NUMELUNA + thisform.comboan.value=str(year(date())) + ENDPROC + + PROCEDURE CALEND.AfterUpdate + *** OLE Control Event *** + SELE LUNILEAN + LOCA FOR val(NL)=THISFORM.CALEND.MONTH + THISFORM.NUMEL=NUMELUNA + THISFORM.AN=THISFORM.CALEND.YEAR + THISFORM.TEXT1.REFRESH + THISFORM.TEXT2.REFRESH + ENDPROC + + PROCEDURE ComboAn.Valid + thisform.calend.year=m.an + thisform.calend.refresh + + SELE LUNILEAN + LOCA FOR val(NL)=THISFORM.CALEND.MONTH + THISFORM.NUMEL=NUMELUNA + THISFORM.AN=THISFORM.CALEND.YEAR + THISFORM.TEXT1.REFRESH + THISFORM.TEXT2.REFRESH + ENDPROC + + PROCEDURE ComboLuna.AddItem + LPARAMETERS cItem + + ENDPROC + + PROCEDURE ComboLuna.Valid + local l + sele lunilean + *loca for allt(numeluna)=allt(this.value) + l=val(nl) + thisform.calend.month=l + thisform.calend.refresh + + SELE LUNILEAN + LOCA FOR val(NL)=THISFORM.CALEND.MONTH + THISFORM.NUMEL=NUMELUNA + THISFORM.AN=THISFORM.CALEND.YEAR + THISFORM.TEXT1.REFRESH + THISFORM.TEXT2.REFRESH + ENDPROC + +ENDDEFINE + +DEFINE CLASS fatentie AS ffergen OF "ferestrebaza.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> + + * + AutoCenter = .T. + BorderStyle = 2 + ControlBox = .F. + DoCreate = .T. + Height = 108 + Name = "fatentie" + Width = 375 + * + + ADD OBJECT 'Image1' AS image WITH ; + Height = 32, ; + Left = 24, ; + Name = "Image1", ; + Picture = ..\grafice\exclam1.ico, ; + Top = 12, ; + Width = 32, ; + ZOrderSet = 1 + *< END OBJECT: BaseClass="image" /> + + ADD OBJECT 'Label1' AS label WITH ; + Caption = "Atentie!", ; + FontBold = .T., ; + FontSize = 12, ; + Height = 24, ; + Left = 64, ; + Name = "Label1", ; + Top = 21, ; + Width = 60, ; + ZOrderSet = 2 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Shape1' AS shape WITH ; + Height = 90, ; + Left = 3, ; + Name = "Shape1", ; + SpecialEffect = 0, ; + Top = 9, ; + Width = 367, ; + ZOrderSet = 0 + *< END OBJECT: BaseClass="shape" /> + +ENDDEFINE + +DEFINE CLASS ffergen AS form + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Line1" UniqueID="" Timestamp="" /> + + * + *m: do_reface + *m: do_renunt + *m: do_termin + *m: inainte_de_do_renunt + *m: inainte_de_do_termin + * + + * + AlwaysOnTop = .T. + AutoCenter = .T. + BorderStyle = 3 + Caption = "" + Closable = .F. + ControlBox = .F. + DoCreate = .T. + Height = 500 + Icon = ..\..\ + MaxButton = .F. + MinButton = .F. + Movable = .F. + Name = "ffergen" + Picture = ..\..\ + ShowTips = .T. + Width = 800 + WindowType = 1 + * + + ADD OBJECT 'Line1' AS line WITH ; + Height = 0, ; + Left = 0, ; + Name = "Line1", ; + Top = 475, ; + Visible = .F., ; + Width = 516 + *< END OBJECT: BaseClass="line" /> + +ENDDEFINE + +DEFINE CLASS labelsmecher AS label + *< CLASSDATA: Baseclass="label" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + AutoSize = .T. + BackColor = 228,228,228 + BackStyle = 0 + Caption = "Label1" + FontName = "Arial" + FontSize = 8 + Height = 16 + MouseIcon = ..\grafice\point.cur + MousePointer = 99 + Name = "labelsmecher" + Width = 34 + * + + PROCEDURE MouseMove + LPARAMETERS nButton, nShift, nXCoord, nYCoord + this.parent.refresh + + *this.fontbold=.t. + this.fontunderline=.t. + this.forecolor=rgb(0,0,255) + *this.backstyle=1 + + ENDPROC + +ENDDEFINE + +DEFINE CLASS progresbar AS ffergen OF "ferestrebaza.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Seip1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="PRBAR" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="TITLU" UniqueID="" Timestamp="" /> + + * + *p: p + *p: v + * + + * + BorderStyle = 2 + DoCreate = .T. + Height = 55 + Name = "progresbar" + p = 0 + v = 0 + Width = 391 + WindowType = 0 + Line1.Name = "Line1" + Line1.ZOrderSet = 1 + * + + ADD OBJECT 'Label1' AS label WITH ; + Caption = "%", ; + Height = 17, ; + Left = 349, ; + Name = "Label1", ; + Top = 9, ; + Width = 26, ; + ZOrderSet = 4 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'PRBAR' AS olecontrol WITH ; + Height = 15, ; + Left = 15, ; + Name = "PRBAR", ; + Top = 27, ; + Width = 361, ; + ZOrderSet = 2 + *< END OBJECT: BaseClass="olecontrol" OLEObject="c:\winnt\system32\comctl32.ocx" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7////+/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGCQtOLklsMBAwAAAEABAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAXAAAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAABPAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAACEAAAAAAAAABAAAAAIAAAD+/////v////7////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////S6BMHCoUbEK/AQhAQKo2nIUM0EggAAABPJQAAjQEAAIR+4eYCAAUAHAAAAAAAAAAAAMhCAe/NqwAABQBoyhYATwAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAABcAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgcWhqIFp0dVFoYTtqZGZuW2lhZXRyIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAVwBlAHMAdAABAACADAAAAEJvcmRlclN0eWxlAAkAAABJCgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGR2AAgAAAAABwAAAP//////////AAAAAB/e7L0BAAUAAAAAAAwAAAAYAAAAkAEAAAAAAABgAAAAYAAAACAAIiGBACAAAAAAIQAAAABAAAEAGAAAAB0AAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAYWwACAAAAADkAQAAcAEAAAEAAAAlAAAAEAAAAAAAAAAAAAAAkAEAAAAAAAABAgEiTQBTACAAUwBhAG4AcwAgAFMAZQByAGkAZgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAE0AUwAgAFMAYQBuAHMAIABTAGUAcgBpAGYAAAAAAAAAAAAAAA==" /> + + ADD OBJECT 'Seip1' AS seip WITH ; + Height = 43, ; + Left = 9, ; + Name = "Seip1", ; + Top = 5, ; + Width = 372, ; + ZOrderSet = 0 + *< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="shape" /> + + ADD OBJECT 'Text1' AS textbox WITH ; + Alignment = 1, ; + BackStyle = 0, ; + BorderStyle = 0, ; + ControlSource = "THISFORM.P", ; + Height = 23, ; + Left = 314, ; + Name = "Text1", ; + Top = 7, ; + Width = 36, ; + ZOrderSet = 3 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'TITLU' AS label WITH ; + AutoSize = .T., ; + Caption = " ", ; + Height = 17, ; + Left = 17, ; + Name = "TITLU", ; + Top = 9, ; + Width = 5 + *< END OBJECT: BaseClass="label" /> + + PROCEDURE Init + IF M=0 + M=M+1 + ENDIF + THISFORM.PRBAR.MAX=M + THISFORM.PRBAR.VALUE=0 + ENDPROC + + PROCEDURE Release + THISFORM.PRBAR.VALUE=M + THISFORM.REFRESH + ENDPROC + +ENDDEFINE + +DEFINE CLASS seip AS shape + *< CLASSDATA: Baseclass="shape" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + BackStyle = 0 + Height = 68 + Name = "seip" + SpecialEffect = 0 + Width = 68 + * + +ENDDEFINE + +DEFINE CLASS set AS formset + *< CLASSDATA: Baseclass="formset" Timestamp="" Scale="" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="tbrprim" UniqueID="" Timestamp="" /> + + * + Name = "set" + Visible = .T. + WindowType = 0 + * + + ADD OBJECT 'tbrprim' AS tbrprim WITH ; + Height = 28, ; + Left = 7, ; + Name = "tbrprim", ; + Top = 23, ; + Width = 33, ; + Buton1.Left = 5, ; + Buton1.Name = "Buton1", ; + Buton1.ToolTipText = "Adauga la bara de instrumente ultima operatiune de introducere efectuata", ; + Buton1.Top = 3 + *< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="toolbar" /> + + PROCEDURE tbrprim.Buton1.Click + local t0,c0,c1,c2,c3 + local totbut,numebut,nrbut + totbut=this.parent.controlcount + nrbut=totbut-1 + numebut='but'+alltrim(str(nrbut)) + c0=rand(-10) + c0=rand(0) + c1=int(255*rand()) + c2=int(255*rand()) + c3=int(255*rand()) + + if bar()<1000 + DO MESAJatent WITH 'Efectuati operatia de introducere dorita','si apoi reveniti!' + else + do mesaj with 'Adauga operatiunea de introducere:',prompt() + + + this.parent.addobject(numebut,'buttulb') + + t0='this.parent.'+numebut + + with &t0 + .caption=alltrim(str(nrbut)) + .tooltiptext=prompt() + .height=this.parent.buton1.height + .width=this.parent.buton1.width + .forecolor=rgb(c1,c2,c3) + .visible=.t. + .nrbar=bar() + endwith + + endif + ENDPROC + +ENDDEFINE + +DEFINE CLASS setinstr AS set OF "ferestrebaza.vcx" + *< CLASSDATA: Baseclass="formset" Timestamp="" Scale="" Uniqueid="" /> + + * + Name = "setinstr" + tbrprim.BUTON1.Left = 5 + tbrprim.BUTON1.Name = "BUTON1" + tbrprim.BUTON1.Top = 3 + tbrprim.Height = 28 + tbrprim.Left = 7 + tbrprim.Name = "tbrprim" + tbrprim.Top = 23 + tbrprim.Width = 33 + * + + PROCEDURE tbrprim.BUTON1.Click + ** + ENDPROC + +ENDDEFINE + +DEFINE CLASS setinstrum AS setinstr OF "ferestrebaza.vcx" + *< CLASSDATA: Baseclass="formset" Timestamp="" Scale="" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="tbrprim.Command1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="tbrprim.Command2" UniqueID="" Timestamp="" /> + + * + AutoRelease = .T. + Name = "setinstrum" + tbrprim.Buton1.Enabled = .T. + tbrprim.Buton1.Height = 40 + tbrprim.Buton1.Left = 83 + tbrprim.Buton1.Name = "Buton1" + tbrprim.Buton1.Picture = ..\grafice\calendar2.bmp + tbrprim.Buton1.StatusBarText = "Calendar " + tbrprim.Buton1.ToolTipText = "Calendar" + tbrprim.Buton1.Top = 3 + tbrprim.Buton1.Visible = .T. + tbrprim.Buton1.Width = 40 + tbrprim.Buton1.ZOrderSet = 2 + tbrprim.Caption = "Instrumente" + tbrprim.ControlBox = .T. + tbrprim.Height = 46 + tbrprim.Left = 122 + tbrprim.Name = "tbrprim" + tbrprim.Top = 0 + tbrprim.Width = 128 + * + + ADD OBJECT 'tbrprim.Command1' AS commandbutton WITH ; + Caption = "", ; + Height = 40, ; + Left = 5, ; + Name = "Command1", ; + Picture = ..\grafice\calculator2.bmp, ; + StatusBarText = "Calculator", ; + ToolTipText = "Calculator", ; + Top = 3, ; + Width = 40, ; + ZOrderSet = 0 + *< END OBJECT: BaseClass="commandbutton" /> + + ADD OBJECT 'tbrprim.Command2' AS commandbutton WITH ; + Caption = "", ; + Height = 40, ; + Left = 44, ; + Name = "Command2", ; + Picture = ..\grafice\notepad1.bmp, ; + StatusBarText = "Editor pentru notite", ; + ToolTipText = "Notepad", ; + Top = 3, ; + Width = 40, ; + ZOrderSet = 1 + *< END OBJECT: BaseClass="commandbutton" /> + + PROCEDURE tbrprim.Buton1.Click + *!* od=createo('diary') + *!* od.show(1) + ENDPROC + + PROCEDURE tbrprim.Command1.Click + do case + case file('C:\WINDOWS\CALC.EXE') + run /N C:\WINDOWS\CALC.EXE + case file('C:\WINDOWS\SYSTEM32\CALC.EXE') + run /N C:\WINDOWS\SYSTEM32\CALC.EXE + case file('C:\WINnt\system32\CALC.EXE') + run /N C:\WINnt\system32\CALC.EXE + otherwise + do mesajatent with 'Aplicatia "Calculator" nu este instalata','pe acest sistem!' + endcase + + ENDPROC + + PROCEDURE tbrprim.Command2.Click + do case + case file('C:\WINDOWS\NOTEPAD.EXE') + run /N C:\WINDOWS\NOTEPAD.EXE + case file('C:\WINnt\system32\NOTEPAD.EXE') + run /N C:\WINnt\system32\NOTEPAD.EXE + otherwise + do mesajatent with 'Aplicatia "NOTEPAD" nu este instalata','pe acest sistem!' + endcase + + ENDPROC + + PROCEDURE tbrprim.Show + LPARAMETERS nStyle + *if _screen.width>800 + *this.dock(1,0,0) + *else + *this.dock(-1,0,0) + *endif + this.dock(0,0,0) + ENDPROC + +ENDDEFINE + +DEFINE CLASS sigur AS atentie OF "ferestrebaza.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="CMDRENUNT1" UniqueID="" Timestamp="" /> + + * + DoCreate = .T. + Name = "sigur" + SHAPE1.Name = "SHAPE1" + Image1.BackStyle = 0 + Image1.Height = 32 + Image1.Left = 51 + Image1.Name = "Image1" + Image1.Picture = ..\grafice\intreb.ico + Image1.Top = 22 + Image1.Width = 32 + Label1.Caption = "Doriti sa iesiti din program?" + Label1.Left = 102 + Label1.Name = "Label1" + Label1.Top = 26 + Line1.Name = "Line1" + Label2.Left = 348 + Label2.Name = "Label2" + Label2.Top = 12 + Label2.Visible = .F. + CMDTERMIN1.Caption = "\ + + ADD OBJECT 'CMDRENUNT1' AS cmdrenunt WITH ; + Caption = "\ + + PROCEDURE CMDRENUNT1.Valid + buton=2 + ENDPROC + + PROCEDURE CMDTERMIN1.Valid + buton=1 + ENDPROC + +ENDDEFINE + +DEFINE CLASS stop AS atentie OF "ferestrebaza.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + DoCreate = .T. + Height = 100 + Name = "stop" + Width = 377 + Shape1.Height = 92 + Shape1.Left = 4 + Shape1.Name = "Shape1" + Shape1.Top = 4 + Shape1.Width = 368 + IMAGE1.Height = 22 + IMAGE1.Left = 41 + IMAGE1.Name = "IMAGE1" + IMAGE1.Picture = ..\grafice\hand.bmp + IMAGE1.Top = 14 + IMAGE1.Width = 24 + Label1.Caption = "Stop!" + Label1.Left = 386 + Label1.Name = "Label1" + Label1.Top = 12 + Label1.Visible = .F. + Line1.Name = "Line1" + Label2.FontSize = 11 + Label2.Left = 73 + Label2.Name = "Label2" + Label2.Top = 17 + Cmdtermin1.Left = 146 + Cmdtermin1.Name = "Cmdtermin1" + Label3.FontSize = 11 + Label3.Left = 14 + Label3.Name = "Label3" + * + +ENDDEFINE + +DEFINE CLASS tbrprim AS toolbar + *< CLASSDATA: Baseclass="toolbar" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Buton1" UniqueID="" Timestamp="" /> + + * + Caption = "Introducere" + Height = 31 + Left = 0 + Name = "tbrprim" + Top = -1 + Width = 33 + * + + ADD OBJECT 'Buton1' AS commandbutton WITH ; + Caption = "", ; + Height = 22, ; + Left = 5, ; + Name = "Buton1", ; + Picture = ..\grafice\edit1.bmp, ; + Top = 5, ; + Width = 23 + *< END OBJECT: BaseClass="commandbutton" /> + +ENDDEFINE + +DEFINE CLASS text AS atentie OF "ferestrebaza.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + DoCreate = .T. + Height = 102 + Name = "text" + Width = 439 + Shape1.Height = 92 + Shape1.Left = 4 + Shape1.Name = "Shape1" + Shape1.Top = 4 + Shape1.Width = 428 + Shape1.ZOrderSet = 1 + IMAGE1.Height = 32 + IMAGE1.Left = 12 + IMAGE1.Name = "IMAGE1" + IMAGE1.Picture = ..\grafice\net13.ico + IMAGE1.Top = 23 + IMAGE1.Width = 32 + IMAGE1.ZOrderSet = 2 + Label1.Left = 12 + Label1.Name = "Label1" + Label1.Top = 60 + Label1.Visible = .F. + Label1.ZOrderSet = 0 + Line1.Name = "Line1" + Label2.Alignment = 2 + Label2.AutoSize = .F. + Label2.FontName = "Arial" + Label2.FontSize = 10 + Label2.Height = 18 + Label2.Left = 50 + Label2.Name = "Label2" + Label2.Top = 18 + Label2.Width = 376 + Label2.ZOrderSet = 3 + Cmdtermin1.Left = 177 + Cmdtermin1.Name = "Cmdtermin1" + Cmdtermin1.Top = 61 + Cmdtermin1.ZOrderSet = 4 + Label3.FontName = "Arial" + Label3.FontSize = 10 + Label3.Height = 19 + Label3.Left = 50 + Label3.Name = "Label3" + Label3.Top = 36 + Label3.Visible = .T. + Label3.Width = 376 + Label3.ZOrderSet = 5 + * + +ENDDEFINE + +DEFINE CLASS textmare AS text OF "ferestrebaza.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + DoCreate = .T. + Height = 178 + Name = "textmare" + Width = 379 + LABEL1.Name = "LABEL1" + SHAPE1.Height = 164 + SHAPE1.Left = 5 + SHAPE1.Name = "SHAPE1" + SHAPE1.Top = 7 + SHAPE1.Width = 368 + Image1.BackStyle = 0 + Image1.Height = 32 + Image1.Left = 20 + Image1.Name = "Image1" + Image1.Picture = ..\grafice\exclam2.ico + Image1.Top = 27 + Image1.Width = 32 + LABEL2.Alignment = 0 + LABEL2.Height = 102 + LABEL2.Left = 60 + LABEL2.Name = "LABEL2" + LABEL2.Top = 24 + LABEL2.Width = 300 + LABEL2.WordWrap = .T. + Cmdtermin1.Left = 277 + Cmdtermin1.Name = "Cmdtermin1" + Cmdtermin1.Top = 137 + LABEL3.Left = 60 + LABEL3.Name = "LABEL3" + LABEL3.Top = 180 + LABEL3.Visible = .F. + Line1.Name = "Line1" + * + +ENDDEFINE + +DEFINE CLASS textmarer AS textmare OF "ferestrebaza.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="CMDRENUNT1" UniqueID="" Timestamp="" /> + + * + DoCreate = .T. + Name = "textmarer" + Label1.Name = "Label1" + Shape1.Name = "Shape1" + Image1.Height = 32 + Image1.Name = "Image1" + Image1.Width = 32 + Label2.Name = "Label2" + CMDTERMIN1.Caption = "\ + + ADD OBJECT 'CMDRENUNT1' AS cmdrenunt WITH ; + Caption = "\ + +ENDDEFINE + +DEFINE CLASS textr AS text OF "ferestrebaza.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="CMDRENUNT1" UniqueID="" Timestamp="" /> + + * + BorderStyle = 3 + DoCreate = .T. + Height = 102 + Name = "textr" + Width = 437 + Label1.Name = "Label1" + SHAPE1.BackStyle = 0 + SHAPE1.Name = "SHAPE1" + Image1.Height = 32 + Image1.Name = "Image1" + Image1.Width = 32 + Label2.BackStyle = 0 + Label2.Name = "Label2" + Cmdtermin1.Caption = "\ + + ADD OBJECT 'CMDRENUNT1' AS cmdrenunt WITH ; + Caption = "\ + + PROCEDURE CMDRENUNT1.Valid + BUTON=2 + ENDPROC + + PROCEDURE Cmdtermin1.Valid + BUTON=1 + ENDPROC + +ENDDEFINE + +DEFINE CLASS textval AS text OF "ferestrebaza.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" /> + + * + *p: valoare + * + + * + DoCreate = .T. + Name = "textval" + valoare = 0 + Label1.Name = "Label1" + Shape1.Name = "Shape1" + IMAGE1.BackStyle = 0 + IMAGE1.Height = 32 + IMAGE1.Left = 48 + IMAGE1.Name = "IMAGE1" + IMAGE1.Picture = ..\grafice\point04.ico + IMAGE1.Stretch = 0 + IMAGE1.Top = 29 + IMAGE1.Width = 32 + Label2.Name = "Label2" + Cmdtermin1.Name = "Cmdtermin1" + Label3.Left = 84 + Label3.Name = "Label3" + Label3.Top = 96 + Label3.Visible = .F. + LINE1.Name = "LINE1" + * + + ADD OBJECT 'Text1' AS textbox WITH ; + Alignment = 2, ; + BackStyle = 0, ; + BorderStyle = 0, ; + ControlSource = "thisform.valoare", ; + FontBold = .T., ; + ForeColor = 0,0,160, ; + Format = "r", ; + Height = 23, ; + InputMask = "999 999 999 999 999", ; + Left = 101, ; + Name = "Text1", ; + Top = 33, ; + Width = 198 + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE Show + LPARAMETERS nStyle + if thisform.valoare<0 + thisform.text1.forecolor=rgb(255,0,0) + endif + ENDPROC + +ENDDEFINE + +DEFINE CLASS titlu AS label + *< CLASSDATA: Baseclass="label" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + Alignment = 0 + AutoSize = .T. + Caption = "TITLU" + FontBold = .T. + FontName = "BankGothic Md BT" + FontShadow = .F. + FontSize = 12 + ForeColor = 255,255,255 + Height = 22 + Name = "titlu" + TabIndex = 21 + Width = 52 + ZOrderSet = 6 + * + +ENDDEFINE diff --git a/Clase/appwiz.vc2 b/Clase/appwiz.vc2 new file mode 100644 index 0000000..0fdceb5 --- /dev/null +++ b/Clase/appwiz.vc2 @@ -0,0 +1,437 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="appwiz.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +*< LIBCOMMENT: Application Wizard framework class library. /> +* +DEFINE CLASS wzapplication AS container && Application class used as a framework for the Application Wizard. + *< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + *m: beforereadevents && Method executed before READ EVENTS is executed when ReadEvents is called. + *m: clearevents && Clears any pending read events. + *m: doform && Executes an SCX form. + *m: dolabel && Executes an LBX label + *m: domenu && Executes an MPR menu. + *m: doprogram && Executes a PRG, APP, or EXE program. + *m: doreport && Executes an FRX report. + *m: filenotfoundmsgbox && Displays a File Not Found messagebox. + *m: getcaption && Returns the caption of the application. + *m: geticon && Returns the icon of the application. + *m: onshutdown && Occurs when the user attempts to exit Visual FoxPro. + *m: readevents && Starts read events mode. + *m: readini + *m: refreshformscollection && Refresh forms collection arrays and counters. + *m: release && Releases the application from memory. + *m: releaseform && Release specifc or active form from memory. + *m: releaseforms && Release all application forms from memory. + *m: resetformscollection && Reset arrays and counters of forms collection. + *m: restoreenvironment && Restores environment settings. + *m: saveenvironment && Saves environment settings. + *m: setcaption && Sets the caption of the application. + *m: seticon && Sets the icon of the application. + *m: show && Displays the application. + *m: writeini + *p: ccaption && Caption of the application object. + *p: cicon && Icon of the application object. + *p: clastcaption && Last caption setting of _screen before application object was intantiated. + *p: clasticon && Last icon setting of _screen before application object was intantiated. + *p: cstartupform && Form (SCX) which is executed when the application object is shown. + *p: cstartupmenu && Menu (MPR) which is executed when the application object is shown. + *p: lcascadeforms && Specifies whether forms are cascaded if multiple instances of the same form are opened in the same top and left positions of the desktop. + *p: lreadevents && Enable READ EVENTS within ReadEvents method. + *p: nformcount && Forms collection count for application object. + *p: npixeloffset && Number of pixels which offset multiple instances of the same form. + *a: aformnames[1,0] && Form name collection for application object. + *a: aforms[1,0] && Forms collection for application object. + *p: _memberdata && XML Metadata for customizable properties + * + + PROTECTED ccaption,cicon,clastcaption,clasticon,Destroy,Init + * + BackColor = 0,0,255 + ccaption = + cicon = + clastcaption = + clasticon = + cstartupform = + cstartupmenu = + Height = 34 + lcascadeforms = .T. + lreadevents = .T. + Name = "wzapplication" + nformcount = 0 + npixeloffset = 22 + Visible = .F. + Width = 108 + _memberdata = + + + * + + PROTECTED PROCEDURE beforereadevents && Method executed before READ EVENTS is executed when ReadEvents is called. + ENDPROC + + PROCEDURE clearevents && Clears any pending read events. + CLEAR EVENTS + + ENDPROC + + PROTECTED PROCEDURE Destroy + CLEAR EVENTS + this.RestoreEnvironment + + ENDPROC + + PROCEDURE doform && Executes an SCX form. + LPARAMETERS tcFileName,tcClass,tlNoMultipleInstances,tlNoShow + LOCAL lcFileName,lcClass,oForm,oForm2,lcName,lnCount,lnTop,lnLeft + LOCAL lcFormName,lnFormCount + + _screen.visible=.t. + + lcFileName=ALLTRIM(tcFileName) + IF EMPTY(lcFileName) + RETURN .F. + ENDIF + lcClass=IIF(TYPE("tcClass")=="C",LOWER(ALLTRIM(tcClass)),"") + lcFileName=LOWER(FULLPATH(lcFileName)) + IF NOT "."$lcFileName + lcFileName=lcFileName+IIF(EMPTY(lcClass),".scx",".vcx") + ENDIF + IF NOT FILE(lcFileName) + this.FileNotFoundMsgBox(lcFileName) + RETURN .F. + ENDIF + lcFormName=IIF(EMPTY(lcClass),lcFileName,lcFileName+","+lcClass) + IF tlNoMultipleInstances + FOR lnCount = 1 TO this.nFormCount + IF this.aFormNames[lnCount]==lcFormName AND ; + TYPE("this.aForms[lnCount]")=="O" AND ; + NOT ISNULL(this.aForms[lnCount]) + this.aForms[lnCount].Show + RETURN .F. + ENDIF + ENDFOR + ENDIF + this.RefreshFormsCollection + this.nFormCount=this.nFormCount+1 + DIMENSION this.aForms[this.nFormCount],this.aFormNames[this.nFormCount] + this.aFormNames[this.nFormCount]=lcFormName + IF NOT EMPTY(lcClass) + SET CLASSLIB TO (lcFileName) ADDITIVE + this.aForms[this.nFormCount]=CREATEOBJECT(lcClass) + IF NOT tlNoShow AND TYPE("this.aForms[this.nFormCount]")=="O" AND ; + NOT ISNULL(this.aForms[this.nFormCount]) + this.aForms[this.nFormCount].Show + ENDIF + ELSE + DO FORM (lcFileName) NAME this.aForms[this.nFormCount] LINKED NOSHOW + ENDIF + lnFormCount=this.nFormCount + this.RefreshFormsCollection + IF this.lCascadeForms AND this.nFormCount>=lnFormCount + oForm=this.aForms[this.nFormCount] + lnTop=oForm.Top + lnLeft=oForm.Left + lcName=oForm.Name + IF WEXIST(lcName) AND oForm.WindowState#2 + FOR lnCount = 1 TO (this.nFormCount-1) + oForm2=this.aForms[lnCount] + IF TYPE("oForm2")#"O" OR ISNULL(oForm2) + LOOP + ENDIF + IF lcName==oForm2.Name AND WLROW(lcName)=WLROW(oForm2.Name) AND ; + WLCOL(lcName)=WLCOL(oForm2.Name) + lnTop=lnTop+this.nPixelOffset + lnLeft=lnLeft+this.nPixelOffset + ENDIF + ENDFOR + IF oForm.Top#lnTop + oForm.Top=lnTop + ENDIF + IF oForm.Left#lnLeft + oForm.Left=lnLeft + ENDIF + ENDIF + ENDIF + IF NOT tlNoShow + this.aForms[this.nFormCount].Show + ENDIF + + ENDPROC + + PROCEDURE dolabel && Executes an LBX label + LPARAMETERS tcFileName,tlPrint + LOCAL lcFileName + + lcFileName=ALLTRIM(tcFileName) + IF EMPTY(lcFileName) + RETURN .F. + ENDIF + lcFileName=LOWER(FULLPATH(lcFileName)) + IF NOT "."$lcFileName + lcFileName=lcFileName+".lbx" + ENDIF + IF NOT FILE(lcFileName) + this.FileNotFoundMsgBox(lcFileName) + RETURN .F. + ENDIF + IF tlPrint + LABEL FORM (lcFileName) TO PRINTER PROMPT + ELSE + LABEL FORM (lcFileName) PREVIEW + ENDIF + + ENDPROC + + PROCEDURE domenu && Executes an MPR menu. + LPARAMETERS tcFileName + LOCAL lcFileName + + lcFileName=ALLTRIM(tcFileName) + IF EMPTY(lcFileName) + RETURN .F. + ENDIF + lcFileName=LOWER(FULLPATH(lcFileName)) + IF NOT "."$lcFileName + lcFileName=lcFileName+".mpr" + ENDIF + *IF NOT FILE(lcFileName) + * this.FileNotFoundMsgBox(lcFileName) + * RETURN .F. + *ENDIF + *DO (lcFileName) + + do &meniuprogram + ENDPROC + + PROCEDURE doprogram && Executes a PRG, APP, or EXE program. + LPARAMETERS tcFileName + LOCAL lcFileName + + lcFileName=ALLTRIM(tcFileName) + IF EMPTY(lcFileName) + RETURN .F. + ENDIF + lcFileName=LOWER(FULLPATH(lcFileName)) + IF NOT "."$lcFileName + lcFileName=lcFileName+".prg" + ENDIF + IF NOT FILE(lcFileName) + this.FileNotFoundMsgBox(lcFileName) + RETURN .F. + ENDIF + DO (lcFileName) + + ENDPROC + + PROCEDURE doreport && Executes an FRX report. + LPARAMETERS tcFileName,tlPrint + LOCAL lcFileName + + lcFileName=ALLTRIM(tcFileName) + IF EMPTY(lcFileName) + RETURN .F. + ENDIF + lcFileName=LOWER(FULLPATH(lcFileName)) + IF NOT "."$lcFileName + lcFileName=lcFileName+".frx" + ENDIF + IF NOT FILE(lcFileName) + this.FileNotFoundMsgBox(lcFileName) + RETURN .F. + ENDIF + IF tlPrint + REPORT FORM (lcFileName) TO PRINTER PROMPT + ELSE + REPORT FORM (lcFileName) PREVIEW + ENDIF + + ENDPROC + + PROCEDURE filenotfoundmsgbox && Displays a File Not Found messagebox. + LPARAMETERS tcFileName + + RETURN MESSAGEBOX([File "]+tcFileName+[" not found.],16,_screen.Caption) + + ENDPROC + + PROCEDURE getcaption && Returns the caption of the application. + RETURN this.cCaption + + ENDPROC + + PROCEDURE geticon && Returns the icon of the application. + RETURN this.cIcon + + ENDPROC + + PROTECTED PROCEDURE Init + this.SaveEnvironment + this.ResetFormsCollection + + ENDPROC + + PROCEDURE onshutdown && Occurs when the user attempts to exit Visual FoxPro. + ENDPROC + + PROCEDURE readevents && Starts read events mode. + this.BeforeReadEvents + IF this.lReadEvents + READ EVENTS + ENDIF + + ENDPROC + + PROCEDURE readini + LPARAMETERS tcSection, tcVariable + + lcSection = IIF(!EMPTY(m.tcSection), ALLTRIM(LOWER(m.tcSection)), '') + lcVariable = IIF(!EMPTY(m.tcVariable), ALLTRIM(LOWER(m.tcVariable)), '') + lcValue = '' + + IF TYPE('goApi') = 'O' AND !EMPTY(m.lcSection) AND !EMPTY(m.lcVariable) + lcValue = goAPI.GetProfileString(m.gcSettingsFile, m.lcSection, m.lcVariable) + ENDIF + + RETURN NVL(m.lcValue,'') + ENDPROC + + PROCEDURE refreshformscollection && Refresh forms collection arrays and counters. + LOCAL lnCount,lnCount2 + + lnCount=1 + DO WHILE lnCount<=this.nFormCount + IF TYPE("this.aForms[lnCount]")=="O" AND NOT ISNULL(this.aForms[lnCount]) + lnCount=lnCount+1 + LOOP + ENDIF + FOR lnCount2 = lnCount TO (this.nFormCount-1) + this.aForms[lnCount2]=this.aForms[lnCount2+1] + this.aForms[lnCount2+1]=.NULL. + this.aFormNames[lnCount2]=this.aFormNames[lnCount2+1] + this.aFormNames[lnCount2+1]="" + ENDFOR + this.nFormCount=this.nFormCount-1 + IF this.nFormCount=0 + EXIT + ENDIF + DIMENSION this.aForms[this.nFormCount],this.aFormNames[this.nFormCount] + ENDDO + IF this.nFormCount=0 + this.ResetFormsCollection + ENDIF + + ENDPROC + + PROCEDURE release && Releases the application from memory. + IF NOT this.ReleaseForms() + RETURN .F. + ENDIF + this.ClearEvents + RELEASE this + + ENDPROC + + PROCEDURE releaseform && Release specifc or active form from memory. + LPARAMETERS toForm + + IF PARAMETERS()=0 + IF TYPE("_screen.ActiveForm")#"O" OR ISNULL(_screen.ActiveForm) + RETURN .F. + ENDIF + _screen.ActiveForm.Release + ELSE + IF TYPE("toForm")#"O" OR ISNULL(toForm) + RETURN .F. + ENDIF + toForm.Release + ENDIF + this.RefreshFormsCollection + + ENDPROC + + PROCEDURE releaseforms && Release all application forms from memory. + LOCAL lnFormCount + + this.RefreshFormsCollection + DO WHILE this.nFormCount>0 + lnFormCount=this.nFormCount + IF NOT this.ReleaseForm(this.aForms[lnFormCount]) OR this.nFormCount=lnFormCount + RETURN .F. + ENDIF + ENDDO + + ENDPROC + + PROTECTED PROCEDURE resetformscollection && Reset arrays and counters of forms collection. + this.nFormCount=0 + DIMENSION this.aForms[1],this.aFormNames[1] + this.aForms=.NULL. + this.aFormNames="" + + ENDPROC + + PROTECTED PROCEDURE restoreenvironment && Restores environment settings. + IF NOT EMPTY(this.cLastCaption) AND NOT _screen.Caption==this.cLastCaption + _screen.Caption=this.cLastCaption + ENDIF + IF NOT EMPTY(this.cLastIcon) AND NOT _screen.Icon==this.cLastIcon + _screen.Icon=this.cLastIcon + ENDIF + + ENDPROC + + PROTECTED PROCEDURE saveenvironment && Saves environment settings. + this.cLastCaption=_screen.Caption + this.cLastIcon=_screen.Icon + + ENDPROC + + PROCEDURE setcaption && Sets the caption of the application. + LPARAMETERS tcCaption + + IF TYPE("tcCaption")#"C" + RETURN .F. + ENDIF + this.cCaption=tcCaption + _screen.Caption=tcCaption + + ENDPROC + + PROCEDURE seticon && Sets the icon of the application. + LPARAMETERS tcIcon + + IF TYPE("tcIcon")#"C" + RETURN .F. + ENDIF + this.cIcon=tcIcon + _screen.Icon=tcIcon + + ENDPROC + + PROCEDURE show && Displays the application. + LPARAMETERS nStyle + + this.DoMenu(this.cStartupMenu) + this.DoForm(this.cStartupForm) + this.ReadEvents + + ENDPROC + + PROCEDURE writeini + LPARAMETERS tcSection, tcVariable, tcValue + + lcSection = IIF(!EMPTY(m.tcSection), ALLTRIM(LOWER(m.tcSection)), '') + lcVariable = IIF(!EMPTY(m.tcVariable), ALLTRIM(LOWER(m.tcVariable)), '') + lcValue = IIF(!EMPTY(m.tcValue), ALLTRIM(TRANSFORM(m.tcValue)), '') + + IF TYPE('goApi') = 'O' AND !EMPTY(m.lcSection) AND !EMPTY(m.lcVariable) + goAPI.WriteProfileString(m.gcSettingsFile, m.lcSection, m.lcVariable, m.lcValue) + ENDIF + ENDPROC + +ENDDEFINE diff --git a/Clase/atentie.vc2 b/Clase/atentie.vc2 new file mode 100644 index 0000000..d40e24e --- /dev/null +++ b/Clase/atentie.vc2 @@ -0,0 +1,6 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="atentie.vcx" CPID="1250" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* \ No newline at end of file diff --git a/Clase/cont2000.vc2 b/Clase/cont2000.vc2 new file mode 100644 index 0000000..6838f84 --- /dev/null +++ b/Clase/cont2000.vc2 @@ -0,0 +1,559 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="cont2000.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS capplication AS wzapplication OF "..\comun\clase\appwiz.vcx" && Application class. + *< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + clastcaption = Microsoft Visual FoxPro + clasticon = + Name = "capplication" + nformcount = 0 + * + +ENDDEFINE + +DEFINE CLASS help_leg AS help_pltree OF "cont2000.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + DoCreate = .T. + Name = "help_leg" + BANDA21.Name = "BANDA21" + Shape2.Name = "Shape2" + Shape1.Name = "Shape1" + Line1.Name = "Line1" + Label10.Caption = "AJUTOR LEGISLATIV" + Label10.Name = "Label10" + oleImagesList.Height = 45 + oleImagesList.Left = 588 + oleImagesList.Name = "oleImagesList" + oleImagesList.Top = 1 + oleImagesList.Width = 65 + oleTreeview.Height = 374 + oleTreeview.Left = 24 + oleTreeview.Name = "oleTreeview" + oleTreeview.Top = 52 + oleTreeview.Width = 336 + Edit1.ControlSource = "helpLEG.expli" + Edit1.Height = 374 + Edit1.Name = "Edit1" + Edit1.Top = 52 + Label1.Name = "Label1" + Label2.Name = "Label2" + Terminat1.Command1.Name = "Command1" + Terminat1.Imbuton1.Height = 27 + Terminat1.Imbuton1.Name = "Imbuton1" + Terminat1.Imbuton1.Width = 30 + Terminat1.Name = "Terminat1" + * + + PROCEDURE Activate + sele helpleg + set order to tag nrnod + thisform.filltree + ENDPROC + + PROCEDURE filltree + LOCAL O + + SELECT HELPleg + O=THISFORM.OLETREEVIEW.NODES + + SCAN FOR !DELETED() + IF NRTATA=0 + O.ADD(,,,ALLT(TITLU),TATAFIU) + ELSE + O.ADD(NRTATA,4,,ALLT(TITLU),TATAFIU) + ENDIF + ENDSCAN + + + ENDPROC + + PROCEDURE Init + * + ENDPROC + + PROCEDURE oleTreeview.NodeClick + *** OLE Control Event *** + LPARAMETERS node + LOCAL TX + TX=THIS.SelectedItem.INDEX + SELE HELPleg + LOCA FOR NRNOD=TX + THISFORM.EDIT1.REFRESH + ENDPROC + +ENDDEFINE + +DEFINE CLASS help_pltree 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="Shape2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="oleImagesList" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="oleTreeview" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Edit1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> + + * + *m: filltree + * + + * + BackColor = 255,255,255 + BorderStyle = 1 + DoCreate = .T. + Height = 449 + Name = "help_pltree" + Width = 783 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 786 + _shape2.Height = 29 + _shape2.Left = 751 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 33 + Lb_titlu_alb_b121.Caption = "PLANUL GENERAL DE CONTURI" + Lb_titlu_alb_b121.FontBold = .T. + Lb_titlu_alb_b121.Left = 6 + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.Top = 8 + BUT_TERMIN1.Left = 753 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 1 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT 'Edit1' AS editbox WITH ; + BackColor = 255,255,255, ; + ControlSource = "chelpcont.expli", ; + DisabledBackColor = 255,255,255, ; + DisabledForeColor = 0,0,0, ; + Height = 374, ; + Left = 396, ; + Name = "Edit1", ; + ReadOnly = .T., ; + Top = 56, ; + Width = 367, ; + ZOrderSet = 7 + *< END OBJECT: BaseClass="editbox" /> + + ADD OBJECT 'Label1' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "EXPLICATII", ; + Height = 17, ; + Left = 396, ; + Name = "Label1", ; + Top = 40, ; + Width = 64, ; + ZOrderSet = 8 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label2' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "TITLURI", ; + Height = 17, ; + Left = 22, ; + Name = "Label2", ; + Top = 38, ; + Width = 47, ; + ZOrderSet = 9 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'oleImagesList' AS olecontrol WITH ; + Height = 45, ; + Left = 656, ; + Name = "oleImagesList", ; + Top = 22, ; + Width = 65, ; + ZOrderSet = 5 + *< END OBJECT: BaseClass="olecontrol" OLEObject="c:\windows\system32\comctl32.ocx" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7///8EAAAA/v///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAABtAG0AYQByAHkASQBuAGYAbwByAG0AYQB0AGkAbwBuAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANCwp5ZvIMgBAwAAAEADAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAASgIAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABPAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADAAAAD0AAAAAAAAAAQAAAP7///8DAAAABAAAAAUAAAAGAAAABwAAAAgAAAAJAAAACgAAAAsAAAD+/////v////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9PAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAFwAAADgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACBxaGogWnR1UWhhO2pkZm5baWFldHIgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAI+N2lhqnRsQr8BCEBAqjachQzQSCAAAAO0DAADtAwAAgH7h5gIABQAiAAAAEAAQAMDAwAD/////Ae/NqwAABQCo1h4AcgT///////8FAACAAAAAAAIAAAAAAAIAAAABAAAAbHQAAPYAAABCTfYAAAAAAAAAdgAAACgAAAAQAAAAEAAAAAEABAAAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAwMDAAICAgAAAAP8AAP8AAAD//wD/AAAA/wD/AP//AAD///8A////8A////////AIUP/////wCH91D///8Ah/+HdQ//8If/iAh3UP/1j4gAUId1D/WIAFVVCHdQ9QBVVVVQh3UFhVVbNVUIcA9YVVV7tVCA//WFUzW7VQD//1hVu7NVUP//9YVVVVUA////WFVVAP/////1hQD///////9Q////8CAAAAbHQAAN4AAABCTd4AAAAAAAAAdgAAACgAAAANAAAADQAAAAEABAAAAAAAaAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAgICAAMDAwAAAAP8AAP8AAAD//wD/AAAA/wD/AP//AAD///8A////////8ADwAAAAAA/wAPD/////D/AA8P////8P8ADw/0RE/w/wAPD/////D/AA8P9ERP8P8ADw/////w/wAPD/RE8AD/AA8P///wgP8ADw////AP/wAPAAAAAP//AA////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAACADAAAAEltYWdlSGVpZ2h0AAkAAABJCgAAABAAAAALAAAASW1hZ2VXaWR0aAAJAAAASQoAAAAQAAAAAAAA//////////9mbu7u7u7/////////////Zu7u7u7//////////////2bu7u7///////////////9m7u7/////////////////bu7//////////////////27/////////////////////////////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" /> + + ADD OBJECT 'oleTreeview' AS olecontrol WITH ; + Height = 377, ; + Left = 20, ; + Name = "oleTreeview", ; + Top = 55, ; + Width = 340, ; + ZOrderSet = 6 + *< END OBJECT: BaseClass="olecontrol" OLEObject="c:\windows\system32\comctl32.ocx" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7////+/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMDcrpZvIMgBAwAAAMABAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAhAAAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAABPAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAFQAAAAAAAAAAwAAAAIAAAD+////BQAAAAYAAAD+/////v////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////+i6BMHCoUbEK/AQhAQKo2nIUM0EggAAAAkIwAA9yYAAI5+4eYCAAUAQAAAAMT+biDoAwAAAwAAAAHvzasAAAUATwAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAABcAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgcWhqIFp0dVFoYTtqZGZuW2lhZXRyIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABEmSQABgCCAAAAAAAFAACAFrRaBA0AAABvAGwAZQBJAG0AYQBnAGUAcwBMAGkAcwB0AAEAAABcAB/e7L0BAAUAAQAAgAoAAABMaW5lU3R5bGUACQAAAEkKAAAAAAAAAA0AAABNb3VzZVBvaW50ZXIACQAAAEkKAAAAAAAAAAYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAU3R5bGUACQAAAEkKAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==" /> + + ADD OBJECT 'Shape1' AS shape WITH ; + BackStyle = 0, ; + Height = 407, ; + Left = 9, ; + Name = "Shape1", ; + SpecialEffect = 0, ; + Top = 33, ; + Width = 363, ; + ZOrderSet = 2 + *< END OBJECT: BaseClass="shape" /> + + ADD OBJECT 'Shape2' AS shape WITH ; + BackStyle = 0, ; + Height = 407, ; + Left = 384, ; + Name = "Shape2", ; + SpecialEffect = 0, ; + Top = 33, ; + Width = 390, ; + ZOrderSet = 1 + *< END OBJECT: BaseClass="shape" /> + + PROCEDURE Activate + + thisform.filltree + ENDPROC + + PROCEDURE filltree + LOCAL I + + *!* DEBUG + *!* SUSPEND + + o=THISFORM.oletreeview.nodes + + SELE chelpcont + *BROWSE + SET ORDER TO TAG NRNOD + *BROW + SCAN FOR !DELETED() + *WAIT WINDOW STR(NRNOD) + IF NRTATA=0 + o.ADD(,,,ALLT(DENUMIRE),TATAFIU) + *WAIT WINDOW DENUMIRE + ELSE + *!* STRTOFILE(ALLT(CONT)+' ','c:\plcont.txt',1) + o.ADD(NRTATA,4,,ALLT(CONT)+' '+ALLT(DENUMIRE),TATAFIU) + ENDIF + ENDSCAN + + + ENDPROC + + PROCEDURE oleTreeview.NodeClick + *** OLE Control Event *** + LPARAMETERS node + LOCAL TX + TX=LEFT(THIS.SelectedItem.TEXT,4) + SELE chelpcont + LOCA FOR LEFT(CONT,4)=TX + THISFORM.EDIT1.REFRESH + ENDPROC + +ENDDEFINE + +DEFINE CLASS help_tree AS help_pltree OF "cont2000.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Image2" UniqueID="" Timestamp="" /> + + * + AutoCenter = .T. + BorderStyle = 0 + DoCreate = .T. + Height = 450 + Name = "help_tree" + Width = 783 + BANDA21.Name = "BANDA21" + Shape2.Left = 383 + Shape2.Name = "Shape2" + Shape2.Top = 35 + Shape1.Height = 407 + Shape1.Left = 8 + Shape1.Name = "Shape1" + Shape1.Top = 35 + Shape1.Width = 363 + Line1.Name = "Line1" + Label10.Caption = "Instructiuni de utilizare a programului" + Label10.FontSize = 12 + Label10.Left = 6 + Label10.Name = "Label10" + Label10.Top = 6 + oleImagesList.Height = 45 + oleImagesList.Left = 588 + oleImagesList.Name = "oleImagesList" + oleImagesList.Top = 1 + oleImagesList.Width = 65 + oleTreeview.Height = 374 + oleTreeview.Left = 24 + oleTreeview.Name = "oleTreeview" + oleTreeview.Top = 52 + oleTreeview.Width = 336 + Edit1.ControlSource = "helpMENU.expli" + Edit1.Height = 374 + Edit1.Name = "Edit1" + Edit1.Top = 52 + Label1.Name = "Label1" + Label2.Caption = "TITLURI" + Label2.Name = "Label2" + Terminat1.Command1.Name = "Command1" + Terminat1.Imbuton1.Height = 27 + Terminat1.Imbuton1.Name = "Imbuton1" + Terminat1.Imbuton1.Width = 30 + Terminat1.Name = "Terminat1" + * + + ADD OBJECT 'Image1' AS image WITH ; + Height = 32, ; + Left = 528, ; + Name = "Image1", ; + Picture = ..\grafice\arw01rt.ico, ; + Stretch = 0, ; + Top = 0, ; + Visible = .F., ; + Width = 32 + *< END OBJECT: BaseClass="image" /> + + ADD OBJECT 'Image2' AS image WITH ; + Height = 32, ; + Left = 642, ; + Name = "Image2", ; + Picture = ..\grafice\arw01lt.ico, ; + Stretch = 0, ; + Top = -1, ; + Visible = .F., ; + Width = 32 + *< END OBJECT: BaseClass="image" /> + + PROCEDURE Activate + SELE HELPMENU + set order to tag nrnod + THISFORM.FILLTREE + *THISFORM.image1.click + ENDPROC + + PROCEDURE filltree + LOCAL O + + SELECT HELPMENU + O=THISFORM.OLETREEVIEW.NODES + + SCAN FOR !DELETED() + IF NRTATA=0 + O.ADD(,,,ALLT(TITLU),TATAFIU) + ELSE + O.ADD(NRTATA,4,,ALLT(TITLU),TATAFIU) + ENDIF + ENDSCAN + + + ENDPROC + + PROCEDURE Image1.Click + thisform.width=667 + thisform.autocenter=.t. + thisform.refresh + + ENDPROC + + PROCEDURE Image2.Click + *thisform.width=310 + thisform.autocenter=.t. + thisform.refresh + + ENDPROC + + PROCEDURE oleTreeview.NodeClick + *** OLE Control Event *** + LPARAMETERS node + LOCAL TX + TX=THIS.SelectedItem.INDEX + SELE HELPMENU + LOCA FOR NRNOD=TX + THISFORM.EDIT1.REFRESH + ENDPROC + +ENDDEFINE + +DEFINE CLASS selcontmic AS seleluna OF "cont2000.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + DoCreate = .T. + Height = 135 + Name = "selcontmic" + Width = 219 + SEIP1.Height = 108 + SEIP1.Left = 12 + SEIP1.Name = "SEIP1" + SEIP1.Top = 12 + SEIP1.Width = 192 + LINE1.Name = "LINE1" + Label1.Caption = "Selectati contul debitor:" + Label1.Height = 13 + Label1.Left = 24 + Label1.Name = "Label1" + Label1.Top = 24 + Label1.Width = 144 + Combo1.BoundColumn = 1 + Combo1.ColumnCount = 1 + Combo1.ControlSource = "m.scd" + Combo1.Name = "Combo1" + Combo1.RowSource = "300,3011,3012,3014,3018,321,371,3711,3712" + Combo1.RowSourceType = 1 + Label2.Left = 254 + Label2.Name = "Label2" + Label2.Top = 48 + Label2.Visible = .F. + CMDTERMIN1.Left = 108 + CMDTERMIN1.Name = "CMDTERMIN1" + CMDTERMIN1.Top = 84 + LABEL3.Left = 289 + LABEL3.Name = "LABEL3" + LABEL3.Top = 48 + LABEL3.Visible = .F. + * + + PROCEDURE Combo1.Valid + * + ENDPROC + +ENDDEFINE + +DEFINE CLASS seleluna AS ffergen 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="Label2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Combo1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_termin1" UniqueID="" Timestamp="" /> + + * + *p: aa + *p: ll + * + + * + aa = + DoCreate = .T. + Height = 125 + ll = + Name = "seleluna" + Width = 231 + * + + ADD OBJECT 'Cmd_termin1' AS cmd_termin WITH ; + Caption = "\ + + ADD OBJECT 'Combo1' AS combobox WITH ; + Height = 24, ; + Left = 24, ; + Name = "Combo1", ; + Style = 2, ; + Top = 48, ; + Width = 72, ; + ZOrderSet = 3 + *< END OBJECT: BaseClass="combobox" /> + + ADD OBJECT 'Label1' AS label WITH ; + Caption = "Selectati anul si luna de inceput:", ; + Height = 13, ; + Left = 24, ; + Name = "Label1", ; + Top = 24, ; + Width = 192, ; + ZOrderSet = 2 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label2' AS label WITH ; + Caption = " ", ; + FontItalic = .T., ; + FontSize = 10, ; + ForeColor = 0,0,128, ; + Height = 17, ; + Left = 136, ; + Name = "Label2", ; + Top = 52, ; + Width = 27 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label3' AS label WITH ; + Caption = " ", ; + FontItalic = .T., ; + FontSize = 10, ; + ForeColor = 0,0,128, ; + Height = 17, ; + Left = 171, ; + Name = "Label3", ; + Top = 52, ; + Width = 40 + *< END OBJECT: BaseClass="label" /> + + PROCEDURE Destroy + IF USED('crscalendar') + USE IN crscalendar + ENDIF + ENDPROC + + PROCEDURE Init + iF USED('crscalendar') + USE IN crscalendar + ENDIF + SELECT PADL(ALLTRIM(nl),2,"0") as nl,an FROM calendar ORDER BY an,nl INTO CURSOR crscalendar + SELECT crscalendar + thisform.ll=nl + thisform.aa=an + SCAN + thisform.combo1.AddItem(nl+"/"+an) + endscan + ENDPROC + + PROCEDURE Cmd_termin1.Valid + m.an=thisform.aa + m.nl=thisform.ll + pcanul=thisform.aa + pcluna=thisform.ll + ENDPROC + + PROCEDURE Combo1.MouseLeave + Lparameters nButton, nShift, nXCoord, nYCoord + *!* Select crscalendar + *!* anul=an + *!* luna=nl + pcluna=SUBSTR(this.Value,1,2) + pcanul=SUBSTR(this.Value,4) + Thisform.label2.Caption=pcluna + Thisform.label3.Caption=pcanul + If !Empty(pcluna) And !Empty(pcanul) + Thisform.cmdtermin1.Enabled=.T. + Endif + + ENDPROC + + PROCEDURE Combo1.Valid + *!* Select crscalendar + *!* anul=an + *!* luna=nl + pcluna=Substr(This.Value,1,2) + pcanul=Substr(This.Value,4) + Thisform.label2.Caption=pcluna + Thisform.label3.Caption=pcanul + If !Empty(pcluna) And !Empty(pcanul) + Thisform.cmdtermin1.Enabled=.T. + Endif + + ENDPROC + +ENDDEFINE diff --git a/Clase/contab.vc2 b/Clase/contab.vc2 new file mode 100644 index 0000000..fe26dad --- /dev/null +++ b/Clase/contab.vc2 @@ -0,0 +1,3441 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="contab.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS pagefr AS pageframe + *< CLASSDATA: Baseclass="pageframe" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + *m: activate_pag + *p: c_deschis + *p: c_gri + *p: c_inchis + * + + * + c_deschis = 16777215 + c_gri = 255 + c_inchis = 8404992 + ErasePage = .T. + Height = 90 + Name = "pagefr" + PageCount = 7 + TabStyle = 1 + Themes = .F. + Width = 787 + Page1.Caption = " * " + Page1.FontName = "Segoe UI" + Page1.FontSize = 10 + Page1.Name = "p1" + Page2.Caption = "Capitaluri" + Page2.FontName = "Segoe UI" + Page2.FontSize = 10 + Page2.Name = "p2" + Page3.Caption = "Imobilizari" + Page3.FontName = "Segoe UI" + Page3.FontSize = 10 + Page3.Name = "p3" + Page4.Caption = " Terti " + Page4.FontName = "Segoe UI" + Page4.FontSize = 10 + Page4.Name = "p4" + Page5.Caption = "Trezorerie" + Page5.FontName = "Segoe UI" + Page5.FontSize = 10 + Page5.Name = "p5" + Page6.Caption = "Cheltuieli" + Page6.FontName = "Segoe UI" + Page6.FontSize = 10 + Page6.Name = "p6" + Page7.Caption = "Venituri" + Page7.FontName = "Segoe UI" + Page7.FontSize = 10 + Page7.Name = "p7" + * + + PROCEDURE activate_pag + Lparameters toPagina, tnPagina1, tnPagina2 + + + *!* FOR i=1 TO THIS.PAGECOUNT + *!* zi='this.p'+ALLTRIM(STR(i))+'.' + *!* IF i<>np + *!* &zi.BACKCOLOR=THIS.c_gri + *!* &zi.FORECOLOR=THIS.c_deschis + *!* ELSE + *!* &zi.BACKCOLOR=THIS.c_deschis + *!* &zi.FORECOLOR=THIS.c_inchis + *!* ENDIF + *!* NEXT + + *nr_gest=np + *osetgest.tbrprim.refresh + + + ENDPROC + + PROCEDURE Init + *!* this.c_gri = 11630087 + this.c_gri = RGB(255,255,255) + *!* this.c_deschis = RGB(255,255,255) && 016777215 + this.c_deschis = RGB(255,255,255) && 016777215 + this.c_inchis = RGB(255,255,255) && 0 &&8404992 + + this.SetAll('backcolor',this.c_gri,'page') + + + + ENDPROC + + PROCEDURE p1.Activate + this.parent.activate_pag(1) + + ENDPROC + + PROCEDURE p2.Activate + this.parent.activate_pag(2) + + ENDPROC + + PROCEDURE p3.Activate + this.parent.activate_pag(3) + + ENDPROC + + PROCEDURE p4.Activate + this.parent.activate_pag(4) + + ENDPROC + + PROCEDURE p5.Activate + this.parent.activate_pag(5) + + ENDPROC + + PROCEDURE p6.Activate + this.parent.activate_pag(6) + + ENDPROC + + PROCEDURE p7.Activate + this.parent.activate_pag(7) + + ENDPROC + +ENDDEFINE + +DEFINE CLASS princ AS ffergen 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="Pagefr1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p1.shape1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p1.Cw1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p1.Cw2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p1.Cw6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p1.Cw4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p1.Cw3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p1.Cw7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p1.Cw10" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p1.Cw8" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p1.Cw9" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p1.Cw5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p1.Pict_liniuta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p1.Pict_liniuta2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p1.Pict_liniuta5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p2.shape1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p2.Cw1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p2.Cw2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p2.Cw3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p2.Cw4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p2.Cw5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p2.Cw6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p2.Pict_liniuta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p2.Cw7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p2.Cw8" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p3.shape1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p3.Cw1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p3.Cw2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p3.Cw3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p3.Cw4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p3.Cw5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p3.Pict_liniuta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p3.Cw6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp1.shape1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp1.Cw1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp1.Cw2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp1.Cw3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp1.Cw5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp1.Cw6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp1.Cw7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp1.Cw9" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp1.Cw10" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp1.Cw8" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp1.Pict_liniuta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp1.Pict_liniuta2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp1.Pict_liniuta3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp2.shape1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp2.Cw1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp2.Cw2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp2.Cw3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp2.Cw4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp2.Cw5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp2.Cw6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp2.Cw7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp2.Cw9" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp2.Cw10" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp2.Pict_liniuta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp2.Pict_liniuta2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp2.Pict_liniuta3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp2.Cw101" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp3.shape1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp3.Cw1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp3.Cw2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp3.Cw4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp3.Cw9" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp3.Cw3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp3.Cw7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp3.Cw8" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp3.Cw10" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp3.Cw11" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp3.Cw12" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp3.Cw13" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp3.Pict_liniuta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp3.Pict_liniuta2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp3.Pict_liniuta3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp3.Pict_liniuta4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp3.Cw5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp3.Cw6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp3.Cw14" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp1.shape1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp1.Cw1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp1.Cw2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp1.Cw3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp1.Cw4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp1.Cw5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp1.Cw6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp1.Cw7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp1.Cw8" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp1.Pict_liniuta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp1.Pict_liniuta2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp1.Pict_liniuta3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp1.Pict_liniuta4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp2.shape1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp2.Cw1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp2.Cw2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp2.Cw3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp2.Cw4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp2.Cw5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp2.Cw6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp2.Cw7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp2.Cw8" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp2.Pict_liniuta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp2.Pict_liniuta2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp2.Pict_liniuta3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp2.Pict_liniuta4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp3.shape1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp3.Cw1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp3.Cw4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp3.Cw2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp3.Cw3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp3.Cw5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp3.Cw6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp3.Cw7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp3.Cw8" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp3.Pict_liniuta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp3.Pict_liniuta2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp3.Pict_liniuta3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p6.shape1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p6.Cw1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p6.Cw3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p6.Pict_liniuta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p6.Pict_liniuta2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p6.Cw4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p7.shape1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p7.Cw1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p7.Cw3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p7.Pict_liniuta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p7.Pict_liniuta2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Container1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Container1.Label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Container1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Image2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Imagine06" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Imagine08" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Imagine07" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Imagine10" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Imagine09" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Imagine04" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Imagine05" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Imagine02" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Imagine03" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Imagine01" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="oContextMenu" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Imagine11" UniqueID="" Timestamp="" /> + + * + *m: activate_pag2 + *m: activate_pag3 + *m: getcwbynumber + *m: verifica_invalidat + *p: npagina1 && numarul paginii din pageframe-ul principal + *p: npagina2 && numarul paginii din pageframe-ul secundar + *p: opaginaactiva + *p: _memberdata && XML Metadata for customizable properties + * + + * + AlwaysOnTop = .F. + BackColor = 255,255,255 + BorderStyle = 1 + DoCreate = .T. + Height = 565 + KeyPreview = .T. + Name = "princ" + npagina1 = 1 + npagina2 = 1 + opaginaactiva = NULL + ShowTips = .T. + Width = 800 + WindowState = 2 + WindowType = 0 + _memberdata = + + + * + + ADD OBJECT 'Container1' AS container WITH ; + Anchor = 6, ; + BackColor = 255,255,255, ; + BackStyle = 0, ; + BorderWidth = 0, ; + Height = 48, ; + Left = 204, ; + Name = "Container1", ; + SpecialEffect = 1, ; + TabIndex = 2, ; + TabStop = .F., ; + Top = 478, ; + Width = 302, ; + ZOrderSet = 3 + *< END OBJECT: BaseClass="container" /> + + ADD OBJECT 'Container1.Label1' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Operator:", ; + FontItalic = .T., ; + ForeColor = 0,0,128, ; + Height = 17, ; + Left = 8, ; + Name = "Label1", ; + Top = 7, ; + Width = 53 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Container1.Text1' AS label WITH ; + BackStyle = 0, ; + Caption = "Text", ; + FontBold = .T., ; + FontItalic = .T., ; + ForeColor = 0,0,128, ; + Height = 17, ; + Left = 66, ; + Name = "Text1", ; + Top = 7, ; + Width = 216 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Image1' AS image WITH ; + Anchor = 12, ; + BackStyle = 0, ; + Height = 220, ; + Left = 215, ; + Name = "Image1", ; + Picture = ..\grafice\roacont.bmp, ; + Stretch = 0, ; + Top = 279, ; + Visible = .T., ; + Width = 556, ; + ZOrderSet = 2 + *< END OBJECT: BaseClass="image" /> + + ADD OBJECT 'Image2' AS image WITH ; + Height = 63, ; + Left = -3, ; + Name = "Image2", ; + Picture = ..\comun\grafice\f1.jpg, ; + Stretch = 2, ; + Top = 0, ; + Width = 851 + *< END OBJECT: BaseClass="image" /> + + ADD OBJECT 'Imagine01' AS imagine WITH ; + ccod = A01, ; + Height = 55, ; + Left = 3, ; + Name = "Imagine01", ; + nid_img = 1, ; + ntip = 3, ; + Picture = ..\grafice\bal1.bmp, ; + picturedown = bal2.bmp, ; + pictureup = bal1.bmp, ; + ToolTipText = "Balanta", ; + Top = 0, ; + Width = 52 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Imagine02' AS imagine WITH ; + ccod = A02, ; + Height = 55, ; + Left = 56, ; + Name = "Imagine02", ; + nid_img = 2, ; + ntip = 4, ; + Picture = ..\comun\grafice\rj1.bmp, ; + picturedown = rj2.bmp, ; + pictureup = rj1.bmp, ; + ToolTipText = "Registrul jurnal", ; + Top = 0, ; + Width = 52 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Imagine03' AS imagine WITH ; + ccod = EA04, ; + Height = 55, ; + Left = 108, ; + Name = "Imagine03", ; + nid_img = 3, ; + ntip = 2, ; + Picture = ..\grafice\casa1.bmp, ; + picturedown = casa2.bmp, ; + pictureup = casa1.bmp, ; + ToolTipText = "Registrul de Casa", ; + Top = 0, ; + Width = 52 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Imagine04' AS imagine WITH ; + ccod = EB04, ; + Height = 55, ; + Left = 160, ; + Name = "Imagine04", ; + nid_img = 4, ; + ntip = 2, ; + Picture = ..\grafice\banca1.bmp, ; + picturedown = banca2.bmp, ; + pictureup = banca1.bmp, ; + ToolTipText = "Registrul de Banca", ; + Top = 0, ; + Width = 52 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Imagine05' AS imagine WITH ; + ccod = DB06, ; + Height = 55, ; + Left = 212, ; + Name = "Imagine05", ; + nid_img = 5, ; + ntip = 2, ; + Picture = ..\comun\grafice\rv1.bmp, ; + picturedown = rv2.bmp, ; + pictureup = rv1.bmp, ; + ToolTipText = "Registrul de vanzari", ; + Top = 0, ; + Width = 52 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Imagine06' AS imagine WITH ; + ccod = DA06, ; + Height = 55, ; + Left = 264, ; + Name = "Imagine06", ; + nid_img = 6, ; + ntip = 2, ; + Picture = ..\comun\grafice\rc1.bmp, ; + picturedown = rc2.bmp, ; + pictureup = rc1.bmp, ; + ToolTipText = "Registrul de cumparari", ; + Top = 0, ; + Width = 52 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Imagine07' AS imagine WITH ; + ccod = DB08, ; + Height = 55, ; + Left = 315, ; + Name = "Imagine07", ; + nid_img = 7, ; + ntip = 3, ; + Picture = ..\grafice\fctv1.bmp, ; + picturedown = fctv2.bmp, ; + pictureup = fctv1.bmp, ; + ToolTipText = "Facturi vanzari", ; + Top = 0, ; + Width = 52 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Imagine08' AS imagine WITH ; + ccod = DA08, ; + Height = 55, ; + Left = 367, ; + Name = "Imagine08", ; + nid_img = 8, ; + ntip = 3, ; + Picture = ..\grafice\fctc1.bmp, ; + picturedown = fctc2.bmp, ; + pictureup = fctc1.bmp, ; + ToolTipText = "Facturi cumparari", ; + Top = 0, ; + Width = 52 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Imagine09' AS imagine WITH ; + ccod = DB07, ; + Height = 55, ; + Left = 419, ; + Name = "Imagine09", ; + nid_img = 9, ; + ntip = 3, ; + Picture = ..\grafice\clie1.bmp, ; + picturedown = clie2.bmp, ; + pictureup = clie1.bmp, ; + ToolTipText = "Analitic Clienti", ; + Top = 0, ; + Width = 52 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Imagine10' AS imagine WITH ; + ccod = DA07, ; + Height = 55, ; + Left = 471, ; + Name = "Imagine10", ; + nid_img = 10, ; + ntip = 3, ; + Picture = ..\grafice\furn1.bmp, ; + picturedown = furn2.bmp, ; + pictureup = furn1.bmp, ; + ToolTipText = "Analitic Furnizori", ; + Top = 0, ; + Width = 52 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Imagine11' AS imagine WITH ; + BackStyle = 0, ; + ccod = A01, ; + Height = 55, ; + Left = 522, ; + Name = "Imagine11", ; + nid_img = 10, ; + ntip = 3, ; + Picture = ..\comun\grafice\validare11.bmp, ; + picturedown = validare12.bmp, ; + pictureup = validare11.bmp, ; + ToolTipText = "Situatii invalidate", ; + Top = 0, ; + Width = 42 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'oContextMenu' AS ctl32_contextmenu WITH ; + Height = 21, ; + Left = 204, ; + Name = "oContextMenu", ; + TabIndex = 3, ; + Top = 444, ; + Width = 64, ; + lblname.Name = "lblname" + *< END OBJECT: ClassLib="..\comun\utile\ctl32\ctl32_contextmenu.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1' AS pagefr WITH ; + c_deschis = 255, ; + c_gri = 16777215, ; + c_inchis = 0, ; + ErasePage = .T., ; + Height = 487, ; + Left = -1, ; + Name = "Pagefr1", ; + TabIndex = 1, ; + TabStyle = 0, ; + Top = 65, ; + Width = 787, ; + ZOrderSet = 1, ; + p1.BackColor = 255,255,255, ; + p1.Caption = " * ", ; + p1.FontName = "Segoe UI", ; + p1.FontSize = 10, ; + p1.Name = "p1", ; + p1.ToolTipText = "* (HOME)", ; + p2.BackColor = 255,255,255, ; + p2.Caption = "\ + + ADD OBJECT 'Pagefr1.p1.Cw1' AS cw_2019 WITH ; + Height = 20, ; + Left = 5, ; + Name = "Cw1", ; + nid_cw = 1, ; + ntip = 3, ; + TabIndex = 1, ; + Top = 13, ; + Width = 180, ; + ZOrderSet = 1, ; + Label_item1.Caption = "1. Balanta", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p1.Cw10' AS cw_2019 WITH ; + Height = 20, ; + Left = 5, ; + Name = "Cw10", ; + nid_cw = 10, ; + ntip = 4, ; + TabIndex = 10, ; + Top = 283, ; + Width = 180, ; + ZOrderSet = 2, ; + LABEL_ITEM1.Caption = "10. Situatii extrabilantiere", ; + LABEL_ITEM1.Name = "LABEL_ITEM1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p1.Cw2' AS cw_2019 WITH ; + Height = 20, ; + Left = 5, ; + Name = "Cw2", ; + nid_cw = 2, ; + ntip = 4, ; + TabIndex = 2, ; + Top = 42, ; + Width = 180, ; + ZOrderSet = 2, ; + Label_item1.Caption = "2. Registrul Jurnal", ; + Label_item1.Left = 5, ; + Label_item1.Name = "Label_item1", ; + Label_item1.Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p1.Cw3' AS cw_2019 WITH ; + Height = 20, ; + Left = 5, ; + Name = "Cw3", ; + nid_cw = 3, ; + ntip = 0, ; + TabIndex = 3, ; + Top = 79, ; + Width = 180, ; + ZOrderSet = 4, ; + Label_item1.Caption = "3. Note fara predefinire", ; + Label_item1.Enabled = .T., ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p1.Cw4' AS cw_2019 WITH ; + Height = 20, ; + Left = 5, ; + Name = "Cw4", ; + nid_cw = 4, ; + ntip = 0, ; + TabIndex = 4, ; + Top = 104, ; + Width = 180, ; + ZOrderSet = 4, ; + Label_item1.Caption = "4. Note definite de utilizator", ; + Label_item1.Enabled = .T., ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p1.Cw5' AS cw_2019 WITH ; + cmeniu = notei, ; + Height = 20, ; + Left = 5, ; + Name = "Cw5", ; + nid_cw = 5, ; + ntip = 0, ; + TabIndex = 5, ; + Top = 131, ; + Width = 180, ; + ZOrderSet = 10, ; + Label_item1.Caption = "5. Note de închidere", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p1.Cw6' AS cw_2019 WITH ; + cmeniu = fisedecont, ; + Enabled = .F., ; + Height = 20, ; + Left = 5, ; + Name = "Cw6", ; + nid_cw = 6, ; + ntip = 1, ; + TabIndex = 6, ; + Top = 168, ; + Width = 180, ; + ZOrderSet = 3, ; + Label_item1.Caption = "6. Situatii contabile", ; + Label_item1.Left = 5, ; + Label_item1.Name = "Label_item1", ; + Label_item1.Top = 3 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p1.Cw7' AS cw_2019 WITH ; + Enabled = .F., ; + Height = 20, ; + Left = 5, ; + Name = "Cw7", ; + nid_cw = 7, ; + TabIndex = 7, ; + Top = 196, ; + Width = 180, ; + ZOrderSet = 5, ; + Label_item1.Caption = "7. Inventarul patrimoniului", ; + Label_item1.Left = 5, ; + Label_item1.Name = "Label_item1", ; + Label_item1.Top = 3 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p1.Cw8' AS cw_2019 WITH ; + cmeniu = listgen, ; + Enabled = .F., ; + Height = 20, ; + Left = 5, ; + Name = "Cw8", ; + nid_cw = 8, ; + ntip = 1, ; + TabIndex = 8, ; + Top = 222, ; + Width = 180, ; + ZOrderSet = 8, ; + Label_item1.Caption = "8. Rapoarte", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p1.Cw9' AS cw_2019 WITH ; + Enabled = .F., ; + Height = 20, ; + Left = 5, ; + Name = "Cw9", ; + nid_cw = 9, ; + TabIndex = 9, ; + Top = 248, ; + Width = 180, ; + ZOrderSet = 8, ; + Label_item1.Caption = "9. Notificari", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p1.Pict_liniuta1' AS pict_liniuta WITH ; + Left = 4, ; + Name = "Pict_liniuta1", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 272, ; + Width = 180 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p1.Pict_liniuta2' AS pict_liniuta WITH ; + Left = 4, ; + Name = "Pict_liniuta2", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 154, ; + Width = 180 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p1.Pict_liniuta5' AS pict_liniuta WITH ; + Left = 4, ; + Name = "Pict_liniuta5", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 67, ; + Width = 180 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p1.shape1' AS pict_meniu WITH ; + Height = 492, ; + Left = 1, ; + Name = "shape1", ; + Picture = ..\comun\grafice\f2.jpg, ; + Top = -39, ; + Width = 200, ; + ZOrderSet = 0 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p2.Cw1' AS cw_2019 WITH ; + cmeniu = capitaluri1, ; + Height = 20, ; + Left = 5, ; + Name = "Cw1", ; + nid_cw = 1, ; + ntip = 0, ; + TabIndex = 1, ; + Top = 11, ; + Width = 180, ; + ZOrderSet = 1, ; + Label_item1.Caption = "1. Capital social", ; + Label_item1.Left = 5, ; + Label_item1.Name = "Label_item1", ; + Label_item1.Top = 3 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p2.Cw2' AS cw_2019 WITH ; + cmeniu = capitaluri2, ; + Height = 20, ; + Left = 5, ; + Name = "Cw2", ; + nid_cw = 2, ; + ntip = 0, ; + TabIndex = 2, ; + Top = 34, ; + Width = 180, ; + ZOrderSet = 2, ; + Label_item1.Caption = "2. Rezerve reevaluare", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p2.Cw3' AS cw_2019 WITH ; + cmeniu = capitaluri3, ; + Height = 20, ; + Left = 5, ; + Name = "Cw3", ; + nid_cw = 3, ; + ntip = 0, ; + TabIndex = 3, ; + Top = 57, ; + Width = 180, ; + ZOrderSet = 4, ; + Label_item1.Caption = "3. Rezerve", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p2.Cw4' AS cw_2019 WITH ; + cmeniu = capitaluri4, ; + Height = 20, ; + Left = 5, ; + Name = "Cw4", ; + nid_cw = 4, ; + ntip = 0, ; + TabIndex = 4, ; + Top = 80, ; + Width = 180, ; + ZOrderSet = 5, ; + Label_item1.Caption = "4. Rezerve de conversie", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p2.Cw5' AS cw_2019 WITH ; + cmeniu = capitaluri5, ; + Height = 20, ; + Left = 5, ; + Name = "Cw5", ; + nid_cw = 5, ; + ntip = 0, ; + TabIndex = 5, ; + Top = 103, ; + Width = 180, ; + ZOrderSet = 6, ; + Label_item1.Caption = "5. Profit ºi pierdere", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p2.Cw6' AS cw_2019 WITH ; + cmeniu = capitaluri6, ; + Height = 20, ; + Left = 5, ; + Name = "Cw6", ; + nid_cw = 6, ; + ntip = 0, ; + TabIndex = 6, ; + Top = 126, ; + Width = 180, ; + ZOrderSet = 7, ; + Label_item1.Caption = "6. Repartizarea profitului", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p2.Cw7' AS cw_2019 WITH ; + cmeniu = capitaluri7, ; + Height = 20, ; + Left = 5, ; + Name = "Cw7", ; + nid_cw = 7, ; + ntip = 0, ; + TabIndex = 7, ; + Top = 149, ; + Width = 180, ; + ZOrderSet = 8, ; + Label_item1.Caption = "7. Împrumuturi", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p2.Cw8' AS cw_2019 WITH ; + cmeniu = capitaluri8, ; + Height = 20, ; + Left = 5, ; + Name = "Cw8", ; + nid_cw = 7, ; + ntip = 0, ; + TabIndex = 8, ; + Top = 172, ; + Width = 180, ; + ZOrderSet = 8, ; + Label_item1.Caption = "8. Subventii", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p2.Pict_liniuta1' AS pict_liniuta WITH ; + Left = 5, ; + Name = "Pict_liniuta1", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 199, ; + Width = 180 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p2.shape1' AS pict_meniu WITH ; + Height = 492, ; + Left = 1, ; + Name = "shape1", ; + Picture = ..\comun\grafice\f2.jpg, ; + Top = 5, ; + Width = 200, ; + ZOrderSet = 0 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p3.Cw1' AS cw_2019 WITH ; + cmeniu = imobilizari1, ; + Height = 20, ; + Left = 5, ; + Name = "Cw1", ; + nid_cw = 5, ; + ntip = 0, ; + Top = 102, ; + Width = 180, ; + ZOrderSet = 1, ; + Label_item1.Caption = "5. Leasing", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p3.Cw2' AS cw_2019 WITH ; + cmeniu = imobilizari2, ; + Height = 20, ; + Left = 5, ; + Name = "Cw2", ; + nid_cw = 1, ; + ntip = 0, ; + Top = 10, ; + Width = 180, ; + ZOrderSet = 2, ; + Label_item1.Caption = "1. Necorporale", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p3.Cw3' AS cw_2019 WITH ; + cmeniu = imobilizari3, ; + Height = 20, ; + Left = 5, ; + Name = "Cw3", ; + nid_cw = 2, ; + ntip = 0, ; + Top = 33, ; + Width = 180, ; + ZOrderSet = 4, ; + Label_item1.Caption = "2. Corporale", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p3.Cw4' AS cw_2019 WITH ; + cmeniu = imobilizari4, ; + Height = 20, ; + Left = 5, ; + Name = "Cw4", ; + nid_cw = 3, ; + ntip = 0, ; + Top = 56, ; + Width = 180, ; + ZOrderSet = 5, ; + Label_item1.Caption = "3. Financiare", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p3.Cw5' AS cw_2019 WITH ; + cmeniu = imobilizari5, ; + Height = 20, ; + Left = 5, ; + Name = "Cw5", ; + nid_cw = 4, ; + ntip = 0, ; + Top = 79, ; + Width = 180, ; + ZOrderSet = 6, ; + Label_item1.Caption = "4. În curs", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p3.Cw6' AS cw_2019 WITH ; + Height = 20, ; + Left = 4, ; + Name = "Cw6", ; + nid_cw = 6, ; + ntip = 0, ; + Top = 137, ; + Visible = .F., ; + Width = 180, ; + ZOrderSet = 7, ; + Label_item1.Caption = "6. Rate", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p3.Pict_liniuta1' AS pict_liniuta WITH ; + Left = 4, ; + Name = "Pict_liniuta1", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 126, ; + Width = 180 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p3.shape1' AS pict_meniu WITH ; + Height = 492, ; + Left = 1, ; + Name = "shape1", ; + Picture = ..\comun\grafice\f2.jpg, ; + Top = 5, ; + Width = 200, ; + ZOrderSet = 0 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p4.Pfr' AS pageframe WITH ; + ErasePage = .T., ; + Height = 438, ; + Left = 0, ; + Name = "Pfr", ; + PageCount = 3, ; + TabStyle = 0, ; + Themes = .F., ; + Top = -2, ; + Width = 775, ; + ZOrderSet = 3, ; + Page1.BackColor = 255,255,255, ; + Page1.Caption = "\ + + ADD OBJECT 'Pagefr1.p4.Pfr.pp1.Cw1' AS cw_2019 WITH ; + cmeniu = furnizori1, ; + Height = 20, ; + Left = 4, ; + Name = "Cw1", ; + nid_cw = 1, ; + ntip = 0, ; + TabIndex = 1, ; + Top = 8, ; + Width = 208, ; + Label_item1.Caption = "1. Furnizori", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p4.Pfr.pp1.Cw10' AS cw_2019 WITH ; + Height = 20, ; + Left = 4, ; + Name = "Cw10", ; + nid_cw = 6, ; + ntip = 2, ; + TabIndex = 6, ; + Top = 136, ; + Width = 208, ; + Label_item1.Caption = "6. Registrul de cumparari", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p4.Pfr.pp1.Cw2' AS cw_2019 WITH ; + cmeniu = furnizori2, ; + Height = 20, ; + Left = 4, ; + Name = "Cw2", ; + nid_cw = 2, ; + ntip = 0, ; + TabIndex = 2, ; + Top = 31, ; + Width = 208, ; + Label_item1.Caption = "2. Furnizori de imobilizari", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p4.Pfr.pp1.Cw3' AS cw_2019 WITH ; + cmeniu = furnizori3, ; + Height = 20, ; + Left = 4, ; + Name = "Cw3", ; + nid_cw = 5, ; + ntip = 0, ; + TabIndex = 5, ; + Top = 100, ; + Width = 208, ; + Label_item1.Caption = "5. Regularizari", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p4.Pfr.pp1.Cw5' AS cw_2019 WITH ; + cmeniu = furnizori4, ; + Height = 20, ; + Left = 4, ; + Name = "Cw5", ; + nid_cw = 4, ; + ntip = 0, ; + TabIndex = 4, ; + Top = 77, ; + Width = 208, ; + Label_item1.Caption = "4. Efecte de platit", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p4.Pfr.pp1.Cw6' AS cw_2019 WITH ; + cmeniu = vizfurn1, ; + Height = 20, ; + Left = 4, ; + Name = "Cw6", ; + nid_cw = 7, ; + ntip = 3, ; + TabIndex = 7, ; + Top = 159, ; + Width = 208, ; + Label_item1.Caption = "7. Balante de furnizori", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p4.Pfr.pp1.Cw7' AS cw_2019 WITH ; + cmeniu = vizfurn2, ; + Left = 4, ; + Name = "Cw7", ; + nid_cw = 8, ; + ntip = 3, ; + TabIndex = 8, ; + Top = 182, ; + Width = 208, ; + Label_item1.AutoSize = .F., ; + Label_item1.Caption = "8. Situatii analitice si operative", ; + Label_item1.Height = 33, ; + Label_item1.Left = 4, ; + Label_item1.Name = "Label_item1", ; + Label_item1.Top = 2, ; + Label_item1.Width = 195, ; + Label_item1.WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p4.Pfr.pp1.Cw8' AS cw_2019 WITH ; + cmeniu = furnizori5, ; + Height = 20, ; + Left = 4, ; + Name = "Cw8", ; + nid_cw = 3, ; + ntip = 0, ; + TabIndex = 3, ; + Top = 54, ; + Width = 208, ; + Label_item1.Caption = "3. Facturi nesosite", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p4.Pfr.pp1.Cw9' AS cw_2019 WITH ; + cmeniu = listfurn, ; + Enabled = .F., ; + Height = 20, ; + Left = 4, ; + Name = "Cw9", ; + nid_cw = 9, ; + ntip = 1, ; + TabIndex = 9, ; + Top = 217, ; + Width = 208, ; + Label_item1.Caption = "9. Rapoarte", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p4.Pfr.pp1.Pict_liniuta1' AS pict_liniuta WITH ; + Left = 3, ; + Name = "Pict_liniuta1", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 124, ; + Width = 208 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p4.Pfr.pp1.Pict_liniuta2' AS pict_liniuta WITH ; + Left = 3, ; + Name = "Pict_liniuta2", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 205, ; + Width = 208 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p4.Pfr.pp1.Pict_liniuta3' AS pict_liniuta WITH ; + Left = 3, ; + Name = "Pict_liniuta3", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 241, ; + Width = 208 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p4.Pfr.pp1.shape1' AS pict_meniu WITH ; + Height = 492, ; + Left = 0, ; + Name = "shape1", ; + Picture = ..\comun\grafice\f2.jpg, ; + Top = 5, ; + Width = 228, ; + ZOrderSet = 0 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p4.Pfr.pp2.Cw1' AS cw_2019 WITH ; + cmeniu = clienti1, ; + Height = 20, ; + Left = 4, ; + Name = "Cw1", ; + nid_cw = 1, ; + ntip = 0, ; + TabIndex = 1, ; + Top = 8, ; + Width = 208, ; + Label_item1.Caption = "1. Clienti", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p4.Pfr.pp2.Cw10' AS cw_2019 WITH ; + Height = 20, ; + Left = 4, ; + Name = "Cw10", ; + nid_cw = 6, ; + ntip = 2, ; + TabIndex = 6, ; + Top = 134, ; + Width = 208, ; + Label_item1.Caption = "6. Registrul de vanzari", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p4.Pfr.pp2.Cw101' AS cw_2019 WITH ; + Enabled = .F., ; + Height = 20, ; + Left = 4, ; + Name = "Cw101", ; + nid_cw = 10, ; + ntip = 1, ; + TabIndex = 9, ; + Top = 250, ; + Width = 208, ; + Label_item1.Caption = "10. Istoric facturi", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p4.Pfr.pp2.Cw2' AS cw_2019 WITH ; + cmeniu = clienti2, ; + Height = 20, ; + Left = 4, ; + Name = "Cw2", ; + nid_cw = 2, ; + ntip = 0, ; + TabIndex = 2, ; + Top = 31, ; + Width = 208, ; + Label_item1.Caption = "2. Clienti incerti", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p4.Pfr.pp2.Cw3' AS cw_2019 WITH ; + cmeniu = clienti3, ; + Height = 20, ; + Left = 3, ; + Name = "Cw3", ; + nid_cw = 5, ; + ntip = 0, ; + TabIndex = 5, ; + Top = 100, ; + Width = 208, ; + Label_item1.Caption = "5. Regularizari", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p4.Pfr.pp2.Cw4' AS cw_2019 WITH ; + cmeniu = clienti4, ; + Height = 20, ; + Left = 4, ; + Name = "Cw4", ; + nid_cw = 4, ; + ntip = 0, ; + TabIndex = 4, ; + Top = 77, ; + Width = 208, ; + Label_item1.Caption = "4. Efecte de primit", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p4.Pfr.pp2.Cw5' AS cw_2019 WITH ; + cmeniu = clienti5, ; + Height = 20, ; + Left = 4, ; + Name = "Cw5", ; + nid_cw = 3, ; + ntip = 0, ; + TabIndex = 3, ; + Top = 54, ; + Width = 208, ; + Label_item1.Caption = "3. Facturi neintocmite", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p4.Pfr.pp2.Cw6' AS cw_2019 WITH ; + cmeniu = vizcli1, ; + Height = 20, ; + Left = 4, ; + Name = "Cw6", ; + nid_cw = 7, ; + ntip = 3, ; + TabIndex = 7, ; + Top = 157, ; + Width = 208, ; + Label_item1.Caption = "7. Balante de clienti", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p4.Pfr.pp2.Cw7' AS cw_2019 WITH ; + cmeniu = vizcli2, ; + Left = 4, ; + Name = "Cw7", ; + nid_cw = 8, ; + ntip = 3, ; + TabIndex = 8, ; + Top = 180, ; + Width = 208, ; + Label_item1.AutoSize = .F., ; + Label_item1.Caption = "8. Situatii analitice si operative", ; + Label_item1.Height = 33, ; + Label_item1.Left = 5, ; + Label_item1.Name = "Label_item1", ; + Label_item1.Top = 1, ; + Label_item1.Width = 194, ; + Label_item1.WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p4.Pfr.pp2.Cw9' AS cw_2019 WITH ; + cmeniu = listcli, ; + Enabled = .F., ; + Height = 20, ; + Left = 4, ; + Name = "Cw9", ; + nid_cw = 9, ; + ntip = 1, ; + TabIndex = 9, ; + Top = 216, ; + Width = 208, ; + Label_item1.Caption = "9. Rapoarte", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p4.Pfr.pp2.Pict_liniuta1' AS pict_liniuta WITH ; + Left = 2, ; + Name = "Pict_liniuta1", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 123, ; + Width = 208 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p4.Pfr.pp2.Pict_liniuta2' AS pict_liniuta WITH ; + Left = 2, ; + Name = "Pict_liniuta2", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 203, ; + Width = 208 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p4.Pfr.pp2.Pict_liniuta3' AS pict_liniuta WITH ; + Left = 2, ; + Name = "Pict_liniuta3", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 241, ; + Width = 208 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p4.Pfr.pp2.shape1' AS pict_meniu WITH ; + Height = 492, ; + Left = 0, ; + Name = "shape1", ; + Picture = ..\comun\grafice\f2.jpg, ; + Top = 5, ; + Width = 228, ; + ZOrderSet = 0 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p4.Pfr.pp3.Cw1' AS cw_2019 WITH ; + cmeniu = debitori, ; + Height = 20, ; + Left = 5, ; + Name = "Cw1", ; + nid_cw = 4, ; + ntip = 3, ; + Top = 108, ; + Width = 208, ; + Label_item1.Caption = "5. Debitori", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p4.Pfr.pp3.Cw10' AS cw_2019 WITH ; + cmeniu = dividende, ; + Height = 20, ; + Left = 5, ; + Name = "Cw10", ; + nid_cw = 2, ; + ntip = 0, ; + Top = 31, ; + Width = 208, ; + LABEL_ITEM1.Caption = "2. Dividende", ; + LABEL_ITEM1.Name = "LABEL_ITEM1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p4.Pfr.pp3.Cw11' AS cw_2019 WITH ; + Height = 20, ; + Left = 5, ; + Name = "Cw11", ; + nid_cw = 10, ; + ntip = 3, ; + Top = 256, ; + Width = 208, ; + Label_item1.Caption = "11. Balanta Parteneri", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p4.Pfr.pp3.Cw12' AS cw_2019 WITH ; + Left = 5, ; + Name = "Cw12", ; + nid_cw = 3, ; + ntip = 0, ; + Top = 54, ; + Width = 208, ; + Label_item1.AutoSize = .F., ; + Label_item1.Caption = "3. Drepturi de personal neridicate", ; + Label_item1.Height = 29, ; + Label_item1.Left = 5, ; + Label_item1.Name = "Label_item1", ; + Label_item1.Top = 1, ; + Label_item1.Width = 200, ; + Label_item1.WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p4.Pfr.pp3.Cw13' AS cw_2019 WITH ; + cmeniu = decont4511, ; + Left = 5, ; + Name = "Cw13", ; + nid_cw = 1, ; + ntip = 0, ; + Top = 9, ; + Visible = .T., ; + Width = 208, ; + Label_item1.AutoSize = .F., ; + Label_item1.Caption = "1. Decontari in cadrul grupului", ; + Label_item1.Height = 30, ; + Label_item1.Left = 5, ; + Label_item1.Name = "Label_item1", ; + Label_item1.Top = 1, ; + Label_item1.Width = 177, ; + Label_item1.WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p4.Pfr.pp3.Cw14' AS cw_2019 WITH ; + cmeniu = creditoriOp, ; + Height = 20, ; + Left = 5, ; + Name = "Cw14", ; + nid_cw = 14, ; + ntip = 0, ; + Top = 76, ; + Width = 208, ; + LABEL_ITEM1.Caption = "4. Creditori", ; + LABEL_ITEM1.Name = "LABEL_ITEM1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p4.Pfr.pp3.Cw2' AS cw_2019 WITH ; + cmeniu = creditori, ; + Height = 20, ; + Left = 5, ; + Name = "Cw2", ; + nid_cw = 5, ; + ntip = 3, ; + Top = 131, ; + Width = 208, ; + Label_item1.Caption = "6. Creditori", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p4.Pfr.pp3.Cw3' AS cw_2019 WITH ; + cmeniu = cheltavans, ; + Height = 20, ; + Left = 5, ; + Name = "Cw3", ; + nid_cw = 7, ; + ntip = 3, ; + Top = 177, ; + Width = 208, ; + Label_item1.Caption = "8. Cheltuieli in avans", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p4.Pfr.pp3.Cw4' AS cw_2019 WITH ; + cmeniu = actionari, ; + Height = 20, ; + Left = 5, ; + Name = "Cw4", ; + nid_cw = 9, ; + ntip = 3, ; + Top = 223, ; + Width = 208, ; + Label_item1.Caption = "10. Actionari", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p4.Pfr.pp3.Cw5' AS cw_2019 WITH ; + Left = 5, ; + Name = "Cw5", ; + nid_cw = 11, ; + ntip = 3, ; + Top = 302, ; + Width = 208, ; + LABEL_ITEM1.AutoSize = .F., ; + LABEL_ITEM1.Caption = "13. Balanta Parteneri Cumulata", ; + LABEL_ITEM1.Height = 32, ; + LABEL_ITEM1.Left = 5, ; + LABEL_ITEM1.Name = "LABEL_ITEM1", ; + LABEL_ITEM1.Top = 3, ; + LABEL_ITEM1.Width = 193, ; + LABEL_ITEM1.WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p4.Pfr.pp3.Cw6' AS cw_2019 WITH ; + Height = 20, ; + Left = 5, ; + Name = "Cw6", ; + nid_cw = 13, ; + ntip = 3, ; + Top = 279, ; + Width = 208, ; + Label_item1.Caption = "12. Inregistrari Parteneri", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p4.Pfr.pp3.Cw7' AS cw_2019 WITH ; + cmeniu = vnavans, ; + Height = 20, ; + Left = 5, ; + Name = "Cw7", ; + nid_cw = 8, ; + ntip = 3, ; + Top = 200, ; + Width = 208, ; + Label_item1.Caption = "9. Venituri in avans", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p4.Pfr.pp3.Cw8' AS cw_2019 WITH ; + cmeniu = vizdividende, ; + Height = 20, ; + Left = 5, ; + Name = "Cw8", ; + nid_cw = 6, ; + ntip = 3, ; + Top = 154, ; + Width = 208, ; + Label_item1.Caption = "7. Dividende", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p4.Pfr.pp3.Cw9' AS cw_2019 WITH ; + cmeniu = listterti, ; + Enabled = .F., ; + Height = 20, ; + Left = 5, ; + Name = "Cw9", ; + nid_cw = 12, ; + ntip = 1, ; + Top = 336, ; + Width = 208, ; + Label_item1.Caption = "14. Rapoarte", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p4.Pfr.pp3.Pict_liniuta1' AS pict_liniuta WITH ; + Left = 3, ; + Name = "Pict_liniuta1", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 98, ; + Width = 200 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p4.Pfr.pp3.Pict_liniuta2' AS pict_liniuta WITH ; + Left = 3, ; + Name = "Pict_liniuta2", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 246, ; + Width = 200 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p4.Pfr.pp3.Pict_liniuta3' AS pict_liniuta WITH ; + Left = 3, ; + Name = "Pict_liniuta3", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 324, ; + Width = 200 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p4.Pfr.pp3.Pict_liniuta4' AS pict_liniuta WITH ; + Left = 3, ; + Name = "Pict_liniuta4", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 360, ; + Width = 200 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p4.Pfr.pp3.shape1' AS pict_meniu WITH ; + Height = 492, ; + Left = 0, ; + Name = "shape1", ; + Picture = ..\comun\grafice\f2.jpg, ; + Top = 5, ; + Width = 228, ; + ZOrderSet = 0 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p5.Pfr' AS pageframe WITH ; + ErasePage = .T., ; + Height = 412, ; + Left = 0, ; + Name = "Pfr", ; + PageCount = 3, ; + TabStyle = 0, ; + Themes = .F., ; + Top = -2, ; + Width = 775, ; + ZOrderSet = 3, ; + Page1.BackColor = 255,255,255, ; + Page1.Caption = "\ + + ADD OBJECT 'Pagefr1.p5.Pfr.pp1.Cw1' AS cw_2019 WITH ; + cmeniu = casa1, ; + Height = 20, ; + Left = 4, ; + Name = "Cw1", ; + nid_cw = 1, ; + ntip = 0, ; + Top = 8, ; + Width = 180, ; + Label_item1.Caption = "1. Casa incasari", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p5.Pfr.pp1.Cw2' AS cw_2019 WITH ; + cmeniu = casa2, ; + Height = 20, ; + Left = 4, ; + Name = "Cw2", ; + nid_cw = 2, ; + ntip = 0, ; + Top = 31, ; + Width = 180, ; + Label_item1.Caption = "2. Casa plati", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p5.Pfr.pp1.Cw3' AS cw_2019 WITH ; + cmeniu = casa3, ; + Height = 20, ; + Left = 4, ; + Name = "Cw3", ; + nid_cw = 3, ; + ntip = 0, ; + Top = 54, ; + Width = 180, ; + Label_item1.Caption = "3. Casa in valuta", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p5.Pfr.pp1.Cw4' AS cw_2019 WITH ; + Height = 20, ; + Left = 4, ; + Name = "Cw4", ; + nid_cw = 4, ; + ntip = 2, ; + Top = 89, ; + Width = 180, ; + Label_item1.Caption = "4. Registrul de casa", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p5.Pfr.pp1.Cw5' AS cw_2019 WITH ; + Height = 20, ; + Left = 4, ; + Name = "Cw5", ; + nid_cw = 5, ; + ntip = 3, ; + Top = 112, ; + Width = 180, ; + Label_item1.Caption = "5. Solduri case", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p5.Pfr.pp1.Cw6' AS cw_2019 WITH ; + cmeniu = listcasa, ; + Enabled = .F., ; + Height = 20, ; + Left = 4, ; + Name = "Cw6", ; + nid_cw = 8, ; + ntip = 1, ; + Top = 203, ; + Width = 180, ; + Label_item1.Caption = "8. Rapoarte", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p5.Pfr.pp1.Cw7' AS cw_2019 WITH ; + Height = 20, ; + Left = 5, ; + Name = "Cw7", ; + nid_cw = 6, ; + ntip = 2, ; + Top = 145, ; + Width = 180, ; + Label_item1.Caption = "6. Reg.de casa in valuta", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p5.Pfr.pp1.Cw8' AS cw_2019 WITH ; + Height = 20, ; + Left = 5, ; + Name = "Cw8", ; + nid_cw = 7, ; + ntip = 3, ; + Top = 168, ; + Width = 180, ; + Label_item1.Caption = "7. Solduri case in valuta", ; + Label_item1.Height = 19, ; + Label_item1.Left = 5, ; + Label_item1.Name = "Label_item1", ; + Label_item1.Top = 3, ; + Label_item1.Width = 139 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p5.Pfr.pp1.Pict_liniuta1' AS pict_liniuta WITH ; + Left = 3, ; + Name = "Pict_liniuta1", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 78, ; + Width = 180 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p5.Pfr.pp1.Pict_liniuta2' AS pict_liniuta WITH ; + Left = 3, ; + Name = "Pict_liniuta2", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 135, ; + Width = 180 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p5.Pfr.pp1.Pict_liniuta3' AS pict_liniuta WITH ; + Left = 3, ; + Name = "Pict_liniuta3", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 192, ; + Width = 180 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p5.Pfr.pp1.Pict_liniuta4' AS pict_liniuta WITH ; + Left = 3, ; + Name = "Pict_liniuta4", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 228, ; + Width = 180 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p5.Pfr.pp1.shape1' AS pict_meniu WITH ; + Height = 492, ; + Left = 0, ; + Name = "shape1", ; + Picture = ..\comun\grafice\f2.jpg, ; + Top = 5, ; + Width = 200, ; + ZOrderSet = 0 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p5.Pfr.pp2.Cw1' AS cw_2019 WITH ; + cmeniu = banca1, ; + Height = 20, ; + Left = 4, ; + Name = "Cw1", ; + nid_cw = 1, ; + ntip = 0, ; + Top = 8, ; + Width = 180, ; + Label_item1.Caption = "1. Banca incasari", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p5.Pfr.pp2.Cw2' AS cw_2019 WITH ; + cmeniu = banca2, ; + Height = 20, ; + Left = 4, ; + Name = "Cw2", ; + nid_cw = 2, ; + ntip = 0, ; + Top = 31, ; + Width = 180, ; + Label_item1.Caption = "2. Banca plati", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p5.Pfr.pp2.Cw3' AS cw_2019 WITH ; + cmeniu = banca3, ; + Height = 20, ; + Left = 4, ; + Name = "Cw3", ; + nid_cw = 3, ; + ntip = 0, ; + Top = 54, ; + Width = 180, ; + Label_item1.Caption = "3. Banca in valuta", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p5.Pfr.pp2.Cw4' AS cw_2019 WITH ; + Height = 20, ; + Left = 4, ; + Name = "Cw4", ; + nid_cw = 4, ; + ntip = 2, ; + Top = 88, ; + Width = 180, ; + Label_item1.Caption = "4. Registrul de banca", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p5.Pfr.pp2.Cw5' AS cw_2019 WITH ; + Height = 20, ; + Left = 4, ; + Name = "Cw5", ; + nid_cw = 6, ; + ntip = 2, ; + Top = 145, ; + Width = 180, ; + Label_item1.Caption = "6. Reg.de banca in valuta", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p5.Pfr.pp2.Cw6' AS cw_2019 WITH ; + cmeniu = listbanca, ; + Enabled = .F., ; + Height = 20, ; + Left = 4, ; + Name = "Cw6", ; + nid_cw = 8, ; + ntip = 1, ; + Top = 201, ; + Width = 180, ; + Label_item1.Caption = "8. Rapoarte", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p5.Pfr.pp2.Cw7' AS cw_2019 WITH ; + Height = 20, ; + Left = 4, ; + Name = "Cw7", ; + nid_cw = 5, ; + ntip = 3, ; + Top = 111, ; + Width = 180, ; + Label_item1.Caption = "5. Solduri banci", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p5.Pfr.pp2.Cw8' AS cw_2019 WITH ; + Height = 20, ; + Left = 4, ; + Name = "Cw8", ; + nid_cw = 7, ; + ntip = 3, ; + Top = 168, ; + Width = 180, ; + Label_item1.Caption = "7. Solduri banci in valuta", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p5.Pfr.pp2.Pict_liniuta1' AS pict_liniuta WITH ; + Left = 3, ; + Name = "Pict_liniuta1", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 77, ; + Width = 180 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p5.Pfr.pp2.Pict_liniuta2' AS pict_liniuta WITH ; + Left = 3, ; + Name = "Pict_liniuta2", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 134, ; + Width = 180 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p5.Pfr.pp2.Pict_liniuta3' AS pict_liniuta WITH ; + Left = 3, ; + Name = "Pict_liniuta3", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 191, ; + Width = 180 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p5.Pfr.pp2.Pict_liniuta4' AS pict_liniuta WITH ; + Left = 3, ; + Name = "Pict_liniuta4", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 225, ; + Width = 180 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p5.Pfr.pp2.shape1' AS pict_meniu WITH ; + Height = 492, ; + Left = 0, ; + Name = "shape1", ; + Picture = ..\comun\grafice\f2.jpg, ; + Top = 5, ; + Width = 200, ; + ZOrderSet = 0 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p5.Pfr.pp3.Cw1' AS cw_2019 WITH ; + cmeniu = trez1, ; + Height = 20, ; + Left = 5, ; + Name = "Cw1", ; + nid_cw = 1, ; + ntip = 0, ; + Top = 8, ; + Width = 200, ; + Label_item1.Caption = "1. Avansuri de trezorerie", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p5.Pfr.pp3.Cw2' AS cw_2019 WITH ; + Height = 20, ; + Left = 5, ; + Name = "Cw2", ; + nid_cw = 7, ; + ntip = 3, ; + Top = 176, ; + Width = 200, ; + Label_item1.Caption = "7. Cec - Solduri ", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p5.Pfr.pp3.Cw3' AS cw_2019 WITH ; + cmeniu = achi1, ; + Height = 20, ; + Left = 5, ; + Name = "Cw3", ; + nid_cw = 5, ; + ntip = 3, ; + Top = 130, ; + Width = 200, ; + Label_item1.Caption = "5. Achizitori", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p5.Pfr.pp3.Cw4' AS cw_2019 WITH ; + Height = 20, ; + Left = 5, ; + Name = "Cw4", ; + nid_cw = 6, ; + ntip = 3, ; + Top = 153, ; + Width = 200, ; + Label_item1.Caption = "6. Cec - Reg. operatiuni ", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p5.Pfr.pp3.Cw5' AS cw_2019 WITH ; + cmeniu = trez2, ; + Height = 20, ; + Left = 5, ; + Name = "Cw5", ; + nid_cw = 3, ; + ntip = 0, ; + Top = 74, ; + Width = 200, ; + Label_item1.Caption = "3. Operatiuni cu cec", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p5.Pfr.pp3.Cw6' AS cw_2019 WITH ; + cmeniu = trez, ; + Height = 20, ; + Left = 5, ; + Name = "Cw6", ; + nid_cw = 4, ; + ntip = 0, ; + Top = 97, ; + Width = 200, ; + Label_item1.Caption = "4. Alte operatiuni", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p5.Pfr.pp3.Cw7' AS cw_2019 WITH ; + cmeniu = trez3, ; + Height = 37, ; + Left = 5, ; + Name = "Cw7", ; + nid_cw = 2, ; + ntip = 0, ; + Top = 32, ; + Width = 200, ; + Label_item1.AutoSize = .F., ; + Label_item1.Caption = "2. Avansuri de trezorerie in valuta", ; + Label_item1.Height = 33, ; + Label_item1.Left = 5, ; + Label_item1.Name = "Label_item1", ; + Label_item1.Top = 2, ; + Label_item1.Width = 115, ; + Label_item1.WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p5.Pfr.pp3.Cw8' AS cw_2019 WITH ; + cmeniu = listtrez, ; + Enabled = .F., ; + Height = 20, ; + Left = 4, ; + Name = "Cw8", ; + nid_cw = 8, ; + ntip = 1, ; + Top = 210, ; + Width = 200, ; + Label_item1.Caption = "8. Rapoarte", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p5.Pfr.pp3.Pict_liniuta1' AS pict_liniuta WITH ; + Left = 4, ; + Name = "Pict_liniuta1", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 120, ; + Width = 200 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p5.Pfr.pp3.Pict_liniuta2' AS pict_liniuta WITH ; + Left = 4, ; + Name = "Pict_liniuta2", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 199, ; + Width = 200 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p5.Pfr.pp3.Pict_liniuta3' AS pict_liniuta WITH ; + Left = 4, ; + Name = "Pict_liniuta3", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 234, ; + Width = 200 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p5.Pfr.pp3.shape1' AS pict_meniu WITH ; + Height = 492, ; + Left = 0, ; + Name = "shape1", ; + Picture = ..\comun\grafice\f2.jpg, ; + Top = 5, ; + Width = 228, ; + ZOrderSet = 0 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p6.Cw1' AS cw_2019 WITH ; + cmeniu = cheltuieli1, ; + Height = 20, ; + Left = 5, ; + Name = "Cw1", ; + nid_cw = 1, ; + ntip = 0, ; + Top = 9, ; + Width = 180, ; + ZOrderSet = 1, ; + Label_item1.Caption = "1. Cheltuieli materiale", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p6.Cw3' AS cw_2019 WITH ; + Enabled = .F., ; + Height = 20, ; + Left = 5, ; + Name = "Cw3", ; + nid_cw = 0, ; + ntip = 0, ; + Top = 68, ; + Visible = .F., ; + Width = 180, ; + ZOrderSet = 3, ; + Label_item1.Caption = "3. Tipuri de cheltuieli", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p6.Cw4' AS cw_2019 WITH ; + cmeniu = cheltuieli2, ; + Height = 20, ; + Left = 5, ; + Name = "Cw4", ; + nid_cw = 2, ; + ntip = 0, ; + Top = 32, ; + Width = 180, ; + ZOrderSet = 5, ; + Label_item1.Caption = "2. Alte cheltuieli", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p6.Pict_liniuta1' AS pict_liniuta WITH ; + Left = 4, ; + Name = "Pict_liniuta1", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 55, ; + Width = 180 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p6.Pict_liniuta2' AS pict_liniuta WITH ; + Left = 4, ; + Name = "Pict_liniuta2", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 92, ; + Visible = .F., ; + Width = 180 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p6.shape1' AS pict_meniu WITH ; + Height = 492, ; + Left = 1, ; + Name = "shape1", ; + Picture = ..\comun\grafice\f2.jpg, ; + Top = 5, ; + Width = 200, ; + ZOrderSet = 0 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p7.Cw1' AS cw_2019 WITH ; + cmeniu = venituri, ; + Height = 20, ; + Left = 5, ; + Name = "Cw1", ; + nid_cw = 1, ; + ntip = 0, ; + Top = 11, ; + ZOrderSet = 1, ; + Label_item1.Caption = "1. Inregistrare venituri", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p7.Cw3' AS cw_2019 WITH ; + Enabled = .F., ; + Height = 20, ; + Left = 5, ; + Name = "Cw3", ; + ntip = 0, ; + Top = 46, ; + Visible = .F., ; + ZOrderSet = 3, ; + Label_item1.Caption = "2. Tipuri de venituri", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p7.Pict_liniuta1' AS pict_liniuta WITH ; + Left = 5, ; + Name = "Pict_liniuta1", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 35, ; + Width = 180 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p7.Pict_liniuta2' AS pict_liniuta WITH ; + Left = 5, ; + Name = "Pict_liniuta2", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 70, ; + Visible = .F., ; + Width = 180 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p7.shape1' AS pict_meniu WITH ; + Height = 492, ; + Left = 1, ; + Name = "shape1", ; + Picture = ..\comun\grafice\f2.jpg, ; + Top = 5, ; + Width = 200, ; + ZOrderSet = 0 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + PROCEDURE Activate + *!* Local I + *!* I=Iif(!luna_inchisa,.T.,.F.) + + *!* With This.pagefr1 + *!* .P2.Enabled=Iif(.P2.Enabled And !luna_inchisa,.T.,.F.) + *!* .P3.Enabled=Iif(.P3.Enabled And !luna_inchisa,.T.,.F.) + *!* .P7.Enabled=Iif(.P7.Enabled And !luna_inchisa,.T.,.F.) + *!* Endwith + ENDPROC + + PROCEDURE activate_pag2 + PARAMETERS np + + + *!* FOR i=1 TO THIS.pagefr1.p4.pfr.PAGECOUNT + *!* zi='this.pagefr1.p4.pfr.pp'+ALLTRIM(STR(i))+'.' + *!* IF i<>np + *!* &zi.BACKCOLOR=THIS.pagefr1.c_gri + *!* &zi.FORECOLOR=THIS.pagefr1.c_deschis + *!* ELSE + *!* &zi.BACKCOLOR=THIS.pagefr1.c_deschis + *!* &zi.FORECOLOR=THIS.pagefr1.c_inchis + *!* ENDIF + *!* NEXT + + ENDPROC + + PROCEDURE activate_pag3 + PARAMETERS np + + + *!* FOR i=1 TO this.pagefr1.p5.pfr.PageCount + *!* zi='this.pagefr1.p5.pfr.pp'+ALLTRIM(STR(i))+'.' + *!* IF i<>np + *!* &zi.BackColor=this.pagefr1.c_gri + *!* &zi.ForeColor=this.pagefr1.c_deschis + *!* else + *!* &zi.BackColor=this.pagefr1.c_deschis + *!* &zi.ForeColor=this.pagefr1.c_inchis + *!* ENDIF + *!* NEXT + + ENDPROC + + PROCEDURE getcwbynumber + Lparameters tnCWNumber + LOCAL loControl, loCW, lcCaption, lnNumber, i, lnControlCount + + loCW = null + loPaginaActiva = this.oPaginaActiva + lnControlCount = this.oPaginaActiva.Controlcount + FOR i = 1 TO lnControlCount + loControl = loPaginaActiva.controls(i) + If Lower(Left(loControl.Name,2)) = 'cw' + lcCaption = loControl.label_item1.caption + lnPos = AT('.', m.lcCaption) + IF lnPos > 0 + lnNumber = VAL(LEFT(lcCaption, lnPos - 1)) + IF lnNumber = tnCWNumber + loCW = loControl + EXIT + ENDIF + ENDIF + Endif + Endfor + + RETURN loCW + ENDPROC + + PROCEDURE KeyPress + Lparameters nKeyCode, nShiftAltCtrl + Local lcNumber, lnNumber, loCW, lcNextCharacter, loControl + loControl = Null + + Do Case + Case nShiftAltCtrl = 0 And Between(nKeyCode, 49, 57) && 1..9 + lcNumber = Alltrim(Str(nKeyCode - 48)) + + + If nKeyCode = 49 + Set Cursor Off + Wait "" To lcNextCharacter Timeout 0.5 + Set Cursor On + If Alltrim(m.lcNextCharacter)$'0123456789' + lcNumber = m.lcNumber + Alltrim(m.lcNextCharacter) && 10, 11,12,13,14,15 + Endif + Endif + lnNumber = Int(Val(m.lcNumber)) + loCW = This.Getcwbynumber(m.lnNumber) + If !Isnull(loCW) + If loCW.Enabled + loControl = loCW + Endif + Endif + Case nShiftAltCtrl = 0 And nKeyCode = -4 && F5 Balanta + If Pemstatus(This, "Imagine01", 5) And This.Imagine01.Visible + loControl = This.Imagine01 + Endif + Case nShiftAltCtrl = 0 And nKeyCode = -5 && F6 Registrul Jurnal + If Pemstatus(This, "Imagine02", 5) And This.Imagine02.Visible + loControl = This.Imagine02 + Endif + Case nShiftAltCtrl = 0 And nKeyCode = -6 && F7 Registru casa lei + If Pemstatus(This, "Imagine03", 5) And This.Imagine03.Visible + loControl = This.Imagine03 + Endif + Case nShiftAltCtrl = 0 And nKeyCode = -7 && F8 Registru banca lei + If Pemstatus(This, "Imagine04", 5) And This.Imagine04.Visible + loControl = This.Imagine04 + Endif + Case nShiftAltCtrl = 0 And nKeyCode = -8 && F9 JV + If Pemstatus(This, "Imagine05", 5) And This.Imagine05.Visible + loControl = This.Imagine05 + Endif + Case nShiftAltCtrl = 2 And nKeyCode = 102 && CTRL + F9 JC + If Pemstatus(This, "Imagine06", 5) And This.Imagine06.Visible + loControl = This.Imagine06 + Endif + Case nShiftAltCtrl = 0 And nKeyCode = 96 && ` = F10 Facturi clienti 4111 (Tratat cu ON KEY LABEL F10) + If Pemstatus(This, "Imagine07", 5) And This.Imagine07.Visible + loControl = This.Imagine07 + Endif + Case nShiftAltCtrl = 2 And nKeyCode = 103 && CTRL+F10 Facturi furnizori 401 + If Pemstatus(This, "Imagine08", 5) And This.Imagine08.Visible + loControl = This.Imagine08 + Endif + Case nShiftAltCtrl = 0 And nKeyCode = 39 && ' = F11 Balanta clienti 4111 + If Pemstatus(This, "Imagine09", 5) And This.Imagine09.Visible + loControl = This.Imagine09 + Endif + Case nShiftAltCtrl = 2 And nKeyCode = 137 && CTRL+F11 Balanta furnizori 401 + If Pemstatus(This, "Imagine10", 5) And This.Imagine10.Visible + loControl = This.Imagine10 + Endif + Case nShiftAltCtrl = 0 And nKeyCode = 1 && HOME Pagina * + This.Pagefr1.p1.Activate() + Case nShiftAltCtrl = 0 And nKeyCode = 105 && I Pagina Imobilizari + This.Pagefr1.p3.Activate() + Case nShiftAltCtrl = 0 And nKeyCode = 116 && T Pagina Terti / Trezorerie + If This.nPagina1 = 4 + this.pagefr1.activate_pag(This.Pagefr1.p5, 5) + this.pagefr1.p5.pfr.pp1.Activate() && Trezorerie > Casa + ELSE + this.pagefr1.activate_pag(This.Pagefr1.p4, 4) + This.Pagefr1.p4.pfr.pp1.Activate() && Terti > Clienti + ENDIF + Case nShiftAltCtrl = 0 And nKeyCode = 102 && F Pagina Terti > Furnizori + this.pagefr1.activate_pag(This.Pagefr1.p4, 4) + this.pagefr1.p4.pfr.pp1.Activate() + Case nShiftAltCtrl = 0 And nKeyCode = 99 && C + Do Case + Case (This.nPagina1 = 4 And This.nPagina2 <> 2) OR (This.nPagina1 = 2) && Terti sau Capitaluri + this.pagefr1.activate_pag(This.Pagefr1.p4, 4) + This.Pagefr1.p4.pfr.pp2.Activate() && Clienti + Case (This.nPagina1 = 5 And This.nPagina2 <> 1) OR (This.nPagina1 = 4 And This.nPagina2 = 2)&& Trezorerie sau Terti > Clienti + this.pagefr1.activate_pag(This.Pagefr1.p5, 5) + This.Pagefr1.p5.pfr.pp1.Activate() && Casa + Case (This.nPagina1 = 5 And This.nPagina2 = 1) && Trezorerie > Casa + This.Pagefr1.p6.Activate()&& Cheltuieli + OTHERWISE + This.Pagefr1.p2.Activate() && Capitaluri + Endcase + Case nShiftAltCtrl = 0 And nKeyCode = 98 && B Pagina Banca + this.pagefr1.activate_pag(This.Pagefr1.p5, 5) + This.Pagefr1.p5.pfr.pp2.Activate() + Case nShiftAltCtrl = 0 And nKeyCode = 97 && A Pagina Terti > Alti sau Trezorerie > Alte + Do Case + Case (This.nPagina1 = 4 And This.nPagina2 <> 3) Or (This.nPagina1 = 5 And This.nPagina2 = 3) + this.pagefr1.activate_pag(This.Pagefr1.p4, 4) + This.Pagefr1.p4.pfr.pp3.Activate() && Terti > Alti + Case (This.nPagina1 = 5 And This.nPagina2 <> 3) Or (This.nPagina1 = 4 And This.nPagina2 = 3) + this.pagefr1.activate_pag(This.Pagefr1.p5, 5) + This.Pagefr1.p5.pfr.pp3.Activate() && Trezorerie > Alti + Otherwise + This.Pagefr1.p4.pfr.pp3.Activate() && Terti > Alti + Endcase + Case nShiftAltCtrl = 0 And nKeyCode = 118 && V + This.Pagefr1.p7.Activate() + Endcase + If !Isnull(loControl) + Nodefault + With loControl + .MouseEnter() + .Click() + .MouseLeave() + Endwith + Else + DoDefault(nKeyCode, nShiftAltCtrl) + Endif + ENDPROC + + PROCEDURE RightClick + DO start_firma IN ostartfirma.prg + verifica_drepturi('oprinc','pagefr1') + ENDPROC + + PROCEDURE Show + Lparameters nStyle + + Local w,h + verifica_drepturi('oprinc','pagefr1') + w=_Screen.Width + h=_Screen.Height + + This.Width=w + This.Height=h + + * Image1 + *!* This.image1.Left=w-This.image1.Width + *!* This.image1.Top=h-This.image1.Height + *!* This.container1.Top=h-This.container1.Height + This.image2.Width = w + 180 + *!* this.lbVersion.Left = this.Image1.Left + leftVer + *!* this.lbVersion.Top = this.Image1.Top + topVer + + With This.pagefr1 + .Width=w + .Height=h + .p1.shape1.Height=h + .p2.shape1.Height=h + .p3.shape1.Height=h + .p4.pfr.Height=h + .p4.pfr.Width=w + .p4.pfr.pp1.shape1.Height=h + .p4.pfr.pp2.shape1.Height=h + .p4.pfr.pp3.shape1.Height=h + .p5.pfr.Height=h + .p5.pfr.Width=w + .p5.pfr.pp1.shape1.Height=h + .p5.pfr.pp2.shape1.Height=h + .p5.pfr.pp3.shape1.Height=h + .p6.shape1.Height=h + .p7.shape1.Height=h + Endwith + Thisform.container1.texT1.Caption=gcUserNameApp + + + ON KEY LABEL F10 KEYBOARD "`" && F10 activa meniul in loc sa apese pe imaginea Facturi Vanzari + ON KEY LABEL F11 KEYBOARD "'" && F11 nu se stie ce activa, in loc sa apese pe imaginea Facturi Vanzari + KEYBOARD '{CTRL+TAB}' + + * Verifica daca exista situatii contabile invalidate pentru a schimba imaginea de atentionare + * Fac verificarea la fiecare actiune sau click dreapta pe fundal + Thisform.verifica_invalidat() + With Thisform.pagefr1 + For i=1 To .PageCount + With .Pages(i) + For l=1 To .ControlCount + If Alltrim(Upper(.Objects(l).Class))='CW' + Bindevent(.Objects(l),"do_actiune",Thisform,"verifica_invalidat",1) + Endif + Endfor + Endwith + Endfor + Endwith + With Thisform + For i=1 To .ControlCount + If Alltrim(Upper(.Objects(i).Class))='IMAGINE' + Bindevent(.Objects(i),"do_actiune",Thisform,"verifica_invalidat",1) + Endif + Endfor + ENDWITH + + Bindevent(Thisform,"Rightclick",Thisform,"verifica_invalidat",1) + ENDPROC + + PROCEDURE verifica_invalidat + LOCAL llInvalidat, lcPictureDown, lcPictureUp + * Verific daca orice luna este invalidata + llInvalidat = VerificaInvalidat() && overificari.prg + lcPictureUp = "validare" + IIF(m.llInvalidat, "3", "1") + "1.bmp" + lcPictureDown = "validare" + IIF(m.llInvalidat, "3", "1") + "2.bmp" + With this.imagine11 + .picturedown = m.lcPictureDown + .pictureup = m.lcPictureUp + .ToolTipText = IIF(m.llInvalidat, 'Exista situatii contabile invalidate datorita modificarilor din lunile precedente!' + ; + CHR(13) + CHR(13) + ; + 'Situatiile se valideaza automat prin redeschidere de luna sau refaceri individuale sau se pot valida manual.', ; + 'Nu exista situatii invalidate.') + .picture = m.lcPictureUp + Endwith + + ENDPROC + + PROCEDURE Image1.RightClick + thisform.rightclick + ENDPROC + + PROCEDURE Imagine01.do_actiune + DO viz_balanta_contabilitate WITH "bal" IN ooperatii_comune.prg + ENDPROC + + PROCEDURE Imagine02.do_actiune + DO viz_act IN ooperatii_comune.prg + ENDPROC + + PROCEDURE Imagine03.do_actiune + DO viz_bancasa WITH '5311' IN ocasabanca.prg + ENDPROC + + PROCEDURE Imagine04.do_actiune + DO viz_bancasa WITH '5121' IN ocasabanca.prg + ENDPROC + + PROCEDURE Imagine05.do_actiune + DO viz_regvanz IN oproceduri_decont.prg + ENDPROC + + PROCEDURE Imagine06.do_actiune + DO viz_regcump IN oproceduri_decont.prg + ENDPROC + + PROCEDURE Imagine07.do_actiune + Do lans_ireg_parteneri With .F.,gcCont411,.T. + ENDPROC + + PROCEDURE Imagine08.do_actiune + Do lans_ireg_parteneri With .F.,'401',.F. + ENDPROC + + PROCEDURE Imagine09.do_actiune + DO lans_balanta_parteneri WITH gcCont411, .T. IN oparteneri.prg + ENDPROC + + PROCEDURE Imagine10.do_actiune + DO lans_balanta_parteneri WITH "401",.F. IN oparteneri.prg + ENDPROC + + PROCEDURE Imagine11.do_actiune + gcAcces = "1;2;3;4;" + do SituatiiInvalidate in overificari.prg + ENDPROC + + PROCEDURE Pagefr1.activate_pag + Lparameters toPagina, tnPagina1, tnPagina2 + thisform.oPaginaActiva = toPagina + thisform.nPagina1 = IIF(!EMPTY(tnPagina1), tnPagina1, 1) + thisform.nPagina2 = IIF(!EMPTY(tnPagina2), tnPagina2, 1) + thisform.opaginaactiva.click() + thisform.opaginaactiva.setfocus() + + + ENDPROC + + PROCEDURE Pagefr1.p1.Activate + this.Parent.activate_pag(this,1) + ENDPROC + + PROCEDURE Pagefr1.p1.Cw1.do_actiune + DO viz_balanta_contabilitate WITH "bal" IN ooperatii_comune.prg + ENDPROC + + PROCEDURE Pagefr1.p1.Cw10.do_actiune + x = xmenu("Balanta conturi \ 0 + loAct = Null + Do note_fara_predefinire With m.lnIdSet, , m.loAct In ocont2003.prg + Endif + + ENDPROC + + PROCEDURE Pagefr1.p1.Cw4.do_actiune + *!* 09.03.2026 + *!* robert + *!* Adaugat variabila loxSet, scatter name CrsUsets => parametru loxSet pentru procedura note_fara_predefinire + + + Local lcKeyCategorie, lcKeySet, lcMenuRetVal, lcSql, llEnabled, lnIdSet, loCategorie, loAct, loxSet + lnIdSet = 0 + + llEnabled = !luna_inchisa And m.nivel <= 3 + If !m.llEnabled + This.Enabled = .F. + Return m.lnIdSet + Endif + + + TEXT To m.lcSql NOSHOW TEXTMERGE + Select Nvl(c.ordine, 0) As ordine, + ct.nr_seturi, + ct.id_categorie, + cast(Nvl(c.categorie, 'Fara categorie') as varchar2(100)) As categorie + FROM (Select CAST(NVL(id_categorie, 0) as Number(6)) as id_categorie, + Count(*) As nr_seturi + From xsets + where id_Set >= 1000000 + Group By id_categorie) ct + Left Join xsetscategorii c + On ct.id_categorie = c.id_categorie + ORDER By 1, 3; + ENDTEXT + llSucces = goExecutor.oExecuta(m.lcSql, "crsUCategorii") + + TEXT To m.lcSql NOSHOW TEXTMERGE + Select id_set, id_categorie, nume_set + From xsets + Where id_set >= 1000000 + ORDER BY id_categorie, nume_set; + ENDTEXT + llSucces = goExecutor.oExecuta(m.lcSql, "crsUSets") + + With Thisform.oContextMenu + .Clear + + * creare meniu + .Add("000000") + + * seturi definite de utilizator pe categorii + Select crsUCategorii + Scan + Scatter Name m.loCategorie + lcKeyCategorie = '_' + Alltrim(Str(Nvl(m.loCategorie.id_categorie, 0))) + + * categorie + .Add("000000", m.lcKeyCategorie, m.loCategorie.categorie) + + * Seturi note utilizator pe categorie + Select crsUSets + Scan For Nvl(id_categorie,0) = Nvl(m.loCategorie.id_categorie, 0) + lcKeySet = Alltrim(Str(id_set)) + lcSet = Alltrim(crsUSets.nume_set) + .Add(m.lcKeyCategorie, m.lcKeySet, m.lcSet) + Endscan + Endscan + + Endwith + + + + *Thisform.oContextMenu.ShowFlags = TPM_VERPOSANIMATION + Thisform.oContextMenu.ShowFlags = 0x1000 + lcMenuRetVal = Thisform.oContextMenu.Show() + lnIdSet = Val(m.lcMenuRetVal) && id_set + + If m.lnIdSet > 0 + loAct = Null + + Select crsUSets + Locate For id_set = m.lnIdSet + If Found() + Scatter Name loxSet + Else + loxSet = .F. + Endif + + If !Inlist(m.lnIdSet, 99998, 99999) + + lnButon = lans(m.lnIdSet) + If m.lnButon = 2 + Return + Endif + Select actactan + Go Top + Scatter Name loAct + Endif + + Do note_fara_predefinire With m.lnIdSet, loxSet, m.loAct In ocont2003.prg + Endif + + Use In (Select('crsUCategorii')) + Use In (Select('crsUSets')) + ENDPROC + + PROCEDURE Pagefr1.p1.Cw5.do_actiune + gcAcces = [1;2;3;4;] + DO notei.mpr + *!* DO CASE + *!* CASE LUNA_INCHISA + *!* DO mesaj WITH 'Aceasta luna e blocata !','Nu se pot face inchideri!' + *!* CASE luna_neplatita + *!* DO mesaj WITH 'Introduceti seria periodica ! ','Meniu : Initializare / Serie periodica' + *!* OTHERWISE + *!* DO notei.mpr + *!* ENDCASE + ENDPROC + + PROCEDURE Pagefr1.p1.Cw6.do_actiune + DO fisedecont.mpr + ENDPROC + + PROCEDURE Pagefr1.p1.Cw7.do_actiune + DO inventar_patrimoniu IN orapoarte.prg + ENDPROC + + PROCEDURE Pagefr1.p1.Cw8.do_actiune + DO listgen.mpr + ENDPROC + + PROCEDURE Pagefr1.p1.Cw9.do_actiune + do meniu_notificari in orapoarte.prg + ENDPROC + + PROCEDURE Pagefr1.p1.RightClick + thisform.rightclick + ENDPROC + + PROCEDURE Pagefr1.p2.Activate + this.Parent.activate_pag(this,2) + ENDPROC + + PROCEDURE Pagefr1.p2.Cw1.do_actiune + *!* 24.05.2011 + *!* marius.mutu + *!* nu se pot introduce documente de pe mama + IF !(luna_inchisa OR m.glEMama) + DO capitaluri1.mpr + ENDIF + ENDPROC + + PROCEDURE Pagefr1.p2.Cw2.do_actiune + *!* 24.05.2011 + *!* marius.mutu + *!* nu se pot introduce documente de pe mama + IF !(luna_inchisa OR m.glEMama) + DO capitaluri2.mpr + ENDIF + ENDPROC + + PROCEDURE Pagefr1.p2.Cw3.do_actiune + *!* 24.05.2011 + *!* marius.mutu + *!* nu se pot introduce documente de pe mama + IF !(luna_inchisa OR m.glEMama) + DO capitaluri3.mpr + ENDIF + ENDPROC + + PROCEDURE Pagefr1.p2.Cw4.do_actiune + *!* 24.05.2011 + *!* marius.mutu + *!* nu se pot introduce documente de pe mama + IF !(luna_inchisa OR m.glEMama) + DO capitaluri4.mpr + ENDIF + ENDPROC + + PROCEDURE Pagefr1.p2.Cw5.do_actiune + *!* 24.05.2011 + *!* marius.mutu + *!* nu se pot introduce documente de pe mama + IF !(luna_inchisa OR m.glEMama) + DO capitaluri5.mpr + ENDIF + ENDPROC + + PROCEDURE Pagefr1.p2.Cw6.do_actiune + *!* 24.05.2011 + *!* marius.mutu + *!* nu se pot introduce documente de pe mama + IF !(luna_inchisa OR m.glEMama) + DO capitaluri6.mpr + ENDIF + ENDPROC + + PROCEDURE Pagefr1.p2.Cw7.do_actiune + *!* 24.05.2011 + *!* marius.mutu + *!* nu se pot introduce documente de pe mama + IF !(luna_inchisa OR m.glEMama) + DO capitaluri7.mpr + ENDIF + ENDPROC + + PROCEDURE Pagefr1.p2.Cw8.do_actiune + *!* 24.05.2011 + *!* marius.mutu + *!* nu se pot introduce documente de pe mama + IF !(luna_inchisa OR m.glEMama) + DO capitaluri8.mpr + ENDIF + ENDPROC + + PROCEDURE Pagefr1.p2.RightClick + thisform.rightclick + ENDPROC + + PROCEDURE Pagefr1.p3.Activate + this.Parent.activate_pag(this,3) + ENDPROC + + PROCEDURE Pagefr1.p3.Cw1.do_actiune + *!* 24.05.2011 + *!* marius.mutu + *!* nu se pot introduce documente de pe mama + IF !(luna_inchisa OR m.glEMama) + Do imobilizari1.mpr + Endif + ENDPROC + + PROCEDURE Pagefr1.p3.Cw2.do_actiune + *!* 24.05.2011 + *!* marius.mutu + *!* nu se pot introduce documente de pe mama + IF !(luna_inchisa OR m.glEMama) + DO imobilizari2.mpr + ENDIF + ENDPROC + + PROCEDURE Pagefr1.p3.Cw3.do_actiune + *!* 24.05.2011 + *!* marius.mutu + *!* nu se pot introduce documente de pe mama + IF !(luna_inchisa OR m.glEMama) + DO imobilizari3.mpr + ENDIF + ENDPROC + + PROCEDURE Pagefr1.p3.Cw4.do_actiune + *!* 24.05.2011 + *!* marius.mutu + *!* nu se pot introduce documente de pe mama + IF !(luna_inchisa OR m.glEMama) + Do imobilizari4.mpr + Endif + ENDPROC + + PROCEDURE Pagefr1.p3.Cw5.do_actiune + *!* 24.05.2011 + *!* marius.mutu + *!* nu se pot introduce documente de pe mama + IF !(luna_inchisa OR m.glEMama) + Do imobilizari5.mpr + Endif + ENDPROC + + PROCEDURE Pagefr1.p3.Cw6.do_actiune + *!* 24.05.2011 + *!* marius.mutu + *!* nu se pot introduce documente de pe mama + IF !(luna_inchisa OR m.glEMama) + DO imobilizari6.mpr + ENDIF + ENDPROC + + PROCEDURE Pagefr1.p3.RightClick + thisform.rightclick + ENDPROC + + PROCEDURE Pagefr1.p4.Activate + this.Parent.activate_pag(this,4) + ENDPROC + + PROCEDURE Pagefr1.p4.Pfr.pp1.Activate + this.Parent.Parent.Parent.activate_pag(this,4,1) + + ENDPROC + + PROCEDURE Pagefr1.p4.Pfr.pp1.Cw1.do_actiune + *!* 24.05.2011 + *!* marius.mutu + *!* nu se pot introduce documente de pe mama + IF !(luna_inchisa OR m.glEMama) + DO furnizori1.mpr + ENDIF + ENDPROC + + PROCEDURE Pagefr1.p4.Pfr.pp1.Cw10.do_actiune + DO viz_regcump IN oproceduri_decont.prg + ENDPROC + + PROCEDURE Pagefr1.p4.Pfr.pp1.Cw2.do_actiune + *!* 24.05.2011 + *!* marius.mutu + *!* nu se pot introduce documente de pe mama + IF !(luna_inchisa OR m.glEMama) + DO furnizori2.mpr + ENDIF + ENDPROC + + PROCEDURE Pagefr1.p4.Pfr.pp1.Cw3.do_actiune + *!* 24.05.2011 + *!* marius.mutu + *!* nu se pot introduce documente de pe mama + IF !(luna_inchisa OR m.glEMama) + DO furnizori3.mpr + ENDIF + ENDPROC + + PROCEDURE Pagefr1.p4.Pfr.pp1.Cw5.do_actiune + *!* 24.05.2011 + *!* marius.mutu + *!* nu se pot introduce documente de pe mama + IF !(luna_inchisa OR m.glEMama) + DO furnizori4.mpr + ENDIF + ENDPROC + + PROCEDURE Pagefr1.p4.Pfr.pp1.Cw6.do_actiune + DO vizfurn1.mpr + ENDPROC + + PROCEDURE Pagefr1.p4.Pfr.pp1.Cw7.do_actiune + DO vizfurn2.mpr + ENDPROC + + PROCEDURE Pagefr1.p4.Pfr.pp1.Cw8.do_actiune + *!* 24.05.2011 + *!* marius.mutu + *!* nu se pot introduce documente de pe mama + IF !(luna_inchisa OR m.glEMama) + DO furnizori5.mpr + ENDIF + ENDPROC + + PROCEDURE Pagefr1.p4.Pfr.pp1.Cw9.do_actiune + DO listfurn.mpr + ENDPROC + + PROCEDURE Pagefr1.p4.Pfr.pp1.RightClick + thisform.rightclick + ENDPROC + + PROCEDURE Pagefr1.p4.Pfr.pp2.Activate + this.Parent.Parent.Parent.activate_pag(this,4,2) + ENDPROC + + PROCEDURE Pagefr1.p4.Pfr.pp2.Cw1.do_actiune + *!* 24.05.2011 + *!* marius.mutu + *!* nu se pot introduce documente de pe mama + IF !(luna_inchisa OR m.glEMama) + DO clienti1.mpr + ENDIF + ENDPROC + + PROCEDURE Pagefr1.p4.Pfr.pp2.Cw10.do_actiune + DO viz_regvanz IN oproceduri_decont.prg + ENDPROC + + PROCEDURE Pagefr1.p4.Pfr.pp2.Cw101.do_actiune + DO istoric_clienti in orap_terti.prg + ENDPROC + + PROCEDURE Pagefr1.p4.Pfr.pp2.Cw2.do_actiune + *!* 24.05.2011 + *!* marius.mutu + *!* nu se pot introduce documente de pe mama + IF !(luna_inchisa OR m.glEMama) + DO clienti2.mpr + ENDIF + ENDPROC + + PROCEDURE Pagefr1.p4.Pfr.pp2.Cw3.do_actiune + *!* 24.05.2011 + *!* marius.mutu + *!* nu se pot introduce documente de pe mama + IF !(luna_inchisa OR m.glEMama) + DO clienti3.mpr + ENDIF + ENDPROC + + PROCEDURE Pagefr1.p4.Pfr.pp2.Cw4.do_actiune + *!* 24.05.2011 + *!* marius.mutu + *!* nu se pot introduce documente de pe mama + IF !(luna_inchisa OR m.glEMama) + DO clienti4.mpr + ENDIF + ENDPROC + + PROCEDURE Pagefr1.p4.Pfr.pp2.Cw5.do_actiune + *!* 24.05.2011 + *!* marius.mutu + *!* nu se pot introduce documente de pe mama + IF !(luna_inchisa OR m.glEMama) + DO clienti5.mpr + ENDIF + ENDPROC + + PROCEDURE Pagefr1.p4.Pfr.pp2.Cw6.do_actiune + DO vizcli1.mpr + ENDPROC + + PROCEDURE Pagefr1.p4.Pfr.pp2.Cw7.do_actiune + DO vizcli2.mpr + ENDPROC + + PROCEDURE Pagefr1.p4.Pfr.pp2.Cw9.do_actiune + DO listcli.mpr + ENDPROC + + PROCEDURE Pagefr1.p4.Pfr.pp2.RightClick + thisform.rightclick + ENDPROC + + PROCEDURE Pagefr1.p4.Pfr.pp3.Activate + this.Parent.Parent.Parent.activate_pag(this,4,3) + ENDPROC + + PROCEDURE Pagefr1.p4.Pfr.pp3.Cw1.do_actiune + DO debitori.mpr + ENDPROC + + PROCEDURE Pagefr1.p4.Pfr.pp3.Cw10.do_actiune + *!* 24.05.2011 + *!* marius.mutu + *!* nu se pot introduce documente de pe mama + IF !(luna_inchisa OR m.glEMama) + DO dividende.mpr + ENDIF + ENDPROC + + PROCEDURE Pagefr1.p4.Pfr.pp3.Cw11.do_actiune + DO lans_balanta_parteneri IN OPARTENERI.prg + ENDPROC + + PROCEDURE Pagefr1.p4.Pfr.pp3.Cw12.do_actiune + *!* 24.05.2011 + *!* marius.mutu + *!* nu se pot introduce documente de pe mama + IF !(luna_inchisa OR m.glEMama) + PRIVATE pcACN + loCont = ret_cont("Selectati contul",'421,423,424,425') + IF buton = 2 + RELEASE loCont + RETURN + ENDIF + + CN = locont.cont + PcACN = loCont.Acont + lans(10517) + ENDIF + ENDPROC + + PROCEDURE Pagefr1.p4.Pfr.pp3.Cw13.do_actiune + *!* 24.05.2011 + *!* marius.mutu + *!* nu se pot introduce documente de pe mama + IF !(luna_inchisa OR m.glEMama) + DO decont4511.mpr + ENDIF + ENDPROC + + PROCEDURE Pagefr1.p4.Pfr.pp3.Cw14.do_actiune + IF !(luna_inchisa OR m.glEMama) + DO creditoriOp.mpr + ENDIF + ENDPROC + + PROCEDURE Pagefr1.p4.Pfr.pp3.Cw2.do_actiune + DO creditori.mpr + ENDPROC + + PROCEDURE Pagefr1.p4.Pfr.pp3.Cw3.do_actiune + DO cheltavans.mpr + ENDPROC + + PROCEDURE Pagefr1.p4.Pfr.pp3.Cw4.do_actiune + *osetviz.tbrprim.butonacti.click + DO actionari.mpr + ENDPROC + + PROCEDURE Pagefr1.p4.Pfr.pp3.Cw5.do_actiune + *!* DO lans_balanta_cumulata IN OPARTENERI.prg + DO balpartc.mpr + ENDPROC + + PROCEDURE Pagefr1.p4.Pfr.pp3.Cw6.do_actiune + DO lans_ireg_parteneri WITH .T.,'',.T. + ENDPROC + + PROCEDURE Pagefr1.p4.Pfr.pp3.Cw7.do_actiune + DO vnavans.mpr + ENDPROC + + PROCEDURE Pagefr1.p4.Pfr.pp3.Cw8.do_actiune + DO vizdividende.mpr + ENDPROC + + PROCEDURE Pagefr1.p4.Pfr.pp3.Cw9.do_actiune + DO listterti.mpr + ENDPROC + + PROCEDURE Pagefr1.p4.Pfr.pp3.RightClick + thisform.rightclick + ENDPROC + + PROCEDURE Pagefr1.p5.Activate + this.Parent.activate_pag(this,5) + ENDPROC + + PROCEDURE Pagefr1.p5.Pfr.pp1.Activate + this.Parent.Parent.Parent.activate_pag(this,5,1) + ENDPROC + + PROCEDURE Pagefr1.p5.Pfr.pp1.Cw1.do_actiune + *!* 24.05.2011 + *!* marius.mutu + *!* nu se pot introduce documente de pe mama + IF !(luna_inchisa OR m.glEMama) + DO casa1.mpr + ENDIF + ENDPROC + + PROCEDURE Pagefr1.p5.Pfr.pp1.Cw2.do_actiune + *!* 24.05.2011 + *!* marius.mutu + *!* nu se pot introduce documente de pe mama + IF !(luna_inchisa OR m.glEMama) + DO casa2.mpr + ENDIF + ENDPROC + + PROCEDURE Pagefr1.p5.Pfr.pp1.Cw3.do_actiune + *!* 24.05.2011 + *!* marius.mutu + *!* nu se pot introduce documente de pe mama + IF !(luna_inchisa OR m.glEMama) + DO casa3.mpr + ENDIF + ENDPROC + + PROCEDURE Pagefr1.p5.Pfr.pp1.Cw4.do_actiune + DO viz_bancasa WITH '5311' IN ocasabanca.prg + ENDPROC + + PROCEDURE Pagefr1.p5.Pfr.pp1.Cw5.do_actiune + *DO afis_sold_casabanca WITH 'CASA','CASANUME','SOLDURI CASE','5311','CASA','INCASARI',.F. + DO lans_balanta_parteneri WITH "5311",.T. IN oparteneri.prg + ENDPROC + + PROCEDURE Pagefr1.p5.Pfr.pp1.Cw6.do_actiune + DO listcasa.mpr + ENDPROC + + PROCEDURE Pagefr1.p5.Pfr.pp1.Cw7.do_actiune + DO viz_bancasa WITH '5314' IN ocasabanca.prg + ENDPROC + + PROCEDURE Pagefr1.p5.Pfr.pp1.Cw8.do_actiune + *DO afis_sold_casabanca WITH 'CASA VALUTA','CASVNUME','SOLDURI CASE IN VALUTA','5314','NUME_5','INCASARI',.T. + DO lans_balanta_parteneri WITH "5314",.T. IN oparteneri.prg + ENDPROC + + PROCEDURE Pagefr1.p5.Pfr.pp1.RightClick + thisform.rightclick + ENDPROC + + PROCEDURE Pagefr1.p5.Pfr.pp2.Activate + this.Parent.Parent.Parent.activate_pag(this,5,2) + ENDPROC + + PROCEDURE Pagefr1.p5.Pfr.pp2.Cw1.do_actiune + *!* 24.05.2011 + *!* marius.mutu + *!* nu se pot introduce documente de pe mama + IF !(luna_inchisa OR m.glEMama) + DO banca1.mpr + ENDIF + ENDPROC + + PROCEDURE Pagefr1.p5.Pfr.pp2.Cw2.do_actiune + *!* 24.05.2011 + *!* marius.mutu + *!* nu se pot introduce documente de pe mama + IF !(luna_inchisa OR m.glEMama) + DO banca2.mpr + ENDIF + ENDPROC + + PROCEDURE Pagefr1.p5.Pfr.pp2.Cw3.do_actiune + *!* 24.05.2011 + *!* marius.mutu + *!* nu se pot introduce documente de pe mama + IF !(luna_inchisa OR m.glEMama) + DO banca3.mpr + ENDIF + ENDPROC + + PROCEDURE Pagefr1.p5.Pfr.pp2.Cw4.do_actiune + DO viz_bancasa WITH '5121' IN ocasabanca.prg + ENDPROC + + PROCEDURE Pagefr1.p5.Pfr.pp2.Cw5.do_actiune + DO viz_bancasa WITH '5124' IN ocasabanca.prg + ENDPROC + + PROCEDURE Pagefr1.p5.Pfr.pp2.Cw6.do_actiune + Do listbanca.mpr + ENDPROC + + PROCEDURE Pagefr1.p5.Pfr.pp2.Cw7.do_actiune + *DO afis_sold_casabanca WITH 'BANCA','BANNUME','SOLDURI BANCI','5121','NUME_2','INCASARI',.F. + DO lans_balanta_parteneri WITH "5121,5126,5081",.T. IN oparteneri.prg + ENDPROC + + PROCEDURE Pagefr1.p5.Pfr.pp2.Cw8.do_actiune + *DO afis_sold_casabanca WITH 'BANCA VALUTA','BANVNUME','SOLDURI BANCI IN VALUTA','5124','NUME_3','INCASARI',.T. + DO lans_balanta_parteneri WITH "5124,5127,5081",.T. IN oparteneri.prg + ENDPROC + + PROCEDURE Pagefr1.p5.Pfr.pp2.RightClick + thisform.rightclick + ENDPROC + + PROCEDURE Pagefr1.p5.Pfr.pp3.Activate + this.Parent.Parent.Parent.activate_pag(this,5,3) + ENDPROC + + PROCEDURE Pagefr1.p5.Pfr.pp3.Cw1.do_actiune + *!* 24.05.2011 + *!* marius.mutu + *!* nu se pot introduce documente de pe mama + IF !(luna_inchisa OR m.glEMama) + DO trez1.mpr + ENDIF + ENDPROC + + PROCEDURE Pagefr1.p5.Pfr.pp3.Cw2.do_actiune + *!* *!* SELE CECNUME + *!* *!* oCEc=create('afCEC') + *!* *!* oCEc.show(1) + *!* DO afis_sold_casabanca WITH 'CEC','CECNUME','CECuri','5112','CEC','INCARCAT',.F. + *!* *PARAMETERS tcTip,tcFis,tcTitlu,TcCont,TcNumeCol1,TcNumeCol2,tlVisibil + DO lans_balanta_parteneri WITH "5112",.T. IN OPARTENERI.prg + ENDPROC + + PROCEDURE Pagefr1.p5.Pfr.pp3.Cw3.do_actiune + *osetviz.tbrprim.butonachi.click + Do ACHI1.MPR + ENDPROC + + PROCEDURE Pagefr1.p5.Pfr.pp3.Cw4.do_actiune + *!* sele cEC + *!* loca for cod=-1 + *!* if !found() + *!* appe blan + *!* repl cod with -1 + *!* endif + *!* repl scc with '' + *!* repl scd with '' + + *!* select BAL + *!* loca for left(cont,4)='5112' + *!* IF FOUND() + *!* SCATTER MEMVAR + *!* ELSE + *!* STORE 0 TO M.PRECDEB,M.PRECCRED,M.SOLDDEB,M.SOLDCRED + *!* ENDIF + + *!* SELECT distinct act.cod,act.fdoc,act.dataact,CEC.dataireg,act.nract,act.NUME,CEC.CEC,CEC.inCARCAT AS INCASARI,CEC.plati,CEC.scd,CEC.scc; + *!* from act,CEC; + *!* WHERE act.cod = CEC.cod and LEFT(ACT.SCC,4)=LEFT(CEC.SCC,4) and !deleted(); + *!* into cursor casban + *!* sele casban + *!* INDEX ON DATAireg TAG DATAireg OF CASBAN + *!* Oreg=CREATEOBJECT("casabanca") + *!* with Oreg + *!* .LABEL10.CAPTION="REGISTRUL DE CECURI" + *!* .grid1.column4.header4.caption="CEC" + *!* .grid1.column4.controlsource="CEC" + *!* .check2.caption="CEC" + *!* .nrcont='5112 ' + *!* .cmdlist1.visible=.f. + *!* .cmdlist2.visible=.f. + *!* endwith + *!* Oreg.SHOW(1) + Do lans_ireg_parteneri With .F.,'5112',.T. + ENDPROC + + PROCEDURE Pagefr1.p5.Pfr.pp3.Cw5.do_actiune + *!* 24.05.2011 + *!* marius.mutu + *!* nu se pot introduce documente de pe mama + IF !(luna_inchisa OR m.glEMama) + DO trez2.mpr + ENDIF + ENDPROC + + PROCEDURE Pagefr1.p5.Pfr.pp3.Cw6.do_actiune + *!* 24.05.2011 + *!* marius.mutu + *!* nu se pot introduce documente de pe mama + IF !(luna_inchisa OR m.glEMama) + DO trez.mpr + ENDIF + ENDPROC + + PROCEDURE Pagefr1.p5.Pfr.pp3.Cw7.do_actiune + *!* 24.05.2011 + *!* marius.mutu + *!* nu se pot introduce documente de pe mama + IF !(luna_inchisa OR m.glEMama) + DO trez3.mpr + ENDIF + ENDPROC + + PROCEDURE Pagefr1.p5.Pfr.pp3.Cw8.do_actiune + DO listtrez.mpr + ENDPROC + + PROCEDURE Pagefr1.p5.Pfr.pp3.RightClick + thisform.rightclick + ENDPROC + + PROCEDURE Pagefr1.p6.Activate + this.Parent.activate_pag(this,6) + ENDPROC + + PROCEDURE Pagefr1.p6.Cw1.do_actiune + *!* 24.05.2011 + *!* marius.mutu + *!* nu se pot introduce documente de pe mama + IF !(luna_inchisa OR m.glEMama) + DO cheltuieli1.mpr + ENDIF + ENDPROC + + PROCEDURE Pagefr1.p6.Cw3.do_actiune + SELECT CHLTIND + GO TOP + ochlt=CREATEOBJECT('frm_tipchelt') + ochlt.gridb1.recordsource='CHLTIND' + ochlt.gridb1.column1.controlsource='dst_chlt' + ochlt.pctip='CHLTIND' + ochlt.show(1) + *DO FORM cheltuieli + ENDPROC + + PROCEDURE Pagefr1.p6.Cw4.do_actiune + *!* 24.05.2011 + *!* marius.mutu + *!* nu se pot introduce documente de pe mama + IF !(luna_inchisa OR m.glEMama) + DO cheltuieli2.mpr + ENDIF + ENDPROC + + PROCEDURE Pagefr1.p6.RightClick + thisform.rightclick + ENDPROC + + PROCEDURE Pagefr1.p7.Activate + this.Parent.activate_pag(this,7) + ENDPROC + + PROCEDURE Pagefr1.p7.Cw1.do_actiune + *!* 24.05.2011 + *!* marius.mutu + *!* nu se pot introduce documente de pe mama + IF !(luna_inchisa OR m.glEMama) + DO venituri.mpr + ENDIF + ENDPROC + + PROCEDURE Pagefr1.p7.Cw3.do_actiune + SELECT VENITURI + GO TOP + ochlt=CREATEOBJECT('frm_tipchelt') + ochlt.titluFrumos1.caption='Tipuri de venituri' + ochlt.gridb1.recordsource='VENITURI' + ochlt.gridb1.column1.controlsource='dst_chlt' + ochlt.pctip='VENITURI' + ochlt.show(1) + ENDPROC + + PROCEDURE Pagefr1.p7.RightClick + thisform.rightclick + ENDPROC + +ENDDEFINE diff --git a/Clase/contabilitate_rapoarte.vc2 b/Clase/contabilitate_rapoarte.vc2 new file mode 100644 index 0000000..6d9b680 --- /dev/null +++ b/Clase/contabilitate_rapoarte.vc2 @@ -0,0 +1,1202 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="contabilitate_rapoarte.vcx" CPID="1250" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS frm_jurnal_plati_incasari 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="Shape4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Shape3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtdata1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtdata2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_filtru_data" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="opt_afis" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="opt_recap" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" /> + + * + *m: pregateste_date && selecteaza datele necesare de pe serverul Oracle + * + + * + DoCreate = .T. + Height = 235 + Name = "frm_jurnal_plati_incasari" + Width = 300 + _shape1.Name = "_shape1" + _shape1.ZOrderSet = 4 + Lb_titlu_alb_b121.Caption = "Jurnal plati/incasari" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.ZOrderSet = 6 + BUT_TERMIN1.Left = 270 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 1 + BUT_TERMIN1.ZOrderSet = 7 + Resizer1.Label1.Name = "Label1" + Resizer1.Name = "Resizer1" + * + + ADD OBJECT 'But_excel1' AS but_excel WITH ; + Left = 212, ; + Name = "But_excel1", ; + Top = 1, ; + ZOrderSet = 18 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_listare1' AS but_listare WITH ; + Left = 241, ; + Name = "But_listare1", ; + Top = 1, ; + ZOrderSet = 8 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Ck_filtru_data' AS ck_filtru_numar WITH ; + Alignment = 0, ; + camp_nume = dataact, ; + Caption = "Data", ; + Left = 73, ; + Name = "Ck_filtru_data", ; + tip = D, ; + Top = 96, ; + ZOrderSet = 13 + *< END OBJECT: ClassLib="..\..\comun\clase\caut_comun.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Label1' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "_", ; + Comment = "*:OnResize=LT", ; + FontBold = .T., ; + FontName = "Arial Narrow", ; + FontSize = 11, ; + Height = 22, ; + Left = 119, ; + Name = "Label1", ; + TabIndex = 8, ; + Top = 57, ; + Width = 9, ; + ZOrderSet = 11 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label2' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Filtrare:", ; + Comment = "*:OnResize=LT", ; + FontBold = .F., ; + FontName = "Arial Narrow", ; + FontSize = 11, ; + Height = 22, ; + Left = 26, ; + Name = "Label2", ; + TabIndex = 8, ; + Top = 93, ; + Width = 44, ; + ZOrderSet = 12 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label3' AS label WITH ; + Alignment = 2, ; + AutoSize = .F., ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + Caption = "Perioada de referinta", ; + Comment = "*:OnResize=LT", ; + FontBold = .F., ; + FontName = "Arial Narrow", ; + FontSize = 11, ; + Height = 22, ; + Left = 20, ; + Name = "Label3", ; + TabIndex = 8, ; + Top = 37, ; + Width = 126, ; + ZOrderSet = 19 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label4' AS label WITH ; + Alignment = 2, ; + AutoSize = .F., ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + Caption = "Afiseaza", ; + Comment = "*:OnResize=LT", ; + FontBold = .F., ; + FontName = "Arial Narrow", ; + FontSize = 11, ; + Height = 22, ; + Left = 19, ; + Name = "Label4", ; + TabIndex = 8, ; + Top = 133, ; + Width = 59, ; + ZOrderSet = 17 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label5' AS label WITH ; + Alignment = 2, ; + AutoSize = .F., ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + Caption = "Cu recapitulatie", ; + Comment = "*:OnResize=LT", ; + FontBold = .F., ; + FontName = "Arial Narrow", ; + FontSize = 11, ; + Height = 22, ; + Left = 152, ; + Name = "Label5", ; + TabIndex = 8, ; + Top = 132, ; + Width = 99, ; + ZOrderSet = 15 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'opt_afis' AS optiongroup WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + BorderStyle = 0, ; + ButtonCount = 3, ; + Height = 72, ; + Left = 18, ; + Name = "opt_afis", ; + SpecialEffect = 1, ; + TabIndex = 11, ; + Top = 154, ; + Value = 1, ; + Width = 96, ; + ZOrderSet = 14, ; + Option1.AutoSize = .T., ; + Option1.BackStyle = 0, ; + Option1.Caption = "Plati", ; + Option1.FontName = "Arial Narrow", ; + Option1.FontSize = 10, ; + Option1.Height = 18, ; + Option1.Left = 5, ; + Option1.Name = "Option1", ; + Option1.Top = 5, ; + Option1.Value = 1, ; + Option1.Width = 37, ; + Option2.AutoSize = .T., ; + Option2.BackStyle = 0, ; + Option2.Caption = "Incasari", ; + Option2.FontName = "Arial Narrow", ; + Option2.FontSize = 10, ; + Option2.Height = 18, ; + Option2.Left = 5, ; + Option2.Name = "Option2", ; + Option2.Top = 28, ; + Option2.Width = 55, ; + Option3.AutoSize = .T., ; + Option3.Caption = "Plati si incasari", ; + Option3.FontName = "Arial Narrow", ; + Option3.FontSize = 10, ; + Option3.Height = 18, ; + Option3.Left = 5, ; + Option3.Name = "Option3", ; + Option3.Top = 49, ; + Option3.Width = 86 + *< END OBJECT: BaseClass="optiongroup" /> + + ADD OBJECT 'opt_recap' AS optiongroup WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + BorderStyle = 0, ; + ButtonCount = 2, ; + Height = 52, ; + Left = 150, ; + Name = "opt_recap", ; + SpecialEffect = 1, ; + TabIndex = 11, ; + Top = 155, ; + Value = 1, ; + Width = 100, ; + ZOrderSet = 16, ; + Option1.AutoSize = .T., ; + Option1.BackStyle = 0, ; + Option1.Caption = "Pe parteneri", ; + Option1.FontName = "Arial Narrow", ; + Option1.FontSize = 10, ; + Option1.Height = 18, ; + Option1.Left = 5, ; + Option1.Name = "Option1", ; + Option1.Top = 5, ; + Option1.Value = 1, ; + Option1.Width = 76, ; + Option2.AutoSize = .T., ; + Option2.BackStyle = 0, ; + Option2.Caption = "Pe responsabili", ; + Option2.FontName = "Arial Narrow", ; + Option2.FontSize = 10, ; + Option2.Height = 18, ; + Option2.Left = 5, ; + Option2.Name = "Option2", ; + Option2.Top = 29, ; + Option2.Width = 90 + *< END OBJECT: BaseClass="optiongroup" /> + + ADD OBJECT 'Shape2' AS shape WITH ; + BackStyle = 0, ; + Height = 79, ; + Left = 12, ; + Name = "Shape2", ; + Top = 143, ; + Width = 109, ; + ZOrderSet = 2 + *< END OBJECT: BaseClass="shape" /> + + ADD OBJECT 'Shape3' AS shape WITH ; + BackStyle = 0, ; + Height = 79, ; + Left = 144, ; + Name = "Shape3", ; + Top = 143, ; + Width = 145, ; + ZOrderSet = 1 + *< END OBJECT: BaseClass="shape" /> + + ADD OBJECT 'Shape4' AS shape WITH ; + BackStyle = 0, ; + Height = 78, ; + Left = 12, ; + Name = "Shape4", ; + Top = 48, ; + Width = 235, ; + ZOrderSet = 0 + *< END OBJECT: BaseClass="shape" /> + + ADD OBJECT 'txtdata1' AS textbox WITH ; + BorderColor = 128,128,128, ; + ControlSource = "", ; + Enabled = .F., ; + FontName = "Arial Narrow", ; + FontSize = 11, ; + Height = 22, ; + Left = 25, ; + Name = "txtdata1", ; + SpecialEffect = 1, ; + TabIndex = 10, ; + Top = 61, ; + Width = 88, ; + ZOrderSet = 9 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtdata2' AS textbox WITH ; + BorderColor = 128,128,128, ; + ControlSource = "", ; + Enabled = .F., ; + FontName = "Arial Narrow", ; + FontSize = 11, ; + Height = 22, ; + Left = 133, ; + Name = "txtdata2", ; + SpecialEffect = 1, ; + TabIndex = 10, ; + Top = 61, ; + Width = 88, ; + ZOrderSet = 10 + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE do_excel + Local lcCursor,llplati,llresp + lcCursor = Thisform.pregateste_date() + + llplati = Iif(Thisform.opt_afis.Value=1,.T.,.F.) + llresp = Iif(Thisform.opt_recap.Value=1,.F.,.T.) + If !Used(lcCursor) + Messagebox('Nu s-a creat tabelul ' + lcCursor,0+48,_Screen.Caption) + Return + Endif + Select (lcCursor) + + *!* SET DEFAULT TO &gcSchemaPath + *!* CD &gcSchemaPath + *!* IF !DIRECTORY('&gcSchemaPath\jurnal_incasplati') + *!* MD jurnal_incasplati + *!* ENDIF + *!* lcFile=gcSchemaPath+'\jurnal_incasplati\jurnal_'+SYS(2)+'.XLS' + lcFile = gcTempPath + [jurnal_incasplati]+Sys(2)+[.XLS] + If tlresp + Select tip, cnume As responsabil, cpartener As partener, ; + suma5112 + suma5121 + suma5311 + compensari + diverse As Total, suma5112, suma5121, suma5311, compensari, diverse, ; + contp As Cont, acont As analitic ; + from (lcCursor) Order By 1,2 Into Cursor query_avans + Else + Select tip, cpartener As partener, ; + suma5112 + suma5121 + suma5311 + compensari + diverse As Total, suma5112, suma5121, suma5311, compensari, diverse, ; + contp As Cont, acont As analitic ; + from (lcCursor) Order By 1,2 Into Cursor query_avans + Endif + + Select query_avans + + Copy To (lcFile) Type Xls + Use In (lcCursor) + + OPEN_DEFAULT_APP(lcFile) + + + ENDPROC + + PROCEDURE pregateste_date && selecteaza datele necesare de pe serverul Oracle + llplati = (Thisform.opt_afis.Value = 1) + llIncasari = (Thisform.opt_afis.Value = 2) + llPlatiIncasari = (Thisform.opt_afis.Value = 3) + llresp = Iif(Thisform.opt_recap.Value=1,.F.,.T.) + + lcfiltrudata = Iif(!Empty(Thisform.ck_filtru_data.filtru),Thisform.ck_filtru_data.filtru,[ and 1=1]) + ldData1 = this.txtdata1.Value + ldData2 = this.txtdata2.Value + + IF YEAR(m.ldData1) = YEAR(m.ldData2) + lcFiltruData = lcFiltruData + [ and an = ] + ALLTRIM(STR(YEAR(m.ldData1))) + IF MONTH(m.ldData1) = MONTH(m.ldData2) + lcFiltruData = lcFiltruData + [ and luna = ] + ALLTRIM(STR(month(m.ldData1))) + ELSE + lcFiltruData = lcFiltruData + [ and luna between ] + ALLTRIM(STR(month(m.ldData1))) + [ and ] + ALLTRIM(STR(month(m.ldData2))) + ENDIF + ELSE + lcFiltruData = lcFiltruData + [ and an between ] + ALLTRIM(STR(YEAR(m.ldData1))) + [ and ] + + ALLTRIM(STR(YEAR(m.ldData2))) + ENDIF + + ENDPROC + + PROCEDURE Ck_filtru_data.InteractiveChange + + DODEFAULT() + IF this.value = 1 + pdData1 = CTOD(this.cvaloare1) + pdData2 = CTOD(this.cvaloare2) + ELSE + pdData1 = pdinit1 + pdData2 = pdinit2 + ENDIF + thisform.refresh + ENDPROC + + PROCEDURE Ck_filtru_data.Valid + *!* 21.06.2011 + *!* marius.mutu + *!* se pot selecta inregistrari din orice perioada, nu numai din luna curenta + *!* #3054 + + Local lddata1,lddata2 + lddata1 = Ctod(This.cvaloare1) + lddata2 = Ctod(This.cvaloare2) + If This.Value = 0 + Return + Endif + + *!* 21.06.2011 + If lddata1 <= lddata2 && AND BETWEEN(lddata1,pdinit1,pdinit2) AND BETWEEN(lddata2,pdinit1,pdinit2) + Return .T. + Else + pdData1 = pdinit1 + pdData2 = pdinit2 + This.Value = 0 + Thisform.Refresh + Wait Window "Date incorecte!" + Return .F. + Endif + *!* 21.06.2011 ^ + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_pondere_clienti_furnizori AS formtermin OF "..\..\..\..\contafin\comun\clase\baza.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Gridb1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Excel1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="List1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_filtru_numar1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_filtru_numar2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_filtru_numar3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdfooter1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cknume" UniqueID="" Timestamp="" /> + + * + *m: afisactual + *m: grdfooterevent + * + + * + BorderStyle = 3 + Closable = .F. + DoCreate = .T. + Height = 526 + Name = "frm_pondere_clienti_furnizori" + Width = 800 + WindowState = 0 + Shape1.Anchor = 10 + Shape1.Comment = "*:OnResize=st" + Shape1.Height = 36 + Shape1.Left = 0 + Shape1.Name = "Shape1" + Shape1.Top = 0 + Shape1.Width = 800 + Terminat1.Anchor = 8 + Terminat1.Command1.Name = "Command1" + Terminat1.Comment = "*:OnResize=Rt" + Terminat1.Imbuton1.Height = 29 + Terminat1.Imbuton1.Name = "Imbuton1" + Terminat1.Imbuton1.Width = 27 + Terminat1.Left = 760 + Terminat1.Name = "Terminat1" + Terminat1.Top = 3 + Titlufrumos1.AutoSize = .F. + Titlufrumos1.Caption = "PONDERE CLIENTI / FURNIZORI" + Titlufrumos1.Height = 18 + Titlufrumos1.Left = 9 + Titlufrumos1.Name = "Titlufrumos1" + Titlufrumos1.Top = 5 + Titlufrumos1.Width = 627 + Lb_shortcuts1.Name = "Lb_shortcuts1" + * + + ADD OBJECT '_grdfooter1' AS _grdfooter WITH ; + Anchor = 14, ; + ccolwithlabel = column1, ; + csourcegrid = gridb1, ; + csumcolumns = column5,column3,column4,column10,column6, ; + ctotallabelexpression = 'TOTAL', ; + Height = 25, ; + Left = 9, ; + Name = "_grdfooter1", ; + TabIndex = 18, ; + Top = 488, ; + Width = 774 + *< END OBJECT: ClassLib="..\..\..\..\contafin\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'Ck_filtru_numar1' AS ck_filtru_numar WITH ; + Alignment = 0, ; + camp_nume = debit, ; + Caption = "Rulaj debit", ; + Comment = "", ; + FontName = "Arial Narrow", ; + Height = 17, ; + Left = 102, ; + mask = (get_mask(14,GnZ)), ; + Name = "Ck_filtru_numar1", ; + nrzec = (gnZ), ; + Top = 46, ; + Width = 66 + *< END OBJECT: ClassLib="..\..\..\..\contafin\comun\clase\caut_comun.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_filtru_numar2' AS ck_filtru_numar WITH ; + Alignment = 0, ; + camp_nume = credit, ; + Caption = "Rulaj credit", ; + Comment = "", ; + FontName = "Arial Narrow", ; + Height = 17, ; + Left = 205, ; + mask = (get_mask(14,GnZ)), ; + Name = "Ck_filtru_numar2", ; + nrzec = (gnZ), ; + Top = 46, ; + Width = 71 + *< END OBJECT: ClassLib="..\..\..\..\contafin\comun\clase\caut_comun.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_filtru_numar3' AS ck_filtru_numar WITH ; + Alignment = 0, ; + camp_nume = sold_final, ; + Caption = "Sold final", ; + Comment = "", ; + FontName = "Arial Narrow", ; + Left = 307, ; + mask = (get_mask(14,GnZ)), ; + Name = "Ck_filtru_numar3", ; + nrzec = (gnZ), ; + Top = 46 + *< END OBJECT: ClassLib="..\..\..\..\contafin\comun\clase\caut_comun.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'cknume' AS ck_filtru_text WITH ; + Alignment = 0, ; + camp_nume = nume, ; + Caption = "Nume", ; + Left = 12, ; + Name = "cknume", ; + Top = 46 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Excel1' AS excel WITH ; + Anchor = 8, ; + Comment = "*:OnResize=Rt", ; + Left = 690, ; + Name = "Excel1", ; + Top = 3, ; + Imbuton1.Height = 27, ; + Imbuton1.Name = "Imbuton1", ; + Imbuton1.Width = 30, ; + Command1.Name = "Command1" + *< END OBJECT: ClassLib="..\..\..\..\contafin\comun\clase\baza.vcx" BaseClass="container" /> + + ADD OBJECT 'Gridb1' AS gridb WITH ; + Anchor = 15, ; + ColumnCount = 10, ; + Comment = "*:OnResize=ss", ; + FontName = "Arial Narrow", ; + HeaderHeight = 38, ; + Height = 420, ; + Left = 9, ; + Name = "Gridb1", ; + Panel = 1, ; + RecordMark = .F., ; + RecordSource = "cPondereF", ; + Top = 67, ; + Width = 774, ; + Column1.ControlSource = "nume", ; + Column1.FontName = "Arial Narrow", ; + Column1.Header1.Alignment = 2, ; + Column1.Header1.Caption = "Nume", ; + Column1.Header1.FontName = "Arial Narrow", ; + Column1.Header1.Name = "Header1", ; + Column1.Name = "Column1", ; + Column1.Text1.FontName = "Arial Narrow", ; + Column1.Text1.Name = "Text1", ; + Column1.Width = 207, ; + Column2.ControlSource = "analitic", ; + Column2.FontName = "Arial Narrow", ; + Column2.Name = "Column2", ; + Column2.Width = 31, ; + Column3.ColumnOrder = 4, ; + Column3.ControlSource = "debit", ; + Column3.FontName = "Arial Narrow", ; + Column3.Format = "rk", ; + Column3.InputMask = (get_mask(16,GnZ)), ; + Column3.Name = "Column3", ; + Column4.ColumnOrder = 5, ; + Column4.ControlSource = "credit", ; + Column4.FontName = "Arial Narrow", ; + Column4.Format = "rk", ; + Column4.InputMask = (get_mask(16,GnZ)), ; + Column4.Name = "Column4", ; + Column5.ColumnOrder = 3, ; + Column5.ControlSource = "sold_initial", ; + Column5.FontName = "Arial Narrow", ; + Column5.Format = "rk", ; + Column5.InputMask = (get_mask(16,GnZ)), ; + Column5.Name = "Column5", ; + Column6.ColumnOrder = 7, ; + Column6.ControlSource = "sold_final", ; + Column6.FontName = "Arial Narrow", ; + Column6.Format = "rk", ; + Column6.InputMask = (get_mask(16,GnZ)), ; + Column6.Name = "Column6", ; + Column7.ColumnOrder = 9, ; + Column7.ControlSource = "pondere_debit", ; + Column7.FontName = "Arial Narrow", ; + Column7.Format = "rk", ; + Column7.InputMask = "999 999 999.999", ; + Column7.Name = "Column7", ; + Column8.ColumnOrder = 8, ; + Column8.ControlSource = "pondere_credit", ; + Column8.FontName = "Arial Narrow", ; + Column8.Format = "rk", ; + Column8.InputMask = "999 999 999.999", ; + Column8.Name = "Column8", ; + Column9.ColumnOrder = 10, ; + Column9.ControlSource = "pondere_sold_final", ; + Column9.FontName = "Arial Narrow", ; + Column9.Format = "rk", ; + Column9.InputMask = "999 999 999.999", ; + Column9.Name = "Column9", ; + Column9.Width = 68, ; + Column10.ColumnOrder = 6, ; + Column10.ControlSource = "avans", ; + Column10.FontName = "Arial Narrow", ; + Column10.Format = "rk", ; + Column10.InputMask = (get_mask(16,GnZ)), ; + Column10.Name = "Column10" + *< END OBJECT: ClassLib="..\..\..\..\contafin\comun\clase\baza.vcx" BaseClass="grid" /> + + ADD OBJECT 'Gridb1.Column10.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Rulaj avans", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridb1.Column10.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridb1.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Analitic", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridb1.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridb1.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Rulaj debit", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridb1.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridb1.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Rulaj credit", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridb1.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridb1.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sold initial", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridb1.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridb1.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sold final", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridb1.Column6.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridb1.Column7.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Pondere debit (%)", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridb1.Column7.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridb1.Column8.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Pondere credit (%)", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridb1.Column8.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridb1.Column9.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Pondere sold final (%)", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridb1.Column9.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridextra1' AS gridextra WITH ; + gridexpression = Thisform.Gridb1, ; + Left = 630, ; + Name = "Gridextra1", ; + Top = 51 + *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> + + ADD OBJECT 'List1' AS list WITH ; + Anchor = 8, ; + Comment = "*:OnResize=Rt", ; + Left = 725, ; + Name = "List1", ; + Top = 3, ; + Imbuton1.Height = 27, ; + Imbuton1.Name = "Imbuton1", ; + Imbuton1.Width = 30, ; + Command1.Name = "Command1" + *< END OBJECT: ClassLib="..\..\..\..\contafin\comun\clase\baza.vcx" BaseClass="container" /> + + PROCEDURE afisactual + lccond=[] + SET STEP ON + If This.cknume.Value=1 + lcfiltru = This.cknume.filtru_vfp + lccond = lccond + lcfiltru + Endif + + If This.ck_filtru_numar1.Value=1 + lcfiltru = This.ck_filtru_numar1.filtru + lccond = lccond + lcfiltru + Endif + + If This.ck_filtru_numar2.Value=1 + lcfiltru = This.ck_filtru_numar2.filtru + lccond = lccond + lcfiltru + Endif + + If This.ck_filtru_numar3.Value=1 + lcfiltru = This.ck_filtru_numar3.filtru + lccond = lccond + lcfiltru + Endif + + lcsel = Thisform.gridb1.RecordSource + Select (lcsel) + If !Empty(lccond) + lccond = Substr(lccond,6) + Endif + Set Filter To &lccond + + THIS._grdfooter1.calctotal() + + Select (lcsel) + Do nrord With (lcsel) + + Select (lcsel) + Go Top + + Thisform.Refresh + This.gridb1.Refresh + ENDPROC + + PROCEDURE grdfooterevent + LPARAMETERS toObj, tcEvt + + IF TYPE('this._grdfooter1') = 'O' + IF PEMSTATUS(this._grdfooter1, "eventhandler", 5) + this._grdfooter1.eventhandler(,toObj,tcEvt) + ENDIF + ENDIF + ENDPROC + + PROCEDURE Init + DoDefault() + thisform.WindowState=2 + this.gridextra1.setup() + ENDPROC + + PROCEDURE Show + LPARAMETERS nStyle + + + *** apelez grdfooter.init pentru repozitionare coloane grdfooter dupa gridextra si recalculare totaluri dupa schimbare controlsource coloane + this._grdfooter1.Init() + + DoDefault(nStyle) + ENDPROC + + PROCEDURE cknume.Click + Thisform.afisactual + ENDPROC + + PROCEDURE Ck_filtru_numar1.Click + Thisform.afisactual + ENDPROC + + PROCEDURE Ck_filtru_numar2.Click + Thisform.afisactual + ENDPROC + + PROCEDURE Ck_filtru_numar3.Click + Thisform.afisactual + ENDPROC + + PROCEDURE Excel1.Command1.Click + lcTabel = thisform.gridb1.RecordSource + + Dimension AHEADER(10,2) + AHEADER[1,1]="Nume" + AHEADER[2,1]="Analitic" + AHEADER[3,1]=iif(m.plActiv, 'Debit', 'Credit') + AHEADER[4,1]=iif(m.plActiv, 'Credit', 'Debit') + AHEADER[5,1]='Rulaj avans' + AHEADER[6,1]='Sold initial' + AHEADER[7,1]='Sold final' + AHEADER[8,1]='Pondere ' + iif(m.plActiv, 'Debit', 'Credit') + AHEADER[9,1]='Pondere ' + iif(m.plActiv, 'Credit', 'Debit') + AHEADER[10,1]='Pondere sold final' + + AHEADER[1,2]="nume" + AHEADER[2,2]="analitic" + AHEADER[3,2]=iif(m.plActiv, 'debit', 'credit') + AHEADER[4,2]=iif(m.plActiv, 'credit', 'debit') + AHEADER[5,2]="avans" + AHEADER[6,2]="sold_initial" + AHEADER[7,2]="sold_final" + AHEADER[8,2]=iif(m.plActiv, 'pondere_debit', 'pondere_credit') + AHEADER[9,2]=iif(m.plActiv, 'pondere_credit', 'pondere_debit') + AHEADER[10,2]="pondere_sold_final" + IF m.plActiv + Select nume,analitic,debit,credit,avans,sold_initial,sold_final,pondere_debit, pondere_credit,pondere_sold_final FROM (lcTabel) INTO CURSOR crs_Excel + ELSE + Select nume,analitic,credit,debit,avans,sold_initial,sold_final, pondere_credit,pondere_debit,pondere_sold_final FROM (lcTabel) INTO CURSOR crs_Excel + ENDIF + *!* Do LIST_EXCEL With (lcTabel), thisform.titlufRUMOS1.Caption, AHEADER + Do export_xls With 'crs_Excel' IN oproceduri_comune.prg + ENDPROC + + PROCEDURE List1.Command1.Click + Local lcsel,lcfiltru + lcsel=Thisform.gridb1.RecordSource + lcfiltru = Filter(lcsel) + Select (lcsel) + Set Filter To &lcfiltru + Thisform.AlwaysOnTop=.F. + Private pcTitlu + + pcTitlu = thisform.titlufrumos1.Caption + + goExport.export2frx(m.lcsel, "rap_pondere_clienti_furnizori") + *!* Report Form rap_pondere_clienti To Printer Prompt Preview + Thisform.AlwaysOnTop=.T. + Select (lcsel) + + ENDPROC + + PROCEDURE _grdfooter1.AfterRowColChange + LPARAMETERS nColIndex + THISFORM.grdfooterevent(this,"AfterRowColChange") + ENDPROC + + PROCEDURE _grdfooter1.Scrolled + LPARAMETERS nDirection + THISFORM.grdfooterevent(this,"Scrolled") + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_rentabilitate_clienti 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="cntPerioada" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lblPerioada" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lblDataReferinta" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtDataReferinta" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lblProcentAdaos" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtProcentAdaos" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="optOrdine" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_label2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_label4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_label5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_label3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> + + * + BorderStyle = 1 + DoCreate = .T. + Height = 412 + Name = "frm_rentabilitate_clienti" + Width = 565 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 564 + Lb_titlu_alb_b121.Caption = "Rentabilitate clienti" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 7 + BUT_TERMIN1.Left = 533 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 6 + BUT_TERMIN1.Top = 0 + Resizer1.Label1.Name = "Label1" + Resizer1.Name = "Resizer1" + Resizer1.TabIndex = 8 + * + + ADD OBJECT '_label1' AS _label WITH ; + Caption = "Legenda", ; + FontBold = .T., ; + Left = 12, ; + Name = "_label1", ; + TabIndex = 11, ; + Top = 257 + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_label2' AS _label WITH ; + Anchor = 10, ; + AutoSize = .F., ; + Caption = 'Coloanele "sold initial", "facturat", "incasari", "sold final" se genereaza pe baza balantei de clienti 411', ; + Height = 21, ; + Left = 11, ; + Name = "_label2", ; + TabIndex = 11, ; + Top = 277, ; + Width = 553, ; + WordWrap = .T. + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_label3' AS _label WITH ; + Anchor = 10, ; + AutoSize = .F., ; + Caption = 'Coloana "sold incert" se genereaza pe baza balantei de clienti 4118 (clienti incerti)', ; + Height = 24, ; + Left = 12, ; + Name = "_label3", ; + TabIndex = 11, ; + Top = 383, ; + Width = 528, ; + WordWrap = .T. + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_label4' AS _label WITH ; + Anchor = 10, ; + AutoSize = .F., ; + Caption = 'Coloanele "venituri", "cheltuieli" se genereaza din registrul jurnal din notele 411 = 7xx, respectiv 6xx = 3xx sau folosind procentul de adaos pentru facturile care nu descarca gestiunea', ; + Height = 35, ; + Left = 12, ; + Name = "_label4", ; + TabIndex = 11, ; + Top = 300, ; + Width = 528, ; + WordWrap = .T. + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_label5' AS _label WITH ; + Anchor = 10, ; + AutoSize = .F., ; + Caption = 'Coloanele "sold restant", "sold in termen" din facturile de vanzari 411 prin compararea datei scadente cu data de referinta', ; + Height = 36, ; + Left = 12, ; + Name = "_label5", ; + TabIndex = 11, ; + Top = 343, ; + Width = 528, ; + WordWrap = .T. + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT 'But_excel1' AS but_excel WITH ; + Anchor = 8, ; + caction = do_excel, ; + Left = 502, ; + Name = "But_excel1", ; + TabIndex = 5, ; + Top = 0, ; + Visible = .T. + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_listare1' AS but_listare WITH ; + caction = do_listare, ; + Left = 471, ; + Name = "But_listare1", ; + Top = 1, ; + Visible = .T. + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'cntPerioada' AS container_perioada WITH ; + Height = 33, ; + Left = 12, ; + Name = "cntPerioada", ; + TabIndex = 1, ; + Top = 54, ; + Width = 317, ; + Container_data1.cboAnul.Name = "cboAnul", ; + Container_data1.cboluna.Name = "cboluna", ; + Container_data1.Name = "Container_data1", ; + Container_data1.Top = 0, ; + Container_data2.cboAnul.Name = "cboAnul", ; + Container_data2.cboluna.Name = "cboluna", ; + Container_data2.Left = 168, ; + Container_data2.Name = "Container_data2", ; + Container_data2.Top = 0 + *< END OBJECT: ClassLib="caut.vcx" BaseClass="container" /> + + ADD OBJECT 'lblDataReferinta' AS _label WITH ; + Caption = "Data referinta scadenta facturi", ; + Left = 12, ; + Name = "lblDataReferinta", ; + TabIndex = 10, ; + Top = 96 + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT 'lblPerioada' AS _label WITH ; + Caption = "Perioada", ; + Left = 12, ; + Name = "lblPerioada", ; + TabIndex = 9, ; + Top = 36 + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT 'lblProcentAdaos' AS _label WITH ; + Caption = "Procent adaos (%) pentru facturile fara descarcare de gestiune", ; + Left = 11, ; + Name = "lblProcentAdaos", ; + TabIndex = 11, ; + Top = 147 + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT 'optOrdine' AS _optiongrup WITH ; + AutoSize = .T., ; + Height = 46, ; + Left = 11, ; + Name = "optOrdine", ; + TabIndex = 4, ; + Top = 197, ; + Width = 145, ; + Option1.AutoSize = .T., ; + Option1.Caption = "Ordonare client, luna", ; + Option1.Left = 5, ; + Option1.Name = "Option1", ; + Option1.Top = 5, ; + Option2.AutoSize = .T., ; + Option2.Caption = "Ordonare luna, client", ; + Option2.Left = 5, ; + Option2.Name = "Option2", ; + Option2.Top = 24 + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="optiongroup" /> + + ADD OBJECT 'txtDataReferinta' AS _textbox WITH ; + Alignment = 3, ; + Left = 12, ; + Name = "txtDataReferinta", ; + TabIndex = 2, ; + Top = 114, ; + Value = {} + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'txtProcentAdaos' AS _textbox WITH ; + Alignment = 3, ; + Format = "RK", ; + InputMask = "999 999 999", ; + Left = 12, ; + Name = "txtProcentAdaos", ; + TabIndex = 3, ; + Top = 165, ; + Value = 0 + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + PROCEDURE do_excel + LOCAL lnAn1, lnAn2, lnLuna1, lnLuna2, lnProcentAdaos, lnOrdine + + lnAn1 = this.cntPerioada.nAn1 + lnAn2 = this.cntPerioada.nAn2 + lnLuna1 = this.cntPerioada.nLuna1 + lnLuna2 = this.cntPerioada.nLuna2 + lnProcentAdaos = this.txtProcentAdaos.Value + lnOrdine = this.optOrdine.Value + + + DO rentabilitate_clienti WITH lnLuna1, lnAn1, lnLuna2, lnAn2, lnProcentAdaos, lnOrdine, 'XLS' IN contabilitate_rapoarte.prg + ENDPROC + + PROCEDURE do_listare + LOCAL lnAn1, lnAn2, lnLuna1, lnLuna2, lnProcentAdaos, lnOrdine + + lnAn1 = this.cntPerioada.nAn1 + lnAn2 = this.cntPerioada.nAn2 + lnLuna1 = this.cntPerioada.nLuna1 + lnLuna2 = this.cntPerioada.nLuna2 + lnProcentAdaos = this.txtProcentAdaos.Value + lnOrdine = this.optOrdine.Value + + + DO rentabilitate_clienti WITH lnLuna1, lnAn1, lnLuna2, lnAn2, lnProcentAdaos, lnOrdine, 'FRX' IN contabilitate_rapoarte.prg + ENDPROC + + PROCEDURE Init + DODEFAULT() + + this.cntPerioada.nAn1 = VAL(pcAn) + this.cntPerioada.nAn2 = VAL(pcAn) + this.cntPerioada.nLuna1 = VAL(pcNl) + this.cntPerioada.nLuna2 = VAL(pcNl) + + this.cntPerioada.Setup() + + this.txtDataReferinta.Value = DATE() + ENDPROC + +ENDDEFINE diff --git a/Clase/inchideri_sal.vc2 b/Clase/inchideri_sal.vc2 new file mode 100644 index 0000000..75c2544 --- /dev/null +++ b/Clase/inchideri_sal.vc2 @@ -0,0 +1,639 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="inchideri_sal.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS frm_alege_neridicati AS frm_termin_renunt OF "..\comun\clase\_frm_child.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="_grdrow1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column7.Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_nume" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="ck_prenume" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="ck_sectie" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="ck_formatie" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="ck_marca" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_txbase1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_txbase2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_txbase3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" /> + + * + *m: do_totaluri + *p: lsalvat + *p: nan + *p: nluna + *p: noptiune + *p: nsumainit + *p: nsumamodif + *p: ntotsuma + * + + * + DoCreate = .T. + Height = 445 + lsalvat = .F. + Name = "frm_alege_neridicati" + nan = 0 + nluna = 0 + noptiune = 0 + nsumainit = .F. + nsumamodif = .F. + ntotsuma = .F. + Width = 655 + _SHAPE1.Height = 29 + _SHAPE1.Left = 0 + _SHAPE1.Name = "_SHAPE1" + _SHAPE1.Top = 0 + _SHAPE1.Width = 684 + _shape2.Left = 581 + _shape2.Name = "_shape2" + _shape2.Top = 0 + Lb_titlu_alb_b121.Caption = "Salariati" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 7 + BUT_TERMIN1.Left = 623 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 5 + BUT_TERMIN1.Top = 1 + Gridsort1.Left = 216 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 4 + But_renunt1.Left = 594 + But_renunt1.Name = "But_renunt1" + But_renunt1.TabIndex = 8 + But_renunt1.Top = 1 + * + + ADD OBJECT '_grdrow1' AS _grdrow WITH ; + ColumnCount = 10, ; + DeleteMark = .F., ; + Height = 325, ; + Left = 12, ; + Name = "_grdrow1", ; + Panel = 1, ; + RecordSource = "crsState", ; + TabIndex = 4, ; + Top = 85, ; + Width = 624, ; + Column1.ControlSource = "marca", ; + Column1.Name = "Column1", ; + Column1.Width = 37, ; + Column2.ControlSource = "nume", ; + Column2.Name = "Column2", ; + Column3.ControlSource = "prenume", ; + Column3.Name = "Column3", ; + Column4.ControlSource = "formatia", ; + Column4.Name = "Column4", ; + Column5.ControlSource = "sectie", ; + Column5.Name = "Column5", ; + Column6.ControlSource = "lichidare", ; + Column6.Name = "Column6", ; + Column7.ControlSource = "BIFA", ; + Column7.CurrentControl = "Check1", ; + Column7.Name = "Column7", ; + Column7.Sparse = .F., ; + Column7.Width = 35, ; + Column8.ControlSource = "sumalicnerid", ; + Column8.Name = "Column8", ; + Column8.ReadOnly = .F., ; + Column8.Width = 94, ; + Column9.ControlSource = "an", ; + Column9.Name = "Column9", ; + Column9.Width = 34, ; + Column10.ControlSource = "luna", ; + Column10.Name = "Column10", ; + Column10.Width = 32 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_grdrow1.Column1.Header1' AS header WITH ; + Caption = "Marca", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.Column10.Header1' AS header WITH ; + Caption = "Luna", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.Column10.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.Column2.Header1' AS header WITH ; + Caption = "Nume", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.Column3.Header1' AS header WITH ; + Caption = "Prenume", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.Column4.Header1' AS header WITH ; + Caption = "Formatie", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.Column5.Header1' AS header WITH ; + Caption = "Sectie", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.Column6.Header1' AS header WITH ; + Caption = "Lichidare", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.Column6.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.Column7.Check1' AS checkbox WITH ; + Alignment = 0, ; + Caption = "", ; + Height = 17, ; + Left = 15, ; + Name = "Check1", ; + Top = 71, ; + Width = 60 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT '_grdrow1.Column7.Header1' AS header WITH ; + Caption = "Alege", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.Column7.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.Column8.Header1' AS header WITH ; + Caption = "Suma neridicata", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.Column8.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.Column9.Header1' AS header WITH ; + Caption = "An", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.Column9.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_txbase1' AS _txbase WITH ; + ControlSource = "thisform.nluna", ; + Format = "k", ; + Height = 23, ; + Left = 367, ; + Name = "_txbase1", ; + TabIndex = 1, ; + Top = 40, ; + Width = 35 + *< END OBJECT: ClassLib="..\comun\clase\_tx_base.vcx" BaseClass="textbox" /> + + ADD OBJECT '_txbase2' AS _txbase WITH ; + ControlSource = "thisform.nan", ; + Format = "k", ; + Height = 23, ; + Left = 413, ; + Name = "_txbase2", ; + TabIndex = 2, ; + Top = 40, ; + Width = 48 + *< END OBJECT: ClassLib="..\comun\clase\_tx_base.vcx" BaseClass="textbox" /> + + ADD OBJECT '_txbase3' AS _txbase WITH ; + Alignment = 1, ; + ControlSource = "thisform.ntotsuma", ; + Height = 23, ; + InputMask = (get_mask(12,gnPA)), ; + Left = 509, ; + Name = "_txbase3", ; + ReadOnly = .T., ; + TabIndex = 6, ; + Top = 417, ; + Width = 94 + *< END OBJECT: ClassLib="..\comun\clase\_tx_base.vcx" BaseClass="textbox" /> + + ADD OBJECT 'ck_formatie' AS ck_filtru_text WITH ; + Alignment = 0, ; + camp_nume = formatia, ; + Caption = "Formatie", ; + Height = 18, ; + Left = 95, ; + Name = "ck_formatie", ; + TabIndex = 12, ; + Top = 60, ; + Width = 54 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'ck_marca' AS ck_filtru_numar WITH ; + Alignment = 0, ; + camp_nume = marca, ; + Caption = "Marca", ; + Left = 167, ; + Name = "ck_marca", ; + TabIndex = 13, ; + Top = 36 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_nume' AS ck_filtru_text WITH ; + Alignment = 0, ; + camp_nume = nume, ; + Caption = "Nume", ; + Height = 18, ; + Left = 23, ; + Name = "Ck_nume", ; + TabIndex = 9, ; + Top = 36, ; + Width = 44 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'ck_prenume' AS ck_filtru_text WITH ; + Alignment = 0, ; + camp_nume = prenume, ; + Caption = "Prenume", ; + Height = 18, ; + Left = 23, ; + Name = "ck_prenume", ; + TabIndex = 10, ; + Top = 60, ; + Width = 56 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'ck_sectie' AS ck_filtru_text WITH ; + Alignment = 0, ; + camp_nume = sectie, ; + Caption = "Sectie", ; + Height = 18, ; + Left = 95, ; + Name = "ck_sectie", ; + TabIndex = 11, ; + Top = 36, ; + Width = 44 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ; + Left = 546, ; + Name = "Cmd_cauta1", ; + TabIndex = 3, ; + Top = 52 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Label1' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "/", ; + Height = 17, ; + Left = 406, ; + Name = "Label1", ; + TabIndex = 14, ; + Top = 43, ; + Width = 5 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label2' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Luna / An:", ; + Height = 17, ; + Left = 309, ; + Name = "Label2", ; + TabIndex = 15, ; + Top = 43, ; + Width = 56 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label3' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Total:", ; + Height = 17, ; + Left = 467, ; + Name = "Label3", ; + TabIndex = 16, ; + Top = 420, ; + Width = 32 + *< END OBJECT: BaseClass="label" /> + + PROCEDURE actualizeaza_grid1 + Lparameters tcFiltru + Local lcFiltru + If Empty(tcFiltru) + lcFiltru = postat.ca_baza1.cfiltru + Else + lcFiltru = tcFiltru + Endif + + Thisform.MousePointer= 11 + Thisform.LockScreen=.T. + save_grid_tag(Thisform._grdrow1) + postat.ca_baza1.cfiltru=lcFiltru + postat.ca_baza1.afisare() + restore_grid_tag(Thisform._grdrow1) + Thisform.LockScreen=.F. + Thisform.MousePointer= 0 + thisform.do_totaluri + Select crsState + *!* CALCULATE sum(totctva),sum(neimpozab),sum(totftvam),sum(tvam),sum(totftvai),sum(tvai) TO ; + *!* pntotctva,pnneimpozab,pntotftvam,pntvam,pntotftvai,pntvai + Go Top + Thisform.Refresh + + ENDPROC + + PROCEDURE Destroy + IF TYPE('pnSumaBifata') = 'N' + pnSumaBifata = thisform.ntotsuma + ENDIF + DODEFAULT() + ENDPROC + + PROCEDURE do_cauta + Local lcFiltru + Store '' To lcFiltru + DO CASE + CASE thisform.noptiune = 0 + lcFiltru = [ and lichidare > 0 and BIFALICNERID = 0 and an = ]+Alltrim(Str(thisform.nan))+[ and luna = ]+Alltrim(Str(thisform.nluna)) + CASE thisform.noptiune = 1 + lcFiltru = [ and id_fact_lic = ] +ALLTRIM(STR(oireg.id_fact)) + CASE thisform.noptiune = 3 + lcFiltru = [ and avans > 0 and BIFAAVNERID = 0 and an = ]+Alltrim(Str(thisform.nan))+[ and luna = ]+Alltrim(Str(thisform.nluna)) + CASE thisform.noptiune = 4 + lcFiltru = [ and id_fact_av = ] +ALLTRIM(STR(oireg.id_fact)) + ENDCASE + If Thisform.ck_nume.Value=1 + lcFiltru = lcFiltru + Thisform.ck_nume.filtru + Endif + + If Thisform.ck_sectie.Value=1 + lcFiltru = lcFiltru + Thisform.ck_sectie.filtru + ENDIF + + If Thisform.ck_formatie.Value=1 + lcFiltru = lcFiltru + Thisform.ck_formatie.filtru + ENDIF + + If Thisform.ck_marca.Value=1 + lcFiltru = lcFiltru + Thisform.ck_marca.filtru + ENDIF + + If thisform.ck_prenume.Value=1 + lcFiltru = lcFiltru + thisform.ck_prenume.filtru + ENDIF + + + + IF !EMPTY(lcFiltru) + lcFiltru = SUBSTR(lcFiltru,5) + ELSE + lcFiltru = '1=1' + ENDIF + + + + thisform.actualizeaza_grid1(lcFiltru) + + *!* SELECT v_avans + *!* SET FILTER TO &lcFiltru + *!* thisform.do_calcul + + GO TOP + thisform.Refresh + ENDPROC + + PROCEDURE do_totaluri + + LOCAL lnNrReg + Select crsState + IF RECCOUNT() < 1 + thisform.ntotsuma = 0 + RETURN + ENDIF + lnNrReg = RECNO() + IF INLIST(thisform.noptiune, 2, 5) + SUM sumalicnerid TO thisform.ntotsuma FOR bifa = 1 + ELSE + SUM sumalicnerid TO thisform.ntotsuma + ENDIF + SELECT crsState + GOTO lnNrReg + thisform._txbase3.Refresh() + ENDPROC + + PROCEDURE Init + DODEFAULT() + thisform.do_totaluri + ENDPROC + + PROCEDURE Show + LPARAMETERS nStyle + IF gnluna = 1 + thisform.nan = gnAn - 1 + thisform.nluna = 12 + ELSE + thisform.nan = gnAn + thisform.nluna = gnLuna - 1 + ENDIF + DO CASE + CASE thisform.noptiune = 0 && trecerea lichidarii in drepturi neridicare + + thisform._grdrow1.column8.ReadOnly= .F.&&suma neridicata + thisform._grdrow1.column7.Visible = .t. &&bifa + thisform.label1.Visible = .t. + thisform.label2.Visible = .t. + thisform._txbase1.Visible = .t.&&luna + thisform._txbase2.Visible = .t. &&an + thisform.but_renunt1.Visible = .t. + + CASE thisform.noptiune = 1&& pentru lichidare neridicata + + thisform._grdrow1.column8.ReadOnly= .T.&&suma neridicata + thisform._grdrow1.column7.Visible = .t.&&bifa + thisform._grdrow1.column7.heADER1.Caption = 'Achitat' &&bifa + thisform._grdrow1.column7.ReadOnly = .t.&&bifa + thisform.label1.Visible = .f. + thisform.label2.Visible = .f. + thisform._txbase1.Visible = .f.&&luna + thisform._txbase2.Visible = .f.&&an + thisform.but_renunt1.Visible = .f. + + CASE thisform.noptiune = 2&& pentru achitarea lichidarii neridicate + + thisform._grdrow1.column8.ReadOnly= .T.&&suma neridicata + thisform._grdrow1.column7.Visible = .t.&&bifa + thisform._grdrow1.column6.Visible = .f.&&lichidare + thisform.label1.Visible = .f. + thisform.label2.Visible = .f. + thisform._txbase1.Visible = .f.&&luna + thisform._txbase2.Visible = .f.&&an + thisform.but_renunt1.Visible = .f. + thisform.ntotsuma=0 + + CASE thisform.noptiune = 3 && trecerea avansului in drepturi neridicare + + thisform._grdrow1.column8.ReadOnly= .F.&&suma neridicata + thisform._grdrow1.column7.Visible = .t. &&bifa + thisform._grdrow1.column6.hEADER1.Caption=[Avans] + thisform.label1.Visible = .t. + thisform.label2.Visible = .t. + thisform._txbase1.Visible = .t.&&luna + thisform._txbase2.Visible = .t. &&an + thisform.but_renunt1.Visible = .t. + + CASE thisform.noptiune = 4&& pentru avans neridicat + + thisform._grdrow1.column8.ReadOnly= .T.&&suma neridicata + thisform._grdrow1.column7.Visible = .t.&&bifa + thisform._grdrow1.column7.heADER1.Caption = 'Achitat' &&bifa + thisform._grdrow1.column7.ReadOnly = .t.&&bifa + thisform._grdrow1.column6.hEADER1.Caption = [Avans] + thisform.label1.Visible = .f. + thisform.label2.Visible = .f. + thisform._txbase1.Visible = .f.&&luna + thisform._txbase2.Visible = .f.&&an + thisform.but_renunt1.Visible = .f. + + CASE thisform.noptiune = 5&& pentru achitarea avansului neridicat + + *!* thisform._grdrow1.column8.ReadOnly= .T.&&suma neridicata + thisform._grdrow1.column8.hEADER1.Caption=[Avans] + thisform._grdrow1.column7.Visible = .t.&&bifa + thisform._grdrow1.column6.Visible = .f.&&lichidare + thisform.label1.Visible = .f. + thisform.label2.Visible = .f. + thisform._txbase1.Visible = .f.&&luna + thisform._txbase2.Visible = .f.&&an + thisform.but_renunt1.Visible = .f. + thisform.ntotsuma=0 + + ENDCASE + + + + ENDPROC + + PROCEDURE _grdrow1.Column7.Check1.Click + IF this.ReadOnly = .f. + IF !INLIST(thisform.noptiune,2,5) + + IF this.Value = 1 + SELECT crsState + REPLACE sumalicnerid WITH lichidare + ELSE + SELECT crsState + REPLACE sumalicnerid WITH 0 + ENDIF + ENDIF + ENDIF + thisform.do_totaluri + thisform._grdrow1.column8.Refresh() + + ENDPROC + + PROCEDURE _grdrow1.Column7.Header1.DblClick + REPLACE ALL bifa WITH 1 + ENDPROC + + PROCEDURE _grdrow1.Column8.Text1.InteractiveChange + + + ENDPROC + + PROCEDURE _grdrow1.Column8.Text1.LostFocus + thisform.do_totaluri + ENDPROC + +ENDDEFINE diff --git a/Clase/oOptiuni.vc2 b/Clase/oOptiuni.vc2 new file mode 100644 index 0000000..cb7de65 --- /dev/null +++ b/Clase/oOptiuni.vc2 @@ -0,0 +1,2162 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="ooptiuni.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS cus_odata_cote AS _cusodatabase OF "..\libs\_cus_odata_base.vcx" + *< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" /> + + #INCLUDE "..\..\program files\microsoft visual foxpro 8\foxpro.h" + * + *p: cschema + * + + * + cschema = + Name = "cus_odata_cote" + * + + PROCEDURE make_sql + Lparameters toRec,tnId + + lcActiune = Alltrim(This.cActiune) + lcs = this.cschema + If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O" + Return .F. + Endif + + If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N" + Return .F. + Endif + + IF INLIST(lcActiune, "UPDATE",'DELETE') + lcId = Alltrim(Str(tnId)) + + ENDIF + + + If Inlist(lcActiune, "UPDATE",'INSERT') + lcnume = Nvl(STRTRAN(Alltrim(Upper(toRec.descriere)),['],['']),"") + lcLuna = ALLTRIM(STR(toRec.luna)) + lcAn = ALLTRIM(STR(toRec.an)) + lcProcent = ALLTRIM(STR(toRec.procent)) + lcproc = ALLTRIM(STR(toRec.proc_tva,5,2)) + + Endif + + + Do Case + Case lcActiune = "INSERT" + + lcSql = [INSERT INTO ] + lcS + [.cote_tva (descriere,procent,proc_tva,an,luna) VALUES ('] +; + lcnume + [',] + lcProcent + [,] + lcproc + [,] + lcan + [,] + lcluna + [)] + + Case lcActiune = "UPDATE" + + lcSql = [UPDATE ] + lcS + [.cote_tva SET descriere = '] + lcnume + ; + [', procent = ] + lcprocent + [,proc_tva = ] + lcproc + [, an = ] + lcan + [, luna = ] + lcluna +; + [ where id_proc_tva = ] + lcId + + + Case lcActiune = "DELETE" + + lcSql = [delete from ] + lcS + [.cote_tva where id_proc_tva=] + lcId + + Endcase + + This.csql = lcSql + + ENDPROC + +ENDDEFINE + +DEFINE CLASS cus_odata_exceptii AS _cusodatabase OF "..\libs\_cus_odata_base.vcx" + *< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" /> + + #INCLUDE "..\..\program files\microsoft visual foxpro 8\foxpro.h" + * + *p: cschema + * + + * + cschema = + Name = "cus_odata_exceptii" + * + + PROCEDURE make_sql + Lparameters toRec,tnId + + lcActiune = Alltrim(This.cActiune) + lcs = this.cschema + If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O" + Return .F. + Endif + + If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N" + Return .F. + Endif + + IF INLIST(lcActiune, "UPDATE",'DELETE') + lcId = Alltrim(Str(tnId)) + + ENDIF + + + If Inlist(lcActiune, "UPDATE",'INSERT') + lcCont = Nvl(STRTRAN(Alltrim(Upper(toRec.cont)),['],['']),"") + lcContC = Nvl(STRTRAN(Alltrim(Upper(toRec.cont_c)),['],['']),"") + lcDebit = ALLTRIM(STR(toRec.debit)) + lcInvers = '1' + + Endif + + + Do Case + Case lcActiune = "INSERT" + + lcSql = [INSERT INTO ] + lcS + [.exceptii_ireg (cont,cont_c,debit,invers) VALUES ('] +; + lcCont + [','] + lcContC + [',] + lcDebit + [,] + lcInvers + [)] + + Case lcActiune = "UPDATE" + + lcSql = [UPDATE ] + lcS + [.exceptii_ireg SET cont = '] + lccont + ; + [', cont_c = '] + lcContC + [',debit = ] + lcDebit + [, invers = ] + lcInvers +; + [ where id_exceptii = ] + lcId + + + Case lcActiune = "DELETE" + + lcSql = [delete from ] + lcS + [.exceptii_ireg where id_exceptii = ] + lcId + Endcase + + This.csql = lcSql + + ENDPROC + +ENDDEFINE + +DEFINE CLASS cus_odata_optiuni AS _cusodatabase OF "..\libs\_cus_odata_base.vcx" + *< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" /> + + #INCLUDE "..\..\program files\microsoft visual foxpro 8\foxpro.h" + * + *p: cschema + * + + * + cschema = + Name = "cus_odata_optiuni" + * + + PROCEDURE make_sql + Lparameters toRec,tnId + + lcActiune = Alltrim(This.cActiune) + lcs = this.cschema + If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O" + Return .F. + Endif + + If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N" + Return .F. + Endif + + IF INLIST(lcActiune, "UPDATE",'DELETE') + lcId = Alltrim(Str(tnId)) + + ENDIF + + If Inlist(lcActiune, "UPDATE",'DELETE') + lcId = Alltrim(Str(tnId)) + Endif + + If Inlist(lcActiune, "UPDATE",'INSERT') + lcnume = Nvl(STRTRAN(Alltrim(Upper(toRec.varname)),['],['']),"") + lctip = Nvl(STRTRAN(Alltrim(Upper(toRec.vartype)),['],['']),"") + lcval = Nvl(STRTRAN(Alltrim(Upper(toRec.varvalue)),['],['']),"") + lcdesc = Nvl(STRTRAN(Alltrim(Upper(toRec.vardesc)),['],['']),"") + + + Endif + + + Do Case + Case lcActiune = "INSERT" + + lcSql = [INSERT INTO ] + lcS + [.optiuni (varname,vartype,varvalue,vardesc) VALUES ('] +; + lcnume + [','] + lctip + [','] + lcval + [','] + lcdesc + [')] + + Case lcActiune = "UPDATE" + + lcSql = [UPDATE ] + lcS + [.optiuni SET varname = '] + lcnume + ; + [', vartype = '] + lctip + [',varvalue = '] + lcval + [', vardesc = '] + lcdesc + ; + [' where id_optiuni = ] + lcId + + Case lcActiune = "DELETE" + + lcSql = [delete from ] + lcS + [.optiuni where id_optiuni=] + lcId + + Endcase + + This.csql = lcSql + + ENDPROC + +ENDDEFINE + +DEFINE CLASS cus_odata_plafon_casa AS _cusodatabase OF "..\comun\clase\_cus_odata_base.vcx" + *< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + *p: cschema + * + + * + cschema = + Name = "cus_odata_plafon_casa" + * + + PROCEDURE make_sql + Lparameters toRec,tnId + + LOCAL lcActiune, lcs + PRIVATE pnId,pnPlCasa,pnPlPlati,pnPlFurn + + lcActiune = Alltrim(This.cActiune) + *lcs = this.cschema + If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O" + Return .F. + Endif + + If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N" + Return .F. + Endif + + IF INLIST(lcActiune, "UPDATE",'DELETE') + pcId = ALLTRIM(STR(tnId)) + ENDIF + + + If Inlist(lcActiune, "UPDATE",'INSERT') + pcPlCasa = ALLTRIM(STR(toRec.plafon_casa,16,gnPa)) + pcPlPlati = ALLTRIM(STR(toRec.plafon_plati,16,gnPa)) + pcPlFurn = ALLTRIM(STR(toRec.plafon_furnizori,16,gnPa)) + Endif + + + Do Case + Case lcActiune = "INSERT" + + *!* lcSql = [INSERT INTO ] + lcS + [.cote_tva (descriere,procent,proc_tva,an,luna) VALUES ('] +; + *!* lcnume + [',] + lcProcent + [,] + lcproc + [,] + lcan + [,] + lcluna + [)] + + Case lcActiune = "UPDATE" + + lcSql = [UPDATE calendar SET ] + ; + [ plafon_casa = ] + pcPlCasa + [, plafon_plati = ] + pcPlPlati + [, plafon_furnizori = ] + pcPlFurn + ; + [ where id_calendar = ] + pcId + + + Case lcActiune = "DELETE" + + *!* lcSql = [delete from ] + lcS + [.cote_tva where id_proc_tva=] + lcId + + Endcase + + This.csql = lcSql + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_cote_nou 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_renunt1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cus_odata_cote1" UniqueID="" Timestamp="" /> + + * + *p: cschema + *p: nid + *p: orec + * + + * + BorderStyle = 1 + DoCreate = .T. + Height = 165 + Name = "frm_cote_nou" + Width = 314 + _shape1.Name = "_shape1" + _shape2.Height = 29 + _shape2.Left = 252 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 76 + Lb_titlu_alb_b121.Caption = "Cote tva" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 7 + BUT_TERMIN1.Left = 283 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 5 + BUT_TERMIN1.Top = 1 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Left = 253, ; + Name = "But_renunt1", ; + TabIndex = 6, ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ; + Left = 15, ; + Name = "Clb_tx_simplu1", ; + TabIndex = 1, ; + Top = 39, ; + Text_simplu1.ControlSource = "porec.descriere", ; + Text_simplu1.Format = "!K", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Descriere", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu2' AS clb_tx_simplu WITH ; + Left = 15, ; + Name = "Clb_tx_simplu2", ; + TabIndex = 2, ; + Top = 67, ; + Text_simplu1.ControlSource = "porec.procent", ; + Text_simplu1.Format = "!K", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Procent", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu3' AS clb_tx_simplu WITH ; + Left = 15, ; + Name = "Clb_tx_simplu3", ; + TabIndex = 3, ; + Top = 95, ; + Text_simplu1.ControlSource = "porec.luna", ; + Text_simplu1.Format = "!K", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Luna", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu6' AS clb_tx_simplu WITH ; + Left = 15, ; + Name = "Clb_tx_simplu6", ; + TabIndex = 4, ; + Top = 123, ; + Text_simplu1.ControlSource = "porec.an", ; + Text_simplu1.Format = "!K", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "An", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cus_odata_cote1' AS cus_odata_cote WITH ; + Left = 120, ; + Name = "Cus_odata_cote1", ; + Top = 26 + *< END OBJECT: ClassLib="ooptiuni.vcx" BaseClass="custom" /> + + PROCEDURE inainte_de_do_termin + LOCAL PLRETURN + + lccontrol = UPPER(this.ActiveControl.BaseClass ) + IF INLIST(lccontrol,"TEXTBOX","EDITBOX","COMBOBOX") + lcval=This.Activecontrol.controlsource + &lcval=thisform.ActiveControl.value + ENDIF + + + Do Case + Case Empty(porec.descriere) + aMessagebox('Nu ati completat descrierea cotei de tva!',0+48,"Atentie") + This.clb_tx_simplu1.SetFocus() + plreturn=.F. + + *!* Case Empty(porec.procent) + *!* Messagebox('Nu ati completat procentul de tva!',0+48,"Atentie") + *!* This.clb_tx_simplu2.SetFocus() + *!* plreturn=.F. + + Case Empty(porec.luna) + aMessagebox('Nu ati completat luna!',0+48,"Atentie") + This.clb_tx_simplu3.SetFocus() + plreturn=.F. + + Case Empty(porec.an) + aMessagebox('Nu ati completat anul!',0+48,"Atentie") + This.clb_tx_simplu6.SetFocus() + plreturn=.F. + + OTHERWISE + this.cus_odata_cote1.cschema=this.cschema + PLRETURN=This.cus_odata_cote1.salvare(This.OREC,This.NID) + ENDCASE + + Return PLRETURN + + ENDPROC + + PROCEDURE Init + LPARAMETERS toRec, tnId, tcActiune + + DODEFAULT() + + this.orec= toRec + this.nid = tnId + this.cus_odata_cote1.cactiune = tcActiune + ENDPROC + + PROCEDURE Clb_tx_simplu2.Text_simplu1.Valid + + porec.proc_tva = (100+this.value)/100 + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_cote_tva 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="_shape4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_shape3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_cot" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_cot.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_cot.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_cot.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_cot.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_cot.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_cot.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_cot.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_cot.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lb_nom_cot" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="chkTVAIncasare" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="chkPlatitorTVA" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cboPerioadaTVA" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lblPerioadaTVA" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_label2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_label3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="chkImpozitProfit" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_label4" UniqueID="" Timestamp="" /> + + * + *p: cschema + * + + * + BorderStyle = 1 + cschema = CONTAFIN_ORACLE + DoCreate = .T. + Height = 381 + Name = "frm_cote_tva" + Width = 524 + _shape1.Anchor = 10 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 522 + _shape1.ZOrderSet = 2 + _shape2.Height = 29 + _shape2.Left = 456 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 66 + _shape2.ZOrderSet = 3 + Lb_titlu_alb_b121.Caption = "Configurari TVA & Impozit" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.ZOrderSet = 4 + BUT_TERMIN1.Anchor = 8 + BUT_TERMIN1.Left = 494 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 1 + BUT_TERMIN1.ZOrderSet = 5 + GRIDSORT1.Left = 480 + GRIDSORT1.Name = "GRIDSORT1" + GRIDSORT1.Top = 168 + * + + ADD OBJECT '_label1' AS _label WITH ; + Caption = "* global", ; + FontItalic = .T., ; + ForeColor = 0,128,255, ; + Left = 265, ; + Name = "_label1", ; + Top = 109, ; + ZOrderSet = 17 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_label2' AS _label WITH ; + Caption = "* global", ; + FontItalic = .T., ; + ForeColor = 0,128,255, ; + Left = 125, ; + Name = "_label2", ; + Top = 84, ; + ZOrderSet = 18 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_label3' AS _label WITH ; + Caption = "* luna curenta", ; + FontItalic = .T., ; + ForeColor = 200,0,100, ; + Left = 125, ; + Name = "_label3", ; + Top = 133, ; + ZOrderSet = 19 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_label4' AS _label WITH ; + Caption = "* luna curenta", ; + FontItalic = .T., ; + ForeColor = 200,0,100, ; + Left = 125, ; + Name = "_label4", ; + Top = 57, ; + ZOrderSet = 22 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_shape3' AS _shape WITH ; + Anchor = 10, ; + BackStyle = 0, ; + Height = 27, ; + Left = 10, ; + Name = "_shape3", ; + Top = 53, ; + Width = 375, ; + ZOrderSet = 1 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" /> + + ADD OBJECT '_shape4' AS _shape WITH ; + Anchor = 10, ; + BackStyle = 0, ; + Height = 81, ; + Left = 10, ; + Name = "_shape4", ; + Top = 79, ; + Width = 375, ; + ZOrderSet = 0 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" /> + + ADD OBJECT 'But_modifica1' AS but_modifica WITH ; + Anchor = 8, ; + Left = 455, ; + Name = "But_modifica1", ; + Top = 170, ; + Visible = .T., ; + ZOrderSet = 12 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_nou1' AS but_nou WITH ; + Anchor = 8, ; + Left = 424, ; + Name = "But_nou1", ; + Top = 170, ; + ZOrderSet = 10 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Anchor = 8, ; + Left = 464, ; + Name = "But_renunt1", ; + Top = 1, ; + ZOrderSet = 20 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge1' AS but_sterge WITH ; + Anchor = 8, ; + Left = 484, ; + Name = "But_sterge1", ; + Top = 170, ; + Visible = .T., ; + ZOrderSet = 11 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'cboPerioadaTVA' AS _combobox WITH ; + Height = 24, ; + Left = 125, ; + Name = "cboPerioadaTVA", ; + RowSource = "LUNAR,TRIMESTRIAL,SEMESTRIAL,ANUAL", ; + RowSourceType = 1, ; + Top = 106, ; + Width = 132, ; + ZOrderSet = 15 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" /> + + ADD OBJECT 'chkImpozitProfit' AS _checkbox WITH ; + Alignment = 0, ; + Caption = "Impozit Profit", ; + FontBold = .T., ; + ForeColor = 0,64,128, ; + Left = 20, ; + Name = "chkImpozitProfit", ; + Top = 56, ; + Value = .F., ; + ZOrderSet = 21 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'chkPlatitorTVA' AS _checkbox WITH ; + Alignment = 0, ; + Caption = "Platitor TVA", ; + FontBold = .T., ; + ForeColor = 0,128,0, ; + Left = 20, ; + Name = "chkPlatitorTVA", ; + Top = 84, ; + Value = .F., ; + ZOrderSet = 14 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'chkTVAIncasare' AS _checkbox WITH ; + Alignment = 0, ; + Caption = "TVA Incasare", ; + FontBold = .T., ; + ForeColor = 0,128,0, ; + Left = 20, ; + Name = "chkTVAIncasare", ; + Top = 132, ; + Value = .F., ; + ZOrderSet = 13 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ; + Left = 304, ; + Name = "Cmd_cauta1", ; + TabIndex = 2, ; + Top = 171, ; + ZOrderSet = 8 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'grid_cot' AS _grid WITH ; + Anchor = 15, ; + ColumnCount = 4, ; + DeleteMark = .F., ; + Height = 168, ; + Left = 10, ; + Name = "grid_cot", ; + Panel = 1, ; + RecordSource = "v_cote_tva", ; + RowHeight = 23, ; + Top = 203, ; + Width = 506, ; + ZOrderSet = 7, ; + Column1.ControlSource = "descriere", ; + Column1.Name = "Column1", ; + Column1.Width = 294, ; + Column2.ControlSource = "procent", ; + Column2.Name = "Column2", ; + Column2.Width = 66, ; + Column3.ControlSource = "luna", ; + Column3.Name = "Column3", ; + Column3.Width = 43, ; + Column4.ControlSource = "an", ; + Column4.Name = "Column4", ; + Column4.Width = 64 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="grid" /> + + ADD OBJECT 'grid_cot.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Descriere", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_cot.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_cot.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Procent %", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_cot.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_cot.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Luna", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_cot.Column3.Text1' AS textbox WITH ; + Height = 23, ; + Left = 31, ; + Name = "Text1", ; + Top = 35, ; + Width = 100 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_cot.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "An", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_cot.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'lb_nom_cot' AS clb_tx_simplu WITH ; + Left = 13, ; + Name = "lb_nom_cot", ; + TabIndex = 1, ; + Top = 171, ; + ZOrderSet = 9, ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Cota TVA", ; + Lb_simplu1.FontBold = .T., ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'lblPerioadaTVA' AS _label WITH ; + Caption = "Perioada TVA", ; + FontBold = .T., ; + ForeColor = 0,128,0, ; + Left = 20, ; + Name = "lblPerioadaTVA", ; + Top = 109, ; + ZOrderSet = 16 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + PROCEDURE actualizeaza_grid1 + LPARAMETERS pcFiltru + LOCAL lcFiltru + lcFiltru=pcFiltru + IF EMPTY(lcFiltru) + lcFiltru=pcot.ca_baza1.cfiltru + ENDIF + save_grid_tag(thisform.grid_cot) + pcot.ca_baza1.cfiltru=lcFiltru + pcot.ca_baza1.afisare() + restore_grid_tag(thisform.grid_cot) + IF RECCOUNT('v_cote_tva')>0 + thisform.grid_cot.SetFocus() + ELSE + thisform.lb_nom_cot.SetFocus() + ENDIF + + ENDPROC + + PROCEDURE do_adauga + SELECT v_cote_tva + SCATTER NAME loRec BLANK + PRIVATE lcot,poRec + lcot='' + poRec = loRec + DO Adauga_Modifica_Inregistrare WITH "cote",loRec,,"INSERT",.t.,'lcot' + lcot.cschema = this.cschema + lcot.show(1) + RELEASE lcot,poRec + this.actualizeaza_grid1() + ENDPROC + + PROCEDURE do_cauta + Local lcFiltru + lcFiltru=[] + lcNume = STRTRAN(Upper(Alltrim(This.lb_nom_cot.text_simplu1.value)),['],['']) + If !Empty(lcNume) + lcFiltru=[descriere like ']+lcNume+[%' and an=]+pcAn + ELSE + lcFiltru = [an=]+pcAn + Endif + This.MousePointer= 11 + This.LockScreen=.T. + Thisform.actualizeaza_grid1(lcFiltru) + IF RECCOUNT()=0 + aMESSAGEBOX("Cautarea nu a intors rezultate!",0+64,"Info cautare") + ENDIF + This.LockScreen=.F. + This.MousePointer= 0 + ENDPROC + + PROCEDURE do_modifica + Select v_cote_tva + Scatter Name loRec + PRIVATE lcot,poRec + lcot = '' + poRec = loRec + Do Adauga_Modifica_Inregistrare With "cote",loRec,loRec.Id_proc_tva,"UPDATE",.t.,'lcot' + lcot.cschema = this.cschema + lcot.show(1) + RELEASE lcot,poRec + thisform.actualizeaza_grid1() + ENDPROC + + PROCEDURE do_sterge + SELECT v_cote_tva + SCATTER NAME lorec MEMO + PRIVATE lcot + lcot = '' + Do STERGE_INREGISTRARE With "cote",loRec.id_proc_tva,.t.,'lcot' + lcot.cschema = this.cschema + lcot.salvare(,loRec.id_proc_tva) + RELEASE lcot + + this.actualizeaza_grid1() + + + ENDPROC + + PROCEDURE inainte_de_do_termin + * Salvare optiuni + ****************** + Local lcPerioadaTVA, lcSql, lcTVAIncasare, llSucces, llTVAIncasare, lnNeplatitoareTVA, lnSucces, lcImpozitProfit, llImpozitProfit + *:Global gcPERIOADA_TVA, gnNEPLATITOARE_TVA + + lnNeplatitoareTVA = IIF(This.chkPlatitorTVA.Value, 0, 1) + llTVAIncasare = This.chkTVAIncasare.Value + lcPerioadaTVA = This.cboPerioadaTVA.Value + + llImpozitProfit = This.chkImpozitProfit.Value + + lnSucces = scrie_optiune('NEPLATITOARE_TVA', m.lnNeplatitoareTVA, '0 - DEFAULT(PLATITOARE); 1 - NEPLATITOARE') + IF m.lnSucces = 1 + gnNEPLATITOARE_TVA = m.lnNeplatitoareTVA + ENDIF + + ****************** + lnSucces = scrie_optiune('PERIOADA_TVA', m.lcPerioadaTVA, 'Perioada TVA: LUNAR, TRIMESTRIAL') + IF m.lnSucces = 1 + gcPERIOADA_TVA = m.lcPerioadaTVA + ENDIF + + ****************** + llTVAIncasare = This.chkTVAIncasare.Value + lcTVAIncasare = IIF(m.llTVAIncasare, '1', '0') + + llImpozitProfit = This.chkImpozitProfit.Value + lcImpozitProfit = IIF(m.llImpozitProfit, '1', '0') + + + lcSql = 'UPDATE calendar SET tva_incasare = ' + m.lcTVAIncasare + ', impozit_profit = ' + m.lcImpozitProfit + ' where an = ?gnAn and luna = ?gnLuna' + llSucces = goExecutor.oExecuta(m.lcSql) + IF m.llSucces + goCalendar.tva_incasare = IIF(m.llTVAIncasare, 1, 0) + goCalendar.impozit_profit = IIF(m.llImpozitProfit, 1, 0) + ENDIF + + RETURN .T. + ENDPROC + + PROCEDURE Init + DODEFAULT() + + Local lcNeplatitoareTVA, lcPerioadaTVA, llPlatitoareTVA, llTVAIncasare, llImpozitProfit + + lcPerioadaTVA = Upper(Nvl(citeste_optiune('PERIOADA_TVA'), '')) + lcPerioadaTVA = NVL(lcPerioadaTVA, 'LUNAR') + IF EMPTY(m.lcPerioadaTVA) + lcPerioadaTVA = 'LUNAR' + ENDIF + + lcNeplatitoareTVA = Upper(Nvl(citeste_optiune('NEPLATITOARE_TVA'), '')) + lcNeplatitoareTVA = NVL(m.lcNeplatitoareTVA, '0') + llPlatitoareTVA = (m.lcNeplatitoareTVA = '0') + + llTVAIncasare = (goCalendar.tva_incasare = 1) + llImpozitProfit = (goCalendar.impozit_profit = 1) + + This.chkPlatitorTVA.Value = m.llPlatitoareTVA + This.chkTVAIncasare.Value = m.llTVAIncasare + This.chkImpozitProfit.Value = m.llImpozitProfit + This.cboPerioadaTVA.Value = m.lcPerioadaTVA + + + + ENDPROC + + PROCEDURE Unload + IF USED('v_cote_tva') + USE IN v_cote_tva + ENDIF + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_exceptii_ireg 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="grid_ex" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_ex.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_ex.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_ex.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_ex.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_ex.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_ex.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_ex.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_ex.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_ex.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_ex.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lb_nom_ex" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" /> + + * + *p: cschema + * + + * + BorderStyle = 1 + cschema = CONTAFIN_ORACLE + DoCreate = .T. + Height = 351 + Name = "frm_exceptii_ireg" + Width = 463 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 466 + _shape2.Height = 29 + _shape2.Left = 346 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 120 + Lb_titlu_alb_b121.Caption = "EXCEPTII" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + BUT_TERMIN1.Left = 433 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 1 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT 'But_modifica1' AS but_modifica WITH ; + Left = 373, ; + Name = "But_modifica1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_nou1' AS but_nou WITH ; + Left = 342, ; + Name = "But_nou1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge1' AS but_sterge WITH ; + Left = 402, ; + Name = "But_sterge1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ; + Left = 299, ; + Name = "Cmd_cauta1", ; + TabIndex = 2, ; + Top = 52 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'grid_ex' AS _grid WITH ; + ColumnCount = 5, ; + DeleteMark = .F., ; + Height = 264, ; + Left = 4, ; + Name = "grid_ex", ; + Panel = 1, ; + RecordSource = "v_exceptii_ireg", ; + RowHeight = 23, ; + Top = 84, ; + Width = 456, ; + Column1.ControlSource = "cont", ; + Column1.Name = "Column1", ; + Column1.Width = 124, ; + Column2.ControlSource = "cont_c", ; + Column2.Name = "Column2", ; + Column2.Width = 119, ; + Column3.ControlSource = "iif(debit=0,'DEBIT','CREDIT')", ; + Column3.Name = "Column3", ; + Column3.Width = 179, ; + Column4.ControlSource = "invers", ; + Column4.Name = "Column4", ; + Column4.Visible = .F., ; + Column4.Width = 59, ; + Column5.ControlSource = "id_set", ; + Column5.Name = "Column5", ; + Column5.Visible = .F., ; + Column5.Width = 70 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="grid" /> + + ADD OBJECT 'grid_ex.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_ex.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_ex.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont_corespondent", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_ex.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_ex.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Pozitie cont", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_ex.Column3.Text1' AS textbox WITH ; + Height = 23, ; + Left = 31, ; + Name = "Text1", ; + Top = 35, ; + Width = 100 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_ex.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Invers", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_ex.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + Visible = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_ex.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id_set", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_ex.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + Visible = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'lb_nom_ex' AS clb_tx_simplu WITH ; + Left = 8, ; + Name = "lb_nom_ex", ; + TabIndex = 1, ; + Top = 52, ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Cont", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + PROCEDURE actualizeaza_grid1 + LPARAMETERS pcFiltru + LOCAL lcFiltru + lcFiltru=pcFiltru + IF EMPTY(lcFiltru) + lcFiltru=pex.ca_baza1.cfiltru + ENDIF + save_grid_tag(thisform.grid_ex) + pex.ca_baza1.cfiltru=lcFiltru + pex.ca_baza1.afisare() + restore_grid_tag(thisform.grid_ex) + IF RECCOUNT('v_exceptii_ireg')>0 + thisform.grid_ex.SetFocus() + ELSE + thisform.lb_nom_ex.SetFocus() + ENDIF + + ENDPROC + + PROCEDURE do_adauga + SELECT v_exceptii_ireg + SCATTER NAME loRec BLANK + PRIVATE lex,poRec + + lex='' + poRec = loRec + DO Adauga_Modifica_Inregistrare WITH "exceptii",loRec,,"INSERT",.t.,'lex' + lex.cschema = this.cschema + lex.show(1) + RELEASE lex,poRec + this.actualizeaza_grid1() + ENDPROC + + PROCEDURE do_cauta + Local lcFiltru + lcFiltru=[] + lcNume = STRTRAN(Upper(Alltrim(This.lb_nom_ex.text_simplu1.value)),['],['']) + If !Empty(lcNume) + lcFiltru=[cont like ']+lcNume+[%'] + ELSE + lcFiltru = [2=2] + Endif + This.MousePointer= 11 + This.LockScreen=.T. + Thisform.actualizeaza_grid1(lcFiltru) + IF RECCOUNT()=0 + aMESSAGEBOX("Cautarea nu a intors rezultate!",0+64,"Info cautare") + ENDIF + This.LockScreen=.F. + This.MousePointer= 0 + ENDPROC + + PROCEDURE do_modifica + Select v_exceptii_ireg + Scatter Name loRec + PRIVATE lex,poRec + lex = '' + poRec = loRec + Do Adauga_Modifica_Inregistrare With "exceptii",loRec,loRec.Id_exceptii,"UPDATE",.t.,'lex' + lex.cschema = this.cschema + lex.show(1) + RELEASE lex,poRec + thisform.actualizeaza_grid1() + ENDPROC + + PROCEDURE do_sterge + SELECT v_exceptii_ireg + SCATTER NAME lorec MEMO + PRIVATE lex + lex = '' + Do STERGE_INREGISTRARE With "exceptii",loRec.id_exceptii,.t.,'lex' + lex.cschema = this.cschema + lex.salvare(,loRec.id_exceptii) + RELEASE lex + + this.actualizeaza_grid1() + + + ENDPROC + + PROCEDURE Unload + IF USED('v_exceptii_ireg') + USE IN v_exceptii_ireg + ENDIF + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_exceptii_nou 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_renunt1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cus_odata_exceptii1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cb_tx_simplu1" UniqueID="" Timestamp="" /> + + * + *p: cschema + *p: nid + *p: orec + * + + * + BorderStyle = 1 + DoCreate = .T. + Height = 133 + Name = "frm_exceptii_nou" + Width = 314 + _shape1.Name = "_shape1" + _shape2.Height = 29 + _shape2.Left = 252 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 76 + Lb_titlu_alb_b121.Caption = "Exceptii" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 6 + BUT_TERMIN1.Left = 283 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 4 + BUT_TERMIN1.Top = 1 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Left = 253, ; + Name = "But_renunt1", ; + TabIndex = 5, ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cb_tx_simplu1' AS cb_tx_simplu WITH ; + Height = 29, ; + Left = 15, ; + Name = "Cb_tx_simplu1", ; + TabIndex = 3, ; + Top = 92, ; + Width = 290, ; + _cbbase1.BoundTo = .T., ; + _cbbase1.Name = "_cbbase1", ; + _cbbase1.RowSource = "DEBIT,CREDIT", ; + _cbbase1.RowSourceType = 1, ; + _lbbase1.Caption = "Pozitie", ; + _lbbase1.Name = "_lbbase1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ; + Left = 15, ; + Name = "Clb_tx_simplu1", ; + TabIndex = 1, ; + Top = 36, ; + Text_simplu1.ControlSource = "porec.cont", ; + Text_simplu1.Format = "!K", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Cont", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu2' AS clb_tx_simplu WITH ; + Left = 15, ; + Name = "Clb_tx_simplu2", ; + TabIndex = 2, ; + Top = 64, ; + Text_simplu1.ControlSource = "porec.cont_c", ; + Text_simplu1.Format = "!K", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Corespondent", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cus_odata_exceptii1' AS cus_odata_exceptii WITH ; + Left = 168, ; + Name = "Cus_odata_exceptii1", ; + Top = 33 + *< END OBJECT: ClassLib="ooptiuni.vcx" BaseClass="custom" /> + + PROCEDURE inainte_de_do_termin + LOCAL PLRETURN + + porec.debit = IIF(this.cb_tx_simplu1._CBBASE1.Value="DEBIT",0,1) + lccontrol = UPPER(this.ActiveControl.BaseClass ) + IF INLIST(lccontrol,"TEXTBOX","EDITBOX","COMBOBOX") + lcval=This.Activecontrol.controlsource + &lcval=thisform.ActiveControl.value + ENDIF + + + Do Case + Case Empty(porec.cont) + aMessagebox('Nu ati completat contul!',0+48,"Atentie") + This.clb_tx_simplu1.SetFocus() + plreturn=.F. + + Case Empty(porec.cont_c) + aMessagebox('Nu ati completat contul corespondent!',0+48,"Atentie") + This.clb_tx_simplu2.SetFocus() + plreturn=.F. + + *!* Case Empty(porec.debit) + *!* Messagebox('Nu ati completat pozitia contului!',0+48,"Atentie") + *!* This.clb_tx_simplu3.SetFocus() + *!* plreturn=.F. + + OTHERWISE + + lcCont = ALLTRIM(porec.cont) + lcContC = ALLTRIM(porec.cont_c) + lcSql = [select * from ] + gcS + [.plcont where cont=]+lcCont + lcCursor = [cur_cont] + lnSucces = goExecutor.oExecute(lcSql,lcCursor) + goExecutor.oReset() &&Verific contu in plcont + + IF RECCOUNT('cur_cont')=0 + aMESSAGEBOX('Contul '+lcCont+' nu este definit in planul de conturi!',0+16,'Eroare') + PLRETURN=.f. + USE IN cur_cont + RETURN PLRETURN + ENDIF + IF USED('cur_cont') + USE IN cur_cont + ENDIF + + lcSql = [select * from ] + gcS + [.plcont where cont=]+lcContC + lcCursor = [cur_cont_c] + lnSucces = goExecutor.oExecute(lcSql,lcCursor) + goExecutor.oReset() &&Verific contul corespondent + IF RECCOUNT('cur_cont_c')=0 + aMESSAGEBOX('Contul '+lcContC+' nu este definit in planul de conturi!',0+16,'Eroare') + PLRETURN=.f. + USE IN cur_cont_c + RETURN PLRETURN + ENDIF + IF USED('cur_cont_c') + USE IN cur_cont_c + ENDIF + this.cus_odata_exceptii1.cschema=this.cschema + PLRETURN=This.cus_odata_exceptii1.salvare(This.OREC,This.NID) + ENDCASE + + Return PLRETURN + + ENDPROC + + PROCEDURE Init + LPARAMETERS toRec, tnId, tcActiune + + DODEFAULT() + IF porec.debit=0 + this.cb_tx_simplu1._cBBASE1.DisplayValue='DEBIT' + ELSE + this.cb_tx_simplu1._cBBASE1.DisplayValue='CREDIT' + ENDIF + this.orec= toRec + this.nid = tnId + this.cus_odata_exceptii1.cactiune = tcActiune + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_optiuni 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="grid_opt" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_opt.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_opt.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_opt.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_opt.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_opt.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_opt.Column3.Edit1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_opt.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_opt.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lb_nom_opt" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" /> + + * + *p: cschema + * + + * + BorderStyle = 1 + cschema = CONTAFIN_ORACLE + DoCreate = .T. + Height = 351 + Name = "frm_optiuni" + Width = 524 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 522 + _shape2.Height = 29 + _shape2.Left = 402 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 120 + Lb_titlu_alb_b121.Caption = "OPTIUNI" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + BUT_TERMIN1.Left = 494 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 1 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT 'But_modifica1' AS but_modifica WITH ; + Left = 434, ; + Name = "But_modifica1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_nou1' AS but_nou WITH ; + Left = 403, ; + Name = "But_nou1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge1' AS but_sterge WITH ; + Left = 463, ; + Name = "But_sterge1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ; + Left = 299, ; + Name = "Cmd_cauta1", ; + TabIndex = 2, ; + Top = 44 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'grid_opt' AS _grid WITH ; + ColumnCount = 4, ; + DeleteMark = .F., ; + Height = 264, ; + Left = 5, ; + Name = "grid_opt", ; + Panel = 1, ; + RecordSource = "v_optiuni", ; + RowHeight = 23, ; + Top = 84, ; + Width = 513, ; + Column1.ControlSource = "varname", ; + Column1.Name = "Column1", ; + Column1.Width = 106, ; + Column2.ControlSource = "vartype", ; + Column2.Name = "Column2", ; + Column2.Width = 70, ; + Column3.ControlSource = "varvalue", ; + Column3.Name = "Column3", ; + Column3.Sparse = .F., ; + Column3.Width = 157, ; + Column4.ControlSource = "vardesc", ; + Column4.Name = "Column4", ; + Column4.Width = 145 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="grid" /> + + ADD OBJECT 'grid_opt.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nume", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_opt.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_opt.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip data", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_opt.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_opt.Column3.Edit1' AS editbox WITH ; + Height = 53, ; + Left = 94, ; + Name = "Edit1", ; + Top = 23, ; + Width = 100 + *< END OBJECT: BaseClass="editbox" /> + + ADD OBJECT 'grid_opt.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_opt.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Descriere", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_opt.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'lb_nom_opt' AS clb_tx_simplu WITH ; + Left = 8, ; + Name = "lb_nom_opt", ; + TabIndex = 1, ; + Top = 44, ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Nume", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + PROCEDURE actualizeaza_grid1 + LPARAMETERS pcFiltru + LOCAL lcFiltru + lcFiltru=pcFiltru + IF EMPTY(lcFiltru) + lcFiltru=popt.ca_baza1.cfiltru + ENDIF + save_grid_tag(thisform.grid_opt) + popt.ca_baza1.cfiltru=lcFiltru + popt.ca_baza1.afisare() + restore_grid_tag(thisform.grid_opt) + IF RECCOUNT('v_optiuni')>0 + thisform.grid_opt.SetFocus() + ELSE + thisform.lb_nom_opt.SetFocus() + ENDIF + + ENDPROC + + PROCEDURE do_adauga + SELECT v_optiuni + SCATTER NAME loRec MEMO BLANK + PRIVATE lopt,poRec + lopt='' + poRec = loRec + DO Adauga_Modifica_Inregistrare WITH "optiuni",loRec,,"INSERT",.t.,'lopt' + lopt.cschema = this.cschema + lopt.show(1) + RELEASE lopt,poRec + this.actualizeaza_grid1() + ENDPROC + + PROCEDURE do_cauta + Local lcFiltru + lcFiltru=[] + lcNume = STRTRAN(Upper(Alltrim(This.lb_nom_opt.text_simplu1.value)),['],['']) + If !Empty(lcNume) + lcFiltru=[varname like ']+lcNume+[%'] + ELSE + lcFiltru = [2=2] + Endif + This.MousePointer= 11 + This.LockScreen=.T. + Thisform.actualizeaza_grid1(lcFiltru) + IF RECCOUNT()=0 + aMESSAGEBOX("Cautarea nu a intors rezultate!",0+64,"Info cautare") + ENDIF + This.LockScreen=.F. + This.MousePointer= 0 + ENDPROC + + PROCEDURE do_modifica + Select v_optiuni + Scatter Name loRec MEMO + PRIVATE lopt,poRec + lopt = '' + poRec = loRec + Do Adauga_Modifica_Inregistrare With "optiuni",loRec,loRec.Id_optiuni,"UPDATE",.t.,'lopt' + lopt.cschema = this.cschema + lopt.show(1) + RELEASE lopt,poRec + thisform.actualizeaza_grid1() + ENDPROC + + PROCEDURE do_sterge + SELECT v_optiuni + SCATTER NAME lorec MEMO + PRIVATE lopt + lopt = '' + Do STERGE_INREGISTRARE With "optiuni",loRec.id_optiuni,.t.,'lopt' + lopt.cschema = this.cschema + lopt.salvare(,loRec.id_optiuni) + RELEASE lopt + + this.actualizeaza_grid1() + + + ENDPROC + + PROCEDURE Unload + IF USED('v_optiuni') + USE IN v_optiuni + ENDIF + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_optiuni_nou 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_renunt1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cus_odata_optiuni1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cb_tx_simplu1" UniqueID="" Timestamp="" /> + + * + *p: cschema + *p: nid + *p: orec + * + + * + BorderStyle = 1 + DoCreate = .T. + Height = 165 + Name = "frm_optiuni_nou" + Width = 314 + _shape1.Name = "_shape1" + _shape2.Height = 29 + _shape2.Left = 252 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 76 + Lb_titlu_alb_b121.Caption = "Optiuni" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 7 + BUT_TERMIN1.Left = 283 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 5 + BUT_TERMIN1.Top = 1 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Left = 253, ; + Name = "But_renunt1", ; + TabIndex = 6, ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cb_tx_simplu1' AS cb_tx_simplu WITH ; + Left = 15, ; + Name = "Cb_tx_simplu1", ; + TabIndex = 2, ; + Top = 72, ; + _cbbase1.ControlSource = "porec.vartype", ; + _cbbase1.Name = "_cbbase1", ; + _cbbase1.RowSource = "CHARACTER,CURRENCY,NUMERIC,DATETIME,DATE,LOGICAL", ; + _cbbase1.RowSourceType = 1, ; + _lbbase1.Caption = "Tip data", ; + _lbbase1.Name = "_lbbase1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ; + Left = 15, ; + Name = "Clb_tx_simplu1", ; + TabIndex = 1, ; + Top = 44, ; + Text_simplu1.ControlSource = "porec.varname", ; + Text_simplu1.Format = "!K", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Nume", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu3' AS clb_tx_simplu WITH ; + Left = 15, ; + Name = "Clb_tx_simplu3", ; + TabIndex = 3, ; + Top = 100, ; + Text_simplu1.ControlSource = "porec.varvalue", ; + Text_simplu1.Format = "!K", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Valoare", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu6' AS clb_tx_simplu WITH ; + Left = 15, ; + Name = "Clb_tx_simplu6", ; + TabIndex = 4, ; + Top = 128, ; + Text_simplu1.ControlSource = "porec.vardesc", ; + Text_simplu1.Format = "!K", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Descriere", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cus_odata_optiuni1' AS cus_odata_optiuni WITH ; + Left = 144, ; + Name = "Cus_odata_optiuni1", ; + Top = 24 + *< END OBJECT: ClassLib="ooptiuni.vcx" BaseClass="custom" /> + + PROCEDURE inainte_de_do_termin + LOCAL PLRETURN + + lccontrol = UPPER(this.ActiveControl.BaseClass ) + IF INLIST(lccontrol,"TEXTBOX","EDITBOX","COMBOBOX") + lcval=This.Activecontrol.controlsource + &lcval=thisform.ActiveControl.value + ENDIF + + + Do Case + Case Empty(porec.varname) + aMessagebox('Nu ati completat denumirea variabilei!',0+48,"Atentie") + This.clb_tx_simplu1.SetFocus() + plreturn=.F. + + Case Empty(porec.vartype) + aMessagebox('Nu ati completat tipul de data!',0+48,"Atentie") + This.CB_tx_simplu1.SetFocus() + plreturn=.F. + + Case Empty(porec.varvalue) + aMessagebox('Nu ati completat valoarea variabilei!',0+48,"Atentie") + This.clb_tx_simplu5.SetFocus() + plreturn=.F. + + OTHERWISE + this.cus_odata_optiuni1.cschema=this.cschema + PLRETURN=This.cus_odata_optiuni1.salvare(This.OREC,This.NID) + ENDCASE + + Return PLRETURN + + ENDPROC + + PROCEDURE Init + LPARAMETERS toRec, tnId, tcActiune + + DODEFAULT() + + this.orec= toRec + this.nid = tnId + this.cus_odata_optiuni1.cactiune = tcActiune + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_plafon_casa AS frm_termin OF "..\comun\clase\_frm_child.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="grid_plafoane" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_plafoane.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_plafoane.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_plafoane.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_plafoane.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_plafoane.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_plafoane.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_plafoane.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_plafoane.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_plafoane.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_plafoane.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_luna_intre1" UniqueID="" Timestamp="" /> + + * + *p: ctabel + *p: ogencursor + * + + * + BorderStyle = 2 + cgridsortlist = grid_plafoane + ctabel = + DoCreate = .T. + Height = 340 + Name = "frm_plafon_casa" + ogencursor = + Width = 492 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 504 + _shape2.Height = 29 + _shape2.Left = 428 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 63 + Lb_titlu_alb_b121.Caption = "Plafon casa" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + BUT_TERMIN1.Left = 461 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 1 + Gridsort1.Left = 452 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 42 + * + + ADD OBJECT 'But_modifica1' AS but_modifica WITH ; + Left = 431, ; + Name = "But_modifica1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Clb_luna_intre1' AS clb_luna_intre WITH ; + Height = 29, ; + Left = 12, ; + Name = "Clb_luna_intre1", ; + Top = 39, ; + Width = 229, ; + tx_n1.Left = 68, ; + tx_n1.Name = "tx_n1", ; + tx_n1.Top = 3, ; + LB_SIMPLU1.Caption = "Perioada", ; + LB_SIMPLU1.Name = "LB_SIMPLU1", ; + tx_n2.Left = 148, ; + tx_n2.Name = "tx_n2", ; + tx_n2.Top = 3 + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ; + Height = 27, ; + Left = 244, ; + Name = "Cmd_cauta1", ; + TabIndex = 2, ; + Top = 40, ; + Width = 80 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'grid_plafoane' AS _grid WITH ; + ColumnCount = 5, ; + DeleteMark = .F., ; + HeaderHeight = 23, ; + Height = 258, ; + Left = 6, ; + Name = "grid_plafoane", ; + Panel = 1, ; + RecordSource = "v_plafon", ; + RowHeight = 20, ; + Top = 74, ; + Width = 479, ; + Column1.ControlSource = "plafon_casa", ; + Column1.InputMask = (get_mask(12,gnPa)), ; + Column1.Name = "Column1", ; + Column1.Width = 114, ; + Column2.ColumnOrder = 3, ; + Column2.ControlSource = "plafon_furnizori", ; + Column2.InputMask = (get_mask(12,gnPa)), ; + Column2.Name = "Column2", ; + Column2.Width = 110, ; + Column3.ColumnOrder = 4, ; + Column3.ControlSource = "luna", ; + Column3.Name = "Column3", ; + Column3.Width = 43, ; + Column4.ColumnOrder = 5, ; + Column4.ControlSource = "anul", ; + Column4.Name = "Column4", ; + Column4.Width = 64, ; + Column5.ColumnOrder = 2, ; + Column5.ControlSource = "plafon_plati", ; + Column5.InputMask = (get_mask(12,gnPa)), ; + Column5.Name = "Column5", ; + Column5.Width = 112 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="grid" /> + + ADD OBJECT 'grid_plafoane.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Plafon casa", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_plafoane.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_plafoane.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Plafon furnizori", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_plafoane.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_plafoane.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Luna", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_plafoane.Column3.Text1' AS textbox WITH ; + Height = 23, ; + Left = 31, ; + Name = "Text1", ; + Top = 35, ; + Width = 100 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_plafoane.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "An", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_plafoane.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_plafoane.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Plafon plati", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_plafoane.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE actualizeaza_grid1 + LPARAMETERS pcFiltru + LOCAL lcFiltru + lcFiltru=pcFiltru + pobj = this.ogencursor + IF EMPTY(lcFiltru) + lcFiltru=pobj.ca_baza1.cfiltru + ENDIF + save_grid_tag(thisform.grid_plafoane) + pobj.ca_baza1.cfiltru=lcFiltru + pobj.ca_baza1.afisare() + restore_grid_tag(thisform.grid_plafoane) + thisform.grid_plafoane.SetFocus + + ENDPROC + + PROCEDURE do_cauta + Local lcFiltru + lcFiltru=[] + + lcLunaMin =SUBSTR(ALLTRIM(this.clb_luna_intre1.tx_n1.Value),1,2) + lcAnMin = SUBSTR(ALLTRIM(this.clb_luna_intre1.tx_n1.Value),3) + + lcLunaMax = SUBSTR(ALLTRIM(this.clb_luna_intre1.tx_n2.Value),1,2) + lcAnMax = SUBSTR(ALLTRIM(this.clb_luna_intre1.tx_n2.Value),3) + + IF EMPTY(lcLunaMin) + lcLunaMin = '1' + ENDIF + IF EMPTY(lcAnMin) + lcAnMin = STR(gnAn) + ENDIF + IF EMPTY(lcLunaMax) + lcLunaMax = STR(gnLuna) + ENDIF + IF EMPTY(lcAnMax) + lcAnMax = STR(gnAn) + ENDIF + + lcfiltru = [luna + 12*anul between ] + lcLunaMin + [ + 12*] + lcAnMin + [ and ] + lcLunaMax + [ + 12*] + lcAnMax + + This.MousePointer= 11 + This.LockScreen=.T. + Thisform.actualizeaza_grid1(lcFiltru) + IF RECCOUNT()=0 + aMESSAGEBOX("Cautarea nu a intors rezultate!",0+64,"Info cautare") + ENDIF + This.LockScreen=.F. + This.MousePointer= 0 + ENDPROC + + PROCEDURE do_modifica + lcCrs = this.ctabel + + SELECT (lcCrs) + Scatter Name loRec + PRIVATE lcot,poRec + lcot = '' + poRec = loRec + Do Adauga_Modifica_Inregistrare With "plafon",loRec,loRec.Id_calendar,"UPDATE",.t.,'lcot' + *lcot.cschema = this.cschema + lcot.show(1) + RELEASE lcot,poRec + thisform.actualizeaza_grid1() + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_plafon_nou AS frm_termin_renunt OF "..\comun\clase\_frm_child.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cus_odata_plafon_casa1" UniqueID="" Timestamp="" /> + + * + *p: cschema + *p: nid + *p: orec + * + + * + BorderStyle = 2 + cschema = + DoCreate = .T. + Height = 198 + Name = "frm_plafon_nou" + nid = + orec = + Width = 316 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 320 + _shape2.Left = 242 + _shape2.Name = "_shape2" + _shape2.Top = 0 + Lb_titlu_alb_b121.Caption = "Plafoane casa" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 6 + BUT_TERMIN1.Left = 284 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 4 + BUT_TERMIN1.Top = 1 + Gridsort1.Name = "Gridsort1" + But_renunt1.Left = 255 + But_renunt1.Name = "But_renunt1" + But_renunt1.TabIndex = 5 + But_renunt1.Top = 1 + * + + ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ; + Left = 13, ; + Name = "Clb_tx_simplu1", ; + TabIndex = 1, ; + Top = 49, ; + Text_simplu1.ControlSource = "porec.plafon_casa", ; + Text_simplu1.Format = "!K", ; + Text_simplu1.InputMask = (get_mask(12,gnPa)), ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Plafon casa", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu2' AS clb_tx_simplu WITH ; + Left = 13, ; + Name = "Clb_tx_simplu2", ; + TabIndex = 2, ; + Top = 77, ; + Text_simplu1.ControlSource = "porec.plafon_plati", ; + Text_simplu1.Format = "!K", ; + Text_simplu1.InputMask = (get_mask(12,gnPa)), ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Plafon plati", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu3' AS clb_tx_simplu WITH ; + Left = 13, ; + Name = "Clb_tx_simplu3", ; + TabIndex = 7, ; + TabStop = .F., ; + Top = 133, ; + Text_simplu1.ControlSource = "porec.luna", ; + Text_simplu1.Format = "!K", ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .T., ; + Lb_simplu1.Caption = "Luna", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu4' AS clb_tx_simplu WITH ; + Left = 13, ; + Name = "Clb_tx_simplu4", ; + TabIndex = 3, ; + Top = 105, ; + Text_simplu1.ControlSource = "porec.plafon_furnizori", ; + Text_simplu1.Format = "!K", ; + Text_simplu1.InputMask = (get_mask(12,gnPa)), ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Plafon furnizori", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu6' AS clb_tx_simplu WITH ; + Left = 13, ; + Name = "Clb_tx_simplu6", ; + TabIndex = 8, ; + TabStop = .F., ; + Top = 161, ; + Text_simplu1.ControlSource = "porec.anul", ; + Text_simplu1.Format = "!K", ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .T., ; + Lb_simplu1.Caption = "An", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cus_odata_plafon_casa1' AS cus_odata_plafon_casa WITH ; + Left = 65, ; + Name = "Cus_odata_plafon_casa1", ; + Top = 33 + *< END OBJECT: ClassLib="..\..\roadef\clase\ooptiuni.vcx" BaseClass="custom" /> + + PROCEDURE inainte_de_do_termin + LOCAL PLRETURN + + *!* lccontrol = UPPER(this.ActiveControl.BaseClass) + *!* IF INLIST(lccontrol,"TEXTBOX","EDITBOX","COMBOBOX") + *!* lcval=This.Activecontrol.controlsource + *!* &lcval=thisform.ActiveControl.value + *!* ENDIF + + this.cus_odata_plafon_casa1.cschema=this.cschema + PLRETURN=This.cus_odata_plafon_casa1.salvare(This.OREC,This.NID) + + Return PLRETURN + + ENDPROC + + PROCEDURE Init + LPARAMETERS toRec, tnId, tcActiune + + DODEFAULT() + + this.orec= toRec + this.nid = tnId + this.cus_odata_plafon_casa1.cactiune = tcActiune + ENDPROC + +ENDDEFINE diff --git a/Clase/oactualizari.vc2 b/Clase/oactualizari.vc2 new file mode 100644 index 0000000..58fe491 --- /dev/null +++ b/Clase/oactualizari.vc2 @@ -0,0 +1,1179 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="oactualizari.vcx" CPID="1250" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS frm_actualizare_facturi_valuta 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="Label3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConturi" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConturi.cExplicatie.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConturi.cExplicatie.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConturi.cCont.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConturi.cCont.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdFacturi" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdFacturi.cNume.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdFacturi.cNume.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdFacturi.cNrAct.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdFacturi.cNrAct.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdFacturi.cDataact.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdFacturi.cDataact.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdFacturi.csoldval.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdFacturi.csoldval.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdFacturi.csoldlei.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdFacturi.csoldlei.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdFacturi.cCurs.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdFacturi.cCurs.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdFacturi.cCursBNR.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdFacturi.cCursBNR.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdFacturi.cDifLei.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdFacturi.cDifLei.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdFacturi.cNumeVal.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdFacturi.cNumeVal.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdFacturi.cCont.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdFacturi.cCont.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdFacturi.cAcont.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdFacturi.cAcont.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdFacturi.cAles.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdFacturi.cAles.Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdValuta" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdValuta.cValuta.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdValuta.cValuta.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdValuta.cCurs.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdValuta.cCurs.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtDiferentaNefavorabila" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtDiferentaFavorabila" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_executa1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" /> + + * + *p: ddataact + *p: ndiferentafavorabila + *p: ndiferentanefavorabila + *p: nnract + * + + * + cgridsortlist = grdFacturi + ddataact = (date()) + DoCreate = .T. + Height = 482 + Name = "frm_actualizare_facturi_valuta" + ndiferentafavorabila = 0 + ndiferentanefavorabila = 0 + nnract = 0 + Width = 772 + _shape1.Anchor = 10 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 780 + _shape2.Anchor = 8 + _shape2.Height = 29 + _shape2.Left = 677 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 112 + Lb_titlu_alb_b121.Caption = "Actualizare solduri in valuta la 31.12" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + BUT_TERMIN1.Anchor = 8 + BUT_TERMIN1.Left = 740 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 1 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT 'But_excel1' AS but_excel WITH ; + Anchor = 8, ; + Left = 679, ; + Name = "But_excel1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Anchor = 8, ; + Left = 711, ; + Name = "But_renunt1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ; + Anchor = 8, ; + Caption = "Selecteaza \ + + ADD OBJECT 'Cmd_executa1' AS cmd_executa WITH ; + Anchor = 8, ; + Caption = "\ + + ADD OBJECT 'grdConturi' AS grid WITH ; + Anchor = 5, ; + ColumnCount = 2, ; + Comment = "*:OnResize=LS", ; + DeleteMark = .F., ; + FontSize = 10, ; + Height = 238, ; + HighlightStyle = 2, ; + Left = 12, ; + Name = "grdConturi", ; + Panel = 1, ; + ReadOnly = .T., ; + RecordMark = .T., ; + RecordSource = "crsConturi", ; + RowHeight = 19, ; + ScrollBars = 3, ; + TabIndex = 5, ; + Top = 64, ; + Width = 221, ; + Column1.ColumnOrder = 2, ; + Column1.ControlSource = "explicatie", ; + Column1.FontName = "Arial", ; + Column1.FontSize = 10, ; + Column1.Name = "cExplicatie", ; + Column1.ReadOnly = .T., ; + Column1.Width = 146, ; + Column2.ColumnOrder = 1, ; + Column2.ControlSource = "cont", ; + Column2.FontName = "Arial", ; + Column2.FontSize = 10, ; + Column2.Name = "cCont", ; + Column2.ReadOnly = .T., ; + Column2.Width = 42 + *< END OBJECT: BaseClass="grid" /> + + ADD OBJECT 'grdConturi.cCont.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdConturi.cCont.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdConturi.cExplicatie.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatie", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdConturi.cExplicatie.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdFacturi' AS grid WITH ; + Anchor = 15, ; + ColumnCount = 12, ; + Comment = "*:OnResize=SS", ; + DeleteMark = .F., ; + FontSize = 10, ; + Height = 366, ; + HighlightStyle = 2, ; + Left = 241, ; + Name = "grdFacturi", ; + Panel = 1, ; + ReadOnly = .T., ; + RecordMark = .T., ; + RecordSource = "crsFacturi", ; + RowHeight = 19, ; + TabIndex = 6, ; + Top = 63, ; + Width = 516, ; + Column1.ColumnOrder = 4, ; + Column1.ControlSource = "nume", ; + Column1.FontName = "Arial", ; + Column1.FontSize = 10, ; + Column1.Name = "cNume", ; + Column1.ReadOnly = .T., ; + Column1.Width = 190, ; + Column2.ColumnOrder = 5, ; + Column2.ControlSource = "nract", ; + Column2.FontName = "Arial", ; + Column2.FontSize = 10, ; + Column2.Name = "cNrAct", ; + Column2.ReadOnly = .T., ; + Column3.ColumnOrder = 6, ; + Column3.ControlSource = "dataact", ; + Column3.FontName = "Arial", ; + Column3.FontSize = 10, ; + Column3.Name = "cDataact", ; + Column3.ReadOnly = .T., ; + Column3.Width = 72, ; + Column4.ColumnOrder = 7, ; + Column4.ControlSource = "soldval", ; + Column4.FontName = "Arial", ; + Column4.FontSize = 10, ; + Column4.Format = "RK", ; + Column4.InputMask = (get_mask(12,GnPval)), ; + Column4.Name = "csoldval", ; + Column4.ReadOnly = .T., ; + Column4.Width = 86, ; + Column5.ColumnOrder = 9, ; + Column5.ControlSource = "soldlei", ; + Column5.FontName = "Arial", ; + Column5.FontSize = 10, ; + Column5.Format = "RK", ; + Column5.InputMask = (get_mask(12,GnPA)), ; + Column5.Name = "csoldlei", ; + Column5.ReadOnly = .T., ; + Column5.Width = 91, ; + Column6.ColumnOrder = 10, ; + Column6.ControlSource = "curs", ; + Column6.FontName = "Arial", ; + Column6.FontSize = 10, ; + Column6.Format = "RK", ; + Column6.InputMask = (get_mask(12,GnPcurs)), ; + Column6.Name = "cCurs", ; + Column6.ReadOnly = .T., ; + Column6.Width = 60, ; + Column7.ColumnOrder = 11, ; + Column7.ControlSource = "cursBNR", ; + Column7.FontName = "Arial", ; + Column7.FontSize = 10, ; + Column7.Format = "RK", ; + Column7.InputMask = (get_mask(12,GnPcurs)), ; + Column7.Name = "cCursBNR", ; + Column7.ReadOnly = .T., ; + Column7.Width = 58, ; + Column8.ColumnOrder = 12, ; + Column8.ControlSource = "diferenta", ; + Column8.FontName = "Arial", ; + Column8.FontSize = 10, ; + Column8.Format = "RK", ; + Column8.InputMask = (get_mask(12,GnPA)), ; + Column8.Name = "cDifLei", ; + Column8.ReadOnly = .T., ; + Column8.Width = 104, ; + Column9.ColumnOrder = 8, ; + Column9.ControlSource = "NUME_VAL", ; + Column9.FontName = "Arial", ; + Column9.FontSize = 10, ; + Column9.Name = "cNumeVal", ; + Column9.ReadOnly = .T., ; + Column9.Width = 42, ; + Column10.ColumnOrder = 2, ; + Column10.ControlSource = "cont", ; + Column10.FontName = "Arial", ; + Column10.FontSize = 10, ; + Column10.Name = "cCont", ; + Column10.ReadOnly = .T., ; + Column10.Width = 39, ; + Column11.ColumnOrder = 3, ; + Column11.ControlSource = "acont", ; + Column11.FontName = "Arial", ; + Column11.FontSize = 10, ; + Column11.Name = "cAcont", ; + Column11.ReadOnly = .T., ; + Column11.Width = 40, ; + Column12.Alignment = 2, ; + Column12.ColumnOrder = 1, ; + Column12.ControlSource = "ales", ; + Column12.FontName = "Arial", ; + Column12.FontSize = 10, ; + Column12.Name = "cAles", ; + Column12.ReadOnly = .F., ; + Column12.Sparse = .F., ; + Column12.Width = 33 + *< END OBJECT: BaseClass="grid" /> + + ADD OBJECT 'grdFacturi.cAcont.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Analitic", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdFacturi.cAcont.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdFacturi.cAles.Check1' AS checkbox WITH ; + Alignment = 0, ; + Caption = "", ; + Centered = .T., ; + FontName = "Arial", ; + FontSize = 10, ; + Height = 17, ; + Left = 48, ; + Name = "Check1", ; + ReadOnly = .F., ; + Top = 44, ; + Width = 60 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'grdFacturi.cAles.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Ales", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdFacturi.cCont.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdFacturi.cCont.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdFacturi.cCurs.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Curs", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdFacturi.cCurs.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdFacturi.cCursBNR.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Curs BNR", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdFacturi.cCursBNR.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdFacturi.cDataact.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data act", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdFacturi.cDataact.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdFacturi.cDifLei.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Diferenta in lei", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdFacturi.cDifLei.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdFacturi.cNrAct.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. act", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdFacturi.cNrAct.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdFacturi.cNume.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nume", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdFacturi.cNume.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdFacturi.cNumeVal.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valuta", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdFacturi.cNumeVal.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdFacturi.csoldlei.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sold in lei", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdFacturi.csoldlei.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdFacturi.csoldval.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sold in valuta", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdFacturi.csoldval.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdValuta' AS grid WITH ; + Anchor = 4, ; + ColumnCount = 2, ; + Comment = "*:OnResize=LB", ; + DeleteMark = .F., ; + FontSize = 10, ; + Height = 110, ; + HighlightStyle = 2, ; + Left = 12, ; + Name = "grdValuta", ; + Panel = 1, ; + RecordMark = .T., ; + RecordSource = "crsValute", ; + RowHeight = 19, ; + ScrollBars = 3, ; + TabIndex = 9, ; + Top = 322, ; + Width = 160, ; + Column1.ControlSource = "nume_val", ; + Column1.FontName = "Arial", ; + Column1.FontSize = 10, ; + Column1.Format = "K", ; + Column1.Name = "cValuta", ; + Column1.ReadOnly = .T., ; + Column1.Width = 63, ; + Column2.ControlSource = "curs", ; + Column2.FontName = "Arial", ; + Column2.FontSize = 10, ; + Column2.Format = "RK", ; + Column2.InputMask = (get_mask(16,GnPcurs)), ; + Column2.Name = "cCurs", ; + Column2.Width = 65 + *< END OBJECT: BaseClass="grid" /> + + ADD OBJECT 'grdValuta.cCurs.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Curs", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdValuta.cCurs.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdValuta.cValuta.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valuta", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdValuta.cValuta.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Label1' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Facturi", ; + FontBold = .T., ; + FontName = "Arial", ; + FontSize = 10, ; + Height = 18, ; + Left = 242, ; + Name = "Label1", ; + TabIndex = 14, ; + Top = 44, ; + Width = 46 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label2' AS label WITH ; + Anchor = 4, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Curs BNR", ; + Comment = "*:OnResize=LB", ; + FontBold = .T., ; + FontName = "Arial", ; + FontSize = 10, ; + Height = 18, ; + Left = 12, ; + Name = "Label2", ; + TabIndex = 15, ; + Top = 304, ; + Width = 61 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label3' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Situatia", ; + FontBold = .T., ; + FontName = "Arial", ; + FontSize = 10, ; + Height = 18, ; + Left = 12, ; + Name = "Label3", ; + TabIndex = 13, ; + Top = 44, ; + Width = 51 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label4' AS label WITH ; + Anchor = 4, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Daca se sterg notele de reevaluare din Registrul Jurnal, trebuie refacute situatiile de facturi ", ; + Comment = "*:OnResize=LB", ; + FontBold = .F., ; + FontName = "Arial", ; + ForeColor = 255,0,0, ; + Height = 17, ; + Left = 12, ; + Name = "Label4", ; + TabIndex = 15, ; + Top = 444, ; + Width = 500 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label5' AS label WITH ; + Anchor = 12, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Diferenta nefavorabila", ; + Comment = "*:OnResize=RB", ; + FontBold = .T., ; + FontName = "Arial", ; + FontSize = 10, ; + Height = 18, ; + Left = 503, ; + Name = "Label5", ; + TabIndex = 20, ; + Top = 434, ; + Width = 144 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label6' AS label WITH ; + Anchor = 12, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Diferenta favorabila", ; + Comment = "*:OnResize=RB", ; + FontBold = .T., ; + FontName = "Arial", ; + FontSize = 10, ; + Height = 18, ; + Left = 504, ; + Name = "Label6", ; + TabIndex = 22, ; + Top = 459, ; + Width = 128 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label7' AS label WITH ; + Anchor = 4, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "pentru a se reveni la cursul de schimb original", ; + Comment = "*:OnResize=LB", ; + FontBold = .F., ; + FontName = "Arial", ; + ForeColor = 255,0,0, ; + Height = 17, ; + Left = 12, ; + Name = "Label7", ; + TabIndex = 15, ; + Top = 460, ; + Width = 255 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'txtDiferentaFavorabila' AS textbox WITH ; + Anchor = 12, ; + Comment = "*:OnResize=RB", ; + ControlSource = "thisform.nDiferentaFavorabila", ; + FontName = "Arial", ; + FontSize = 10, ; + Format = "R", ; + Height = 23, ; + InputMask = (get_mask(12,GnPA)), ; + Left = 654, ; + Name = "txtDiferentaFavorabila", ; + ReadOnly = .T., ; + TabIndex = 21, ; + Top = 457, ; + Width = 102 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtDiferentaNefavorabila' AS textbox WITH ; + Anchor = 12, ; + Comment = "*:OnResize=RB", ; + ControlSource = "thisform.nDiferentaNefavorabila", ; + FontSize = 10, ; + Format = "R", ; + Height = 23, ; + InputMask = (get_mask(12,GnPA)), ; + Left = 654, ; + Name = "txtDiferentaNefavorabila", ; + ReadOnly = .T., ; + TabIndex = 18, ; + Top = 432, ; + Width = 102 + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE do_cauta + Local lcCont, lnFelCont, lnCuInregistrari, llNuExistaCurs, lnIdValuta, lnCursBNR + + SELECT crsConturi + lcCont = UPPER(ALLTRIM(CONT)) + lnFelCont = fel_cont + lnCuInregistrari = Nvl(cu_inregistrari,0) + + THISFORM.LOCKSCREEN = .T. + SELECT crsFacturi + save_grid(THISFORM.grdFacturi) + + *!* 09.05.2008 + *!* banca/casa in valuta - selectez soldurile din balanta parteneri + *!* IF LEFT(lcCont,1) = '5' + If lnCuInregistrari = 0 + pobalanta_parteneri.ca_baza1.cFiltru = [(cont = '] + lcCont + [')] + pobalanta_parteneri.ca_baza1.afisare() + ELSE + poIreg_parteneri.ca_baza1.cFiltru = [(cont = '] + lcCont + [')] + poIreg_parteneri.ca_baza1.afisare() + ENDIF + *!* 09.05.2008 ^ + + llNuExistaCurs = .F. + SELECT crsFacturi + SCAN + lnIdValuta = id_valuta + lnCursBNR = 0 + SELECT crsValute + LOCATE FOR id_valuta = lnIdValuta + IF FOUND() + lnCursBNR = CURS + IF curs = 0 + llNuExistaCurs = .T. + ENDIF + ELSE + llNuExistaCurs = .T. + ENDIF + + SELECT crsFacturi + REPLACE cursBNR WITH lnCursBNR + ENDSCAN + + SELECT crsFacturi + IF lnFelCont = 0 && ACTIV + lcSoldVal = [precvaldeb + valdebit - precvalcred - valcredit] + lcSoldLei = [precdeb + debit - preccred - credit] + ELSE + lcSoldVal = [precvalcred + valcredit - precvaldeb - valdebit] + lcSoldLei = [preccred + credit - precdeb - debit] + ENDIF + REPLACE ALL soldval WITH &lcSoldVal, soldLei WITH &lcSoldLei + + REPLACE ALL DIFERENTA WITH ROUND(cursBNR * soldval, gnPA) - ROUND(soldLei, gnPA) FOR !EMPTY(cursBNR) AND CURS # 0 + REPLACE ALL DIFERENTA WITH ROUND(cursBNR * soldval, gnPA) - ROUND(soldLei, gnPA) FOR !EMPTY(cursBNR) AND CURS = 0 + + CALCULATE SUM(ABS(diferenta)) FOR diferenta > 0 TO thisform.ndiferentafavorabila + CALCULATE SUM(ABS(diferenta)) FOR diferenta < 0 TO thisform.ndiferentanefavorabila + GO TOP + + restore_grid(THISFORM.grdFacturi) + this.txtDiferentaFavorabila.Refresh() + this.txtdiferentaNefavorabila.Refresh() + THISFORM.LOCKSCREEN = .F. + + IF llNuExistaCurs + AMESSAGEBOX('Nu s-a completat cursul de schimb pentru una sau mai multe valute!', 0+48, 'Reevaluare') + ENDIF + + + ENDPROC + + PROCEDURE do_excel + DO export_excel_grid WITH this.grdFacturi + ENDPROC + + PROCEDURE do_executa + LOCAL lnIdSet, llVerificAnalitic, llCompletareParteneri, lnFelCont, lcContAles, lnSucces + lnIdSet = 90501 + llVerificAnalitic = .T. + llCompletareParteneri = .T. + + lcCursor = "crsActTemp" + + SELECT DISTINCT CONT FROM crsFacturi WITH (BUFFERING = .T.) WHERE ales = 1 INTO CURSOR crsContAles + IF _TALLY = 0 + USE IN crsContAles + RETURN + ENDIF + SELECT crsContAles + lcContAles = UPPER(ALLTRIM(CONT)) + USE IN crsContAles + + SELECT fel_cont ; + FROM crsConturi ; + WHERE UPPER(ALLTRIM(CONT)) = lcContAles ; + INTO CURSOR crsFelCont + + IF _TALLY > 0 + SELECT crsFelCont + lnFelCont = fel_cont + ELSE + lnFelCont = 0 + ENDIF + USE IN crsFelCont + + + + SELECT an, luna, ID_FACT, ID_PART AS ID_PARTD, NUME AS PARTD, ID_PART AS ID_PARTC, NUME AS PARTC, ; + SPACE(4) AS scd, acont AS ascd, SPACE(4) AS scc, acont AS ascc, diferenta AS SUMA, ; + cursBNR AS CURS, nume_val, id_valuta, ; + nract AS pereched, ID_FACT AS id_factd, ; + nract AS perechec, ID_FACT AS id_factc, ; + PADR('DIFERENTE REEVALUARE;' + ALLTRIM(STR(nract)) + ';' + ALLTRIM(TRANSFORM(CURS)) + ';' + ALLTRIM(TRANSFORM(cursBNR)), 50, ' ') AS explicatia, ; + PADR(ALLTRIM(TRANSFORM(CURS)), 50, ' ') AS EXPLICATIA4, proc_tva, id_jtva_coloana ; + FROM crsFacturi ; + WITH (BUFFERING = .T.) ; + WHERE ales = 1 AND diferenta <> 0 ; + INTO CURSOR crsActTemp ; + READWRITE + + IF _TALLY > 0 + SELECT crsActTemp + *!* 19.01.2015: 765-> 7651 + *!* REPLACE ALL scd WITH lcContAles, scc WITH "765 ", ascc WITH '', ID_PARTC WITH 0, PARTC WITH '', perechec WITH 0, id_factc WITH 0 ; + *!* FOR (SUMA>0 AND lnFelCont = 0) OR (SUMA<0 AND lnFelCont = 1) + REPLACE ALL scd WITH lcContAles, scc WITH "7651", ascc WITH '', ID_PARTC WITH 0, PARTC WITH '', perechec WITH 0, id_factc WITH 0 ; + FOR (SUMA>0 AND lnFelCont = 0) OR (SUMA<0 AND lnFelCont = 1) + *!* 19.01.2015: 765-> 7651^ + + *!* 19.01.2015: 665-> 6651 + *!* REPLACE ALL scd WITH "665 ", ascd WITH '', scc WITH lcContAles, ID_PARTD WITH 0, PARTD WITH '', pereched WITH 0, id_factd WITH 0 ; + *!* FOR (SUMA<0 AND lnFelCont = 0) OR (SUMA>0 AND lnFelCont = 1) + REPLACE ALL scd WITH "6651", ascd WITH '', scc WITH lcContAles, ID_PARTD WITH 0, PARTD WITH '', pereched WITH 0, id_factd WITH 0 ; + FOR (SUMA<0 AND lnFelCont = 0) OR (SUMA>0 AND lnFelCont = 1) + *!* 19.01.2015: 665-> 6651 ^ + *!* 19.01.2015: 765-> 7651 + *!* REPLACE ALL explicatia WITH STRTRAN(explicatia, 'REEVALUARE', 'FAVORABILE') FOR scc = '765' + REPLACE ALL explicatia WITH STRTRAN(explicatia, 'REEVALUARE', 'FAVORABILE') FOR scc = '7651' + *!* 19.01.2015: 765-> 7651^ + *!* 19.01.2015: 665-> 6651 + *!* REPLACE ALL explicatia WITH STRTRAN(explicatia, 'REEVALUARE', 'NEFAVORABILE') FOR scd = '665' + REPLACE ALL explicatia WITH STRTRAN(explicatia, 'REEVALUARE', 'NEFAVORABILE') FOR scd = '6651' + + *!* 19.01.2015: 665-> 6651 ^ + + REPLACE ALL SUMA WITH ABS(SUMA) + + this.AlwaysOnTop = .F. + lnSucces = scrie_nota_import(lnIdSet, llVerificAnalitic, llCompletareParteneri, "crsActTemp") + IF lnSucces > 0 + this.do_cauta() + AMESSAGEBOX('Nota s-a scris in Registrul Jurnal.', 0+64, 'Reevaluare') + ELSE + AMESSAGEBOX('Nota nu s-a scris in Registrul Jurnal.', 0+16, 'Reevaluare') + ENDIF + this.AlwaysOnTop = .T. + ENDIF + + IF USED("crsActTemp") + USE IN crsActTemp + ENDIF + + ***------------------------------------------------------------------------------------------------------------------------------------- + *!* LOCAL lnIdSet, llVerificAnalitic, llCompletareParteneri, lnFelCont, lcContAles, lnSucces + *!* lnIdSet = 90501 + *!* llVerificAnalitic = .T. + *!* llCompletareParteneri = .T. + + *!* lcCursor = "crsActTemp" + + + *!* SELECT DISTINCT CONT FROM crsFacturi INTO CURSOR crsContAles + *!* IF _TALLY = 0 + *!* USE IN crsContAles + *!* RETURN + *!* ENDIF + *!* SELECT crsContAles + *!* lcContAles = UPPER(ALLTRIM(CONT)) + *!* USE IN crsContAles + + *!* SELECT fel_cont ; + *!* FROM crsConturi ; + *!* WHERE UPPER(ALLTRIM(CONT)) = lcContAles ; + *!* INTO CURSOR crsFelCont + + *!* IF _TALLY > 0 + *!* SELECT crsFelCont + *!* lnFelCont = fel_cont + *!* ELSE + *!* lnFelCont = 0 + *!* ENDIF + *!* USE IN crsFelCont + + + + *!* SELECT an, luna, ID_FACT, ID_PART AS ID_PARTD, NUME AS PARTD, ID_PART AS ID_PARTC, NUME AS PARTC, ; + *!* SPACE(4) AS scd, acont AS ascd, SPACE(4) AS scc, acont AS ascc, diferenta AS SUMA, ; + *!* cursBNR AS CURS, nume_val, id_valuta, ; + *!* nract AS pereched, ID_FACT AS id_factd, ; + *!* nract AS perechec, ID_FACT AS id_factc, ; + *!* PADR('DIFERENTE REEVALUARE;' + ALLTRIM(STR(nract)) + ';' + ALLTRIM(TRANSFORM(CURS)) + ';' + ALLTRIM(TRANSFORM(cursBNR)), 50, ' ') AS explicatia, ; + *!* PADR(ALLTRIM(TRANSFORM(CURS)), 50, ' ') AS EXPLICATIA4 ; + *!* FROM crsFacturi ; + *!* WHERE diferenta <> 0 ; + *!* INTO CURSOR crsActTemp ; + *!* READWRITE + + *!* IF _TALLY > 0 + *!* SELECT crsActTemp + *!* REPLACE ALL scd WITH lcContAles, scc WITH "765 ", ascc WITH '', ID_PARTC WITH 0, PARTC WITH '', perechec WITH 0, id_factc WITH 0 ; + *!* FOR (SUMA>0 AND lnFelCont = 0) OR (SUMA<0 AND lnFelCont = 1) + + *!* REPLACE ALL scd WITH "665 ", ascd WITH '', scc WITH lcContAles, ID_PARTD WITH 0, PARTD WITH '', pereched WITH 0, id_factd WITH 0 ; + *!* FOR (SUMA<0 AND lnFelCont = 0) OR (SUMA>0 AND lnFelCont = 1) + + *!* REPLACE ALL explicatia WITH STRTRAN(explicatia, 'REEVALUARE', 'FAVORABILE') FOR scc = '765' + *!* REPLACE ALL explicatia WITH STRTRAN(explicatia, 'REEVALUARE', 'NEFAVORABILE') FOR scd = '665' + + *!* REPLACE ALL SUMA WITH ABS(SUMA) + + *!* this.AlwaysOnTop = .F. + *!* lnSucces = scrie_nota_import(lnIdSet, llVerificAnalitic, llCompletareParteneri, "crsActTemp") + *!* IF lnSucces > 0 + *!* this.do_cauta() + *!* AMESSAGEBOX('Nota s-a scris in Registrul Jurnal.', 0+64, 'Reevaluare') + *!* ELSE + *!* AMESSAGEBOX('Nota nu s-a scris in Registrul Jurnal.', 0+16, 'Reevaluare') + *!* ENDIF + *!* this.AlwaysOnTop = .T. + *!* ENDIF + + *!* IF USED("crsActTemp") + *!* USE IN crsActTemp + *!* ENDIF + + ENDPROC + + PROCEDURE Init + this.WindowState= 2 + DODEFAULT() + + ENDPROC + + PROCEDURE grdConturi.AfterRowColChange + LPARAMETERS nColIndex + DELETE FROM crsFacturi + thisform.grdFacturi.Refresh() + ENDPROC + + PROCEDURE grdFacturi.cAles.Check1.Click + *!* SELECT crsFacturi + *!* CALCULATE SUM(ABS(diferenta)) FOR ales = 1 AND diferenta > 0 TO thisform.ndiferentafavorabila + *!* CALCULATE SUM(ABS(diferenta)) FOR ales = 1 AND diferenta < 0 TO thisform.ndiferentanefavorabila + *!* GO TOP + + SELECT SUM(NVL(ABS(diferenta),0.00)) AS difFav FROM crsFacturi WITH (BUFFERING = .T.) ; + WHERE ales = 1 AND diferenta > 0 ; + INTO CURSOR cDifFav + + THISFORM.ndiferentafavorabila = NVL(difFav,0.00) + + IF USED('cDifFav') + USE IN cDifFav + ENDIF + + SELECT SUM(NVL(ABS(diferenta),0.00)) AS difNefav FROM crsFacturi WITH (BUFFERING = .T.) ; + WHERE ales = 1 AND diferenta < 0 ; + INTO CURSOR cDifNefav + + THISFORM.ndiferentanefavorabila = NVL(difNefav,0.00) + + IF USED('cDifNefav') + USE IN cDifNefav + ENDIF + + THISFORM.txtDiferentaFavorabila.REFRESH() + THISFORM.txtdiferentaNefavorabila.REFRESH() + + ENDPROC + + PROCEDURE grdValuta.DblClick + SELECT V_VALUTA + APPEND BLANK + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_actualizare_tva 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_renunt1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_luna_intre1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="ck_act" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="ck_ireg_part" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="ck_note" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lb_explicatie" UniqueID="" Timestamp="" /> + + * + *p: ctip + * + + * + BindControls = .T. + ctip = + DoCreate = .T. + Height = 180 + Name = "frm_actualizare_tva" + Width = 338 + _SHAPE1.Name = "_SHAPE1" + _SHAPE1.Width = 338 + _SHAPE2.Height = 29 + _SHAPE2.Left = 268 + _SHAPE2.Name = "_SHAPE2" + _SHAPE2.Top = 0 + _SHAPE2.Width = 71 + LB_TITLU_ALB_B121.Caption = "Actualizari TVA" + LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121" + LB_TITLU_ALB_B121.TabIndex = 7 + BUT_TERMIN1.Left = 305 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 5 + BUT_TERMIN1.Top = 1 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Left = 272, ; + Name = "But_renunt1", ; + TabIndex = 6, ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'ck_act' AS _checkbox WITH ; + Alignment = 0, ; + Caption = "Registrul jurnal", ; + ControlSource = "pnActAct", ; + Left = 51, ; + Name = "ck_act", ; + TabIndex = 2, ; + Top = 108 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'ck_ireg_part' AS _checkbox WITH ; + Alignment = 0, ; + Caption = "Inregistrarile de parteneri", ; + ControlSource = "pnActIregPart", ; + Height = 17, ; + Left = 51, ; + Name = "ck_ireg_part", ; + TabIndex = 3, ; + Top = 126 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'ck_note' AS _checkbox WITH ; + Alignment = 0, ; + Caption = "Notele contabile", ; + ControlSource = "pnActNote", ; + Left = 51, ; + Name = "ck_note", ; + TabIndex = 4, ; + Top = 146 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Clb_luna_intre1' AS clb_luna_intre WITH ; + Left = 25, ; + Name = "Clb_luna_intre1", ; + TabIndex = 1, ; + Top = 49, ; + tx_n1.ControlSource = "pcAnLuna1", ; + tx_n1.Name = "tx_n1", ; + Lb_simplu1.Caption = "Interval", ; + Lb_simplu1.Name = "Lb_simplu1", ; + tx_n2.ControlSource = "pcAnLuna2", ; + tx_n2.Name = "tx_n2" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'lb_explicatie' AS lb_simplu WITH ; + Caption = "Se actualizeaza", ; + Left = 19, ; + Name = "lb_explicatie", ; + TabIndex = 8, ; + Top = 89 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + PROCEDURE inainte_de_do_termin + Local llReturn + Do Case + Case Empty(pnActAct) And Empty(pnActIregPart) And Empty(pnActNote) + amessagebox("Nu ati ales tabelele ce trebuie actualizate!",0+48,"Atentie") + Thisform.ck_act.SetFocus() + llReturn = .F. + Case Empty(pcAnLuna1) + amessagebox("Nu ati completat luna de inceput!",0+48,"Atentie") + Thisform.clb_luna_intre1.tx_n1.SetFocus() + llReturn=.F. + Case Empty(pcAnLuna2) + amessagebox("Nu ati completat luna de sfarsit!",0+48,"Atentie") + Thisform.clb_luna_intre1.tx_n2.SetFocus() + llReturn=.F. + Otherwise + llReturn=.T. + Endcase + Return llReturn + + ENDPROC + +ENDDEFINE diff --git a/Clase/oconfigcont.vc2 b/Clase/oconfigcont.vc2 new file mode 100644 index 0000000..3a54925 --- /dev/null +++ b/Clase/oconfigcont.vc2 @@ -0,0 +1,500 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="oconfigcont.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS imob_conturi 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="grid1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cAcont.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cAcont.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cCont.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cCont.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cSCD.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cSCD.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cASCD.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cASCD.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cSCC.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cSCC.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cASCC.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cASCC.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cId.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cId.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cSectie.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cSectie.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cSectie._combobox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + + * + BorderStyle = 3 + DoCreate = .T. + Height = 440 + Name = "imob_conturi" + Width = 710 + WindowState = 2 + _shape1.Anchor = 10 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 714 + _shape2.Anchor = 8 + _shape2.Left = 719 + _shape2.Name = "_shape2" + _shape2.Top = -1 + _shape2.Visible = .F. + Lb_titlu_alb_b121.Caption = "Configurare note inchidere amortizare" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 7 + BUT_TERMIN1.Anchor = 8 + BUT_TERMIN1.Left = 677 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 2 + BUT_TERMIN1.Top = 1 + BUT_TERMIN1.Visible = .T. + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT 'But_excel1' AS but_excel WITH ; + Anchor = 8, ; + Left = 557, ; + Name = "But_excel1", ; + TabIndex = 6, ; + Top = 1, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_nou1' AS but_nou WITH ; + Anchor = 8, ; + Left = 586, ; + Name = "But_nou1", ; + TabIndex = 5, ; + Top = 1, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Anchor = 8, ; + Left = 646, ; + Name = "But_renunt1", ; + TabIndex = 3, ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge1' AS but_sterge WITH ; + Anchor = 8, ; + Left = 616, ; + Name = "But_sterge1", ; + TabIndex = 4, ; + Top = 1, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'grid1' AS _grdbase WITH ; + Anchor = 15, ; + ColumnCount = 8, ; + DeleteMark = .F., ; + FontName = "Arial", ; + Height = 398, ; + Left = 8, ; + Name = "grid1", ; + Panel = 1, ; + RecordSource = "imob_conturi", ; + RowHeight = 18, ; + TabIndex = 1, ; + Top = 38, ; + Width = 700, ; + Column1.ColumnOrder = 2, ; + Column1.ControlSource = "acont", ; + Column1.FontName = "Arial", ; + Column1.FontSize = 9, ; + Column1.Format = "K", ; + Column1.Name = "cAcont", ; + Column1.Width = 55, ; + Column2.ColumnOrder = 1, ; + Column2.ControlSource = "cont", ; + Column2.FontName = "Arial", ; + Column2.FontSize = 9, ; + Column2.Format = "K", ; + Column2.Name = "cCont", ; + Column2.Width = 69, ; + Column3.ColumnOrder = 4, ; + Column3.ControlSource = "scd", ; + Column3.FontName = "Arial", ; + Column3.FontSize = 9, ; + Column3.Format = "K", ; + Column3.Name = "cSCD", ; + Column3.Width = 73, ; + Column4.ColumnOrder = 5, ; + Column4.ControlSource = "ascd", ; + Column4.FontName = "Arial", ; + Column4.FontSize = 9, ; + Column4.Format = "K", ; + Column4.Name = "cASCD", ; + Column4.Width = 75, ; + Column5.ColumnOrder = 6, ; + Column5.ControlSource = "scc", ; + Column5.FontName = "Arial", ; + Column5.FontSize = 9, ; + Column5.Format = "K", ; + Column5.Name = "cSCC", ; + Column5.Width = 68, ; + Column6.ColumnOrder = 7, ; + Column6.ControlSource = "ascc", ; + Column6.FontName = "Arial", ; + Column6.FontSize = 9, ; + Column6.Format = "K", ; + Column6.Name = "cASCC", ; + Column6.Width = 81, ; + Column7.ColumnOrder = 8, ; + Column7.ControlSource = "id", ; + Column7.FontName = "Arial", ; + Column7.FontSize = 9, ; + Column7.Name = "cId", ; + Column7.ReadOnly = .T., ; + Column7.Width = 55, ; + Column8.Bound = .F., ; + Column8.ColumnOrder = 3, ; + Column8.ControlSource = "Iif(Seek(imob_conturi.id_sectie,'vnom_sectii','id_sectie'),vnom_sectii.sectie,'')", ; + Column8.CurrentControl = "_combobox1", ; + Column8.FontName = "Arial", ; + Column8.Name = "cSectie", ; + Column8.Sparse = .F., ; + Column8.Width = 182 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grid1.cAcont.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Analitic", ; + FontName = "Arial", ; + FontSize = 9, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.cAcont.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 9, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid1.cASCC.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Analitic amort.", ; + FontName = "Arial", ; + FontSize = 9, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.cASCC.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 9, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid1.cASCD.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Analitic chelt.", ; + FontName = "Arial", ; + FontSize = 9, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.cASCD.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 9, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid1.cCont.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont", ; + FontName = "Arial", ; + FontSize = 9, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.cCont.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 9, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid1.cId.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id", ; + FontName = "Arial", ; + FontSize = 9, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.cId.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 9, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid1.cSCC.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont amort.", ; + FontName = "Arial", ; + FontSize = 9, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.cSCC.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 9, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid1.cSCD.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont chelt.", ; + FontName = "Arial", ; + FontSize = 9, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.cSCD.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 9, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid1.cSectie._combobox1' AS _combobox WITH ; + BorderStyle = 0, ; + BoundColumn = 2, ; + BoundTo = .T., ; + ControlSource = "imob_conturi.id_sectie", ; + Left = 119, ; + Name = "_combobox1", ; + RowSource = "select vnom_sectii.sectie, id_sectie from vnom_sectii into cursor crsSectii order by sectie", ; + RowSourceType = 3, ; + Top = 81 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" /> + + ADD OBJECT 'grid1.cSectie.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sectie", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.cSectie.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridextra1' AS gridextra WITH ; + gridexpression = Thisform.grid1, ; + Left = 624, ; + Name = "Gridextra1", ; + Top = 120 + *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> + + PROCEDURE do_adauga + LOCAL loRec + Sele imob_conturi + IF !EMPTY(NVL(cont,'')) + SCATTER NAME loRec FIELDS EXCEPT id + ENDIF + + APPEND BLANK + IF TYPE('loRec') = 'O' + GATHER NAME loRec + ENDIF + + thisform.grid1.cCont.text1.SetFocus() + Thisform.grid1.Refresh() + + ENDPROC + + PROCEDURE do_excel + DO export_excel_grid WITH thisform.grid1 + ENDPROC + + PROCEDURE do_sterge + Select imob_conturi + lcCont = Alltrim(Cont) + Iif(!Empty(Nvl(acont, '')), '.' + Alltrim(acont),"") + + If AMESSAGEBOX('Se sterge configurarea pentru contul ' + m.lcCont,4+32,_Screen.Caption) <> 6 + Return + Endif + Sele imob_conturi + Delete + Try + Skip -1 + Catch + GO TOP + Endtry + + Thisform.grid1.SetFocus() + + + + ENDPROC + + PROCEDURE inainte_de_do_termin + Local llSucces, llSucces2, lcText + Local lcDeleted, lcExec + PRIVATE poRec + llSucces = .T. + lcText = '' + Wait Window 'Se actualizeaza inregistrarile...' Nowait + + SELECT id_sectie, sectie, cont, acont, COUNT(*) as nr FROM imob_conturi GROUP BY id_sectie, sectie, cont, acont HAVING COUNT(*) > 1 INTO CURSOR cVerificareTemp + IF _tally > 0 + llSucces = .F. + SELECT cVerificareTemp + SCAN + lcText = lcText + ALLTRIM(sectie) + ' ' + ALLTRIM(cont) + IIF(!EMPTY(NVL(acont,'')), '.' + ALLTRIM(acont), '') + CHR(13) + CHR(10) + ENDSCAN + USE IN (SELECT('cVerificareTemp')) + lcText = 'Conturile urmatoare apar de mai multe ori in lista. Pastrati o singura pozitie!' + CHR(13) + CHR(10) + m.lcText + AMESSAGEBOX(m.lcText,0+48,_screen.Caption) + ENDIF + IF !m.llSucces + RETURN m.llSucces + endi + + llSucces = This.do_deschide_tranzactie() + If m.llSucces + lcDeleted = Set("Deleted") + Set Deleted Off + + Select imob_conturi + Scan + Scatter Name poRec + WAIT WINDOW TRANSFORM(RECNO()) + '/' + TRANSFORM(RECCOUNT()) NOWAIT + lcExec = '' + poRec.id_sectie = IIF(EMPTY(NVL(poRec.id_sectie,0)), NULL, poRec.id_sectie) + + If !Empty(Nvl(poRec.Id, 0)) + If Deleted() + lcExec = 'DELETE FROM imob_inchidere WHERE id = ?poRec.id' + Else + lcExec = 'UPDATE imob_inchidere set id_sectie = ?poRec.id_sectie, cont = TRIM(?poRec.cont), acont = TRIM(?poRec.acont), scd = TRIM(?poRec.scd), ascd = TRIM(?poRec.ascd), scc = TRIM(?poRec.scc), ascc = TRIM(?poRec.ascc) WHERE id = ?poRec.id' + Endif + Else + If !Deleted() + lcExec = 'INSERT INTO imob_inchidere (id_sectie, cont, acont, scd, ascd, scc, ascc) values (?poRec.id_sectie, TRIM(?poRec.cont), TRIM(?poRec.acont), TRIM(?poRec.scd), TRIM(?poRec.ascd), TRIM(?poRec.scc), TRIM(?poRec.ascc))' + Endif + Endif + If !Empty(m.lcExec) + lnSucces = goExecutor.oExecute(m.lcExec) + llSucces = (m.lnSucces > 0) + If !m.llSucces + AMESSAGEBOX('Sectie: ' + ALLTRIM(NVL(sectie,'')) + ' Cont: ' + ALLTRIM(NVL(poRec.cont,'')) + ; + IIF(!EMPTY(NVL(poRec.acont,'')), '.' + ALLTRIM(poRec.acont), '') + CHR(13) + CHR(10) + ; + goExecutor.oPrelucrareEroare(),0+48,_screen.Caption) + Exit + Endif + Endif + Endscan + If m.llSucces + llSucces = This.do_inchide_tranzactie(1) && COMMIT + Else + llSucces2 = This.do_inchide_tranzactie(2) && ROLLBACK + Endif + Set Deleted &lcDeleted + Endif + + Return m.llSucces + + ENDPROC + + PROCEDURE Init + DODEFAULT() + + this.WindowState = 2 + this.grid1.AutoFit() + lnHeight = this.Height + *!* this.WindowState = 0 + this.Width = 500 + this.Height = m.lnHeight + + + this.gridextra1.setup() + + ENDPROC + + PROCEDURE grid1.cAcont.Text1.LostFocus + PARAMETERS PlClick + lcCont = ALLTRIM(NVL(cont,'')) + lcAcont = ALLTRIM(NVL(acont,'')) + llReturn = verific_analitic(m.plClick, m.lcCont, m.lcAcont,'acont','imob_conturi') && in oOperatii_comune.prg + ENDPROC + + PROCEDURE grid1.cASCC.Text1.LostFocus + PARAMETERS PlClick + lcCont = ALLTRIM(NVL(scc,'')) + lcAcont = ALLTRIM(NVL(ascc,'')) + llReturn = verific_analitic(m.plClick, m.lcCont, m.lcAcont,'ascc','imob_conturi') && in oOperatii_comune.prg + ENDPROC + + PROCEDURE grid1.cASCD.AddObject + LPARAMETERS cName, cClass + ENDPROC + + PROCEDURE grid1.cASCD.Text1.LostFocus + PARAMETERS PlClick + lcCont = ALLTRIM(NVL(scd,'')) + lcAcont = ALLTRIM(NVL(ascd,'')) + llReturn = verific_analitic(m.plClick, m.lcCont, m.lcAcont,'ascd','imob_conturi') && in oOperatii_comune.prg + ENDPROC + + PROCEDURE grid1.cSectie._combobox1.Valid + REPLACE sectie WITH crsSectii.sectie IN imob_conturi + ENDPROC + + PROCEDURE grid1.Init + * NU STERGE + ENDPROC + +ENDDEFINE diff --git a/Clase/oconversii.vc2 b/Clase/oconversii.vc2 new file mode 100644 index 0000000..df7bad1 --- /dev/null +++ b/Clase/oconversii.vc2 @@ -0,0 +1,641 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="oconversii.vcx" CPID="1250" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS frm_conversie_conturi 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="grdConturi" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConturi.cExplicatie.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConturi.cExplicatie.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConturi.cContVechi.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConturi.cContVechi.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConturi.cAcontVechi.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConturi.cAcontVechi.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConturi.cContNou.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConturi.cContNou.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConturi.cAcontNou.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConturi.cAcontNou.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConturi.cSeAplica.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConturi.cSeAplica.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConturi.cSeAplica.Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="BUT_RENUNT1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> + + * + *m: adaugare + *m: log + *m: modificare + *m: modificare_cont_balanta + *m: modificare_cont_plan + *m: stergere + *p: cacontnou + *p: cacontvechi + *p: ccontnou + *p: ccontvechi + *p: cconversie + *p: csubiectconversie + *p: lseaplica + *p: nid + *p: nseaplica + * + + * + BorderStyle = 1 + cacontnou = + cacontvechi = + ccontnou = + ccontvechi = + cconversie = + csubiectconversie = + DoCreate = .T. + Height = 521 + lseaplica = .F. + Name = "frm_conversie_conturi" + nid = 0 + nseaplica = 0 + Width = 599 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 600 + _shape2.Height = 29 + _shape2.Left = 606 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 24 + Lb_titlu_alb_b121.Caption = "Configurare conturi" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 7 + BUT_TERMIN1.Left = 568 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 2 + BUT_TERMIN1.Top = 1 + Gridsort1.Left = 9 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 27 + * + + ADD OBJECT 'But_modifica1' AS but_modifica WITH ; + Left = 477, ; + Name = "But_modifica1", ; + TabIndex = 5, ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_nou1' AS but_nou WITH ; + Left = 447, ; + Name = "But_nou1", ; + TabIndex = 6, ; + Top = 2 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'BUT_RENUNT1' AS but_renunt WITH ; + Left = 537, ; + Name = "BUT_RENUNT1", ; + TabIndex = 3, ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge1' AS but_sterge WITH ; + Left = 507, ; + Name = "But_sterge1", ; + TabIndex = 4, ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'grdConturi' AS _grdbase WITH ; + ColumnCount = 6, ; + DeleteMark = .F., ; + Height = 477, ; + HighlightStyle = 2, ; + Left = 8, ; + Name = "grdConturi", ; + Panel = 1, ; + ReadOnly = .T., ; + RecordSource = "crsConversieConturi", ; + TabIndex = 1, ; + Top = 37, ; + Width = 581, ; + Column1.ControlSource = "explicatie", ; + Column1.Name = "cExplicatie", ; + Column1.ReadOnly = .T., ; + Column1.Width = 233, ; + Column2.ControlSource = "cont_vechi", ; + Column2.Name = "cContVechi", ; + Column2.ReadOnly = .T., ; + Column2.Width = 61, ; + Column3.ControlSource = "acont_vechi", ; + Column3.Name = "cAcontVechi", ; + Column3.ReadOnly = .T., ; + Column3.Width = 74, ; + Column4.ControlSource = "cont_nou", ; + Column4.Name = "cContNou", ; + Column4.ReadOnly = .T., ; + Column4.Width = 58, ; + Column5.ControlSource = "acont_nou", ; + Column5.Name = "cAcontNou", ; + Column5.ReadOnly = .T., ; + Column5.Width = 67, ; + Column6.ControlSource = "se_aplica", ; + Column6.CurrentControl = "Check1", ; + Column6.Name = "cSeAplica", ; + Column6.ReadOnly = .T., ; + Column6.Sparse = .F., ; + Column6.Width = 52 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grdConturi.cAcontNou.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Analitic nou", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdConturi.cAcontNou.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdConturi.cAcontVechi.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Analitic vechi", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdConturi.cAcontVechi.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdConturi.cContNou.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont nou", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdConturi.cContNou.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdConturi.cContVechi.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont vechi", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdConturi.cContVechi.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdConturi.cExplicatie.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatie", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdConturi.cExplicatie.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdConturi.cSeAplica.Check1' AS checkbox WITH ; + Alignment = 2, ; + BackColor = 255,255,255, ; + Caption = "", ; + Height = 17, ; + Left = 29, ; + Name = "Check1", ; + ReadOnly = .T., ; + Top = 35, ; + Width = 60 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'grdConturi.cSeAplica.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Se aplica", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdConturi.cSeAplica.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE adaugare + LPARAMETERS toRec + + INSERT INTO crsConversieConturi FROM NAME toRec + + this.grdConturi.SetFocus() + + ENDPROC + + PROCEDURE do_adauga + PRIVATE pnId + pnId = 0 + + PRIVATE poRec + SELECT crsConversieConturi + SCATTER NAME poRec BLANK + poRec.tip_sold = "A" + poRec.conversie = this.cConversie + poRec.se_aplica = 1 + loFrmModifica= CREATEOBJECT("frm_conversie_conturi_nou") + loFrmModifica.show(1) + IF gnButon = 1 + lcSql = [BEGIN pack_conversie.adauga_cont(?@poRec.id, ?ALLTRIM(poRec.cont_vechi), ?ALLTRIM(poRec.acont_vechi), ?ALLTRIM(poRec.cont_nou), ?ALLTRIM(poRec.acont_nou), ?ALLTRIM(poRec.tip_sold), ?ALLTRIM(porec.explicatie), ?poRec.se_aplica, ?poRec.conversie); END;] + lnSucces = goExecutor.oExecute(lcSql) + IF lnSucces < 0 + AMESSAGEBOX(goExecutor.cEroare,0+16, 'Eroare') + ELSE + this.adaugare(poRec) + ENDIF + ENDIF + ENDPROC + + PROCEDURE do_modifica + IF RECCOUNT('crsConversieConturi') = 0 + RETURN + ENDIF + + PRIVATE poRec + SELECT crsConversieConturi + SCATTER NAME poRec + loFrmModifica= CREATEOBJECT("frm_conversie_conturi_nou") + loFrmModifica.show(1) + + IF gnButon = 1 + lcSql = [BEGIN pack_conversie.modifica_cont(?poRec.id, ?ALLTRIM(poRec.cont_vechi), ?ALLTRIM(poRec.acont_vechi), ?ALLTRIM(poRec.cont_nou), ?ALLTRIM(poRec.acont_nou), ?ALLTRIM(poRec.tip_sold), ?ALLTRIM(porec.explicatie), ?poRec.se_aplica, ] + [?ALLTRIM(UPPER(poRec.conversie))); END;] + lnSucces = goExecutor.oExecute(lcSql) + IF lnSucces < 0 + AMESSAGEBOX(goExecutor.cEroare,0+16, 'Eroare') + ELSE + this.modificare(poRec) + ENDIF + ENDIF + ENDPROC + + PROCEDURE do_sterge + PRIVATE poRec + SELECT crsConversieConturi + SCATTER NAME poRec + + IF AMESSAGEBOX('Doriti sa stergeti conversia ' + NVL(poRec.cont_vechi,'') + '.' + NVL(poRec.acont_vechi,'') + ' in ' + NVL(poRec.cont_nou,'') + '.' + NVL(poRec.acont_nou,'') + '?',4+32,'Sterge') = 6 + lcSql = [BEGIN pack_conversie.sterge_cont(?poRec.id); END;] + lnSucces = goExecutor.oExecute(lcSql) + IF lnSucces < 0 + AMESSAGEBOX(goExecutor.cEroare,0+16, 'Eroare') + ELSE + this.stergere(poRec) + ENDIF + ENDIF + + this.grdConturi.SetFocus() + ENDPROC + + PROCEDURE log + LPARAMETERS tctabela,tnId + + IF EMPTY(tnId) + tnId = 0 + ENDIF + lcId = ALLTRIM(STR(tnId)) + lctabela = UPPER(ALLTRIM(NVL(tctabela,''))) + PRIVATE polog,pcschema1,pcselect1 + STORE '' TO polog + pcschema1 = [''] + pcselect1=['select * from ] + gcS + [.vlog where '] + pcorder1=['dataora'] + pcfiltru1 = [tabel = '] + lctabela + ['] + IIF(!EMPTY(tnId), [ and id_tabel = ] + lcId , '') + gencursor('polog','v_log',pcselect1,pcfiltru1,pcschema1,pcorder1) + polog.ca_baza1.afisare() + ofrmlog=CREATEOBJECT('frm_log') + ofrmlog.show(1) + RELEASE polog + ENDPROC + + PROCEDURE modificare + LPARAMETERS toRec + + SELECT crsConversieConturi + GATHER NAME toRec + + this.grdConturi.SetFocus() + + + + ENDPROC + + PROCEDURE modificare_cont_balanta + ENDPROC + + PROCEDURE modificare_cont_plan + ENDPROC + + PROCEDURE stergere + LPARAMETERS toRec + SELECT crsConversieConturi + DELETE &&FOR ID = toRec.id + LOCATE + this.grdConturi.SetFocus() + ENDPROC + + PROCEDURE grdConturi.cContNou.Text1.Valid + LOCAL lnSucces, lcContNou + lnSucces = 1 + lcContNou = ALLTRIM(crsConversieConturi.cont_Nou) + IF lcContNou <> thisform.cContNou + IF AMESSAGEBOX('Doriti sa salvati?',4+32,'Modificare') = 6 + lnSucces = thisform.modificare("cont_Nou",thisform.nId, lcContNou) + ELSE + lnSucces = -1 + ENDIF + ENDIF + + IF lnSucces = -1 + REPLACE cont_Nou WITH thisform.cContNou IN crsConversieConturi + ENDIF + ENDPROC + + PROCEDURE grdConturi.cContNou.Text1.When + thisform.nId = crsConversieConturi.id + thisform.cContNou = crsConversieConturi.cont_nou + ENDPROC + + PROCEDURE grdConturi.cContVechi.Text1.Valid + LOCAL lnSucces, lcContNou + lnSucces = 1 + lcContNou = ALLTRIM(crsConversieConturi.cont_Nou) + IF lcContNou <> thisform.cContNou + IF AMESSAGEBOX('Doriti sa salvati?',4+32,'Modificare') = 6 + lnSucces = thisform.modificare("cont_Nou",thisform.nId, lcContNou) + ELSE + lnSucces = -1 + ENDIF + ENDIF + + IF lnSucces = -1 + REPLACE cont_Nou WITH thisform.cContNou IN crsConversieConturi + ENDIF + ENDPROC + + PROCEDURE grdConturi.cContVechi.Text1.When + thisform.nId = crsConversieConturi.id + thisform.cContNou = crsConversieConturi.cont_Nou + ENDPROC + + PROCEDURE grdConturi.cExplicatie.Text1.DblClick + thisform.log("CONVERSIE_CONTURI",crsConversieConturi.id) + ENDPROC + + PROCEDURE grdConturi.cSeAplica.Check1.When + thisform.nId = crsConversieConturi.id + thisform.nSeAplica = crsConversieConturi.se_aplica + ENDPROC + + PROCEDURE grdConturi.DblClick + thisform.log("CONVERSIE_CONTURI") + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_conversie_conturi_nou 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="clb_explicatie" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="clb_contvechi" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="clb_contnou" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="clb_acontvechi" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="clb_acontnou" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="chk_seaplica" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="clb_tipcont" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="BUT_RENUNT1" UniqueID="" Timestamp="" /> + + * + BorderStyle = 1 + DoCreate = .T. + Height = 176 + Name = "frm_conversie_conturi_nou" + Width = 375 + _shape1.Name = "_shape1" + _shape2.Height = 29 + _shape2.Left = 372 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 2 + Lb_titlu_alb_b121.Caption = "Conversie conturi" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 10 + BUT_TERMIN1.Left = 345 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 8 + BUT_TERMIN1.Top = 1 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT 'BUT_RENUNT1' AS but_renunt WITH ; + Left = 315, ; + Name = "BUT_RENUNT1", ; + TabIndex = 9, ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'chk_seaplica' AS _checkbox WITH ; + Alignment = 0, ; + Caption = "Se aplica", ; + ControlSource = "poRec.se_aplica", ; + Left = 9, ; + Name = "chk_seaplica", ; + TabIndex = 7, ; + Top = 154 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'clb_acontnou' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 135, ; + Name = "clb_acontnou", ; + TabIndex = 4, ; + Top = 64, ; + Width = 142, ; + TEXT_SIMPLU1.ControlSource = "poRec.acont_nou", ; + TEXT_SIMPLU1.Height = 23, ; + TEXT_SIMPLU1.Left = 83, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.Top = 3, ; + TEXT_SIMPLU1.Width = 55, ; + LB_SIMPLU1.Caption = "Analitic nou", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'clb_acontvechi' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 135, ; + Name = "clb_acontvechi", ; + TabIndex = 2, ; + Top = 36, ; + Width = 142, ; + TEXT_SIMPLU1.ControlSource = "poRec.acont_vechi", ; + TEXT_SIMPLU1.Height = 23, ; + TEXT_SIMPLU1.Left = 83, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.Top = 3, ; + TEXT_SIMPLU1.Width = 55, ; + LB_SIMPLU1.Caption = "Analitic vechi", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'clb_contnou' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 6, ; + Name = "clb_contnou", ; + TabIndex = 3, ; + Top = 64, ; + Width = 130, ; + TEXT_SIMPLU1.ControlSource = "poRec.cont_nou", ; + TEXT_SIMPLU1.Height = 23, ; + TEXT_SIMPLU1.Left = 71, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.Top = 3, ; + TEXT_SIMPLU1.Width = 55, ; + LB_SIMPLU1.Caption = "Cont nou", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'clb_contvechi' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 6, ; + Name = "clb_contvechi", ; + TabIndex = 1, ; + Top = 36, ; + Width = 130, ; + TEXT_SIMPLU1.ControlSource = "poRec.cont_vechi", ; + TEXT_SIMPLU1.Height = 23, ; + TEXT_SIMPLU1.Left = 71, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.Top = 3, ; + TEXT_SIMPLU1.Width = 55, ; + LB_SIMPLU1.Caption = "Cont vechi", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'clb_explicatie' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 6, ; + Name = "clb_explicatie", ; + TabIndex = 5, ; + Top = 92, ; + Width = 360, ; + TEXT_SIMPLU1.ControlSource = "poRec.explicatie", ; + TEXT_SIMPLU1.Height = 23, ; + TEXT_SIMPLU1.Left = 70, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.Top = 3, ; + TEXT_SIMPLU1.Width = 286, ; + LB_SIMPLU1.Caption = "Explicatie", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'clb_tipcont' AS cb_tx_simplu WITH ; + Height = 29, ; + Left = 6, ; + Name = "clb_tipcont", ; + TabIndex = 6, ; + Top = 120, ; + Width = 271, ; + _CBBASE1.ControlSource = "poRec.tip_sold", ; + _CBBASE1.Height = 23, ; + _CBBASE1.Left = 170, ; + _CBBASE1.Name = "_CBBASE1", ; + _CBBASE1.RowSource = "A,P,B", ; + _CBBASE1.RowSourceType = 1, ; + _CBBASE1.Top = 3, ; + _CBBASE1.Width = 99, ; + _LBBASE1.Caption = "Tip cont nou", ; + _LBBASE1.Name = "_LBBASE1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + PROCEDURE inainte_de_do_termin + DO CASE + CASE (EMPTY(poRec.cont_vechi) OR ISNULL(poRec.cont_vechi)) AND (EMPTY(poRec.cont_nou) OR ISNULL(poRec.cont_nou)) + AMESSAGEBOX('Completati contul nou',0+48,'Atentie') + THIS.clb_contnou.teXT_SIMPLU1.SetFocus() + RETURN .F. + CASE EMPTY(poRec.cont_nou) OR ISNULL(poRec.cont_nou) + AMESSAGEBOX('Completati contul nou',0+48,'Atentie') + THIS.clb_contnou.teXT_SIMPLU1.SetFocus() + RETURN .F. + CASE EMPTY(poRec.explicatie) OR ISNULL(poRec.explicatie) + AMESSAGEBOX('Completati explicatia',0+48,'Atentie') + THIS.clb_explicatie.teXT_SIMPLU1.SetFocus() + RETURN .F. + ENDCASE + ENDPROC + + PROCEDURE clb_tipcont._CBBASE1.Init + DO CASE + CASE porec.tip_sold = "A" + this.Value = "A" + CASE porec.tip_sold = "P" + this.Value = "P" + CASE porec.tip_sold = "B" + this.Value = "B" + OTHERWISE + **nada.. + ENDCASE + ENDPROC + + PROCEDURE clb_tipcont._CBBASE1.LostFocus + DO CASE + CASE this.Value = "Activ" + porec.tip_sold = "A" + CASE this.Value = "Pasiv" + porec.tip_sold = "P" + CASE this.Value = "Bifunctional" + porec.tip_sold = "B" + ENDCASE + ENDPROC + + PROCEDURE clb_tipcont._CBBASE1.Valid + DO CASE + CASE this.Value = "A" + porec.tip_sold = "A" + CASE this.Value = "P" + porec.tip_sold = "P" + CASE this.Value = "B" + porec.tip_sold = "B" + ENDCASE + ENDPROC + +ENDDEFINE diff --git a/Clase/odebcred.vc2 b/Clase/odebcred.vc2 new file mode 100644 index 0000000..d1789c3 --- /dev/null +++ b/Clase/odebcred.vc2 @@ -0,0 +1,1610 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="odebcred.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS frm_debcred 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="_grdbase1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cDataAct.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cDataAct.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cNrAct.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cNrAct.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cSuma.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cSuma.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cExpl3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cExpl3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cScd.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cScd.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cScc.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cScc.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cExpl1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cExpl1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cExpl2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cExpl2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cDataIreg.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cDataIreg.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFelDoc.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFelDoc.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cUtil.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cUtil.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cDataOra.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cDataOra.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column13.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column13.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column14.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column14.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cSerie_act.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cSerie_act.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cExplicatieTVA.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cExplicatieTVA.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_titlu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listare" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_total" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" /> + + * + BorderStyle = 3 + DoCreate = .T. + Height = 430 + Name = "frm_debcred" + Width = 752 + WindowState = 2 + _shape1.Anchor = 10 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 756 + _shape2.Anchor = 9 + _shape2.Height = 29 + _shape2.Left = 659 + _shape2.Name = "_shape2" + _shape2.Top = -1 + _shape2.Width = 93 + Lb_titlu_alb_b121.FontBold = .T. + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 4 + BUT_TERMIN1.Anchor = 8 + BUT_TERMIN1.Left = 721 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 3 + BUT_TERMIN1.Top = 0 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT '_grdbase1' AS _grdbase WITH ; + Anchor = 15, ; + ColumnCount = 16, ; + DeleteMark = .F., ; + Height = 312, ; + Left = 12, ; + Name = "_grdbase1", ; + Panel = 1, ; + RecordSource = "acn1", ; + TabIndex = 1, ; + Top = 72, ; + Width = 734, ; + Column1.ColumnOrder = 2, ; + Column1.ControlSource = "dataact", ; + Column1.FontName = "Arial", ; + Column1.Name = "cDataAct", ; + Column1.Width = 56, ; + Column2.ColumnOrder = 5, ; + Column2.ControlSource = "nract", ; + Column2.FontName = "Arial", ; + Column2.Name = "cNrAct", ; + Column2.Width = 46, ; + Column3.ColumnOrder = 8, ; + Column3.ControlSource = "suma", ; + Column3.FontName = "Arial", ; + Column3.InputMask = (get_mask(15,gnPa)), ; + Column3.Name = "cSuma", ; + Column3.Width = 91, ; + Column4.ColumnOrder = 14, ; + Column4.ControlSource = "explicatia", ; + Column4.FontName = "Arial", ; + Column4.Name = "cExpl3", ; + Column4.Width = 160, ; + Column5.ColumnOrder = 9, ; + Column5.ControlSource = "scd", ; + Column5.FontName = "Arial", ; + Column5.Name = "cScd", ; + Column5.Width = 59, ; + Column6.ColumnOrder = 11, ; + Column6.ControlSource = "scc", ; + Column6.FontName = "Arial", ; + Column6.Name = "cScc", ; + Column6.Width = 63, ; + Column7.ColumnOrder = 6, ; + Column7.ControlSource = "partD", ; + Column7.FontName = "Arial", ; + Column7.Name = "cExpl1", ; + Column7.Width = 118, ; + Column8.ColumnOrder = 7, ; + Column8.ControlSource = "partC", ; + Column8.FontName = "Arial", ; + Column8.Name = "cExpl2", ; + Column8.Width = 131, ; + Column9.ColumnOrder = 1, ; + Column9.ControlSource = "dataireg", ; + Column9.FontName = "Arial", ; + Column9.Name = "cDataIreg", ; + Column9.Width = 64, ; + Column10.ColumnOrder = 3, ; + Column10.ControlSource = "fdoc", ; + Column10.FontName = "Arial", ; + Column10.Name = "cFelDoc", ; + Column10.Width = 111, ; + Column11.ColumnOrder = 15, ; + Column11.ControlSource = "util", ; + Column11.FontName = "Arial", ; + Column11.Name = "cUtil", ; + Column11.Width = 51, ; + Column12.ColumnOrder = 16, ; + Column12.ControlSource = "dataora", ; + Column12.FontName = "Arial", ; + Column12.Name = "cDataOra", ; + Column12.Width = 30, ; + Column13.ColumnOrder = 10, ; + Column13.ControlSource = "ascd", ; + Column13.FontName = "Arial", ; + Column13.Name = "Column13", ; + Column13.Width = 52, ; + Column14.ColumnOrder = 12, ; + Column14.ControlSource = "ascc", ; + Column14.FontName = "Arial", ; + Column14.Name = "Column14", ; + Column14.Width = 52, ; + Column15.ColumnOrder = 4, ; + Column15.ControlSource = "serie_act", ; + Column15.FontName = "Arial", ; + Column15.Name = "cSerie_act", ; + Column15.Width = 59, ; + Column16.ColumnOrder = 13, ; + Column16.ControlSource = "explicatie_tva", ; + Column16.FontName = "Arial", ; + Column16.Name = "cExplicatieTVA", ; + Column16.Width = 80 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_grdbase1.cDataAct.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data doc.", ; + FontName = "Arial", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cDataAct.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cDataIreg.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data inreg.", ; + FontName = "Arial", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cDataIreg.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cDataOra.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data", ; + FontName = "Arial", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cDataOra.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cExpl1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Expl.1", ; + FontName = "Arial", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cExpl1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cExpl2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Expl.2", ; + FontName = "Arial", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cExpl2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cExpl3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Expl.3", ; + FontName = "Arial", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cExpl3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cExplicatieTVA.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatie TVA", ; + FontName = "Arial", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cExplicatieTVA.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cFelDoc.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Fel doc.", ; + FontName = "Arial", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cFelDoc.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cNrAct.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. doc.", ; + FontName = "Arial", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cNrAct.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column13.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "AnaliticD", ; + FontName = "Arial", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column13.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column14.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "AnaliticC", ; + FontName = "Arial", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column14.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cScc.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont Cred.", ; + FontName = "Arial", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cScc.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cScd.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont Deb.", ; + FontName = "Arial", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cScd.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cSerie_act.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Serie doc.", ; + FontName = "Arial", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cSerie_act.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cSuma.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Suma", ; + FontName = "Arial", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cSuma.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cUtil.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Utilizator", ; + FontName = "Arial", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cUtil.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'But_excel1' AS but_excel WITH ; + Anchor = 8, ; + Left = 659, ; + Name = "But_excel1", ; + Top = 0 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_listare' AS but_listare WITH ; + Anchor = 8, ; + Left = 690, ; + Name = "But_listare", ; + TabIndex = 2, ; + Top = 0, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Clb_total' AS clb_tx_simplu WITH ; + Anchor = 12, ; + Left = 456, ; + Name = "Clb_total", ; + TabIndex = 6, ; + TabStop = .F., ; + Top = 396, ; + Text_simplu1.InputMask = (get_mask(15,gnPA)), ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .T., ; + Lb_simplu1.Caption = "Total", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Gridextra1' AS gridextra WITH ; + gridexpression = Thisform._grdbase1, ; + Left = 152, ; + Name = "Gridextra1", ; + productname = ROA, ; + Top = 44 + *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> + + ADD OBJECT 'Lb_titlu1' AS lb_titlu_negru_b12 WITH ; + Anchor = 2, ; + Caption = "RULAJ", ; + Left = 24, ; + Name = "Lb_titlu1", ; + TabIndex = 5, ; + Top = 43 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + PROCEDURE actualizeaza_grid1 + Local lnSuma1,lcRec + Select acn1 + lcRec=Iif(Reccount()>0,Alltrim(Str(Recno())),'TOP') + Sum suma To lnSuma1 + Thisform.clb_total.text_simplu1.Value=lnSuma1 + Go &lcRec + ENDPROC + + PROCEDURE do_excel + export_excel_grid(thisform._grdbase1,'dataireg') + ENDPROC + + PROCEDURE do_listare + *!* Local lcTitlu + *!* PRIVATE pcdataora + *!* If Used('acn1') And Reccount('acn1')>0 + *!* lcTitlu=Thisform.lb_titlu1.Caption + *!* pcdataora=get_ora(2) + *!* Thisform.AlwaysOnTop= .F. + *!* Select acn1 + *!* Report Form ist_deb_cred To Printer Prompt Preview + *!* Thisform.AlwaysOnTop= .T. + *!* Else + *!* aMessagebox("Nu exista date pentru listare!",0+48,"Atentie") + *!* Endif + Private pcTitlu + pcTitlu = Thisform.lb_titlu1.Caption + Thisform.AlwaysOnTop = .F. + goExport.export2frx([acn1],[ist_deb_cred], , , , , , .T.) + Thisform.AlwaysOnTop = .T. + + ENDPROC + + PROCEDURE Init + DODEFAULT() + this.WindowState = 2 + thisform.actualizeaza_grid1() + this.gridextra1.setup() + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_debsicred 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="_grdbase1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cDataAct.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cDataAct.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cNrAct.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cNrAct.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cSuma.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cSuma.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cExpl3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cExpl3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cScd.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cScd.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cScc.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cScc.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cExpl1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cExpl1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cExpl2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cExpl2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cDataIreg.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cDataIreg.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFelDoc.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFelDoc.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column11.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column11.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column12.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column12.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cSerie_act.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cSerie_act.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_titlu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_titlu2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listaredebit" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listarecredit" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase2.cDataAct.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase2.cDataAct.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase2.cNrAct.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase2.cNrAct.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase2.cSuma.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase2.cSuma.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase2.cExpl3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase2.cExpl3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase2.cScd.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase2.cScd.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase2.cScc.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase2.cScc.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase2.cExpl1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase2.cExpl1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase2.cExpl2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase2.cExpl2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase2.cDataIreg.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase2.cDataIreg.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase2.cFelDoc.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase2.cFelDoc.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase2.Column11.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase2.Column11.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase2.Column12.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase2.Column12.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase2.cSerie_act.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase2.cSerie_act.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_totaldebit" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_totalcredit" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_excel2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridextra2" UniqueID="" Timestamp="" /> + + * + *m: do_excel2 + *m: do_listare2 + * + + * + BorderStyle = 3 + cbuton1 = but_excel1;but_excel2 + DoCreate = .T. + Height = 433 + Name = "frm_debsicred" + Width = 752 + WindowState = 2 + _shape1.Anchor = 10 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 759 + _shape2.Anchor = 8 + _shape2.Height = 29 + _shape2.Left = 720 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 33 + Lb_titlu_alb_b121.FontBold = .T. + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 6 + BUT_TERMIN1.Anchor = 8 + BUT_TERMIN1.Left = 721 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 5 + BUT_TERMIN1.Top = 1 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT '_grdbase1' AS _grdbase WITH ; + Anchor = 135, ; + ColumnCount = 13, ; + DeleteMark = .F., ; + Height = 312, ; + Left = 7, ; + Name = "_grdbase1", ; + Panel = 1, ; + RecordSource = "acn1", ; + TabIndex = 1, ; + Top = 72, ; + Width = 364, ; + Column1.ControlSource = "TTOD(dataact)", ; + Column1.FontName = "Arial", ; + Column1.Name = "cDataAct", ; + Column1.Width = 56, ; + Column2.ColumnOrder = 3, ; + Column2.ControlSource = "nract", ; + Column2.FontName = "Arial", ; + Column2.Name = "cNrAct", ; + Column2.Width = 71, ; + Column3.ColumnOrder = 4, ; + Column3.ControlSource = "suma", ; + Column3.FontName = "Arial", ; + Column3.InputMask = (get_mask(15,gnPa)), ; + Column3.Name = "cSuma", ; + Column3.Width = 88, ; + Column4.ColumnOrder = 5, ; + Column4.ControlSource = "explicatia", ; + Column4.FontName = "Arial", ; + Column4.Name = "cExpl3", ; + Column4.Width = 80, ; + Column5.ColumnOrder = 6, ; + Column5.ControlSource = "scd", ; + Column5.FontName = "Arial", ; + Column5.Name = "cScd", ; + Column5.Width = 55, ; + Column6.ColumnOrder = 8, ; + Column6.ControlSource = "scc", ; + Column6.FontName = "Arial", ; + Column6.Name = "cScc", ; + Column6.Width = 63, ; + Column7.ColumnOrder = 10, ; + Column7.ControlSource = "partD", ; + Column7.FontName = "Arial", ; + Column7.Name = "cExpl1", ; + Column7.Width = 110, ; + Column8.ColumnOrder = 11, ; + Column8.ControlSource = "partC", ; + Column8.FontName = "Arial", ; + Column8.Name = "cExpl2", ; + Column8.Width = 110, ; + Column9.ColumnOrder = 12, ; + Column9.ControlSource = "TTOD(dataireg)", ; + Column9.FontName = "Arial", ; + Column9.Name = "cDataIreg", ; + Column9.Width = 64, ; + Column10.ColumnOrder = 13, ; + Column10.ControlSource = "fdoc", ; + Column10.FontName = "Arial", ; + Column10.Name = "cFelDoc", ; + Column10.Width = 95, ; + Column11.ColumnOrder = 7, ; + Column11.ControlSource = "ascd", ; + Column11.FontName = "Arial", ; + Column11.Name = "Column11", ; + Column11.Width = 52, ; + Column12.ColumnOrder = 9, ; + Column12.ControlSource = "ascc", ; + Column12.FontName = "Arial", ; + Column12.Name = "Column12", ; + Column12.Width = 52, ; + Column13.ColumnOrder = 2, ; + Column13.ControlSource = "serie_act", ; + Column13.FontName = "Arial", ; + Column13.Name = "cSerie_act", ; + Column13.Width = 60 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_grdbase1.cDataAct.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data doc.", ; + FontName = "Arial", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cDataAct.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cDataIreg.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data inreg.", ; + FontName = "Arial", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cDataIreg.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cExpl1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Expl.1", ; + FontName = "Arial", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cExpl1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cExpl2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Expl.2", ; + FontName = "Arial", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cExpl2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cExpl3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Expl.3", ; + FontName = "Arial", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cExpl3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cFelDoc.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Fel doc.", ; + FontName = "Arial", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cFelDoc.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cNrAct.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. doc.", ; + FontName = "Arial", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cNrAct.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column11.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "AnaliticD", ; + FontName = "Arial", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column11.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column12.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "AnaliticC", ; + FontName = "Arial", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column12.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cScc.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont Cred.", ; + FontName = "Arial", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cScc.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cScd.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont Deb.", ; + FontName = "Arial", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cScd.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cSerie_act.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Serie doc.", ; + FontName = "Arial", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cSerie_act.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cSuma.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Suma", ; + FontName = "Arial", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cSuma.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase2' AS _grdbase WITH ; + Anchor = 45, ; + ColumnCount = 13, ; + DeleteMark = .F., ; + Height = 312, ; + Left = 384, ; + Name = "_grdbase2", ; + Panel = 1, ; + RecordSource = "acn2", ; + TabIndex = 2, ; + Top = 72, ; + Width = 364, ; + Column1.ControlSource = "TTOD(dataact)", ; + Column1.FontName = "Arial", ; + Column1.Name = "cDataAct", ; + Column1.Width = 56, ; + Column2.ColumnOrder = 3, ; + Column2.ControlSource = "nract", ; + Column2.FontName = "Arial", ; + Column2.Name = "cNrAct", ; + Column2.Width = 64, ; + Column3.ColumnOrder = 4, ; + Column3.ControlSource = "suma", ; + Column3.FontName = "Arial", ; + Column3.InputMask = (get_mask(15,gnPA)), ; + Column3.Name = "cSuma", ; + Column3.Width = 88, ; + Column4.ColumnOrder = 5, ; + Column4.ControlSource = "explicatia", ; + Column4.FontName = "Arial", ; + Column4.Name = "cExpl3", ; + Column4.Width = 80, ; + Column5.ColumnOrder = 6, ; + Column5.ControlSource = "scd", ; + Column5.FontName = "Arial", ; + Column5.Name = "cScd", ; + Column5.Width = 59, ; + Column6.ColumnOrder = 8, ; + Column6.ControlSource = "scc", ; + Column6.FontName = "Arial", ; + Column6.Name = "cScc", ; + Column6.Width = 63, ; + Column7.ColumnOrder = 10, ; + Column7.ControlSource = "partD", ; + Column7.FontName = "Arial", ; + Column7.Name = "cExpl1", ; + Column7.Width = 110, ; + Column8.ColumnOrder = 11, ; + Column8.ControlSource = "partC", ; + Column8.FontName = "Arial", ; + Column8.Name = "cExpl2", ; + Column8.Width = 110, ; + Column9.ColumnOrder = 12, ; + Column9.ControlSource = "TTOD(dataireg)", ; + Column9.FontName = "Arial", ; + Column9.Name = "cDataIreg", ; + Column9.Width = 48, ; + Column10.ColumnOrder = 13, ; + Column10.ControlSource = "fdoc", ; + Column10.FontName = "Arial", ; + Column10.Name = "cFelDoc", ; + Column10.Width = 95, ; + Column11.ColumnOrder = 7, ; + Column11.ControlSource = "ascd", ; + Column11.FontName = "Arial", ; + Column11.Name = "Column11", ; + Column11.Width = 55, ; + Column12.ColumnOrder = 9, ; + Column12.ControlSource = "ascc", ; + Column12.FontName = "Arial", ; + Column12.Name = "Column12", ; + Column12.Width = 55, ; + Column13.ColumnOrder = 2, ; + Column13.ControlSource = "serie_act", ; + Column13.FontName = "Arial", ; + Column13.Name = "cSerie_act", ; + Column13.Width = 59 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_grdbase2.cDataAct.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data doc.", ; + FontName = "Arial", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase2.cDataAct.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase2.cDataIreg.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data inreg.", ; + FontName = "Arial", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase2.cDataIreg.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase2.cExpl1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Expl.1", ; + FontName = "Arial", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase2.cExpl1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase2.cExpl2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Expl.2", ; + FontName = "Arial", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase2.cExpl2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase2.cExpl3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Expl.3", ; + FontName = "Arial", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase2.cExpl3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase2.cFelDoc.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Fel doc.", ; + FontName = "Arial", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase2.cFelDoc.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase2.cNrAct.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. doc.", ; + FontName = "Arial", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase2.cNrAct.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase2.Column11.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Analitic D", ; + FontName = "Arial", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase2.Column11.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase2.Column12.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Analitic C", ; + FontName = "Arial", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase2.Column12.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase2.cScc.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont Cred.", ; + FontName = "Arial", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase2.cScc.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase2.cScd.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont Deb.", ; + FontName = "Arial", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase2.cScd.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase2.cSerie_act.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Serie doc.", ; + FontName = "Arial", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase2.cSerie_act.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase2.cSuma.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Suma", ; + FontName = "Arial", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase2.cSuma.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'But_excel1' AS but_excel WITH ; + Anchor = 129, ; + Left = 340, ; + Name = "But_excel1", ; + Top = 42, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_excel2' AS but_excel WITH ; + Anchor = 9, ; + caction = do_excel2, ; + Left = 718, ; + Name = "But_excel2", ; + Top = 42, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_listarecredit' AS but_listare WITH ; + Anchor = 9, ; + caction = do_listare2, ; + Left = 687, ; + Name = "But_listarecredit", ; + TabIndex = 4, ; + ToolTipText = "Listare (CTRL+I)", ; + Top = 42, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_listaredebit' AS but_listare WITH ; + Anchor = 129, ; + Left = 309, ; + Name = "But_listaredebit", ; + TabIndex = 3, ; + Top = 42, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Clb_totalcredit' AS clb_tx_simplu WITH ; + Anchor = 12, ; + Left = 458, ; + Name = "Clb_totalcredit", ; + TabIndex = 10, ; + TabStop = .F., ; + Top = 396, ; + Text_simplu1.InputMask = (get_mask(15,gnPA)), ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .T., ; + Lb_simplu1.Caption = "Total credit", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_totaldebit' AS clb_tx_simplu WITH ; + Anchor = 132, ; + Left = 80, ; + Name = "Clb_totaldebit", ; + TabIndex = 9, ; + TabStop = .F., ; + Top = 396, ; + Text_simplu1.InputMask = (get_mask(15,gnPA)), ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .T., ; + Lb_simplu1.Caption = "Total debit", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Gridextra1' AS gridextra WITH ; + gridexpression = Thisform._grdbase1, ; + Left = 144, ; + Name = "Gridextra1", ; + productname = ROA, ; + Top = 36 + *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> + + ADD OBJECT 'Gridextra2' AS gridextra WITH ; + gridexpression = Thisform._grdbase2, ; + Left = 480, ; + Name = "Gridextra2", ; + productname = ROA, ; + Top = 48 + *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> + + ADD OBJECT 'Lb_titlu1' AS lb_titlu_negru_b12 WITH ; + Anchor = 2, ; + Caption = "DEBIT", ; + Left = 24, ; + Name = "Lb_titlu1", ; + TabIndex = 7, ; + Top = 43 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_titlu2' AS lb_titlu_negru_b12 WITH ; + Anchor = 33, ; + Caption = "CREDIT", ; + Left = 382, ; + Name = "Lb_titlu2", ; + TabIndex = 8, ; + Top = 43 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + PROCEDURE actualizeaza_grid1 + Local lnSuma1,lcRec + Select acn1 + lcRec=Iif(Reccount()>0,Alltrim(Str(Recno())),'TOP') + Sum suma To lnSuma1 + Thisform.clb_totaldebit.text_simplu1.Value=lnSuma1 + Go &lcRec + ENDPROC + + PROCEDURE actualizeaza_grid2 + Local lnSuma2,lnRec + Select acn2 + lcRec=Iif(Reccount()>0,Alltrim(Str(Recno())),'TOP') + Sum suma To lnSuma2 + Thisform.clb_totalcredit.text_simplu1.Value=lnSuma2 + Go &lcRec + ENDPROC + + PROCEDURE do_excel + export_excel_grid(thisform._grdbase1,'dataireg') + ENDPROC + + PROCEDURE do_excel2 + export_excel_grid(thisform._grdbase2,'dataireg') + ENDPROC + + PROCEDURE do_listare + Local lcTitlu + PRIVATE pcdataora + If Used('acn1') And Reccount('acn1')>0 + lcTitlu=Thisform.lb_titlu1.Caption + pcdataora=get_ora(2) + Thisform.AlwaysOnTop= .F. + Select acn1 + *!* Report Form ist_deb_cred To Printer Prompt Preview + goExport.export2frx('acn1','ist_deb_cred', , , , , , .T.) + Thisform.AlwaysOnTop= .T. + Else + aMessagebox("Nu exista date pentru listare!",0+48,"Atentie") + Endif + + ENDPROC + + PROCEDURE do_listare2 + Local lcTitlu + PRIVATE pcdataora + If Used('acn2') And Reccount('acn2')>0 + lcTitlu=Thisform.lb_titlu2.Caption + pcdataora=get_ora(2) + Thisform.AlwaysOnTop= .F. + Select acn2 + *!* Report Form ist_deb_cred To Printer Prompt Preview + goExport.export2frx('acn2','ist_deb_cred', , , , , , .T.) + Thisform.AlwaysOnTop= .T. + Else + aMessagebox("Nu exista date pentru listare!",0+48,"Atentie") + Endif + + ENDPROC + + PROCEDURE Init + DODEFAULT() + this.WindowState = 2 + thisform.actualizeaza_grid1() + thisform.actualizeaza_grid2() + + This.gridextra1.setup() + this.gridextra2.setup() + ENDPROC + + PROCEDURE KeyPress + Lparameters nKeyCode, nShiftAltCtrl + LOCAL lbviz + lbviz=thisform.bvizualizare + Do Case + Case nKeyCode=27 And nShiftAltCtrl=0 + Nodefault + If aMessagebox("Sunteti sigur ca doriti sa inchideti fereastra?",4+32+256,"Confirmare")==6 + This.do_renunt() + ENDIF + CASE nKeyCode=5 AND nShiftAltCtrl=2 AND lbviz=.F. + NODEFAULT + If PEMSTATUS(This,"do_excel",5) + this.do_excel() + ENDIF + Case nKeyCode=14 And nShiftAltCtrl=2 AND lbviz=.F. + NODEFAULT + If PEMSTATUS(This,"do_adauga",5) + This.do_adauga() + ENDIF + Case nKeyCode=13 And nShiftAltCtrl=2 AND lbviz=.F. + NODEFAULT + If PEMSTATUS(This,"do_modifica",5) + This.do_modifica() + ENDIF + Case nKeyCode=4 And nShiftAltCtrl=2 AND lbviz=.F. + NODEFAULT + If PEMSTATUS(This,"do_sterge",5) + This.do_sterge() + Endif + Case nKeyCode=6 And nShiftAltCtrl=2 + NODEFAULT + This.do_termin() + Case nKeyCode=16 And nShiftAltCtrl=2 AND lbviz=.F. + Nodefault + If PEMSTATUS(This,"do_listare",5) + This.do_listare() + ENDIF + Case nKeyCode=9 And nShiftAltCtrl=2 AND lbviz=.F. + Nodefault + If PEMSTATUS(This,"do_listare2",5) + This.do_listare2() + ENDIF + Endcase + ENDPROC + + PROCEDURE _grdbase1.Init + * Nu sterge + ENDPROC + + PROCEDURE _grdbase2.Init + * Nu sterge + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_seleluna AS _frmbase OF "..\libs\_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="_shape3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_luna" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_an" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Combo1" UniqueID="" Timestamp="" /> + + * + *p: aa + *p: ll + * + + * + DoCreate = .T. + Height = 100 + Name = "frm_seleluna" + Width = 295 + _SHAPE1.Name = "_SHAPE1" + _SHAPE1.Width = 295 + _SHAPE1.ZOrderSet = 1 + _SHAPE2.Height = 29 + _SHAPE2.Left = 229 + _SHAPE2.Name = "_SHAPE2" + _SHAPE2.Top = 0 + _SHAPE2.Width = 65 + _SHAPE2.ZOrderSet = 2 + LB_TITLU_ALB_B121.Caption = "Selectati anul si luna de inceput" + LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121" + LB_TITLU_ALB_B121.TabIndex = 4 + LB_TITLU_ALB_B121.ZOrderSet = 8 + BUT_TERMIN1.Enabled = .F. + BUT_TERMIN1.Left = 263 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 2 + BUT_TERMIN1.Top = 1 + BUT_TERMIN1.ZOrderSet = 3 + * + + ADD OBJECT '_shape3' AS _shape WITH ; + BackStyle = 0, ; + Height = 48, ; + Left = 24, ; + Name = "_shape3", ; + Top = 36, ; + Width = 252, ; + ZOrderSet = 0 + *< END OBJECT: ClassLib="..\libs\_baza.vcx" BaseClass="shape" /> + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Left = 232, ; + Name = "But_renunt1", ; + TabIndex = 3, ; + Top = 1, ; + ZOrderSet = 4 + *< END OBJECT: ClassLib="..\libs\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Combo1' AS _cbbase WITH ; + Height = 24, ; + Left = 47, ; + Name = "Combo1", ; + TabIndex = 1, ; + Top = 48, ; + Width = 80, ; + ZOrderSet = 7 + *< END OBJECT: ClassLib="..\libs\_cb_base.vcx" BaseClass="combobox" /> + + ADD OBJECT 'Lb_an' AS lb_simplu WITH ; + Caption = " ", ; + FontBold = .T., ; + FontSize = 12, ; + ForeColor = 0,0,128, ; + Left = 196, ; + Name = "Lb_an", ; + TabIndex = 6, ; + Top = 50, ; + ZOrderSet = 6 + *< END OBJECT: ClassLib="..\libs\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_luna' AS lb_simplu WITH ; + Caption = " ", ; + FontBold = .T., ; + FontSize = 12, ; + ForeColor = 0,0,128, ; + Left = 161, ; + Name = "Lb_luna", ; + TabIndex = 5, ; + Top = 50, ; + ZOrderSet = 5 + *< END OBJECT: ClassLib="..\libs\lb.vcx" BaseClass="label" /> + + PROCEDURE Destroy + IF USED('crscalendar') + USE IN crscalendar + ENDIF + ENDPROC + + PROCEDURE inainte_de_do_termin + m.an=thisform.aa + m.nl=thisform.ll + pcanul=thisform.aa + pcluna=thisform.ll + DODEFAULT() + ENDPROC + + PROCEDURE Init + DoDefault() + If Used('crscalendar') + Use In crscalendar + Endif + Select Padl(Alltrim(nl),2,"0") As nl,an From calendar Order By an,nl Into Cursor crscalendar + Select crscalendar + Thisform.ll=nl + Thisform.aa=an + Scan + Thisform.combo1.AddItem(nl+"/"+an) + Endscan + ENDPROC + + PROCEDURE Combo1.MouseLeave + LPARAMETERS nButton, nShift, nXCoord, nYCoord + pcluna=SUBSTR(this.Value,1,2) + pcanul=SUBSTR(this.Value,4) + Thisform.lb_luna.Caption=pcluna + Thisform.lb_an.Caption=pcanul + If !Empty(pcluna) And !Empty(pcanul) + Thisform.but_termin1.Enabled=.T. + Endif + + ENDPROC + + PROCEDURE Combo1.Valid + pcluna=Substr(This.Value,1,2) + pcanul=Substr(This.Value,4) + Thisform.lb_luna.Caption=pcluna + Thisform.lb_an.Caption=pcanul + If !Empty(pcluna) And !Empty(pcanul) + Thisform.but_termin1.Enabled=.T. + Endif + ENDPROC + +ENDDEFINE diff --git a/Clase/ointroduceri_cont.vc2 b/Clase/ointroduceri_cont.vc2 new file mode 100644 index 0000000..3041e28 --- /dev/null +++ b/Clase/ointroduceri_cont.vc2 @@ -0,0 +1,9634 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="ointroduceri_cont.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS frm_introd_compact AS formtermin OF "..\comun\clase\baza.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Container1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Container1.Item2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Container1.Item3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column6.Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column11.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column11.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column12.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column12.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column13.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column13.Combo1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column14.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column14.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column15.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column15.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column16.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column16.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Container2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Container2.Optiongroup1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Container2.Label_item1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Container2.Text_item1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Container2.Label_item2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Container2.Text_item2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Container2.Label_item3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Container2.Item2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Container2.Item1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Container2.Item3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Renunt1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Item1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Verif1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Resizable1" UniqueID="" Timestamp="" /> + + * + *m: calculez + *m: do_cauta_alfa + *m: do_cauta_partener + *m: la_iesire + *m: verificare + *m: verific_analitic + *m: verific_cont + *m: verific_inregistrari + *m: verific_partener + *p: achi + *p: casa + *p: cscc + *p: cscd + *p: datascad + *p: id_achi + *p: id_casa + *p: lverificaacont + *p: nrchit + *p: pcexceptii_scc + *p: pcexceptii_scd + *p: pcobj + *p: totctva + *p: totftva + *p: tva + * + + * + achi = '' + BorderStyle = 1 + casa = '' + cscc = + cscd = + datascad = + DataSession = 1 + DoCreate = .T. + Height = 458 + id_achi = 0 + id_casa = 0 + Name = "frm_introd_compact" + nrchit = 0 + pcobj = '' + ScrollBars = 0 + totctva = 0 + totftva = 0 + tva = 0 + Width = 801 + Shape1.Height = 36 + Shape1.Left = 0 + Shape1.Name = "Shape1" + Shape1.Top = 0 + Shape1.Width = 731 + Shape1.ZOrderSet = 2 + Terminat1.Command1.Name = "Command1" + Terminat1.Imbuton1.Height = 27 + Terminat1.Imbuton1.Name = "Imbuton1" + Terminat1.Imbuton1.Width = 30 + Terminat1.Left = 689 + Terminat1.Name = "Terminat1" + Terminat1.TabIndex = 6 + Terminat1.Top = 2 + Terminat1.Visible = .F. + Terminat1.ZOrderSet = 3 + Titlufrumos1.AutoSize = .T. + Titlufrumos1.Height = 20 + Titlufrumos1.Left = 7 + Titlufrumos1.Name = "Titlufrumos1" + Titlufrumos1.TabIndex = 9 + Titlufrumos1.Top = 4 + Titlufrumos1.Width = 104 + Titlufrumos1.WordWrap = .F. + Titlufrumos1.ZOrderSet = 4 + * + + ADD OBJECT 'Container1' AS container WITH ; + BackColor = 247,245,238, ; + BorderColor = 247,245,238, ; + Height = 50, ; + Left = 7, ; + Name = "Container1", ; + TabIndex = 3, ; + Top = 321, ; + Width = 787, ; + ZOrderSet = 1 + *< END OBJECT: BaseClass="container" /> + + ADD OBJECT 'Container1.Item2' AS item WITH ; + Comment = "m.tva", ; + Left = 186, ; + Name = "Item2", ; + TabIndex = 1, ; + Top = 1, ; + ZOrderSet = 7, ; + Label_item1.Caption = "TVA", ; + Label_item1.Name = "Label_item1", ; + Text_item1.ControlSource = "thisform.tva", ; + Text_item1.InputMask = (get_mask(12,gnPa)), ; + Text_item1.Name = "Text_item1", ; + Text_item1.SpecialEffect = 1, ; + Lineo1.Name = "Lineo1", ; + Lineo3.Name = "Lineo3", ; + Lineo4.Name = "Lineo4", ; + Lineo5.Name = "Lineo5", ; + Lineo2.Name = "Lineo2" + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="container" /> + + ADD OBJECT 'Container1.Item3' AS item WITH ; + Comment = "m.tva", ; + Left = 186, ; + Name = "Item3", ; + TabIndex = 2, ; + Top = 24, ; + ZOrderSet = 7, ; + Label_item1.Caption = "Total cu TVA", ; + Label_item1.Name = "Label_item1", ; + Text_item1.ControlSource = "thisform.totctva", ; + Text_item1.InputMask = (get_mask(12,gnPa)), ; + Text_item1.Name = "Text_item1", ; + Text_item1.SpecialEffect = 1, ; + Lineo1.Name = "Lineo1", ; + Lineo3.Name = "Lineo3", ; + Lineo4.Name = "Lineo4", ; + Lineo5.Name = "Lineo5", ; + Lineo2.Name = "Lineo2" + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="container" /> + + ADD OBJECT 'Container2' AS container WITH ; + BackColor = 247,245,238, ; + BorderColor = 247,245,238, ; + Height = 76, ; + Left = 7, ; + Name = "Container2", ; + TabIndex = 4, ; + Top = 377, ; + Width = 787, ; + ZOrderSet = 6 + *< END OBJECT: BaseClass="container" /> + + ADD OBJECT 'Container2.Item1' AS item WITH ; + Left = 241, ; + Name = "Item1", ; + Top = 29, ; + Visible = .F., ; + Label_item1.Caption = "Numele Achizitorului", ; + Label_item1.Name = "Label_item1", ; + Text_item1.ControlSource = "thisform.achi", ; + Text_item1.Name = "Text_item1", ; + Text_item1.ReadOnly = .T., ; + Lineo1.Name = "Lineo1", ; + Lineo3.Name = "Lineo3", ; + Lineo4.Name = "Lineo4", ; + Lineo5.Name = "Lineo5", ; + Lineo2.Name = "Lineo2" + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="container" /> + + ADD OBJECT 'Container2.Item2' AS item WITH ; + Left = 241, ; + Name = "Item2", ; + Top = 29, ; + Visible = .F., ; + Label_item1.Caption = "Casa Plati", ; + Label_item1.Name = "Label_item1", ; + Text_item1.ControlSource = "thisform.casa", ; + Text_item1.Name = "Text_item1", ; + Text_item1.ReadOnly = .T., ; + Lineo1.Name = "Lineo1", ; + Lineo3.Name = "Lineo3", ; + Lineo4.Name = "Lineo4", ; + Lineo5.Name = "Lineo5", ; + Lineo2.Name = "Lineo2" + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="container" /> + + ADD OBJECT 'Container2.Item3' AS item WITH ; + Left = 241, ; + Name = "Item3", ; + Top = 50, ; + Visible = .F., ; + Label_item1.Caption = "Nr. doc. justificat", ; + Label_item1.Name = "Label_item1", ; + Text_item1.ControlSource = "m.compensat", ; + Text_item1.Name = "Text_item1", ; + Text_item1.ReadOnly = .T., ; + Lineo1.Name = "Lineo1", ; + Lineo3.Name = "Lineo3", ; + Lineo4.Name = "Lineo4", ; + Lineo5.Name = "Lineo5", ; + Lineo2.Name = "Lineo2" + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="container" /> + + ADD OBJECT 'Container2.Label_item1' AS label_item WITH ; + Caption = "Achitat", ; + Left = 55, ; + Name = "Label_item1", ; + TabIndex = 3, ; + Top = 11 + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="label" /> + + ADD OBJECT 'Container2.Label_item2' AS label_item WITH ; + Caption = "cu chitanta nr:", ; + Left = 474, ; + Name = "Label_item2", ; + TabIndex = 5, ; + Top = 9, ; + Visible = .F. + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="label" /> + + ADD OBJECT 'Container2.Label_item3' AS label_item WITH ; + Caption = "data scadenta:", ; + Left = 243, ; + Name = "Label_item3", ; + TabIndex = 6, ; + Top = 9, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="label" /> + + ADD OBJECT 'Container2.Optiongroup1' AS optiongroup WITH ; + AutoSize = .F., ; + BackStyle = 0, ; + BorderColor = 247,245,238, ; + BorderStyle = 0, ; + ButtonCount = 3, ; + Height = 65, ; + Left = 128, ; + Name = "Optiongroup1", ; + TabIndex = 1, ; + Top = 6, ; + Value = 1, ; + Width = 97, ; + Option1.BackStyle = 0, ; + Option1.Caption = "\ + + ADD OBJECT 'Container2.Text_item1' AS text_item WITH ; + BorderColor = 192,192,192, ; + BorderStyle = 1, ; + ControlSource = "thisform.nrchit", ; + Height = 20, ; + Left = 582, ; + Name = "Text_item1", ; + TabIndex = 4, ; + Top = 8, ; + Visible = .F., ; + Width = 111 + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'Container2.Text_item2' AS text_item WITH ; + BorderColor = 192,192,192, ; + BorderStyle = 1, ; + ControlSource = "thisform.datascad", ; + Height = 20, ; + Left = 344, ; + Name = "Text_item2", ; + TabIndex = 2, ; + Top = 8, ; + Visible = .T., ; + Width = 100 + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'Gridb1' AS gridb WITH ; + BackColor = 244,250,255, ; + ColumnCount = 16, ; + FontName = "Arial Narrow", ; + FontSize = 9, ; + GridLineColor = 192,192,192, ; + Height = 254, ; + Left = 3, ; + listaord = 1,3,4, ; + Name = "Gridb1", ; + Panel = 1, ; + RecordSource = "INTRODC", ; + RowHeight = 20, ; + TabIndex = 1, ; + Top = 37, ; + Width = 795, ; + ZOrderSet = 5, ; + Column1.BackColor = 244,250,255, ; + Column1.ControlSource = "ordine", ; + Column1.FontName = "Arial Narrow", ; + Column1.FontSize = 9, ; + Column1.Header1.Alignment = 2, ; + Column1.Header1.BackColor = 212,208,200, ; + Column1.Header1.Caption = "Nr.crt", ; + Column1.Header1.FontName = "Arial Narrow", ; + Column1.Header1.FontSize = 9, ; + Column1.Header1.Name = "Header1", ; + Column1.Name = "Column1", ; + Column1.ReadOnly = .F., ; + Column1.Text1.BackColor = 244,250,255, ; + Column1.Text1.FontName = "Arial Narrow", ; + Column1.Text1.FontSize = 9, ; + Column1.Text1.Name = "Text1", ; + Column1.Text1.ReadOnly = .F., ; + Column1.Width = 28, ; + Column2.BackColor = 244,250,255, ; + Column2.ControlSource = "explicatie", ; + Column2.FontName = "Arial Narrow", ; + Column2.FontSize = 9, ; + Column2.Name = "Column2", ; + Column2.ReadOnly = .F., ; + Column2.Width = 98, ; + Column3.Alignment = 1, ; + Column3.BackColor = 255,255,255, ; + Column3.ColumnOrder = 5, ; + Column3.ControlSource = "scd", ; + Column3.DynamicForeColor = "rgb(0,0,128)", ; + Column3.FontName = "Arial Narrow", ; + Column3.FontSize = 9, ; + Column3.Name = "Column3", ; + Column3.Width = 42, ; + Column4.Alignment = 1, ; + Column4.BackColor = 255,255,255, ; + Column4.ColumnOrder = 7, ; + Column4.ControlSource = "scc", ; + Column4.DynamicForeColor = "rgb(0,0,128)", ; + Column4.FontName = "Arial Narrow", ; + Column4.FontSize = 9, ; + Column4.Name = "Column4", ; + Column4.Width = 45, ; + Column5.BackColor = 244,250,255, ; + Column5.ColumnOrder = 9, ; + Column5.ControlSource = "suma", ; + Column5.FontName = "Arial Narrow", ; + Column5.FontSize = 9, ; + Column5.Format = "", ; + Column5.InputMask = (get_mask(12,gnPa)), ; + Column5.Name = "Column5", ; + Column5.Width = 84, ; + Column6.BackColor = 244,250,255, ; + Column6.ColumnOrder = 14, ; + Column6.ControlSource = "cu_tva", ; + Column6.CurrentControl = "Check1", ; + Column6.FontName = "Arial Narrow", ; + Column6.FontSize = 9, ; + Column6.Name = "Column6", ; + Column6.Sparse = .F., ; + Column6.Visible = .T., ; + Column6.Width = 44, ; + Column7.BackColor = 244,250,255, ; + Column7.ColumnOrder = 6, ; + Column7.ControlSource = "ascd", ; + Column7.FontName = "Arial Narrow", ; + Column7.FontSize = 9, ; + Column7.Name = "Column7", ; + Column7.Width = 33, ; + Column8.BackColor = 244,250,255, ; + Column8.ColumnOrder = 8, ; + Column8.ControlSource = "ascc", ; + Column8.FontName = "Arial Narrow", ; + Column8.FontSize = 9, ; + Column8.Name = "Column8", ; + Column8.Width = 33, ; + Column9.BackColor = 244,250,255, ; + Column9.ColumnOrder = 12, ; + Column9.ControlSource = "sectie", ; + Column9.FontName = "Arial Narrow", ; + Column9.FontSize = 9, ; + Column9.Name = "Column10", ; + Column9.Width = 54, ; + Column10.BackColor = 244,250,255, ; + Column10.ColumnOrder = 10, ; + Column10.ControlSource = "nresp", ; + Column10.FontName = "Arial Narrow", ; + Column10.FontSize = 9, ; + Column10.Name = "Column11", ; + Column10.Width = 68, ; + Column11.BackColor = 244,250,255, ; + Column11.ColumnOrder = 11, ; + Column11.ControlSource = "dst_chlt", ; + Column11.FontName = "Arial Narrow", ; + Column11.FontSize = 9, ; + Column11.Name = "Column12", ; + Column11.Width = 63, ; + Column12.BackColor = 244,250,255, ; + Column12.ColumnOrder = 13, ; + Column12.ControlSource = "ptva", ; + Column12.CurrentControl = "Combo1", ; + Column12.FontName = "Arial Narrow", ; + Column12.FontSize = 9, ; + Column12.Name = "Column13", ; + Column12.Sparse = .F., ; + Column12.Width = 37, ; + Column13.BackColor = 244,250,255, ; + Column13.ColumnOrder = 3, ; + Column13.ControlSource = "partd", ; + Column13.FontName = "Arial Narrow", ; + Column13.FontSize = 9, ; + Column13.Name = "Column14", ; + Column13.Width = 69, ; + Column14.BackColor = 244,250,255, ; + Column14.ColumnOrder = 4, ; + Column14.ControlSource = "partc", ; + Column14.FontName = "Arial Narrow", ; + Column14.FontSize = 9, ; + Column14.Name = "Column15", ; + Column14.Width = 65, ; + Column15.BackColor = 244,250,255, ; + Column15.ControlSource = "pereched", ; + Column15.FontName = "Arial Narrow", ; + Column15.FontSize = 9, ; + Column15.Name = "Column9", ; + Column15.Width = 68, ; + Column16.BackColor = 244,250,255, ; + Column16.ControlSource = "perechec", ; + Column16.FontName = "Arial Narrow", ; + Column16.FontSize = 9, ; + Column16.Name = "Column16", ; + Column16.Width = 68 + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="grid" /> + + ADD OBJECT 'Gridb1.Column10.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sectia", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridb1.Column10.Text1' AS textbox WITH ; + BackColor = 244,250,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridb1.Column11.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Responsabil", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridb1.Column11.Text1' AS textbox WITH ; + BackColor = 244,250,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridb1.Column12.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip chelt/venit", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridb1.Column12.Text1' AS textbox WITH ; + BackColor = 244,250,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridb1.Column13.Combo1' AS combobox WITH ; + BorderStyle = 0, ; + BoundColumn = 1, ; + BoundTo = .T., ; + ColumnCount = 2, ; + ColumnLines = .F., ; + ColumnWidths = "0,50", ; + Comment = "", ; + FontName = "Arial Narrow", ; + Height = 10, ; + Left = 21, ; + Name = "Combo1", ; + ReadOnly = .F., ; + RowSource = "ttva.ptva,tva", ; + RowSourceType = 2, ; + SpecialEffect = 1, ; + Style = 2, ; + Top = 23, ; + Visible = .T., ; + Width = 10 + *< END OBJECT: BaseClass="combobox" /> + + ADD OBJECT 'Gridb1.Column13.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA%", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridb1.Column14.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Partener D", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridb1.Column14.Text1' AS textbox WITH ; + Alignment = 3, ; + BackColor = 244,250,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridb1.Column15.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Partener C", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridb1.Column15.Text1' AS textbox WITH ; + BackColor = 244,250,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridb1.Column16.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Doc pereche C", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridb1.Column16.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridb1.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatia", ; + FontName = "Arial Narrow", ; + FontSize = 9, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridb1.Column2.Text1' AS textbox WITH ; + BackColor = 244,250,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + FontSize = 9, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridb1.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont Deb", ; + FontName = "Arial Narrow", ; + FontSize = 9, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridb1.Column3.Text1' AS textbox WITH ; + Alignment = 1, ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + FontSize = 9, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridb1.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont Cred", ; + FontName = "Arial Narrow", ; + FontSize = 9, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridb1.Column4.Text1' AS textbox WITH ; + Alignment = 1, ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + FontSize = 9, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridb1.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Suma", ; + FontName = "Arial Narrow", ; + FontSize = 9, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridb1.Column5.Text1' AS textbox WITH ; + BackColor = 244,250,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + FontSize = 9, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridb1.Column6.Check1' AS checkbox WITH ; + Alignment = 1, ; + BackColor = 244,250,255, ; + Caption = "", ; + ControlSource = "cu_tva", ; + FontName = "Arial Narrow", ; + Height = 17, ; + Left = 24, ; + Name = "Check1", ; + TabStop = .F., ; + Top = 32, ; + Visible = .T., ; + Width = 60 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'Gridb1.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cu TVA", ; + FontName = "Arial Narrow", ; + FontSize = 9, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridb1.Column7.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Analit", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridb1.Column7.Text1' AS textbox WITH ; + BackColor = 244,250,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridb1.Column8.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Analit", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridb1.Column8.Text1' AS textbox WITH ; + BackColor = 244,250,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridb1.Column9.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Doc pereche D", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridb1.Column9.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Item1' AS item WITH ; + BackColor = 192,192,192, ; + BackStyle = 0, ; + Height = 21, ; + Left = 7, ; + Name = "Item1", ; + TabIndex = 2, ; + Top = 299, ; + Width = 787, ; + ZOrderSet = 8, ; + Label_item1.Caption = "Total suma", ; + Label_item1.Left = 189, ; + Label_item1.Name = "Label_item1", ; + Label_item1.Top = 2, ; + Text_item1.ControlSource = "thisform.totftva", ; + Text_item1.DisabledBackColor = 255,255,255, ; + Text_item1.InputMask = (get_mask(12,gnPa)), ; + Text_item1.Left = 427, ; + Text_item1.Name = "Text_item1", ; + Text_item1.ReadOnly = .T., ; + Text_item1.SpecialEffect = 1, ; + Text_item1.Top = 2, ; + Text_item1.Visible = .T., ; + Lineo1.Left = 186, ; + Lineo1.Name = "Lineo1", ; + Lineo1.Top = 0, ; + Lineo3.Left = 186, ; + Lineo3.Name = "Lineo3", ; + Lineo3.Top = 19, ; + Lineo4.Left = 638, ; + Lineo4.Name = "Lineo4", ; + Lineo4.Top = 0, ; + Lineo5.Left = 186, ; + Lineo5.Name = "Lineo5", ; + Lineo5.Top = 0, ; + Lineo2.Left = 425, ; + Lineo2.Name = "Lineo2", ; + Lineo2.Top = 0 + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="container" /> + + ADD OBJECT 'Renunt1' AS renunt WITH ; + Left = 734, ; + Name = "Renunt1", ; + TabIndex = 7, ; + Top = 3, ; + ZOrderSet = 7, ; + Imbuton1.Height = 27, ; + Imbuton1.Name = "Imbuton1", ; + Imbuton1.Stretch = 2, ; + Imbuton1.Width = 30, ; + Command1.Name = "Command1" + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="container" /> + + ADD OBJECT 'Resizable1' AS resizable WITH ; + Left = 24, ; + Name = "Resizable1", ; + repositionlist = Renunt Verif GridbTextbox Label Shape Container Titlufrumos Item, ; + resizelist = Renunt Verif GridbTextbox Label Shape Container Titlufrumos Item, ; + Top = 324 + *< END OBJECT: ClassLib="..\comun\clase\solution.vcx" BaseClass="custom" /> + + ADD OBJECT 'Shape2' AS shape WITH ; + BackColor = 247,245,238, ; + BorderColor = 247,245,238, ; + BorderStyle = 1, ; + Height = 31, ; + Left = 7, ; + Name = "Shape2", ; + Top = 295, ; + Width = 787, ; + ZOrderSet = 0 + *< END OBJECT: BaseClass="shape" /> + + ADD OBJECT 'Verif1' AS verif WITH ; + Left = 767, ; + Name = "Verif1", ; + TabIndex = 5, ; + Top = 3, ; + ZOrderSet = 9, ; + IMBUTON1.Height = 26, ; + IMBUTON1.Name = "IMBUTON1", ; + IMBUTON1.Width = 26, ; + COMMAND1.Name = "COMMAND1" + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="container" /> + + PROCEDURE calculez + PARAMETERS calc_baza + LOCAL lni + + SELECT introdc + lni=RECNO() + + lcExcScd = ALLTRIM(this.pcexceptii_scd) + lcExcSCC = ALLTRIM(this.pcexceptii_scc) + + IF !EMPTY(tcscc) + SUM suma TO lnBaza FOR !INLIST(VAL(scc), &lcExcscc) + SUM suma TO lnBazaDiscount FOR INLIST(VAL(scc), &lcExcscc) + ELSE + SUM suma TO lnBaza FOR !INLIST(VAL(scd), &lcExcscd) + SUM suma TO lnBazaDiscount FOR INLIST(VAL(scd), &lcExcscd) + ENDIF + + this.totftva = lnBaza - lnBazaDiscount + IF !calc_baza + IF !EMPTY(tcscc) + SUM suma*ptva TO lnTva FOR cu_tva = 1 AND !INLIST(VAL(scc), &lcExcscc) + SUM suma*ptva TO lnTvaDiscount FOR cu_tva = 1 AND INLIST(VAL(scc), &lcExcscc) + ELSE + SUM suma*ptva TO lnTva FOR cu_tva = 1 AND !INLIST(VAL(scd), &lcExcscd) + SUM suma*ptva TO lnTvaDiscount FOR cu_tva = 1 AND INLIST(VAL(scd), &lcExcscd) + ENDIF + this.tva = ROUND(lnTva/100,gnPC) - ROUND(lnTvaDiscount/100,gnPC) + ENDIF + this.totctva = this.totftva + this.tva + + this.item1.text_item1.Refresh + this.container1.item2.text_item1.refresh + this.container1.item3.text_item1.refresh + + SELECT introdc + IF lni=1 + GOTO TOP + ELSE + GOTO lni + ENDIF + ENDPROC + + PROCEDURE do_cauta_alfa + PARAMETERS tcFis, tcColoane, tcTitlu, tcTitluColoane + + *!* 11.07.2007 + pcselect = [select * from ] + tcFis + pcfiltru = [1=2] + pcschema = [] + pcorder = '' + pccoloane = tcColoane + pcTitlu = tcTitlu + pcTitluColoane = tcTitluColoane + locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,tcFis) && 11.07.2007 + + RETURN locauta + ENDPROC + + PROCEDURE do_cauta_partener + PARAMETERS tcCont, lcCampId, lcCampNume + + lcCont = ALLTRIM(tcCont) + loCauta = CautPartenerContabilitate(GetHash([cTitlu=>Nume partener ] + lcCont + [??lAdaugCorespondente=>1??cCont=>] + lcCont)) + + If !Empty(locauta.nume) + lnid_part=locauta.id_part + lcnume=Alltrim(locauta.nume) + Else + lnId_part = 0 + lcNume = '' + ENDIF + + SELECT introdc + REPLACE &lcCampId WITH lnid_part, &lcCampNume WITH lcNume + ENDPROC + + PROCEDURE Init + IF !EMPTY(tcSCD) + this.container2.optiongroup1.option2.Caption = "in casa" + this.container2.optiongroup1.option3.Visible = .F. + this.container2.item2.label_item1.Caption = "Casa incasari" + ENDIF + DODEFAULT() + ENDPROC + + PROCEDURE KeyPress + LPARAMETERS nKeyCode, nShiftAltCtrl + IF nKeyCode=10 + NODEFAULT + this.container1.item2.SetFocus + ENDIF + ENDPROC + + PROCEDURE la_iesire + lcObj = ALLTRIM(this.pcobj) + lcExcScd = ALLTRIM(this.pcexceptii_scd) + lcExcSCC = ALLTRIM(this.pcexceptii_scc) + + SELECT actactan + ZAP + + *!* SELECT introdc + *!* REPLACE ALL neimpozab WITH suma FOR ptva=0 AND cu_tva = 1 + *!* REPLACE ALL neimpozab WITH 0 FOR ptva # 0 AND cu_tva = 1 + + SELECT introdc + SCAN FOR !EMPTY(suma) + SCATTER NAME ointr + IF tl_calcTva && doar la introduceri care au legatura cu registrele de TVA + WITH &lcObj + IF ointr.cu_tva = 1 + .proc_tva = (100 + ointr.ptva) / 100 + ELSE + .proc_tva = 0 + ENDIF + ENDWITH + ENDIF + SELECT actactan + APPEND BLANK + IF FLOCK() + GATHER NAME &lcObj + GATHER NAME ointr + ENDIF + UNLOCK + SELECT introdc + ENDSCAN + SET STEP ON + IF tl_calcTVA && or thisform.container1.Visible= .T. && sau cu parametrul = .t. --- tl_calcTVA + + SELECT actactan + DO CASE + CASE !EMPTY(tcscc) + + SELECT DISTINCT IIF(!INLIST(VAL(scc), &lcExcScc), ascc, ascd) AS ascc, proc_tva, IIF(!INLIST(VAL(scc), &lcExcScc), id_partc, id_partd) as id_part, IIF(!INLIST(VAL(scc), &lcExcScc), partc, partd) as nume_part ; + FROM actactan WHERE proc_tva <> 0 INTO CURSOR cascc ORDER BY 1 + SELECT cascc + SCAN + SCATTER FIELDS ascc, proc_tva, id_part, nume_part MEMV + SELECT actactan + SUM ROUND(suma*(m.proc_tva-1), gnPC) TO lnsuma FOR ascc = m.ascc AND proc_tva=m.proc_tva AND id_partc = m.id_part AND !INLIST(VAL(scc), &lcExcScc) + SUM ROUND(suma*(m.proc_tva-1), gnPC) TO LnSumDisc FOR ascd = m.ascc AND proc_tva=m.proc_tva AND id_partd = m.id_part AND INLIST(VAL(scc), &lcExcScc) + lnsuma = lnsuma - LnSumDisc + APPEND BLANK + GATHER NAME &lcObj + GATHER FIELDS ascc, proc_tva MEMVAR + GATHER NAME ointr FIELDS EXCEPT ascc, proc_tva, id_partc, id_partd, partd,id_factc,id_factd,perechec,pereched + REPLACE scd WITH tctva, scc WITH tcscc, ascd WITH '',ascc WITH m.ascc, suma WITH lnsuma, id_partc WITH m.id_part, partc WITH m.nume_part + *REPLACE explicatia WITH '' + SELECT cascc + ENDSCAN + SELECT actactan + r=RECNO() + SUM(suma) TO lntottva FOR scd = tctva + IF r=1 + GOTO TOP + ELSE + GOTO r + ENDIF + REPLACE suma WITH suma + THISFORM.tva - lntottva &®lez diferente de rotunjire tva + USE IN cascc + CASE !EMPTY(tcscd) + + SELECT DISTINCT IIF(!INLIST(VAL(scd), &lcExcScd), ascd, ascc) AS ascd, proc_tva, IIF(!INLIST(VAL(scd), &lcExcScd), id_partd, id_partc) as id_part, IIF(!INLIST(VAL(scd), &lcExcScd), partd, partc) as nume_part ; + FROM actactan WHERE proc_tva <> 0 INTO CURSOR cascd ORDER BY 1 + SELECT cascd + SCAN + SCATTER FIELDS ascd,proc_tva,id_part, nume_part MEMV + SELECT actactan + SUM ROUND(suma * (m.proc_tva-1), gnPC) TO lnsuma FOR ascd = m.ascd AND proc_tva = m.proc_tva AND id_partd = m.id_part AND !INLIST(VAL(scd), &lcExcScd) + SUM ROUND(suma * (m.proc_tva-1), gnPC) TO LnSumDisc FOR ascc = m.ascd AND proc_tva = m.proc_tva AND id_partc = m.id_part AND INLIST(VAL(scd), &lcExcScd) + lnsuma = lnsuma - LnSumDisc + APPEND BLANK + GATHER NAME &lcObj + GATHER FIELDS ascd, proc_tva MEMVAR + GATHER NAME ointr FIELDS EXCEPT suma, ascd, id_partd, id_partc, partc,id_factc,id_factd,perechec,pereched + REPLACE scc WITH tctva, scd WITH tcscd, ascc WITH '',ascd WITH m.ascd, suma WITH lnsuma, id_partd WITH m.id_part, partd WITH m.nume_part + *REPLACE explicatia WITH '' + SELECT cascd + ENDSCAN + SELECT actactan + r=RECNO() + SUM(suma) TO lntottva FOR scc = tctva + IF r=1 + GOTO TOP + ELSE + GOTO r + ENDIF + REPLACE suma WITH suma + THISFORM.tva - lntottva &®lez diferente de rotunjire tva + USE IN cascd + + ENDCASE + ENDIF + + DO CASE + CASE THISFORM.container2.optiongroup1.VALUE=2 + + DO CASE + CASE !EMPTY(tcscc) + SELECT DISTINCT IIF(!INLIST(VAL(scc), &lcExcScc), ascc, ascd) AS ascc, proc_tva, IIF(!INLIST(VAL(scc), &lcExcScc), id_partc, id_partd) as id_part, IIF(!INLIST(VAL(scc), &lcExcScc), partc, partd) as nume_part ; + FROM actactan INTO CURSOR cascc ORDER BY 1 + SELECT cascc + SCAN + SCATTER FIELDS ascc, proc_tva, id_part, nume_part MEMV + SELECT actactan + SUM suma TO lnsuma FOR ascc = m.ascc AND proc_tva=m.proc_tva AND id_partc = m.id_part AND !INLIST(VAL(scc), &lcExcScc) + SUM suma TO LnSumDisc FOR ascd = m.ascc AND proc_tva=m.proc_tva AND id_partd = m.id_part AND INLIST(VAL(scc), &lcExcScc) + lnsuma = lnsuma - LnSumDisc + APPEND BLANK + GATHER NAME &lcObj + GATHER FIELDS proc_tva, id_partc, scc, ascc MEMVAR + GATHER NAME ointr FIELDS EXCEPT suma, ascc, scc, id_partc,id_factc,id_factd,perechec,pereched + REPLACE partD WITH partC, id_partd WITH id_partc, suma WITH lnsuma + REPLACE scd WITH scc, ascd WITH ascc, scc WITH '5311', ascc WITH '', perecheD WITH nract, id_factd WITH -1,nract WITH THISFORM.nrchit, partC WITH THISFORM.casa, id_partc WITH THIS.ID_casa + REPLACE pozitie_1 WITH 2 + SELECT cascc + ENDSCAN + USE IN cascc + CASE !EMPTY(tcscd) + SELECT DISTINCT IIF(!INLIST(VAL(scd), &lcExcScd), ascd, ascc) AS ascd, proc_tva, IIF(!INLIST(VAL(scd), &lcExcScd), id_partd, id_partc) as id_part, IIF(!INLIST(VAL(scd), &lcExcScd), partd, partc) as nume_part ; + FROM actactan INTO CURSOR cascd ORDER BY 1 + SELECT cascd + SCAN + SCATTER FIELDS ascd, proc_tva, id_part, nume_part MEMV + SELECT actactan + SUM suma TO lnsuma FOR ascd = m.ascd AND proc_tva=m.proc_tva AND id_partd = m.id_part AND !INLIST(VAL(scd), &lcExcScd) + SUM suma TO LnSumDisc FOR ascc = m.ascd AND proc_tva=m.proc_tva AND id_partc = m.id_part AND INLIST(VAL(scd), &lcExcScd) + lnsuma = lnsuma - LnSumDisc + APPEND BLANK + GATHER NAME &lcObj + GATHER FIELDS proc_tva, id_partd, scd, ascd MEMVAR + GATHER NAME ointr FIELDS EXCEPT suma, ascd, scd, id_partd,id_factd,id_factc,pereched,perechec + REPLACE partC WITH partD, id_partc WITH id_partd, suma WITH lnsuma + REPLACE scc WITH scd, ascc WITH ascd, scd WITH '5311', ascd WITH '', perecheC WITH nract, id_factc WITH -1,nract WITH THISFORM.nrchit, partC WITH THISFORM.casa, id_partd WITH THIS.ID_casa + REPLACE pozitie_2 WITH 1 + SELECT cascd + ENDSCAN + USE IN cascd + + ENDCASE + CASE THISFORM.container2.optiongroup1.VALUE=3 + + *!* SELECT DISTINCT ascc, scc, id_partc FROM actactan INTO CURSOR cascc ORDER BY ascc + *!* SELECT cascc + *!* SCAN + *!* SCATTER FIELDS ascc, scc, id_partc MEMV + *!* SELECT actactan + *!* CALCULATE SUM(suma) TO lnsuma FOR ascc = m.ascc AND id_partc = m.id_partc && AND proc_tva=m.proc_tva + + SELECT DISTINCT IIF(!INLIST(VAL(scc), &lcExcScc), ascc, ascd) AS ascc, IIF(!INLIST(VAL(scc), &lcExcScc), id_partc, id_partd) as id_part, IIF(!INLIST(VAL(scc), &lcExcScc), partc, partd) as nume_part ; + FROM actactan INTO CURSOR cascc ORDER BY 1 + SELECT cascc + SCAN + SCATTER FIELDS ascc, id_part, nume_part MEMV + SELECT actactan + SUM suma TO lnsuma FOR ascc = m.ascc AND id_partc = m.id_part AND !INLIST(VAL(scc), &lcExcScc) + SUM suma TO LnSumDisc FOR ascd = m.ascc AND id_partd = m.id_part AND INLIST(VAL(scc), &lcExcScc) + lnsuma = lnsuma - LnSumDisc + APPEND BLANK + GATHER NAME &lcObj + GATHER FIELDS ascc, scc, id_partc MEMVAR + GATHER NAME ointr FIELDS EXCEPT suma, ascc, scc, id_partc + REPLACE partD WITH partC, id_partd WITH id_partc, suma WITH lnsuma + REPLACE scd WITH scc, ascd WITH ascc, scc WITH '542 ', ascc WITH '', perecheD WITH nract, id_factd WITH -1,nract WITH THISFORM.nrchit, partC WITH THISFORM.achi, id_partc WITH THIS.ID_achi + *REPLACE explicatia WITH '', dst_chlt WITH '' + ENDSCAN + IF USED('actcv542') + SELECT actcv542 + REPLACE ALL achilei WITH 0 FOR ales + SUM sumaachi TO lnSuma542 + SELECT actactan + SUM suma TO lnSAct FOR ALLTRIM(scc) = '542' + IF lnSuma542 # lnSAct + DO mesaj WITH 'Refaceti plata din 542!','' + RETURN .f. + ENDIF + ENDIF + + SELECT actactan + SCAN FOR ALLTRIM(scc) = '542' AND perecheC = 0 + SCATTER NAME ocomp + SELECT actcv542 + LOCATE FOR ales AND achilei < sumaachi + lnsuma = ocomp.suma - (sumaachi - achilei) + DO CASE + CASE lnsuma = 0 + REPLACE achilei WITH sumaachi + lnNract = nract + lnIdFact = id_fact + lcAcont = acont + SELECT actactan + REPLACE perecheC WITH lnNract, id_factc WITH lnIdFact,ascc WITH lcAcont + CASE lnsuma<0 + REPLACE achilei WITH achilei+ocomp.suma + lnNract = nract + lnIdFact = id_fact + lcAcont = acont + SELECT actactan + REPLACE perecheC WITH lnNract, id_factc WITH lnIdFact, ascc WITH lcAcont + CASE lnsuma > 0 + lnSumaAct = sumaachi - achilei + lnNract = nract + lnIdFact = id_fact + lcAcont = acont + REPLACE achilei WITH achilei + lnSumaAct + SELECT actactan + lnr = RECNO() + + REPLACE suma WITH lnSumaAct, perecheC WITH lnNract, id_factc WITH lnIdFact, ascc WITH lcAcont + APPEND BLANK + GATHER NAME ocomp + REPLACE suma WITH suma - lnSumaAct + + IF lnr=1 + GOTO TOP + ELSE + GOTO lnr + ENDIF + ENDCASE + SELECT actactan + ENDSCAN + USE IN cascc + CASE THISFORM.container2.optiongroup1.VALUE=1 AND tl_plata + SELECT actactan + REPLACE ALL datascad WITH THISFORM.datascad + ENDCASE + + + RELEASE ointr + + DELETE FROM ACTACTAN WHERE SUMA = 0 + SELECT actactan + GO TOP + + RETURN .t. + + + + + + + ENDPROC + + PROCEDURE Resize + this.resizable1.adjustcontrols + ENDPROC + + PROCEDURE Show + LPARAMETERS nStyle + + lcObj = ALLTRIM(this.pcobj) + + WITH &lcObj + this.datascad = GOMONTH(.dataact, 1) + ENDWITH + + IF !EMPTY(tcscc) + THIS.GRIdb1.COLUMN4.ReadOnly=.T. + THIS.GRIdb1.COLUMN15.ReadOnly=.T. + ENDIF + IF !EMPTY(tcscD) + THIS.GRIdb1.COLUMN3.ReadOnly=.T. + THIS.GRIdb1.COLUMN14.ReadOnly=.T. + ENDIF + + + IF INLIST(tn_idset,10460) + *!* SELECT introdc + *!* REPLACE ALL sectie WITH m.sectie,dst_chlt WITH m.dst_chlt nresp WITH m.nresp + this.gridb1.Refresh + this.container1.item2.text_item1.SetFocus + ELSE + this.gridb1.SetFocus + ENDIF + ENDPROC + + PROCEDURE verificare + LOCAL LL_MARCA + LL_MARCA=.T. + DO CASE + CASE thisform.container2.optiongroup1.Value=2 + IF EMPTY(thisform.nrchit) OR EMPTY(this.id_casa) + DO mesaj WITH 'Nu ati completat datele referitoare la plata!','' + thisform.container2.text_item1.SetFocus + LL_MARCA=.F. + ENDIF + CASE thisform.container2.optiongroup1.Value=3 + IF EMPTY(thisform.nrchit) OR EMPTY(this.id_achi) + DO mesaj WITH 'Nu ati completat datele referitoare la plata!','' + thisform.container2.text_item1.SetFocus + LL_MARCA=.F. + ENDIF + ENDCASE + + IF LL_MARCA + * IF !EMPTY(THISFORM.TOTctva) OR !EMPTY(THISFORM.TOTftva) OR !EMPTY(THISFORM.TVa) + LL_MARCA = thisform.la_iesire() + * ENDIF + ENDIF + + RETURN LL_MARCA + ENDPROC + + PROCEDURE verific_analitic + *!* PARAMETERS tlClick, tccont, tcacont, tcColoana + + *!* m.den='' + *!* ll_l=.f. + + *!* IF EMPTY(tccont) + *!* RETURN ll_l + *!* ENDIF + + *!* IF USED('TCEVA') + *!* USE IN Tceva + *!* ENDIF + + *!* lcSql=[select acont || ' - ' || explicatie as den, CONT, ACONT FROM ] + gcS + [.vplcont_ANALITIC where cont=?tcCont and inactiv = 0 and an = ] + pcAn + [ order by acont ] + *!* lcCursor = 'tceva' + *!* lnSucces = goExecutor.oExecute(lcSql,lcCursor) + + *!* SELECT tceva + *!* LOCATE + *!* IF EOF() + *!* IF !EMPTY(tcAcont) AND !ISNULL(tcAcont) + *!* DO mesaj WITH 'Nu au fost definite simboluri analitice','pentru contul ' + tcCont + *!* ll_l=.t. + *!* ENDIF + *!* + *!* IF USED('TCEVA') + *!* USE IN Tceva + *!* ENDIF + *!* SELECT introdc + *!* this.gridb1.SetFocus + *!* RETURN ll_l + *!* ELSE + *!* IF !tlClick + *!* IF empty(tcAcont) + *!* *!* SELECT introdc + *!* *!* IF FLOCK() + *!* *!* REPLACE &tcColoana WITH '0000' + *!* *!* ENDIF + *!* + *!* IF USED('TCEVA') + *!* USE IN Tceva + *!* ENDIF + *!* SELECT introdc + *!* this.gridb1.SetFocus + *!* RETURN ll_l + *!* ENDIF + *!* ENDIF + *!* ENDIF + + *!* SELECT tceva + *!* IF tlClick + *!* DO caut_alfa_cursor WITH 'tceva','den','Alegeti simbolul analitic','m.den' + *!* SELECT tceva + *!* LOCATE FOR ALLTRIM(den) = ALLTRIM(m.den) + *!* lcAcont = acont + + *!* SELECT introdc + *!* REPLACE &tcColoana WITH lcAcont + *!* ELSE + *!* LOCATE FOR ALLTRIM(cont)=ALLTRIM(tccont) AND ALLTRIM(acont)=ALLTRIM(tcacont) + *!* IF !FOUND() + *!* DO caut_alfa_cursor WITH 'tceva','den','Alegeti simbolul analitic','m.den' + *!* SELECT tceva + *!* LOCATE FOR ALLTRIM(den) = ALLTRIM(m.den) + *!* lcAcont = acont + + *!* SELECT introdc + *!* REPLACE &tcColoana WITH lcAcont + *!* ENDIF + *!* ENDIF + + *!* IF USED('TCEVA') + *!* USE IN Tceva + *!* ENDIF + + *!* SELECT introdc + *!* this.gridb1.SetFocus + *!* RETURN ll_l + ENDPROC + + PROCEDURE verific_cont + *!* PARAMETERS tcCont + + *!* llNuExista = .t. + *!* tcCont = ALLTRIM(tcCont) + + *!* lcSql=[select count(*) as exista_cont FROM ] + gcS + [.vplcont_sintetic where cont=?tcCont and inactiv = 0 and an = ?gnAn ] + *!* lcCursor = 'crs_cont' + *!* lnSucces = goExecutor.oExecute(lcSql,lcCursor) + *!* IF lnSucces < 0 + *!* MESSAGEBOX('VERIFICARE CONT ' + CHR(13) + goExecutor.cEroare,0+16,"Eroare") + *!* ENDIF + *!* IF lnSucces > 0 AND _tally > 0 + *!* SELECT crs_cont + *!* LOCATE + *!* IF exista_cont > 0 + *!* llNuExista = .f. + *!* ENDIF + *!* ENDIF + *!* IF llNuExista + *!* MESSAGEBOX('Acest cont nu este configurat in planul de conturi!',0,'Atentie!') + *!* ENDIF + + *!* RETURN llNuExista + + ENDPROC + + PROCEDURE verific_inregistrari + *!* PARAMETERS tnFel,toAct,tcControl + *!* LOCAL lcSel,lcSelAct,lcControl + + *!* *** tnFel : cum ar tb sa fie contul ca sa ceara doc pereche 0 = Activ , 1 = Pasiv + *!* *** toAct : obiect cu varibilele din tabel + *!* *** lcControl : calea catre grid raportata la forma + + *!* lcControl = ALLTRIM(tcControl) + *!* lcSelAct = &lcControl..RecordSource + *!* SELECT (lcSelAct) + *!* lnRand = RECNO() + *!* pnFelCont = tnFel + *!* lnSucces=1 + + *!* IF pnFelCont = 0 && ACTIV + *!* pcContul = ALLTRIM(NVL(toAct.scc,[])) + *!* pcContCoresp = ALLTRIM(NVL(toAct.scd,[])) + *!* pcACont = ALLTRIM(NVL(toAct.ascc,[NULL])) + *!* pnIdPart = NVL(toAct.Id_partc,0) + *!* pcNume = ALLTRIM(NVL(toAct.partc,[])) + *!* pnPereche = [perecheC] + *!* pnIdPereche = [id_factC] + *!* pnPozCont = 1 + *!* ELSE && PASIV + *!* pcContul = ALLTRIM(NVL(toAct.scd,[])) + *!* pcContCoresp = ALLTRIM(NVL(toAct.scc,[])) + *!* pcACont = ALLTRIM(NVL(toAct.ascd,[NULL])) + *!* pnIdPart = NVL(toAct.Id_partd,0) + *!* pcNume = ALLTRIM(NVL(toAct.partd,[])) + *!* pnPereche = [perecheD] + *!* pnIdPereche = [id_factD] + *!* pnPozCont = 0 + *!* ENDIF + *!* lcFis = 'actcv' + ALLTRIM(pcContul) + + *!* lcSelect = [select count(*) as ePereche from ] + gcs + [.vcoresp_tip_cont where cont = ?pcContul and fel_cont = ?pnFelCont and cu_inregistrari = 1 ] + ; + *!* [and ?pcContul not in (select cont from ] + gcs + [.exceptii_ireg where cont_c = ?pcContCoresp and invers = 1 and debit =?pnPozCont)] + *!* lcCursor = [crsTest] + *!* lnSucces = goexecutor.oExecute(lcSelect,lcCursor) + *!* IF lnSucces < 0 + *!* MESSAGEBOX('Modificare:Verific existenta pereche ' +goExecutor.cEroare,0+16,"Eroare") + *!* ENDIF + + *!* IF lnSucces > 0 + *!* SELECT crsTest + *!* LOCATE + *!* IF ePereche = 0 + *!* lnSucces = -1 + *!* toact.&pnPereche = 0 + *!* MESSAGEBOX('Nu trebuie completat documentul pereche!',0,'Informare') + *!* ENDIF + *!* ENDIF + + *!* IF lnSucces > 0 + *!* IF TYPE('toAct.Suma_val')# 'U' AND !EMPTY(toAct.Suma_val) + *!* llval = .t. + *!* pnSuma = toAct.Suma_val + *!* lcFormular = [ocompensari_val] + *!* IF TYPE('toAct.Id_Valuta')# 'U' + *!* pnIdValuta = toAct.Id_Valuta + *!* ELSE + *!* pnIdValuta = 0 + *!* ENDIF + *!* ELSE + *!* llval = .f. + *!* pnSuma = toAct.Suma + *!* lcFormular = [ocompensari] + *!* ENDIF + + *!* pcDenumire = [Partener ] + pcContul + + *!* pcCond = [ an = ?gnAn and luna = ?gnluna] + + *!* IF llval + *!* pccond= pccond + [ and ABS(i.precvaldeb + i.valdebit - i.precvalcred - i.valcredit)>0 and i.id_valuta = ?pnIdValuta ] + *!* ELSE + *!* pccond= pccond + [ and (i.precvaldeb + i.valdebit - i.precvalcred - i.valcredit = 0) ] + *!* ENDIF + + *!* pcselect = ['select i.* FROM ] + gcs + [.Vireg_parteneri i where 2=2 '] + *!* IF ALLTRIM(pcACont) # [NULL] + *!* pcfiltru = [ i.id_part = ?pnIdPart AND ABS(i.precdeb + i.debit - i.preccred - i.credit)<>0 AND i.cont = ?pcContul and ] + pcCond + *!* ELSE + *!* pcfiltru = [ i.id_part = ?pnIdPart AND ABS(i.precdeb + i.debit - i.preccred - i.credit)<>0 AND i.cont = ?pcContul and acont is null and ] + pcCond + *!* ENDIF + *!* pcschema = [''] + *!* pcorder = [''] + + *!* PRIVATE podateintrod + *!* STORE '' TO podateintrod + + *!* gencursor('podateintrod','crs_actcv',pcselect,pcfiltru,[''],'') + *!* IF TYPE('podateintrod') # 'O' + *!* lnSucces = -1 + *!* ENDIF + *!* ENDIF + + *!* IF lnSucces > 0 + *!* IF USED(lcFis) + *!* USE IN &lcFis + *!* ENDIF + + *!* IF pnFelCont = 0 + *!* lcsel = [SELECT *, ACONT AS ASCC, nume_val as numeval, curs as cursschimb, precdeb + debit as totctva, preccred+credit as achitat, ] +; + *!* [precvaldeb + valdebit AS sumaval, precVALcred+VALcredit as achitatval, ] +; + *!* [.f. as ales, 00000000000000.0000 as sumaachi, 000000000000.0000 as sumaachi2, 00000000000000.0000 as achilei, 00000000000000.0000 as difplus, 00000000000000.0000 as difminus, 000000.0000 as cursval, 000000.0000 as cursdif ] +; + *!* [FROM crs_actcv INTO CURSOR ] + lcFis + [ READWRITE ] + *!* ELSE + *!* lcsel = [SELECT *, ACONT AS ASCD, nume_val as numeval, curs as cursschimb, preccred + credit as totctva, precdeb+debit as achitat, ] + ; + *!* [precvalcred + valcredit as sumaval, precVALdeb+VALdebit as achitatval, ] + ; + *!* [.f. as ales, 00000000000000.0000 as sumaachi, 00000000000000.0000 as sumaachi2, 00000000000000.0000 as achilei, 00000000000000.0000 as difplus, 00000000000000.0000 as difminus, 000000.0000 as cursval, 000000.0000 as cursdif ] + ; + *!* [FROM crs_actcv INTO CURSOR ] + lcFis + [ READWRITE ] + *!* ENDIF + *!* &lcsel + *!* IF USED('crs_actcv') + *!* USE IN crs_actcv + *!* ENDIF + *!* SELECT (lcFis) + + *!* OPLATA=CREATEOBJECT(lcFormular) + *!* OPLATA.titlufrumos1.CAPTION = pcDenumire + [: ] + pcNume + *!* OPLATA.pcFis = lcFis + *!* OPLATA.SUMA = pnSuma + *!* OPLATA.pnFelCont = pnFelCont + *!* OPLATA.SHOW(1) + + *!* IF gnButon = 1 + *!* SELECT (lcSelAct) + *!* DELETE + *!* SELECT (lcFis) + *!* SCAN FOR ales + *!* SCATTER NAME oper + *!* SELECT (lcSelAct) + *!* APPEND BLANK + *!* GATHER NAME toAct + *!* REPLACE &pnIdPereche WITH oper.id_fact, &pnPereche WITH oper.nract, suma WITH oper.sumaachi + *!* IF TYPE('toAct.Suma_val')# 'U' + *!* REPLACE suma_val WITH oper.sumaachi2 + *!* ENDIF + *!* SELECT (lcFis) + *!* ENDSCAN + *!* + *!* ELSE + *!* lnSucces = -1 + *!* ENDIF + *!* ENDIF + + *!* IF lnSucces < 0 + *!* SELECT &lcSelAct + *!* lcUpdate = [update ] + lcSelAct + [ set ] + pnPereche + [= ] + ALLTRIM(STR(toact.&pnPereche)) + [ WHERE RECNO() = ] + ALLTRIM(STR(lnRand)) + *!* &lcUpdate + *!* *UPDATE (lcSelAct) SET &pnPereche = toact.&pnPereche WHERE RECNO() = lnRand + *!* ELSE + *!* SELECT (lcSelAct) + *!* DO nrord WITH lcSelAct + *!* ENDIF + + *!* IF USED(lcFis) + *!* USE IN (lcFis) + *!* ENDIF + *!* IF USED('crsTest') + *!* USE IN crsTest + *!* ENDIF + + *!* SELECT (lcSelAct) + *!* &lcControl..SetFocus + ENDPROC + + PROCEDURE verific_partener + PARAMETERS tcCont, tcId, tcNume + + IF EMPTY(tcCont) + RETURN + ENDIF + + LOCAL llReturn + llReturn = .f. + + SELECT introdc + lcCont = &tcCont + lcCont = ALLTRIM(lcCont) + + lcSql=[select count(*) as valoare FROM ] + gcS + [.vcoresp_tip_cont where cont = ?lcCont ] + lcCursor = 'c_part' + lnSucces = goExecutor.oExecute(lcSql,lcCursor) + IF lnSucces < 0 + aMESSAGEBOX('VERIFICARE PARTENER ' + CHR(13) + goExecutor.cEroare,0+16,"Eroare") + ENDIF + + IF lnSucces > 0 + SELECT c_part + IF valoare > 0 + thisform.do_cauta_partener(lcCont, tcId, tcNume) + ENDIF + IF USED('c_part') + USE IN c_part + ENDIF + ENDIF + ENDPROC + + PROCEDURE Container1.Item2.Text_item1.GotFocus + * + ENDPROC + + PROCEDURE Container1.Item2.Text_item1.KeyPress + LPARAMETERS nKeyCode, nShiftAltCtrl + * + ENDPROC + + PROCEDURE Container1.Item2.Text_item1.LostFocus + IF INLIST(tn_idset,10460) && combustibili cu taxa + SELECT INTRODC + LOCATE FOR ptva <> 0 AND suma = 0 + IF FOUND() + lnProcTva = (100 + ptva)/100 + REPLACE SUMA WITH ROUND(THISFORM.TVA/(lnProcTva-1),gnPC) + ELSE + LOCATE + ENDIF + ENDIF + thisform.calculez(.t.) + ENDPROC + + PROCEDURE Container1.Item2.Text_item1.Valid + * + ENDPROC + + PROCEDURE Container1.Item2.Text_item1.When + *thisform.tva=(m.ctva-1)*thisform.totftva + *thisform.totctva=thisform.tva+thisform.totftva + *this.Refresh + *this.Parent.Parent.item3.Refresh + ENDPROC + + PROCEDURE Container1.Item3.Text_item1.GotFocus + * + ENDPROC + + PROCEDURE Container1.Item3.Text_item1.KeyPress + LPARAMETERS nKeyCode, nShiftAltCtrl + * + ENDPROC + + PROCEDURE Container1.Item3.Text_item1.LostFocus + IF INLIST(tn_idset,10460) + SELECT INTRODC + SUM SUMA TO LnSuma FOR ptva <> 0 + SUM Suma TO lnSumaNeimp FOR ptva = 0 + IF ABS(THISFORM.totctva-thisform.tva-LnSuma-lnSumaNeimp)<100 && sa nu calculexe taxa de drum dc e < 100 lei + LOCATE FOR ptva <> 0 + ELSE + LOCATE FOR ptva = 0 AND UPPER(LEFT(explicatie,4))='TAXA' + ENDIF + IF FOUND() + REPLACE SUMA WITH suma+THISFORM.totctva-thisform.tva-LnSuma-lnSumaNeimp + ELSE + LOCATE + ENDIF + thisform.totftva=THISFORM.totctva-thisform.tva + thisform.item1.text_item1.Refresh + ELSE + thisform.tva=thisform.totctva-thisform.totftva + thisform.container1.item2.text_item1.Refresh + ENDIF + ENDPROC + + PROCEDURE Container1.Item3.Text_item1.Valid + * + ENDPROC + + PROCEDURE Container1.Item3.Text_item1.When + * + ENDPROC + + PROCEDURE Container2.Item1.Text_item1.GotFocus + *!* 11.07.2007 + pcselect = [select p.nume, p.cod_fiscal, p.id_part FROM Vcoresp_tip_part p JOIN Vcoresp_tip_cont t on p.id_tip_part = t.id_tip_part ] + pcFiltruOriginal = [to_number(t.cont) = 542 and inactiv = 0] + pcfiltru = [1=2] + pcschema = [''] + pcorder = [P.NUME] + pccoloane = [NUME,COD_FISCAL] + pcTitlu = [Numele achizitorului] + pcTitluColoane = [Nume,Cod fiscal] + locauta = cauta_alfa(pcselect, pcfiltru, pcschema, pcorder, pccoloane, pcTitlu, pcTitluColoane,'',.F.,pcFiltruOriginal) && 11.07.2007 + + thisform.achi = ALLTRIM(locauta.nume) + thisform.id_achi = locauta.id_part + ENDPROC + + PROCEDURE Container2.Item1.Text_item1.LostFocus + *this.Refresh + ENDPROC + + PROCEDURE Container2.Item1.Text_item1.Valid + * + ENDPROC + + PROCEDURE Container2.Item1.Text_item1.When + * + ENDPROC + + PROCEDURE Container2.Item2.Text_item1.GotFocus + *!* 11.07.2007 + pcselect = [select p.nume, p.cod_fiscal, p.id_part FROM Vcoresp_tip_part p JOIN Vcoresp_tip_cont t on p.id_tip_part = t.id_tip_part ] + pcfiltru = [1=2] + pcschema = [] + pcorder = [P.NUME] + pccoloane = [NUME] + pcTitlu = [Casa] + pcTitluColoane = [Casa] + pcFiltruOriginal = [t.cont = '5311' and inactiv = 0] + locauta = cauta_alfa(pcselect, pcfiltru, pcschema, pcorder, pccoloane, pcTitlu, pcTitluColoane,'',.F.,pcFiltruOriginal) && 11.07.2007 + + thisform.casa = ALLTRIM(locauta.nume) + thisform.id_casa = locauta.id_part + ENDPROC + + PROCEDURE Container2.Item2.Text_item1.KeyPress + LPARAMETERS nKeyCode, nShiftAltCtrl + * + ENDPROC + + PROCEDURE Container2.Item2.Text_item1.Valid + * + ENDPROC + + PROCEDURE Container2.Item2.Text_item1.When + * + ENDPROC + + PROCEDURE Container2.Item3.Text_item1.GotFocus + *!* DO aleg_doc_plata WITH 'achilun',THISFORM.achi,.F.,'A' + *!* m.nume_2=THISFORM.achi + *!* lcNume='m.nume_2' + *!* m.suma=THISFORM.totctva + *!* OPLATA=CREATEOBJECT('compens_multe') + *!* OPLATA.txtNume.CONTROLSOURCE=lcNume + *!* OPLATA.SHOW(1) + + *!* SELECT actcv + *!* CALCULATE CNT() FOR ales TO LnBife + *!* IF LnBife=1 + *!* LOCATE FOR ales + *!* m.compensat=nract + *!* ELSE + *!* m.compensat=0 + *!* ENDIF + + lcContul = '542' + lccond = [ an = ] + ALLTRIM(STR(gnAn)) + [ and luna = ] + ALLTRIM(STR(gnluna)) + lccond= lccond + [ and (i.precvaldeb + i.valdebit - i.precvalcred - i.valcredit = 0) ] + + + lnIdPart = THISFORM.id_achi + lcNume = THISFORM.achi + lnFelCont = 0 + lcDenumire = 'Achizitor' + + pcselect = ['select i.* FROM ] + gcs + [.Vireg_parteneri i where 2=2 '] + pcfiltru = [ i.id_part = ] + ALLTRIM(STR(lnIdPart)) + [ AND ABS(i.precdeb + i.debit - i.preccred - i.credit)<>0 AND i.cont =]+ lcContul + [ and ] + lccond + pcschema = [''] + pcorder = [''] + + PRIVATE podateintrod + STORE '' TO podateintrod + + gencursor('podateintrod','crs_actcv',pcselect,pcfiltru,[''],'') + + lcFis = 'actcv' + ALLTRIM(lcContul) + + IF USED(lcFis) + USE IN &lcFis + ENDIF + + IF lnFelCont = 0 + lcsel = [SELECT *, ACONT AS ASCC, nume_val as numeval, curs as cursschimb, precdeb + debit as totctva, preccred+credit as achitat, ] +; + [precvaldeb + valdebit AS sumaval, precVALcred+VALcredit as achitatval, ] +; + [.f. as ales, 00000000000000.0000 as sumaachi, 000000000000.0000 as sumaachi2, 00000000000000.0000 as achilei, 00000000000000.0000 as difplus, 00000000000000.0000 as difminus, 0000000.0000 as cursval, 0000000.0000 as cursdif ] +; + [FROM crs_actcv INTO CURSOR ] + lcFis + [ READWRITE ] + ELSE + lcsel = [SELECT *, ACONT AS ASCD, nume_val as numeval, curs as cursschimb, preccred + credit as totctva, precdeb+debit as achitat, ] + ; + [precvalcred + valcredit as sumaval, precVALdeb+VALdebit as achitatval, ] + ; + [.f. as ales, 00000000000000.0000 as sumaachi, 000000000000.0000 as sumaachi2, 00000000000000.0000 as achilei, 00000000000000.0000 as difplus, 00000000000000.0000 as difminus, 0000000.0000 as cursval, 0000000.0000 as cursdif ] + ; + [FROM crs_actcv INTO CURSOR ] + lcFis + [ READWRITE ] + ENDIF + &lcsel + + SELECT (lcFis) + + OPLATA=CREATEOBJECT('ocompensari') + OPLATA.titlufrumos1.CAPTION = lcDenumire + [: ] + lcNume + OPLATA.pcFis = lcFis + OPLATA.suma = THISFORM.totctva + IF TYPE('oplata.curs_val') # 'U' + OPLATA.curs_val = 0 + ENDIF + OPLATA.pnFelCont = lnFelCont + OPLATA.SHOW(1) + + SELECT (lcFis) + CALCULATE CNT() FOR ales TO LnBife + IF LnBife=1 + LOCATE FOR ales + m.compensat=nract + ELSE + m.compensat=0 + ENDIF + + ENDPROC + + PROCEDURE Container2.Item3.Text_item1.LostFocus + * + ENDPROC + + PROCEDURE Container2.Item3.Text_item1.Valid + * + ENDPROC + + PROCEDURE Container2.Item3.Text_item1.When + * + ENDPROC + + PROCEDURE Container2.Optiongroup1.Valid + DO CASE + CASE this.Value=1 + this.Parent.text_item1.Visible= .F. + this.Parent.label_item2.Visible= .F. + this.Parent.text_item2.Visible= .t. + this.Parent.label_item3.Visible= .t. + this.Parent.item1.Visible=.f. + this.Parent.item2.Visible=.f. + this.Parent.item3.Visible=.f. + CASE this.Value=2 + this.Parent.text_item1.Visible= .t. + this.Parent.label_item2.Visible= .t. + this.Parent.text_item2.Visible= .F. + this.Parent.label_item3.Visible= .F. + this.Parent.item1.Visible=.f. + this.Parent.item3.Visible=.f. + this.Parent.item2.Visible=.t. + CASE this.Value=3 + this.Parent.text_item1.Visible= .t. + this.Parent.label_item2.Visible= .t. + this.Parent.text_item2.Visible= .F. + this.Parent.label_item3.Visible= .F. + this.Parent.item1.Visible=.t. + this.Parent.item3.Visible=.t. + this.Parent.item2.Visible=.f. + ENDCASE + this.Parent.Refresh + ENDPROC + + PROCEDURE Container2.Text_item1.Valid + IF thisform.nrchit=0 + DO mesaj WITH 'Completati numarul documentului de plata !','' + RETURN 0 + ENDIF + ENDPROC + + PROCEDURE Gridb1.AfterRowColChange + LPARAMETERS nColIndex + *!* SELECT introdc + + *!* IF LEFT(scd,1) = '6' OR LEFT(scc,1) = '7' + *!* this.column10.enabled= .t. + *!* this.column11.enabled= .t. + *!* this.column12.enabled= .t. + *!* ELSE + *!* this.column10.enabled= .f. + *!* this.column11.enabled= .f. + *!* this.column12.enabled= .f. + *!* ENDIF + + *!* this.refresh + ENDPROC + + PROCEDURE Gridb1.Column10.Text1.Click + locauta = thisform.do_cauta_alfa('vnom_sectii', 'sectie', 'Numele sectiei', 'Sectia') + SELECT introdc + REPLACE sectie WITH locauta.sectie, id_sectie WITH locauta.id_sectie + ENDPROC + + PROCEDURE Gridb1.Column10.Text1.InteractiveChange + this.Click + ENDPROC + + PROCEDURE Gridb1.Column11.Text1.Click + *!* PRIVATE lc_variab + *!* LC_VARIAB='' + *!* Do CAUT_ALFA With 'RESPONS','NUME_2','RESPONSABIL',lc_variab + *!* SELECT introdc + *!* REPLACE nresp WITH lc_variab + + *!* this.Refresh + + *!* locauta = thisform.do_cauta_alfa('Vnom_responsabili', 'nume', 'Numele responsabilului', 'Responsabil') + loCauta = CautPartenerContabilitate(GetHash([cTitlu=>Responsabili??cTipuriParteneri=>]+ALLTRIM(STR(gnIdTipResponsabili))+[??lAdaugCorespondente=>1])) + SELECT introdc + REPLACE nresp WITH locauta.denumire, id_responsabil WITH locauta.id_part + ENDPROC + + PROCEDURE Gridb1.Column11.Text1.InteractiveChange + *!* PRIVATE lc_variab + *!* LC_VARIAB='' + *!* Do CAUT_ALFA With 'RESPONS','NUME_2','RESPONSABIL',lc_variab + + *!* SELECT introdc + *!* REPLACE nresp WITH lc_variab + + *!* this.refresh + + this.Click + ENDPROC + + PROCEDURE Gridb1.Column12.Text1.Click + *!* LOCAL lc_variab + *!* LC_VARIAB='' + *!* SELECT introdc + *!* IF !EMPTY(tcscc) + *!* Do CAUT_ALFA With 'chltind','DST_CHLT','DENUMIREA CHELTUIELII',lc_variab + *!* ELSE + *!* Do CAUT_ALFA With 'venituri','DST_CHLT','DENUMIREA VENITULUI',lc_variab + *!* ENDIF + *!* SELECT introdc + *!* REPLACE DST_CHLT WITH lc_variab + + locauta = thisform.do_cauta_alfa('Vnom_venchel ', 'explicatie', 'Numele cheltuielii', 'Cheltuiala') + SELECT introdc + REPLACE dst_chlt WITH locauta.explicatie, id_venchelt WITH locauta.id_venchelt + ENDPROC + + PROCEDURE Gridb1.Column12.Text1.InteractiveChange + this.Click + ENDPROC + + PROCEDURE Gridb1.Column13.Combo1.Valid + IF INLIST(tn_idset,10460) + thisform.calculez(.t.) + ELSE + thisform.calculez(.f.) + ENDIF + ENDPROC + + PROCEDURE Gridb1.Column14.Text1.Click + IF EMPTY(id_partd) + thisform.verific_partener('scd', 'id_partd', 'partd') + ENDIF + + + ENDPROC + + PROCEDURE Gridb1.Column14.Text1.InteractiveChange + thisform.verific_partener('scd', 'id_partd', 'partd') + + + ENDPROC + + PROCEDURE Gridb1.Column14.Text1.LostFocus + this.Click + ENDPROC + + PROCEDURE Gridb1.Column15.Text1.Click + IF EMPTY(id_partc) + thisform.verific_partener('scc', 'id_partc', 'partc') + ENDIF + ENDPROC + + PROCEDURE Gridb1.Column15.Text1.InteractiveChange + thisform.verific_partener('scc', 'id_partc', 'partc') + + + ENDPROC + + PROCEDURE Gridb1.Column15.Text1.LostFocus + this.Click + ENDPROC + + PROCEDURE Gridb1.Column16.Text1.DblClick + this.InteractiveChange + ENDPROC + + PROCEDURE Gridb1.Column16.Text1.InteractiveChange + LOCAL lcSel + lcSel = this.Parent.Parent.RecordSource + SELECT (lcSel) + SCATTER NAME oint + *thisform.verific_inregistrari(0,oint,'this.gridb1') + DO aleg_document_pereche WITH 0,oint,lcSel IN oOperatii_comune.prg + this.Parent.Parent.SetFocus + ENDPROC + + PROCEDURE Gridb1.Column2.Header1.Click + this.Parent.Parent.headerclick(this.Parent.ColumnOrder) + ENDPROC + + PROCEDURE Gridb1.Column2.Text1.Click + this.InteractiveChange + ENDPROC + + PROCEDURE Gridb1.Column2.Text1.InteractiveChange + *!* IF scc='462 ' && AND scd = '411 ' + *!* lcsalvN = m.nume + *!* lcSalvC = m.cod_fiscal + *!* + *!* STORE '' TO pccreditor + + *!* Do CAUT_ALFA With 'creditor','nume','Numele creditorului' ,pccreditor + *!* IF buton = 1 + *!* SELECT introdc + *!* REPLACE cimp WITH pccreditor + *!* ENDIF + *!* SELECT introdc + *!* REPLACE ptva WITH 0 + *!* + *!* m.nume = lcSalvN + *!* m.cod_fiscal = lcSalvC + *!* + *!* this.Parent.Parent.column13.Refresh + *!* thisform.calculez(.f.) + *!* ENDIF + ENDPROC + + PROCEDURE Gridb1.Column3.Header1.Click + this.Parent.Parent.headerclick(this.Parent.ColumnOrder) + ENDPROC + + PROCEDURE Gridb1.Column3.Text1.InteractiveChange + SELECT introdc + REPLACE id_partd WITH 0, partd WITH '' + + + + + ENDPROC + + PROCEDURE Gridb1.Column3.Text1.LostFocus + *llReturn = thisform.verific_cont(introdc.scd) + lcCont = NVL(introdc.scd,'') + IF EMPTY(lcCont) + RETURN + ENDIF + llReturn = exista_cont_in_plan_conturi(lcCont) && in oOperatii_comune.prg + IF !llReturn + REPLACE introdc.scd WITH '' + ENDIF + SELECT introdc + IF EMPTY(id_partd) + thisform.verific_partener('scd', 'id_partd', 'partd') + ENDIF + ENDPROC + + PROCEDURE Gridb1.Column4.Header1.Click + this.Parent.Parent.headerclick(this.Parent.ColumnOrder) + ENDPROC + + PROCEDURE Gridb1.Column4.Text1.InteractiveChange + SELECT introdc + REPLACE id_partc WITH 0, partc WITH '' + + ENDPROC + + PROCEDURE Gridb1.Column4.Text1.LostFocus + *llReturn = thisform.verific_cont(introdc.scc) + lcCont = NVL(introdc.scc,'') + IF EMPTY(lcCont) + RETURN + ENDIF + llReturn = exista_cont_in_plan_conturi(lcCont) && in oOperatii_comune.prg + IF !llReturn + REPLACE introdc.scc WITH '' + ENDIF + SELECT introdc + IF EMPTY(id_partc) + thisform.verific_partener('scc', 'id_partc', 'partc') + ENDIF + ENDPROC + + PROCEDURE Gridb1.Column5.Text1.InteractiveChange + *!* IF scc='471 ' + *!* DO aleg_doc_plata WITH 'chavans',M.NUME,.f.,'A' + + *!* OPLATA=CREATEOBJECT('AFCUMPVANZANPERALES') + *!* oplata.txtNume.controlsource='m.nume' + *!* OPLATA.SHOW(1) + + *!* SELECT INTRODC + *!* LOCATE FOR scc='471 ' + *!* REPLACE SUMA WITH m.suma + *!* ENDIF + + ENDPROC + + PROCEDURE Gridb1.Column5.Text1.KeyPress + LPARAMETERS nKeyCode, nShiftAltCtrl + IF NKEYCODE=13 &&ENTER + PlClick=.f. + IF LEFT(introdc.scd,1) # '6' AND LEFT(introdc.scc,1) # '7' + NODEFAULT + KEYBOARD '{DNARROW}' + ENDIF + + ENDIF + + + ENDPROC + + PROCEDURE Gridb1.Column5.Text1.LostFocus + IF !EMPTY(introdc.suma) + IF EMPTY(introdc.id_partd) + thisform.verific_partener('scd', 'id_partd', 'partd') + ENDIF + IF EMPTY(introdc.id_partc) + thisform.verific_partener('scc', 'id_partc', 'partc') + ENDIF + ENDIF + ENDPROC + + PROCEDURE Gridb1.Column5.Text1.Valid + + SELECT introdc + IF (EMPTY(introdc.scd) OR UPPER(LEFT(introdc.scd,1))='X') AND !EMPTY(introdc.suma) + DO mesaj WITH 'Completati contul debitor !','' + RETURN + ENDIF + IF EMPTY(introdc.scc) OR UPPER(LEFT(introdc.scc,1))='X' AND !EMPTY(introdc.suma) + DO mesaj WITH 'Completati contul creditor !','' + RETURN + ENDIF + + IF INLIST(tn_idset,10460) + thisform.calculez(.t.) + ELSE + thisform.calculez(.f.) + ENDIF + + * thisform.gridb1.Refresh + + ENDPROC + + PROCEDURE Gridb1.Column6.Check1.Valid + SELECT introdc + thisform.calculez() + + ENDPROC + + PROCEDURE Gridb1.Column7.Text1.Click + *thisform.aleg_ascd() + this.LostFocus(.t.) + ENDPROC + + PROCEDURE Gridb1.Column7.Text1.LostFocus + PARAMETERS PlClick + SELECT introdc + lcCont = NVL(scd,'') + lcAcont = NVL(ascd,'') + IF EMPTY(lcCont) + RETURN + ENDIF + llReturn = verific_analitic(plClick, lcCont, lcAcont,'ascd','introdc') && in oOperatii_comune.prg + ENDPROC + + PROCEDURE Gridb1.Column8.Text1.Click + *THISFORM.ALEG_ASCC + this.LostFocus(.t.) + ENDPROC + + PROCEDURE Gridb1.Column8.Text1.LostFocus + PARAMETERS PlClick + SELECT introdc + lcCont = NVL(scc, '') + lcAcont = NVL(ascc, '') + IF EMPTY(lcCont) + RETURN + ENDIF + llReturn = verific_analitic(plClick, lcCont, lcAcont,'ascc','introdc') && in oOperatii_comune.prg + ENDPROC + + PROCEDURE Gridb1.Column9.Text1.DblClick + this.InteractiveChange + ENDPROC + + PROCEDURE Gridb1.Column9.Text1.InteractiveChange + LOCAL lcSel + lcSel = this.Parent.Parent.RecordSource + SELECT (lcSel) + SCATTER NAME oint + *thisform.verific_inregistrari(1,oint,'this.gridb1') + DO aleg_document_pereche WITH 1,oint,lcSel IN oOperatii_comune.prg + + this.Parent.Parent.SetFocus + ENDPROC + + PROCEDURE Gridb1.gasestecol + Parameters ii + * + ENDPROC + + PROCEDURE Gridb1.headerclick + PARAMETERS co + * + ENDPROC + + PROCEDURE Gridb1.iesire + PARAMETERS Y + * + ENDPROC + + PROCEDURE Gridb1.Init + * + ENDPROC + + PROCEDURE Gridb1.treaba + * + ENDPROC + + PROCEDURE Item1.Text_item1.GotFocus + * + ENDPROC + + PROCEDURE Item1.Text_item1.KeyPress + LPARAMETERS nKeyCode, nShiftAltCtrl + * + ENDPROC + + PROCEDURE Item1.Text_item1.LostFocus + SELECT introdc + LOCATE + thisform.calculez(.f.) + ENDPROC + + PROCEDURE Item1.Text_item1.Valid + THIS.FORECOLOR=IIF(thisform.totftva>=0, RGB(0,0,0), RGB(255,0,0)) + ENDPROC + + PROCEDURE Item1.Text_item1.When + * + ENDPROC + + PROCEDURE Shape1.DblClick + IF thisform.WindowState = 2 + thisform.WindowState = 0 + ELSE + thisform.WindowState = 2 + ENDIF + ENDPROC + + PROCEDURE Terminat1.Command1.Click + + IF thisform.verificare() + DODEFAULT() + ENDIF + + ENDPROC + + PROCEDURE Verif1.COMMAND1.Click + IF thisform.verificare() + DO FORM VERIFICARE WITH .t.,.t. + IF BUTON=1 + THISFORM.Release + ENDIF + ENDIF + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_introd_compact2007 AS formtermin OF "..\comun\clase\baza.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="shpAchitat" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_SHAPE1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Container1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Container1.Item2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Container1.Item3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column6.Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column11.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column11.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column12.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column12.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column13.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column13.Combo1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column14.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column14.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column15.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column15.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column16.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column16.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column17.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column17.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column18.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column18.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column19.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column19.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column20.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column20.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column21.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column21.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column22.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column22.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column22._combobox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column23.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column23.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column23._combobox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Renunt1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Item1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Verif1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_shortcuts1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="CMD_EXECUTA1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="optAchitat" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtNr" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lblDataScadenta" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="itmDocJustificat" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtSeria" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lblNr" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lblSumaAchitata" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtSumaAchitata" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lblSeria" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtDataScadenta" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="itmCasaPlati" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="itmAchizitor" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="itmCreditorDivers" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="itmFdocAchitat" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cbo_plata_saft" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lb_plata_saft" UniqueID="" Timestamp="" /> + + * + *m: actualizeaza_plata_saft + *m: calculez + *m: do_adauga + *m: do_cauta_alfa + *m: do_cauta_partener + *m: do_executa + *m: la_iesire + *m: nidfdocachitat_assign + *m: refreshachitat + *m: updateexplicatiesaft + *m: updatepaymentsaft + *m: verificare + *m: verific_analitic + *m: verific_cont + *m: verific_inregistrari + *m: verific_partener + *p: achi + *p: casa + *p: cfdocachitat + *p: cpaymentcode + *p: cscc + *p: cscd + *p: datascad + *p: id_achi + *p: id_casa + *p: id_part462 + *p: lverificaacont + *p: nidfdocachitat + *p: nrchit + *p: part462 + *p: pcexceptii_scc + *p: pcexceptii_scd + *p: pcobj + *p: seriechit + *p: sumaachitata + *p: totctva + *p: totftva + *p: tva + *p: _memberdata && XML Metadata for customizable properties + * + + * + achi = '' + BorderStyle = 3 + Caption = "" + casa = '' + cfdocachitat = + cpaymentcode = + cscc = + cscd = + datascad = + DataSession = 1 + DoCreate = .T. + Height = 490 + id_achi = 0 + id_casa = 0 + id_part462 = 0 + KeyPreview = .T. + Name = "frm_introd_compact2007" + nidfdocachitat = 0 + nrchit = 0 + part462 = + pcobj = '' + ScrollBars = 0 + seriechit = + sumaachitata = 0 + totctva = 0 + totftva = 0 + tva = 0 + Width = 801 + _memberdata = + + + + + + + + + + Shape1.Anchor = 10 + Shape1.Height = 36 + Shape1.Left = 0 + Shape1.Name = "Shape1" + Shape1.Top = 0 + Shape1.Width = 800 + Shape1.ZOrderSet = 1 + Terminat1.Anchor = 8 + Terminat1.Command1.Name = "Command1" + Terminat1.Imbuton1.Height = 27 + Terminat1.Imbuton1.Name = "Imbuton1" + Terminat1.Imbuton1.Width = 30 + Terminat1.Left = 679 + Terminat1.Name = "Terminat1" + Terminat1.TabIndex = 18 + Terminat1.Top = 3 + Terminat1.Visible = .F. + Terminat1.ZOrderSet = 3 + Titlufrumos1.AutoSize = .T. + Titlufrumos1.Height = 20 + Titlufrumos1.Left = 7 + Titlufrumos1.Name = "Titlufrumos1" + Titlufrumos1.TabIndex = 21 + Titlufrumos1.Top = 4 + Titlufrumos1.Width = 104 + Titlufrumos1.WordWrap = .F. + Titlufrumos1.ZOrderSet = 5 + * + + ADD OBJECT '_SHAPE1' AS _shape WITH ; + Anchor = 8, ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + Height = 36, ; + Left = 723, ; + Name = "_SHAPE1", ; + Top = 0, ; + Width = 78, ; + ZOrderSet = 2 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" /> + + ADD OBJECT 'But_nou1' AS but_nou WITH ; + Anchor = 8, ; + Left = 643, ; + Name = "But_nou1", ; + TabIndex = 14, ; + Top = 4, ; + Visible = .T., ; + ZOrderSet = 12 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'cbo_plata_saft' AS combobox WITH ; + Anchor = 12, ; + BorderColor = 128,128,128, ; + BorderStyle = 1, ; + ColumnCount = 1, ; + ColumnLines = .F., ; + ControlSource = "", ; + FontName = "Arial", ; + FontSize = 10, ; + Height = 20, ; + InputMask = "", ; + Left = 565, ; + Name = "cbo_plata_saft", ; + RowSourceType = 6, ; + SpecialEffect = 1, ; + Style = 2, ; + TabIndex = 27, ; + TabStop = .F., ; + Top = 425, ; + Visible = .F., ; + Width = 138 + *< END OBJECT: BaseClass="combobox" /> + + ADD OBJECT 'CMD_EXECUTA1' AS cmd_executa WITH ; + Anchor = 12, ; + Caption = "\ + + ADD OBJECT 'Container1' AS container WITH ; + Anchor = 12, ; + BackColor = 247,245,238, ; + BorderColor = 247,245,238, ; + Height = 50, ; + Left = 7, ; + Name = "Container1", ; + TabIndex = 2, ; + Top = 321, ; + Width = 787, ; + ZOrderSet = 4 + *< END OBJECT: BaseClass="container" /> + + ADD OBJECT 'Container1.Item2' AS item WITH ; + Comment = "m.tva", ; + Left = 328, ; + Name = "Item2", ; + TabIndex = 1, ; + Top = 1, ; + ZOrderSet = 7, ; + Label_item1.Caption = "TVA", ; + Label_item1.Name = "Label_item1", ; + Text_item1.ControlSource = "thisform.tva", ; + Text_item1.InputMask = (get_mask(12,gnPa)), ; + Text_item1.Name = "Text_item1", ; + Text_item1.SpecialEffect = 1, ; + Lineo1.Name = "Lineo1", ; + Lineo3.Name = "Lineo3", ; + Lineo4.Name = "Lineo4", ; + Lineo5.Name = "Lineo5", ; + Lineo2.Name = "Lineo2" + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="container" /> + + ADD OBJECT 'Container1.Item3' AS item WITH ; + Comment = "m.tva", ; + Left = 328, ; + Name = "Item3", ; + TabIndex = 2, ; + Top = 24, ; + ZOrderSet = 7, ; + Label_item1.Caption = "Total cu TVA", ; + Label_item1.Name = "Label_item1", ; + Text_item1.ControlSource = "thisform.totctva", ; + Text_item1.InputMask = (get_mask(12,gnPa)), ; + Text_item1.Name = "Text_item1", ; + Text_item1.SpecialEffect = 1, ; + Lineo1.Name = "Lineo1", ; + Lineo3.Name = "Lineo3", ; + Lineo4.Name = "Lineo4", ; + Lineo5.Name = "Lineo5", ; + Lineo2.Name = "Lineo2" + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="container" /> + + ADD OBJECT 'Gridb1' AS gridb WITH ; + Anchor = 15, ; + BackColor = 244,250,255, ; + ColumnCount = 23, ; + FontSize = 10, ; + GridLineColor = 192,192,192, ; + Height = 254, ; + Left = 3, ; + listaord = 1,3,4, ; + Name = "Gridb1", ; + Panel = 1, ; + RecordSource = "INTRODC", ; + RowHeight = 19, ; + TabIndex = 16, ; + TabStop = .F., ; + ToolTipText = 'Click dreapta pe "Suma" pentru calculare baza din Valoarea cu TVA', ; + Top = 37, ; + Width = 795, ; + ZOrderSet = 6, ; + Column1.BackColor = 244,250,255, ; + Column1.ControlSource = "ordine", ; + Column1.FontName = "Arial", ; + Column1.FontSize = 10, ; + Column1.Header1.Alignment = 2, ; + Column1.Header1.BackColor = 212,208,200, ; + Column1.Header1.Caption = "Nr.crt", ; + Column1.Header1.FontName = "Arial", ; + Column1.Header1.FontSize = 10, ; + Column1.Header1.Name = "Header1", ; + Column1.Name = "Column1", ; + Column1.ReadOnly = .F., ; + Column1.Text1.BackColor = 244,250,255, ; + Column1.Text1.FontName = "Arial", ; + Column1.Text1.FontSize = 10, ; + Column1.Text1.Name = "Text1", ; + Column1.Text1.ReadOnly = .F., ; + Column1.Width = 28, ; + Column2.BackColor = 244,250,255, ; + Column2.ControlSource = "explicatie", ; + Column2.FontName = "Arial", ; + Column2.FontSize = 10, ; + Column2.Name = "Column2", ; + Column2.ReadOnly = .F., ; + Column2.Width = 98, ; + Column3.Alignment = 1, ; + Column3.BackColor = 255,255,255, ; + Column3.ColumnOrder = 5, ; + Column3.ControlSource = "scd", ; + Column3.DynamicForeColor = "rgb(0,0,128)", ; + Column3.FontName = "Arial", ; + Column3.FontSize = 10, ; + Column3.Name = "Column3", ; + Column3.Width = 58, ; + Column4.Alignment = 1, ; + Column4.BackColor = 255,255,255, ; + Column4.ColumnOrder = 7, ; + Column4.ControlSource = "scc", ; + Column4.DynamicForeColor = "rgb(0,0,128)", ; + Column4.FontName = "Arial", ; + Column4.FontSize = 10, ; + Column4.Name = "Column4", ; + Column4.Width = 62, ; + Column5.BackColor = 244,250,255, ; + Column5.ColumnOrder = 9, ; + Column5.ControlSource = "suma", ; + Column5.FontName = "Arial", ; + Column5.FontSize = 10, ; + Column5.Format = "", ; + Column5.InputMask = (get_mask(12,gnPa)), ; + Column5.Name = "Column5", ; + Column5.Width = 84, ; + Column6.BackColor = 244,250,255, ; + Column6.ColumnOrder = 16, ; + Column6.ControlSource = "cu_tva", ; + Column6.CurrentControl = "Check1", ; + Column6.FontName = "Arial", ; + Column6.FontSize = 10, ; + Column6.Name = "Column6", ; + Column6.Sparse = .F., ; + Column6.Visible = .T., ; + Column6.Width = 44, ; + Column7.BackColor = 244,250,255, ; + Column7.ColumnOrder = 6, ; + Column7.ControlSource = "ascd", ; + Column7.FontName = "Arial", ; + Column7.FontSize = 10, ; + Column7.Name = "Column7", ; + Column7.Width = 37, ; + Column8.BackColor = 244,250,255, ; + Column8.ColumnOrder = 8, ; + Column8.ControlSource = "ascc", ; + Column8.FontName = "Arial", ; + Column8.FontSize = 10, ; + Column8.Name = "Column8", ; + Column8.Width = 37, ; + Column9.BackColor = 244,250,255, ; + Column9.ColumnOrder = 12, ; + Column9.ControlSource = "sectie", ; + Column9.FontName = "Arial", ; + Column9.FontSize = 10, ; + Column9.Name = "Column10", ; + Column9.Width = 54, ; + Column10.BackColor = 244,250,255, ; + Column10.ColumnOrder = 10, ; + Column10.ControlSource = "nresp", ; + Column10.FontName = "Arial", ; + Column10.FontSize = 10, ; + Column10.Name = "Column11", ; + Column10.Width = 75, ; + Column11.BackColor = 244,250,255, ; + Column11.ColumnOrder = 11, ; + Column11.ControlSource = "dst_chlt", ; + Column11.FontName = "Arial", ; + Column11.FontSize = 10, ; + Column11.Name = "Column12", ; + Column11.Width = 83, ; + Column12.BackColor = 244,250,255, ; + Column12.ColumnOrder = 15, ; + Column12.ControlSource = "denumiretax", ; + Column12.CurrentControl = "Combo1", ; + Column12.FontName = "Arial", ; + Column12.FontSize = 10, ; + Column12.Name = "Column13", ; + Column12.Sparse = .F., ; + Column12.Width = 199, ; + Column13.BackColor = 244,250,255, ; + Column13.ColumnOrder = 3, ; + Column13.ControlSource = "partd", ; + Column13.FontName = "Arial", ; + Column13.FontSize = 10, ; + Column13.Name = "Column14", ; + Column13.Width = 69, ; + Column14.BackColor = 244,250,255, ; + Column14.ColumnOrder = 4, ; + Column14.ControlSource = "partc", ; + Column14.FontName = "Arial", ; + Column14.FontSize = 10, ; + Column14.Name = "Column15", ; + Column14.Width = 65, ; + Column15.BackColor = 244,250,255, ; + Column15.ColumnOrder = 19, ; + Column15.ControlSource = "pereched", ; + Column15.FontName = "Arial", ; + Column15.FontSize = 10, ; + Column15.Name = "Column9", ; + Column15.Width = 90, ; + Column16.BackColor = 244,250,255, ; + Column16.ColumnOrder = 20, ; + Column16.ControlSource = "perechec", ; + Column16.FontName = "Arial", ; + Column16.FontSize = 10, ; + Column16.Name = "Column16", ; + Column16.Width = 90, ; + Column17.BackColor = 244,250,255, ; + Column17.ColumnOrder = 14, ; + Column17.ControlSource = "ptva", ; + Column17.FontName = "Arial", ; + Column17.FontSize = 10, ; + Column17.InputMask = "99.99", ; + Column17.Name = "Column17", ; + Column17.ReadOnly = .T., ; + Column17.Width = 36, ; + Column18.BackColor = 244,250,255, ; + Column18.ColumnOrder = 21, ; + Column18.ControlSource = "nume_val", ; + Column18.FontName = "Arial", ; + Column18.FontSize = 10, ; + Column18.Name = "Column18", ; + Column18.Width = 75, ; + Column19.BackColor = 244,250,255, ; + Column19.ColumnOrder = 22, ; + Column19.ControlSource = "curs", ; + Column19.FontName = "Arial", ; + Column19.FontSize = 10, ; + Column19.InputMask = (get_mask(12,gnPCurs)), ; + Column19.Name = "Column19", ; + Column19.Width = 63, ; + Column20.BackColor = 244,250,255, ; + Column20.ColumnOrder = 23, ; + Column20.ControlSource = "suma_val", ; + Column20.FontName = "Arial", ; + Column20.FontSize = 10, ; + Column20.InputMask = (get_mask(12,gnPVal)), ; + Column20.Name = "Column20", ; + Column20.Width = 93, ; + Column21.BackColor = 244,250,255, ; + Column21.ColumnOrder = 13, ; + Column21.ControlSource = "nrord", ; + Column21.FontName = "Arial", ; + Column21.FontSize = 10, ; + Column21.Name = "Column21", ; + Column22.BackColor = 244,250,255, ; + Column22.Bound = .F., ; + Column22.ColumnOrder = 17, ; + Column22.ControlSource = "Iif(Seek(introdc.taxcode,'saft_taxtable','taxcode'),saft_taxtable.taxname,'')", ; + Column22.CurrentControl = "_combobox1", ; + Column22.FontSize = 10, ; + Column22.Name = "Column22", ; + Column22.Sparse = .F., ; + Column22.Width = 196, ; + Column23.BackColor = 244,250,255, ; + Column23.ColumnOrder = 18, ; + Column23.ControlSource = "Iif(Seek(introdc.paymentcode,'saft_mecanisme_plati','mcode'),saft_mecanisme_plati.paymentname,'')", ; + Column23.CurrentControl = "_combobox1", ; + Column23.FontCharSet = 238, ; + Column23.FontSize = 10, ; + Column23.Name = "Column23", ; + Column23.Sparse = .F., ; + Column23.Width = 93 + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="grid" /> + + ADD OBJECT 'Gridb1.Column10.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sectia", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridb1.Column10.Text1' AS textbox WITH ; + BackColor = 244,250,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridb1.Column11.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Responsabil", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridb1.Column11.Text1' AS textbox WITH ; + BackColor = 244,250,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridb1.Column12.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip chelt/venit", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridb1.Column12.Text1' AS textbox WITH ; + BackColor = 244,250,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridb1.Column13.Combo1' AS combobox WITH ; + BackColor = 244,250,255, ; + BorderStyle = 0, ; + BoundColumn = 1, ; + BoundTo = .T., ; + ColumnCount = 1, ; + ColumnLines = .F., ; + ColumnWidths = "250,0,0", ; + Comment = "", ; + FontName = "Arial", ; + FontSize = 10, ; + Height = 10, ; + Left = 21, ; + Name = "Combo1", ; + ReadOnly = .F., ; + RowSource = "crsjtva.denumiretax,id_jtva_coloana", ; + RowSourceType = 2, ; + Style = 2, ; + Top = 23, ; + Visible = .T., ; + Width = 10 + *< END OBJECT: BaseClass="combobox" /> + + ADD OBJECT 'Gridb1.Column13.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatie TVA", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridb1.Column14.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Partener D", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridb1.Column14.Text1' AS textbox WITH ; + Alignment = 3, ; + BackColor = 244,250,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridb1.Column15.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Partener C", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridb1.Column15.Text1' AS textbox WITH ; + BackColor = 244,250,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridb1.Column16.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Doc pereche C", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridb1.Column16.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridb1.Column17.Header1' AS header WITH ; + Caption = "TVA%", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridb1.Column17.Text1' AS textbox WITH ; + BackColor = 244,250,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridb1.Column18.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nume valuta", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridb1.Column18.Text1' AS textbox WITH ; + BackColor = 244,250,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridb1.Column19.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Curs", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridb1.Column19.Text1' AS textbox WITH ; + BackColor = 244,250,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridb1.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatia", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridb1.Column2.Text1' AS textbox WITH ; + BackColor = 244,250,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridb1.Column20.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Suma in Valuta", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridb1.Column20.Text1' AS textbox WITH ; + BackColor = 244,250,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridb1.Column21.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Lucrare", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridb1.Column21.Text1' AS textbox WITH ; + BackColor = 244,250,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridb1.Column22._combobox1' AS _combobox WITH ; + BorderStyle = 0, ; + BoundColumn = 4, ; + BoundTo = .T., ; + ColumnCount = 3, ; + ColumnLines = .F., ; + ColumnWidths = "450,150,40", ; + ControlSource = "introdc.taxcode", ; + Left = 41, ; + Name = "_combobox1", ; + RowSource = "select taxname, tip, CAST(procent_taxa as N(6,2) null) as procent_taxa, taxcode from saft_taxtable order by tva, tva_livrari, tva_achizitii, wht, taxcode into cursor crsTaxTableX", ; + RowSourceType = 3, ; + Top = 46 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" /> + + ADD OBJECT 'Gridb1.Column22.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxa SAFT", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridb1.Column22.Text1' AS textbox WITH ; + BackColor = 244,250,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridb1.Column23._combobox1' AS _combobox WITH ; + BorderStyle = 0, ; + BoundColumn = 3, ; + BoundTo = .T., ; + ColumnCount = 2, ; + ColumnLines = .F., ; + ColumnWidths = "300,150", ; + ControlSource = "introdc.paymentcode", ; + Left = 32, ; + Name = "_combobox1", ; + ReadOnly = .F., ; + RowSource = "select paymentname, methodname, mechanismcode from saft_mecanisme_plati where afisat = 1 order by ordine into cursor crsPaymentX", ; + RowSourceType = 3, ; + Top = 70 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" /> + + ADD OBJECT 'Gridb1.Column23.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod plata SAFT", ; + FontCharSet = 238, ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridb1.Column23.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F., ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridb1.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont Deb", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridb1.Column3.Text1' AS textbox WITH ; + Alignment = 1, ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridb1.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont Cred", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridb1.Column4.Text1' AS textbox WITH ; + Alignment = 1, ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridb1.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Suma", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridb1.Column5.Text1' AS textbox WITH ; + BackColor = 244,250,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridb1.Column6.Check1' AS checkbox WITH ; + Alignment = 2, ; + BackColor = 244,250,255, ; + Caption = "", ; + Centered = .T., ; + ControlSource = "cu_tva", ; + FontName = "Arial", ; + FontSize = 10, ; + Height = 17, ; + Left = 24, ; + Name = "Check1", ; + TabStop = .F., ; + Top = 32, ; + Visible = .T., ; + Width = 60 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'Gridb1.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cu TVA", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridb1.Column7.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Analit", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridb1.Column7.Text1' AS textbox WITH ; + BackColor = 244,250,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridb1.Column8.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Analit", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridb1.Column8.Text1' AS textbox WITH ; + BackColor = 244,250,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridb1.Column9.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Doc pereche D", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridb1.Column9.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridextra1' AS gridextra WITH ; + gridexpression = Thisform.Gridb1, ; + Height = 17, ; + Left = 48, ; + Name = "Gridextra1", ; + Top = 312, ; + Width = 25 + *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> + + ADD OBJECT 'Item1' AS item WITH ; + Anchor = 12, ; + BackColor = 192,192,192, ; + BackStyle = 0, ; + Height = 21, ; + Left = 7, ; + Name = "Item1", ; + TabIndex = 1, ; + Top = 299, ; + Width = 787, ; + ZOrderSet = 8, ; + Label_item1.Caption = "Total sumã", ; + Label_item1.Left = 331, ; + Label_item1.Name = "Label_item1", ; + Label_item1.Top = 2, ; + Text_item1.ControlSource = "thisform.totftva", ; + Text_item1.DisabledBackColor = 255,255,255, ; + Text_item1.InputMask = (get_mask(12,gnPa)), ; + Text_item1.Left = 569, ; + Text_item1.Name = "Text_item1", ; + Text_item1.ReadOnly = .T., ; + Text_item1.SpecialEffect = 1, ; + Text_item1.Top = 2, ; + Text_item1.Visible = .T., ; + Lineo1.Left = 328, ; + Lineo1.Name = "Lineo1", ; + Lineo1.Top = 0, ; + Lineo3.Left = 330, ; + Lineo3.Name = "Lineo3", ; + Lineo3.Top = 19, ; + Lineo4.Left = 779, ; + Lineo4.Name = "Lineo4", ; + Lineo4.Top = 0, ; + Lineo5.Left = 328, ; + Lineo5.Name = "Lineo5", ; + Lineo5.Top = 0, ; + Lineo2.Left = 567, ; + Lineo2.Name = "Lineo2", ; + Lineo2.Top = 0 + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="container" /> + + ADD OBJECT 'itmAchizitor' AS item WITH ; + Anchor = 12, ; + Left = 249, ; + Name = "itmAchizitor", ; + TabIndex = 9, ; + Top = 404, ; + Visible = .F., ; + ZOrderSet = 26, ; + Label_item1.Caption = "Numele achizitorului", ; + Label_item1.Name = "Label_item1", ; + Text_item1.ControlSource = "thisform.achi", ; + Text_item1.Name = "Text_item1", ; + Text_item1.ReadOnly = .T., ; + Lineo1.Name = "Lineo1", ; + Lineo3.Name = "Lineo3", ; + Lineo4.Name = "Lineo4", ; + Lineo5.Name = "Lineo5", ; + Lineo2.Name = "Lineo2" + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="container" /> + + ADD OBJECT 'itmCasaPlati' AS item WITH ; + Anchor = 12, ; + Left = 249, ; + Name = "itmCasaPlati", ; + TabIndex = 8, ; + Top = 404, ; + Visible = .F., ; + ZOrderSet = 25, ; + Label_item1.Caption = "Casa plãþi", ; + Label_item1.Name = "Label_item1", ; + Text_item1.ControlSource = "thisform.casa", ; + Text_item1.Name = "Text_item1", ; + Text_item1.ReadOnly = .T., ; + Lineo1.Name = "Lineo1", ; + Lineo3.Name = "Lineo3", ; + Lineo4.Name = "Lineo4", ; + Lineo5.Name = "Lineo5", ; + Lineo2.Name = "Lineo2" + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="container" /> + + ADD OBJECT 'itmCreditorDivers' AS item WITH ; + Anchor = 12, ; + Left = 249, ; + Name = "itmCreditorDivers", ; + TabIndex = 9, ; + Top = 404, ; + Visible = .F., ; + ZOrderSet = 26, ; + Label_item1.Caption = "Numele creditorului", ; + Label_item1.Name = "Label_item1", ; + Text_item1.ControlSource = "thisform.part462", ; + Text_item1.Name = "Text_item1", ; + Text_item1.ReadOnly = .T., ; + Lineo1.Name = "Lineo1", ; + Lineo3.Name = "Lineo3", ; + Lineo4.Name = "Lineo4", ; + Lineo5.Name = "Lineo5", ; + Lineo2.Name = "Lineo2" + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="container" /> + + ADD OBJECT 'itmDocJustificat' AS item WITH ; + Anchor = 12, ; + Left = 249, ; + Name = "itmDocJustificat", ; + TabIndex = 11, ; + Top = 445, ; + Visible = .F., ; + ZOrderSet = 18, ; + Label_item1.Caption = "Nr. doc. justificat", ; + Label_item1.Name = "Label_item1", ; + Text_item1.ControlSource = "m.compensat", ; + Text_item1.Name = "Text_item1", ; + Text_item1.ReadOnly = .T., ; + Lineo1.Name = "Lineo1", ; + Lineo3.Name = "Lineo3", ; + Lineo4.Name = "Lineo4", ; + Lineo5.Name = "Lineo5", ; + Lineo2.Name = "Lineo2" + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="container" /> + + ADD OBJECT 'itmFdocAchitat' AS item WITH ; + Anchor = 12, ; + Height = 21, ; + Left = 249, ; + Name = "itmFdocAchitat", ; + TabIndex = 5, ; + Top = 382, ; + Visible = .F., ; + Width = 217, ; + ZOrderSet = 26, ; + Label_item1.AutoSize = .T., ; + Label_item1.Caption = "Fel document", ; + Label_item1.Name = "Label_item1", ; + Label_item1.TabIndex = 2, ; + Text_item1.ControlSource = "Thisform.cFdocAchitat", ; + Text_item1.Height = 18, ; + Text_item1.Left = 96, ; + Text_item1.Name = "Text_item1", ; + Text_item1.ReadOnly = .T., ; + Text_item1.TabIndex = 1, ; + Text_item1.Top = 2, ; + Text_item1.Width = 119, ; + Lineo1.Name = "Lineo1", ; + Lineo3.Height = 0, ; + Lineo3.Left = 0, ; + Lineo3.Name = "Lineo3", ; + Lineo3.Top = 19, ; + Lineo3.Width = 446, ; + Lineo4.Name = "Lineo4", ; + Lineo5.Name = "Lineo5", ; + Lineo2.Name = "Lineo2" + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="container" /> + + ADD OBJECT 'lb_plata_saft' AS label WITH ; + Anchor = 12, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Cod plata", ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,128, ; + Height = 18, ; + Left = 499, ; + Name = "lb_plata_saft", ; + TabIndex = 25, ; + Top = 427, ; + Visible = .F., ; + Width = 57 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Lb_shortcuts1' AS lb_shortcuts WITH ; + Caption = "CTRL+F = Verificare; ESC = Renunþare; ALT+N = Neachitat; ALT+C = Achitat din CASÃ; ALT+5 = Achitat din 542", ; + Left = 7, ; + Name = "Lb_shortcuts1", ; + TabIndex = 22, ; + Top = 23, ; + ZOrderSet = 11 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'lblDataScadenta' AS label_item WITH ; + Anchor = 12, ; + Caption = "Data scadentã", ; + FontCharSet = 238, ; + FontItalic = .F., ; + FontName = "Arial", ; + Left = 14, ; + Name = "lblDataScadenta", ; + TabIndex = 15, ; + Top = 386, ; + Visible = .T., ; + ZOrderSet = 17 + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="label" /> + + ADD OBJECT 'lblNr' AS label_item WITH ; + Anchor = 12, ; + Caption = "Nr.", ; + FontCharSet = 238, ; + Left = 569, ; + Name = "lblNr", ; + TabIndex = 20, ; + Top = 386, ; + Visible = .F., ; + ZOrderSet = 20 + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="label" /> + + ADD OBJECT 'lblSeria' AS label_item WITH ; + Anchor = 12, ; + Caption = "Seria", ; + FontCharSet = 238, ; + FontName = "Arial", ; + Left = 473, ; + Name = "lblSeria", ; + TabIndex = 19, ; + Top = 386, ; + Visible = .F., ; + ZOrderSet = 23 + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="label" /> + + ADD OBJECT 'lblSumaAchitata' AS label_item WITH ; + Anchor = 12, ; + Caption = "Suma achitatã", ; + FontCharSet = 238, ; + FontName = "Arial", ; + Left = 251, ; + Name = "lblSumaAchitata", ; + TabIndex = 17, ; + Top = 427, ; + Visible = .F., ; + ZOrderSet = 21 + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="label" /> + + ADD OBJECT 'optAchitat' AS optiongroup WITH ; + Anchor = 12, ; + AutoSize = .F., ; + BackStyle = 0, ; + BorderColor = 247,245,238, ; + BorderStyle = 0, ; + ButtonCount = 4, ; + Height = 79, ; + Left = 4, ; + Name = "optAchitat", ; + TabIndex = 4, ; + Top = 402, ; + Value = 1, ; + Width = 185, ; + ZOrderSet = 14, ; + Option1.AutoSize = .T., ; + Option1.BackStyle = 0, ; + Option1.Caption = "\ + + ADD OBJECT 'Renunt1' AS renunt WITH ; + Anchor = 8, ; + Left = 730, ; + Name = "Renunt1", ; + TabIndex = 13, ; + ToolTipText = "Renuntare (ESC)", ; + Top = 3, ; + ZOrderSet = 7, ; + Imbuton1.Height = 27, ; + Imbuton1.Name = "Imbuton1", ; + Imbuton1.Stretch = 2, ; + Imbuton1.Width = 30, ; + Command1.Name = "Command1" + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="container" /> + + ADD OBJECT 'shpAchitat' AS _shape WITH ; + Anchor = 12, ; + BackColor = 218,218,218, ; + BackStyle = 1, ; + Height = 110, ; + Left = 5, ; + Name = "shpAchitat", ; + Top = 380, ; + Width = 792, ; + ZOrderSet = 0 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" /> + + ADD OBJECT 'txtDataScadenta' AS text_item WITH ; + Anchor = 12, ; + BorderColor = 192,192,192, ; + BorderStyle = 1, ; + ControlSource = "thisform.datascad", ; + FontCharSet = 238, ; + FontName = "Arial", ; + Height = 20, ; + Left = 112, ; + Name = "txtDataScadenta", ; + TabIndex = 3, ; + Top = 384, ; + Visible = .T., ; + Width = 100, ; + ZOrderSet = 24 + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'txtNr' AS text_item WITH ; + Anchor = 12, ; + BorderColor = 192,192,192, ; + BorderStyle = 1, ; + ControlSource = "thisform.nrchit", ; + FontCharSet = 238, ; + FontName = "Arial", ; + Height = 20, ; + Left = 591, ; + Name = "txtNr", ; + TabIndex = 7, ; + Top = 384, ; + Visible = .F., ; + Width = 111, ; + ZOrderSet = 15 + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'txtSeria' AS text_item WITH ; + Anchor = 12, ; + BorderColor = 192,192,192, ; + BorderStyle = 1, ; + ControlSource = "thisform.seriechit", ; + FontCharSet = 238, ; + FontName = "Arial", ; + Format = "!K", ; + Height = 20, ; + Left = 513, ; + Name = "txtSeria", ; + TabIndex = 6, ; + TabStop = .T., ; + Top = 384, ; + Visible = .F., ; + Width = 51, ; + ZOrderSet = 19 + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'txtSumaAchitata' AS text_item WITH ; + Anchor = 12, ; + BorderColor = 192,192,192, ; + BorderStyle = 1, ; + ControlSource = "thisform.sumaachitata", ; + FontCharSet = 238, ; + FontName = "Arial", ; + Format = "RK", ; + Height = 20, ; + InputMask = (get_mask(12,gnPa)), ; + Left = 367, ; + Name = "txtSumaAchitata", ; + TabIndex = 10, ; + Top = 425, ; + Visible = .F., ; + Width = 122, ; + ZOrderSet = 22 + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'Verif1' AS verif WITH ; + Anchor = 8, ; + Left = 766, ; + Name = "Verif1", ; + TabIndex = 12, ; + ToolTipText = "Verificare (CTRL+L)", ; + Top = 3, ; + ZOrderSet = 10, ; + IMBUTON1.Height = 26, ; + IMBUTON1.Name = "IMBUTON1", ; + IMBUTON1.Width = 26, ; + COMMAND1.Name = "COMMAND1" + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="container" /> + + PROCEDURE actualizeaza_plata_saft + * Nu actualizez paymentcode dupa fel document, daca deja apelez aceasta procedura la schimbarea documentului + * Nu actualizez daca nu este optiunea D406 activa si nu este set plata + Local llVisible + If !m.gl406 + Return + Endif + llVisible = This.cbo_plATA_SAFT.Visible + + With This + * Cod mecanism plata SAFT + If !Used('saft_mecanisme_plati') + update_saft_mecanisme_plati() + Endif + + If Empty(.cbo_plATA_SAFT.RowSource) + .cbo_plATA_SAFT.RowSourceType = 3 && sql + .cbo_plATA_SAFT.RowSource = [Select paymentname, methodname, mechanismcode From saft_mecanisme_plati where afisat=1 Order By ordine Into Cursor crsMecanismePlatiX] + .cbo_plATA_SAFT.ControlSource = [Thisform.cPaymentCode] + .cbo_plATA_SAFT.BoundColumn = 3 + .cbo_plATA_SAFT.BoundTo = .T. + .cbo_plATA_SAFT.ColumnCount = 2 + .cbo_plATA_SAFT.ColumnWidths = "250,150" + Endif + .cbo_plata_saft.visible = m.llVisible && se pune Visible = .T. cand se face BoundTo = .T. + ENDWITH + This.UpdatePaymentSAFT() + + ENDPROC + + PROCEDURE calculez + PARAMETERS calc_baza + LOCAL lni + SELECT introdc + lni=RECNO() + + lcExcScd = ALLTRIM(this.pcexceptii_scd) + lcExcSCC = ALLTRIM(this.pcexceptii_scc) + + lcExcScd = strtran(lcExcScd, 'X', '0', 1,100,1) + lcExcScc = strtran(lcExcScc, 'X', '0', 1,100,1) + + IF !EMPTY(tcscc) + SUM suma TO lnBaza FOR !INLIST(VAL(scc), &lcExcscc) + SUM suma TO lnBazaDiscount FOR INLIST(VAL(scc), &lcExcscc) + ELSE + SUM suma TO lnBaza FOR !INLIST(VAL(scd), &lcExcscd) + SUM suma TO lnBazaDiscount FOR INLIST(VAL(scd), &lcExcscd) + ENDIF + + this.totftva = lnBaza - lnBazaDiscount + IF !calc_baza + IF !EMPTY(tcscc) + SUM suma*ptva TO lnTva FOR cu_tva = 1 AND !INLIST(VAL(scc), &lcExcscc) + SUM suma*ptva TO lnTvaDiscount FOR cu_tva = 1 AND INLIST(VAL(scc), &lcExcscc) + ELSE + SUM suma*ptva TO lnTva FOR cu_tva = 1 AND !INLIST(VAL(scd), &lcExcscd) + SUM suma*ptva TO lnTvaDiscount FOR cu_tva = 1 AND INLIST(VAL(scd), &lcExcscd) + ENDIF + this.tva = ROUND(lnTva/100,gnPC) - ROUND(lnTvaDiscount/100,gnPC) + ENDIF + this.totctva = this.totftva + this.tva + + * Import din eFactura, transmit tnTotcTVA + IF TYPE('tnTotcTVA') = 'N' + thisform.totctva = m.tnTotcTVA + this.tva = Thisform.totctva-Thisform.totftva + ENDIF + + this.SumaAchitata = this.totctva + this.txtSumaAchitata.Refresh() + + this.item1.text_item1.Refresh + this.container1.item2.text_item1.refresh + this.container1.item3.text_item1.refresh + + SELECT introdc + *!* modificare v 2.2.23 + *!* IF lni=1 + *!* GOTO TOP + *!* ELSE + *!* GOTO lni + *!* ENDIF + GOTO MIN(lni,RECCOUNT('introdc')) + *!* modificare v 2.2.23 ^ + ENDPROC + + PROCEDURE do_adauga + *!* modificare v 2.2.23 + Local lnRec, loRec + Select introdc + lnRec = Reccount('introdc') + + If Inlist(tn_idset, 10609, 10647) && limitare drept deducere 50%, 100% + Thisform.cmd_executa1.Visible = .F. + Select * From introdc Into Cursor introdctmp + + Append From Dbf('introdctmp') + Use In (Select('introdctmp')) + Else + Select introdc + Scatter Name loRec Memo + Append Blank + Gather Name loRec Memo + Endif + *!* modificare v 2.2.23 ^ + Select introdc + Replace ordine With Recno() All + Go lnRec + 1 + + This.gridb1.SetFocus() + + ENDPROC + + PROCEDURE do_cauta_alfa + PARAMETERS tcFis, tcColoane, tcTitlu, tcTitluColoane + + pcselect = [select * from ] + tcFis + pcfiltru = [1=2] + pcschema = [] + pcorder = '' + pccoloane = tcColoane + pcTitlu = tcTitlu + pcTitluColoane = tcTitluColoane + locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,tcFis) && 11.07.2007 + + RETURN locauta + ENDPROC + + PROCEDURE do_cauta_partener + PARAMETERS tcCont, lcCampId, lcCampNume + + lcCont = ALLTRIM(tcCont) + loCauta = CautPartenerContabilitate(GetHash([cTitlu=>Nume partener ] + lcCont + [??lAdaugCorespondente=>1??cCont=>] + lcCont)) + + If !Empty(locauta.nume) + lnid_part=locauta.id_part + lcnume=Alltrim(locauta.nume) + Else + lnId_part = 0 + lcNume = '' + ENDIF + + SELECT introdc + REPLACE &lcCampId WITH lnid_part, &lcCampNume WITH lcNume + + This.UpdateExplicatieSAFT() && actualizez explicatia SAFT pentru furnizor TVAI + ENDPROC + + PROCEDURE do_executa + Select introdc + Replace suma With Round((Thisform.container1.item3.text_item1.Value/RECCOUNT('introdc'))/(1+ptva/100),gnPc) All + Sum suma To Thisform.totftva + Thisform.tva = Thisform.totctva - Thisform.totftva + + Thisform.item1.text_item1.Refresh() + Thisform.container1.item2.text_item1.Refresh() + Select introdc + Go Top + Thisform.gridb1.column3.text1.SetFocus() + ENDPROC + + PROCEDURE Init + IF !EMPTY(tcSCD) + this.optAchitat.option2.Caption = "în \ 0 Into Cursor cascc Order By 1 + Select cascc + Scan + Scatter Fields ascc, proc_tva, id_part, nume_part, id_jtva_coloana, id_jtva_orig, taxcode Name loLinieTva + Select actactan + Sum Round(suma * (loLinieTva.proc_tva - 1), gnPC) To lnsuma For ascc = loLinieTva.ascc And id_jtva_coloana = loLinieTva.id_jtva_orig And id_partc = loLinieTva.id_part And !Inlist(Val(scc), &lcExcSCC) + Sum Round(suma * (loLinieTva.proc_tva - 1), gnPC) To LnSumDisc For ascd = loLinieTva.ascc And id_jtva_coloana = loLinieTva.id_jtva_orig And id_partd = loLinieTva.id_part And Inlist(Val(scc), &lcExcSCC) + lnsuma = lnsuma - LnSumDisc + Append Blank + Gather Name &lcObj Fields Except taxcode, paymentcode + Gather Name loLinieTva Fields ascc, proc_tva, id_jtva_coloana, taxcode + Gather Name ointr Fields Except ascc, proc_tva, id_partc, id_partd, partd, id_factc, id_factd, perechec, pereched, id_jtva_coloana, taxcode, paymentcode + Replace scd With tctva, scc With tcscc, ascd With '', ascc With loLinieTva.ascc, suma With lnsuma, id_partc With loLinieTva.id_part, partc With loLinieTva.nume_part + *!* 28.02.2012 + Replace suma_val With 0 + *!* 28.02.2012 ^ + Select cascc + Endscan + Select actactan + r = Recno() + Sum(suma) To lntottva For scd = tctva + If r = 1 + Goto Top + Else + Goto r + Endif + Replace suma With suma + Thisform.tva - lntottva &®lez diferente de rotunjire tva + Use In cascc + Case !Empty(tcscd) + + Select Distinct Iif(!Inlist(Val(a.scd), &lcExcScd), a.ascd, a.ascc) As ascd, a.proc_tva, ; + Iif(!Inlist(Val(a.scd), &lcExcScd), a.id_partd, a.id_partc) As id_part, ; + Iif(!Inlist(Val(a.scd), &lcExcScd), a.partd, a.partc) As nume_part, ; + a.id_jtva_coloana As id_jtva_orig, b.id_tva As id_jtva_coloana, a.taxcode ; + From actactan a Left Join jtva_coloane b On a.id_jtva_coloana = b.id_jtva_coloana ; + Where a.proc_tva <> 0 Into Cursor cascd Order By 1 + Select cascd + Scan + Scatter Fields ascd, proc_tva, id_part, nume_part, id_jtva_coloana, id_jtva_orig, taxcode Name loLinieTva + Select actactan + Sum Round(suma * (loLinieTva.proc_tva - 1), gnPC) To lnsuma For ascd = loLinieTva.ascd And id_jtva_coloana = loLinieTva.id_jtva_orig And id_partd = loLinieTva.id_part And !Inlist(Val(scd), &lcExcScd) + Sum Round(suma * (loLinieTva.proc_tva - 1), gnPC) To LnSumDisc For ascc = loLinieTva.ascd And id_jtva_coloana = loLinieTva.id_jtva_orig And id_partc = loLinieTva.id_part And Inlist(Val(scd), &lcExcScd) + lnsuma = lnsuma - LnSumDisc + Append Blank + Gather Name &lcObj Fields Except taxcode, paymentcode + Gather Name loLinieTva Fields ascd, proc_tva, id_jtva_coloana, taxcode + Gather Name ointr Fields Except suma, ascd, id_partd, id_partc, partc, id_factc, id_factd, perechec, pereched, id_jtva_coloana, taxcode, paymentcode + Replace scc With tctva, scd With tcscd, ascc With '', ascd With loLinieTva.ascd, suma With lnsuma, id_partd With loLinieTva.id_part, partd With loLinieTva.nume_part + *!* 28.02.2012 + Replace suma_val With 0 + *!* 28.02.2012 ^ + Select cascd + Endscan + Select actactan + r = Recno() + Sum(suma) To lntottva For scc = tctva + If r = 1 + Goto Top + Else + Goto r + Endif + Replace suma With suma + Thisform.tva - lntottva &®lez diferente de rotunjire tva + Use In cascd + + Endcase + Endif + + *!* modificare ROACONT v 2.4.0 + If Inlist(&lcObj..id_set, 10609, 10647) && limitare drept deducere 50%, 100% + Select actactan + Go Top + lcContScc = Alltrim(scc) + Replace scc With lcContScc For scc <> lcContScc And scd = '4426' + Endif + + ******************* + * 4111 = 4428 in loc de 4111 = 4427 pentru livrari neexigibile (Tva Incasare) + lcSql = "select ID_JTVA_COLOANA from JTVA_COLOANE t where coloana_jv LIKE 'RO%NT'" + lcCursor = 'cJtvaColTemp' + llSucces = goExecutor.oExecuta(m.lcSql, lcCursor) + If m.llSucces + Update actactan Set scc = '4428' Where id_jtva_coloana In (Select id_jtva_coloana From cJtvaColTemp) And scc = '4427' && TVA LIVR.INTERN NEEX. + * Update actactan Set scc = '4428' Where id_jtva_coloana Inlist(id_jtva_coloana, 22, 24, 26, 30, 32, 38, 42) And scc = '4427' && TVA LIVR.INTERN NEEX. + Endif + Use In (Select('cJtvaColTemp')) + ******************* + + ******************* + * 4428 = 401 in loc de 4426 = 401 pentru achizitii neexigibile (TVA Incasare) + lcSql = "select ID_JTVA_COLOANA from JTVA_COLOANE t where coloana_jc LIKE 'RO%NT'" + lcCursor = 'cJtvaColTemp' + llSucces = goExecutor.oExecuta(m.lcSql, lcCursor) + + If m.llSucces + Update actactan Set scd = '4428' Where id_jtva_coloana In (Select id_jtva_coloana From cJtvaColTemp) And scd = '4426' && TVA ACH.INTERN NEEX. + * Update actactan Set scd = '4428' Where Inlist(id_jtva_coloana, 171, 173, 175, 179, 189, 211, 215) And scd = '4426' && TVA ACH.INTERN NEEX. + Endif + Use In (Select('cJtvaColTemp')) + ******************* + + *** TAXARE INVERSA + *** select * from jtva_coloane t where DENUMIRE LIKE '%TI%' AND (COLOANA_JC IS NOT NULL OR COLOANA_JC IS NOT NULL) AND ID_TVA IS NULL AND COTA_TVA <> 0 ORDER BY ID_JTVA_COLOANA + lcSql = "select ID_JTVA_COLOANA from JTVA_COLOANE t where coloana_jc LIKE 'TI%T' or coloana_jc like 'XX%TIT' " + lcCursor = 'cJtvaColTemp' + llSucces = goExecutor.oExecuta(m.lcSql, lcCursor) + If m.llSucces + UPDATE actactan SET scc = '4427', ascc = '' Where id_jtva_coloana In (Select id_jtva_coloana From cJtvaColTemp) + UPDATE actactan SET scd = '4426', ascd = '' Where id_jtva_coloana In (Select id_jtva_coloana From cJtvaColTemp) + Endif + Use In (Select('cJtvaColTemp')) + + *** COMUNITATEA EUROPEANA + *** select * from jtva_coloane t where DENUMIRE LIKE '%CE%' AND (COLOANA_JC IS NOT NULL OR COLOANA_JC IS NOT NULL) AND ID_TVA IS NULL AND COTA_TVA <> 0 ORDER BY ID_JTVA_COLOANA + lcSql = "select ID_JTVA_COLOANA from JTVA_COLOANE t where coloana_jc LIKE 'CE%T' and coloana_jc not LIKE 'CE%FTT' " + lcCursor = 'cJtvaColTemp' + llSucces = goExecutor.oExecuta(m.lcSql, lcCursor) + + If m.llSucces + UPDATE actactan SET scc = '4427', ascc = '' Where id_jtva_coloana In (Select id_jtva_coloana From cJtvaColTemp) + UPDATE actactan SET scd = '4426', ascd = '' Where id_jtva_coloana In (Select id_jtva_coloana From cJtvaColTemp) + Endif + Use In (Select('cJtvaColTemp')) + **************** + * INCASARE/PLATA + **************** + lnSumaAchitataTotal = This.SumaAchitata + lnCoeficientAchitat = (This.SumaAchitata / This.Totctva) && pentru proportii TVA incasare + Do Case + Case Thisform.optAchitat.Value = 2 && achitat din 5311 + + Do Case + Case !Empty(tcscc) + Select Distinct Iif(!Inlist(Val(a.scc), &lcExcSCC), a.ascc, a.ascd) As ascc, ; + Iif(!Inlist(Val(a.scc), &lcExcSCC), a.id_partc, a.id_partd) As id_partc, ; + Iif(!Inlist(Val(a.scc), &lcExcSCC), a.partc, a.partd) As partc, ; + a.id_jtva_coloana, b.id_tva As id_jtva_tva, (Nvl(b.cota_tva, -100) + 100) / 100 As proc_tva ; + From actactan a Left Join jtva_coloane b On a.id_jtva_coloana = b.id_jtva_coloana ; + Where (Nvl(a.id_jtva_coloana, 0) = 0 Or (a.id_jtva_coloana <> 0 And b.afisat > 0)) ; + And (Inlist(scc, '401', '404', '408', '409', '462') Or Inlist(scd, '401', '404', '408', '409', '462')) ; + Into Cursor cascc Order By 1 + Select cascc + Scan + Scatter Fields ascc, id_partc, partc, id_jtva_coloana, id_jtva_tva, proc_tva Name loLinieIncasare + Select actactan + Sum suma To lnsuma For ascc = loLinieIncasare.ascc And id_partc = loLinieIncasare.id_partc And !Inlist(Val(scc), &lcExcSCC) ; + And Iif(!Isnull(loLinieIncasare.id_jtva_coloana), Inlist(id_jtva_coloana, loLinieIncasare.id_jtva_coloana, loLinieIncasare.id_jtva_tva), Isnull(id_jtva_coloana)) + Sum suma To LnSumDisc For ascd = loLinieIncasare.ascc And id_partd = loLinieIncasare.id_partc And Inlist(Val(scc), &lcExcSCC) ; + And Iif(!Isnull(loLinieIncasare.id_jtva_coloana), Inlist(id_jtva_coloana, loLinieIncasare.id_jtva_coloana, loLinieIncasare.id_jtva_tva), Isnull(id_jtva_coloana)) + lnsuma = lnsuma - LnSumDisc + lnsuma = Min(m.lnsuma, m.lnSumaAchitataTotal) + lnSumaAchitataTotal = lnSumaAchitataTotal - m.lnsuma + + Append Blank + Gather Name &lcObj Fields Except serie_act, taxcode, paymentcode + Gather Name loLinieIncasare Fields id_partc, ascc, id_jtva_coloana, proc_tva, partc + If !Inlist(&lcObj..scc, '408', '409') + Replace id_jtva_coloana With Null, proc_tva With 0 + Endif + Gather Name ointr Fields Except suma, ascc, scc, id_partc, id_factc, id_factd, perechec, pereched, id_jtva_coloana, proc_tva, serie_act, taxcode, paymentcode + Replace partd With partc, id_partd With id_partc, suma With lnsuma + *!* modificare ROACONT v 2.4.0 : am adaugat Thisform.seriechit + Replace scd With scc, ascd With ascc, scc With '5311', ascc With '', pereched With nract, id_factd With - 1, ; + serie_act With Nvl(Thisform.seriechit, ''), nract With Thisform.nrchit, partc With Thisform.casa, id_partc With This.ID_casa, ; + id_fdoc With Thisform.nIdFdocAchitat, fdoc With Thisform.cFdocAchitat, paymentcode With This.cPaymentCode + Replace pozitie_1 With 2 + *!* 28.02.2012 + Replace suma_val With 0 + *!* 28.02.2012 ^ + Select cascc + Endscan + Use In cascc + Case !Empty(tcscd) + Select Distinct Iif(!Inlist(Val(a.scd), &lcExcScd), a.ascd, a.ascc) As ascd, ; + Iif(!Inlist(Val(a.scd), &lcExcScd), a.id_partd, a.id_partc) As id_partd, ; + Iif(!Inlist(Val(a.scd), &lcExcScd), a.partd, a.partc) As partd, ; + a.id_jtva_coloana, b.id_tva As id_jtva_tva, (Nvl(b.cota_tva, -100) + 100) / 100 As proc_tva ; + From actactan a Left Join jtva_coloane b On a.id_jtva_coloana = b.id_jtva_coloana ; + Where (Nvl(a.id_jtva_coloana, 0) = 0 Or (a.id_jtva_coloana <> 0 And b.afisat > 0)) ; + And (Inlist(scc, '4111', '418', '419', '461') Or Inlist(scd, '4111', '418', '419', '461')) ; + Into Cursor cascd Order By 1 + Select cascd + Scan + Scatter Fields ascd, id_partd, partd, id_jtva_coloana, id_jtva_tva, proc_tva Name loLinieIncasare + Select actactan + Sum suma To lnsuma For ascd = loLinieIncasare.ascd And id_partd = loLinieIncasare.id_partd And !Inlist(Val(scd), &lcExcScd) ; + And Iif(!Isnull(loLinieIncasare.id_jtva_coloana), Inlist(id_jtva_coloana, loLinieIncasare.id_jtva_coloana, loLinieIncasare.id_jtva_tva), Isnull(id_jtva_coloana)) + Sum suma To LnSumDisc For ascc = loLinieIncasare.ascd And id_partc = loLinieIncasare.id_partd And Inlist(Val(scd), &lcExcScd) ; + And Iif(!Isnull(loLinieIncasare.id_jtva_coloana), Inlist(id_jtva_coloana, loLinieIncasare.id_jtva_coloana, loLinieIncasare.id_jtva_tva), Isnull(id_jtva_coloana)) + lnsuma = lnsuma - LnSumDisc + + lnsuma = Min(m.lnsuma, m.lnSumaAchitataTotal) + lnSumaAchitataTotal = lnSumaAchitataTotal - m.lnsuma + + Append Blank + Gather Name &lcObj Fields Except serie_act, taxcode, paymentcode + Gather Name loLinieIncasare Fields id_partd, ascd, id_jtva_coloana, proc_tva, partd + If !Inlist(&lcObj..scd, '418', '419') + Replace id_jtva_coloana With Null, proc_tva With 0 + Endif + Gather Name ointr Fields Except suma, ascd, scd, id_partd, id_factd, id_factc, pereched, perechec, id_jtva_coloana, proc_tva, serie_act, taxcode, paymentcode + Replace partc With partd, id_partc With id_partd, suma With lnsuma + *!* modificare ROACONT v 2.4.0 : am adaugat Thisform.seriechit + Replace scc With scd, ascc With ascd, scd With '5311', ascd With '', perechec With nract, id_factc With - 1, ; + serie_act With Nvl(Thisform.seriechit, ''), nract With Thisform.nrchit, partd With Thisform.casa, id_partd With This.ID_casa, ; + id_fdoc With Thisform.nIdFdocAchitat, fdoc With Thisform.cFdocAchitat, paymentcode With Thisform.cPaymentCode + Replace pozitie_2 With 1 + *!* 28.02.2012 + Replace suma_val With 0 + *!* 28.02.2012 ^ + Select cascd + Endscan + Use In cascd + + Endcase + Case Thisform.optAchitat.Value = 3 && achitat din 542 + + *!* SELECT DISTINCT ascc, scc, id_partc FROM actactan INTO CURSOR cascc ORDER BY ascc + *!* SELECT cascc + *!* SCAN + *!* SCATTER FIELDS ascc, scc, id_partc MEMV + *!* SELECT actactan + *!* CALCULATE SUM(suma) TO lnsuma FOR ascc = m.ascc AND id_partc = m.id_partc && AND proc_tva=m.proc_tva + + Select Distinct Iif(!Inlist(Val(a.scc), &lcExcSCC), a.ascc, a.ascd) As ascc, ; + Iif(!Inlist(Val(a.scc), &lcExcSCC), a.id_partc, a.id_partd) As id_partc, ; + Iif(!Inlist(Val(a.scc), &lcExcSCC), a.partc, a.partd) As partc, ; + a.id_jtva_coloana, b.id_tva As id_jtva_tva, (Nvl(b.cota_tva, -100) + 100) / 100 As proc_tva ; + From actactan a Left Join jtva_coloane b On a.id_jtva_coloana = b.id_jtva_coloana ; + Where (Nvl(a.id_jtva_coloana, 0) = 0 Or (a.id_jtva_coloana <> 0 And b.afisat > 0)) ; + And (Inlist(scc, '401', '404', '408', '409', '462') Or Inlist(scd, '401', '404', '408', '409', '462')) ; + Into Cursor cascc Order By 1 + Select cascc + Scan + Scatter Fields ascc, id_partc, partc, id_jtva_coloana, id_jtva_tva, proc_tva Name loLinieIncasare + Select actactan + Sum suma To lnsuma For ascc = loLinieIncasare.ascc And id_partc = loLinieIncasare.id_partc And !Inlist(Val(scc), &lcExcSCC) ; + And Inlist(scc, '401', '404', '408', '409', '462') ; + And Iif(!Isnull(loLinieIncasare.id_jtva_coloana), Inlist(id_jtva_coloana, loLinieIncasare.id_jtva_coloana, loLinieIncasare.id_jtva_tva), Isnull(id_jtva_coloana)) + Sum suma To LnSumDisc For ascd = loLinieIncasare.ascc And id_partd = loLinieIncasare.id_partc And Inlist(Val(scc), &lcExcSCC) ; + And Inlist(scc, '401', '404', '408', '409', '462') ; + And Iif(!Isnull(loLinieIncasare.id_jtva_coloana), Inlist(id_jtva_coloana, loLinieIncasare.id_jtva_coloana, loLinieIncasare.id_jtva_tva), Isnull(id_jtva_coloana)) + lnsuma = lnsuma - LnSumDisc + + lnsuma = Min(m.lnsuma, m.lnSumaAchitataTotal) + lnSumaAchitataTotal = lnSumaAchitataTotal - m.lnsuma + + Append Blank + Gather Name &lcObj Fields Except serie_act, taxcode, paymentcode + Gather Name loLinieIncasare Fields ascc, id_partc, id_jtva_coloana, proc_tva, partc + If !Inlist(&lcObj..scc, '408', '409') + Replace id_jtva_coloana With Null, proc_tva With 0 + Endif + Gather Name ointr Fields Except suma, ascc, scc, id_partc, id_jtva_coloana, proc_tva, serie_act, taxcode, paymentcode + Replace partd With partc, id_partd With id_partc, suma With lnsuma + *!* modificare ROACONT v 2.4.0 : am adaugat Thisform.seriechit + Replace scd With scc, ascd With ascc, scc With '542 ', ascc With '', pereched With nract, id_factd With - 1, ; + serie_act With Nvl(Thisform.seriechit, ''), nract With Thisform.nrchit, partc With Thisform.achi, id_partc With This.ID_achi, ; + id_fdoc With Thisform.nIdFdocAchitat, fdoc With Thisform.cFdocAchitat, paymentcode With Thisform.cPaymentCode + *!* 28.02.2012 + Replace suma_val With 0 + *!* 28.02.2012 ^ + Endscan + If Used('actcv542') + Select actcv542 + Replace All achilei With 0 For ales + Sum sumaachi To lnSuma542 + Select actactan + Sum suma To lnSAct For Alltrim(scc) = '542' + If lnSuma542 # lnSAct + amessagebox("Refaceti plata din 542!", 0 + 48, "Atentie") + Return .F. + Endif + Endif + + Select actactan + Scan For Alltrim(scc) = '542' And perechec = 0 + Scatter Name ocomp + Select actcv542 + Locate For ales And achilei < sumaachi + lnsuma = ocomp.suma - (sumaachi - achilei) + Do Case + Case lnsuma = 0 + Replace achilei With sumaachi + lnNract = nract + lnIdFact = id_fact + lcAcont = acont + Select actactan + Replace perechec With lnNract, id_factc With lnIdFact, ascc With lcAcont + Case lnsuma < 0 + Replace achilei With achilei + ocomp.suma + lnNract = nract + lnIdFact = id_fact + lcAcont = acont + Select actactan + Replace perechec With lnNract, id_factc With lnIdFact, ascc With lcAcont + Case lnsuma > 0 + lnSumaAct = sumaachi - achilei + lnNract = nract + lnIdFact = id_fact + lcAcont = acont + Replace achilei With achilei + lnSumaAct + Select actactan + lnr = Recno() + + Replace suma With lnSumaAct, perechec With lnNract, id_factc With lnIdFact, ascc With lcAcont + Append Blank + Gather Name ocomp + Replace suma With suma - lnSumaAct + + If lnr = 1 + Goto Top + Else + Goto lnr + Endif + Endcase + Select actactan + Endscan + Use In cascc + + Case Thisform.optAchitat.Value = 4 && achitat din 462 + + Do Case + Case !Empty(tcscc) + Select Distinct Iif(!Inlist(Val(a.scc), &lcExcSCC), a.ascc, a.ascd) As ascc, ; + Iif(!Inlist(Val(a.scc), &lcExcSCC), a.id_partc, a.id_partd) As id_partc, ; + Iif(!Inlist(Val(a.scc), &lcExcSCC), a.partc, a.partd) As partc, ; + a.id_jtva_coloana, b.id_tva As id_jtva_tva, (Nvl(b.cota_tva, -100) + 100) / 100 As proc_tva ; + From actactan a Left Join jtva_coloane b On a.id_jtva_coloana = b.id_jtva_coloana ; + Where (Nvl(a.id_jtva_coloana, 0) = 0 Or (a.id_jtva_coloana <> 0 And b.afisat > 0)) ; + And (Inlist(scc, '401', '404', '408', '409', '462') Or Inlist(scd, '401', '404', '408', '409', '462')) ; + Into Cursor cascc Order By 1 + Select cascc + Scan + Scatter Fields ascc, id_partc, partc, id_jtva_coloana, id_jtva_tva, proc_tva Name loLinieIncasare + Select actactan + Sum suma To lnsuma For ascc = loLinieIncasare.ascc And id_partc = loLinieIncasare.id_partc And !Inlist(Val(scc), &lcExcSCC) ; + And Iif(!Isnull(loLinieIncasare.id_jtva_coloana), Inlist(id_jtva_coloana, loLinieIncasare.id_jtva_coloana, loLinieIncasare.id_jtva_tva), Isnull(id_jtva_coloana)) + Sum suma To LnSumDisc For ascd = loLinieIncasare.ascc And id_partd = loLinieIncasare.id_partc And Inlist(Val(scc), &lcExcSCC) ; + And Iif(!Isnull(loLinieIncasare.id_jtva_coloana), Inlist(id_jtva_coloana, loLinieIncasare.id_jtva_coloana, loLinieIncasare.id_jtva_tva), Isnull(id_jtva_coloana)) + lnsuma = lnsuma - LnSumDisc + lnsuma = Min(m.lnsuma, m.lnSumaAchitataTotal) + lnSumaAchitataTotal = lnSumaAchitataTotal - m.lnsuma + + Append Blank + Gather Name &lcObj Fields Except serie_act, taxcode, paymentcode + Gather Name loLinieIncasare Fields id_partc, ascc, id_jtva_coloana, proc_tva, partc + If !Inlist(&lcObj..scc, '408', '409') + Replace id_jtva_coloana With Null, proc_tva With 0 + Endif + Gather Name ointr Fields Except suma, ascc, scc, id_partc, id_factc, id_factd, perechec, pereched, id_jtva_coloana, proc_tva, serie_act, taxcode, paymentcode + Replace partd With partc, id_partd With id_partc, suma With lnsuma + *!* modificare ROACONT v 2.4.0 : am adaugat Thisform.seriechit + Replace scd With scc, ascd With ascc, scc With '462 ', ascc With '', pereched With nract, id_factd With - 1, ; + serie_act With Nvl(Thisform.seriechit, ''), nract With Thisform.nrchit, partc With Thisform.part462, id_partc With This.id_part462, ; + id_fdoc With Thisform.nIdFdocAchitat, fdoc With Thisform.cFdocAchitat, paymentcode With This.cPaymentCode + Replace pozitie_1 With 2 + *!* 28.02.2012 + Replace suma_val With 0 + *!* 28.02.2012 ^ + Select cascc + Endscan + Use In cascc + Endcase + + Case Thisform.optAchitat.Value = 1 And tl_plata + Select actactan + Replace All datascad With Thisform.datascad + Endcase + + **************** + * TVA INCASARE + **************** + *!* modificare ROACONT v 2.4.0 + + If Inlist(Thisform.optAchitat.Value, 2, 3, 4) + Insert Into actactan(nr_nota, serie_act, luna, an, nract, scd, ascc, scc, ; + suma, suma_val, pereched, perechec, explicatia4, explicatia5, Curs, id_util, ; + id_responsabil, nresp, id_venchelt, dst_chlt, id_lucrare, nrord, ; + id_ctr, contract, id_sectie, sectie, proc_tva, id_set, id_fact, ; + id_factd, id_factc, id_partd, partd, id_partc, partc, ; + id_sucursala, sucursala, id_fdoc, fdoc, id_gestin, id_jtva_coloana, taxcode, ; + gestin, id_gestout, gestout, id_valuta, nume_val, dataact, dataireg); + Select a.nr_nota, Nvl(Thisform.seriechit, '') As serie_act, a.luna, a.an, Thisform.nrchit As nract, '4426' As scd, a.ascd As ascc, '4428' As scc, ; + Round(a.suma * m.lnCoeficientAchitat, m.gnPA) As suma, Round(a.suma_val * m.lnCoeficientAchitat, m.gnPval) As suma_val, ; + a.nract As pereched, a.perechec, a.explicatia4, a.explicatia5, a.Curs, a.id_util, ; + a.id_responsabil, a.nresp, a.id_venchelt, a.dst_chlt, a.id_lucrare, a.nrord, ; + a.id_ctr, a.contract, a.id_sectie, a.sectie, a.proc_tva, a.id_set, -5 As id_fact, ; + 0 As id_factd, 0 As id_factc, 0 As id_partd, '' As partd, 0 As id_partc, '' As partc, ; + a.id_sucursala, a.sucursala, Thisform.nIdFdocAchitat As id_fdoc, Thisform.cFdocAchitat As fdoc, 0 As id_gestin, ; + c.id_tva As id_jtva_coloana, ; + CAST(GetTaxCode(m.gnAn, m.gnLuna, a.dataact, c.id_tva) As N(6) Null) As taxcode,; + '' As gestin, 0 As id_gestout, '' As gestout, a.id_valuta, a.nume_val, a.dataact, a.dataireg ; + From actactan a ; + Left Join jtva_coloane b On a.id_jtva_coloana = b.id_tva ; + Left Join jtva_coloane c On b.id_jtva_ex = c.id_jtva_coloana ; + Where a.scd = '4428' And Like('4*', a.scc) And !Isnull(b.id_jtva_ex) + + Insert Into actactan(nr_nota, serie_act, luna, an, nract, scc, ascd, scd, ; + suma, suma_val, pereched, perechec, explicatia4, explicatia5, Curs, id_util, ; + id_responsabil, nresp, id_venchelt, dst_chlt, id_lucrare, nrord, ; + id_ctr, contract, id_sectie, sectie, proc_tva, id_set, id_fact, ; + id_factd, id_factc, id_partd, partd, id_partc, partc, ; + id_sucursala, sucursala, id_fdoc, fdoc, id_gestin, id_jtva_coloana, taxcode, ; + gestin, id_gestout, gestout, id_valuta, nume_val, dataact, dataireg); + Select a.nr_nota, Nvl(Thisform.seriechit, '') As serie_act, a.luna, a.an, Thisform.nrchit As nract, '4427' As scc, a.ascc As ascd, '4428' As scd, ; + Round(a.suma * m.lnCoeficientAchitat, m.gnPA) As suma, Round(a.suma_val * m.lnCoeficientAchitat, m.gnPval) As suma_val, ; + a.pereched, a.nract As perechec, a.explicatia4, a.explicatia5, a.Curs, a.id_util, ; + a.id_responsabil, a.nresp, a.id_venchelt, a.dst_chlt, a.id_lucrare, a.nrord, ; + a.id_ctr, a.contract, a.id_sectie, a.sectie, a.proc_tva, a.id_set, -5 As id_fact, ; + 0 As id_factd, 0 As id_factc, 0 As id_partd, '' As partd, 0 As id_partc, '' As partc, ; + a.id_sucursala, a.sucursala, Thisform.nIdFdocAchitat As id_fdoc, Thisform.cFdocAchitat As fdoc, 0 As id_gestin, ; + c.id_tva As id_jtva_coloana, ; + CAST(GetTaxCode(m.gnAn, m.gnLuna, a.dataact, c.id_tva) As N(6) Null) As taxcode,; + '' As gestin, 0 As id_gestout, '' As gestout, a.id_valuta, a.nume_val, a.dataact, a.dataireg ; + From actactan a ; + Left Join jtva_coloane b On a.id_jtva_coloana = b.id_tva ; + Left Join jtva_coloane c On b.id_jtva_ex = c.id_jtva_coloana ; + Where a.scc = '4428' And Like('4*', a.scd) And !Isnull(b.id_jtva_ex) + Endif + *!* modificare ROACONT v 2.4.0 ^ + + *!* modificare ROACONT v 2.4.0 : l-am mutat mai sus ( inainte de schimbarea 4426 in 4428 ) + *!* *!* modificare v 2.2.21 + *!* If &lcObj..id_set = 10609 + *!* Select actactan + *!* Go Top + *!* lcContScc = Alltrim(scc) + *!* Replace scc With lcContScc For scc <> lcContScc And scd = '4426' + *!* Endif + *!* *!* modificare v 2.2.21 ^ + *!* modificare ROACONT v 2.4.0 ^ + Release ointr, loLinieTva, loLinieIncasare + + *!* modificare v 2.2.20 + lnIdSet = &lcObj..id_set + lnIdJtvaLim50 = 1004 + lnIdJtvaLim100 = 1005 + llLimitareDeducere50 = (&lcObj..deducere = 1) + llLimitareDeducere100 = (&lcObj..deducere = 2) + lnProcentNedeductibil = Iif(m.lnIdSet = 10647 Or m.llLimitareDeducere100, 1.0, 0.5) && 10647 = 100% limitare deducere TVA + + * Limitare 50% TVA x = 4426 + If Inlist(&lcObj..id_set, 10609, 10647) Or (&lcObj..id_set = 10457 And &lcObj..deducere = 1) Or m.llLimitareDeducere50 Or m.llLimitareDeducere100 && limitare drept deducere 50%, 100% + *!* modificare ROACONT v 2.4.0 : la scc ( in loc de '4426' ), la id_jtva_coloana ( in loc de 1001 ) si + *!* am adaugat conditia "and !like('44*',a.scc)" + lnIdJTVALim = Iif(m.lnIdSet = 10647 Or m.llLimitareDeducere100, m.lnIdJtvaLim100, m.lnIdJtvaLim50) + llN50 = (m.lnIdSet <> 10647) And !m.llLimitareDeducere100 + llN100 = (m.lnIdSet = 10647) Or m.llLimitareDeducere100 + + Insert Into actactan(nr_nota, serie_act, luna, an, nract, ascd, scd, scc, ; + suma, suma_val, pereched, perechec, explicatia4, explicatia5, Curs, id_util, ; + id_responsabil, nresp, id_venchelt, dst_chlt, id_lucrare, nrord, ; + id_ctr, contract, id_sectie, sectie, proc_tva, id_set, id_fact, ; + id_factd, id_factc, id_partd, partd, id_partc, partc, ; + id_sucursala, sucursala, id_fdoc, fdoc, id_gestin, id_jtva_coloana, taxcode,; + gestin, id_gestout, gestout, id_valuta, nume_val, dataact, dataireg) ; + Select a.nr_nota, a.serie_act, a.luna, a.an, a.nract, a.ascd, a.scd, ; + '4426' As scc, ; + Round(Round(a.suma * (a.proc_tva - 1), gnPC) * m.lnProcentNedeductibil, gnPC) As suma, ; + Round(Round(a.suma_val * (a.proc_tva - 1), gnPC) * m.lnProcentNedeductibil, gnPC) As suma_val, ; + a.pereched, a.perechec, a.explicatia4, a.explicatia5, a.Curs, a.id_util, ; + a.id_responsabil, a.nresp, a.id_venchelt, a.dst_chlt, a.id_lucrare, a.nrord, ; + a.id_ctr, a.contract, a.id_sectie, a.sectie, 0 As proc_tva, a.id_set, a.id_fact, ; + 0 As id_factd, 0 As id_factc, 0 As id_partd, '' As partd, 0 As id_partc, '' As partc, ; + a.id_sucursala, a.sucursala, a.id_fdoc, a.fdoc, 0 As id_gestin, m.lnIdJTVALim As id_jtva_coloana, ; + CAST(GetTaxCodeIdPart(m.gnAn, m.gnLuna, a.dataact, a.id_jtva_coloana, Nvl(a.id_partc, a.id_partd), m.llN50, m.llN100) As N(6) Null) As taxcode,; + '' As gestin, 0 As id_gestout, '' As gestout, a.id_valuta, a.nume_val, a.dataact, a.dataireg ; + From actactan a ; + Left Join jtva_coloane b On a.id_jtva_coloana = b.id_jtva_coloana ; + Where (Nvl(a.id_jtva_coloana, 0) = 0 Or (a.id_jtva_coloana <> 0 And b.afisat > 0)) ; + And !Isnull(b.id_tva) ; && modificare v 2.4.5 + And Like('4*', a.scc) And !Like('44*', a.scc) && modificare v 2.2.22 + *!* AND Inlist(scc,'401','404') modificare v 2.2.21 + Endif + *!* modificare v 2.2.20 ^ + *!* modificare v 2.4.3 + + * Exigibilizare 50% TVA pentru Limitare deducere TVA 4426 = 4428 pentru furnizorii TVA Incasare + If Thisform.optAchitat.Value = 1 And &lcObj..tva_incasare = 1 And ; + ((&lcObj..id_set = 10424 And &lcObj..deducere = 1) Or ; + Inlist(&lcObj..id_set, 10609, 10647) Or ; + (&lcObj..id_set = 10457 And &lcObj..deducere = 1) Or m.llLimitareDeducere50 Or m.llLimitareDeducere100) + Insert Into actactan(nr_nota, serie_act, luna, an, nract, scd, scc, ; + suma, suma_val, pereched, perechec, explicatia4, explicatia5, Curs, id_util, ; + id_responsabil, nresp, id_venchelt, dst_chlt, id_lucrare, nrord, ; + id_ctr, contract, id_sectie, sectie, proc_tva, id_set, id_fact, ; + id_factd, id_factc, id_partd, partd, id_partc, partc, ; + id_sucursala, sucursala, id_fdoc, fdoc, id_gestin, id_jtva_coloana, taxcode, ; + gestin, id_gestout, gestout, id_valuta, nume_val, dataact, dataireg) ; + Select a.nr_nota, a.serie_act, a.luna, a.an, a.nract, '4426' As scd, '4428' As scc, ; + Round(Round(a.suma * (a.proc_tva - 1), gnPC) * m.lnProcentNedeductibil, gnPC) As suma, ; + Round(Round(a.suma_val * (a.proc_tva - 1), gnPC) * m.lnProcentNedeductibil, gnPC) As suma_val, ; + a.pereched, a.perechec, a.explicatia4, a.explicatia5, a.Curs, a.id_util, ; + a.id_responsabil, a.nresp, a.id_venchelt, a.dst_chlt, a.id_lucrare, a.nrord, ; + a.id_ctr, a.contract, a.id_sectie, a.sectie, a.proc_tva, a.id_set, a.id_fact, ; + 0 As id_factd, 0 As id_factc, 0 As id_partd, '' As partd, 0 As id_partc, '' As partc, ; + a.id_sucursala, a.sucursala, a.id_fdoc, a.fdoc, 0 As id_gestin, c.id_tva As id_jtva_coloana, ; + CAST(GetTaxCode(m.gnAn, m.gnLuna, a.dataact, c.id_tva) As N(6) Null) As taxcode,; + '' As gestin, 0 As id_gestout, '' As gestout, a.id_valuta, a.nume_val, a.dataact, a.dataireg ; + From actactan a ; + Left Join jtva_coloane b On a.id_jtva_coloana = b.id_jtva_coloana ; + Left Join jtva_coloane c On b.id_jtva_ex = c.id_jtva_coloana ; + Where (Nvl(a.id_jtva_coloana, 0) = 0 Or (a.id_jtva_coloana <> 0 And b.afisat > 0)) ; + And !Isnull(b.id_jtva_ex) ; && modificare v 2.4.5 + And Like('4*', a.scc) And !Like('44*', a.scc) And !Like('44*', a.scd) + Endif + *!* modificare v 2.4.3 ^ + *!* modificare v 2.2.23 + + *!* modificare v 2.2.23 ^ + *!* 28.02.2012 + Update actactan Set suma_val = Round(suma / Curs, m.gnPval) Where Nvl(suma_val, 0) = 0 And Curs <> 0 + *!* 28.02.2012 ^ + Delete From actactan Where suma = 0 + + + Do completare_gruputil_analitice In oproceduri_comune.prg + Do completare_tva_analitice In oproceduri_comune.prg + Do completare_taxname In oproceduri_comune.prg + Do completare_paymentname In oproceduri_comune.prg + Do completare_explicatie_tva In oproceduri_comune.prg + Select actactan + Go Top + + Return .T. + + + + ENDPROC + + PROCEDURE nidfdocachitat_assign + lparameters tnIdFdocAchitat + This.nIdFdocAchitat = tnIdFdocAchitat + + Thisform.UpdatePaymentSAFT() + ENDPROC + + PROCEDURE refreshachitat + Local llAchitat, llAchitat5311, llAchitat542, llAchitat462, llCuAchitare + + llCuAchitare = m.tl_plata + llAchitat5311 = m.llCuAchitare And (This.optAchitat.Value = 2) + llAchitat542 = m.llCuAchitare And (This.optAchitat.Value = 3) + llAchitat462 = m.llCuAchitare And (This.optAchitat.Value = 4) + llAchitat = (m.llAchitat5311 Or m.llAchitat542 or m.llAchitat462) + + With Thisform + .shpAchitat.Visible = m.llCuAchitare + .lblDataScadenta.Visible = m.llCuAchitare And !m.llAchitat + .txtDataScadenta.Visible = m.llCuAchitare And !m.llAchitat + .itmFdocAchitat.Visible = m.llAchitat + .lblSeria.Visible = m.llAchitat + .txtSeria.Visible = m.llAchitat + .lblNr.Visible = m.llAchitat + .txtNr.Visible = m.llAchitat + .itmAchizitor.Visible = m.llAchitat542 + .itmCreditorDivers.Visible = m.llAchitat462 + .itmCasaPlati.Visible = m.llAchitat5311 + .lblSumaAchitata.Visible = m.llAchitat + .txtSumaAchitata.Visible = m.llAchitat + .itmDocJustificat.Visible = m.llAchitat542 + *!* modificare ROACONT v 2.5.45 + .optAchitat.Visible = m.llCuAchitare + *!* modificare ROACONT v 2.5.45 ^ + .lb_plata_saft.visible = m.gl406 and m.llAchitat + .cbo_plata_saft.visible = m.gl406 and m.llAchitat + Endwith + IF m.gl406 AND m.llAchitat + This.actualizeaza_plata_saft() + ENDIF + + Thisform.Refresh() + + ENDPROC + + PROCEDURE Show + Lparameters nStyle + *!* modificare ROACONT v 2.5.45 : am modificat anchor-ul de la gridb1 ( de la 15 la 11 ) si item1 ( de la 12 la 8 ) + *!* pentru ca atunci cand se modifica inaltimea ferestrei, gridul si itemul erau ancorate in jos pe absolut si se + *!* "ridicau" pe masura ce se diminua inaltimea ferestrei + + *!* 10.10.2014 + *!* marius.mutu + *!* modificat anchor container1 de la 12 la 8 pentru ca se ridica sub grid si nu se mai vedea + + *!* 29.10.2014 + *!* marius.muut + *!* am marit fereastra pe latime la sfarsit + + LOCAL lnHeight + + lcObj = Alltrim(This.pcobj) + + With &lcObj + && modif v3.0.61 - 03nov2008 + *!* this.datascad = GOMONTH(.dataact, 1) + + If Type('.datascad') = 'D' + This.datascad = .datascad + Else + This.datascad = Gomonth(.dataact, 1) + Endif + && modif v3.0.61 - 03nov2008 ^ + Endwith + + thisform.nIdFdocAchitat = &lcObj..id_fdoc + thisform.cFdocAchitat = &lcObj..fdoc + + *!* modificare v 2.2.21 + *!* IF !EMPTY(tcscc) + * Nu mai fac inactive coloanele de cont, partener. Poate sa modifice orice coloana + + *!* If !Empty(tcscc) And !Inlist(tn_idset,10609, 10647) && limitare deducere 50% / 100% + *!* *!* modificare v 2.2.21 ^ + *!* This.GRIdb1.COLUMN4.ReadOnly=.T. + *!* This.GRIdb1.COLUMN15.ReadOnly=.T. + *!* Endif + *!* If !Empty(tcscD) + *!* This.GRIdb1.COLUMN3.ReadOnly=.T. + *!* This.GRIdb1.COLUMN14.ReadOnly=.T. + *!* Endif + + Do Case + Case Inlist(tn_idset,10460) + *!* SELECT introdc + *!* REPLACE ALL sectie WITH m.sectie,dst_chlt WITH m.dst_chlt nresp WITH m.nresp + This.GRIdb1.Refresh + This.container1.item2.text_item1.SetFocus + Case INLIST(tn_idset, 10609, 10647) && modificare v 2.2.22 + *!* modificare 2.2.23 + * Am facut butonul Nou vizibil permanent + *!* Thisform.but_nou1.Visible = .T. + *!* Thisform._shaPE1.Width = Thisform._shaPE1.Width + 42 + *!* Thisform._shaPE1.Left = Thisform._shaPE1.Left - 42 + *!* modificare 2.2.23 ^ + Thisform.container1.item3.text_item1.SetFocus() + Otherwise + This.GRIdb1.SetFocus + Endcase + + + If !m.tl_plata + This.Height = This.shpAchitat.Top + Else + This.optACHITAT.Value = 1 + Endif + + This.RefreshAchitat() + + If !m.tl_calcTVA + this.container1.Visible = .F. + *!* modificare ROACONT v 2.5.45 + *!* this.Height = obj.container1.Top + 10 + This.Height = Thisform.item1.Top + Thisform.item1.Height + 10 + *!* modificare ROACONT v 2.5.45 ^ + this.GRIdb1.column13.Visible = .F. + ENDIF + lnHeight = this.Height + this.WindowState= 2 + this.Height = MAX(m.lnHeight, INT(_screen.Height*2/3)) + + This.gridb1.column22.Visible = m.gl406 && taxcode + This.gridb1.column23.Visible = m.gl406 && taxcode descriere + + * Calculez totaluri la inceput, in caz ca intru cu note si sume din import eFactura + * Initalizez Totctva din import eFactura + If Inlist(tn_idset,10460) + Thisform.calculez(.T.) + Else + Thisform.calculez(.F.) + ENDIF + GO TOP IN introdc + ENDPROC + + PROCEDURE updateexplicatiesaft + * Daca nu este activata SAFT 406 nu fac nimic + IF !m.gl406 + RETURN + ENDIF + + Local loPartenerRTVAI As "empty" + Local loPartenerRTVAIX As "empty" + Local lcCodFiscal, lcNumePart, ldDataAct, llFurnizorRTVAI, lnIdJtva, lnIdPart, lnTaxCode, lcSelect, llN50, llN100, lnLimitareDeducere50, llNeexigibil + + lcSelect = SELECT() + + + ldDataAct = poAct.dataact + lnIdJtva = introdc.id_jtva_coloana + llFurnizorRTVAI = .F. + lnIdPart = Nvl(introdc.id_partc, introdc.id_partd) + + lcObj = Alltrim(This.pcobj) + lnIdSet = &lcObj..id_set + lnLimitareDeducere50 = &lcObj..deducere + * llN50/llN100 = .T. doar pentru linia cu Explicatie TVA = "Limitare deducere TVA" + llN50 = .F. && (m.lnIdSet = 10609) or (m.lnLimitareDeducere50 = 1) + llN100 = .F. && (m.lnIdSet = 10647) + llNeexigibil = LEFT(scd,3) = '418' or LEFT(scc,3) = '408' && facturi neintocmite/nesosite + + lnTaxCode = GetTaxCodeIdPart(m.gnAn, m.gnLuna, m.ldDataAct, m.lnIdJtva, m.lnIdPart, m.llN50, m.llN100, m.llNeexigibil) + + Replace taxcode With m.lnTaxCode In introdc + *This.gridb1.column22._combobox1.ForeColor = Rgb(255, 0, 0) + This.gridb1.column22._combobox1.Refresh() + This.gridb1.column23.text1.Refresh() + + SELECT (m.lcSelect) + ENDPROC + + PROCEDURE updatepaymentsaft + Local llAchitat + If !m.gl406 + Return + ENDIF + + lnIdFdoc = NVL(Thisform.nIdFdocAchitat,0) + + IF !EMPTY(m.lnIdFdoc) + this.cPaymentCode = GetPaymentCode(m.lnIdFdoc) + ELSE + llAchitat = m.tl_plata And Inlist(This.optAchitat.Value, 2, 3) + this.cPaymentCode = IIF(m.llAchitat, '10', '') + ENDIF + + This.cbo_plata_saft.Refresh() + + ENDPROC + + PROCEDURE verificare + Local LL_MARCA + LL_MARCA=.T. + If Used('crsv') + Use In crsv + Endif + Select Count(*) As nr From introdc Where !Empty(suma) And Empty(Nvl(id_jtva_coloana,0)) And cu_tva = 1 Into Cursor crsv + Select crsv + lnNr = nr + Use In crsv + + Do Case + Case lnNr > 0 + aMESSAGEBOX("Nu ati completat explicatia TVA pentru toate sumele!",0+48,"Atentie") + Select introdc + Locate For !Empty(suma) And Empty(Nvl(id_jtva_coloana,0)) And cu_tva = 1 + Thisform.gridb1.column13.SetFocus() + LL_MARCA = .F. + Case Thisform.optAchitat.Value = 2 + If Empty(Thisform.nrchit) Or Empty(This.id_casa) + aMESSAGEBOX("Nu ati completat datele referitoare la plata!",0+48,"Atentie") + Thisform.txtNr.SetFocus + LL_MARCA=.F. + Endif + Case Thisform.optAchitat.Value=3 + If Empty(Thisform.nrchit) Or Empty(This.id_achi) + aMESSAGEBOX("Nu ati completat datele referitoare la plata!",0+48,"Atentie") + Thisform.txtNr.SetFocus + LL_MARCA=.F. + Endif + Endcase + + If LL_MARCA + LL_MARCA = Thisform.la_iesire() + Endif + + Return LL_MARCA + ENDPROC + + PROCEDURE verific_analitic + ENDPROC + + PROCEDURE verific_cont + this.lblDataScadenta.Visible = .F. + this. + ENDPROC + + PROCEDURE verific_inregistrari + ENDPROC + + PROCEDURE verific_partener + Parameters tcCont, tcId, tcNume + + If Empty(tcCont) + Return + Endif + + Local llReturn + llReturn = .F. + + Select introdc + lcCont = &tcCont + lcCont = Alltrim(lcCont) + + lcSql=[select count(*) as valoare FROM ] + gcS + [.vcoresp_tip_cont where cont = ?lcCont ] + lcCursor = 'c_part' + lnSucces = goExecutor.oExecute(lcSql,lcCursor) + If lnSucces < 0 + aMESSAGEBOX('VERIFICARE PARTENER ' + Chr(13) + goExecutor.cEroare,0+16,"Eroare") + Endif + + If lnSucces > 0 + Select c_part + If valoare > 0 + Thisform.do_cauta_partener(lcCont, tcId, tcNume) + Endif + If Used('c_part') + Use In c_part + Endif + Endif + ENDPROC + + PROCEDURE Container1.Item2.Text_item1.GotFocus + * + ENDPROC + + PROCEDURE Container1.Item2.Text_item1.KeyPress + LPARAMETERS nKeyCode, nShiftAltCtrl + * + ENDPROC + + PROCEDURE Container1.Item2.Text_item1.LostFocus + IF INLIST(tn_idset,10460) && combustibili cu taxa + SELECT INTRODC + LOCATE FOR ptva <> 0 AND suma = 0 + IF FOUND() + lnProcTva = (100 + ptva)/100 + REPLACE SUMA WITH ROUND(THISFORM.TVA/(lnProcTva-1),gnPC) + ELSE + LOCATE + ENDIF + ENDIF + thisform.calculez(.t.) + ENDPROC + + PROCEDURE Container1.Item2.Text_item1.Valid + * + ENDPROC + + PROCEDURE Container1.Item2.Text_item1.When + * + ENDPROC + + PROCEDURE Container1.Item3.Text_item1.GotFocus + * + ENDPROC + + PROCEDURE Container1.Item3.Text_item1.KeyPress + LPARAMETERS nKeyCode, nShiftAltCtrl + * + ENDPROC + + PROCEDURE Container1.Item3.Text_item1.LostFocus + Do Case + Case Inlist(tn_idset,10460) + Select INTRODC + Sum SUMA To LnSuma For ptva <> 0 + Sum SUMA To lnSumaNeimp For ptva = 0 + If Abs(Thisform.totctva-Thisform.tva-LnSuma-lnSumaNeimp)<100 && sa nu calculexe taxa de drum dc e < 100 lei + Locate For ptva <> 0 + Else + Locate For ptva = 0 And Upper(Left(explicatie,4))='TAXA' + Endif + If Found() + Replace SUMA With SUMA+Thisform.totctva-Thisform.tva-LnSuma-lnSumaNeimp + Else + Locate + Endif + Thisform.totftva=Thisform.totctva-Thisform.tva + Thisform.item1.text_item1.Refresh + *!* modificare v 2.2.23 + *!* Case tn_idset = 10609 && modificare v 2.2.22 + *!* && nu am discounturi + *!* Select INTRODC + *!* Replace SUMA With Round((This.Value/2)/(1+ptva/100),gnPc) All + *!* Sum SUMA To Thisform.totftva + *!* Thisform.tva = Thisform.totctva - Thisform.totftva + *!* Thisform.item1.text_item1.Refresh() + *!* Thisform.container1.item2.text_item1.Refresh() + *!* Select INTRODC + *!* Go Top + *!* Thisform.gridb1.column3.text1.SetFocus() + Case tn_idset = 10609 AND !Thisform.cmd_executa1.Visible && AND RECCOUNT('introdc') = 2 + Thisform.do_executa() + Thisform.cmd_executa1.Visible = .T. + *!* modificare v 2.2.23 ^ + Case tn_idset = 10647 AND !Thisform.cmd_executa1.Visible AND RECCOUNT('introdc') = 1 + Thisform.do_executa() + Thisform.cmd_executa1.Visible = .T. + Otherwise + Thisform.tva=Thisform.totctva-Thisform.totftva + Thisform.container1.item2.text_item1.Refresh + Endcase + ENDPROC + + PROCEDURE Container1.Item3.Text_item1.Valid + * + ENDPROC + + PROCEDURE Container1.Item3.Text_item1.When + * + ENDPROC + + PROCEDURE Gridb1.AfterRowColChange + LPARAMETERS nColIndex + *!* SELECT introdc + + *!* IF LEFT(scd,1) = '6' OR LEFT(scc,1) = '7' + *!* this.column10.enabled= .t. + *!* this.column11.enabled= .t. + *!* this.column12.enabled= .t. + *!* ELSE + *!* this.column10.enabled= .f. + *!* this.column11.enabled= .f. + *!* this.column12.enabled= .f. + *!* ENDIF + + *!* this.refresh + ENDPROC + + PROCEDURE Gridb1.Column10.Text1.Click + locauta = thisform.do_cauta_alfa('vnom_sectii', 'sectie', 'Numele sectiei', 'Sectia') + SELECT introdc + REPLACE sectie WITH locauta.sectie, id_sectie WITH locauta.id_sectie + ENDPROC + + PROCEDURE Gridb1.Column10.Text1.InteractiveChange + this.Click + ENDPROC + + PROCEDURE Gridb1.Column11.Text1.Click + *!* PRIVATE lc_variab + *!* LC_VARIAB='' + *!* Do CAUT_ALFA With 'RESPONS','NUME_2','RESPONSABIL',lc_variab + *!* SELECT introdc + *!* REPLACE nresp WITH lc_variab + + *!* this.Refresh + + *!* locauta = thisform.do_cauta_alfa('Vnom_responsabili', 'nume', 'Numele responsabilului', 'Responsabil') + loCauta = CautPartenerContabilitate(GetHash([cTitlu=>Responsabili??cTipuriParteneri=>]+ALLTRIM(STR(gnIdTipResponsabili))+[??lAdaugCorespondente=>1])) + SELECT introdc + REPLACE nresp WITH locauta.denumire, id_responsabil WITH locauta.id_part + ENDPROC + + PROCEDURE Gridb1.Column11.Text1.InteractiveChange + *!* PRIVATE lc_variab + *!* LC_VARIAB='' + *!* Do CAUT_ALFA With 'RESPONS','NUME_2','RESPONSABIL',lc_variab + + *!* SELECT introdc + *!* REPLACE nresp WITH lc_variab + + *!* this.refresh + + this.Click + ENDPROC + + PROCEDURE Gridb1.Column12.Text1.Click + *!* LOCAL lc_variab + *!* LC_VARIAB='' + *!* SELECT introdc + *!* IF !EMPTY(tcscc) + *!* Do CAUT_ALFA With 'chltind','DST_CHLT','DENUMIREA CHELTUIELII',lc_variab + *!* ELSE + *!* Do CAUT_ALFA With 'venituri','DST_CHLT','DENUMIREA VENITULUI',lc_variab + *!* ENDIF + *!* SELECT introdc + *!* REPLACE DST_CHLT WITH lc_variab + + locauta = thisform.do_cauta_alfa('Vnom_venchel ', 'explicatie', 'Numele cheltuielii', 'Cheltuiala') + SELECT introdc + REPLACE dst_chlt WITH locauta.explicatie, id_venchelt WITH locauta.id_venchelt + ENDPROC + + PROCEDURE Gridb1.Column12.Text1.InteractiveChange + this.Click + ENDPROC + + PROCEDURE Gridb1.Column13.Combo1.Valid + *!* modificare ROACONT v 2.4.0 : am inlocuit crsjtva cu crsjtax + lnId = crsjtva.id_jtva_coloana + lnPtva = crsjtva.cota_Tva + Select introdc + Replace id_jtva_coloana With lnId + Replace ptva With lnPtva + + If Inlist(tn_idset,10460) + Thisform.calculez(.T.) + Else + Thisform.calculez(.F.) + ENDIF + + * Actualizez Cod Taxa SAFT in functie de Cota TVA + Thisform.UpdateExplicatieSAFT() + ENDPROC + + PROCEDURE Gridb1.Column14.Text1.Click + IF EMPTY(id_partd) AND !EMPTY(scd) + thisform.verific_partener('scd', 'id_partd', 'partd') + ENDIF + + + ENDPROC + + PROCEDURE Gridb1.Column14.Text1.InteractiveChange + thisform.verific_partener('scd', 'id_partd', 'partd') + + + + ENDPROC + + PROCEDURE Gridb1.Column14.Text1.LostFocus + this.Click + ENDPROC + + PROCEDURE Gridb1.Column15.Text1.Click + IF EMPTY(id_partc) AND !EMPTY(scc) + thisform.verific_partener('scc', 'id_partc', 'partc') + ENDIF + ENDPROC + + PROCEDURE Gridb1.Column15.Text1.InteractiveChange + thisform.verific_partener('scc', 'id_partc', 'partc') + + + ENDPROC + + PROCEDURE Gridb1.Column15.Text1.LostFocus + this.Click + ENDPROC + + PROCEDURE Gridb1.Column16.Text1.DblClick + this.InteractiveChange + ENDPROC + + PROCEDURE Gridb1.Column16.Text1.InteractiveChange + LOCAL lcSel + lcSel = this.Parent.Parent.RecordSource + SELECT (lcSel) + SCATTER NAME oint + *thisform.verific_inregistrari(0,oint,'this.gridb1') + DO aleg_document_pereche WITH 0,oint,lcSel IN oOperatii_comune.prg + this.Parent.Parent.SetFocus + ENDPROC + + PROCEDURE Gridb1.Column18.Text1.Click + LOCAL loCauta + locauta = caut_valuta(1,.f.,.t.) + SELECT introdc + REPLACE nume_val WITH locauta.nume_val, id_valuta WITH locauta.id_valuta + ENDPROC + + PROCEDURE Gridb1.Column18.Text1.InteractiveChange + this.Click + ENDPROC + + PROCEDURE Gridb1.Column19.Text1.LostFocus + SELECT introdc + REPLACE suma WITH ROUND(suma_val*curs,gnPC) + If Inlist(tn_idset,10460) + Thisform.calculez(.T.) + Else + Thisform.calculez(.F.) + Endif + + ENDPROC + + PROCEDURE Gridb1.Column2.Header1.Click + this.Parent.Parent.headerclick(this.Parent.ColumnOrder) + ENDPROC + + PROCEDURE Gridb1.Column2.Text1.Click + this.InteractiveChange + ENDPROC + + PROCEDURE Gridb1.Column20.Text1.LostFocus + SELECT introdc + REPLACE suma WITH ROUND(suma_val*curs,gnPC) + If Inlist(tn_idset,10460) + Thisform.calculez(.T.) + Else + Thisform.calculez(.F.) + Endif + + ENDPROC + + PROCEDURE Gridb1.Column21.Text1.Click + locauta = thisform.do_cauta_alfa('vnom_lucrari', 'nrord', 'Numele lucrarii', 'Lucrare') + SELECT introdc + REPLACE nrord WITH locauta.nrord, id_lucrare WITH locauta.id_lucrare + ENDPROC + + PROCEDURE Gridb1.Column21.Text1.InteractiveChange + this.Click + ENDPROC + + PROCEDURE Gridb1.Column3.Header1.Click + this.Parent.Parent.headerclick(this.Parent.ColumnOrder) + ENDPROC + + PROCEDURE Gridb1.Column3.Text1.InteractiveChange + SELECT introdc + REPLACE id_partd WITH 0, partd WITH '' + + + + + ENDPROC + + PROCEDURE Gridb1.Column3.Text1.LostFocus + *llReturn = thisform.verific_cont(introdc.scd) + lcCont = NVL(introdc.scd,'') + IF EMPTY(lcCont) + RETURN + ENDIF + llReturn = exista_cont_in_plan_conturi(lcCont) && in oOperatii_comune.prg + IF !llReturn + REPLACE introdc.scd WITH '' + ENDIF + SELECT introdc + IF EMPTY(id_partd) + thisform.verific_partener('scd', 'id_partd', 'partd') + ENDIF + ENDPROC + + PROCEDURE Gridb1.Column4.Header1.Click + this.Parent.Parent.headerclick(this.Parent.ColumnOrder) + ENDPROC + + PROCEDURE Gridb1.Column4.Text1.InteractiveChange + SELECT introdc + REPLACE id_partc WITH 0, partc WITH '' + + ENDPROC + + PROCEDURE Gridb1.Column4.Text1.LostFocus + *llReturn = thisform.verific_cont(introdc.scc) + lcCont = NVL(introdc.scc,'') + IF EMPTY(lcCont) + RETURN + ENDIF + llReturn = exista_cont_in_plan_conturi(lcCont) && in oOperatii_comune.prg + IF !llReturn + REPLACE introdc.scc WITH '' + ENDIF + SELECT introdc + IF EMPTY(id_partc) + thisform.verific_partener('scc', 'id_partc', 'partc') + ENDIF + ENDPROC + + PROCEDURE Gridb1.Column5.Text1.InteractiveChange + *!* IF scc='471 ' + *!* DO aleg_doc_plata WITH 'chavans',M.NUME,.f.,'A' + + *!* OPLATA=CREATEOBJECT('AFCUMPVANZANPERALES') + *!* oplata.txtNume.controlsource='m.nume' + *!* OPLATA.SHOW(1) + + *!* SELECT INTRODC + *!* LOCATE FOR scc='471 ' + *!* REPLACE SUMA WITH m.suma + *!* ENDIF + + ENDPROC + + PROCEDURE Gridb1.Column5.Text1.KeyPress + LPARAMETERS nKeyCode, nShiftAltCtrl + IF NKEYCODE=13 &&ENTER + PlClick=.f. + IF LEFT(introdc.scd,1) # '6' AND LEFT(introdc.scc,1) # '7' + NODEFAULT + KEYBOARD '{DNARROW}' + ENDIF + + ENDIF + + + ENDPROC + + PROCEDURE Gridb1.Column5.Text1.LostFocus + IF !EMPTY(introdc.suma) + IF EMPTY(introdc.id_partd) AND !EMPTY(introdc.scd) + thisform.verific_partener('scd', 'id_partd', 'partd') + ENDIF + IF EMPTY(introdc.id_partc) AND !EMPTY(introdc.scc) + thisform.verific_partener('scc', 'id_partc', 'partc') + ENDIF + ENDIF + ENDPROC + + PROCEDURE Gridb1.Column5.Text1.RightClick + Local laCoteTVA[1], lcMenu, lnCota, lnCotaTva, lnCote, lnOptiune + + Select Distinct cota_tva From crsjtva Where !Empty(Nvl(cota_tva, 0)) Order By cota_tva Desc Into Array laCoteTVA + + lnCote = _Tally + If m.lnCote > 0 + lcMenu = [\Calculeaza baza] + For lnCota = 1 To m.lnCote + lnCotaTva = m.laCoteTVA[m.lnCota] + lcMenu = m.lcMenu + ';' + Alltrim(Str(Int(m.lnCotaTva))) + '%' + Endfor + + lnOptiune = xmenu(m.lcMenu) + If m.lnOptiune = 0 + Return + Endif + + lnCota = m.lnOptiune - 1 + lnCotaTva = m.laCoteTVA[m.lnCota] + SELECT introdc + Replace suma With Round(suma * 100 / (100 + m.lnCotaTva), m.gnPA) + this.Refresh() + Endif + + + ENDPROC + + PROCEDURE Gridb1.Column5.Text1.Valid + Select introdc + If (Empty(introdc.scd) Or Upper(Left(introdc.scd,1))='X') And !Empty(introdc.suma) + amessagebox("Completati contul debitor !",0+48,"Atentie") + Return + Endif + If Empty(introdc.scc) Or Upper(Left(introdc.scc,1))='X' And !Empty(introdc.suma) + amessagebox("Completati contul creditor !",0+48,"Atentie") + Return + Endif + + If Inlist(tn_idset,10460) + Thisform.calculez(.T.) + Else + Thisform.calculez(.F.) + Endif + + * thisform.gridb1.Refresh + + ENDPROC + + PROCEDURE Gridb1.Column6.Check1.Valid + SELECT introdc + thisform.calculez() + + ENDPROC + + PROCEDURE Gridb1.Column7.Text1.Click + *thisform.aleg_ascd() + this.LostFocus(.t.) + ENDPROC + + PROCEDURE Gridb1.Column7.Text1.LostFocus + PARAMETERS PlClick + SELECT introdc + lcCont = scd + lcAcont = ascd + IF EMPTY(lcCont) + RETURN + ENDIF + llReturn = verific_analitic(plClick, lcCont, lcAcont,'ascd','introdc') && in oOperatii_comune.prg + ENDPROC + + PROCEDURE Gridb1.Column8.Text1.Click + *THISFORM.ALEG_ASCC + this.LostFocus(.t.) + ENDPROC + + PROCEDURE Gridb1.Column8.Text1.LostFocus + PARAMETERS PlClick + SELECT introdc + lcCont = scc + lcAcont = ascc + IF EMPTY(lcCont) + RETURN + ENDIF + llReturn = verific_analitic(plClick, lcCont, lcAcont,'ascc','introdc') && in oOperatii_comune.prg + ENDPROC + + PROCEDURE Gridb1.Column9.Text1.DblClick + this.InteractiveChange + ENDPROC + + PROCEDURE Gridb1.Column9.Text1.InteractiveChange + LOCAL lcSel + lcSel = this.Parent.Parent.RecordSource + SELECT (lcSel) + SCATTER NAME oint + *thisform.verific_inregistrari(1,oint,'this.gridb1') + DO aleg_document_pereche WITH 1,oint,lcSel IN oOperatii_comune.prg + + this.Parent.Parent.SetFocus + ENDPROC + + PROCEDURE Gridb1.gasestecol + Parameters ii + * + ENDPROC + + PROCEDURE Gridb1.headerclick + PARAMETERS co + * + ENDPROC + + PROCEDURE Gridb1.iesire + PARAMETERS Y + * + ENDPROC + + PROCEDURE Gridb1.Init + * + ENDPROC + + PROCEDURE Gridb1.treaba + * + ENDPROC + + PROCEDURE Item1.Text_item1.GotFocus + * + ENDPROC + + PROCEDURE Item1.Text_item1.KeyPress + LPARAMETERS nKeyCode, nShiftAltCtrl + * + ENDPROC + + PROCEDURE Item1.Text_item1.LostFocus + SELECT introdc + LOCATE + thisform.calculez(.f.) + ENDPROC + + PROCEDURE Item1.Text_item1.Valid + *THIS.FORECOLOR=IIF(thisform.totftva>=0, RGB(0,0,0), RGB(255,0,0)) + ENDPROC + + PROCEDURE Item1.Text_item1.When + * + ENDPROC + + PROCEDURE itmAchizitor.Text_item1.GotFocus + *!* CautPartenerContabilitate + lcCont = [542] + loCauta = CautPartenerContabilitate(GetHash([cTitlu=>Alegeti achizitorul??lAdaugCorespondente=>1??cCont=>] + lcCont)) + If !Empty(loCauta.denumire) + Thisform.achi = Alltrim(loCauta.denumire) + Thisform.id_achi = loCauta.id_part + Endif + + *!* pcselect = ['select p.nume, p.cod_fiscal, p.id_part FROM ] + gcs + [.Vcoresp_tip_part p JOIN ] + GCS + [.Vcoresp_tip_cont t on p.id_tip_part = t.id_tip_part where to_number(t.cont) = 542 '] + *!* pcfiltru = [1=2] + *!* pcschema = [''] + *!* pcorder = [P.NUME] + *!* pccoloane = [NUME,COD_FISCAL] + *!* pcTitlu = [Numele achizitorului] + *!* pcTitluColoane = [Nume,Cod fiscal] + *!* locauta = cauta_alfa(pcselect, pcfiltru, pcschema, pcorder, pccoloane, pcTitlu, pcTitluColoane,'') + *!* Thisform.achi = Alltrim(locauta.denumire) + *!* Thisform.id_achi = locauta.id_part + ENDPROC + + PROCEDURE itmAchizitor.Text_item1.LostFocus + *this.Refresh + ENDPROC + + PROCEDURE itmAchizitor.Text_item1.Valid + * + ENDPROC + + PROCEDURE itmAchizitor.Text_item1.When + * + ENDPROC + + PROCEDURE itmCasaPlati.Text_item1.GotFocus + lcCont = [5311] + loCauta = CautPartenerContabilitate(GetHash([cTitlu=>Alegeti casa??lAdaugCorespondente=>1??cCont=>] + lcCont)) + If !Empty(loCauta.denumire) + Thisform.casa = Alltrim(locauta.denumire) + Thisform.id_casa = locauta.id_part + Endif + + *!* pcselect = ['select p.nume, p.cod_fiscal, p.id_part FROM ] + gcs + [.Vcoresp_tip_part p JOIN ] + gcs + [.Vcoresp_tip_cont t on p.id_tip_part = t.id_tip_part where to_number(t.cont) = 5311 '] + *!* pcfiltru = [1=2] + *!* pcschema = [''] + *!* pcorder = [P.NUME] + *!* pccoloane = [NUME] + *!* pcTitlu = [Casa] + *!* pcTitluColoane = [Casa] + *!* locauta = cauta_alfa(pcselect, pcfiltru, pcschema, pcorder, pccoloane, pcTitlu, pcTitluColoane,'') + + *!* If Empty(locauta.nume) + *!* Thisform.casa = Alltrim(locauta.nume) + *!* Thisform.id_casa = locauta.id_part + *!* Endif + ENDPROC + + PROCEDURE itmCasaPlati.Text_item1.KeyPress + LPARAMETERS nKeyCode, nShiftAltCtrl + * + ENDPROC + + PROCEDURE itmCasaPlati.Text_item1.Valid + * + ENDPROC + + PROCEDURE itmCasaPlati.Text_item1.When + * + ENDPROC + + PROCEDURE itmCreditorDivers.Text_item1.GotFocus + *!* CautPartenerContabilitate + lcCont = [462] + loCauta = CautPartenerContabilitate(GetHash([cTitlu=>Alegeti creditorul??lAdaugCorespondente=>1??cCont=>] + lcCont)) + If !Empty(loCauta.denumire) + Thisform.part462 = Alltrim(loCauta.denumire) + Thisform.id_part462 = loCauta.id_part + Endif + + ENDPROC + + PROCEDURE itmCreditorDivers.Text_item1.LostFocus + *this.Refresh + ENDPROC + + PROCEDURE itmCreditorDivers.Text_item1.Valid + * + ENDPROC + + PROCEDURE itmCreditorDivers.Text_item1.When + * + ENDPROC + + PROCEDURE itmDocJustificat.Text_item1.GotFocus + *!* 27.03.2014 + *!* marius.mutu + *!* suma platita de achizitor = suma partiala/totala modificata de utilizator + + lcContul = '542' + && modificare 2.0.131 : am adaugat gcCondSucursala + lccond = [ an = ] + ALLTRIM(STR(gnAn)) + [ and luna = ] + ALLTRIM(STR(gnluna)) + gcCondSucursala + lccond= lccond + [ and (i.precvaldeb + i.valdebit - i.precvalcred - i.valcredit = 0) ] + + + lnIdPart = THISFORM.id_achi + lcNume = THISFORM.achi + lnFelCont = 0 + lcDenumire = 'Achizitor' + + pcselect = ['select i.* FROM ] + gcs + [.Vireg_parteneri i where 2=2 '] + pcfiltru = [ i.id_part = ] + ALLTRIM(STR(lnIdPart)) + [ AND ABS(i.precdeb + i.debit - i.preccred - i.credit)<>0 AND i.cont =]+ lcContul + [ and ] + lccond + pcschema = [''] + pcorder = [''] + + PRIVATE podateintrod + STORE '' TO podateintrod + + gencursor('podateintrod','crs_actcv',pcselect,pcfiltru,[''],'') + + lcFis = 'actcv' + ALLTRIM(lcContul) + + IF USED(lcFis) + USE IN &lcFis + ENDIF + + IF lnFelCont = 0 + lcsel = [SELECT *, ACONT AS ASCC, nume_val as numeval, curs as cursschimb, precdeb + debit as totctva, preccred+credit as achitat, ] +; + [precvaldeb + valdebit AS sumaval, precVALcred+VALcredit as achitatval, ] +; + [.f. as ales, 00000000000000.0000 as sumaachi, 000000000000.0000 as sumaachi2, 00000000000000.0000 as achilei, 00000000000000.0000 as difplus, 00000000000000.0000 as difminus, 0000000.0000 as cursval, 0000000.0000 as cursdif ] +; + [FROM crs_actcv INTO CURSOR ] + lcFis + [ READWRITE ] + ELSE + lcsel = [SELECT *, ACONT AS ASCD, nume_val as numeval, curs as cursschimb, preccred + credit as totctva, precdeb+debit as achitat, ] + ; + [precvalcred + valcredit as sumaval, precVALdeb+VALdebit as achitatval, ] + ; + [.f. as ales, 00000000000000.0000 as sumaachi, 000000000000.0000 as sumaachi2, 00000000000000.0000 as achilei, 00000000000000.0000 as difplus, 00000000000000.0000 as difminus, 0000000.0000 as cursval, 0000000.0000 as cursdif ] + ; + [FROM crs_actcv INTO CURSOR ] + lcFis + [ READWRITE ] + ENDIF + &lcsel + + SELECT (lcFis) + + OPLATA=CREATEOBJECT('ocompensari') + OPLATA.titlufrumos1.CAPTION = lcDenumire + [: ] + lcNume + OPLATA.pcFis = lcFis + *!* OPLATA.suma = THISFORM.totctva + OPLATA.suma = thisform.sumaachitata + IF TYPE('oplata.curs_val') # 'U' + OPLATA.curs_val = 0 + ENDIF + OPLATA.pnFelCont = lnFelCont + OPLATA.SHOW(1) + + SELECT (lcFis) + CALCULATE CNT() FOR ales TO LnBife + IF LnBife=1 + LOCATE FOR ales + m.compensat=nract + ELSE + m.compensat=0 + ENDIF + + ENDPROC + + PROCEDURE itmDocJustificat.Text_item1.LostFocus + * + ENDPROC + + PROCEDURE itmDocJustificat.Text_item1.Valid + * + ENDPROC + + PROCEDURE itmDocJustificat.Text_item1.When + * + ENDPROC + + PROCEDURE itmFdocAchitat.Text_item1.GotFocus + Local llNou, llToateIreg, loCauta + llToateIreg = .F. + llNou = .T. + loCauta = caut_fdoc(m.llToateIreg, m.llNou) + + If !Empty(NVL(loCauta.fel_document,'')) + Thisform.cFdocAchitat = Alltrim(loCauta.fel_document) + Thisform.nIdFdocAchitat = loCauta.id_fdoc + Endif + ENDPROC + + PROCEDURE itmFdocAchitat.Text_item1.LostFocus + *this.Refresh + ENDPROC + + PROCEDURE itmFdocAchitat.Text_item1.Valid + * + + ENDPROC + + PROCEDURE itmFdocAchitat.Text_item1.When + * + ENDPROC + + PROCEDURE optAchitat.Valid + thisform.RefreshAchitat() + ENDPROC + + PROCEDURE Shape1.DblClick + IF thisform.WindowState = 2 + thisform.WindowState = 0 + ELSE + thisform.WindowState = 2 + ENDIF + ENDPROC + + PROCEDURE Terminat1.Command1.Click + + IF thisform.verificare() + DODEFAULT() + ENDIF + + ENDPROC + + PROCEDURE Verif1.COMMAND1.Click + If Thisform.verificare() + Do Form verificare With .T.,.T. + If BUTON=1 + Thisform.Release + Endif + Endif + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_note AS formtermin OF "..\comun\clase\baza.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Pageframe1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Gridb1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Gridb1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Gridb1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Gridb1.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Gridb1.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Gridb1.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Gridb1.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Gridb1.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Gridb1.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Gridb1.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Gridb1.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Gridb1.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Gridb1.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Gridb1.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Gridb1.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Gridb1.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Gridb1.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Gridb1.Column11.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Gridb1.Column11.Combo1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page2.Gridb1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page2.Gridb1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page2.Gridb1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page2.Gridb1.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page2.Gridb1.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page2.Gridb1.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page2.Gridb1.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page2.Gridb1.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page2.Gridb1.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page2.Gridb1.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page2.Gridb1.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page2.Gridb1.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page2.Gridb1.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page2.Gridb1.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page2.Gridb1.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page2.Gridb1.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page2.Gridb1.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Gridb1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Gridb1.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Gridb1.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Gridb1.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Gridb1.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Gridb1.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Gridb1.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Gridb1.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Gridb1.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Gridb1.Column14.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Gridb1.Column14.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Gridb1.Column17.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Gridb1.Column17.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Gridb1.Column18.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Gridb1.Column18.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Gridb1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Gridb1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_SHAPE1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Help1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Renunt1" UniqueID="" Timestamp="" /> + + * + *m: aleg_document_pereche + *m: calcul_data + *m: calcul_suma + *m: do_caut_nomenclator + *m: verificare + *m: verific_analitic + *p: introducere_libera + * + + * + BorderStyle = 1 + DoCreate = .T. + Height = 411 + introducere_libera = .F. + Name = "frm_note" + Width = 790 + Shape1.Height = 36 + Shape1.Left = 0 + Shape1.Name = "Shape1" + Shape1.Top = 0 + Shape1.Width = 792 + Shape1.ZOrderSet = 0 + Terminat1.Command1.Name = "Command1" + Terminat1.Imbuton1.Height = 29 + Terminat1.Imbuton1.Name = "Imbuton1" + Terminat1.Imbuton1.Width = 27 + Terminat1.Left = 757 + Terminat1.Name = "Terminat1" + Terminat1.Top = 3 + Terminat1.ZOrderSet = 7 + Titlufrumos1.Caption = "NOTE FARA PREDEFINIRE" + Titlufrumos1.Height = 30 + Titlufrumos1.Left = 9 + Titlufrumos1.Name = "Titlufrumos1" + Titlufrumos1.Top = 6 + Titlufrumos1.Width = 364 + Titlufrumos1.ZOrderSet = 1 + * + + ADD OBJECT '_SHAPE1' AS _shape WITH ; + BackColor = 255,255,255, ; + Height = 36, ; + Left = 684, ; + Name = "_SHAPE1", ; + Top = 0, ; + Width = 107, ; + ZOrderSet = 4 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" /> + + ADD OBJECT 'Help1' AS help WITH ; + Left = 691, ; + Name = "Help1", ; + Top = 3, ; + ZOrderSet = 5, ; + Imbuton1.Name = "Imbuton1", ; + Command1.Name = "Command1" + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="container" /> + + ADD OBJECT 'Pageframe1' AS pageframe WITH ; + ErasePage = .T., ; + Height = 349, ; + Left = 7, ; + Name = "Pageframe1", ; + PageCount = 3, ; + TabStyle = 1, ; + Top = 48, ; + Width = 778, ; + ZOrderSet = 2, ; + Page1.BackColor = 255,255,255, ; + Page1.Caption = "Note-Sume", ; + Page1.Name = "Page1", ; + Page2.BackColor = 240,240,240, ; + Page2.Caption = "Date", ; + Page2.Name = "Page2", ; + Page3.BackColor = 228,228,228, ; + Page3.Caption = "Explicatii", ; + Page3.Name = "Page3" + *< END OBJECT: BaseClass="pageframe" /> + + ADD OBJECT 'Pageframe1.Page1.Gridb1' AS gridb WITH ; + ColumnCount = 10, ; + FontName = "Arial Narrow", ; + GridLineColor = 255,255,255, ; + GridLines = 3, ; + HeaderHeight = 25, ; + Height = 260, ; + Left = 5, ; + Name = "Gridb1", ; + Panel = 1, ; + ReadOnly = .F., ; + RecordMark = .T., ; + RecordSource = "actactan", ; + RowHeight = 22, ; + Top = 11, ; + Width = 763, ; + COLUMN1.Alignment = 2, ; + COLUMN1.BackColor = 245,245,245, ; + COLUMN1.ControlSource = "nrcrt()", ; + COLUMN1.DynamicBackColor = "RGB(245,245,245)", ; + COLUMN1.FontName = "Arial Narrow", ; + COLUMN1.Header1.Caption = "Nr.", ; + COLUMN1.Header1.FontName = "Arial Narrow", ; + COLUMN1.Header1.Name = "Header1", ; + COLUMN1.Name = "COLUMN1", ; + COLUMN1.ReadOnly = .F., ; + COLUMN1.Text1.Alignment = 2, ; + COLUMN1.Text1.BackColor = 245,245,245, ; + COLUMN1.Text1.FontName = "Arial Narrow", ; + COLUMN1.Text1.Name = "Text1", ; + COLUMN1.Text1.ReadOnly = .F., ; + COLUMN1.Width = 37, ; + Column2.Alignment = 1, ; + Column2.BackColor = 247,245,238, ; + Column2.ControlSource = "scd", ; + Column2.DynamicBackColor = "RGB(247,245,238)", ; + Column2.FontName = "Arial Narrow", ; + Column2.Format = "XXXX.", ; + Column2.Name = "Column2", ; + Column2.ReadOnly = .F., ; + Column2.Width = 59, ; + Column3.Alignment = 0, ; + Column3.BackColor = 247,245,238, ; + Column3.ControlSource = "ascd", ; + Column3.DynamicBackColor = "RGB(247,245,238)", ; + Column3.FontName = "Arial Narrow", ; + Column3.Name = "Column3", ; + Column3.ReadOnly = .F., ; + Column3.Width = 53, ; + Column4.Alignment = 1, ; + Column4.BackColor = 226,226,226, ; + Column4.ControlSource = "scc", ; + Column4.DynamicBackColor = "RGB(226,226,226)", ; + Column4.FontName = "Arial Narrow", ; + Column4.Format = "XXXX.", ; + Column4.Name = "Column4", ; + Column4.ReadOnly = .F., ; + Column4.Width = 63, ; + Column5.Alignment = 0, ; + Column5.BackColor = 226,226,226, ; + Column5.ControlSource = "ascc", ; + Column5.DynamicBackColor = "RGB(226,226,226)", ; + Column5.FontName = "Arial Narrow", ; + Column5.Name = "Column5", ; + Column5.ReadOnly = .F., ; + Column5.Width = 49, ; + Column6.BackColor = 214,214,214, ; + Column6.ControlSource = "suma", ; + Column6.DynamicBackColor = "rgb(214,214,214)", ; + Column6.FontName = "Arial Narrow", ; + Column6.InputMask = (get_mask(12,gnPa)), ; + Column6.Name = "Column6", ; + Column6.ReadOnly = .F., ; + Column6.Width = 114, ; + Column7.BackColor = 214,214,214, ; + Column7.ColumnOrder = 7, ; + Column7.ControlSource = "suma_val", ; + Column7.DynamicBackColor = "rgb(214,214,214)", ; + Column7.FontName = "Arial Narrow", ; + Column7.InputMask = (get_mask(12,gnPval)), ; + Column7.Name = "Column8", ; + Column7.ReadOnly = .F., ; + Column7.Width = 87, ; + Column8.BackColor = 214,214,214, ; + Column8.ColumnOrder = 8, ; + Column8.ControlSource = "curs", ; + Column8.DynamicBackColor = "rgb(214,214,214)", ; + Column8.FontName = "Arial Narrow", ; + Column8.InputMask = (get_mask(12,gnPcurs)), ; + Column8.Name = "Column9", ; + Column8.ReadOnly = .F., ; + Column8.Width = 76, ; + Column9.BackColor = 214,214,214, ; + Column9.ColumnOrder = 9, ; + Column9.ControlSource = "nume_val", ; + Column9.CurrentControl = "Text1", ; + Column9.DynamicBackColor = "rgb(214,214,214)", ; + Column9.FontName = "Arial Narrow", ; + Column9.Name = "Column10", ; + Column9.ReadOnly = .F., ; + Column9.Width = 112, ; + Column10.Alignment = 0, ; + Column10.BackColor = 214,214,214, ; + Column10.ColumnOrder = 10, ; + Column10.ControlSource = "descriere", ; + Column10.CurrentControl = "Combo1", ; + Column10.DynamicBackColor = "rgb(214,214,214)", ; + Column10.FontName = "Arial Narrow", ; + Column10.Name = "Column11", ; + Column10.ReadOnly = .F., ; + Column10.Sparse = .F., ; + Column10.Width = 72 + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="grid" /> + + ADD OBJECT 'Pageframe1.Page1.Gridb1.Column10.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nume valuta", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page1.Gridb1.Column10.Text1' AS textbox WITH ; + BackColor = 214,214,214, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page1.Gridb1.Column11.Combo1' AS combobox WITH ; + Alignment = 0, ; + BorderStyle = 0, ; + BoundColumn = 2, ; + BoundTo = .T., ; + ColumnCount = 2, ; + ColumnLines = .F., ; + ColumnWidths = "100,68", ; + Height = 24, ; + Left = 32, ; + Name = "Combo1", ; + ReadOnly = .F., ; + RowSource = "cote_tva2.descriere,proc_tva", ; + RowSourceType = 2, ; + SpecialEffect = 1, ; + Style = 2, ; + Top = 44, ; + Width = 100 + *< END OBJECT: BaseClass="combobox" /> + + ADD OBJECT 'Pageframe1.Page1.Gridb1.Column11.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Procent TVA", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page1.Gridb1.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont debitor", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page1.Gridb1.Column2.Text1' AS textbox WITH ; + Alignment = 1, ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page1.Gridb1.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Analitic D", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page1.Gridb1.Column3.Text1' AS textbox WITH ; + Alignment = 0, ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page1.Gridb1.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont creditor ", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page1.Gridb1.Column4.Text1' AS textbox WITH ; + Alignment = 1, ; + BackColor = 226,226,226, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page1.Gridb1.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Analitic C", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page1.Gridb1.Column5.Text1' AS textbox WITH ; + Alignment = 0, ; + BackColor = 226,226,226, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page1.Gridb1.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Suma", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page1.Gridb1.Column6.Text1' AS textbox WITH ; + BackColor = 214,214,214, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page1.Gridb1.Column8.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Suma in valuta", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page1.Gridb1.Column8.Text1' AS textbox WITH ; + BackColor = 214,214,214, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page1.Gridb1.Column9.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Curs valutar", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page1.Gridb1.Column9.Text1' AS textbox WITH ; + BackColor = 214,214,214, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page1.Nou1' AS nou WITH ; + Left = 16, ; + Name = "Nou1", ; + Top = 279, ; + Imbuton1.Height = 29, ; + Imbuton1.Name = "Imbuton1", ; + Imbuton1.Width = 27, ; + Command1.Name = "Command1" + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="container" /> + + ADD OBJECT 'Pageframe1.Page1.Sterge1' AS sterge WITH ; + Left = 52, ; + Name = "Sterge1", ; + Top = 279, ; + Imbuton1.Height = 26, ; + Imbuton1.Name = "Imbuton1", ; + Imbuton1.Width = 26, ; + Command1.Name = "Command1" + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="container" /> + + ADD OBJECT 'Pageframe1.Page2.Gridb1' AS gridb WITH ; + BackColor = 240,240,240, ; + ColumnCount = 9, ; + FontName = "Arial Narrow", ; + GridLineColor = 255,255,255, ; + HeaderHeight = 26, ; + Height = 297, ; + Left = 11, ; + Name = "Gridb1", ; + Panel = 1, ; + ReadOnly = .F., ; + RecordMark = .T., ; + RecordSource = "actactan", ; + RowHeight = 23, ; + Top = 11, ; + Width = 753, ; + COLUMN1.BackColor = 240,240,240, ; + COLUMN1.ControlSource = "nrcrt()", ; + COLUMN1.FontName = "Arial Narrow", ; + COLUMN1.Header1.Caption = "Nr.", ; + COLUMN1.Header1.FontName = "Arial Narrow", ; + COLUMN1.Header1.Name = "Header1", ; + COLUMN1.Name = "COLUMN1", ; + COLUMN1.ReadOnly = .T., ; + COLUMN1.Text1.BackColor = 240,240,240, ; + COLUMN1.Text1.FontName = "Arial Narrow", ; + COLUMN1.Text1.Name = "Text1", ; + COLUMN1.Text1.ReadOnly = .T., ; + COLUMN1.Width = 24, ; + Column2.BackColor = 240,240,240, ; + Column2.ColumnOrder = 2, ; + Column2.ControlSource = "fdoc", ; + Column2.CurrentControl = "Text1", ; + Column2.FontName = "Arial Narrow", ; + Column2.Name = "Column2", ; + Column2.ReadOnly = .F., ; + Column2.Width = 105, ; + Column3.BackColor = 240,240,240, ; + Column3.ColumnOrder = 3, ; + Column3.ControlSource = "dataireg", ; + Column3.CurrentControl = "Text1", ; + Column3.FontName = "Arial Narrow", ; + Column3.Name = "Column3", ; + Column3.ReadOnly = .F., ; + Column3.Sparse = .F., ; + Column3.Width = 83, ; + Column4.BackColor = 240,240,240, ; + Column4.ColumnOrder = 4, ; + Column4.ControlSource = "dataact", ; + Column4.CurrentControl = "Text1", ; + Column4.FontName = "Arial Narrow", ; + Column4.Name = "Column4", ; + Column4.ReadOnly = .F., ; + Column4.Sparse = .F., ; + Column4.Width = 87, ; + Column5.BackColor = 240,240,240, ; + Column5.ColumnOrder = 5, ; + Column5.ControlSource = "datascad", ; + Column5.CurrentControl = "Text1", ; + Column5.FontName = "Arial Narrow", ; + Column5.Name = "Column5", ; + Column5.ReadOnly = .F., ; + Column5.Sparse = .F., ; + Column5.Width = 83, ; + Column6.BackColor = 240,240,240, ; + Column6.ColumnOrder = 6, ; + Column6.ControlSource = "nract", ; + Column6.CurrentControl = "Text1", ; + Column6.FontName = "Arial Narrow", ; + Column6.Name = "Column6", ; + Column6.ReadOnly = .F., ; + Column6.Sparse = .F., ; + Column7.BackColor = 240,240,240, ; + Column7.ColumnOrder = 7, ; + Column7.ControlSource = "pereched", ; + Column7.CurrentControl = "Text1", ; + Column7.DynamicBackColor = "", ; + Column7.FontName = "Arial Narrow", ; + Column7.Name = "Column7", ; + Column7.ReadOnly = .F., ; + Column7.Sparse = .F., ; + Column7.Width = 68, ; + Column8.BackColor = 240,240,240, ; + Column8.ColumnOrder = 9, ; + Column8.ControlSource = "nnir", ; + Column8.CurrentControl = "Text1", ; + Column8.DynamicBackColor = "", ; + Column8.FontName = "Arial Narrow", ; + Column8.Name = "Column8", ; + Column8.ReadOnly = .F., ; + Column8.Sparse = .F., ; + Column9.BackColor = 240,240,240, ; + Column9.ColumnOrder = 8, ; + Column9.ControlSource = "perechec", ; + Column9.FontName = "Arial Narrow", ; + Column9.Name = "Column9", ; + Column9.ReadOnly = .F., ; + Column9.Width = 71 + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="grid" /> + + ADD OBJECT 'Pageframe1.Page2.Gridb1.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Fel document", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page2.Gridb1.Column2.Text1' AS textbox WITH ; + BackColor = 240,240,240, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page2.Gridb1.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data inregistrarii", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page2.Gridb1.Column3.Text1' AS textbox WITH ; + BackColor = 240,240,240, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page2.Gridb1.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data document", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page2.Gridb1.Column4.Text1' AS textbox WITH ; + BackColor = 240,240,240, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page2.Gridb1.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data scadenta", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page2.Gridb1.Column5.Text1' AS textbox WITH ; + BackColor = 240,240,240, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page2.Gridb1.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. document", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page2.Gridb1.Column6.Text1' AS textbox WITH ; + BackColor = 240,240,240, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page2.Gridb1.Column7.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Pereche Debit", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page2.Gridb1.Column7.Text1' AS textbox WITH ; + BackColor = 240,240,240, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page2.Gridb1.Column8.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. NIR/BON", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page2.Gridb1.Column8.Text1' AS textbox WITH ; + BackColor = 240,240,240, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page2.Gridb1.Column9.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Pereche Credit", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page2.Gridb1.Column9.Text1' AS textbox WITH ; + BackColor = 240,240,240, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Gridb1' AS gridb WITH ; + BackColor = 228,228,228, ; + ColumnCount = 9, ; + FontName = "Arial Narrow", ; + GridLineColor = 255,255,255, ; + HeaderHeight = 25, ; + Height = 298, ; + Left = 7, ; + Name = "Gridb1", ; + Panel = 1, ; + ReadOnly = .F., ; + RecordMark = .T., ; + RecordSource = "actactan", ; + RowHeight = 23, ; + Top = 10, ; + Width = 759, ; + COLUMN1.BackColor = 228,228,228, ; + COLUMN1.ColumnOrder = 1, ; + COLUMN1.ControlSource = "nrcrt()", ; + COLUMN1.DynamicBackColor = "rgb(228,228,228)", ; + COLUMN1.FontName = "Arial Narrow", ; + COLUMN1.Header1.BackColor = 228,228,228, ; + COLUMN1.Header1.Caption = "Nr.", ; + COLUMN1.Header1.FontName = "Arial Narrow", ; + COLUMN1.Header1.Name = "Header1", ; + COLUMN1.Name = "COLUMN1", ; + COLUMN1.ReadOnly = .T., ; + COLUMN1.Text1.BackColor = 228,228,228, ; + COLUMN1.Text1.FontName = "Arial Narrow", ; + COLUMN1.Text1.Name = "Text1", ; + COLUMN1.Text1.ReadOnly = .T., ; + COLUMN1.Width = 21, ; + Column2.BackColor = 228,228,228, ; + Column2.ColumnOrder = 5, ; + Column2.ControlSource = "nrord", ; + Column2.CurrentControl = "Text1", ; + Column2.DynamicBackColor = "rgb(228,228,228)", ; + Column2.FontName = "Arial Narrow", ; + Column2.Name = "Column7", ; + Column2.ReadOnly = .F., ; + Column2.Width = 95, ; + Column3.BackColor = 228,228,228, ; + Column3.ColumnOrder = 6, ; + Column3.ControlSource = "nresp", ; + Column3.CurrentControl = "Text1", ; + Column3.FontName = "Arial Narrow", ; + Column3.Name = "Column8", ; + Column3.ReadOnly = .F., ; + Column3.Width = 110, ; + Column4.BackColor = 228,228,228, ; + Column4.ColumnOrder = 7, ; + Column4.ControlSource = "dst_chlt", ; + Column4.CurrentControl = "Text1", ; + Column4.FontName = "Arial Narrow", ; + Column4.Name = "Column9", ; + Column4.ReadOnly = .F., ; + Column4.Sparse = .F., ; + Column4.Width = 108, ; + Column5.BackColor = 228,228,228, ; + Column5.ColumnOrder = 8, ; + Column5.ControlSource = "sectie", ; + Column5.CurrentControl = "Text1", ; + Column5.FontName = "Arial Narrow", ; + Column5.Name = "Column10", ; + Column5.ReadOnly = .F., ; + Column5.Width = 96, ; + Column6.BackColor = 228,228,228, ; + Column6.ColumnOrder = 4, ; + Column6.ControlSource = "explicatia", ; + Column6.DynamicBackColor = "rgb(226,226,226)", ; + Column6.FontName = "Arial Narrow", ; + Column6.Format = "k!", ; + Column6.Name = "Column14", ; + Column6.ReadOnly = .F., ; + Column6.Width = 110, ; + Column7.BackColor = 228,228,228, ; + Column7.ColumnOrder = 2, ; + Column7.ControlSource = "partd", ; + Column7.FontName = "Arial Narrow", ; + Column7.Name = "Column17", ; + Column7.ReadOnly = .F., ; + Column7.Width = 105, ; + Column8.BackColor = 228,228,228, ; + Column8.ColumnOrder = 3, ; + Column8.ControlSource = "partc", ; + Column8.FontName = "Arial Narrow", ; + Column8.Name = "Column18", ; + Column8.ReadOnly = .F., ; + Column8.Width = 105, ; + Column9.BackColor = 228,228,228, ; + Column9.ControlSource = "sucursala", ; + Column9.FontName = "Arial Narrow", ; + Column9.Name = "Column2", ; + Column9.ReadOnly = .F., ; + Column9.Width = 95 + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="grid" /> + + ADD OBJECT 'Pageframe1.Page3.Gridb1.Column10.Header1' AS header WITH ; + Alignment = 2, ; + BackColor = 228,228,228, ; + Caption = "Sectia", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Gridb1.Column10.Text1' AS textbox WITH ; + BackColor = 228,228,228, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Gridb1.Column14.Header1' AS header WITH ; + Alignment = 2, ; + BackColor = 226,226,226, ; + Caption = "Explicatia", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Gridb1.Column14.Text1' AS textbox WITH ; + BackColor = 228,228,228, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Gridb1.Column17.Header1' AS header WITH ; + Alignment = 2, ; + BackColor = 226,226,226, ; + Caption = "Partener Debit", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Gridb1.Column17.Text1' AS textbox WITH ; + BackColor = 228,228,228, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Gridb1.Column18.Header1' AS header WITH ; + Alignment = 2, ; + BackColor = 226,226,226, ; + Caption = "Partener Credit", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Gridb1.Column18.Text1' AS textbox WITH ; + BackColor = 228,228,228, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Gridb1.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sucursala", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Gridb1.Column2.Text1' AS textbox WITH ; + BackColor = 228,228,228, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Gridb1.Column7.Header1' AS header WITH ; + Alignment = 2, ; + BackColor = 228,228,228, ; + Caption = "Contract/Lucrare", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Gridb1.Column7.Text1' AS textbox WITH ; + BackColor = 228,228,228, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Gridb1.Column8.Header1' AS header WITH ; + Alignment = 2, ; + BackColor = 228,228,228, ; + Caption = "Responsabil", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Gridb1.Column8.Text1' AS textbox WITH ; + BackColor = 228,228,228, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Gridb1.Column9.Header1' AS header WITH ; + Alignment = 2, ; + BackColor = 228,228,228, ; + Caption = "Cheltuiala/Venit", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Gridb1.Column9.Text1' AS textbox WITH ; + BackColor = 228,228,228, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Renunt1' AS renunt WITH ; + Left = 724, ; + Name = "Renunt1", ; + Top = 3, ; + ZOrderSet = 6, ; + Imbuton1.Height = 27, ; + Imbuton1.Name = "Imbuton1", ; + Imbuton1.Width = 30, ; + Command1.Name = "Command1" + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="container" /> + + ADD OBJECT 'Shape2' AS shape WITH ; + BackColor = 0,128,255, ; + Height = 24, ; + Left = 624, ; + Name = "Shape2", ; + Top = 7, ; + Visible = .F., ; + Width = 49, ; + ZOrderSet = 3 + *< END OBJECT: BaseClass="shape" /> + + PROCEDURE aleg_document_pereche + PARAMETERS tcFel,toAct + LOCAL lcSel,lcSelAct + lcSelAct = this.pageframe1.paGE2.gridb1.RecordSource + pnFelCont = tcFel + + IF pnFelCont = 0 && ACTIV + pcContul = ALLTRIM(NVL(toAct.scc,[])) + pcACont = ALLTRIM(NVL(toAct.ascc,[NULL])) + pnIdPart = NVL(toAct.Id_partc,0) + pcNume = ALLTRIM(NVL(toAct.partc,[])) + pnPereche = [perecheC] + pnIdPereche = [id_factC] + ELSE && PASIV + pcContul = ALLTRIM(NVL(toAct.scd,[])) + pcACont = ALLTRIM(NVL(toAct.ascd,[NULL])) + pnIdPart = NVL(toAct.Id_partd,0) + pcNume = ALLTRIM(NVL(toAct.partd,[])) + pnPereche = [perecheD] + pnIdPereche = [id_factD] + ENDIF + + lcSelect = [select count(*) as ePereche from ] + gcs + [.vcoresp_tip_cont where cont = ?pcContul and fel_cont = ?pnFelCont and cu_inregistrari = 1 ] + lcCursor = [crsTest] + lnSucces = goexecutor.oExecute(lcSelect,lcCursor) + IF lnSucces < 0 + aMESSAGEBOX('Modificare:Verific existenta pereche ' +goExecutor.cEroare,0+16,"Eroare") + SELECT (lcSelAct) + this.pageframe1.paGE2.gridb1.SetFocus + RETURN + ENDIF + + SELECT crsTest + LOCATE + IF ePereche = 0 + USE IN crsTest + SELECT (lcSelAct) + this.pageframe1.paGE2.gridb1.SetFocus + RETURN + ENDIF + + + IF !EMPTY(toAct.Suma_val) + llval = .t. + pnSuma = toAct.Suma_val + lcFormular = [ocompensari_val] + ELSE + llval = .f. + pnSuma = toAct.Suma + lcFormular = [ocompensari] + ENDIF + pnIdValuta = toAct.Id_Valuta + pcDenumire = [Partener ] + pcContul + + pcCond = [ an = ?gnAn and luna = ?gnluna] + + IF llval + pccond= pccond + [ and ABS(i.precvaldeb + i.valdebit - i.precvalcred - i.valcredit)>0 and i.id_valuta = ?pnIdValuta ] + ELSE + pccond= pccond + [ and (i.precvaldeb + i.valdebit - i.precvalcred - i.valcredit = 0) ] + ENDIF + + pcselect = ['select i.* FROM ] + gcs + [.Vireg_parteneri i where 2=2 '] + IF ALLTRIM(pcACont) # [NULL] + pcfiltru = [ i.id_part = ?pnIdPart AND ABS(i.precdeb + i.debit - i.preccred - i.credit)<>0 AND i.cont = ?pcContul and ] + pcCond + ELSE + pcfiltru = [ i.id_part = ?pnIdPart AND ABS(i.precdeb + i.debit - i.preccred - i.credit)<>0 AND i.cont = ?pcContul and acont is null and ] + pcCond + ENDIF + pcschema = [''] + pcorder = [''] + + PRIVATE podateintrod + STORE '' TO podateintrod + + gencursor('podateintrod','crs_actcv',pcselect,pcfiltru,[''],'') + + lcFis = 'actcv' + ALLTRIM(pcContul) + + IF USED(lcFis) + USE IN &lcFis + ENDIF + + IF pnFelCont = 0 + lcsel = [SELECT *, ACONT AS ASCC, nume_val as numeval, curs as cursschimb, precdeb + debit as totctva, preccred+credit as achitat, ] +; + [precvaldeb + valdebit AS sumaval, precVALcred+VALcredit as achitatval, ] +; + [.f. as ales, 00000000000000.0000 as sumaachi, 000000000000.0000 as sumaachi2, 00000000000000.0000 as achilei, 00000000000000.0000 as difplus, 00000000000000.0000 as difminus, 000000.0000 as cursval, 000000.0000 as cursdif ] +; + [FROM crs_actcv INTO CURSOR ] + lcFis + [ READWRITE ] + ELSE + lcsel = [SELECT *, ACONT AS ASCD, nume_val as numeval, curs as cursschimb, preccred + credit as totctva, precdeb+debit as achitat, ] + ; + [precvalcred + valcredit as sumaval, precVALdeb+VALdebit as achitatval, ] + ; + [.f. as ales, 00000000000000.0000 as sumaachi, 00000000000000.0000 as sumaachi2, 00000000000000.0000 as achilei, 00000000000000.0000 as difplus, 00000000000000.0000 as difminus, 000000.0000 as cursval, 000000.0000 as cursdif ] + ; + [FROM crs_actcv INTO CURSOR ] + lcFis + [ READWRITE ] + ENDIF + &lcsel + + USE IN crs_actcv + SELECT (lcFis) + + OPLATA=CREATEOBJECT(lcFormular) + OPLATA.titlufrumos1.CAPTION = pcDenumire + [: ] + pcNume + OPLATA.pcFis = lcFis + OPLATA.SUMA = pnSuma + OPLATA.pnFelCont = pnFelCont + OPLATA.SHOW(1) + + IF gnButon = 1 + SELECT (lcSelAct) + DELETE + SELECT (lcFis) + SCAN FOR ales + SCATTER NAME oper + SELECT (lcSelAct) + APPEND BLANK + GATHER NAME toAct + REPLACE &pnIdPereche WITH oper.id_fact, &pnPereche WITH oper.nract, suma WITH oper.sumaachi, suma_val WITH oper.sumaachi2 + SELECT (lcFis) + ENDSCAN + ELSE + SELECT (lcSelAct) + REPLACE &pnPereche WITH toact.&pnPereche + ENDIF + + IF USED(lcFis) + USE IN (lcFis) + ENDIF + SELECT (lcSelAct) + DO nrord WITH lcSelAct + this.pageframe1.paGE2.gridb1.SetFocus + ENDPROC + + PROCEDURE calcul_data + PARAMETERS tcControl + LOCAL ll_verif + STORE .f. to ll_verif + lcControl = ALLTRIM(tcControl) + + DO CASE + Case UPPER(ALLTRIM(lcControl))='ACTACTAN.DATASCAD' + ld_DataScad = GOMONTH(dataact,1) + SELECT ACTACTAN + REPLACE DATASCAD WITH LD_DATASCAD + + Case UPPER(ALLTRIM(lcControl))='ACTACTAN.DATAIREG' + If !(Month(dataireg)= gnLuna And Year(dataireg) = gnAn) + Do mesaj With 'Data trebuie sa fie din luna',Alltrim(pcNl)+' '+Alltrim(pcAn) + ll_verif=.t. + ELSE + ll_verif=.f. + SELECT ACTACTAN + REPLACE dataact WITH dataireg + ENDIF + + Case UPPER(ALLTRIM(lcControl))='ACTACTAN.DATAACT' + If !((Month(DATAACT)<= gnLuna And Year(DATAACT)=gnAn) Or Year(DATAACT)gnLuna Or Year(Date())<>gnAn + LD_dataireg=ultimazi() + ENDIF + + SELECT ACTACTAN + ZAP + APPEND BLANK + REPLACE dataireg WITH LD_dataireg, dataact WITH LD_dataireg + DO nrord WITH "actactan" + + + + + + + ENDPROC + + PROCEDURE verificare + LOCAL compl,TE + TE='' + compl=.t. + + SELECT ACTACTAN + ii=1 + SCAN + lcScd = scd + lcScc = scc + IF empty(suma) + compl=.f. + TE=TE+','+'suma' + ENDIF + *!* la clasele 8 si 9 se poate sa nu fie contul corespondent completat + IF empty(scd) AND !INLIST(LEFT(NVL(scc,''),1),'8','9') + compl=.f. + TE=TE+','+'contul debitor' + ENDIF + IF empty(scc) AND !INLIST(LEFT(NVL(scd,''),1),'8','9') + compl=.f. + TE=TE+','+'contul creditor' + ENDIF + IF empty(nract) + compl=.f. + TE=TE+','+'nr.document' + ENDIF + IF (!EMPTY(suma_val) OR !EMPTY(curs)) AND EMPTY(id_valuta) + compl=.f. + TE=TE+','+'nume valuta' + ENDIF + + IF !compl + DO mesaj WITH 'La nota nr. '+ALLTRIM(STR(ii))+' nu ati completat campurile:',LEFT(te,60)+'...' + RETURN compl + ENDIF + ii=ii+1 + ENDSCAN + + + RETURN compl + ENDPROC + + PROCEDURE verific_analitic + *!* PARAMETERS tlClick, tccont, tcacont, tcColoana + + *!* m.den='' + *!* ll_l=.f. + + *!* IF EMPTY(tccont) + *!* RETURN ll_l + *!* ENDIF + + *!* IF USED('TCEVA') + *!* USE IN Tceva + *!* ENDIF + + *!* lcSql=[select acont || ' - ' || explicatie as den, CONT, ACONT FROM ] + gcS + [.vplcont_ANALITIC where to_number(cont) = ] + tcCont + [ and inactiv = 0 and an = ] + pcAn + [ order by acont ] + *!* lcCursor = 'tceva' + *!* lnSucces = goExecutor.oExecute(lcSql,lcCursor) + + *!* SELECT tceva + *!* LOCATE + *!* IF EOF() + *!* IF !EMPTY(tcAcont) AND !ISNULL(tcAcont) + *!* DO mesaj WITH 'Nu au fost definite simboluri analitice','pentru contul ' + tcCont + *!* ll_l=.t. + *!* ENDIF + *!* + *!* IF USED('TCEVA') + *!* USE IN Tceva + *!* ENDIF + *!* SELECT actactan + *!* this.pageframe1.page1.gridb1.SetFocus + *!* RETURN ll_l + *!* ELSE + *!* IF !tlClick + *!* IF empty(tcAcont) + *!* IF USED('TCEVA') + *!* USE IN Tceva + *!* ENDIF + *!* SELECT actactan + *!* this.pageframe1.page1.gridb1.SetFocus + *!* RETURN ll_l + *!* ENDIF + *!* ENDIF + *!* ENDIF + + *!* SELECT tceva + *!* IF tlClick + *!* DO caut_alfa_cursor WITH 'tceva','den','Alegeti simbolul analitic','m.den' + *!* SELECT tceva + *!* LOCATE FOR ALLTRIM(den) = ALLTRIM(m.den) + *!* lcAcont = acont + + *!* SELECT actactan + *!* REPLACE &tcColoana WITH lcAcont + *!* ELSE + *!* LOCATE FOR ALLTRIM(cont)=ALLTRIM(tccont) AND ALLTRIM(acont)=ALLTRIM(tcacont) + *!* IF !FOUND() + *!* DO caut_alfa_cursor WITH 'tceva','den','Alegeti simbolul analitic','m.den' + *!* SELECT tceva + *!* LOCATE FOR ALLTRIM(den) = ALLTRIM(m.den) + *!* lcAcont = acont + + *!* SELECT actactan + *!* REPLACE &tcColoana WITH lcAcont + *!* ENDIF + *!* ENDIF + + *!* IF USED('TCEVA') + *!* USE IN Tceva + *!* ENDIF + + *!* SELECT actactan + *!* this.pageframe1.page1.gridb1.SetFocus + *!* RETURN ll_l + ENDPROC + + PROCEDURE Help1.Click + *!* ohelpcont=createobj('help_pltree') + *!* ohelpcont.show(1) + ENDPROC + + PROCEDURE Pageframe1.Page1.Activate + this.gridb1.Refresh + + ENDPROC + + PROCEDURE Pageframe1.Page1.Gridb1.Column10.Text1.Click + this.InteractiveChange + ENDPROC + + PROCEDURE Pageframe1.Page1.Gridb1.Column10.Text1.InteractiveChange + *tcFis, tcNume, tcId, tcTitlu + locauta = thisform.do_caut_nomenclator('Vnom_valute','nume_val','id_valuta','Numele Valutei') + SELECT actactan + REPLACE nume_val WITH locauta.nume_val, id_valuta WITH locauta.id_valuta + ENDPROC + + PROCEDURE Pageframe1.Page1.Gridb1.Column11.Combo1.Valid + SELECT actactan + REPLACE proc_tva WITH cote_tva2.proc_tva + ENDPROC + + PROCEDURE Pageframe1.Page1.Gridb1.Column2.Text1.InteractiveChange + REPLACE id_partd WITH 0, partd WITH '' + ENDPROC + + PROCEDURE Pageframe1.Page1.Gridb1.Column2.Text1.LostFocus + lcCont = actactan.scd + llReturn = exista_cont_in_plan_conturi(lcCont) && in oOperatii_comune.prg + IF !llReturn + REPLACE actactan.scd WITH '' + ENDIF + ENDPROC + + PROCEDURE Pageframe1.Page1.Gridb1.Column3.Text1.Click + this.LostFocus(.t.) + ENDPROC + + PROCEDURE Pageframe1.Page1.Gridb1.Column3.Text1.LostFocus + PARAMETERS PlClick + SELECT actactan + lcCont = scd + lcAcont = ascd + llReturn = verific_analitic(plClick, lcCont, lcAcont,'ascd','actactan') && in oOperatii_comune.prg + + ENDPROC + + PROCEDURE Pageframe1.Page1.Gridb1.Column4.Text1.InteractiveChange + REPLACE id_partc WITH 0, partc WITH '' + ENDPROC + + PROCEDURE Pageframe1.Page1.Gridb1.Column4.Text1.LostFocus + lcCont = actactan.scc + llReturn = exista_cont_in_plan_conturi(lcCont) && in oOperatii_comune.prg + IF !llReturn + REPLACE actactan.scc WITH '' + ENDIF + ENDPROC + + PROCEDURE Pageframe1.Page1.Gridb1.Column5.Text1.Click + this.LostFocus(.t.) + ENDPROC + + PROCEDURE Pageframe1.Page1.Gridb1.Column5.Text1.LostFocus + PARAMETERS PlClick + SELECT actactan + lcCont = scc + lcAcont = ascc + llReturn = verific_analitic(plClick, lcCont, lcAcont,'ascc','actactan') && in oOperatii_comune.prg + ENDPROC + + PROCEDURE Pageframe1.Page1.Gridb1.Column6.Text1.LostFocus + *!* PlClick = .f. + + *!* SELECT actactan + *!* lcContD = scd + *!* lcAcontD = ascd + *!* lcContC = scc + *!* lcAcontC = ascc + + *!* IF EMPTY(ascc) + *!* ll_l=THISFORM.verific_analitic(plClick, lcContC, lcAcontC,'ascc') + *!* *!* IF ll_l + *!* *!* REPLACE actactan.ASCC WITH '' + *!* *!* RETURN 0 + *!* *!* ENDIF + *!* ENDIF + + *!* IF EMPTY(ascd) + *!* ll_l=THISFORM.verific_analitic(plClick, lcContD, lcAcontD,'ascd') + *!* *!* IF ll_l + *!* *!* REPLACE actactan.ASCD WITH '' + *!* *!* RETURN 0 + *!* *!* ENDIF + *!* ENDIF + + ENDPROC + + PROCEDURE Pageframe1.Page1.Gridb1.Column8.Text1.LostFocus + IF !thisform.introducere_libera + IF !EMPTY(suma_val) OR !EMPTY(curs) + REPLACE suma WITH ROUND(suma_val*curs,gnPc) + ENDIF + ENDIF + ENDPROC + + PROCEDURE Pageframe1.Page1.Gridb1.Column9.Text1.LostFocus + IF !thisform.introducere_libera + IF !EMPTY(curs) OR !EMPTY(suma_val) + REPLACE suma WITH ROUND(curs*suma_val, gnPc) + ENDIF + ENDIF + ENDPROC + + PROCEDURE Pageframe1.Page1.Nou1.Command1.Click + SELECT actactan + SCATTER NAME oact + APPEND BLANK + GATHER NAME oact FIELDS EXCEPT scd, ascd,scc,ascc,proc_tva, id_partd, partd, id_partc, partc, id_factd, pereched, id_factc, perechec, suma, sumaval, curs, id_valuta, nume_val + REPLACE id_set WITH 99999 + DO nrord WITH 'actactan' + THIS.PARENT.parent.GRIDB1.REFRESH + + + ENDPROC + + PROCEDURE Pageframe1.Page1.Sterge1.Command1.Click + SELECT actactan + DELETE + DO nrord WITH 'actactan' + THIS.PARENT.parent.GRIDB1.REFRESH + ENDPROC + + PROCEDURE Pageframe1.Page2.Activate + this.gridb1.Refresh + + ENDPROC + + PROCEDURE Pageframe1.Page2.Gridb1.Column2.Text1.Click + this.InteractiveChange + ENDPROC + + PROCEDURE Pageframe1.Page2.Gridb1.Column2.Text1.InteractiveChange + locauta = thisform.do_caut_nomenclator('Vnom_fdoc','fel_document','id_fdoc','Felul Documentului') + SELECT actactan + REPLACE fdoc WITH locauta.fel_document, id_fdoc WITH locauta.id_fdoc + RELEASE locauta + + ENDPROC + + PROCEDURE Pageframe1.Page2.Gridb1.Column3.Text1.LostFocus + *thisform.pageframe1.ActivePage=2 + thisform.pageframe1.page2.gridb1.SetFocus + ENDPROC + + PROCEDURE Pageframe1.Page2.Gridb1.Column3.Text1.Valid + *ld_dataireg=actactan.dataireg + lcControl = this.ControlSource + ll=thisform.calcul_data(lcControl) + IF ll + RETURN 0 + ENDIF + + ENDPROC + + PROCEDURE Pageframe1.Page2.Gridb1.Column4.Text1.LostFocus + thisform.pageframe1.page2.gridb1.SetFocus + ENDPROC + + PROCEDURE Pageframe1.Page2.Gridb1.Column4.Text1.Valid + *ld_dataact=actactan.dataact + lcControl=this.ControlSource + ll=thisform.calcul_data(lcControl) + IF ll + RETURN 0 + ENDIF + + ENDPROC + + PROCEDURE Pageframe1.Page2.Gridb1.Column5.Text1.LostFocus + *thisform.pageframe1.ActivePage=2 + thisform.pageframe1.page2.gridb1.SetFocus + ENDPROC + + PROCEDURE Pageframe1.Page2.Gridb1.Column5.Text1.When + *!* M=this.ControlSource + *!* thisform.calcul_data + ENDPROC + + PROCEDURE Pageframe1.Page2.Gridb1.Column7.Text1.InteractiveChange + IF !thisform.introducere_libera + lcSel = this.Parent.Parent.RecordSource + SELECT (lcSel) + SCATTER NAME odoc + && 0 = ACTIV + && 1 = PASIV + *thisform.aleg_document_pereche(1,odoc) + DO aleg_document_pereche WITH 1,odoc,lcSel IN oOperatii_comune.prg + this.Parent.Parent.SetFocus + RELEASE odoc + ENDIF + ENDPROC + + PROCEDURE Pageframe1.Page2.Gridb1.Column8.Text1.KeyPress + LPARAMETERS nKeyCode, nShiftAltCtrl + IF nKeyCode=13 OR nKeyCode=9 + thisform.pageframe1.ActivePage=3 + thisform.pageframe1.page3.gridb1.SetFocus + ELSE + DODEFAULT() + ENDIF + + ENDPROC + + PROCEDURE Pageframe1.Page2.Gridb1.Column9.Text1.InteractiveChange + IF !thisform.introducere_libera + lcSel = this.Parent.Parent.RecordSource + SELECT (lcSel) + SCATTER NAME odoc + && 0 = ACTIV + && 1 = PASIV + *thisform.aleg_document_pereche(0,odoc) + DO aleg_document_pereche WITH 0,odoc,lcSel IN oOperatii_comune.prg + this.Parent.Parent.SetFocus + RELEASE odoc + ENDIF + ENDPROC + + PROCEDURE Pageframe1.Page3.Activate + this.gridb1.Refresh + + ENDPROC + + PROCEDURE Pageframe1.Page3.Gridb1.Column10.Text1.Click + this.InteractiveChange + ENDPROC + + PROCEDURE Pageframe1.Page3.Gridb1.Column10.Text1.InteractiveChange + locauta = thisform.do_caut_nomenclator('Vnom_sectii','sectie','id_sectie','Sectia') + SELECT actactan + REPLACE id_sectie WITH locauta.id_sectie, sectie WITH locauta.sectie + RELEASE locauta + + ENDPROC + + PROCEDURE Pageframe1.Page3.Gridb1.Column17.Text1.Click + this.InteractiveChange + ENDPROC + + PROCEDURE Pageframe1.Page3.Gridb1.Column17.Text1.InteractiveChange + LOCAL lcCont + LOCAL loCauta + SELECT actactan + lcCont = ALLTRIM(scd) + + IF EMPTY(lcCont) + RETURN + ENDIF + + + loCauta = CautPartenerContabilitate(GetHash([cTitlu=>Alegeti partenerul ] + lcCont + [??lAdaugCorespondente=>1??cCont=>] + lcCont)) + + SELECT actactan + REPLACE id_partd WITH loCauta.id_part, partd WITH locauta.nume + + ENDPROC + + PROCEDURE Pageframe1.Page3.Gridb1.Column18.Text1.Click + this.InteractiveChange + ENDPROC + + PROCEDURE Pageframe1.Page3.Gridb1.Column18.Text1.InteractiveChange + LOCAL lcCont + LOCAL loCauta + SELECT actactan + lcCont = ALLTRIM(scc) + + IF EMPTY(lcCont) + RETURN + ENDIF + + + loCauta = CautPartenerContabilitate(GetHash([cTitlu=>Alegeti partenerul ] + lcCont + [??lAdaugCorespondente=>1??cCont=>] + lcCont)) + + SELECT actactan + REPLACE id_partc WITH loCauta.id_part, partc WITH locauta.nume + + ENDPROC + + PROCEDURE Pageframe1.Page3.Gridb1.Column2.Text1.Click + this.InteractiveChange + ENDPROC + + PROCEDURE Pageframe1.Page3.Gridb1.Column2.Text1.InteractiveChange + locauta = thisform.do_caut_nomenclator('Vnom_sucursale','SUCURSALA','id_SUCURSALA','Sucursala') + SELECT actactan + REPLACE id_SUCURSALA WITH locauta.id_SUCURSALA, SUCURSALA WITH locauta.SUCURSALA + RELEASE locauta + ENDPROC + + PROCEDURE Pageframe1.Page3.Gridb1.Column7.Text1.Click + this.InteractiveChange + ENDPROC + + PROCEDURE Pageframe1.Page3.Gridb1.Column7.Text1.InteractiveChange + locauta = thisform.do_caut_nomenclator('Vnom_lucrari','nrord','id_lucrare','Lucrarea / Contractul') + SELECT actactan + REPLACE nrord WITH locauta.nrord, id_lucrare WITH locauta.id_lucrare + RELEASE locauta + + ENDPROC + + PROCEDURE Pageframe1.Page3.Gridb1.Column8.Text1.Click + this.InteractiveChange + ENDPROC + + PROCEDURE Pageframe1.Page3.Gridb1.Column8.Text1.InteractiveChange + *!* locauta = thisform.do_caut_nomenclator('Vnom_responsabili','nume','id_responsabil','Nume responsabil') + loCauta = CautPartenerContabilitate(GetHash([cTitlu=>Responsabili??cTipuriParteneri=>]+ALLTRIM(STR(gnIdTipResponsabili))+[??lAdaugCorespondente=>1])) + SELECT actactan + REPLACE nresp WITH locauta.denumire, id_responsabil WITH locauta.id_part + RELEASE locauta + + ENDPROC + + PROCEDURE Pageframe1.Page3.Gridb1.Column9.Text1.Click + this.InteractiveChange + ENDPROC + + PROCEDURE Pageframe1.Page3.Gridb1.Column9.Text1.InteractiveChange + locauta = thisform.do_caut_nomenclator('Vnom_venchel','explicatie','id_venchelt','Cheltuiala / Venit') + SELECT actactan + REPLACE dst_chlt WITH locauta.explicatie, id_venchelt WITH locauta.id_venchelt + RELEASE locauta + + ENDPROC + + PROCEDURE Pageframe1.Page3.Gridb1.Init + *!* this.column1.header1.BackColor=this.column1.dynamicBackColor + + + *!* FOR i=1 TO this.ColumnCount + *!* t='this.column'+ALLTRIM(STR(i))+'.header1.backcolor=this.column'+ALLTRIM(STR(i))+'.backcolor' + *!* &t + *!* ENDFOR + *!* this.Refresh + ENDPROC + + PROCEDURE Terminat1.Command1.Click + e_complet=thisform.verificare() + *!* SELECT actactan + *!* BROWSE + *!* RETURN + *!* SELECT actactan + IF !e_complet + RETURN + ELSE + buton=1 + SELECT actactan + LOCATE + lVerificAnalitic = .t. + lCompletareParteneri = .f. + DO FORM verificare WITH lVerificAnalitic, lCompletareParteneri + IF buton = 1 + SELECT actactan + REPLACE ALL id_set WITH 99999 + REPLACE ALL AN WITH gnAn,luna WITH gnLuna, ID_UTIL WITH gnidutil + lnSucces = oscrie_in_fisiere(0) + IF lnSucces > 0 + thisform.Release + ENDIF + ENDIF + ENDIF + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_note2007 AS formtermin OF "..\comun\clase\baza.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Pageframe1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Gridb1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Gridb1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Gridb1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Gridb1.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Gridb1.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Gridb1.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Gridb1.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Gridb1.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Gridb1.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Gridb1.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Gridb1.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Gridb1.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Gridb1.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Gridb1.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Gridb1.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Gridb1.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Gridb1.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Gridb1.Column11.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Gridb1.Column11.Combo1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Gridb1.Column11.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Gridb1.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Gridb1.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Gridb1.Column12.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Gridb1.Column12._CHECKBOX1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Gridb1.Column13.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Gridb1.Column13.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Gridb1.Column14.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Gridb1.Column14.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Gridb1.Column15.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Gridb1.Column15.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page2.Gridb1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page2.Gridb1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page2.Gridb1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page2.Gridb1.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page2.Gridb1.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page2.Gridb1.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page2.Gridb1.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page2.Gridb1.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page2.Gridb1.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page2.Gridb1.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page2.Gridb1.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page2.Gridb1.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page2.Gridb1.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page2.Gridb1.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page2.Gridb1.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page2.Gridb1.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page2.Gridb1.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page2.Gridb1.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page2.Gridb1.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Gridb1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Gridb1.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Gridb1.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Gridb1.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Gridb1.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Gridb1.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Gridb1.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Gridb1.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Gridb1.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Gridb1.Column14.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Gridb1.Column14.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Gridb1.Column17.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Gridb1.Column17.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Gridb1.Column18.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Gridb1.Column18.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_SHAPE1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Help1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Renunt1" UniqueID="" Timestamp="" /> + + * + *m: aleg_document_pereche + *m: calcul_data + *m: calcul_suma + *m: do_caut_nomenclator + *m: verificare + *m: verific_analitic + *p: introducere_libera + *p: lnuverificcont + *p: lverificareanalitic + * + + * + BorderStyle = 1 + DoCreate = .T. + Height = 400 + introducere_libera = .F. + lnuverificcont = .F. + lverificareanalitic = .T. + Name = "frm_note2007" + Width = 792 + Shape1.Height = 36 + Shape1.Left = 0 + Shape1.Name = "Shape1" + Shape1.Top = 0 + Shape1.Width = 792 + Shape1.ZOrderSet = 0 + Terminat1.Command1.Name = "Command1" + Terminat1.Imbuton1.Height = 29 + Terminat1.Imbuton1.Name = "Imbuton1" + Terminat1.Imbuton1.Width = 27 + Terminat1.Left = 757 + Terminat1.Name = "Terminat1" + Terminat1.Top = 3 + Terminat1.ZOrderSet = 7 + Titlufrumos1.Caption = "NOTE FARA PREDEFINIRE" + Titlufrumos1.Height = 30 + Titlufrumos1.Left = 9 + Titlufrumos1.Name = "Titlufrumos1" + Titlufrumos1.Top = 6 + Titlufrumos1.Width = 364 + Titlufrumos1.ZOrderSet = 1 + * + + ADD OBJECT '_SHAPE1' AS _shape WITH ; + BackColor = 255,255,255, ; + Height = 36, ; + Left = 684, ; + Name = "_SHAPE1", ; + Top = 0, ; + Width = 107, ; + ZOrderSet = 4 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" /> + + ADD OBJECT 'Help1' AS help WITH ; + Left = 691, ; + Name = "Help1", ; + Top = 3, ; + ZOrderSet = 5, ; + Imbuton1.Name = "Imbuton1", ; + Command1.Name = "Command1" + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="container" /> + + ADD OBJECT 'Pageframe1' AS pageframe WITH ; + ErasePage = .T., ; + Height = 349, ; + Left = 8, ; + Name = "Pageframe1", ; + PageCount = 3, ; + TabStyle = 1, ; + Top = 45, ; + Width = 778, ; + ZOrderSet = 2, ; + Page1.BackColor = 255,255,255, ; + Page1.Caption = "Note-Sume", ; + Page1.Name = "Page1", ; + Page2.BackColor = 240,240,240, ; + Page2.Caption = "Date", ; + Page2.Name = "Page2", ; + Page3.BackColor = 228,228,228, ; + Page3.Caption = "Explicatii", ; + Page3.Name = "Page3" + *< END OBJECT: BaseClass="pageframe" /> + + ADD OBJECT 'Pageframe1.Page1.Gridb1' AS gridb WITH ; + ColumnCount = 15, ; + FontName = "Arial Narrow", ; + GridLineColor = 255,255,255, ; + GridLines = 3, ; + HeaderHeight = 25, ; + Height = 260, ; + Left = 5, ; + Name = "Gridb1", ; + Panel = 1, ; + ReadOnly = .F., ; + RecordMark = .T., ; + RecordSource = "actactan", ; + RowHeight = 22, ; + Top = 11, ; + Width = 763, ; + COLUMN1.Alignment = 2, ; + COLUMN1.BackColor = 245,245,245, ; + COLUMN1.ControlSource = "nrcrt()", ; + COLUMN1.DynamicBackColor = "RGB(245,245,245)", ; + COLUMN1.FontName = "Arial Narrow", ; + COLUMN1.Header1.Caption = "Nr.", ; + COLUMN1.Header1.FontName = "Arial Narrow", ; + COLUMN1.Header1.Name = "Header1", ; + COLUMN1.Name = "COLUMN1", ; + COLUMN1.ReadOnly = .F., ; + COLUMN1.Text1.Alignment = 2, ; + COLUMN1.Text1.BackColor = 245,245,245, ; + COLUMN1.Text1.FontName = "Arial Narrow", ; + COLUMN1.Text1.Name = "Text1", ; + COLUMN1.Text1.ReadOnly = .F., ; + COLUMN1.Text1.Visible = .T., ; + COLUMN1.Visible = .T., ; + COLUMN1.Width = 37, ; + Column2.Alignment = 1, ; + Column2.BackColor = 247,245,238, ; + Column2.ControlSource = "scd", ; + Column2.DynamicBackColor = "RGB(247,245,238)", ; + Column2.FontName = "Arial Narrow", ; + Column2.Format = "XXXX.", ; + Column2.Name = "Column2", ; + Column2.ReadOnly = .F., ; + Column2.Visible = .T., ; + Column2.Width = 59, ; + Column3.Alignment = 0, ; + Column3.BackColor = 247,245,238, ; + Column3.ControlSource = "ascd", ; + Column3.DynamicBackColor = "RGB(247,245,238)", ; + Column3.FontName = "Arial Narrow", ; + Column3.Name = "Column3", ; + Column3.ReadOnly = .F., ; + Column3.Visible = .T., ; + Column3.Width = 53, ; + Column4.Alignment = 1, ; + Column4.BackColor = 226,226,226, ; + Column4.ControlSource = "scc", ; + Column4.DynamicBackColor = "RGB(226,226,226)", ; + Column4.FontName = "Arial Narrow", ; + Column4.Format = "XXXX.", ; + Column4.Name = "Column4", ; + Column4.ReadOnly = .F., ; + Column4.Visible = .T., ; + Column4.Width = 63, ; + Column5.Alignment = 0, ; + Column5.BackColor = 226,226,226, ; + Column5.ControlSource = "ascc", ; + Column5.DynamicBackColor = "RGB(226,226,226)", ; + Column5.FontName = "Arial Narrow", ; + Column5.Name = "Column5", ; + Column5.ReadOnly = .F., ; + Column5.Visible = .T., ; + Column5.Width = 49, ; + Column6.BackColor = 214,214,214, ; + Column6.ControlSource = "suma", ; + Column6.DynamicBackColor = "rgb(214,214,214)", ; + Column6.FontName = "Arial Narrow", ; + Column6.InputMask = (get_mask(12,gnPa)), ; + Column6.Name = "Column6", ; + Column6.ReadOnly = .F., ; + Column6.Visible = .T., ; + Column6.Width = 114, ; + Column7.BackColor = 214,214,214, ; + Column7.ColumnOrder = 7, ; + Column7.ControlSource = "suma_val", ; + Column7.DynamicBackColor = "rgb(214,214,214)", ; + Column7.FontName = "Arial Narrow", ; + Column7.InputMask = (get_mask(12,gnPval)), ; + Column7.Name = "Column8", ; + Column7.ReadOnly = .F., ; + Column7.Visible = .T., ; + Column7.Width = 87, ; + Column8.BackColor = 214,214,214, ; + Column8.ColumnOrder = 8, ; + Column8.ControlSource = "curs", ; + Column8.DynamicBackColor = "rgb(214,214,214)", ; + Column8.FontName = "Arial Narrow", ; + Column8.InputMask = (get_mask(12,gnPcurs)), ; + Column8.Name = "Column9", ; + Column8.ReadOnly = .F., ; + Column8.Visible = .T., ; + Column8.Width = 76, ; + Column9.BackColor = 214,214,214, ; + Column9.ColumnOrder = 9, ; + Column9.ControlSource = "nume_val", ; + Column9.CurrentControl = "Text1", ; + Column9.DynamicBackColor = "rgb(214,214,214)", ; + Column9.FontName = "Arial Narrow", ; + Column9.Name = "Column10", ; + Column9.ReadOnly = .F., ; + Column9.Visible = .T., ; + Column9.Width = 112, ; + Column10.Alignment = 0, ; + Column10.BackColor = 214,214,214, ; + Column10.ColumnOrder = 12, ; + Column10.ControlSource = "explicatie_tva", ; + Column10.CurrentControl = "Combo1", ; + Column10.DynamicBackColor = "rgb(214,214,214)", ; + Column10.DynamicCurrentControl = "IIF(actactan.cu_tva=0,'Text1','Combo1')", ; + Column10.FontName = "Arial Narrow", ; + Column10.Name = "Column11", ; + Column10.ReadOnly = .F., ; + Column10.Sparse = .F., ; + Column10.Visible = .T., ; + Column10.Width = 72, ; + Column11.BackColor = 214,214,214, ; + Column11.ColumnOrder = 11, ; + Column11.ControlSource = "proc_tva", ; + Column11.FontName = "Arial Narrow", ; + Column11.InputMask = "99.99", ; + Column11.Name = "Column7", ; + Column11.ReadOnly = .T., ; + Column11.Visible = .T., ; + Column11.Width = 65, ; + Column12.BackColor = 214,214,214, ; + Column12.ColumnOrder = 10, ; + Column12.ControlSource = "cu_tva", ; + Column12.FontName = "Arial Narrow", ; + Column12.Name = "Column12", ; + Column12.ReadOnly = .F., ; + Column12.Sparse = .F., ; + Column12.Visible = .T., ; + Column12.Width = 42, ; + Column13.BackColor = 214,214,214, ; + Column13.ControlSource = "id_fact", ; + Column13.FontName = "Arial Narrow", ; + Column13.Name = "Column13", ; + Column13.ReadOnly = .T., ; + Column13.Width = 63, ; + Column14.BackColor = 214,214,214, ; + Column14.ControlSource = "id_factd", ; + Column14.FontName = "Arial Narrow", ; + Column14.Name = "Column14", ; + Column14.ReadOnly = .T., ; + Column14.Width = 69, ; + Column15.BackColor = 214,214,214, ; + Column15.ControlSource = "id_factc", ; + Column15.FontName = "Arial Narrow", ; + Column15.Name = "Column15", ; + Column15.ReadOnly = .T., ; + Column15.Width = 68 + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="grid" /> + + ADD OBJECT 'Pageframe1.Page1.Gridb1.Column10.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nume valuta", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page1.Gridb1.Column10.Text1' AS textbox WITH ; + BackColor = 214,214,214, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page1.Gridb1.Column11.Combo1' AS combobox WITH ; + Alignment = 0, ; + BorderStyle = 0, ; + BoundColumn = 1, ; + BoundTo = .T., ; + ColumnCount = 3, ; + ColumnLines = .F., ; + ColumnWidths = "250,0,0", ; + Enabled = .T., ; + FontName = "Arial Narrow", ; + Height = 24, ; + Left = 32, ; + Name = "Combo1", ; + ReadOnly = .F., ; + RowSource = "jtva_coloane.denumire,cota_tva,id_jtva_coloana", ; + RowSourceType = 2, ; + SpecialEffect = 1, ; + Style = 2, ; + Top = 44, ; + Visible = .T., ; + Width = 100 + *< END OBJECT: BaseClass="combobox" /> + + ADD OBJECT 'Pageframe1.Page1.Gridb1.Column11.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatie TVA", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page1.Gridb1.Column11.Text1' AS _textbox WITH ; + FontName = "Arial Narrow", ; + Left = 44, ; + Name = "Text1", ; + ReadOnly = .T., ; + Top = 32 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page1.Gridb1.Column12._CHECKBOX1' AS _checkbox WITH ; + Alignment = 0, ; + AutoSize = .F., ; + Caption = "", ; + Centered = .T., ; + ControlSource = "cu_tva", ; + FontName = "Arial Narrow", ; + Left = 27, ; + Name = "_CHECKBOX1", ; + ReadOnly = .F., ; + Top = 32, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Pageframe1.Page1.Gridb1.Column12.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cu TVA", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page1.Gridb1.Column13.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id Factura", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page1.Gridb1.Column13.Text1' AS textbox WITH ; + BackColor = 214,214,214, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page1.Gridb1.Column14.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id Factura d", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page1.Gridb1.Column14.Text1' AS textbox WITH ; + BackColor = 214,214,214, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page1.Gridb1.Column15.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "ID Factura c", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page1.Gridb1.Column15.Text1' AS textbox WITH ; + BackColor = 214,214,214, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page1.Gridb1.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont debitor", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page1.Gridb1.Column2.Text1' AS textbox WITH ; + Alignment = 1, ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page1.Gridb1.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Analitic D", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page1.Gridb1.Column3.Text1' AS textbox WITH ; + Alignment = 0, ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page1.Gridb1.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont creditor ", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page1.Gridb1.Column4.Text1' AS textbox WITH ; + Alignment = 1, ; + BackColor = 226,226,226, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page1.Gridb1.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Analitic C", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page1.Gridb1.Column5.Text1' AS textbox WITH ; + Alignment = 0, ; + BackColor = 226,226,226, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page1.Gridb1.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Suma", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page1.Gridb1.Column6.Text1' AS textbox WITH ; + BackColor = 214,214,214, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page1.Gridb1.Column7.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Procent TVA", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page1.Gridb1.Column7.Text1' AS textbox WITH ; + BackColor = 214,214,214, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page1.Gridb1.Column8.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Suma in valuta", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page1.Gridb1.Column8.Text1' AS textbox WITH ; + BackColor = 214,214,214, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page1.Gridb1.Column9.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Curs valutar", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page1.Gridb1.Column9.Text1' AS textbox WITH ; + BackColor = 214,214,214, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page1.Nou1' AS nou WITH ; + Left = 16, ; + Name = "Nou1", ; + Top = 279, ; + Imbuton1.Height = 29, ; + Imbuton1.Name = "Imbuton1", ; + Imbuton1.Width = 27, ; + Command1.Name = "Command1" + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="container" /> + + ADD OBJECT 'Pageframe1.Page1.Sterge1' AS sterge WITH ; + Left = 52, ; + Name = "Sterge1", ; + Top = 279, ; + Imbuton1.Height = 26, ; + Imbuton1.Name = "Imbuton1", ; + Imbuton1.Width = 26, ; + Command1.Name = "Command1" + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="container" /> + + ADD OBJECT 'Pageframe1.Page2.Gridb1' AS gridb WITH ; + BackColor = 240,240,240, ; + ColumnCount = 10, ; + FontName = "Arial Narrow", ; + GridLineColor = 255,255,255, ; + HeaderHeight = 26, ; + Height = 297, ; + Left = 11, ; + Name = "Gridb1", ; + Panel = 1, ; + ReadOnly = .F., ; + RecordMark = .T., ; + RecordSource = "actactan", ; + RowHeight = 23, ; + Top = 11, ; + Width = 753, ; + COLUMN1.BackColor = 240,240,240, ; + COLUMN1.ControlSource = "nrcrt()", ; + COLUMN1.FontName = "Arial Narrow", ; + COLUMN1.Header1.Caption = "Nr.", ; + COLUMN1.Header1.FontName = "Arial Narrow", ; + COLUMN1.Header1.Name = "Header1", ; + COLUMN1.Name = "COLUMN1", ; + COLUMN1.ReadOnly = .T., ; + COLUMN1.Text1.BackColor = 240,240,240, ; + COLUMN1.Text1.FontName = "Arial Narrow", ; + COLUMN1.Text1.Name = "Text1", ; + COLUMN1.Text1.ReadOnly = .T., ; + COLUMN1.Width = 24, ; + Column2.BackColor = 240,240,240, ; + Column2.ColumnOrder = 2, ; + Column2.ControlSource = "fdoc", ; + Column2.CurrentControl = "Text1", ; + Column2.FontName = "Arial Narrow", ; + Column2.Name = "Column2", ; + Column2.ReadOnly = .F., ; + Column2.Width = 105, ; + Column3.BackColor = 240,240,240, ; + Column3.ColumnOrder = 3, ; + Column3.ControlSource = "dataireg", ; + Column3.CurrentControl = "Text1", ; + Column3.FontName = "Arial Narrow", ; + Column3.Name = "Column3", ; + Column3.ReadOnly = .F., ; + Column3.Sparse = .F., ; + Column3.Width = 83, ; + Column4.BackColor = 240,240,240, ; + Column4.ColumnOrder = 4, ; + Column4.ControlSource = "dataact", ; + Column4.CurrentControl = "Text1", ; + Column4.FontName = "Arial Narrow", ; + Column4.Name = "Column4", ; + Column4.ReadOnly = .F., ; + Column4.Sparse = .F., ; + Column4.Width = 87, ; + Column5.BackColor = 240,240,240, ; + Column5.ColumnOrder = 5, ; + Column5.ControlSource = "datascad", ; + Column5.CurrentControl = "Text1", ; + Column5.FontName = "Arial Narrow", ; + Column5.Name = "Column5", ; + Column5.ReadOnly = .F., ; + Column5.Sparse = .F., ; + Column5.Width = 83, ; + Column6.BackColor = 240,240,240, ; + Column6.ColumnOrder = 7, ; + Column6.ControlSource = "nract", ; + Column6.CurrentControl = "Text1", ; + Column6.FontName = "Arial Narrow", ; + Column6.Name = "Column6", ; + Column6.ReadOnly = .F., ; + Column6.Sparse = .F., ; + Column7.BackColor = 240,240,240, ; + Column7.ColumnOrder = 8, ; + Column7.ControlSource = "pereched", ; + Column7.CurrentControl = "Text1", ; + Column7.DynamicBackColor = "", ; + Column7.FontName = "Arial Narrow", ; + Column7.Name = "Column7", ; + Column7.ReadOnly = .F., ; + Column7.Sparse = .F., ; + Column7.Width = 68, ; + Column8.BackColor = 240,240,240, ; + Column8.ColumnOrder = 10, ; + Column8.ControlSource = "nnir", ; + Column8.CurrentControl = "Text1", ; + Column8.DynamicBackColor = "", ; + Column8.FontName = "Arial Narrow", ; + Column8.Name = "Column8", ; + Column8.ReadOnly = .F., ; + Column8.Sparse = .F., ; + Column9.BackColor = 240,240,240, ; + Column9.ColumnOrder = 9, ; + Column9.ControlSource = "perechec", ; + Column9.FontName = "Arial Narrow", ; + Column9.Name = "Column9", ; + Column9.ReadOnly = .F., ; + Column9.Width = 71, ; + Column10.BackColor = 240,240,240, ; + Column10.ColumnOrder = 6, ; + Column10.ControlSource = "serie_act", ; + Column10.FontName = "Arial Narrow", ; + Column10.Format = "!", ; + Column10.Name = "Column10", ; + Column10.ReadOnly = .F., ; + Column10.Width = 52 + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="grid" /> + + ADD OBJECT 'Pageframe1.Page2.Gridb1.Column10.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Serie doc.", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page2.Gridb1.Column10.Text1' AS textbox WITH ; + BackColor = 240,240,240, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page2.Gridb1.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Fel document", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page2.Gridb1.Column2.Text1' AS textbox WITH ; + BackColor = 240,240,240, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page2.Gridb1.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data inregistrarii", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page2.Gridb1.Column3.Text1' AS textbox WITH ; + BackColor = 240,240,240, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page2.Gridb1.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data document", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page2.Gridb1.Column4.Text1' AS textbox WITH ; + BackColor = 240,240,240, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page2.Gridb1.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data scadenta", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page2.Gridb1.Column5.Text1' AS textbox WITH ; + BackColor = 240,240,240, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page2.Gridb1.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. document", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page2.Gridb1.Column6.Text1' AS textbox WITH ; + BackColor = 240,240,240, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page2.Gridb1.Column7.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Pereche Debit", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page2.Gridb1.Column7.Text1' AS textbox WITH ; + BackColor = 240,240,240, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page2.Gridb1.Column8.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. NIR/BON", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page2.Gridb1.Column8.Text1' AS textbox WITH ; + BackColor = 240,240,240, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page2.Gridb1.Column9.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Pereche Credit", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page2.Gridb1.Column9.Text1' AS textbox WITH ; + BackColor = 240,240,240, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Gridb1' AS gridb WITH ; + BackColor = 228,228,228, ; + ColumnCount = 8, ; + FontName = "Arial Narrow", ; + GridLineColor = 255,255,255, ; + HeaderHeight = 25, ; + Height = 298, ; + Left = 7, ; + Name = "Gridb1", ; + Panel = 1, ; + ReadOnly = .F., ; + RecordMark = .T., ; + RecordSource = "actactan", ; + RowHeight = 23, ; + Top = 10, ; + Width = 759, ; + COLUMN1.BackColor = 228,228,228, ; + COLUMN1.ColumnOrder = 1, ; + COLUMN1.ControlSource = "nrcrt()", ; + COLUMN1.DynamicBackColor = "rgb(228,228,228)", ; + COLUMN1.FontName = "Arial Narrow", ; + COLUMN1.Header1.BackColor = 228,228,228, ; + COLUMN1.Header1.Caption = "Nr.", ; + COLUMN1.Header1.FontName = "Arial Narrow", ; + COLUMN1.Header1.Name = "Header1", ; + COLUMN1.Name = "COLUMN1", ; + COLUMN1.ReadOnly = .T., ; + COLUMN1.Text1.BackColor = 228,228,228, ; + COLUMN1.Text1.FontName = "Arial Narrow", ; + COLUMN1.Text1.Name = "Text1", ; + COLUMN1.Text1.ReadOnly = .T., ; + COLUMN1.Width = 21, ; + Column2.BackColor = 228,228,228, ; + Column2.ColumnOrder = 5, ; + Column2.ControlSource = "nrord", ; + Column2.CurrentControl = "Text1", ; + Column2.DynamicBackColor = "rgb(228,228,228)", ; + Column2.FontName = "Arial Narrow", ; + Column2.Name = "Column7", ; + Column2.ReadOnly = .F., ; + Column2.Width = 95, ; + Column3.BackColor = 228,228,228, ; + Column3.ColumnOrder = 6, ; + Column3.ControlSource = "nresp", ; + Column3.CurrentControl = "Text1", ; + Column3.FontName = "Arial Narrow", ; + Column3.Name = "Column8", ; + Column3.ReadOnly = .F., ; + Column3.Width = 110, ; + Column4.BackColor = 228,228,228, ; + Column4.ColumnOrder = 7, ; + Column4.ControlSource = "dst_chlt", ; + Column4.CurrentControl = "Text1", ; + Column4.FontName = "Arial Narrow", ; + Column4.Name = "Column9", ; + Column4.ReadOnly = .F., ; + Column4.Sparse = .F., ; + Column4.Width = 108, ; + Column5.BackColor = 228,228,228, ; + Column5.ColumnOrder = 8, ; + Column5.ControlSource = "sectie", ; + Column5.CurrentControl = "Text1", ; + Column5.FontName = "Arial Narrow", ; + Column5.Name = "Column10", ; + Column5.ReadOnly = .F., ; + Column5.Width = 96, ; + Column6.BackColor = 228,228,228, ; + Column6.ColumnOrder = 4, ; + Column6.ControlSource = "explicatia", ; + Column6.DynamicBackColor = "rgb(226,226,226)", ; + Column6.FontName = "Arial Narrow", ; + Column6.Format = "k!", ; + Column6.Name = "Column14", ; + Column6.ReadOnly = .F., ; + Column6.Width = 110, ; + Column7.BackColor = 228,228,228, ; + Column7.ColumnOrder = 2, ; + Column7.ControlSource = "partd", ; + Column7.FontName = "Arial Narrow", ; + Column7.Name = "Column17", ; + Column7.ReadOnly = .F., ; + Column7.Width = 105, ; + Column8.BackColor = 228,228,228, ; + Column8.ColumnOrder = 3, ; + Column8.ControlSource = "partc", ; + Column8.FontName = "Arial Narrow", ; + Column8.Name = "Column18", ; + Column8.ReadOnly = .F., ; + Column8.Width = 105 + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="grid" /> + + ADD OBJECT 'Pageframe1.Page3.Gridb1.Column10.Header1' AS header WITH ; + Alignment = 2, ; + BackColor = 228,228,228, ; + Caption = "Sectia", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Gridb1.Column10.Text1' AS textbox WITH ; + BackColor = 228,228,228, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Gridb1.Column14.Header1' AS header WITH ; + Alignment = 2, ; + BackColor = 226,226,226, ; + Caption = "Explicatia", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Gridb1.Column14.Text1' AS textbox WITH ; + BackColor = 228,228,228, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Gridb1.Column17.Header1' AS header WITH ; + Alignment = 2, ; + BackColor = 226,226,226, ; + Caption = "Partener Debit", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Gridb1.Column17.Text1' AS textbox WITH ; + BackColor = 228,228,228, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Gridb1.Column18.Header1' AS header WITH ; + Alignment = 2, ; + BackColor = 226,226,226, ; + Caption = "Partener Credit", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Gridb1.Column18.Text1' AS textbox WITH ; + BackColor = 228,228,228, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Gridb1.Column7.Header1' AS header WITH ; + Alignment = 2, ; + BackColor = 228,228,228, ; + Caption = "Contract/Lucrare", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Gridb1.Column7.Text1' AS textbox WITH ; + BackColor = 228,228,228, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Gridb1.Column8.Header1' AS header WITH ; + Alignment = 2, ; + BackColor = 228,228,228, ; + Caption = "Responsabil", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Gridb1.Column8.Text1' AS textbox WITH ; + BackColor = 228,228,228, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Gridb1.Column9.Header1' AS header WITH ; + Alignment = 2, ; + BackColor = 228,228,228, ; + Caption = "Cheltuiala/Venit", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Gridb1.Column9.Text1' AS textbox WITH ; + BackColor = 228,228,228, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Renunt1' AS renunt WITH ; + Left = 724, ; + Name = "Renunt1", ; + Top = 3, ; + ZOrderSet = 6, ; + Imbuton1.Height = 27, ; + Imbuton1.Name = "Imbuton1", ; + Imbuton1.Width = 30, ; + Command1.Name = "Command1" + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="container" /> + + ADD OBJECT 'Shape2' AS shape WITH ; + BackColor = 0,128,255, ; + Height = 24, ; + Left = 624, ; + Name = "Shape2", ; + Top = 7, ; + Visible = .F., ; + Width = 49, ; + ZOrderSet = 3 + *< END OBJECT: BaseClass="shape" /> + + PROCEDURE aleg_document_pereche + PARAMETERS tcFel,toAct + LOCAL lcSel,lcSelAct + lcSelAct = this.pageframe1.paGE2.gridb1.RecordSource + pnFelCont = tcFel + + IF pnFelCont = 0 && ACTIV + pcContul = ALLTRIM(NVL(toAct.scc,[])) + pcACont = ALLTRIM(NVL(toAct.ascc,[NULL])) + pnIdPart = NVL(toAct.Id_partc,0) + pcNume = ALLTRIM(NVL(toAct.partc,[])) + pnPereche = [perecheC] + pnIdPereche = [id_factC] + ELSE && PASIV + pcContul = ALLTRIM(NVL(toAct.scd,[])) + pcACont = ALLTRIM(NVL(toAct.ascd,[NULL])) + pnIdPart = NVL(toAct.Id_partd,0) + pcNume = ALLTRIM(NVL(toAct.partd,[])) + pnPereche = [perecheD] + pnIdPereche = [id_factD] + ENDIF + + lcSelect = [select count(*) as ePereche from ] + gcs + [.vcoresp_tip_cont where cont = ?pcContul and fel_cont = ?pnFelCont and cu_inregistrari = 1 ] + lcCursor = [crsTest] + lnSucces = goexecutor.oExecute(lcSelect,lcCursor) + IF lnSucces < 0 + aMESSAGEBOX('Modificare:Verific existenta pereche ' +goExecutor.cEroare,0+16,"Eroare") + SELECT (lcSelAct) + this.pageframe1.paGE2.gridb1.SetFocus + RETURN + ENDIF + + SELECT crsTest + LOCATE + IF ePereche = 0 + USE IN crsTest + SELECT (lcSelAct) + this.pageframe1.paGE2.gridb1.SetFocus + RETURN + ENDIF + + + IF !EMPTY(toAct.Suma_val) + llval = .t. + pnSuma = toAct.Suma_val + lcFormular = [ocompensari_val] + ELSE + llval = .f. + pnSuma = toAct.Suma + lcFormular = [ocompensari] + ENDIF + pnIdValuta = toAct.Id_Valuta + pcDenumire = [Partener ] + pcContul + + pcCond = [ an = ?gnAn and luna = ?gnluna] + + IF llval + pccond= pccond + [ and ABS(i.precvaldeb + i.valdebit - i.precvalcred - i.valcredit)>0 and i.id_valuta = ?pnIdValuta ] + ELSE + pccond= pccond + [ and (i.precvaldeb + i.valdebit - i.precvalcred - i.valcredit = 0) ] + ENDIF + + pcselect = ['select i.* FROM ] + gcs + [.Vireg_parteneri i where 2=2 '] + IF ALLTRIM(pcACont) # [NULL] + pcfiltru = [ i.id_part = ?pnIdPart AND ABS(i.precdeb + i.debit - i.preccred - i.credit)<>0 AND i.cont = ?pcContul and ] + pcCond + ELSE + pcfiltru = [ i.id_part = ?pnIdPart AND ABS(i.precdeb + i.debit - i.preccred - i.credit)<>0 AND i.cont = ?pcContul and acont is null and ] + pcCond + ENDIF + pcschema = [''] + pcorder = [''] + + PRIVATE podateintrod + STORE '' TO podateintrod + + gencursor('podateintrod','crs_actcv',pcselect,pcfiltru,[''],'') + + lcFis = 'actcv' + ALLTRIM(pcContul) + + IF USED(lcFis) + USE IN &lcFis + ENDIF + + IF pnFelCont = 0 + lcsel = [SELECT *, ACONT AS ASCC, nume_val as numeval, curs as cursschimb, precdeb + debit as totctva, preccred+credit as achitat, ] +; + [precvaldeb + valdebit AS sumaval, precVALcred+VALcredit as achitatval, ] +; + [.f. as ales, 00000000000000.0000 as sumaachi, 000000000000.0000 as sumaachi2, 00000000000000.0000 as achilei, 00000000000000.0000 as difplus, 00000000000000.0000 as difminus, 000000.0000 as cursval, 000000.0000 as cursdif ] +; + [FROM crs_actcv INTO CURSOR ] + lcFis + [ READWRITE ] + ELSE + lcsel = [SELECT *, ACONT AS ASCD, nume_val as numeval, curs as cursschimb, preccred + credit as totctva, precdeb+debit as achitat, ] + ; + [precvalcred + valcredit as sumaval, precVALdeb+VALdebit as achitatval, ] + ; + [.f. as ales, 00000000000000.0000 as sumaachi, 00000000000000.0000 as sumaachi2, 00000000000000.0000 as achilei, 00000000000000.0000 as difplus, 00000000000000.0000 as difminus, 000000.0000 as cursval, 000000.0000 as cursdif ] + ; + [FROM crs_actcv INTO CURSOR ] + lcFis + [ READWRITE ] + ENDIF + &lcsel + + USE IN crs_actcv + SELECT (lcFis) + + OPLATA=CREATEOBJECT(lcFormular) + OPLATA.titlufrumos1.CAPTION = pcDenumire + [: ] + pcNume + OPLATA.pcFis = lcFis + OPLATA.SUMA = pnSuma + OPLATA.pnFelCont = pnFelCont + OPLATA.SHOW(1) + + IF gnButon = 1 + SELECT (lcSelAct) + DELETE + SELECT (lcFis) + SCAN FOR ales + SCATTER NAME oper + SELECT (lcSelAct) + APPEND BLANK + GATHER NAME toAct + REPLACE &pnIdPereche WITH oper.id_fact, &pnPereche WITH oper.nract, suma WITH oper.sumaachi, suma_val WITH oper.sumaachi2 + SELECT (lcFis) + ENDSCAN + ELSE + SELECT (lcSelAct) + REPLACE &pnPereche WITH toact.&pnPereche + ENDIF + + IF USED(lcFis) + USE IN (lcFis) + ENDIF + SELECT (lcSelAct) + DO nrord WITH lcSelAct + this.pageframe1.paGE2.gridb1.SetFocus + ENDPROC + + PROCEDURE calcul_data + Parameters tcControl + Local ll_verif + Store .F. To ll_verif + lcControl = Alltrim(tcControl) + + Do Case + Case Upper(Alltrim(lcControl))='ACTACTAN.DATASCAD' + ld_DataScad = Gomonth(dataact,1) + Select ACTACTAN + Replace DATASCAD With ld_DataScad + + Case Upper(Alltrim(lcControl))='ACTACTAN.DATAIREG' + If !(Month(dataireg)= gnLuna And Year(dataireg) = gnAn) + *!* Do mesaj With 'Data trebuie sa fie din luna',Alltrim(pcNl)+' '+Alltrim(pcAn) + amessagebox("Data trebuie sa fie din luna " + Alltrim(pcNl)+"/"+Alltrim(pcAn)+" !",0+48,"Atentie") + ll_verif=.T. + Else + ll_verif=.F. + Select ACTACTAN + Replace dataact With dataireg + Endif + + Case Upper(Alltrim(lcControl))='ACTACTAN.DATAACT' + If !((Month(dataact)<= gnLuna And Year(dataact)=gnAn) Or Year(dataact) 0 + this.lVerificareAnalitic = tlVerificareAnalitic + this.lNuVerificCont = tlNuVerificCont + ELSE + this.lVerificareAnalitic = .T. + this.lNuVerificCont = .F. + ENDIF + *!* 19.02.2008 ^ + ENDPROC + + PROCEDURE KeyPress + LPARAMETERS nKeyCode, nShiftAltCtrl + IF nKeyCode = 13 AND nShiftAltCtrl = 2 + this.introducere_libera = !this.introducere_libera + this.shape2.Visible = !this.shape2.Visible + ENDIF + ENDPROC + + PROCEDURE Load + Set Safety Off + ld_dataireg=Ttod(get_ora()) + If Month(ld_dataireg)<>gnLuna Or Year(ld_dataireg)<>gnAn + ld_dataireg=ultimazi() + Endif + + Select ACTACTAN + Zap + Append Blank + Replace dataireg With ld_dataireg, dataact With ld_dataireg + If !glEMama And !Isnull(gnIdMama) + Replace id_sucursala With gnIdSucursala,sucursala With Alltrim(gcFirma) + Endif + + Do nrord With "actactan" + ENDPROC + + PROCEDURE verificare + *!* LOCAL COMPL,TE + *!* TE='' + *!* COMPL=.T. + + *!* SELECT ACTACTAN + *!* ii=1 + *!* SCAN + *!* lcScd = scd + *!* lcScc = scc + *!* IF EMPTY(suma) + *!* COMPL=.F. + *!* TE=TE+','+'suma' + *!* ENDIF + *!* *!* la clasele 8 si 9 se poate sa nu fie contul corespondent completat + *!* IF EMPTY(scd) AND !INLIST(LEFT(NVL(scc,''),1),'8','9') + *!* COMPL=.F. + *!* TE=TE+','+'contul debitor' + *!* ENDIF + *!* IF EMPTY(scc) AND !INLIST(LEFT(NVL(scd,''),1),'8','9') + *!* COMPL=.F. + *!* TE=TE+','+'contul creditor' + *!* ENDIF + *!* IF EMPTY(nract) + *!* COMPL=.F. + *!* TE=TE+','+'nr.document' + *!* ENDIF + *!* IF (!EMPTY(suma_val) OR !EMPTY(CURS)) AND EMPTY(id_valuta) + *!* COMPL=.F. + *!* TE=TE+','+'nume valuta' + *!* ENDIF + *!* IF cu_tva = 1 AND EMPTY(NVL(id_jtva_coloana,0)) + *!* COMPL = .F. + *!* TE=TE+','+'explicatie TVA' + *!* ENDIF + *!* IF !COMPL + *!* *!* DO mesaj WITH 'La nota nr. '+ALLTRIM(STR(ii))+' nu ati completat campurile:',LEFT(te,60)+'...' + *!* amessagebox("La nota nr. "+ALLTRIM(STR(ii))+" nu ati completat campurile:"+SUBSTR(TE,2,60)+"...",0+48,"Atentie") + *!* RETURN COMPL + *!* ENDIF + *!* ii=ii+1 + *!* ENDSCAN + + + *!* RETURN COMPL + *!* modificare 21.02.2008 + lVerificAnalitic = .T. + lCompletezPartener = .F. + llRet = verificare_note_contabile('ACTACTAN',lVerificAnalitic,lCompletezPartener) && in oOperatii_comune + RETURN llRet + *!* modificare 21.02.2008 ^ + ENDPROC + + PROCEDURE verific_analitic + ENDPROC + + PROCEDURE Help1.Click + *!* ohelpcont=createobj('help_pltree') + *!* ohelpcont.show(1) + ENDPROC + + PROCEDURE Pageframe1.Page1.Activate + this.gridb1.Refresh + + ENDPROC + + PROCEDURE Pageframe1.Page1.Gridb1.Column10.Text1.Click + this.InteractiveChange + ENDPROC + + PROCEDURE Pageframe1.Page1.Gridb1.Column10.Text1.InteractiveChange + *tcFis, tcNume, tcId, tcTitlu + locauta = thisform.do_caut_nomenclator('Vnom_valute','nume_val','id_valuta','Numele Valutei') + SELECT actactan + REPLACE nume_val WITH locauta.nume_val, id_valuta WITH locauta.id_valuta + ENDPROC + + PROCEDURE Pageframe1.Page1.Gridb1.Column11.Combo1.InteractiveChange + Select actactan + Replace proc_tva With (jtva_coloane.cota_tva+100)/100,id_jtva_coloana With jtva_coloane.id_jtva_coloana + Thisform.pageframe1.page1.gridb1.Refresh() + ENDPROC + + PROCEDURE Pageframe1.Page1.Gridb1.Column12._CHECKBOX1.Click + This.Parent.Parent.Refresh() + + ENDPROC + + PROCEDURE Pageframe1.Page1.Gridb1.Column15.Text1.KeyPress + Lparameters nKeyCode, nShiftAltCtrl + If nKeyCode=13 Or nKeyCode=9 + Thisform.pageframe1.ActivePage=2 + Thisform.pageframe1.page2.gridb1.SetFocus + Else + DoDefault() + Endif + ENDPROC + + PROCEDURE Pageframe1.Page1.Gridb1.Column2.Text1.InteractiveChange + REPLACE id_partd WITH 0, partd WITH '' + ENDPROC + + PROCEDURE Pageframe1.Page1.Gridb1.Column2.Text1.LostFocus + lcCont = actactan.scd + If !Empty(lcCont) + llReturn = exista_cont_in_plan_conturi(lcCont) && in oOperatii_comune.prg + If !llReturn + Replace actactan.scd With '' + Endif + Endif + ENDPROC + + PROCEDURE Pageframe1.Page1.Gridb1.Column3.Text1.Click + this.LostFocus(.t.) + ENDPROC + + PROCEDURE Pageframe1.Page1.Gridb1.Column3.Text1.LostFocus + Parameters PlClick + *!* 11.03.2008 + *!* nu verific analiticul + If !thisform.lVerificareAnalitic + Return + EndIf + *!* 11.03.2008 ^ + Select actactan + lcCont = scd + lcAcont = ascd + If !Empty(lcCont) + llReturn = verific_analitic(PlClick, lcCont, lcAcont,'ascd','actactan') && in oOperatii_comune.prg + Endif + ENDPROC + + PROCEDURE Pageframe1.Page1.Gridb1.Column4.Text1.InteractiveChange + REPLACE id_partc WITH 0, partc WITH '' + ENDPROC + + PROCEDURE Pageframe1.Page1.Gridb1.Column4.Text1.LostFocus + lcCont = actactan.scc + If !Empty(lcCont) + llReturn = exista_cont_in_plan_conturi(lcCont) && in oOperatii_comune.prg + If !llReturn + Replace actactan.scc With '' + Endif + Endif + ENDPROC + + PROCEDURE Pageframe1.Page1.Gridb1.Column5.Text1.Click + this.LostFocus(.t.) + ENDPROC + + PROCEDURE Pageframe1.Page1.Gridb1.Column5.Text1.LostFocus + Parameters PlClick + *!* 11.03.2008 + *!* nu verific analiticul + If !thisform.lVerificareAnalitic + Return + EndIf + *!* 11.03.2008 ^ + Select actactan + lcCont = scc + lcAcont = ascc + If !Empty(lcCont) + llReturn = verific_analitic(PlClick, lcCont, lcAcont,'ascc','actactan') && in oOperatii_comune.prg + Endif + ENDPROC + + PROCEDURE Pageframe1.Page1.Gridb1.Column6.Text1.LostFocus + *!* PlClick = .f. + + *!* SELECT actactan + *!* lcContD = scd + *!* lcAcontD = ascd + *!* lcContC = scc + *!* lcAcontC = ascc + + *!* IF EMPTY(ascc) + *!* ll_l=THISFORM.verific_analitic(plClick, lcContC, lcAcontC,'ascc') + *!* *!* IF ll_l + *!* *!* REPLACE actactan.ASCC WITH '' + *!* *!* RETURN 0 + *!* *!* ENDIF + *!* ENDIF + + *!* IF EMPTY(ascd) + *!* ll_l=THISFORM.verific_analitic(plClick, lcContD, lcAcontD,'ascd') + *!* *!* IF ll_l + *!* *!* REPLACE actactan.ASCD WITH '' + *!* *!* RETURN 0 + *!* *!* ENDIF + *!* ENDIF + + ENDPROC + + PROCEDURE Pageframe1.Page1.Gridb1.Column8.Text1.LostFocus + IF !thisform.introducere_libera + IF !EMPTY(suma_val) OR !EMPTY(curs) + REPLACE suma WITH ROUND(suma_val*curs,gnPc) + ENDIF + ENDIF + ENDPROC + + PROCEDURE Pageframe1.Page1.Gridb1.Column9.Text1.LostFocus + IF !thisform.introducere_libera + IF !EMPTY(curs) OR !EMPTY(suma_val) + REPLACE suma WITH ROUND(curs*suma_val, gnPc) + ENDIF + ENDIF + ENDPROC + + PROCEDURE Pageframe1.Page1.Nou1.Command1.Click + Select actactan + Scatter Name oact + Append Blank + Gather Name oact Fields Except scd, ascd,scc,ascc,proc_tva,id_jtva_coloana,explicatie_tva,cu_tva,id_partd, partd, id_partc, partc, id_factd, pereched, id_factc, perechec, suma, sumaval, Curs, id_valuta, nume_val + *!* 13.03.2008 note fara predefinire * fara verificare completare cont sintetic/analitic + Replace id_set With Iif(THISform.lnuverificcont, 99998, 99999) + *!* 13.03.2008 ^ + If !glEMama And !Isnull(gnIdMama) + Replace id_sucursala With gnIdSucursala,sucursala With Alltrim(gcFirma) + Endif + Do nrord With 'actactan' + This.Parent.Parent.GRIDB1.Refresh + + + ENDPROC + + PROCEDURE Pageframe1.Page1.Sterge1.Command1.Click + SELECT actactan + DELETE + DO nrord WITH 'actactan' + THIS.PARENT.parent.GRIDB1.REFRESH + ENDPROC + + PROCEDURE Pageframe1.Page2.Activate + this.gridb1.Refresh + + ENDPROC + + PROCEDURE Pageframe1.Page2.Gridb1.Column2.Text1.Click + this.InteractiveChange + ENDPROC + + PROCEDURE Pageframe1.Page2.Gridb1.Column2.Text1.InteractiveChange + locauta = thisform.do_caut_nomenclator('Vnom_fdoc','fel_document','id_fdoc','Felul Documentului') + SELECT actactan + REPLACE fdoc WITH locauta.fel_document, id_fdoc WITH locauta.id_fdoc + RELEASE locauta + + ENDPROC + + PROCEDURE Pageframe1.Page2.Gridb1.Column3.Text1.LostFocus + *thisform.pageframe1.ActivePage=2 + thisform.pageframe1.page2.gridb1.SetFocus + ENDPROC + + PROCEDURE Pageframe1.Page2.Gridb1.Column3.Text1.Valid + *ld_dataireg=actactan.dataireg + lcControl = This.ControlSource + *!* modificare v 2.0.131 + If Thisform.pageframe1.ActivePage = 2 + If Thisform.calcul_data(lcControl) + Return 0 + Endif + Endif + *!* ll=thisform.calcul_data(lcControl) + *!* IF ll + *!* RETURN 0 + *!* ENDIF + *!* modificare v 2.0.131 ^ + ENDPROC + + PROCEDURE Pageframe1.Page2.Gridb1.Column4.Text1.LostFocus + thisform.pageframe1.page2.gridb1.SetFocus + ENDPROC + + PROCEDURE Pageframe1.Page2.Gridb1.Column4.Text1.Valid + *ld_dataact=actactan.dataact + lcControl=this.ControlSource + *!* modificare v 2.0.131 + If Thisform.pageframe1.ActivePage = 2 + If Thisform.calcul_data(lcControl) + Return 0 + Endif + Endif + *!* ll=thisform.calcul_data(lcControl) + *!* IF ll + *!* RETURN 0 + *!* ENDIF + *!* modificare v 2.0.131 ^ + + ENDPROC + + PROCEDURE Pageframe1.Page2.Gridb1.Column5.Text1.LostFocus + *thisform.pageframe1.ActivePage=2 + thisform.pageframe1.page2.gridb1.SetFocus + ENDPROC + + PROCEDURE Pageframe1.Page2.Gridb1.Column5.Text1.When + *!* M=this.ControlSource + *!* thisform.calcul_data + ENDPROC + + PROCEDURE Pageframe1.Page2.Gridb1.Column7.Text1.InteractiveChange + IF !thisform.introducere_libera + lcSel = this.Parent.Parent.RecordSource + SELECT (lcSel) + SCATTER NAME odoc + && 0 = ACTIV + && 1 = PASIV + *thisform.aleg_document_pereche(1,odoc) + DO aleg_document_pereche WITH 1,odoc,lcSel IN oOperatii_comune.prg + this.Parent.Parent.SetFocus + RELEASE odoc + ENDIF + ENDPROC + + PROCEDURE Pageframe1.Page2.Gridb1.Column8.Text1.KeyPress + LPARAMETERS nKeyCode, nShiftAltCtrl + IF nKeyCode=13 OR nKeyCode=9 + thisform.pageframe1.ActivePage=3 + thisform.pageframe1.page3.gridb1.SetFocus + ELSE + DODEFAULT() + ENDIF + + ENDPROC + + PROCEDURE Pageframe1.Page2.Gridb1.Column9.Text1.InteractiveChange + IF !thisform.introducere_libera + lcSel = this.Parent.Parent.RecordSource + SELECT (lcSel) + SCATTER NAME odoc + && 0 = ACTIV + && 1 = PASIV + *thisform.aleg_document_pereche(0,odoc) + DO aleg_document_pereche WITH 0,odoc,lcSel IN oOperatii_comune.prg + this.Parent.Parent.SetFocus + RELEASE odoc + ENDIF + ENDPROC + + PROCEDURE Pageframe1.Page3.Activate + this.gridb1.Refresh + + ENDPROC + + PROCEDURE Pageframe1.Page3.Gridb1.Column10.Text1.Click + this.InteractiveChange + ENDPROC + + PROCEDURE Pageframe1.Page3.Gridb1.Column10.Text1.InteractiveChange + locauta = thisform.do_caut_nomenclator('Vnom_sectii','sectie','id_sectie','Sectia') + SELECT actactan + REPLACE id_sectie WITH locauta.id_sectie, sectie WITH locauta.sectie + RELEASE locauta + + ENDPROC + + PROCEDURE Pageframe1.Page3.Gridb1.Column17.Text1.Click + this.InteractiveChange + ENDPROC + + PROCEDURE Pageframe1.Page3.Gridb1.Column17.Text1.InteractiveChange + Local lcCont, lnIdPartd + Local loCauta + Select actactan + Private pcCont + pcCont = Alltrim(Nvl(scd,'')) + lnIdPartd = id_partd + If Empty(pcCont) + Return + Endif + Local lnrezultat,lnsucces + lnrezultat=0 + lnsucces=0 + lcSql="select count(*) from config_cont_ireg where cont = ?pcCont" + lnsucces=goExecutor.oSelect2Value(lcSql,@lnrezultat) + + If lnsucces=1 + If lnrezultat>0 + loCauta = CautPartenerContabilitate(GetHash([cTitlu=>Alegeti partenerul ] + pcCont + [??lAdaugCorespondente=>1??cCont=>] + pcCont)) + Select actactan + Replace id_partd With loCauta.id_part, partd With loCauta.nume + IF lnIdPartd <> loCauta.id_part + Select actactan + REPLACE pereched WITH 0, id_factd WITH 0 + ENDIF + Else + AMESSAGEBOX("Contul " + pcCont + " nu este configurat cu parteneri", 0 + 16 ,"Eroare") + Endif + Else + AMESSAGEBOX(goExecutor.oPrelucrareEroare, 0 + 16 ,"Eroare") + Endif + + ENDPROC + + PROCEDURE Pageframe1.Page3.Gridb1.Column18.Text1.Click + this.InteractiveChange + ENDPROC + + PROCEDURE Pageframe1.Page3.Gridb1.Column18.Text1.InteractiveChange + Local lcCont, lnIdPartc + Local loCauta + Select actactan + Private pcCont + pcCont = Alltrim(Nvl(scc,'')) + lnIdPartc = id_partc + + If Empty(pcCont) + Return + Endif + Local lnrezultat,lnsucces + lnrezultat=0 + lnsucces=0 + lcSql="select count(*) from config_cont_ireg where cont = ?pcCont" + lnsucces=goExecutor.oSelect2Value(lcSql,@lnrezultat) + + If lnsucces=1 + If lnrezultat>0 + loCauta = CautPartenerContabilitate(GetHash([cTitlu=>Alegeti partenerul ] + pcCont + [??lAdaugCorespondente=>1??cCont=>] + pcCont)) + Select actactan + Replace id_partc With loCauta.id_part, partc With loCauta.nume + IF lnIdPartc <> loCauta.id_part + Select actactan + REPLACE perechec WITH 0, id_factc WITH 0 + ENDIF + Else + AMESSAGEBOX("Contul " + pcCont + " nu este configurat cu parteneri", 0 + 16 ,"Eroare") + Endif + Else + AMESSAGEBOX(goExecutor.oPrelucrareEroare, 0 + 16 ,"Eroare") + Endif + + ENDPROC + + PROCEDURE Pageframe1.Page3.Gridb1.Column7.Text1.Click + this.InteractiveChange + ENDPROC + + PROCEDURE Pageframe1.Page3.Gridb1.Column7.Text1.InteractiveChange + locauta = thisform.do_caut_nomenclator('Vnom_lucrari','nrord','id_lucrare','Lucrarea / Contractul') + SELECT actactan + REPLACE nrord WITH locauta.nrord, id_lucrare WITH locauta.id_lucrare + RELEASE locauta + + ENDPROC + + PROCEDURE Pageframe1.Page3.Gridb1.Column8.Text1.Click + this.InteractiveChange + ENDPROC + + PROCEDURE Pageframe1.Page3.Gridb1.Column8.Text1.InteractiveChange + *!* locauta = thisform.do_caut_nomenclator('Vnom_responsabili','nume','id_responsabil','Nume responsabil') + loCauta = CautPartenerContabilitate(GetHash([cTitlu=>Responsabili??cTipuriParteneri=>]+ALLTRIM(STR(gnIdTipResponsabili))+[??lAdaugCorespondente=>1])) + SELECT actactan + REPLACE nresp WITH locauta.denumire, id_responsabil WITH locauta.id_part + RELEASE locauta + + ENDPROC + + PROCEDURE Pageframe1.Page3.Gridb1.Column9.Text1.Click + this.InteractiveChange + ENDPROC + + PROCEDURE Pageframe1.Page3.Gridb1.Column9.Text1.InteractiveChange + locauta = thisform.do_caut_nomenclator('Vnom_venchel','explicatie','id_venchelt','Cheltuiala / Venit') + SELECT actactan + REPLACE dst_chlt WITH locauta.explicatie, id_venchelt WITH locauta.id_venchelt + RELEASE locauta + + ENDPROC + + PROCEDURE Pageframe1.Page3.Gridb1.Init + *!* this.column1.header1.BackColor=this.column1.dynamicBackColor + + + *!* FOR i=1 TO this.ColumnCount + *!* t='this.column'+ALLTRIM(STR(i))+'.header1.backcolor=this.column'+ALLTRIM(STR(i))+'.backcolor' + *!* &t + *!* ENDFOR + *!* this.Refresh + ENDPROC + + PROCEDURE Terminat1.Command1.Click + *!* modificare 21.02.2008 + *!* e_complet=Thisform.verificare() + *!* If e_complet + *!* modificare 21.02.2008 ^ + buton=1 + Select actactan + *!* modificare 21.02.2008 + *!* DELETE for suma=0 + *!* modificare 21.02.2008 ^ + Replace proc_tva With 0 For cu_tva = 0 + + GO top + *!* 19.02.2008 + *!* lVerificAnalitic = .T. + lVerificAnalitic = thisform.lVerificareAnalitic + *!* 11.03.2008 + Local lNuVerificCont + lNuVerificCont = thisform.lNuverificcont + *!* 19.02.2008 + lCompletareParteneri = .F. + *!* 14.03.2008 - nu mai fac nici o verificare pentru notele 99998 + If !lNuVerificCont + Do Form verificare With lVerificAnalitic, lCompletareParteneri, .F., lNuVerificCont + Else + buton = 1 + EndIf + *!* 14.03.2008 ^ + If buton = 1 + Select actactan + Replace all id_set With Iif(THISform.lnuverificcont, 99998, 99999) + Replace All AN With gnAn,luna With gnLuna, ID_UTIL With gnidutil + Replace id_jtva_coloana With Null For cu_tva = 0 + lnSucces = oscrie_in_fisiere(0) + If lnSucces > 0 + Thisform.Release + Endif + Else + *!* pun la loc proc_tva ptr. cazul in care rebifeaza cu_tva si nu mai alege din lista explicatia_tva + Select jtva_coloane + lnNrRecno = Recno() + Select actactan + Scan For cu_tva = 0 + If !Empty(Nvl(id_jtva_coloana,0)) + lnIdJtva = id_jtva_coloana + Select jtva_coloane + Locate For id_jtva_coloana = lnIdJtva + If Found() + lnProcTva = (cota_tva + 100)/100 + Else + lnProcTva = 0 + Endif + Select actactan + Replace proc_tva With lnProcTva + Endif + Endscan + Select jtva_coloane + Go lnNrRecno + Select actactan + Go Top + Endif + *!* modificare 21.02.2008 + *!* Endif + *!* modificare 21.02.2008 ^ + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_plati_impozite 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="Grid1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column10._combobox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column11.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column11.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column11._combobox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" /> + + * + *p: ntotal + *p: oact + * + + * + BorderStyle = 1 + DoCreate = .T. + Height = 500 + Name = "frm_plati_impozite" + ntotal = 0 + oact = + Width = 700 + WindowType = 1 + _SHAPE1.Anchor = 10 + _SHAPE1.Height = 29 + _SHAPE1.Left = 0 + _SHAPE1.Name = "_SHAPE1" + _SHAPE1.Top = 0 + _SHAPE1.Width = 701 + _SHAPE2.Anchor = 8 + _SHAPE2.Height = 30 + _SHAPE2.Left = 629 + _SHAPE2.Name = "_SHAPE2" + _SHAPE2.Top = -1 + _SHAPE2.Width = 71 + LB_TITLU_ALB_B121.Caption = "Plati impozite" + LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121" + BUT_TERMIN1.Anchor = 8 + BUT_TERMIN1.Left = 667 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 1 + GRIDSORT1.Name = "GRIDSORT1" + * + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Anchor = 8, ; + Left = 636, ; + Name = "But_renunt1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ; + Anchor = 12, ; + Left = 399, ; + Name = "Clb_tx_simplu1", ; + Top = 466, ; + TEXT_SIMPLU1.ControlSource = "thisform.ntotal", ; + TEXT_SIMPLU1.InputMask = (get_mask(14,gnPA)), ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + LB_SIMPLU1.Caption = "Total", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Grid1' AS grid WITH ; + Anchor = 15, ; + ColumnCount = 11, ; + FontSize = 10, ; + Height = 426, ; + Left = 7, ; + Name = "Grid1", ; + Panel = 1, ; + ReadOnly = .F., ; + RecordSource = "plimp", ; + RowHeight = 19, ; + Top = 37, ; + Width = 683, ; + Column1.BackColor = 244,250,255, ; + Column1.ControlSource = "nract", ; + Column1.FontName = "Arial", ; + Column1.FontSize = 10, ; + Column1.Name = "Column1", ; + Column1.ReadOnly = .F., ; + Column1.Width = 69, ; + Column2.ControlSource = "explicatia", ; + Column2.FontName = "Arial", ; + Column2.FontSize = 10, ; + Column2.Name = "Column2", ; + Column2.ReadOnly = .F., ; + Column2.Width = 198, ; + Column3.ControlSource = "scd", ; + Column3.FontName = "Arial", ; + Column3.FontSize = 10, ; + Column3.Name = "Column3", ; + Column3.ReadOnly = .F., ; + Column3.Width = 58, ; + Column4.ControlSource = "ascd", ; + Column4.FontName = "Arial", ; + Column4.FontSize = 10, ; + Column4.Name = "Column4", ; + Column4.ReadOnly = .F., ; + Column4.Width = 47, ; + Column5.ControlSource = "scc", ; + Column5.FontName = "Arial", ; + Column5.FontSize = 10, ; + Column5.Name = "Column5", ; + Column5.ReadOnly = .F., ; + Column5.Width = 62, ; + Column6.ControlSource = "ascc", ; + Column6.FontName = "Arial", ; + Column6.FontSize = 10, ; + Column6.Name = "Column6", ; + Column6.ReadOnly = .F., ; + Column6.Width = 47, ; + Column7.BackColor = 244,250,255, ; + Column7.ControlSource = "suma", ; + Column7.FontName = "Arial", ; + Column7.FontSize = 10, ; + Column7.InputMask = (get_mask(14,gnPA)), ; + Column7.Name = "Column7", ; + Column7.ReadOnly = .F., ; + Column7.Width = 120, ; + Column8.ControlSource = "partd", ; + Column8.FontName = "Arial", ; + Column8.FontSize = 10, ; + Column8.Name = "Column8", ; + Column8.ReadOnly = .F., ; + Column8.Width = 87, ; + Column9.ControlSource = "partc", ; + Column9.FontName = "Arial", ; + Column9.FontSize = 10, ; + Column9.Name = "Column9", ; + Column9.ReadOnly = .F., ; + Column9.Width = 91, ; + Column10.BackColor = 244,250,255, ; + Column10.Bound = .F., ; + Column10.ControlSource = "Iif(Seek(plimp.taxcode,'saft_taxtable','taxcode'),saft_taxtable.taxname,'')", ; + Column10.CurrentControl = "_combobox1", ; + Column10.FontSize = 10, ; + Column10.Name = "Column10", ; + Column10.ReadOnly = .T., ; + Column10.Sparse = .F., ; + Column10.Width = 141, ; + Column11.BackColor = 244,250,255, ; + Column11.Bound = .F., ; + Column11.ControlSource = "Iif(Seek(plimp.paymentcode,'saft_mecanisme_plati','mcode'),saft_mecanisme_plati.paymentname,'')", ; + Column11.CurrentControl = "_combobox1", ; + Column11.FontSize = 10, ; + Column11.Name = "Column11", ; + Column11.ReadOnly = .T., ; + Column11.Sparse = .F., ; + Column11.Width = 89 + *< END OBJECT: BaseClass="grid" /> + + ADD OBJECT 'Grid1.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr.act", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Grid1.Column1.Text1' AS textbox WITH ; + BackColor = 244,250,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Grid1.Column10._combobox1' AS _combobox WITH ; + BackColor = 244,250,255, ; + BorderStyle = 0, ; + BoundColumn = 3, ; + BoundTo = .T., ; + ColumnCount = 2, ; + ColumnLines = .F., ; + ColumnWidths = "450,50", ; + ControlSource = "plimp.taxcode", ; + Left = 66, ; + Name = "_combobox1", ; + ReadOnly = .F., ; + RowSource = "select taxname, procent_taxa, taxcode from saft_taxtable where wht = 1 order by tva, tva_livrari, tva_achizitii, wht, taxcode into cursor crsTaxTableX", ; + RowSourceType = 3, ; + Top = 82 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" /> + + ADD OBJECT 'Grid1.Column10.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxa SAFT", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Grid1.Column10.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Grid1.Column11._combobox1' AS _combobox WITH ; + BackColor = 244,250,255, ; + BorderStyle = 0, ; + BoundColumn = 3, ; + BoundTo = .T., ; + ColumnCount = 2, ; + ColumnLines = .F., ; + ColumnWidths = "300,150", ; + ControlSource = "plimp.paymentcode", ; + Left = 68, ; + Name = "_combobox1", ; + ReadOnly = .F., ; + RowSource = "select paymentname, methodname, mechanismcode from saft_mecanisme_plati where afisat = 1 order by ordine into cursor crsPaymentX", ; + RowSourceType = 3, ; + Top = 82 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" /> + + ADD OBJECT 'Grid1.Column11.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Plata SAFT", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Grid1.Column11.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Grid1.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatia", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Grid1.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Grid1.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont Deb", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Grid1.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Grid1.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Analitic", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Grid1.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Grid1.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont Cred", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Grid1.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Grid1.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Analitic", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Grid1.Column6.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Grid1.Column7.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Suma", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Grid1.Column7.Text1' AS textbox WITH ; + BackColor = 244,250,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Grid1.Column8.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Partener Debit", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Grid1.Column8.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Grid1.Column9.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Partener Credit", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Grid1.Column9.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridextra1' AS gridextra WITH ; + Left = 265, ; + Name = "Gridextra1", ; + Top = 457 + *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> + + PROCEDURE do_executa + LOCAL i + + SELECT plimp + i = recno() + SELECT plimp + sum suma to tsuma + GOTO i + + this.ntotal = tsuma + this.clb_tx_simplu1.Refresh + ENDPROC + + PROCEDURE inainte_de_do_termin + PRIVATE pobj + pobj = this.oact + + SELECT actactan + ZAP + + * SAFT + IF !m.gl406 + UPDATE plimp SET taxcode = null, paymentcode = null + ENDIF + + SELECT plimp + SCAN FOR suma <> 0 + SCATTER NAME oplimp + SELECT actactan + APPEND BLANK + GATHER NAME pobj + GATHER NAME oplimp + SELECT plimp + ENDSCAN + + SELECT actactan + LOCATE + lVerificAnalitic = .t. + lCompletareParteneri = .f. + DO FORM verificare WITH lVerificAnalitic, lCompletareParteneri + IF gnButon <> 1 + RETURN .f. + ENDIF + + Select actactan + + RETURN .t. + + + + + ENDPROC + + PROCEDURE Show + LPARAMETERS nStyle + DODEFAULT(nStyle) + + this.gridextra1.setup() + this.grid1.SetFocus + + *SAFT + this.grid1.column10.Visible = m.gl406 + this.grid1.column11.Visible = m.gl406 + + this.Height = INT(_screen.Height*0.7) + this.Width = INT(_screen.Width*0.7) + this.AutoCenter= .T. + ENDPROC + + PROCEDURE Grid1.Column3.Text1.InteractiveChange + REPLACE id_partd WITH 0, partd WITH '' + ENDPROC + + PROCEDURE Grid1.Column3.Text1.LostFocus + lcCont = scd + llReturn = exista_cont_in_plan_conturi(lcCont) && in oOperatii_comune.prg + IF !llReturn + SELECT plimp + REPLACE scd WITH '' + ENDIF + ENDPROC + + PROCEDURE Grid1.Column4.Text1.Click + this.LostFocus(.t.) + ENDPROC + + PROCEDURE Grid1.Column4.Text1.LostFocus + PARAMETERS PlClick + SELECT plimp + lcCont = scd + lcAcont = ascd + llReturn = verific_analitic(plClick, lcCont, lcAcont,'ascd','plimp') && in oOperatii_comune.prg + ENDPROC + + PROCEDURE Grid1.Column5.Text1.InteractiveChange + REPLACE id_partc WITH 0, partc WITH '' + ENDPROC + + PROCEDURE Grid1.Column5.Text1.LostFocus + lcCont = scc + llReturn = exista_cont_in_plan_conturi(lcCont) && in oOperatii_comune.prg + IF !llReturn + SELECT plimp + REPLACE scc WITH '' + ENDIF + ENDPROC + + PROCEDURE Grid1.Column6.Text1.Click + this.LostFocus(.t.) + ENDPROC + + PROCEDURE Grid1.Column6.Text1.LostFocus + PARAMETERS PlClick + SELECT plimp + lcCont = scc + lcAcont = ascc + llReturn = verific_analitic(plClick, lcCont, lcAcont,'ascc','plimp') && in oOperatii_comune.prg + ENDPROC + + PROCEDURE Grid1.Column7.Text1.Valid + thisform.do_executa + ENDPROC + + PROCEDURE Grid1.Column8.Text1.DblClick + this.InteractiveChange + ENDPROC + + PROCEDURE Grid1.Column8.Text1.InteractiveChange + SELECT plimp + lcCont = ALLTRIM(scd) + + IF EMPTY(lcCont) + RETURN + ENDIF + + lnId_part = 0 + lcNume = '' + + lcSql=[select count(*) as valoare FROM ] + gcS + [.vcoresp_tip_cont where to_number(cont) = ] + lcCont + lcCursor = 'c_part' + lnSucces = goExecutor.oExecute(lcSql,lcCursor) + + SELECT c_part + IF valoare > 0 + lcTitlu = 'Nume partener ' + lcCont + locauta = caut_parteneri(lcCont, lcTitlu) + + If !Empty(locauta.denumire) AND !EMPTY(locauta.id_part) + lnid_part=locauta.id_part + lcnume=Alltrim(locauta.denumire) + ENDIF + + ENDIF + + SELECT plimp + REPLACE id_partd WITH lnid_part, partd WITH lcNume + + IF USED('c_part') + USE IN c_part + ENDIF + ENDPROC + + PROCEDURE Grid1.Column9.Text1.DblClick + this.InteractiveChange + ENDPROC + + PROCEDURE Grid1.Column9.Text1.InteractiveChange + SELECT plimp + lcCont = ALLTRIM(scc) + + IF EMPTY(lcCont) + RETURN + ENDIF + + lnId_part = 0 + lcNume = '' + + lcSql=[select count(*) as valoare FROM ] + gcS + [.vcoresp_tip_cont where to_number(cont) = ] + lcCont + lcCursor = 'c_part' + lnSucces = goExecutor.oExecute(lcSql,lcCursor) + + SELECT c_part + IF valoare > 0 + lcTitlu = 'Nume partener ' + lcCont + locauta = caut_parteneri(lcCont, lcTitlu) + + If !Empty(locauta.denumire) AND !EMPTY(locauta.id_part) + lnid_part=locauta.id_part + lcnume=Alltrim(locauta.denumire) + ENDIF + + ENDIF + + SELECT plimp + REPLACE id_partc WITH lnid_part, partc WITH lcNume + + IF USED('c_part') + USE IN c_part + ENDIF + ENDPROC + +ENDDEFINE diff --git a/Clase/orapoarte_contabilitate.vc2 b/Clase/orapoarte_contabilitate.vc2 new file mode 100644 index 0000000..e696169 --- /dev/null +++ b/Clase/orapoarte_contabilitate.vc2 @@ -0,0 +1,513 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="orapoarte_contabilitate.vcx" CPID="1250" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS frm_date_rap_balpart_temp 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_excel1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="ed_explicatii_filtru" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_reset2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_start_criterii1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_label1" UniqueID="" Timestamp="" /> + + * + BorderStyle = 1 + DoCreate = .T. + Height = 302 + Name = "frm_date_rap_balpart_temp" + Width = 562 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 564 + _shape2.Height = 29 + _shape2.Left = 439 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 125 + Lb_titlu_alb_b121.Caption = "RAPORT BAZAT PE BALANTE PARTENERI" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + BUT_TERMIN1.Left = 533 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 1 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT '_label1' AS _label WITH ; + Caption = "Alegeti criteriile de cautare (butonul binoclu) si apasati pe butonul Export XLS", ; + Left = 15, ; + Name = "_label1", ; + Top = 39 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT 'But_excel1' AS but_excel WITH ; + Anchor = 9, ; + Left = 503, ; + Name = "But_excel1", ; + TabIndex = 6, ; + Top = 1, ; + ZOrderSet = 6 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_reset2' AS but_reset WITH ; + Anchor = 9, ; + caction = do_reset_filtru, ; + Left = 443, ; + Name = "But_reset2", ; + TabIndex = 9, ; + ToolTipText = "Reseteaza filtru", ; + Top = 1, ; + ZOrderSet = 14 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_start_criterii1' AS but_start_criterii WITH ; + Anchor = 9, ; + lcautare = .F., ; + Left = 473, ; + Name = "But_start_criterii1", ; + TabIndex = 13, ; + Top = 1, ; + ZOrderSet = 15 + *< END OBJECT: ClassLib="..\comun\clase\ocriterii.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'ed_explicatii_filtru' AS _editbox WITH ; + Anchor = 13, ; + ControlSource = "Thisform.filtru_pretty_ro", ; + Height = 228, ; + Left = 12, ; + Name = "ed_explicatii_filtru", ; + ReadOnly = .T., ; + TabIndex = 12, ; + Top = 60, ; + Width = 540, ; + ZOrderSet = 12 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="editbox" /> + + PROCEDURE do_excel + Local lcFileName,lcSql,lcCursor, lcCursorExport, lnSucces, lcFiltruPerioada, lcCondSoldInitial + lcFileName = "" + lcCursor = [crsRaport] + lcCursorExport = [crsExport] + + If Used(lcCursor) + Use In (lcCursor) + Endif + + lcFiltru = [AND ] + Thisform.filtru_pretty + [ AND] + lnPozitie = 1 + lcFiltruPerioada = [] + Do While .T. + lcElement = Strextract(lcFiltru,[AND],[AND],lnPozitie) + If Empty(lcElement) + Exit + Endif + If Upper(Substr(Alltrim(lcElement),1,10)) = [AN*12+LUNA] + lcFiltruPerioada = lcFiltruPerioada + [ AND ] + lcElement + Endif + lnPozitie = lnPozitie + 1 + ENDDO + IF EMPTY(m.lcFiltruPerioada) + AMESSAGEBOX('Completati perioada de raportare!',0+48,_screen.Caption) + RETURN + ENDIF + lcFiltruPerioada = Substr(lcFiltruPerioada,5) + + lcSql = [select pivot_gen.build_sql_complex2('VRAPOARTE_BALPART',] + ; + ['GROUPING_ID(CONT,ACONT,DENUMIRE,COD_FISCAL) AS GID,CONT,ACONT,DENUMIRE,COD_FISCAL',] + ; + ['SUM(debit) as Rulaj_debitor,SUM(credit) as Rulaj_creditor,SUM(soldluna) as Diferenta_rulaje',] + ; + ['LUNAAN',] + ; + ['ANLUNA',] + ; + ['soldinit',] + ; + ['Sold_initial',] + ; + ['debit|credit|soldluna|soldfinal|',] + ; + ['Rulaj_debitor|Rulaj_creditor|Diferenta_rulaje|Sold_final',] + ; + [null,] + ; + [null,] + ; + ['] + lcFiltruPerioada + [',] + ; + ['SUM',] + ; + ['0',] + ; + ['1=2',] + ; + [0,] + ; + ['ROLLUP(CONT,ACONT,(DENUMIRE,COD_FISCAL)) ',] + ; + ['CONT,ACONT,GID,CONT,ACONT,DENUMIRE,COD_FISCAL',] + ; + ['|') as sir_sql from dual] + lnSucces = goExecutor.oExecute(lcSql,lcCursor) + If lnSucces < 0 + amessagebox(goExecutor.cEroare,16,"Atentie") + Return + Else + If Reccount(lcCursor) > 0 + Select (lcCursor) + lcSql = Alltrim(sir_sql) + Endif + Use In (lcCursor) + Endif + + lcSql = Strtran(lcSql,[WHERE 1=2],Iif(!Empty(Thisform.filtru_pretty),[WHERE ] + Thisform.filtru_pretty + gcCondSucursala,; + [] + Substr(gcCondSucursala,5))) + lnSucces = goExecutor.oExecute(lcSql,lcCursor) + If lnSucces < 0 + amessagebox(goExecutor.oPrelucrareEroare(),16,"Eroare") + Return + Endif + + If Used(lcCursor) And Reccount(lcCursor)<>0 + If Used(lcCursorExport) + Use In (lcCursorExport) + Endif + Dimension aColoane[1] + lcSelect = [SELECT Iif(gid<>0,'TOTAL',Space(5)) As explicatie] + Afields(aColoane,lcCursor) + lcColoaneFiltru = [] + lnOptiune = aMessagebox("Doriti ca raportul sa includa si partenerii cu sold initial 0 si fara rulaje in perioada?",4+32,"Confirmare") + For i = 1 To Alen(aColoane,1) + If Upper(Alltrim(aColoane[i,1])) <> 'GID' + lcNumeColoana = Upper(Alltrim(aColoane[i,1])) + lcSelect = lcSelect + [,] + Iif(aColoane[i,2] = 'T', [TTOD(] + lcNumeColoana + [) as ] + ; + lcNumeColoana, lcNumeColoana) + If Between(i,6,9) And lnOptiune = 7 + lcColoaneFiltru = lcColoaneFiltru + [ or ] + lcNumeColoana + [ <> 0] + Endif + Endif + Endfor + If !Empty(lcColoaneFiltru) + lcSelect = lcSelect + [ From ] + lcCursor + [ where gid=0 and (] + Substr(lcColoaneFiltru,4) + [) Into Cursor ] + lcCursorExport + Else + lcSelect = lcSelect + [ From ] + lcCursor + [ Into Cursor ] + lcCursorExport + Endif + &lcSelect + Endif + If Used(lcCursor) + Use In (lcCursor) + Endif + + If Used(lcCursorExport) + lcFileName = strtranx([Raport bazat pe balante parteneri], "([^a-zA-Z0-9])", [_] ) + export_xls(lcCursorExport, lcFileName) + Use In (lcCursorExport) + Else + amessagebox("Nu exista rezultate pentru export in Excel!",0+48,"Atentie") + Endif + ENDPROC + + PROCEDURE But_start_criterii1.initform + Lparameters tlShowForm + DoDefault(tlShowForm) + Thisform.ed_explicatii_filtru.Refresh() + This.SetFocus() + ENDPROC + + PROCEDURE But_start_criterii1.loadcriterii + Parameters tacriterii + External Array tacriterii + #Define crlf Chr(13)+Chr(10) + lcStringCriterii="Denumire\denumire\T\ID_PART\nom_parteneri" + crlf + ; + "Cont\cont\C\none\" + crlf + ; + "Analitic\acont\C\none\" + crlf + ; + "Perioada\an*12+luna\D1\none\" + DoDefault() + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_date_rapoarte_balpart AS frm_date_rapoarte_gen OF "..\comun\clase\orapoarte.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_debit" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_soldinit" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_soldluna" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_cod_fiscal" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_denumire" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_credit" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_acont" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_cont" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_anluna" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_soldfinal" UniqueID="" Timestamp="" /> + + * + BorderStyle = 1 + ctitluraportinitial = Rapoarte bazate pe balante parteneri + DoCreate = .T. + Height = 572 + Name = "frm_date_rapoarte_balpart" + nidformularraport = 3 + Width = 696 + _memberdata = + + + + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 696 + _shape1.ZOrderSet = 2 + _shape2.Height = 29 + _shape2.Left = 604 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 90 + _shape2.ZOrderSet = 3 + Lb_titlu_alb_b121.FontBold = .T. + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 14 + Lb_titlu_alb_b121.ZOrderSet = 4 + GRIDSORT1.Left = 480 + GRIDSORT1.Name = "GRIDSORT1" + GRIDSORT1.Top = 36 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 9 + BUT_TERMIN1.ZOrderSet = 5 + But_listare1.Name = "But_listare1" + But_listare1.TabIndex = 8 + But_excel1.Name = "But_excel1" + But_excel1.TabIndex = 7 + But_excel1.Visible = .T. + But_help1.Name = "But_help1" + But_help1.TabIndex = 2 + But_cautare1.Name = "But_cautare1" + But_cautare1.TabIndex = 4 + But_nou1.Name = "But_nou1" + But_nou1.TabIndex = 3 + But_sterge1.Name = "But_sterge1" + But_sterge1.TabIndex = 6 + Ct_selectie1.cnumetabela = vrapoarte_balpart + Ct_selectie1.Ct_grupare1.Height = 187 + Ct_selectie1.Ct_grupare1.lblAtentie.Name = "lblAtentie" + Ct_selectie1.Ct_grupare1.lb_grupare.Name = "lb_grupare" + Ct_selectie1.Ct_grupare1.Left = 6 + Ct_selectie1.Ct_grupare1.Name = "Ct_grupare1" + Ct_selectie1.Ct_grupare1.TabIndex = 9 + Ct_selectie1.Ct_grupare1.Top = 331 + Ct_selectie1.Ct_grupare1.Width = 360 + Ct_selectie1.Ct_grupare1.ZOrderSet = 11 + Ct_selectie1.Ct_grupare1._scrollcontainer1.But_jos1.Name = "But_jos1" + Ct_selectie1.Ct_grupare1._scrollcontainer1.But_sus1.Name = "But_sus1" + Ct_selectie1.Ct_grupare1._scrollcontainer1.Name = "_scrollcontainer1" + Ct_selectie1.Ct_ordonare1.Height = 176 + Ct_selectie1.Ct_ordonare1.lb_ordonare.Name = "lb_ordonare" + Ct_selectie1.Ct_ordonare1.Left = 6 + Ct_selectie1.Ct_ordonare1.Name = "Ct_ordonare1" + Ct_selectie1.Ct_ordonare1.TabIndex = 10 + Ct_selectie1.Ct_ordonare1.Top = 156 + Ct_selectie1.Ct_ordonare1.Width = 360 + Ct_selectie1.Ct_ordonare1.ZOrderSet = 12 + Ct_selectie1.Ct_ordonare1._scrollcontainer1.But_jos1.Name = "But_jos1" + Ct_selectie1.Ct_ordonare1._scrollcontainer1.But_sus1.Name = "But_sus1" + Ct_selectie1.Ct_ordonare1._scrollcontainer1.Name = "_scrollcontainer1" + Ct_selectie1.Height = 527 + Ct_selectie1.lb_coloane.Name = "lb_coloane" + Ct_selectie1.lb_coloane.TabIndex = 11 + Ct_selectie1.lb_coloane.ZOrderSet = 13 + Ct_selectie1.Left = 12 + Ct_selectie1.ltitlucoloanesuma = .T. + Ct_selectie1.Name = "Ct_selectie1" + Ct_selectie1.TabIndex = 1 + Ct_selectie1.Top = 36 + Ct_selectie1.Width = 372 + ed_explicatii_filtru.Height = 500 + ed_explicatii_filtru.Left = 396 + ed_explicatii_filtru.Name = "ed_explicatii_filtru" + ed_explicatii_filtru.TabIndex = 11 + ed_explicatii_filtru.Top = 63 + ed_explicatii_filtru.Width = 288 + But_salveaza1.lvizibil = .F. + But_salveaza1.Name = "But_salveaza1" + But_salveaza1.TabIndex = 5 + But_reset2.Name = "But_reset2" + But_reset2.TabIndex = 10 + LB_RAPORT_PREDEFINIT.Name = "LB_RAPORT_PREDEFINIT" + LB_RAPORT_PREDEFINIT.TabIndex = 13 + But_start_criterii1.Name = "But_start_criterii1" + But_start_criterii1.TabIndex = 12 + * + + ADD OBJECT 'Ct_selectie1.Ct_selectie_acont' AS ct_selectie_camp WITH ; + ccamp = acont, ; + cnumecamp = Analitic, ; + Left = 2, ; + Name = "Ct_selectie_acont", ; + nid_container = 4, ; + TabIndex = 4, ; + Top = 56, ; + ZOrderSet = 9, ; + ck_camp.Alignment = 0, ; + ck_camp.Caption = "Analitic", ; + ck_camp.Name = "ck_camp" + *< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_selectie1.Ct_selectie_anluna' AS ct_selectie_camp WITH ; + ccamp = anluna, ; + cidcamp = lunaan, ; + cnumecamp = Luna, ; + Height = 19, ; + Left = 2, ; + Name = "Ct_selectie_anluna", ; + nid_container = 5, ; + TabIndex = 5, ; + Top = 71, ; + Width = 140, ; + ZOrderSet = 20, ; + ck_camp.Alignment = 0, ; + ck_camp.Caption = "Luna", ; + ck_camp.Name = "ck_camp" + *< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_selectie1.Ct_selectie_cod_fiscal' AS ct_selectie_camp WITH ; + ccamp = cod_fiscal, ; + cnumecamp = Cod fiscal, ; + Left = 2, ; + Name = "Ct_selectie_cod_fiscal", ; + nid_container = 2, ; + TabIndex = 2, ; + Top = 28, ; + ZOrderSet = 5, ; + ck_camp.Alignment = 0, ; + ck_camp.Caption = "Cod fiscal", ; + ck_camp.Name = "ck_camp" + *< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_selectie1.Ct_selectie_cont' AS ct_selectie_camp WITH ; + ccamp = cont, ; + cnumecamp = Cont, ; + Height = 19, ; + Left = 2, ; + Name = "Ct_selectie_cont", ; + nid_container = 3, ; + TabIndex = 3, ; + Top = 42, ; + Width = 131, ; + ZOrderSet = 10, ; + ck_camp.Alignment = 0, ; + ck_camp.AutoSize = .T., ; + ck_camp.Caption = "Cont", ; + ck_camp.Name = "ck_camp" + *< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_selectie1.Ct_selectie_credit' AS ct_selectie_camp WITH ; + ccamp = credit, ; + cnumecamp = Rulaj creditor, ; + Height = 19, ; + Left = 101, ; + lgrupare = .F., ; + lordine = .F., ; + lsuma = .T., ; + Name = "Ct_selectie_credit", ; + nid_container = 8, ; + TabIndex = 7, ; + Top = 42, ; + Width = 140, ; + ZOrderSet = 30, ; + ck_camp.Alignment = 0, ; + ck_camp.Caption = "Rulaj creditor", ; + ck_camp.Name = "ck_camp" + *< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_selectie1.Ct_selectie_debit' AS ct_selectie_camp WITH ; + ccamp = debit, ; + cnumecamp = Rulaj debitor, ; + Height = 19, ; + Left = 101, ; + lgrupare = .F., ; + lordine = .F., ; + lsuma = .T., ; + Name = "Ct_selectie_debit", ; + nid_container = 7, ; + TabIndex = 6, ; + Top = 28, ; + Width = 140, ; + ZOrderSet = 0, ; + ck_camp.Alignment = 0, ; + ck_camp.Caption = "Rulaj debitor", ; + ck_camp.Name = "ck_camp" + *< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_selectie1.Ct_selectie_denumire' AS ct_selectie_camp WITH ; + ccamp = denumire, ; + cnumecamp = Denumire, ; + Left = 2, ; + Name = "Ct_selectie_denumire", ; + nid_container = 1, ; + TabIndex = 1, ; + Top = 14, ; + ZOrderSet = 6, ; + ck_camp.Alignment = 0, ; + ck_camp.Caption = "Denumire", ; + ck_camp.Name = "ck_camp" + *< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_selectie1.Ct_selectie_soldfinal' AS ct_selectie_camp WITH ; + ccamp = soldfinal, ; + cnumecamp = Sold final, ; + Height = 19, ; + Left = 101, ; + lgrupare = .F., ; + lordine = .F., ; + lsuma = .T., ; + Name = "Ct_selectie_soldfinal", ; + nid_container = 10, ; + TabIndex = 8, ; + Top = 71, ; + Width = 140, ; + ZOrderSet = 29, ; + ck_camp.Alignment = 0, ; + ck_camp.Caption = "Sold final", ; + ck_camp.Name = "ck_camp" + *< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_selectie1.Ct_selectie_soldinit' AS ct_selectie_camp WITH ; + ccamp = soldinit, ; + cnumecamp = Sold initial, ; + Height = 19, ; + Left = 101, ; + lgrupare = .F., ; + lordine = .F., ; + lsuma = .T., ; + Name = "Ct_selectie_soldinit", ; + nid_container = 6, ; + TabIndex = 5, ; + Top = 14, ; + Width = 140, ; + ZOrderSet = 20, ; + ck_camp.Alignment = 0, ; + ck_camp.Caption = "Sold initial", ; + ck_camp.Name = "ck_camp" + *< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_selectie1.Ct_selectie_soldluna' AS ct_selectie_camp WITH ; + ccamp = soldluna, ; + cnumecamp = Diferenta rulaje, ; + Height = 19, ; + Left = 101, ; + lgrupare = .F., ; + lordine = .F., ; + lsuma = .T., ; + Name = "Ct_selectie_soldluna", ; + nid_container = 9, ; + TabIndex = 8, ; + Top = 56, ; + Width = 140, ; + ZOrderSet = 29, ; + ck_camp.Alignment = 0, ; + ck_camp.Caption = "Diferenta rulaje", ; + ck_camp.Name = "ck_camp" + *< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" /> + + PROCEDURE But_start_criterii1.loadcriterii + Parameters tacriterii + External Array tacriterii + #Define crlf Chr(13)+Chr(10) + lcStringCriterii="Denumire\denumire\T\ID_PART\nom_parteneri" + crlf + ; + "Cod fiscal\cod_fiscal\C\none\" + crlf + ; + "Cont\cont\C\none\" + crlf + ; + "Analitic\acont\C\none\" + DoDefault() + ENDPROC + +ENDDEFINE diff --git a/Clase/osit_op.vc2 b/Clase/osit_op.vc2 new file mode 100644 index 0000000..4e0563e --- /dev/null +++ b/Clase/osit_op.vc2 @@ -0,0 +1,2249 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="osit_op.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS frm_cere_cont AS formtermin OF "..\comun\clase\baza.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Shape3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cboCont" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lblCont" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lblAcont" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Optiongroup1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Renunt1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" /> + + * + *m: go + *p: calias + *p: ocont + * + + * + calias = + DoCreate = .T. + Height = 122 + Name = "frm_cere_cont" + ocont = .NULL. + ScrollBars = 0 + Width = 205 + Shape1.Height = 32 + Shape1.Left = 0 + Shape1.Name = "Shape1" + Shape1.Top = 0 + Shape1.Width = 138 + Shape1.ZOrderSet = 1 + Terminat1.Command1.Name = "Command1" + Terminat1.Enabled = .F. + Terminat1.Imbuton1.Height = 29 + Terminat1.Imbuton1.Name = "Imbuton1" + Terminat1.Imbuton1.Width = 27 + Terminat1.Left = 171 + Terminat1.Name = "Terminat1" + Terminat1.Top = 1 + Terminat1.ZOrderSet = 2 + Titlufrumos1.Height = 31 + Titlufrumos1.Left = 7 + Titlufrumos1.Name = "Titlufrumos1" + Titlufrumos1.Top = 7 + Titlufrumos1.Width = 118 + Titlufrumos1.ZOrderSet = 3 + * + + ADD OBJECT 'cboCont' AS combobox WITH ; + ColumnCount = 2, ; + ColumnLines = .F., ; + ColumnWidths = "40,40", ; + Height = 24, ; + Left = 12, ; + Name = "cboCont", ; + RowSourceType = 6, ; + Style = 2, ; + TabIndex = 1, ; + Top = 60, ; + Width = 84, ; + ZOrderSet = 4 + *< END OBJECT: BaseClass="combobox" /> + + ADD OBJECT 'Label9' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Contul este considerat de:", ; + FontBold = .F., ; + Height = 17, ; + Left = 10, ; + Name = "Label9", ; + TabIndex = 14, ; + Top = 129, ; + Width = 146, ; + ZOrderSet = 10 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'lblAcont' AS label WITH ; + BackStyle = 0, ; + Caption = " ", ; + FontItalic = .T., ; + FontSize = 10, ; + ForeColor = 0,0,128, ; + Height = 18, ; + Left = 146, ; + Name = "lblAcont", ; + TabIndex = 5, ; + Top = 65, ; + Width = 40, ; + ZOrderSet = 6 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'lblCont' AS label WITH ; + BackStyle = 0, ; + Caption = " ", ; + FontItalic = .T., ; + FontSize = 10, ; + ForeColor = 0,0,128, ; + Height = 18, ; + Left = 111, ; + Name = "lblCont", ; + TabIndex = 4, ; + Top = 65, ; + Width = 30, ; + ZOrderSet = 5 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Optiongroup1' AS optiongroup WITH ; + BackStyle = 0, ; + ButtonCount = 2, ; + ControlSource = "pnTipCont", ; + Height = 26, ; + Left = 35, ; + Name = "Optiongroup1", ; + TabIndex = 8, ; + Top = 152, ; + Value = 1, ; + Width = 120, ; + ZOrderSet = 8, ; + Option1.AutoSize = .T., ; + Option1.BackStyle = 0, ; + Option1.Caption = "Activ", ; + Option1.Height = 17, ; + Option1.Left = 5, ; + Option1.Name = "Option1", ; + Option1.TabStop = .F., ; + Option1.Top = 5, ; + Option1.Value = 1, ; + Option1.Width = 42, ; + Option2.AutoSize = .T., ; + Option2.BackStyle = 0, ; + Option2.Caption = "Pasiv", ; + Option2.Height = 17, ; + Option2.Left = 60, ; + Option2.Name = "Option2", ; + Option2.TabStop = .F., ; + Option2.Top = 5, ; + Option2.Width = 48 + *< END OBJECT: BaseClass="optiongroup" /> + + ADD OBJECT 'Renunt1' AS renunt WITH ; + Left = 139, ; + Name = "Renunt1", ; + Top = 1, ; + Imbuton1.Height = 27, ; + Imbuton1.Name = "Imbuton1", ; + Imbuton1.Width = 30, ; + Command1.Name = "Command1" + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="container" /> + + ADD OBJECT 'Shape2' AS shape WITH ; + BackColor = 236,233,216, ; + BackStyle = 0, ; + BorderColor = 181,210,225, ; + Height = 80, ; + Left = 6, ; + Name = "Shape2", ; + Top = 36, ; + Width = 191, ; + ZOrderSet = 0 + *< END OBJECT: BaseClass="shape" /> + + ADD OBJECT 'Shape3' AS shape WITH ; + BackColor = 236,233,216, ; + BackStyle = 0, ; + BorderColor = 181,210,225, ; + Height = 60, ; + Left = 6, ; + Name = "Shape3", ; + Top = 124, ; + Width = 191, ; + ZOrderSet = 0 + *< END OBJECT: BaseClass="shape" /> + + PROCEDURE go + Select(Thisform.calias) + With Thisform.ocont + .cont=cont + .acont=acont + + Thisform.lblCont.Caption=.cont + Thisform.lblAcont.Caption=.acont + If !Empty(.cont) + Thisform.terminat1.Enabled= .T. + ELSE + Thisform.terminat1.Enabled=.F. + Endif + Endwith + pcexec = [select fel_cont from ] + gcs + [.vcoresp_tip_cont where cont='] + ALLTRIM((thisform.ocont.cont)) + ['] + pcCursor = [felCont_cursor] + pnsucces = goExecutor.oExecute(pcexec,pcCursor) + IF (pnsucces != 0) + SELECT felCont_cursor + IF (felCont_cursor.fel_cont = 0) + thisform.optiongroup1.option1.Value = 1 + thisform.optiongroup1.option2.Value = 0 + ELSE + thisform.optiongroup1.option1.Value = 0 + thisform.optiongroup1.option2.Value = 1 + ENDIF + USE IN felCont_cursor + ENDIF + ENDPROC + + PROCEDURE cboCont.MouseLeave + LPARAMETERS nButton, nShift, nXCoord, nYCoord + thisform.go() + ENDPROC + + PROCEDURE cboCont.Valid + thisform.Go() + ENDPROC + + PROCEDURE Optiongroup1.InteractiveChange + If Type('eactiv') # 'U' + If This.Value = 2 + eActiv = .F. + Else + eActiv = .T. + Endif + Endif + + ENDPROC + + PROCEDURE Optiongroup1.ProgrammaticChange + This.InteractiveChange() + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_cere_cont_titlu AS formtermin OF "..\..\comun\clase\baza.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Shape3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Shape4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cboCont" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lblCont" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lblAcont" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Optiongroup1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Renunt1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_an_luna1" UniqueID="" Timestamp="" /> + + * + *m: go + *p: calias + *p: ocont + * + + * + BorderStyle = 1 + calias = + DoCreate = .T. + Height = 201 + Name = "frm_cere_cont_titlu" + ocont = .NULL. + ScrollBars = 0 + Width = 335 + Shape1.Height = 32 + Shape1.Left = 0 + Shape1.Name = "Shape1" + Shape1.Top = 0 + Shape1.Width = 335 + Shape1.ZOrderSet = 1 + Terminat1.Command1.Name = "Command1" + Terminat1.Enabled = .F. + Terminat1.Imbuton1.Height = 29 + Terminat1.Imbuton1.Name = "Imbuton1" + Terminat1.Imbuton1.Width = 27 + Terminat1.Left = 304 + Terminat1.Name = "Terminat1" + Terminat1.TabIndex = 3 + Terminat1.Top = 1 + Terminat1.ZOrderSet = 2 + Titlufrumos1.Height = 31 + Titlufrumos1.Left = 7 + Titlufrumos1.Name = "Titlufrumos1" + Titlufrumos1.TabIndex = 6 + Titlufrumos1.Top = 7 + Titlufrumos1.Width = 118 + Titlufrumos1.ZOrderSet = 3 + * + + ADD OBJECT 'cboCont' AS combobox WITH ; + ColumnCount = 2, ; + ColumnLines = .F., ; + ColumnWidths = "40,40", ; + Height = 24, ; + Left = 12, ; + Name = "cboCont", ; + RowSourceType = 6, ; + Style = 2, ; + TabIndex = 1, ; + Top = 60, ; + Width = 84, ; + ZOrderSet = 4 + *< END OBJECT: BaseClass="combobox" /> + + ADD OBJECT 'Clb_an_luna1' AS clb_an_luna WITH ; + Height = 29, ; + Left = 20, ; + Name = "Clb_an_luna1", ; + Top = 129, ; + Width = 290, ; + Lb_simplu1.FontSize = 10, ; + Lb_simplu1.Name = "Lb_simplu1", ; + cb1.Left = 149, ; + cb1.Name = "cb1", ; + cb1.Top = 2, ; + cb2.Left = 210, ; + cb2.Name = "cb2", ; + cb2.Top = 2 + *< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ; + Left = 20, ; + Name = "Clb_tx_simplu1", ; + TabIndex = 2, ; + Top = 157, ; + Text_simplu1.ControlSource = "tcTitlu", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Titlu", ; + Lb_simplu1.FontSize = 10, ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Label9' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Contul este considerat de:", ; + FontBold = .F., ; + FontSize = 10, ; + Height = 18, ; + Left = 168, ; + Name = "Label9", ; + TabIndex = 9, ; + Top = 48, ; + Width = 154, ; + ZOrderSet = 10 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'lblAcont' AS label WITH ; + BackStyle = 0, ; + Caption = " ", ; + FontItalic = .T., ; + FontSize = 10, ; + ForeColor = 0,0,128, ; + Height = 18, ; + Left = 98, ; + Name = "lblAcont", ; + TabIndex = 8, ; + Top = 63, ; + Width = 40, ; + ZOrderSet = 6 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'lblCont' AS label WITH ; + BackStyle = 0, ; + Caption = " ", ; + FontItalic = .T., ; + FontSize = 10, ; + ForeColor = 0,0,128, ; + Height = 18, ; + Left = 111, ; + Name = "lblCont", ; + TabIndex = 7, ; + Top = 65, ; + Width = 30, ; + ZOrderSet = 5 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Optiongroup1' AS optiongroup WITH ; + BackStyle = 0, ; + ButtonCount = 2, ; + ControlSource = "pnTipCont", ; + Height = 26, ; + Left = 186, ; + Name = "Optiongroup1", ; + TabIndex = 5, ; + Top = 80, ; + Value = 1, ; + Width = 114, ; + ZOrderSet = 8, ; + Option1.AutoSize = .T., ; + Option1.BackStyle = 0, ; + Option1.Caption = "Activ", ; + Option1.Height = 17, ; + Option1.Left = 5, ; + Option1.Name = "Option1", ; + Option1.TabStop = .F., ; + Option1.Top = 5, ; + Option1.Value = 1, ; + Option1.Width = 42, ; + Option2.AutoSize = .T., ; + Option2.BackStyle = 0, ; + Option2.Caption = "Pasiv", ; + Option2.Height = 17, ; + Option2.Left = 60, ; + Option2.Name = "Option2", ; + Option2.TabStop = .F., ; + Option2.Top = 5, ; + Option2.Width = 48 + *< END OBJECT: BaseClass="optiongroup" /> + + ADD OBJECT 'Renunt1' AS renunt WITH ; + Left = 272, ; + Name = "Renunt1", ; + TabIndex = 4, ; + Top = 1, ; + Imbuton1.Height = 27, ; + Imbuton1.Name = "Imbuton1", ; + Imbuton1.Width = 30, ; + Command1.Name = "Command1" + *< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" /> + + ADD OBJECT 'Shape2' AS shape WITH ; + BackColor = 236,233,216, ; + BackStyle = 0, ; + BorderColor = 181,210,225, ; + Height = 80, ; + Left = 6, ; + Name = "Shape2", ; + Top = 36, ; + Width = 153, ; + ZOrderSet = 0 + *< END OBJECT: BaseClass="shape" /> + + ADD OBJECT 'Shape3' AS shape WITH ; + BackColor = 236,233,216, ; + BackStyle = 0, ; + BorderColor = 181,210,225, ; + Height = 80, ; + Left = 158, ; + Name = "Shape3", ; + Top = 36, ; + Width = 167, ; + ZOrderSet = 0 + *< END OBJECT: BaseClass="shape" /> + + ADD OBJECT 'Shape4' AS shape WITH ; + BackColor = 236,233,216, ; + BackStyle = 0, ; + BorderColor = 181,210,225, ; + Height = 80, ; + Left = 6, ; + Name = "Shape4", ; + Top = 115, ; + Width = 318, ; + ZOrderSet = 0 + *< END OBJECT: BaseClass="shape" /> + + PROCEDURE go + Select(Thisform.calias) + With Thisform.ocont + .cont=cont + .acont=acont + + Thisform.lblCont.Caption=.cont + Thisform.lblAcont.Caption=.acont + If !Empty(.cont) + Thisform.terminat1.Enabled= .T. + ELSE + Thisform.terminat1.Enabled=.F. + Endif + Endwith + + pcexec = [select fel_cont from ] + gcs + [.vcoresp_tip_cont where cont='] + ALLTRIM((thisform.ocont.cont)) + ['] + pcCursor = [felCont_cursor] + pnsucces = goExecutor.oExecute(pcexec,pcCursor) + IF (pnsucces != 0) + SELECT felCont_cursor + IF (felCont_cursor.fel_cont = 0) + thisform.optiongroup1.option1.Value = 1 + thisform.optiongroup1.option2.Value = 0 + ELSE + thisform.optiongroup1.option1.Value = 0 + thisform.optiongroup1.option2.Value = 1 + ENDIF + USE IN felCont_cursor + ENDIF + ENDPROC + + PROCEDURE cboCont.MouseLeave + LPARAMETERS nButton, nShift, nXCoord, nYCoord + thisform.go() + ENDPROC + + PROCEDURE cboCont.Valid + thisform.Go() + ENDPROC + + PROCEDURE Clb_an_luna1.Init + this.cb1.Value=ALLTRIM(STR(gnLuna)) + this.cb2.Value=ALLTRIM(STR(gnAn)) + this.Enabled = .F. + this.lb_simplu1.ForeColor = RGB(128,128,128) + this.cb1.ForeColor = RGB(128,128,128) + this.cb2.ForeColor = RGB(128,128,128) + ENDPROC + + PROCEDURE Optiongroup1.Valid + IF TYPE('eactiv') # 'U' + IF this.Value = 2 + eActiv = .f. + ELSE + eActiv = .t. + ENDIF + ENDIF + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_cere_titlu 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="Clb_tx_simplu1" UniqueID="" Timestamp="" /> + + * + BorderStyle = 1 + DoCreate = .T. + Height = 95 + Name = "frm_cere_titlu" + Width = 375 + _SHAPE1.Name = "_SHAPE1" + _SHAPE2.Name = "_SHAPE2" + LB_TITLU_ALB_B121.Caption = "" + LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121" + LB_TITLU_ALB_B121.TabIndex = 3 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 2 + Gridsort1.Left = 9 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 38 + * + + ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 13, ; + Name = "Clb_tx_simplu1", ; + TabIndex = 1, ; + Top = 49, ; + Width = 346, ; + TEXT_SIMPLU1.Left = 154, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.Top = 3, ; + LB_SIMPLU1.Caption = "Titlu", ; + LB_SIMPLU1.FontSize = 12, ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" /> + +ENDDEFINE + +DEFINE CLASS frm_lans_sit_op 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="_shape5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_shape3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_shape4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_an_luna1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_luna_intre1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_optiongrup1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_simplu2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_optiongrup2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="chkDefalcatDocumentePereche" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Analitic" UniqueID="" Timestamp="" /> + + * + *m: do_lanscont + *m: do_lanspartener + *p: lccont + *p: lcluna_sau_perioada + *p: llactiv + *p: llcauta_alfa_cu_toti + *p: lljustselpart + *p: llperioada_blocata + *p: lnfelraport + *p: lnid_part + *p: lnperioada + *p: option1lock + *p: option2lock + * + + * + DoCreate = .T. + Enabled = .T. + Height = 250 + lccont = + lcluna_sau_perioada = "" + llcauta_alfa_cu_toti = .T. + lnfelraport = 0 + lnid_part = 0 + lnperioada = 0 + Name = "frm_lans_sit_op" + Width = 374 + _shape1.Name = "_shape1" + _shape1.ZOrderSet = 2 + _shape2.Height = 29 + _shape2.Left = 310 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 64 + _shape2.ZOrderSet = 3 + Lb_titlu_alb_b121.Caption = "Situatii Operative" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 12 + Lb_titlu_alb_b121.ZOrderSet = 4 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 9 + BUT_TERMIN1.ZOrderSet = 5 + Gridsort1.Left = 16 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 35 + * + + ADD OBJECT '_optiongrup1' AS _optiongrup WITH ; + AutoSize = .F., ; + BackColor = 255,0,0, ; + BorderStyle = 0, ; + Height = 24, ; + Left = 120, ; + Name = "_optiongrup1", ; + TabIndex = 5, ; + Top = 131, ; + Value = 1, ; + Width = 163, ; + ZOrderSet = 13, ; + Option1.BackColor = 255,0,0, ; + Option1.Caption = "lunara", ; + Option1.ForeColor = 0,0,0, ; + Option1.Left = 12, ; + Option1.Name = "Option1", ; + Option1.Top = 0, ; + Option1.Value = 1, ; + Option2.BackColor = 255,0,0, ; + Option2.Caption = "perioada", ; + Option2.ForeColor = 0,0,0, ; + Option2.Height = 17, ; + Option2.Left = 84, ; + Option2.Name = "Option2", ; + Option2.Top = 0, ; + Option2.Value = 0, ; + Option2.Width = 80 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="optiongroup" /> + + ADD OBJECT '_optiongrup2' AS _optiongrup WITH ; + AutoSize = .F., ; + BackColor = 255,0,0, ; + BorderStyle = 0, ; + Height = 27, ; + Left = 126, ; + Name = "_optiongrup2", ; + TabIndex = 8, ; + Top = 211, ; + Width = 204, ; + ZOrderSet = 15, ; + Option1.BackColor = 255,0,0, ; + Option1.Caption = "simplu", ; + Option1.ForeColor = 0,0,0, ; + Option1.Left = 5, ; + Option1.Name = "Option1", ; + Option1.Top = 5, ; + Option2.AutoSize = .T., ; + Option2.BackColor = 255,0,0, ; + Option2.Caption = "grupat pe entitati", ; + Option2.ForeColor = 0,0,0, ; + Option2.Height = 17, ; + Option2.Left = 77, ; + Option2.Name = "Option2", ; + Option2.Top = 5, ; + Option2.Width = 109 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="optiongroup" /> + + ADD OBJECT '_shape3' AS _shape WITH ; + BackStyle = 0, ; + Height = 29, ; + Left = 32, ; + Name = "_shape3", ; + Top = 209, ; + Visible = .T., ; + Width = 290, ; + ZOrderSet = 0 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" /> + + ADD OBJECT '_shape4' AS _shape WITH ; + BackStyle = 0, ; + Height = 29, ; + Left = 32, ; + Name = "_shape4", ; + Top = 125, ; + Width = 290, ; + ZOrderSet = 1 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" /> + + ADD OBJECT '_shape5' AS _shape WITH ; + BackStyle = 0, ; + Height = 29, ; + Left = 32, ; + Name = "_shape5", ; + Top = 181, ; + Visible = .T., ; + Width = 290, ; + ZOrderSet = 0 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" /> + + ADD OBJECT 'Analitic' AS textbox WITH ; + Height = 24, ; + Left = 133, ; + Name = "Analitic", ; + Top = 72, ; + Width = 184 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Left = 311, ; + Name = "But_renunt1", ; + TabIndex = 10, ; + Top = 1, ; + ZOrderSet = 16 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge1' AS but_sterge WITH ; + caction = do_lansCont, ; + cpicturedown = find.bmp, ; + cpictureup = find.bmp, ; + DisabledPicture = ..\comun\grafice\sterg2_sus_dis.bmp, ; + Left = 326, ; + Name = "But_sterge1", ; + SpecialEffect = 0, ; + TabIndex = 2, ; + ToolTipText = "Alege...", ; + Top = 41, ; + ZOrderSet = 11 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge2' AS but_sterge WITH ; + caction = do_lansPartener, ; + cpicturedown = find.bmp, ; + cpictureup = find.bmp, ; + Left = 326, ; + Name = "But_sterge2", ; + SpecialEffect = 0, ; + TabIndex = 4, ; + ToolTipText = "Alege ...", ; + Top = 97, ; + ZOrderSet = 12 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'chkDefalcatDocumentePereche' AS _checkbox WITH ; + Alignment = 0, ; + Caption = "Defalcat dupa documente pereche", ; + Left = 41, ; + Name = "chkDefalcatDocumentePereche", ; + TabIndex = 7, ; + Top = 187, ; + Value = 1 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Clb_an_luna1' AS clb_an_luna WITH ; + Height = 29, ; + Left = 32, ; + Name = "Clb_an_luna1", ; + TabIndex = 11, ; + Top = 153, ; + Visible = .T., ; + Width = 290, ; + ZOrderSet = 8, ; + Lb_simplu1.FontSize = 12, ; + Lb_simplu1.Name = "Lb_simplu1", ; + cb1.Left = 143, ; + cb1.Name = "cb1", ; + cb1.RowSource = "01,02,03,04,05,06,07,08,09,10,11,12", ; + cb1.Top = 2, ; + cb2.Left = 208, ; + cb2.Name = "cb2", ; + cb2.Top = 2 + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_luna_intre1' AS clb_luna_intre WITH ; + Height = 29, ; + Left = 32, ; + Name = "Clb_luna_intre1", ; + TabIndex = 6, ; + Top = 153, ; + Visible = .F., ; + Width = 290, ; + ZOrderSet = 9, ; + tx_n1.Name = "tx_n1", ; + Lb_simplu1.Caption = "Intervalul", ; + Lb_simplu1.FontSize = 12, ; + Lb_simplu1.Left = 8, ; + Lb_simplu1.Name = "Lb_simplu1", ; + Lb_simplu1.Top = 6, ; + tx_n2.Name = "tx_n2" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ; + Left = 32, ; + Name = "Clb_tx_simplu1", ; + TabIndex = 1, ; + TabStop = .F., ; + Top = 41, ; + ZOrderSet = 6, ; + Text_simplu1.BackColor = 255,255,255, ; + Text_simplu1.BackStyle = 0, ; + Text_simplu1.BorderColor = 0,0,0, ; + Text_simplu1.DisabledBackColor = 255,255,255, ; + Text_simplu1.DisabledForeColor = 255,255,255, ; + Text_simplu1.ForeColor = 0,0,0, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .T., ; + Lb_simplu1.Caption = "Cont", ; + Lb_simplu1.FontSize = 12, ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu2' AS clb_tx_simplu WITH ; + Left = 32, ; + Name = "Clb_tx_simplu2", ; + TabIndex = 3, ; + TabStop = .F., ; + Top = 97, ; + ZOrderSet = 7, ; + Text_simplu1.BackColor = 255,255,255, ; + Text_simplu1.BackStyle = 0, ; + Text_simplu1.DisabledBackColor = 255,255,255, ; + Text_simplu1.DisabledForeColor = 255,255,255, ; + Text_simplu1.ForeColor = 0,0,0, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .T., ; + Lb_simplu1.Caption = "Entitate", ; + Lb_simplu1.FontSize = 12, ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Label1' AS label WITH ; + BackStyle = 0, ; + Caption = "Analitic :", ; + FontSize = 11, ; + Height = 17, ; + Left = 34, ; + Name = "Label1", ; + Top = 76, ; + Width = 57 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Lb_simplu1' AS lb_simplu WITH ; + Caption = "Perioada:", ; + FontSize = 12, ; + ForeColor = 0,0,0, ; + Left = 39, ; + Name = "Lb_simplu1", ; + TabIndex = 13, ; + Top = 132, ; + ZOrderSet = 10 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_simplu2' AS lb_simplu WITH ; + Caption = "Fel raport:", ; + FontSize = 12, ; + ForeColor = 0,0,0, ; + Left = 39, ; + Name = "Lb_simplu2", ; + TabIndex = 14, ; + Top = 215, ; + Visible = .T., ; + ZOrderSet = 14 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + PROCEDURE Click + this._optiongrup1.ProgrammaticChange + ENDPROC + + PROCEDURE do_lanscont + Private pcContAles,pnEActiv + Store "" To pcContAles + Store .F. To pnEActiv + Do Alege_Cont With pcContAles,pnEActiv + pcContAles = ALLTRIM(pcContAles) + If !Empty(pcContAles) + This.clb_tx_simplu1.text_simplu1.Value = pcContAles + This.lcCont = pcContAles + This.llactiv = pnEActiv + Endif + Release pcContAles,pnEActiv + ENDPROC + + PROCEDURE do_lanspartener + PRIVATE pcval,pnbuton,pcselect,pcfiltru,oRetObj + STORE "" TO oRetObj + pnbuton=1 + *!* pcselect=["select nume,id_part from ]+gcS+[.vparteneri_extins where cont=']+ALLTRIM(this.lccont)+['"] + *!* pcfiltru=[1=2] + *!* oRetObj=cauta_alfa(pcselect,pcfiltru,[''],[],[nume],[Alegeti partener coresp. cont ]+IIF(EMPTY(this.lccont),[nespecificat],ALLTRIM(this.lccont)),[Entitate],[],this.llcauta_alfa_cu_toti) + llToateIreg = this.llcauta_alfa_cu_toti + llNou = .F. + oRetObj=caut_parteneri(this.lccont, [Alegeti partenerul], llToateIreg, llNou) + + IF !EMPTY(oRetObj.denumire) + this.clb_tx_simplu2.text_simplu1.Value = oRetObj.denumire &&oRetObj.id_part + this.lnid_part = oRetObj.id_part + IF (this.lljustselpart) AND (this.llperioada_blocata) + ** do nada! fereastra ramane la this stadiu! + this.clb_an_luna1.cb1.Value = ALLTRIM(STR(gnluna)) + this.clb_an_luna1.cb2.Value = ALLTRIM(STR(gnAn)) + this.clb_an_luna1.Enabled = .F. + ELSE + IF oRetObj.id_part = 0 && totzi partenerii + this._optiongrup1.option1.Value = 1 + this._optiongrup1.option2.Value = 0 + this._optiongrup1.Enabled = .F. + this._optiongrup1.Option1.ForeColor = RGB(128,128,128) + this._optiongrup1.Option2.ForeColor = RGB(128,128,128) + this._optiongrup2.Enabled = .T. + this._optiongrup2.Option1.ForeColor = RGB(0,0,0) + this._optiongrup2.Option2.ForeColor = RGB(0,0,0) + **this._optiongrup1.tabindex = 10 &&away, ca n-are tabstop + this.clb_an_luna1.cb1.Value = ALLTRIM(STR(gnluna)) + this.clb_an_luna1.cb2.Value = ALLTRIM(STR(gnAn)) + this.clb_an_luna1.Enabled = .F. + this.clb_an_luna1.Visible = .T. + this.clb_luna_intre1.Visible = .F. + ELSE && un singur partener + this._optiongrup2.option1.Value = 1 + this._optiongrup2.option2.Value = 0 + this._optiongrup2.Enabled = .F. + this._optiongrup2.Option1.ForeColor = RGB(128,128,128) + this._optiongrup2.Option2.ForeColor = RGB(128,128,128) + this._optiongrup1.Enabled = .T. + this._optiongrup1.Option1.ForeColor = RGB(0,0,0) + this._optiongrup1.Option2.ForeColor = RGB(0,0,0) + this.clb_an_luna1.Enabled = .T. + IF (this.lcluna_sau_perioada != "perioada") + this.clb_an_luna1.Visible = .T. + this.clb_luna_intre1.Visible = .F. + ELSE + this._optiongrup1.option1.Value = 0 + this._optiongrup1.option2.Value = 1 + this._optiongrup1.InteractiveChange + this.clb_an_luna1.Visible = .F. + this.clb_luna_intre1.Visible = .T. + ENDIF + ENDIF + ENDIF && select just part sau select all + + ENDIF + + + ENDPROC + + PROCEDURE inainte_de_do_renunt + plreturn=.F. + ENDPROC + + PROCEDURE inainte_de_do_termin + STORE "" TO perioada + *!* 04.08.2011 + IF THISFORM._optiongrup2.VALUE<>2 AND EMPTY(THIS.clb_tx_simplu2.text_simplu1.VALUE) + thisform.do_lanspartener() + ENDIF + *!* 04.08.2011 ^ + DO CASE + CASE EMPTY(THIS.clb_tx_simplu1.text_simplu1.VALUE) + aMessagebox('Nu ati ales contul!',0+48,"Atentie") + THIS.but_sterge1.SETFOCUS + plreturn=.F. + + CASE THISFORM._optiongrup2.VALUE<>2 AND EMPTY(THIS.clb_tx_simplu2.text_simplu1.VALUE) + aMessagebox('Nu ati ales partenerul/partenerii!',0+48,"Atentie") + THIS.but_sterge2.SETFOCUS + plreturn=.F. + + OTHERWISE + plreturn=.T. + ** prepare params ... + IF THIS.lnperioada = 0 + perioada = THIS.clb_an_luna1.cb1.VALUE+"/"+THIS.clb_an_luna1.cb2.VALUE + ELSE + perioada = SUBSTR(THIS.clb_luna_intre1.tx_n1.VALUE,1,2)+"/"+SUBSTR(THIS.clb_luna_intre1.tx_n1.VALUE,3)+"-"+SUBSTR(THIS.clb_luna_intre1.tx_n2.VALUE,1,2)+"/"+SUBSTR(THIS.clb_luna_intre1.tx_n2.VALUE,3) + ENDIF + + *** + llFormRelease = .T. + + IF lcTitlu == "" + lcTitlu = IIF(THIS.lnid_part>0,THIS.clb_tx_simplu2.text_simplu1.VALUE+THIS.lccont,"Entitati "+THIS.lccont) + ENDIF + pcCont = THIS.lccont + plActiv = THIS.llActiv + IF THISFORM._optiongrup2.VALUE<>2 + lnid_part = THIS.lnid_part + ELSE + lnid_part = 0 + ENDIF + lnFel_raport = THIS.lnfelraport + lcPerioada = perioada + lcEntitateAleasa = THIS.clb_tx_simplu2.text_simplu1.VALUE + plDefalcatDocumentPereche = Iif(this.chkDefalcatDocumentePereche.Value = 1, .T., .F.) + pcAnalitic=thisform.analitic.Value + + *** + ENDCASE + + RETURN plreturn + + ENDPROC + + PROCEDURE Init + LPARAMETERS tcCont,tlActiv,tlCauta_alfa_Cu_Toti,tlPerioada_Blocata,tcLuna_sau_Perioada + **parametrii sunt explicati in osituatii_operative.prg, in procedura PrepareRptSitOp + + IF !EMPTY(tcCont) + this.lccont = tcCont + this.llactiv = tlActiv + **blokare alegere cont: + this.clb_tx_simplu1.TEXT_SIMPLU1.Value = tcCont + this.but_sterge1.Visible = .F. + this.clb_tx_simplu1.tEXT_SIMPLU1.ForeColor = RGB(128,128,128) + **setare pe selectie doar de partener(i): (init e pe .F.) + this.lljustselpart = .T. + this.llcauta_alfa_cu_toti = tlCauta_alfa_Cu_Toti + this.llperioada_blocata = tlPerioada_Blocata + ENDIF + + **cu ce sa intre daca perioada nu-i blocata: + IF !EMPTY(tcLuna_sau_Perioada) + this.lcluna_sau_perioada = tcLuna_sau_Perioada + ELSE + this.lcluna_sau_perioada = "luna" + ENDIF + + **this.Height = 125 + this.clb_an_luna1.cb1.Value = PADL(ALLTRIM(STR(gnLuna)),2,'0') + this.clb_an_luna1.cb2.Value = ALLTRIM(STR(gnAn)) + + IF tlPerioada_Blocata + this._optiongrup1.Enabled = .F. + ELSE + this._optiongrup1.Enabled = .T. + ENDIF + IF this.lcluna_sau_perioada = "luna" + this._optiongrup1.Value = 1 + ELSE + this._optiongrup1.Value = 2 + ENDIF + this._optiongrup1.InteractiveChange + + this._optiongrup1.Option1.ForeColor = RGB(128,128,128) + this._optiongrup1.Option2.ForeColor = RGB(128,128,128) + *this._optiongrup2.Enabled = .F. + this._optiongrup2.Option1.ForeColor = RGB(128,128,128) + this._optiongrup2.Option2.ForeColor = RGB(128,128,128) + + DODEFAULT() + ENDPROC + + PROCEDURE Clb_luna_intre1.tx_n1.Valid + + IF VAL(SUBSTR(this.Value,3,4))>=gnan AND VAL(SUBSTR(this.Value,1,2))>gnluna + aMESSAGEBOX("Data este prea mare!",0+48,"Atentie") + RETURN 0 + ENDIF + ENDPROC + + PROCEDURE Clb_luna_intre1.tx_n2.Valid + + IF VAL(SUBSTR(this.Value,3,4))>=gnan AND VAL(SUBSTR(this.Value,1,2))>gnluna + aMESSAGEBOX("Data este prea mare!",0+48,"Atentie") + RETURN 0 + ENDIF + ENDPROC + + PROCEDURE Clb_tx_simplu1.Text_simplu1.GotFocus + IF this.ForeColor != RGB(128,128,128) + thisform.do_lanscont + ENDIF + ENDPROC + + PROCEDURE Clb_tx_simplu2.Text_simplu1.GotFocus + thisform.do_lanspartener + ENDPROC + + PROCEDURE Lb_titlu_alb_b121.MouseDown + Lparameters nButton, nShift, nXCoord, nYCoord + If nButton = 1 + thisform.MouseIcon='HMOVE.CUR' + thisform.MousePointer= 99 + ReleaseCapture() + SendMessage(Thisform.nHWND, 0x112, 0xF012, 0x0) + thisform.MousePointer= 0 + SendMessage(Thisform.nHWND, 0x202, 0x0, 0x0) + Endif + ENDPROC + + PROCEDURE _optiongrup1.InteractiveChange + IF this.Value = 1 + thisform.lnperioada = 0 + thisform.clb_an_luna1.Visible = .T. + thisform.clb_luna_intre1.Visible = .F. + thisform.clb_an_luna1.SetFocus + ELSE + thisform.lnperioada = 1 + thisform.clb_an_luna1.Visible = .F. + thisform.clb_luna_intre1.Visible = .T. + thisform.clb_luna_intre1.tx_n1.Value = PADL(thisform.clb_an_luna1.cb1.Value,2,'0') + thisform.clb_an_luna1.cb2.Value + thisform.clb_luna_intre1.tx_n2.Value = PADL(thisform.clb_an_luna1.cb1.Value,2,'0') + thisform.clb_an_luna1.cb2.Value + thisform.clb_luna_intre1.SetFocus + ENDIF + + ENDPROC + + PROCEDURE _optiongrup2.InteractiveChange + IF this.option1.Value = 1 + thisform.lnfelraport = 0 + ELSE + thisform.lnfelraport = 1 + ENDIF + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_viz_sit_op AS frm_termin OF "..\comun\clase\_frm_child.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column11.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column11.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column12.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column12.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column13.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column13.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column14.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column14.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column15.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column15.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" /> + + * + *m: afisactual + *m: calcul + *p: laid_part + *p: nsumac + *p: nsumad + *p: nsumasold + * + + * + AlwaysOnTop = .T. + AutoCenter = .T. + BackColor = 255,255,255 + cbuton1 = but_excel1 + cbuton2 = but_listare1 + cgridsortlist = grid1 + DoCreate = .T. + Height = 452 + lactiv1 = .F. + lactiv2 = .F. + lactiv3 = .F. + lactiv4 = .F. + laid_part = + MaxButton = .F. + MinButton = .F. + Name = "frm_viz_sit_op" + nsumac = 0 + nsumad = 0 + nsumasold = 0 + TitleBar = 0 + Width = 789 + WindowState = 2 + WindowType = 1 + _shape1.Anchor = 10 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 792 + _shape1.ZOrderSet = 0 + _shape2.Anchor = 8 + _shape2.Height = 29 + _shape2.Left = 690 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 99 + _shape2.ZOrderSet = 1 + Lb_titlu_alb_b121.Caption = "Situatie operativa lunara " + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 19 + Lb_titlu_alb_b121.ZOrderSet = 2 + BUT_TERMIN1.Anchor = 8 + BUT_TERMIN1.Left = 756 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 16 + BUT_TERMIN1.Top = 1 + BUT_TERMIN1.ZOrderSet = 21 + GRIDSORT1.Name = "GRIDSORT1" + * + + ADD OBJECT 'But_excel1' AS but_excel WITH ; + Anchor = 8, ; + Left = 694, ; + Name = "But_excel1", ; + TabIndex = 18, ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_listare1' AS but_listare WITH ; + Anchor = 8, ; + Left = 725, ; + Name = "But_listare1", ; + TabIndex = 17, ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Grid1' AS grid WITH ; + Anchor = 15, ; + BackColor = 255,255,255, ; + ColumnCount = 15, ; + DeleteMark = .F., ; + FontSize = 10, ; + GridLineColor = 128,128,128, ; + Height = 365, ; + Left = 3, ; + Name = "Grid1", ; + Panel = 1, ; + ReadOnly = .T., ; + RecordSource = "cursor_raport", ; + RowHeight = 19, ; + TabIndex = 15, ; + Top = 84, ; + Width = 778, ; + ZOrderSet = 6, ; + Column1.Alignment = 1, ; + Column1.BackColor = 255,255,255, ; + Column1.ColumnOrder = 2, ; + Column1.ControlSource = "dataireg", ; + Column1.FontName = "Arial", ; + Column1.FontSize = 10, ; + Column1.Name = "Column2", ; + Column1.ReadOnly = .T., ; + Column1.Width = 64, ; + Column2.Alignment = 0, ; + Column2.BackColor = 255,255,255, ; + Column2.ColumnOrder = 1, ; + Column2.ControlSource = "FEL_DOCument", ; + Column2.FontName = "Arial", ; + Column2.FontSize = 10, ; + Column2.Name = "Column3", ; + Column2.ReadOnly = .T., ; + Column2.Width = 68, ; + Column3.Alignment = 1, ; + Column3.BackColor = 255,255,255, ; + Column3.ColumnOrder = 3, ; + Column3.ControlSource = "dataact", ; + Column3.FontName = "Arial", ; + Column3.FontSize = 10, ; + Column3.Name = "Column4", ; + Column3.ReadOnly = .T., ; + Column3.Width = 62, ; + Column4.Alignment = 1, ; + Column4.BackColor = 255,255,255, ; + Column4.ColumnOrder = 4, ; + Column4.ControlSource = "nract", ; + Column4.FontName = "Arial", ; + Column4.FontSize = 10, ; + Column4.Name = "Column5", ; + Column4.ReadOnly = .T., ; + Column4.Width = 58, ; + Column5.Alignment = 0, ; + Column5.BackColor = 255,255,255, ; + Column5.ColumnOrder = 6, ; + Column5.ControlSource = "nrord", ; + Column5.FontName = "Arial", ; + Column5.FontSize = 10, ; + Column5.Name = "Column6", ; + Column5.ReadOnly = .T., ; + Column5.Width = 102, ; + Column6.Alignment = 1, ; + Column6.BackColor = 255,255,255, ; + Column6.ColumnOrder = 11, ; + Column6.ControlSource = "", ; + Column6.DynamicForeColor = "rgb(0,0,128)", ; + Column6.FontBold = .F., ; + Column6.FontName = "Arial", ; + Column6.FontSize = 10, ; + Column6.ForeColor = 0,0,128, ; + Column6.Name = "Column7", ; + Column6.ReadOnly = .T., ; + Column6.Visible = .F., ; + Column6.Width = 46, ; + Column7.Alignment = 3, ; + Column7.BackColor = 255,255,255, ; + Column7.ColumnOrder = 8, ; + Column7.ControlSource = "debit", ; + Column7.FontName = "Arial", ; + Column7.FontSize = 10, ; + Column7.Format = "R", ; + Column7.InputMask = "99 999 999 999.99", ; + Column7.Name = "Column10", ; + Column7.ReadOnly = .T., ; + Column7.Width = 87, ; + Column8.Alignment = 3, ; + Column8.BackColor = 255,255,255, ; + Column8.ColumnOrder = 9, ; + Column8.ControlSource = "credit", ; + Column8.FontName = "Arial", ; + Column8.FontSize = 10, ; + Column8.Format = "R", ; + Column8.InputMask = "99 999 999 999.99", ; + Column8.Name = "Column11", ; + Column8.ReadOnly = .T., ; + Column8.Width = 90, ; + Column9.BackColor = 255,255,255, ; + Column9.ColumnOrder = 5, ; + Column9.ControlSource = "part", ; + Column9.FontName = "Arial", ; + Column9.FontSize = 10, ; + Column9.Name = "Column1", ; + Column9.ReadOnly = .T., ; + Column9.Width = 131, ; + Column10.BackColor = 255,255,255, ; + Column10.ColumnOrder = 10, ; + Column10.ControlSource = "soldf", ; + Column10.FontName = "Arial", ; + Column10.FontSize = 10, ; + Column10.Format = "R", ; + Column10.InputMask = "99 999 999 999.99", ; + Column10.Name = "Column8", ; + Column10.ReadOnly = .T., ; + Column11.BackColor = 255,255,255, ; + Column11.ColumnOrder = 12, ; + Column11.ControlSource = "perecheX", ; + Column11.FontName = "Arial", ; + Column11.FontSize = 10, ; + Column11.Name = "Column9", ; + Column11.ReadOnly = .T., ; + Column11.Width = 77, ; + Column12.BackColor = 255,255,255, ; + Column12.ColumnOrder = 13, ; + Column12.ControlSource = "partx", ; + Column12.FontName = "Arial", ; + Column12.FontSize = 10, ; + Column12.Name = "Column12", ; + Column12.ReadOnly = .T., ; + Column12.Width = 120, ; + Column13.BackColor = 255,255,255, ; + Column13.ColumnOrder = 14, ; + Column13.ControlSource = "contX", ; + Column13.FontName = "Arial", ; + Column13.FontSize = 10, ; + Column13.Name = "Column13", ; + Column13.ReadOnly = .T., ; + Column13.Width = 74, ; + Column14.BackColor = 255,255,255, ; + Column14.ColumnOrder = 7, ; + Column14.ControlSource = "contract", ; + Column14.FontName = "Arial", ; + Column14.FontSize = 10, ; + Column14.Name = "Column14", ; + Column14.ReadOnly = .T., ; + Column15.BackColor = 255,255,255, ; + Column15.ControlSource = "datascad", ; + Column15.FontName = "Arial", ; + Column15.FontSize = 10, ; + Column15.Name = "Column15", ; + Column15.ReadOnly = .T., ; + Column15.Width = 88 + *< END OBJECT: BaseClass="grid" /> + + ADD OBJECT 'Grid1.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nume", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Grid1.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Grid1.Column10.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Debit", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Grid1.Column10.Text1' AS textbox WITH ; + Alignment = 3, ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Grid1.Column11.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Credit", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Grid1.Column11.Text1' AS textbox WITH ; + Alignment = 3, ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Grid1.Column12.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Partener ", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Grid1.Column12.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Grid1.Column13.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont coresp", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Grid1.Column13.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Grid1.Column14.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Contract", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Grid1.Column14.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Grid1.Column15.Header1' AS header WITH ; + Caption = "Data scadenta", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Grid1.Column15.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Grid1.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data Inreg.", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Grid1.Column2.Text1' AS textbox WITH ; + Alignment = 1, ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Grid1.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Fel Doc.", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Grid1.Column3.Text1' AS textbox WITH ; + Alignment = 0, ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Grid1.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data Act", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Grid1.Column4.Text1' AS textbox WITH ; + Alignment = 1, ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Grid1.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr.Doc.", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Grid1.Column5.Text1' AS textbox WITH ; + Alignment = 1, ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Grid1.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Lucrare", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Grid1.Column6.Text1' AS textbox WITH ; + Alignment = 0, ; + BackColor = 255,255,255, ; + BorderColor = 0,0,0, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Grid1.Column7.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Grid1.Column7.Text1' AS textbox WITH ; + Alignment = 1, ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontBold = .F., ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,128, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + Visible = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Grid1.Column8.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sold", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Grid1.Column8.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Grid1.Column9.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Doc. coresp.", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Grid1.Column9.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridextra1' AS gridextra WITH ; + Left = 45, ; + Name = "Gridextra1", ; + Top = 63 + *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> + + ADD OBJECT 'Label4' AS label WITH ; + Anchor = 8, ; + AutoSize = .T., ; + BackColor = 255,255,255, ; + Caption = "Credit", ; + FontSize = 10, ; + Height = 18, ; + Left = 596, ; + Name = "Label4", ; + TabIndex = 23, ; + Top = 35, ; + Width = 36, ; + ZOrderSet = 13 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label5' AS label WITH ; + Anchor = 8, ; + AutoSize = .T., ; + BackColor = 255,255,255, ; + Caption = "Debit", ; + FontSize = 10, ; + Height = 18, ; + Left = 469, ; + Name = "Label5", ; + TabIndex = 24, ; + Top = 35, ; + Width = 32, ; + ZOrderSet = 14 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label6' AS label WITH ; + Anchor = 8, ; + AutoSize = .T., ; + BackColor = 255,255,255, ; + Caption = "Sold", ; + FontSize = 10, ; + Height = 18, ; + Left = 734, ; + Name = "Label6", ; + TabIndex = 25, ; + Top = 35, ; + Width = 28, ; + ZOrderSet = 16 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Shape2' AS shape WITH ; + Anchor = 8, ; + BackStyle = 0, ; + Height = 40, ; + Left = 372, ; + Name = "Shape2", ; + SpecialEffect = 0, ; + Top = 43, ; + Width = 407, ; + ZOrderSet = 5 + *< END OBJECT: BaseClass="shape" /> + + ADD OBJECT 'Text2' AS textbox WITH ; + Anchor = 8, ; + ControlSource = "thisform.nSumaC", ; + FontSize = 10, ; + Format = "", ; + Height = 25, ; + InputMask = (get_mask(14,gnPa)), ; + Left = 510, ; + Name = "Text2", ; + ReadOnly = .T., ; + TabIndex = 21, ; + Top = 53, ; + Width = 126, ; + ZOrderSet = 8 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text3' AS textbox WITH ; + Anchor = 8, ; + ControlSource = "thisform.nSumaD", ; + FontSize = 10, ; + Format = "", ; + Height = 25, ; + InputMask = (get_mask(14,gnPa)), ; + Left = 380, ; + Name = "Text3", ; + ReadOnly = .T., ; + TabIndex = 20, ; + Top = 53, ; + Width = 126, ; + ZOrderSet = 10 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text4' AS textbox WITH ; + Anchor = 8, ; + ControlSource = "thisform.nSumaSold", ; + FontSize = 10, ; + Format = "", ; + Height = 25, ; + InputMask = (get_mask(14,gnPa)), ; + Left = 640, ; + Name = "Text4", ; + ReadOnly = .T., ; + TabIndex = 22, ; + Top = 53, ; + Width = 126, ; + ZOrderSet = 15 + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE actualizeaza_grid1 + LPARAMETERS tcFiltru,tcFiltru2 + + LOCAL lnSoldi, lnSoldf + + THISFORM.MOUSEPOINTER= 11 + THISFORM.LOCKSCREEN = .T. + + + IF lcFiltre != ".t." + save_grid_tag(Thisform.grid1) + SELECT * from cursor_raport WHERE &lcFiltre INTO CURSOR cursor_temporar READWRITE + SELECT * from cursor_temporar INTO CURSOR cursor_raport READWRITE + thisform.grid1.RecordSource = "cursor_raport" + + ** calculare si inserare sold initial,sold final/fiece partener: + STORE 0 TO lnSold_Initial_Total + STORE 0 TO lnSold_Final_Total + STORE 1 TO j + STORE 0 TO sold_final + STORE 0 TO lnId_part_curent + SELECT cursor_raport + GO TOP + lnId_part_curent = id_part + SCAN + *** sold final calculat: e sold final deabia pe ultima linie corespunzatoare fiecarui partener, in rest (pana acolo) e sold_cumulat + IF (id_part != lnId_part_curent) + lnId_part_curent = id_part + lnSold_Initial_Total = lnSold_Initial_Total + soldi + lnSold_Final_Total = lnSold_Final_Total + sold_final && intai iau sold_final=soldu de la ultimul, si pe urma bag in variabila: sold_final soldu init al next part + sold_final = soldi + j = j + 1 && next sold init din vectorul de solduri initiale/parteneri + ENDIF + *sold_final = IIF(llActiv,sold_final + debit - credit,sold_final - debit + credit) + sold_final = sold_final + IIF(debit>0,1,-1)*(debit-credit) + replace soldf WITH sold_final + replace soldi WITH laId_part[j,1] + ENDSCAN + + restore_grid_tag(Thisform.grid1) + ELSE + SELECT * from cursor_raport INTO CURSOR cursor_raport_full READWRITE + ENDIF + + save_grid_tag(THISFORM.grid1) + pobancasa.ca_baza1.cfiltru=tcFiltru + pobancasa.ca_baza1.afisare() + restore_grid_tag(THISFORM.grid1) + + + THISFORM.LOCKSCREEN=.F. + THISFORM.MOUSEPOINTER= 0 + ENDPROC + + PROCEDURE afisactual + *!* EXTERNAL ARRAY laId_part + + *!* LOCAL lcFiltre + *!* lcFiltre = ".t." + + *!* IF this.Ck_fel_doc.value = 1 + *!* lcFiltre = lcFiltre + this.ck_fel_doc.filtru + " " &&" AND " + + *!* ENDIF + + *!* IF this.Ck_contract.value = 1 + *!* lcFiltre = lcFiltre + this.Ck_contract.filtru + " " &&+ " AND " + *!* ENDIF + + *!* IF this.ck_nume.value = 1 + *!* lcFiltre = lcFiltre + this.ck_nume.filtru + " " &&+ " AND " + *!* ENDIF + + *!* IF this.ck_dataact.value = 1 + *!* lcFiltre = lcFiltre + this.ck_dataact.filtru + " " &&+ " AND " + *!* ENDIF + + *!* SELECT cursor_raport + *!* **SET FILTER TO &lcFiltre + + + *!* IF lcFiltre != ".t." + *!* save_grid_tag(Thisform.grid1) + *!* SELECT * from cursor_raport WHERE &lcFiltre INTO CURSOR cursor_temporar READWRITE + *!* SELECT * from cursor_temporar INTO CURSOR cursor_raport READWRITE + *!* thisform.grid1.RecordSource = "cursor_raport" + + *!* ** calculare si inserare sold initial,sold final/fiece partener: + *!* STORE 0 TO lnSold_Initial_Total + *!* STORE 0 TO lnSold_Final_Total + *!* STORE 1 TO j + *!* STORE 0 TO sold_final + *!* STORE 0 TO lnId_part_curent + *!* SELECT cursor_raport + *!* GO TOP + *!* lnId_part_curent = id_part + *!* SCAN + *!* *** sold final calculat: e sold final deabia pe ultima linie corespunzatoare fiecarui partener, in rest (pana acolo) e sold_cumulat + *!* IF (id_part != lnId_part_curent) + *!* lnId_part_curent = id_part + *!* lnSold_Initial_Total = lnSold_Initial_Total + soldi + *!* lnSold_Final_Total = lnSold_Final_Total + sold_final && intai iau sold_final=soldu de la ultimul, si pe urma bag in variabila: sold_final soldu init al next part + *!* sold_final = soldi + *!* j = j + 1 && next sold init din vectorul de solduri initiale/parteneri + *!* ENDIF + *!* *sold_final = IIF(llActiv,sold_final + debit - credit,sold_final - debit + credit) + *!* sold_final = sold_final + IIF(debit>0,1,-1)*(debit-credit) + *!* replace soldf WITH sold_final + *!* replace soldi WITH laId_part[j,1] + *!* ENDSCAN + + *!* restore_grid_tag(Thisform.grid1) + *!* ELSE + *!* SELECT * from cursor_raport INTO CURSOR cursor_raport_full READWRITE + *!* ENDIF + + + + + + + *!* SELE cursor_raport + *!* sum credit to m.suma + *!* SUM DEBIT TO M.SUMA1 + + *!* m.suma2= pnSemn*(m.suma1-m.suma) + + *!* thisform.calcul + *!* THISFORM.GRID1.REFRESH + *!* thisform.text2.REFRESH + *!* thisform.text3.REFRESH + *!* thisform.text4.REFRESH + + + ENDPROC + + PROCEDURE calcul + LOCAL s1 + s1=0 + + SELECT cursor_raport + GO TOP + SCAN + s1=s1 + pnSemn*(debit-credit) + REPLACE soldf WITH s1 + ENDSCAN + + SELE cursor_raport + SUM credit to thisform.nSumaC + SUM DEBIT TO thisform.nSumaD + LOCATE + thisform.nSumaSold= pnSemn*(thisform.nSumaD-thisform.nSumaC) + + thisform.text2.REFRESH + thisform.text3.REFRESH + thisform.text4.REFRESH + ENDPROC + + PROCEDURE do_cauta + EXTERNAL ARRAY laId_part + + LOCAL lcFiltre, lcFiltru + lcFiltre = [1=1] + + IF this.Ck_fel_doc.value = 1 + lcFiltre = lcFiltre + this.ck_fel_doc.filtru_vfp + ENDIF + + IF this.Ck_nract.value = 1 + lcFiltre = lcFiltre + this.ck_nract.filtru_vfp + ENDIF + + IF this.Ck_contract.value = 1 + lcFiltre = lcFiltre + this.Ck_contract.filtru_vfp + ENDIF + + IF this.ck_nume.value = 1 + lcFiltre = lcFiltre + this.ck_nume.filtru_vfp + ENDIF + + IF this.Ck_dataact.value = 1 + lcFiltre = lcFiltre + this.Ck_dataact.filtru_vfp + ENDIF + + IF this.ck_dataireg.value = 1 + lcFiltre = lcFiltre + this.ck_dataireg.filtru_vfp + ENDIF + + IF this.ck_debit.value = 1 + lcFiltre = lcFiltre + this.ck_debit.filtru_vfp + ENDIF + + IF this.ck_credit.value = 1 + lcFiltre = lcFiltre + this.ck_credit.filtru_vfp + ENDIF + + IF this.ck_soldf.value = 1 + lcFiltre = lcFiltre + this.ck_soldf.filtru_vfp + ENDIF + + IF this.ck_perecheX.value = 1 + lcFiltre = lcFiltre + this.ck_perecheX.filtru_vfp + ENDIF + SET STEP ON + IF this.ck_docperecheX.value = 1 + lcFiltru = ALLTRIM(SUBSTR(this.ck_docperecheX.filtru_vfp, 6)) + lcFiltru = " and (" + lcFiltru + " or " + STRTRAN(m.lcFiltru, 'perechex', 'nract',1,5,1) + ")" + + lcFiltre = lcFiltre + m.lcFiltru + ENDIF + + IF this.ck_partX.value = 1 + lcFiltre = lcFiltre + this.ck_partX.filtru_vfp + ENDIF + + IF this.ck_contX.value = 1 + lcFiltre = lcFiltre + this.ck_contX.filtru_vfp + ENDIF + + IF this.ck_doar_cu_rulaje.value = 1 + lcFiltre = lcFiltre + [ and !(debit=0 and credit=0)] + ENDIF + + SELECT cursor_raport + SET FILTER TO &lcFiltre + + thisform.calcul + + THISFORM.GRID1.SetFocus + + + ENDPROC + + PROCEDURE do_excel + If !Thisform.lactiv1 + Return + Endif + + LOCAL lcsel + lcsel = thisform.grid1.RecordSource + lcFiltru = FILTER(lcSel) + IF EMPTY(lcFiltru) + lcFiltru = [1=1] + ENDIF + + + lcSelect = [SELECT FEL_DOCUMENT,DATAIREG as DATA_INREG,DATAACT AS DATA_ACT,DATASCAD AS DATA_SCAD,NRACT AS NR_ACT,PART AS PARTENER,NRORD AS LUCRARE,CONTRACT,DEBIT, CREDIT,SOLDF AS SOLD,PERECHEX AS DOC_PERECHE ] +; + [FROM ] + LCSEL + [ WHERE ] + lcFiltru + [ INTO CURSOR TEXCEL ] + &lcSelect + + lcExcel = gcTempPath + [Situatia_operativa_]+SYS(2)+[.xlsx] + + *!* modificare v 2.0.85 + goExport.export2xlsx([texcel],lcExcel) + + ENDPROC + + PROCEDURE do_listare + Local lcFiltru, lcNumeRpt + *:Global pcTitlu, pcdataora + If !Thisform.lactiv2 + Return + Endif + + ** construct report: + pcTitlu = "Titlu" + + **cerere titlu: + Do ceretitlu_raport_v2 With 'Titlul Raportului', 'lcTitlu' + + pcdataora = Get_Ora(2) + **setare wich raport to do: ( singur sau multiplu partener) + + *!* SELECT cursor_raport + *!* IF RECCOUNT()>1 + *!* GOTO 2 && prima linie contine soldu init; caut sa vad daca e acelasi id_part in toate inreg. + *!* lnIdFound = id_part + *!* SCAN FOR id_part>0 + *!* IF id_part != lnIdFound + *!* lcNumeRpt = "multi_NEgr" + *!* ELSE + *!* lcNumeRpt = "sing" + *!* ENDIF + *!* ENDSCAN + *!* lcNumeRpt = "sit_oper_" + lcNumeRpt + "_rpt1" + *!* SELECT cursor_raport + *!* thisform.AlwaysOnTop = .F. + *!* Report Format &lcNumeRpt To Printer Prompt Noconsole Preview + *!* thisform.AlwaysOnTop = .T. + *!* ENDIF + pcTitlu = lcTitlu + lcNumeRpt = "sing" + lcNumeRpt = "sit_oper_" + lcNumeRpt + "_rpt1" + *sit_oper_multi_NEgr_rpt1 + lcNumeRpt = "sit_oper_multi_NEgr_rpt1" + Private pnSoldPrec + Select cursor_raport + lcFiltru = Filter('cursor_raport') + *Set Filter To id_part <> 0 + pnSoldPrec = Iif(pnSemn = 1, debit, credit) + Thisform.AlwaysOnTop = .F. + *!* 09.08.2011 + *!* Report Format &lcNumeRpt To Printer Prompt Noconsole Preview + goExport.export2frx([cursor_raport], lcNumeRpt, , , , , , .T.) + *!* 09.08.2011 ^ + Thisform.AlwaysOnTop = .T. + *Set Filter To (lcFiltru) + + + ENDPROC + + PROCEDURE Init + Parameters laId_part + + DODEFAULT() + + *!* Public s1 + *!* Store "" To M.NUME,M.NUME_2,M.SCD,M.SCC + *!* Store Date() To M.DATAact1,M.DATAact2 + *!* Store 0 To M.SUMA,M.SUMA1,m.suma2,s1 + *!* *STORE .F. TO bnume,bnume_2,bscd,BSCC + *!* Store .T. To TNUME,TNUME_2,TSCD,TSCC,t16 + + *!* If !Empty(gcAcces) + *!* && format gcAcces = [optiune1];[optiune2];...;[optiuneN]; && + *!* Local lcAcces,lnPozitieS,lnPozitieF,N + *!* lnPozitieS=1 + *!* For i=1 To Occurs([;],gcAcces) + *!* lnPozitieF=At([;],gcAcces,i) + *!* lcAcces=Substr(gcAcces,lnPozitieS,lnPozitieF-lnPozitieS) + *!* lcProp='thisform.lactiv'+Alltrim(lcAcces) + *!* If Type(lcProp)<>'U' + *!* &lcProp=.T. + *!* *!* lcProp='thisform.cbuton'+Alltrim(lcAcces) + *!* *!* If Type(lcProp)<>'U' And !Empty(&lcProp) + *!* *!* && format lcButoane = [nume_buton1];[nume_buton2];...;[nume_butonN]; && + *!* *!* lcButoane=&lcProp + *!* *!* lnPS=1 + *!* *!* lcButoane=Iif(Substr(lcButoane,Len(lcButoane)-1)=[;],lcButoane,lcButoane+[;]) + *!* *!* For j=1 To Occurs([;],lcButoane) + *!* *!* lnPF=At([;],lcButoane,j) + *!* *!* lcButon=Substr(lcButoane,lnPS,lnPF-lnPS) + *!* *!* lcProp='thisform.blocbuton1.'+Alltrim(lcButon)+'.visible' + *!* *!* &lcProp=.T. + *!* *!* lnPS=lnPF+1 + *!* *!* Endfor + *!* *!* Endif + *!* Endif + *!* lnPozitieS=lnPozitieF+1 + *!* Endfor + *!* Endif + + *!* With Thisform.blocbuton1 + *!* If Thisform.lactiv2 + *!* .list1.Visible=.T. + *!* Endif + *!* Endwith + *!* If Thisform.lactiv1 + *!* Thisform.excel1.Visible=.T. + *!* Endif + + Thisform.laId_part = laId_part + + Thisform.calcul + + This.Gridextra1.setup() + ENDPROC + + PROCEDURE Grid1.Column10.Text1.RightClick + do editscurt.mpr + ENDPROC + + PROCEDURE Grid1.Column11.Text1.RightClick + do editscurt.mpr + ENDPROC + + PROCEDURE Grid1.Column2.Text1.RightClick + do editscurt.mpr + ENDPROC + + PROCEDURE Grid1.Column3.Text1.RightClick + do editscurt.mpr + ENDPROC + + PROCEDURE Grid1.Column4.Text1.RightClick + do editscurt.mpr + ENDPROC + + PROCEDURE Grid1.Column5.Text1.RightClick + do editscurt.mpr + ENDPROC + + PROCEDURE Grid1.Column6.Text1.RightClick + do editscurt.mpr + ENDPROC + + PROCEDURE Grid1.Column7.Text1.RightClick + do editscurt.mpr + ENDPROC + + PROCEDURE Grid1.Init + SELECT cursor_raport + GO top + ENDPROC + + PROCEDURE Gridextra1.applyfilter + DODEFAULT() + thisform.calcul() + ENDPROC + + PROCEDURE Gridextra1.clearfilter + DODEFAULT() + thisform.calcul() + ENDPROC + + PROCEDURE Text2.Init + THIS.FORECOLOR=IIF(this.Value >=0, RGB(0,0,0), RGB(255,0,0)) + ENDPROC + + PROCEDURE Text3.Init + THIS.FORECOLOR=IIF(this.Value >=0, RGB(0,0,0), RGB(255,0,0)) + ENDPROC + + PROCEDURE Text4.Init + THIS.FORECOLOR=IIF(this.Value >=0, RGB(0,0,0), RGB(255,0,0)) + ENDPROC + +ENDDEFINE diff --git a/Clase/oteste.vc2 b/Clase/oteste.vc2 new file mode 100644 index 0000000..5e52aaf --- /dev/null +++ b/Clase/oteste.vc2 @@ -0,0 +1,1130 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="oteste.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS afisdebsicred 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="_shape3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid2.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid2.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid2.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid2.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid2.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid2.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid2.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid2.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid2.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid2.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid2.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid2.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid2.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid2.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid2.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid2.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_buton1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_executa1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_buton2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="ck_nract" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="ck_nract2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_pereche" UniqueID="" Timestamp="" /> + + * + *p: col4 + *p: npereche + *p: sql_act + *p: sql_ireg + * + + * + BorderStyle = 1 + DoCreate = .T. + Height = 416 + Name = "afisdebsicred" + sql_act = '' + sql_ireg = '' + Width = 749 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 750 + _shape1.ZOrderSet = 1 + _shape2.Height = 29 + _shape2.Left = 715 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 34 + _shape2.ZOrderSet = 2 + Lb_titlu_alb_b121.Caption = "Pereche inregistrari" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.ZOrderSet = 3 + BUT_TERMIN1.Left = 719 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 1 + BUT_TERMIN1.ZOrderSet = 4 + GRIDSORT1.Name = "GRIDSORT1" + * + + ADD OBJECT '_grid1' AS _grid WITH ; + ColumnCount = 10, ; + DeleteMark = .F., ; + Height = 319, ; + HighlightStyle = 1, ; + Left = 12, ; + Name = "_grid1", ; + Panel = 1, ; + RecordSource = "v_actcd", ; + Top = 57, ; + Width = 363, ; + ZOrderSet = 5, ; + Column1.ControlSource = "dataact", ; + Column1.Name = "Column1", ; + Column1.Width = 64, ; + Column2.ControlSource = "nract", ; + Column2.Name = "Column2", ; + Column2.Width = 71, ; + Column3.ControlSource = "suma", ; + Column3.InputMask = "999 999 999 999.99", ; + Column3.Name = "Column3", ; + Column3.Width = 81, ; + Column4.BackColor = 252,253,200, ; + Column4.ControlSource = "", ; + Column4.Name = "Column4", ; + Column4.Width = 112, ; + Column5.ControlSource = "explicatia", ; + Column5.Name = "Column5", ; + Column5.Width = 96, ; + Column6.ControlSource = "scc", ; + Column6.Name = "Column6", ; + Column7.ControlSource = "scd", ; + Column7.Name = "Column7", ; + Column8.ControlSource = "", ; + Column8.Name = "Column8", ; + Column9.ControlSource = "dataireg", ; + Column9.Name = "Column9", ; + Column10.ControlSource = "fdoc", ; + Column10.Name = "Column10" + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="grid" /> + + ADD OBJECT '_grid1.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data act", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grid1.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grid1.Column10.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Fel doc", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grid1.Column10.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grid1.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. act", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grid1.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grid1.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Suma", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grid1.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grid1.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Document pereche", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grid1.Column4.Text1' AS textbox WITH ; + BackColor = 252,253,200, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grid1.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatia", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grid1.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grid1.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont cred", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grid1.Column6.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grid1.Column7.Header1' AS header WITH ; + Caption = "Cont deb", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grid1.Column7.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grid1.Column8.Header1' AS header WITH ; + Caption = "Explicatia 2", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grid1.Column8.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grid1.Column9.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data ireg", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grid1.Column9.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grid2' AS _grid WITH ; + ColumnCount = 8, ; + DeleteMark = .F., ; + Height = 319, ; + HighlightStyle = 1, ; + Left = 378, ; + Name = "_grid2", ; + Panel = 1, ; + RecordSource = "v_iregcd", ; + Top = 57, ; + Width = 356, ; + ZOrderSet = 5, ; + Column1.ControlSource = "dataact", ; + Column1.Name = "Column1", ; + Column1.Width = 66, ; + Column2.ControlSource = "nract", ; + Column2.Name = "Column2", ; + Column2.Width = 69, ; + Column3.ControlSource = "suma", ; + Column3.InputMask = "999 999 999 999.99", ; + Column3.Name = "Column3", ; + Column3.Width = 92, ; + Column4.ControlSource = "achitat", ; + Column4.InputMask = "999 999 999 999.99", ; + Column4.Name = "Column4", ; + Column4.Width = 91, ; + Column5.ControlSource = "fdoc", ; + Column5.Name = "Column5", ; + Column6.ControlSource = "dataireg", ; + Column6.Name = "Column6", ; + Column7.ControlSource = "explicatia", ; + Column7.Name = "Column7", ; + Column8.ControlSource = "acont", ; + Column8.Name = "Column8" + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="grid" /> + + ADD OBJECT '_grid2.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data act", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grid2.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grid2.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. doc", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grid2.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grid2.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Suma", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grid2.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grid2.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Achitat", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grid2.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grid2.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Fel doc", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grid2.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grid2.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data ireg", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grid2.Column6.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grid2.Column7.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatia", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grid2.Column7.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grid2.Column8.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Acont", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grid2.Column8.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_shape3' AS _shape WITH ; + Height = 372, ; + Left = 4, ; + Name = "_shape3", ; + Style = 3, ; + Top = 36, ; + Width = 741, ; + ZOrderSet = 0 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" /> + + ADD OBJECT 'ck_nract' AS ck_filtru_numar WITH ; + Alignment = 0, ; + camp_nume = nract, ; + Caption = "Nr. document", ; + Left = 99, ; + Name = "ck_nract", ; + Top = 40 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'ck_nract2' AS ck_filtru_numar WITH ; + Alignment = 0, ; + camp_nume = nract, ; + Caption = "Nr. document", ; + Left = 456, ; + Name = "ck_nract2", ; + Top = 40 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_pereche' AS ck_filtru_numar WITH ; + Alignment = 0, ; + camp_nume = pereche, ; + Caption = "Pereche", ; + Left = 240, ; + Name = "Ck_pereche", ; + Top = 40 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Cmd_buton1' AS cmd_buton WITH ; + caction = do_listare, ; + Caption = "\ + + ADD OBJECT 'Cmd_buton2' AS cmd_buton WITH ; + caction = do_excel, ; + Caption = "\ + + ADD OBJECT 'Cmd_executa1' AS cmd_executa WITH ; + Caption = "\ + + ADD OBJECT 'Lb_1' AS lb_titlu_alb_b12 WITH ; + Left = 23, ; + Name = "Lb_1", ; + Top = 36 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_2' AS lb_titlu_alb_b12 WITH ; + Left = 390, ; + Name = "Lb_2", ; + Top = 36 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + PROCEDURE Destroy + RELEASE pnPereche1,pnPereche2,pctitlu + + ENDPROC + + PROCEDURE do_cauta + STORE "" TO t1,t2,T3 + lcAct = this._grid1.RecordSource + lcIreg = this._grid2.RecordSource + + + IF thisform.ck_nract.Value=1 + T1 = T1 + thisform.ck_nract.filtru_vfp + ENDIF + if this.ck_pereche.Value=1 + lcControl = this._grid1.column4.ControlSource + val1 = thisform.ck_pereche.cvaloare1 + val2 = thisform.ck_pereche.cvaloare2 + T1=t1+" and (" + lcControl + ">=" + val1 + ") and (" + lcCOntrol +"<=" + val2 + ")" + endif + IF thisform.ck_nract2.Value=1 + T2 = T2 + thisform.ck_nract2.filtru_vfp + ENDIF + + SELECT (lcAct) + IF !EMPTY(t1) + t1=SUBSTR(t1,5) + ELSE + t1=".t." + ENDIF + + SELECT (lcAct) + SET FILTER TO &t1 + *!* SUM suma TO totsumdeb + *!* GO BOTTOM + + + SELECT (lcIreg) + IF !EMPTY(t2) + t2=SUBSTR(t2,5) + ELSE + t2=".t." + ENDIF + SELECT (lcIreg) + SET FILTER TO &t2 + *!* SUM suma TO totsumcred + + *!* GO BOTTOM + thisform.Refresh + ENDPROC + + PROCEDURE do_excel + lcIreg = This._grid2.RecordSource + If Reccount(lcIreg)>0 + Thisform.AlwaysOnTop=.F. + Private pctitlu,pcDataOra + pctitlu = Thisform.lb_2.Caption + pcDataOra = get_ora(2) + Select (lcIreg) + Report Form ist_deb_cred To Printer Prompt Preview + Thisform.AlwaysOnTop=.T. + Else + amessagebox("Nu exista inregistrari pentru export in Excel!",48,"Atentie") + Endif + + ENDPROC + + PROCEDURE do_executa + PRIVATE pcPereche + SELECT v_actcd + SCATTER NAME pcPereche + + lcPereche = thisform._GRID1.coluMN4.ControlSource + + opereche = CREATEOBJECT('cautper') + + + SELECT v_iregcd + LOCATE FOR nract = pcPereche.&lcPereche + opereche.pereche = lcPereche + + *!* opereche.lb._cbbase1.controlsource = 'pcPereche.&lcPereche' + + opereche.show(1) + + IF buton = 1 + thisform.LockScreen = .T. + save_grid(this._grid1) + SAVE_grid(this._grid2) + USE IN v_actcd + lcSql = this.sql_act + lcCursor = [v_actcd] &&Act + lnSucces = goExecutor.oExecute(lcSql,lcCursor) + goExecutor.oReset() + + USE IN v_iregcd + lcSql = this.sql_ireg + lcCursor = [v_iregcd] &&Ireg + lnSucces = goExecutor.oExecute(lcSql,lcCursor) + goExecutor.oReset() + restore_grid(this._grid1) + restore_grid(this._grid2) + thisform.LockScreen = .F. + ENDIF + RELEASE opereche + ENDPROC + + PROCEDURE do_listare + thisform.AlwaysOnTop=.f. + PRIVATE pctitlu,pcdataora + pcdataora=get_ora(2) + pctitlu = thisform.lb_1.Caption + lcAct = this._grid1.RecordSource + SELECT (lcAct) + REPORT FORM ist_deb_cred TO PRINTER PROMPT PREVIEW + thisform.AlwaysOnTop=.t. + + ENDPROC + + PROCEDURE ck_nract.Click + thisform.do_cauta + ENDPROC + + PROCEDURE ck_nract2.Click + thisform.do_cauta + ENDPROC + + PROCEDURE Ck_pereche.Click + thisform.do_cauta + ENDPROC + + PROCEDURE _grid1.AfterRowColChange + LPARAMETERS nColIndex + thisform._grid1.SetAll('DynamicBackColor','IIF(.t.,RGB(255,255,255),RGB(255,255,255))','column') + thisform._grid1.column4.BackColor =RGB(252,253,200) + + lcAct = this.RecordSource + lcIreg = thisform._grid2.RecordSource + thisform.npereche = EVALUATE(this.column4.ControlSource) + SELECT (lcIreg) + thisform._grid2.SetAll('DynamicBackColor','iif(nract=thisform.npereche,RGB(191,223,255),RGB(255,255,255))','column') + SELECT (lcAct) + thisform.Refresh + ENDPROC + + PROCEDURE _grid2.AfterRowColChange + LPARAMETERS nColIndex + thisform._grid2.SetAll('DynamicBackColor','IIF(.t.,RGB(255,255,255),RGB(255,255,255))','column') + + lcIreg = this.RecordSource + lcAct = thisform._grid1.RecordSource + *!* this.SetAll("DynamicBackColor","IIF(thisform.rec=RECNO(), RGB(191,223,255) , RGB(255,255,255))", "Column") + thisform.npereche = EVALUATE(this.column2.ControlSource) + thisform.col4=thisform._grid1.column4.ControlSource + SELECT (lcAct) + thisform._grid1.SetAll('DynamicBackColor','iif(EVALUATE(thisform.col4) =thisform.npereche,RGB(191,223,255),RGB(255,255,255))','column') + SELECT (lcIreg) + thisform.Refresh + ENDPROC + +ENDDEFINE + +DEFINE CLASS cautper 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="lb" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + + * + *p: pereche + *p: valoare + * + + * + BorderStyle = 1 + DoCreate = .T. + Height = 89 + Name = "cautper" + pereche = + valoare = 0 + Width = 352 + _shape1.BorderStyle = 2 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 351 + _shape2.Height = 29 + _shape2.Left = 291 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 62 + Lb_titlu_alb_b121.Caption = "Pereche" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 4 + BUT_TERMIN1.Left = 321 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 2 + BUT_TERMIN1.Top = 1 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Left = 291, ; + Name = "But_renunt1", ; + TabIndex = 3, ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'lb' AS cb_tx_simplu WITH ; + Left = 32, ; + Name = "lb", ; + TabIndex = 1, ; + Top = 48, ; + _cbbase1.Name = "_cbbase1", ; + _cbbase1.RowSource = "v_iregcd.nract", ; + _cbbase1.RowSourceType = 2, ; + _lbbase1.Caption = "Pereche", ; + _lbbase1.Name = "_lbbase1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + PROCEDURE inainte_de_do_termin + + lcCod = pcPereche.cod + update_actper(lcCod) + + lnSucces = sqlsetprop(gnhandle,"Transactions",2) + + SELECT actactan + IF lnSucces > 0 + lnSucces = oscrie_in_fisiere(2,.t.) + ENDIF + + IF lnSucces >0 + lcSql = [delete from act_temp] + lnSucces = SQLEXEC(gnHandle,lcSql) + ENDIF + + IF lnSucces>0 + SELECT actactan + LOCATE FOR id_act = pcPereche.id_act + IF FOUND() + GATHER NAME pcPereche + REPLACE id_util WITH gnidutil + ENDIF + lnSucces = oscrie_in_fisiere(0,.t.) + ENDIF + + IF lnSucces < 0 + SQLROLLBACK(gnhandle) + llReturn = .f. + ELSE + SQLCOMMIT(gnhandle) + llReturn = .t. + ENDIF + + lnSucces = sqlsetprop(gnhandle,"Transactions",1) + IF lnSucces < 0 + aMESSAGEBOX('Programul a trecut pe tranzactie manuala. Iesiti si intrati din nou!',48,'Atentie!') + ENDIF + + RETURN llReturn + + ENDPROC + + PROCEDURE lb._cbbase1.LostFocus + lcPereche = thisform.pereche + pcPereche.&lcPereche = v_iregcd.nract + ENDPROC + +ENDDEFINE + +DEFINE CLASS teste_ireg 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="_listbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_executa1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> + + * + *m: init_mesaj + *m: init_test + *m: init_test_inregistrari + *m: istoric + *p: activ + *p: lcont + * + + * + BorderStyle = 1 + DoCreate = .T. + Height = 395 + Name = "teste_ireg" + Width = 553 + _shape1.Height = 29 + _shape1.Left = -1 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 565 + _shape2.Height = 29 + _shape2.Left = 486 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 68 + Lb_titlu_alb_b121.Caption = "Test inregistrari" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + BUT_TERMIN1.Left = 522 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 1 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT '_listbox1' AS _listbox WITH ; + AutoHideScrollbar = 1, ; + Height = 315, ; + Left = 12, ; + Name = "_listbox1", ; + ToolTipText = (this.value), ; + Top = 48, ; + Width = 528 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="listbox" /> + + ADD OBJECT 'But_listare1' AS but_listare WITH ; + Left = 490, ; + Name = "But_listare1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmd_executa1' AS cmd_executa WITH ; + Caption = "\ + + PROCEDURE Destroy + IF USED('crslistare') + USE IN crslistare + ENDIF + ENDPROC + + PROCEDURE do_executa + + IF thisform._listbox1.listcount = 0 + thisform.Cmd_executa1.Enabled = .f. + ELSE + thisform.Cmd_executa1.Enabled = .t. + IF thisform._listbox1.listindex = 0 + ofrm_mes = CREATEOBJECT('frm_mesaj','Atentie','exclam.ico','Avertizare','Selectati un item din lista!') + ofrm_mes.show(1) + RELEASE ofrm_mes + ELSE + lcId_part = thisform.lam[ceiling(thisform._listbox1.listindex/2),3] + * lcCont = thisform.lcont + lcCont = thisform.lam[ceiling(thisform._listbox1.listindex/2),4] + lcAcont = thisform.lam[ceiling(thisform._listbox1.listindex/2),5] + lcActiv = thisform.activ + * WAIT WINDOW "Id : " + lcId_part + " Cont : " + lcCont + " Activ : " + lcActiv + thisform.istoric(lcCont,lcAcont,lcId_part,lcActiv) + ENDIF + ENDIF + + ENDPROC + + PROCEDURE do_listare + Thisform.AlwaysOnTop=.F. + *!* gofundal.AlwaysOnTop=.F. + pcTitlu = thisform.lb_titlu_alb_b121.Caption + pcDataOra=get_ora(2) + Select crslistare + Report Format rap_teste To Printer Prompt Preview + *!* gofundal.AlwaysOnTop=.T. + Thisform.AlwaysOnTop=.T. + ENDPROC + + PROCEDURE Init + LPARAMETERS taMesaje,tcCont,tnActiv + DODEFAULT() + + IF !EMPTY(tcCont) AND PCOUNT() > 2 + this.init_test_inregistrari(@taMesaje,tcCont,tnActiv) + ELSE + this.init_mesaj(@taMesaje) + ENDIF + ENDPROC + + PROCEDURE init_mesaj + PARAMETERS taMesaje + LOCAL ICtr + + this.cmd_executa1.Visible = .f. + + EXTERNAL ARRAY taMesaje + + lnLen = aLEN(taMesaje) &&Lungime array parametru + DIMENSION laM(lnLen,1) + ADDPROPERTY(thisform,'lam(lnLen,1)') + + CREATE CURSOR crslistare (explicatie1 c(50),explicatie2 c(20),mesaj c(100)) + + FOR ICtr = 1 TO lnLen + lcSeparator = AT(';',taMesaje[Ictr]) &&Primu separator + lcMesaj = LEFT(taMesaje[Ictr],lcSeparator-1) + + lam[Ictr,1] = lcMesaj + + thisform._listbox1.AddItem(laM[Ictr,1]) + thisform.lam[Ictr,1] = laM[Ictr,1] + + IF '--' $ laM[Ictr,1] + lcmesaj = [] + lcExp1 = laM[Ictr,1] + ELSE + lcmesaj = laM[Ictr,1] + lcExp1 = [] + ENDIF + INSERT INTO crslistare(explicatie1,explicatie2,mesaj) values(lcExp1,'',lcmesaj) + ENDFOR + ENDPROC + + PROCEDURE init_test + ENDPROC + + PROCEDURE init_test_inregistrari + PARAMETERS taMesaje, tcCont, tnActiv + + LOCAL ICtr, lcId_part, lcCont, lcAcont + + EXTERNAL ARRAY taMesaje + + thisform.lcont=TcCont + thisform.activ = ALLTRIM(STR(tnActiv)) + + lnLen = aLEN(taMesaje) &&Lungime array parametru + DIMENSION laM(lnLen,7) + + ADDPROPERTY(thisform,'lam(lnLen,7)') + IF USED('crslistare') + USE IN crslistare + ENDIF + *CREATE CURSOR crslistare (nume c(50),acont c(4),mesaj c(100)) + CREATE CURSOR crslistare (explicatie1 c(50),explicatie2 c(30),mesaj c(100)) + + FOR ICtr = 1 TO lnLen + * ID_SUCURSALA, SUCURSALA, ID_PARTENER, PARTENER, CONT, ACONT, SOLD_BALANTA, SOLD_INREGISTRARI + lcLinie = taMesaje[Ictr] + lnItems = ALINES(laItems, lcLinie, 1, ';') + lcIdSucursala = laItems[1] + lcSucursala = laItems[2] + lcId_part = laItems[3] + lcPart = laItems[4] + lcCont = laItems[5] + lcAcont = UPPER(ALLTRIM(laItems[6])) + lcAcont = IIF(lcAcont = 'XXXX', '', lcAcont) + lcSoldBal = laItems[7] + lcSoldIreg = laItems[8] + + lcSold = "Sold balanta : " + lcSoldBal + " Sold inregistrari : " + lcSoldIreg + " Diferenta : " +; + ALLTRIM(STR(VAL(lcSoldBal) - VAL(lcSoldIreg),14,gnPa)) + + * to_char(item.id_sucursala) || ';' || item.sucursala || ';' || to_char(item.id_part) || ';' || item.nume || ';' || item.cont || ';' || + * item.acont || ';' || lnDiferentaB || ';' || lnDiferentaI || '*' + + laM[Ictr,1] = lcPart + laM[Ictr,2] = lcSold + laM[Ictr,3] = lcId_part + laM[Ictr,4] = lcCont + laM[Ictr,5] = lcAcont + laM[Ictr,6] = lcIdSucursala + laM[Ictr,7] = lcSucursala + + && SUCURSALA - NUME - CONT - ACONT + lcNumesiAna = lcPart + IIF(!EMPTY(lcSucursala), ' (' + lcSucursala + ')', '') + [ - ] + lcCont + IIF(!EMPTY(lcAcont), [.] + lcAcont, '') + thisform._listbox1.AddItem(lcNumesiAna) + && SOLD_BALANTA | SOLD_INREGISTRARI | DIFERENTA + thisform._listbox1.AddItem(laM[Ictr,2]) + thisform.lam[Ictr,1] = laM[Ictr,1] + thisform.lam[Ictr,2] = laM[Ictr,2] + thisform.lam[Ictr,3] = laM[Ictr,3] + thisform.lam[Ictr,4] = laM[Ictr,4] + thisform.lam[Ictr,5] = laM[Ictr,5] + thisform.lam[Ictr,6] = laM[Ictr,6] + thisform.lam[Ictr,7] = laM[Ictr,7] + + INSERT INTO crslistare(explicatie1,explicatie2,mesaj) values(lcPart + IIF(!EMPTY(lcSucursala), ' (' + lcSucursala + ')', '') ,lcCont + IIF(!EMPTY(lcAcont), [.] + lcAcont, ''), lcSold) + ENDFOR + + + *!* LOCAL ICtr + + *!* EXTERNAL ARRAY taMesaje + + *!* thisform.lcont=TcCont + *!* thisform.activ = ALLTRIM(STR(tnActiv)) + + *!* lnLen = aLEN(taMesaje) &&Lungime array parametru + *!* DIMENSION laM(lnLen,4) + + *!* ADDPROPERTY(thisform,'lam(lnLen,4)') + *!* IF USED('crslistare') + *!* USE IN crslistare + *!* ENDIF + *!* *CREATE CURSOR crslistare (nume c(50),acont c(4),mesaj c(100)) + *!* CREATE CURSOR crslistare (explicatie1 c(50),explicatie2 c(20),mesaj c(100)) + + + *!* FOR ICtr = 1 TO lnLen + *!* lcSeparator = AT(';',taMesaje[Ictr]) &&Primu separator + *!* lcId_part = LEFT(taMesaje[Ictr],lcSeparator-1) &&Id partener + *!* lcAcont = STREXTRACT(taMesaje[Ictr],';',';',1) &&Analitic + + *!* lcSql = [select id_part,nume from ] + gcS + [.vnom_parteneri where id_part = ] + lcId_Part + *!* lcCursor = [crsParteneri] + *!* lnSucces = goExecutor.oExecute(lcSql,lcCursor) + *!* IF lnSucces > 0 + *!* SELECT crsParteneri + *!* GO top + *!* laM[Ictr,1] = UPPER(ALLTRIM(nume)) && Nume Partener + *!* laM[Ictr,3] = lcId_part + *!* laM[Ictr,4] = lcAcont + *!* ELSE + *!* aMESSAGEBOX(goExecutor.cEroare,0+16,'Eroare') + *!* laM[Ictr,1] = "" && Nume Partener + *!* laM[Ictr,3] = lcId_part + *!* laM[Ictr,4] = lcAcont + *!* ENDIF + *!* IF USED('crsParteneri') + *!* USE IN crsParteneri + *!* ENDIF + *!* lcSoldBal = STREXTRACT(taMesaje[Ictr],';',';',2) &&Sold balanta parteneri + *!* lcSeparator3 = AT(';',taMesaje[Ictr],3) && Al 3-lea separator + *!* lcSoldIreg = STRTRAN(SUBSTR(taMesaje[Ictr],lcSeparator3+1),'*','') &&Sold inregistrari parteneri + *!* lam[Ictr,2] = "Sold balanta : " + lcSoldBal + " Sold inregistrari : " + lcSoldIreg + " Diferenta : " +; + *!* ALLTRIM(STR(VAL(lcSoldBal) - VAL(lcSoldIreg),14,gnPa)) + + *!* IF !EMPTY(lcAcont) AND ALLTRIM(UPPER(lcAcont)) # 'XXXX' + *!* lcNumesiAna = laM[Ictr,1] + [ - Analitic ] + lcAcont + *!* ELSE + *!* lcNumesiAna = laM[Ictr,1] + *!* ENDIF + *!* * thisform._listbox1.AddItem(laM[Ictr,1]) + *!* thisform._listbox1.AddItem(lcNumesiAna) + *!* thisform._listbox1.AddItem(laM[Ictr,2]) + *!* thisform.lam[Ictr,1] = laM[Ictr,1] + *!* thisform.lam[Ictr,2] = laM[Ictr,2] + *!* thisform.lam[Ictr,3] = laM[Ictr,3] + *!* thisform.lam[Ictr,4] = laM[Ictr,4] + *!* + *!* INSERT INTO crslistare(explicatie1,explicatie2,mesaj) values(laM[Ictr,1],[Analitic - ] + laM[Ictr,4],laM[Ictr,2]) + *!* ENDFOR + ENDPROC + + PROCEDURE istoric + LPARAMETERS tcCont,tcAnalitic,tnId,tcActiv + + lcCont = ALLTRIM(tcCont) + lcAcont = ALLTRIM(tcAnalitic) + IF EMPTY(lcAcont) OR ISNULL(lcAcont) + lcAcont = 'xxxx' + ENDIF + lcId = ALLTRIM(tnId) + lnActiv = VAL(tcActiv) + + PRIVATE pnPereche1,pnPereche2 + STORE 0 TO pnPereche1,pnPereche2 + + THIS.ALWAYSONTOP=.F. + + DO CASE + CASE lnActiv = 0 && + PRIVATE pccond + + lcSql_i = [select id_part,nume as partc,'' as partd,dataact,nract,dataireg,preccred+credit as suma,precdeb+debit as achitat,cont as scc, '' as scd, acont,fdoc,explicatia ]+; + [ from vireg_parteneri where id_part=] + lcId + [ and cont = '] + lcCont + [' and NVL(acont,'xxxx') = '] + lcAcont + [' and an = ] + ALLTRIM(STR(gnAn)) + [ and luna = ] + ALLTRIM(STR(gnLuna)) + ; + [ order by dataireg] + + lcCursor = [v_iregcd] &&Ireg_parteneri + lnSucces = goExecutor.oExecute(lcSql_i,lcCursor) + goExecutor.oReset() + + lcSql_a = [select a.dataact,a.nract,a.suma,a.explicatia,a.id_act,a.cod,a.scd,a.scc,a.dataireg,a.fdoc,a.partd,a.pereched from ] + ; + gcS + [.vact a where a.id_partd = ] + lcId + [ and a.scd = '] + lcCont + [' and NVL(a.ascd,'xxxx') = '] + lcAcont + [' and a.an = ] + ALLTRIM(STR(gnAn)) + [ and a.luna = ] + ALLTRIM(STR(gnLuna)) +; + [ order by a.dataact] + + lcCursor = [v_actcd] &&Act + lnSucces = goExecutor.oExecute(lcSql_a,lcCursor) + goExecutor.oReset() + + pcPereche='pereched' + ORC=CREATEOBJ("AFisDEBsiCRED") + ORC._grid1.column4.CONTROLSOURCE = 'pereched' + ORC.lb_2.CAPTION='CREDIT' + ORC.lb_1.CAPTION='DEBIT' + ORC.Sql_act = lcSql_a + ORC.Sql_ireg = lcSql_i + + CASE lnActiv = 1 && + PRIVATE pccond + + lcSql_i = [select id_part,nume as partd, '' as partc, dataact,nract,dataireg,precdeb+debit as suma,preccred+credit as achitat,cont as scd, '' as scc, acont,fdoc,explicatia ] +; + [ from vireg_parteneri where id_part=] + lcId + [ and cont = '] + lcCont + [' and NVL(acont,'xxxx') = '] + lcAcont + [' and an = ] + ALLTRIM(STR(gnAn)) + [ and luna = ] + ALLTRIM(STR(gnLuna)) + ; + [ order by dataireg] + + lcCursor = [v_iregcd] &&Ireg_parteneri + lnSucces = goExecutor.oExecute(lcSql_i,lcCursor) + goExecutor.oReset() + + lcSql_a = [select a.partd,a.dataact,a.nract,a.suma,a.explicatia,a.id_act,a.cod,a.scd,a.scc,a.dataireg,a.fdoc,a.partc,a.perechec from ] + ; + gcS + [.vact a where a.id_partc = ] + lcId + [ and a.scc = '] + lcCont + [' and NVL(a.ascc,'xxxx') = '] + lcAcont + [' and a.an = ] + ALLTRIM(STR(gnAn)) + [ and a.luna = ] + ALLTRIM(STR(gnLuna)) +; + [ order by a.dataact] + + lcCursor = [v_actcd] &&Act + lnSucces = goExecutor.oExecute(lcSql_a,lcCursor) + goExecutor.oReset() + + pcPereche='perechec' + ORC=CREATEOBJ("AFisDEBsiCRED") + ORC._grid1.column4.CONTROLSOURCE = 'perechec' + ORC.lb_1.CAPTION='CREDIT' + ORC.lb_2.CAPTION='DEBIT' + ORC.Sql_act = lcSql_a + ORC.Sql_ireg = lcSql_i + ENDCASE + + ORC.SHOW(1) + + + + + ENDPROC + +ENDDEFINE diff --git a/Clase/ovanzcump.vc2 b/Clase/ovanzcump.vc2 new file mode 100644 index 0000000..bb021ab --- /dev/null +++ b/Clase/ovanzcump.vc2 @@ -0,0 +1,55154 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="ovanzcump.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS cnt_facturi_dupa_inspectie AS container + *< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" /> + + * + Height = 74 + Name = "cnt_facturi_dupa_inspectie" + Width = 416 + * + + ADD OBJECT 'Label1' AS label WITH ; + AutoSize = .T., ; + Caption = "Facturi emise dupa inspectia tehnica, cf. art. 159 alin. (3) din Codul Fiscal ", ; + Height = 17, ; + Left = 7, ; + Name = "Label1", ; + TabIndex = 4, ; + Top = 4, ; + Width = 405 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label2' AS label WITH ; + AutoSize = .T., ; + Caption = "Numar total facturi emise", ; + Height = 17, ; + Left = 7, ; + Name = "Label2", ; + TabIndex = 5, ; + Top = 24, ; + Width = 140 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label3' AS label WITH ; + AutoSize = .T., ; + Caption = "Total baza de impozitare", ; + Height = 17, ; + Left = 152, ; + Name = "Label3", ; + TabIndex = 6, ; + Top = 25, ; + Width = 135 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label4' AS label WITH ; + AutoSize = .T., ; + Caption = "Total TVA aferenta", ; + Height = 17, ; + Left = 297, ; + Name = "Label4", ; + TabIndex = 7, ; + Top = 24, ; + Width = 101 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Shape1' AS shape WITH ; + Height = 46, ; + Left = 4, ; + Name = "Shape1", ; + Top = 22, ; + Width = 408 + *< END OBJECT: BaseClass="shape" /> + + ADD OBJECT 'Text1' AS textbox WITH ; + ControlSource = "pnNr_facturi", ; + Format = "rk", ; + Height = 23, ; + InputMask = "999 999 999", ; + Left = 18, ; + Name = "Text1", ; + TabIndex = 1, ; + Top = 40, ; + Width = 119 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text2' AS textbox WITH ; + ControlSource = "pnBaza", ; + Format = "rk", ; + Height = 23, ; + InputMask = "999 999 999", ; + Left = 160, ; + Name = "Text2", ; + TabIndex = 2, ; + Top = 40, ; + Width = 119 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text3' AS textbox WITH ; + ControlSource = "pnTVA", ; + Format = "rk", ; + Height = 23, ; + InputMask = "999 999 999", ; + Left = 289, ; + Name = "Text3", ; + TabIndex = 3, ; + Top = 40, ; + Width = 119 + *< END OBJECT: BaseClass="textbox" /> + +ENDDEFINE + +DEFINE CLASS frm_dateidentificare 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="Label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtCodi" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtDeni" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtAdr" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtTelf" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label15" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cboCaen" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label17" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtIntocmitf" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label12" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label18" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtCalintoc" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtBanca" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtCont" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" /> + + * + *p: ccaen + *p: ccalintoc + *p: cfpropr + *p: cjudet + *p: ctip + * + + * + BorderStyle = 1 + ccaen = + ccalintoc = + cfpropr = + cjudet = + ctip = + DoCreate = .T. + Height = 330 + Name = "frm_dateidentificare" + Width = 599 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 600 + _shape2.Height = 29 + _shape2.Left = 537 + _shape2.Name = "_shape2" + _shape2.Top = -1 + _shape2.Width = 63 + Lb_titlu_alb_b121.Caption = "Date de identificare" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 12 + BUT_TERMIN1.Left = 569 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 10 + BUT_TERMIN1.Top = 1 + Gridsort1.Left = 216 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 8 + * + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Anchor = 9, ; + Left = 539, ; + Name = "But_renunt1", ; + TabIndex = 11, ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'cboCaen' AS combobox WITH ; + ControlSource = "thisform.cCaen", ; + FontName = "Times New Roman", ; + FontSize = 10, ; + Height = 23, ; + Left = 170, ; + Name = "cboCaen", ; + RowSource = "crsCodCaen.codCaen", ; + RowSourceType = 2, ; + Style = 2, ; + TabIndex = 7, ; + Top = 233, ; + Width = 415 + *< END OBJECT: BaseClass="combobox" /> + + ADD OBJECT 'Label1' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Cod de identificare fiscala", ; + FontBold = .T., ; + FontName = "Times New Roman", ; + FontSize = 10, ; + Height = 18, ; + Left = 9, ; + Name = "Label1", ; + TabIndex = 13, ; + Top = 41, ; + Width = 143 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label12' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Tel., Fax, E-mail", ; + FontBold = .T., ; + FontName = "Times New Roman", ; + FontSize = 10, ; + Height = 18, ; + Left = 9, ; + Name = "Label12", ; + TabIndex = 17, ; + Top = 158, ; + Width = 89 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label15' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Grupa CAEN", ; + FontBold = .T., ; + FontName = "Times New Roman", ; + FontSize = 10, ; + Height = 18, ; + Left = 9, ; + Name = "Label15", ; + TabIndex = 20, ; + Top = 235, ; + Width = 73 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label17' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Nume, prenume", ; + FontName = "Times New Roman", ; + FontSize = 10, ; + Height = 18, ; + Left = 9, ; + Name = "Label17", ; + TabIndex = 21, ; + Top = 278, ; + Width = 85 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label18' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Functia", ; + FontName = "Times New Roman", ; + FontSize = 10, ; + Height = 18, ; + Left = 9, ; + Name = "Label18", ; + TabIndex = 23, ; + Top = 303, ; + Width = 42 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label2' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "(judet/sector, localitate, strada, nr, bloc, scara, ap, cod postal)", ; + FontName = "Times New Roman", ; + FontSize = 10, ; + Height = 18, ; + Left = 213, ; + Name = "Label2", ; + TabIndex = 22, ; + Top = 135, ; + Width = 328 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label3' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Denumire / Nume, prenume", ; + FontBold = .T., ; + FontName = "Times New Roman", ; + FontSize = 10, ; + Height = 18, ; + Left = 9, ; + Name = "Label3", ; + TabIndex = 14, ; + Top = 72, ; + Width = 154, ; + WordWrap = .T. + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label4' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Banca", ; + FontBold = .T., ; + FontName = "Times New Roman", ; + FontSize = 10, ; + Height = 18, ; + Left = 9, ; + Name = "Label4", ; + TabIndex = 16, ; + Top = 184, ; + Width = 36 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label5' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Domiciliu fiscal", ; + FontBold = .T., ; + FontName = "Times New Roman", ; + FontSize = 10, ; + Height = 18, ; + Left = 9, ; + Name = "Label5", ; + TabIndex = 15, ; + Top = 116, ; + Width = 89 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label6' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Cont", ; + FontBold = .T., ; + FontName = "Times New Roman", ; + FontSize = 10, ; + Height = 18, ; + Left = 9, ; + Name = "Label6", ; + TabIndex = 18, ; + Top = 209, ; + Width = 28 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label7' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Declarant", ; + FontBold = .T., ; + FontName = "Times New Roman", ; + FontSize = 10, ; + Height = 18, ; + Left = 9, ; + Name = "Label7", ; + TabIndex = 19, ; + Top = 260, ; + Width = 56 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'txtAdr' AS textbox WITH ; + ControlSource = "pounitate.adr", ; + FontName = "Times New Roman", ; + FontSize = 10, ; + Format = "!k", ; + Height = 23, ; + Left = 170, ; + Name = "txtAdr", ; + TabIndex = 3, ; + Top = 114, ; + Width = 415 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtBanca' AS textbox WITH ; + ControlSource = "pounitate.banca", ; + FontName = "Times New Roman", ; + FontSize = 10, ; + Format = "k", ; + Height = 23, ; + Left = 170, ; + Name = "txtBanca", ; + TabIndex = 5, ; + Top = 182, ; + Width = 415 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtCalintoc' AS textbox WITH ; + ControlSource = "pounitate.calIntoc", ; + FontName = "Times New Roman", ; + FontSize = 10, ; + Format = "!k", ; + Height = 23, ; + Left = 170, ; + Name = "txtCalintoc", ; + TabIndex = 9, ; + Top = 301, ; + Width = 415 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtCodi' AS textbox WITH ; + ControlSource = "pounitate.codi", ; + FontName = "Times New Roman", ; + FontSize = 10, ; + Format = "kr", ; + Height = 23, ; + InputMask = "9999999999", ; + Left = 170, ; + Name = "txtCodi", ; + TabIndex = 1, ; + Top = 39, ; + Width = 129 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtCont' AS textbox WITH ; + ControlSource = "pounitate.cont", ; + FontName = "Times New Roman", ; + FontSize = 10, ; + Format = "k", ; + Height = 23, ; + Left = 170, ; + Name = "txtCont", ; + TabIndex = 6, ; + Top = 207, ; + Width = 415 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtDeni' AS textbox WITH ; + ControlSource = "pounitate.deni", ; + FontName = "Times New Roman", ; + FontSize = 10, ; + Format = "!k", ; + Height = 46, ; + Left = 170, ; + Name = "txtDeni", ; + TabIndex = 2, ; + Top = 65, ; + Width = 415 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtIntocmitf' AS textbox WITH ; + ControlSource = "pounitate.intocmitf", ; + FontName = "Times New Roman", ; + FontSize = 10, ; + Format = "!k", ; + Height = 23, ; + Left = 170, ; + Name = "txtIntocmitf", ; + TabIndex = 8, ; + Top = 276, ; + Width = 415 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtTelf' AS textbox WITH ; + ControlSource = "pounitate.telf", ; + FontName = "Times New Roman", ; + FontSize = 10, ; + Format = "k", ; + Height = 23, ; + Left = 170, ; + Name = "txtTelf", ; + TabIndex = 4, ; + Top = 156, ; + Width = 415 + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE inainte_de_do_termin + pounitate.caen = Left(crsCodCaen.codCaen,4) + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_decl100_102 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="edtInfo" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cmdDeschidPDF" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cmdPDF102" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cValoare.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cValoare.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cTVA.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cTVA.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cDataScad.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cDataScad.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cNrEvidenta.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cNrEvidenta.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Command3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cmdPDF100" UniqueID="" Timestamp="" /> + + * + *m: afiseaza_mesaj + *m: do_genereaza_xdp + *m: do_genereaza_xdp_201111 + *m: do_genereaza_xml + *m: getnrevidenta && Generare nr evidenta a platii pentru un impozit + *m: totaluri + *m: updateinfo + *m: updatepdf + *p: cd100pdf + *p: cd100rezultat + *p: cd100rezultatfile + *p: cfisierxml + *p: ltrim + *p: ndecl + *p: noldvalue + * + + * + BorderStyle = 3 + cd100pdf = '' + cd100rezultat = '' + cd100rezultatfile = '' + cfisierxml = '' + DoCreate = .T. + Height = 593 + ltrim = .F. + Name = "frm_decl100_102" + ndecl = 0 + noldvalue = 0 + Width = 744 + _memberdata = + + + + + + + + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 749 + _shape1.ZOrderSet = 0 + _shape2.Anchor = 9 + _shape2.Height = 29 + _shape2.Left = 650 + _shape2.Name = "_shape2" + _shape2.Top = -1 + _shape2.Width = 94 + _shape2.ZOrderSet = 1 + Lb_titlu_alb_b121.Caption = "Declaratiile 100, 102 privind obligatiile de plata la BS si BASFS" + Lb_titlu_alb_b121.Left = 9 + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 7 + Lb_titlu_alb_b121.Top = 7 + Lb_titlu_alb_b121.ZOrderSet = 5 + BUT_TERMIN1.Anchor = 9 + BUT_TERMIN1.Left = 713 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 4 + BUT_TERMIN1.Top = 0 + BUT_TERMIN1.ZOrderSet = 6 + Gridsort1.Left = 204 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 5 + * + + ADD OBJECT '_grdrow1' AS _grdrow WITH ; + Anchor = 15, ; + ColumnCount = 6, ; + DeleteMark = .F., ; + Height = 448, ; + Left = 9, ; + Name = "_grdrow1", ; + Panel = 1, ; + RecordSource = "cDecl", ; + TabIndex = 1, ; + Top = 34, ; + Width = 725, ; + ZOrderSet = 8, ; + Column1.ControlSource = "rand", ; + Column1.Name = "Column1", ; + Column1.ReadOnly = .T., ; + Column1.Width = 41, ; + Column2.ControlSource = "denumire", ; + Column2.Name = "Column2", ; + Column2.ReadOnly = .T., ; + Column2.Width = 430, ; + Column3.ControlSource = "datorat", ; + Column3.DynamicBackColor = "iif(inactivB=1,rgb(225,225,225),rgb(255,255,255))", ; + Column3.Format = "rk", ; + Column3.InputMask = "999 999 999", ; + Column3.Name = "cValoare", ; + Column3.Width = 116, ; + Column4.ControlSource = "recuperat", ; + Column4.Format = "rk", ; + Column4.InputMask = "999 999 999", ; + Column4.Name = "cTVA", ; + Column4.Width = 102, ; + Column5.ControlSource = "datascad", ; + Column5.Name = "cDataScad", ; + Column5.Width = 91, ; + Column6.ControlSource = "nr_evidenta", ; + Column6.Name = "cNrEvidenta", ; + Column6.Width = 202 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_grdrow1.cDataScad.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data scadenta", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.cDataScad.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.cNrEvidenta.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. Evidenta a platii", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.cNrEvidenta.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Rand", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Denumire indicatori", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.cTVA.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "De recuperat", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.cTVA.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.cValoare.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Datorata", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.cValoare.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'But_excel1' AS but_excel WITH ; + Anchor = 9, ; + Left = 682, ; + Name = "But_excel1", ; + TabIndex = 5, ; + Top = 0, ; + ZOrderSet = 12 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_listare1' AS but_listare WITH ; + Anchor = 9, ; + Enabled = .F., ; + Left = 653, ; + Name = "But_listare1", ; + TabIndex = 6, ; + Top = 0, ; + ZOrderSet = 9 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'cmdDeschidPDF' AS cmd_executa WITH ; + Anchor = 0, ; + Caption = "Deschide PDF", ; + Enabled = .F., ; + FontBold = .F., ; + FontSize = 8, ; + ForeColor = 0,0,255, ; + Height = 39, ; + Left = 636, ; + Name = "cmdDeschidPDF", ; + Top = 492, ; + Visible = .F., ; + Width = 72, ; + WordWrap = .T., ; + ZOrderSet = 3 + *< END OBJECT: ClassLib="..\..\roadecl\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'cmdPDF100' AS cmd_executa WITH ; + Alignment = 2, ; + Anchor = 12, ; + Caption = "Export \ + + ADD OBJECT 'cmdPDF102' AS cmd_executa WITH ; + Alignment = 2, ; + Anchor = 12, ; + Caption = "Export \ + + ADD OBJECT 'Command1' AS commandbutton WITH ; + Anchor = 4, ; + Caption = "Datele de identificare ale firmei", ; + Height = 27, ; + Left = 13, ; + Name = "Command1", ; + TabIndex = 2, ; + Top = 485, ; + Visible = .F., ; + Width = 188, ; + ZOrderSet = 10 + *< END OBJECT: BaseClass="commandbutton" /> + + ADD OBJECT 'Command3' AS commandbutton WITH ; + Anchor = 4, ; + Caption = "Export in fisiere text", ; + ForeColor = 0,0,255, ; + Height = 27, ; + Left = 72, ; + Name = "Command3", ; + TabIndex = 3, ; + Top = 485, ; + Visible = .F., ; + Width = 146, ; + ZOrderSet = 11 + *< END OBJECT: BaseClass="commandbutton" /> + + ADD OBJECT 'edtInfo' AS _editbox WITH ; + Anchor = 15, ; + Height = 75, ; + Left = 9, ; + Name = "edtInfo", ; + Top = 515, ; + Width = 725, ; + ZOrderSet = 2 + *< END OBJECT: ClassLib="..\..\roadecl\comun\clase\_baza.vcx" BaseClass="editbox" /> + + PROCEDURE afiseaza_mesaj + Lparameters tcMesaj,tnButoane + Local lnReturn,lcTitlu + lcTitlu = [Declaratia 112] + If gcAppName = "CONSAL" + lnReturn = Messagebox(tcMesaj,tnButoane,lcTitlu) + Else + lnReturn = amessagebox(tcMesaj,tnButoane,lcTitlu) + Endif + Return lnReturn + ENDPROC + + PROCEDURE do_executa + *!* 01.02.2012 + *!* d100_201201.pdf + + Lparameters tnMenu, tnDecl + *!* tnMenu: 1 = XML, 2 = PDF, 3 = XML + PDF + *!* tnDecl: 100, 102 + #Define CRLF Chr(13) + Chr(10) + + + Local loEx As Exception + Local lnMenu, lcCaleFisier, lcCaleFisierPDF, lcNumeFisier + Local lcAppPath, lcCaleD112, lcComunPath, lcSelect, lcTempPath, lnPos + Local lcFileName, lcFisierPDFNou, lcFisierPDFOriginal, lcFisierXDP, lcFisierXML, lcRun + Local loProcess As "api_apprun" Of "process.vcx" + Local lcD112RezultatFile, lcD112ValidatorFile, lcMesaj, lcRezultat, lcVersiuneDUK + Local lcVersiuneFisiereD112, lcVersiunePDF, llSucces + lcCaleFisier = "" + Local lnDecl + lnDecl = tnDecl + + lcSelect = Select() + If !Empty(tnMenu) + lnMenu = tnMenu + Else + lnMenu = xmenu("Genereaza \ 0 + lcComunPath = Left(m.lcAppPath, lnPos) + Endif + lcComunPath = lcComunPath + Iif(gcAppName = "CONCONT", "COMUNCONTAFIN\", "COMUNROA\") && d:\contafin\comuncontafin\ + + This.UpdateInfo("Creez structura director export...") + + *** Creez structura director export (caletemp\D112\aaaa_ll\firma\ + llSucces = .F. + Try + lcTempPath = Iif(gcAppName = "CONCONT", Addbs(m.dirgen),Addbs(gcDirMare)) + Do Case + Case lnDecl = 100 + lcCaleFisier = m.lcTempPath + "D100\" && c:\temp\D112\ + Case lnDecl = 102 + lcCaleFisier = m.lcTempPath + "D102\" && c:\temp\D112\ + Endcase + + If !Directory(m.lcCaleFisier) + Md (m.lcCaleFisier) + Endif + + *lcCaleFisier = m.lcCaleFisier + Alltrim(Str(This.nAn)) + "_" + Padl(Alltrim(Str(This.nLuna)),2, "0") + "\"&& c:\temp\D112\2011_01\ + lcCaleFisier = m.lcCaleFisier + Alltrim(Str(gnAn)) + "_" + Padl(Alltrim(Str(gnLuna)),2, "0") + "\"&& c:\temp\D112\2011_01\ + If !Directory(m.lcCaleFisier) + Md (m.lcCaleFisier) + Endif + + *lcCaleFisier = m.lcCaleFisier + STRTRAN(This.cNumeFirma,[ ],[_]) + "\" && c:\temp\D112\2011_01\firma\ + lcCaleFisier = m.lcCaleFisier + Strtran(gcFirma,[ ],[_]) + "\" && c:\temp\D112\2011_01\firma\ + If !Directory(m.lcCaleFisier) + Md (m.lcCaleFisier) + Endif + This.UpdateInfo("S-a creat directorul " + m.lcCaleFisier) + + *lcCaleFisierPDF = m.lcCaleFisier + "pdf_inteligent\" && c:\temp\D112\2011_01\firma\pdf_inteligent\ + lcCaleFisierPDF = m.lcCaleFisier && c:\temp\D112\2011_01\firma\ + If !Directory(m.lcCaleFisierPDF) + Md (m.lcCaleFisierPDF) + Endif + This.UpdateInfo("S-a creat directorul " + m.lcCaleFisierPDF) + + llSucces = .T. + Catch To loEx + lcMesaj = "Creare director " + lcCaleFisier + " " + loEx.Message + This.UpdateInfo(lcMesaj) + + Thisform.afiseaza_mesaj(lcMesaj,0+48) + Endtry + If !llSucces + Return + Endif + *!* lcCaleFisier = shortpath(Getdir([],[Alegeti directorul unde se va salva PDF-ul/XML-ul],[Declaratia 112])) + + Do Case + Case lnDecl = 100 + Do Case + Case gnAn*12 + gnLuna >= 2013*12 + 1 + lcFisierPDFOriginal = lcComunPath + "d100_201301.pdf" && d:\contafin\comuncontafin\d112.pdf + Case gnAn*12 + gnLuna >= 2012*12 + 1 + lcFisierPDFOriginal = lcComunPath + "d100_201201.pdf" && d:\contafin\comuncontafin\d112.pdf + Case gnAn*12 + gnLuna >= 2011*12 + 11 + lcFisierPDFOriginal = lcComunPath + "d100_201111.pdf" && d:\contafin\comuncontafin\d112.pdf + Otherwise + lcFisierPDFOriginal = lcComunPath + "d100.pdf" && d:\contafin\comuncontafin\d112.pdf + Endcase + Case lnDecl = 102 + lcFisierPDFOriginal = lcComunPath + "d102.pdf" && d:\contafin\comuncontafin\d112.pdf + Endcase + + *!* 18.01.2012 + This.UpdatePDF(m.lcFisierPDFOriginal) && actualizez pdf de la romfast + *!* 18.01.2012 ^ + + If Upper(Substr(Alltrim(gofirma.cod_fiscal),1,2))='RO' + lcCod_fiscal = Substr(Alltrim(gofirma.cod_fiscal),3,Len(Alltrim(gofirma.cod_fiscal))-2) + Else + lcCod_fiscal = Alltrim(gofirma.cod_fiscal) + Endif + + *lcNumeFisier = "d100_"+ Alltrim(Transform(Thisform.cCodFiscal)) + "_" + Alltrim(Str(Int(Thisform.nAn))) + "_" + Alltrim(Padl(Int(Thisform.nLuna), 2, "0")) + Do Case + Case lnDecl = 100 + lcNumeFisier = "d100_"+ lcCod_fiscal + "_" + Alltrim(Str(gnAn)) + "_" + Padl(gnLuna, 2, "0") + Case lnDecl = 102 + lcNumeFisier = "d102_"+ lcCod_fiscal + "_" + Alltrim(Str(gnAn)) + "_" + Padl(gnLuna, 2, "0") + Endcase + + lcFileName = m.lcCaleFisier + lcNumeFisier + + lcFileNamePDF = m.lcCaleFisierPDF + lcNumeFisier + lcFisierPDFNou = m.lcFileNamePDF + [.pdf] + lcFisierXDP = m.lcFileNamePDF + [.xdp] + + lcFisierXML = m.lcFileName + [.xml] + *lcD100ValidatorFile = m.lcComunPath + [dist\DUKIntegrator.jar] + lcD100RezultatFile = m.lcFisierXML + [.err.txt] + + lcVersiuneFisiereD112 = lcComunPath + "versiuni_fisiere.txt" + *this.cD112ValidatorFile = lcD112ValidatorFile + This.cFisierXML = lcFisierXML + This.cD100RezultatFile = lcD100RezultatFile + + If Inlist(lnMenu, 2,3) + If File(lcFisierPDFNou) + Delete File (lcFisierPDFNou) + Endif + If File(lcFisierXDP) + Delete File (lcFisierXDP) + Endif + Endif + If Inlist(lnMenu, 1,3) + If File(lcFisierXML) + Delete File (lcFisierXML) + Endif + If File(m.lcD100RezultatFile) + Delete File (m.lcD100RezultatFile) + Endif + Endif + This.cD100Rezultat = "" + This.cD100PDF = "" + + *** verific pdf original + *!* If Inlist(lnMenu,2,3) + *!* This.verificare_versiune("A") + *!* This.UpdateInfo(REPLICATE('-', 100)) + *!* ENDIF + + *** verific program validare D112 + *!* If Inlist(lnMenu,1,3) + *!* This.verificare_versiune("J") + *!* This.UpdateInfo(REPLICATE('-', 100)) + *!* Endif + + *** creez xml, xdp (= xml data package = xml cu sesiunea pdf-ului inteligent) + + Do Case + Case lnMenu = 1 + This.UpdateInfo("Se exporta datele in format XML") + Thisform.do_genereaza_xml(lcFisierXML) + This.UpdateInfo(Replicate('-', 100)) + Case lnMenu = 2 + This.UpdateInfo("Se exporta datele in format PDF") + Thisform.do_genereaza_xdp(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + This.UpdateInfo(Replicate('-', 100)) + Case lnMenu = 3 + This.UpdateInfo("Se exporta datele in format XML+PDF") + *!* Thisform.do_genereaza_xml(lcFisierXML) + *!* This.UpdateInfo(REPLICATE('-', 100)) + If gnAn*12 + gnLuna >= 2011*12 + 11 + Thisform.do_genereaza_xdp_201111(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou, lnDecl) + This.UpdateInfo(Replicate('-', 100)) + Else + Thisform.do_genereaza_xdp(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou, lnDecl) + This.UpdateInfo(Replicate('-', 100)) + Endif + Endcase + + + *** deschid fisierul XDP (pdf inteligent) + If Inlist(lnMenu,2,3) And File(lcFisierXDP) + If !File(m.lcFisierPDFOriginal) + OPEN_DEFAULT_APP("http://static.anaf.ro/static/10/Anaf/Declaratii_R/" + ALLTRIM(STR(m.lnDecl)) + ".html") + AMessagebox('Nu exista fisierul ' + m.lcFisierPDFOriginal + CRLF + ; + 'Copiati pdf-ul inteligent D' + ALLTRIM(STR(m.lnDecl)) + ' de pe website-ul ANAF in directorul ' + Justpath(m.lcFisierPDFOriginal) + CRLF + ; + 'cu numele ' + Justfname(m.lcFisierPDFOriginal) + '.', 0+48, _Screen.Caption) + Else + *** copiez fisierul pdf inteligent original in directorul de export + Copy File (lcFisierPDFOriginal) To (lcFisierPDFNou) + This.cD100PDF = m.lcFisierXDP + + If File(m.lcFisierXDP) + This.UpdateInfo([In PDF apasati butonul "Options > Trust this document always" de pe banda galbena pentru a incarca datele.]) + open_default_app(lcFisierXDP) + ENDIF + ENDIF + Endif + + *!* *** deschid explorer in directorul de export + lcRun = [RUN /N7 explorer.exe "] + m.lcCaleFisier + ["] + &lcRun + + + Select (lcSelect) + + + ENDPROC + + PROCEDURE do_genereaza_xdp + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou, tnDecl + Local lcDateStyle, lcMark, lcXDP + Local lcSelect + lcSelect = Select() + Local lnDecl, lcFirma + lnDecl = tnDecl + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + Set Date To Ymd + Set Mark To '-' + + + Set Textmerge On To Memvar lcXDP Noshow + *Set Textmerge On To Memvar lcXML Noshow + \ + \ + \ + \ + \ + \ + \ + + Do Case + Case lnDecl = 100 + \ 100 + Case lnDecl = 102 + \ 102 + Endcase + + \ + \ + \ + \<> + \<> + \ + \ + \ RO + If Upper(Substr(Alltrim(gofirma.cod_fiscal),1,2))='RO' + lcCod_fiscal = Substr(Alltrim(gofirma.cod_fiscal),3,Len(Alltrim(gofirma.cod_fiscal))-2) + Else + lcCod_fiscal = Alltrim(gofirma.cod_fiscal) + Endif + \<> + lcFirma = XmlSpecialCharacters(ALLTRIM(UPPER(NVL(goFirma.antet,'')))) && oproceduri_comune.prg + \<> + \<> + \<> + \<> + \<> + \ + + Do Case + Case lnDecl = 100 + Select * From cDecl Where id_decl < 33 And (datorat<>0 Or recuperat<>0) ; + INTO Cursor cDecl100_102 + Case lnDecl = 102 + Select * From cDecl Where id_decl >= 34 And (datorat<>0 Or recuperat<>0) ; + INTO Cursor cDecl100_102 + Endcase + + \ + + Select cDecl100_102 + Scan + \ <> + \ + \ + \ + \<> + \<> + \<> + \<> + \ <> + \ + \ <> + \ + \<> + \<> + \ + Select cDecl100_102 + Endscan + \ + + If Used('cDecl100_102') + Use In cDecl100_102 + Endif + + \ + \<_numePrenume><> + \<_functia><> + \ + \ + + \ + \ + \ + \ + \ + \ + \ + \ + \ + \ + \ + \ + \ + \ + Set Textmerge To + + Strtofile(lcXDP, tcFisierXDP) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + Select (lcSelect) + + ENDPROC + + PROCEDURE do_genereaza_xdp_201111 + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou, tnDecl + Local lcDateStyle, lcMark, lcXDP, lcNumePrenumeDeclarant, lcNumeDeclarant, lcPrenumeDeclarant, lcFirma + Local lcSelect + lcSelect = Select() + Local lnDecl + lnDecl = tnDecl + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + Set Date To Ymd + Set Mark To '-' + + lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,'')) + lcNumeDeclarant = lcNumePrenumeDeclarant + lcPrenumeDeclarant = "" + If Getwordcount(lcNumePrenumeDeclarant," ") > 1 + lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ") + lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, "")) + Endif + + + Set Textmerge On To Memvar lcXDP Noshow + *Set Textmerge On To Memvar lcXML Noshow + \ + \ + \ + \ + \ + \ + \ + + Do Case + Case lnDecl = 100 + \ 100 + + Case lnDecl = 102 + \ 102 + + Endcase + + \ + \ + \ + \<> + \<> + \0 + \1 + + \ + \ + \ RO + lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,''))) + If Substr(lcCodFiscal,1,2)='RO' + lcCod_fiscal = Alltrim(Substr(lcCodFiscal,3)) + Endif + \<> + + lcFirma = XmlSpecialCharacters(Alltrim(Upper(Nvl(gofirma.antet,'')))) && oproceduri_comune.prg + \<> + \<> + \<> + \<> + \<> + \ + + Do Case + Case lnDecl = 100 + Select * From cDecl Where id_decl < 33 And (datorat<>0 Or recuperat<>0) ; + INTO Cursor cDecl100_102 + Case lnDecl = 102 + Select * From cDecl Where id_decl >= 34 And (datorat<>0 Or recuperat<>0) ; + INTO Cursor cDecl100_102 + Endcase + + \ + + lnIndicatori = 0 + lnSumaTotala = 0 + + Select cDecl100_102 + Scan For id_decl <= 26 + lnIndicatori = lnIndicatori + 1 + lnSumaTotala = lnSumaTotala + datorat + lcScadenta = DTOS(datascad) + lcScadenta = LEFT(m.lcScadenta,4) + '-' + SUBSTR(m.lcScadenta,5,2) + '-' + SUBSTR(m.lcScadenta, 7,2) + + \<> + \ + \ + + \ + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \ + \<> + \<> + \ + + + Select cDecl100_102 + Endscan + + \ + \ + \ + + \ + \ + \ + \ + \<> + \<> + \ + \ + \ + \ + + lnIndicatori = 0 + lnSumaTotala = 0 + + Select cDecl100_102 + Scan For id_decl >= 28 && Impozite si taxe care nu se platesc in contul unic + lnIndicatori = lnIndicatori + 1 + lnSumaTotala = lnSumaTotala + datorat + lcScadenta = DTOS(datascad) + lcScadenta = LEFT(m.lcScadenta,4) + '-' + SUBSTR(m.lcScadenta,5,2) + '-' + SUBSTR(m.lcScadenta, 7,2) + + \<> + \ + \ + + \ + \<> + \<> + \<> + \<> + \<> + \<> + \ + \<> + \<> + \<> + \31/12 + \0 + \ + + Select cDecl100_102 + Endscan + + \ + \ + \ + \ + \<> + \<> + \ + \ + \ + \ + \ + + \ + + If Used('cDecl100_102') + Use In cDecl100_102 + Endif + + \<> + \<> + + \ + \<> + \<> + \ + \<> + \ + \ + + \ + \ + \ + + \1 + \1 + \1 + \1 + + \ + \ + \ + \ + \ + \ + \ + \ + \ + Set Textmerge To + + Strtofile(lcXDP, tcFisierXDP) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + Select (lcSelect) + + ENDPROC + + PROCEDURE do_genereaza_xml + LPARAMETERS tcFisierXML + Local lcXML, lcXmlFile, loAsigurat + Local lcDateStyle, lcMark + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + Set Date To Dmy + Set Mark To '.' + + + + Set Textmerge On To Memvar lcXML NOSHOW + \ + Select cDeclaratie + \ + Select cPlatitor + \ > caen="<>" den="<>" <> <> <> <> <> <> <> <> casaAng="<>" tRisc="<>" dat="<>" totalPlata_A="<>"> + Select cAngajatorA + Scan + \ + Endscan + Select cAngajatorB + Scan + \ + Endscan + Select cAngajatorC1 + Scan + \ + Endscan + Select cAngajatorC2 + Scan + \ + Endscan + Select cAngajatorC3 + Scan + \ + Endscan + Select cAngajatorC4 + Scan + \ + Endscan + Select cAngajatorC5 + *!* 02.05.2011 + SCAN FOR !(EMPTY(NVL(C5_recuperat,0)) AND EMPTY(NVL(C5_restituit,0))) + \ + Endscan + *!* 02.05.2011 ^ + Select cAngajatorC6 + Scan + \ + Endscan + Select cAngajatorC7 + Scan + \ + Endscan + Select cAngajatorD + Scan + \ + Endscan + Select cAngajatorE1 + Scan + \ + ENDSCAN + Select cAngajatorE2 + Scan + \ + ENDSCAN + Select cAngajatorE3 + Scan + \ + Endscan + Select cAngajatorF1 + Scan + \ + Endscan + Select cAngajatorF2 + Scan + \ + Endscan + \ + + Select cAsigurati + Scan + Scatter Name loAsigurat + \ > casaSn="<>" asigCI="<>" asigSO="<>"<>> + Select cCoasigurati + Scan For marca = loAsigurat.marca + \ + Endscan + Select cAsiguratiA + Scan For marca = loAsigurat.marca + \ + Endscan + Select cAsiguratiB1 + Scan For marca = loAsigurat.marca + \ + Select cAsiguratiB11 + Scan For marca = loAsigurat.marca + \ + Endscan + \ + Endscan + Select cAsiguratiB2 + Scan For marca = loAsigurat.marca + \ + Endscan + Select cAsiguratiB3 + Scan For marca = loAsigurat.marca + \ + Endscan + Select cAsiguratiB4 + Scan For marca = loAsigurat.marca + \ + ENDSCAN + Select cAsiguratiC + Scan For marca = loAsigurat.marca + \ + Endscan + Select cAsiguratiD + Scan For marca = loAsigurat.marca + \ > <> D_5="<>" D_6="<>" D_7="<>" <> D_9="<>" D_10="<>" <> <> <> D_14="<>" D_15="<>" D_16="<>" D_17="<>" D_18="<>" D_19="<>" D_20="<>" D_21="<>"/> + Endscan + \ + Endscan + \ + Set Textmerge To + + Strtofile(lcXML, m.tcFisierXML) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + ENDPROC + + PROCEDURE getnrevidenta && Generare nr evidenta a platii pentru un impozit + Lparameters tcCodObligatie, tnAn, tnLuna, tdDataScadenta, tnTipObligatie + * tcCodObligatie: 601 + * tnAn, tnLuna: sfarsitul perioadei de raportare + * tdDataScad: data scadenta a obligatiei + * tnTipObligatie: 1(care se platesc în CONT UNIC ), 2 (restul) + + Local lcNrEvidenta, lcSumaControl, lcText, lnSuma, i + + lcCodObligatie = Alltrim(NVL(tcCodObligatie, '')) && XXX + lcPerioadaRaportare = PADL(INT(m.tnLuna), 2, '0') + RIGHT(ALLTRIM(STR(INT(m.tnAn))), 2) && LLAA + lcDataScadenta = IIF(TYPE('tdDataScadenta') = 'D', DTOS(tdDataScadenta), '') + lcDataScadenta = RIGHT(m.lcDataScadenta,2) + SUBSTR(m.lcDataScadenta,5,2) + SUBSTR(m.lcDataScadenta, 3, 2) && ZZLLAA + lcTipObligatie = IIF(tnTipObligatie = 1, '1', '0') + + Text To lcText Noshow + Ex.nr.evid.a platii : 10 602 01 0611 250711 0 0 00 35 + + Verificare componenta si suma de control + pentru + nr_evid : + Poz.1-2 + :10 + Poz.3-5 + : cod obligatie (nomenclator) + Poz.6-7 + :01 + Poz.8-11 + : LLAA (sf.per.de raportare) + Poz.12-17 + : ZZLLAA (scadenta platii) + Poz.18: + 1 daca tip_oblig=1 + 0 daca tip_oblig=2 + + Poz.19 + : 0 + Poz.20-21 + : 00 + Poz.22-23 + : suma de control = suma + primelor 21 pozitii (se iau ultimele 2 cifre + ale sumei) + + Endtext + + + lcNrEvidenta = '10' + lcCodObligatie + '01' + lcPerioadaRaportare + lcDataScadenta + lcTipObligatie + '0' + '00' + lnSuma = 0 + For i = 1 To Len(m.lcNrEvidenta) + lnSuma = lnSuma + Int(Val(Substr(m.lcNrEvidenta, i, 1))) + Endfor + lcSumaControl = Right(Alltrim(Str(lnSuma)), 2) + lcNrEvidenta = lcNrEvidenta + m.lcSumaControl + + Return m.lcNrEvidenta + + ENDPROC + + PROCEDURE inainte_de_do_excel + DO export_excel_grid WITH this._grdrow1 + + ENDPROC + + PROCEDURE inainte_de_do_listare + Local lcTabel + lcTabel = Thisform._grdrow1.RecordSource + If Reccount(lcTabel)>0 + Private pcCaen + pcCaen = Alltrim(gofirma.caen) + + If !Empty(pcCaen) And !Isnull(pcCaen) + Private poCaen + Store '' To poCaen + pcschema=[] + pcselect=['select codcaen from sitfin_codcaen where 1=2 '] + pcfiltru=[cod=] + pcCaen + pcorder=[] + llAfisare=.F. + gencursor('poCaen','cCaen',pcselect,pcfiltru,pcschema,pcorder,llAfisare) + poCaen.ca_baza1.afisare() + + Select cCaen + pcCaen = codcaen + + If Used('cCaen') + Use In cCaen + Endif + Endif + + Thisform.AlwaysOnTop = .F. + Select (lcTabel) + Report Form decont To Printer Prompt Preview + Thisform.AlwaysOnTop = .T. + Else + amessagebox("Nu exista inregistrari pentru listare!",48,"Atentie") + Endif + ENDPROC + + PROCEDURE Init + PARAMETERS tnDecl, tlTrim + + DODEFAULT() + thisform.nDecl= tnDecl + thisform.lTrim = tlTrim + this.cmdPDF100.Visible = INLIST(tnDecl, 0, 100) + this.cmdPDF102.Visible = INLIST(tnDecl, 0, 102) + + + ENDPROC + + PROCEDURE Show + Lparameters nStyle + + + + Thisform.totaluri("datorat") + Thisform.totaluri("recuperat") + + DODEFAULT(nStyle) + ENDPROC + + PROCEDURE totaluri + Lparameters tcColoana + Local lcFormula, lcColoana, lcTabel, lnSuma, lnId_ind, lcRand + + If Empty(tcColoana) + lcColoana = "datorat" + Else + lcColoana = Alltrim(tcColoana) + Endif + + lcTabel = thisform._grdrow1.RecordSource + Select * From (lcTabel) WITH (BUFFERING = .T.) Into Cursor cTemp Readwrite NOFILTER + + Select cTemp + Scan For tip = 5 + lnSuma = 0 + lcFormula = Alltrim(cTemp.formula) + lcRand = ALLTRIM(rand) + *!* IF '32'$lcRand AND 'tva'$LOWER(lcColoana) + *!* DEBUG + *!* SUSPEND + *!* ENDIF + *!* WAIT WINDOW lcFormula + " - " + lcColoana NOWAIT + lnSuma = calc_indicatori_randuri(lcFormula, "cTemp",lcColoana) + Select cTemp + Replace &lcColoana With lnSuma + Select (lcTabel) + Update (lcTabel) Set &lcColoana = lnSuma Where ALLTRIM(rand) = lcRand + + Select cTemp + Endscan + Use In cTemp + + SELECT (lcTabel) + GO TOP + + + ENDPROC + + PROCEDURE updateinfo + #DEFINE CRLF CHR(13) + CHR(10) + Lparameters tcInfo + + + Local loInfo + loInfo = this.edtInfo + If Upper(tcInfo) = 'RESET' + loInfo.Value = "" + Else + loInfo.Value = loInfo.Value + m.tcInfo + CRLF + CRLF + Endif + loInfo.Refresh() + + + ENDPROC + + PROCEDURE updatepdf + Lparameters tcPDFFile + *** tcPDFFile: calea completa a fisierului pdf D:\CONTAFIN\COMUNCONTAFIN\d390.pdf + + Local lcFile, lcPath, llOpen + lcFile = Justfname(m.tcPDFFile) + lcPath = Addbs(Justpath(m.tcPDFFile)) + llOpen = .F. + + Return DownloadSupportFile(m.lcFile, m.lcPath, m.llOpen) && proceduri_comune.prg + + + ENDPROC + + PROCEDURE cmdDeschidPDF.Click + Local lcFisierXDP + lcFisierXDP = Thisform.cD100PDF + IF !EMPTY(lcFisierXDP) AND FILE(lcFisierXDP) + Thisform.UpdateInfo([In PDF apasati butonul "Options > Trust this document always" de pe banda galbena pentru a incarca datele.]) + open_default_app(lcFisierXDP) + ENDIF + ENDPROC + + PROCEDURE cmdPDF100.Click + *!* 12.05.2011 + *!* Thisform.do_executa(2) && PDF + + *** Generare Nr evidenta a platii + SELECT cDecl + SCAN FOR (datorat <> 0 OR recuperat <> 0) + lcCodObligatie = ALLTRIM(cod_imp) + IF EMPTY(m.lcCodObligatie) + loop + ENDIF + lnAn = m.gnAn + lnLuna = m.gnLuna + ldDataScadenta = datascad + m.lnTipObligatie = IIF(LEFT(cod_bugetar, 4) <> '5502', 1, 2) && 1(care se platesc în CONT UNIC ), 2 (restul) + + lcNrEvidenta = Thisform.GetNrEvidenta(lcCodObligatie, lnAn, lnLuna, ldDataScadenta, lnTipObligatie) + SELECT cDecl + REPLACE nr_evidenta WITH m.lcNrEvidenta + ENDSCAN + + Thisform.do_executa(3,100) && XML + PDF + *!* 12.05.2011 ^ + ENDPROC + + PROCEDURE cmdPDF102.Click + *!* 12.05.2011 + *!* Thisform.do_executa(2) && PDF + SELECT cDecl + SCAN FOR (datorat <> 0 OR recuperat <> 0) + lcCodObligatie = ALLTRIM(cod_imp) + IF EMPTY(m.lcCodObligatie) + loop + ENDIF + lnAn = m.gnAn + lnLuna = m.gnLuna + ldDataScadenta = datascad + m.lnTipObligatie = IIF(LEFT(cod_bugetar, 4) <> '5502', 1, 2) && 1(care se platesc în CONT UNIC ), 2 (restul) + + lcNrEvidenta = Thisform.GetNrEvidenta(lcCodObligatie, lnAn, lnLuna, ldDataScadenta, lnTipObligatie) + SELECT cDecl + REPLACE nr_evidenta WITH m.lcNrEvidenta + ENDSCAN + + Thisform.do_executa(3, 102) && XML + PDF + *!* 12.05.2011 ^ + ENDPROC + + PROCEDURE Command1.Click + Do date_identif In oproceduri_decont.prg + ENDPROC + + PROCEDURE Command3.Click + LOCAL lcTabel + lcTabel = thisform._grdrow1.RecordSource + + DO export_decl WITH (lcTabel), thisform.nDecl, thisform.lTrim IN oproceduri_decont.prg + + ENDPROC + + PROCEDURE _grdrow1.cTVA.Text1.LostFocus + IF NVL(FLOOR(THIS.VALUE),0) <> NVL(FLOOR(THISFORM.nOldvalue),0) + THISFORM.totaluri("recuperat") + ENDIF + ENDPROC + + PROCEDURE _grdrow1.cTVA.Text1.When + thisform.nOldvalue = this.Value + + IF inactivR = 1 + RETURN .F. + ENDIF + ENDPROC + + PROCEDURE _grdrow1.cValoare.Text1.LostFocus + IF NVL(FLOOR(THIS.VALUE),0) <> NVL(FLOOR(THISFORM.nOldvalue),0) + THISFORM.totaluri("datorat") + ENDIF + ENDPROC + + PROCEDURE _grdrow1.cValoare.Text1.When + thisform.nOldvalue = this.Value + + IF inactivD = 1 + RETURN .F. + ENDIF + ENDPROC + + PROCEDURE _grdrow1.Init + this.SetAll("DynamicBackColor","IIF(antet=1,RGB(180,180,180),IIF(tip=5,RGB(230,244,255),RGB(255,255,255)))", "Column") + + this.cValoare.DynamicBackColor = [iif(inactivD=1,rgb(225,225,225),IIF(tip=5,RGB(230,244,255),IIF(antet=1,RGB(180,180,180),rgb(255,255,255))))] && rgb(128,128,128) + this.cTVA.DynamicBackColor = [iif(inactivR=1,rgb(225,225,225),IIF(tip=5,RGB(230,244,255),IIF(antet=1,RGB(180,180,180),rgb(255,255,255))))] + + this.cValoare.DynamicForeColor = [iif(inactivD=1,rgb(225,225,225),IIF(antet=1,RGB(180,180,180),rgb(0,0,0)))] + this.cTVA.DynamicForeColor = [iif(inactivR=1,rgb(225,225,225),IIF(antet=1,RGB(180,180,180),rgb(0,0,0)))] + + + + + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_decl100_102_setacont 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="Cb_tx_604_1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cb_tx_612_1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cb_tx_810_1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cb_tx_810" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cb_tx_612" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cb_tx_604" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cb_tx_628_1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cb_tx_628" UniqueID="" Timestamp="" /> + + * + *p: ccont + *p: ccursoracont + *p: ccursoracont2 + *p: ccursoracont3 + *p: ccursorcont + *p: ccursorcont2 + *p: ccursorcont3 + * + + * + BorderStyle = 1 + ccont = + ccursoracont = + ccursoracont2 = + ccursoracont3 = + ccursorcont = + ccursorcont2 = + ccursorcont3 = + DoCreate = .T. + Height = 291 + Name = "frm_decl100_102_setacont" + Width = 488 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 509 + _shape2.Height = 29 + _shape2.Left = 455 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 34 + Lb_titlu_alb_b121.Caption = "Setare conturi analitice - declaratia 100 lunara" + Lb_titlu_alb_b121.Left = 6 + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 10 + Lb_titlu_alb_b121.Top = 6 + BUT_TERMIN1.Left = 457 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 9 + BUT_TERMIN1.Top = 1 + Gridsort1.Left = 132 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 0 + * + + ADD OBJECT 'Cb_tx_604' AS cb_tx_simplu WITH ; + Height = 29, ; + Left = 6, ; + Name = "Cb_tx_604", ; + TabIndex = 1, ; + Top = 93, ; + Width = 142, ; + _cbbase1.Height = 23, ; + _cbbase1.Left = 53, ; + _cbbase1.Name = "_cbbase1", ; + _cbbase1.RowSource = "crs446_447_604", ; + _cbbase1.RowSourceType = 2, ; + _cbbase1.Top = 3, ; + _cbbase1.Width = 85, ; + _lbbase1.Caption = "Cont", ; + _lbbase1.Name = "_lbbase1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cb_tx_604_1' AS cb_tx_simplu WITH ; + Height = 29, ; + Left = 154, ; + Name = "Cb_tx_604_1", ; + TabIndex = 2, ; + Top = 93, ; + Width = 327, ; + _cbbase1.Height = 23, ; + _cbbase1.Left = 101, ; + _cbbase1.Name = "_cbbase1", ; + _cbbase1.RowSource = "crsAcont_604.denumire", ; + _cbbase1.RowSourceType = 2, ; + _cbbase1.Top = 3, ; + _cbbase1.Width = 222, ; + _lbbase1.Caption = "Cont analitic", ; + _lbbase1.Name = "_lbbase1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cb_tx_612' AS cb_tx_simplu WITH ; + Height = 29, ; + Left = 6, ; + Name = "Cb_tx_612", ; + TabIndex = 3, ; + Top = 147, ; + Width = 142, ; + _cbbase1.Height = 23, ; + _cbbase1.Left = 53, ; + _cbbase1.Name = "_cbbase1", ; + _cbbase1.RowSource = "crs446_447_612", ; + _cbbase1.RowSourceType = 2, ; + _cbbase1.Top = 3, ; + _cbbase1.Width = 85, ; + _lbbase1.Caption = "Cont", ; + _lbbase1.Name = "_lbbase1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cb_tx_612_1' AS cb_tx_simplu WITH ; + Height = 29, ; + Left = 154, ; + Name = "Cb_tx_612_1", ; + TabIndex = 4, ; + Top = 147, ; + Width = 327, ; + _cbbase1.Height = 23, ; + _cbbase1.Left = 101, ; + _cbbase1.Name = "_cbbase1", ; + _cbbase1.RowSource = "crsAcont_612.denumire", ; + _cbbase1.RowSourceType = 2, ; + _cbbase1.Width = 222, ; + _lbbase1.Caption = "Cont analitic", ; + _lbbase1.Name = "_lbbase1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cb_tx_628' AS cb_tx_simplu WITH ; + Height = 29, ; + Left = 6, ; + Name = "Cb_tx_628", ; + TabIndex = 5, ; + Top = 200, ; + Width = 142, ; + _cbbase1.Height = 23, ; + _cbbase1.Left = 53, ; + _cbbase1.Name = "_cbbase1", ; + _cbbase1.RowSource = "crs446_447_628", ; + _cbbase1.RowSourceType = 2, ; + _cbbase1.Top = 3, ; + _cbbase1.Width = 85, ; + _lbbase1.Caption = "Cont", ; + _lbbase1.Name = "_lbbase1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cb_tx_628_1' AS cb_tx_simplu WITH ; + Height = 29, ; + Left = 154, ; + Name = "Cb_tx_628_1", ; + TabIndex = 6, ; + Top = 200, ; + Width = 327, ; + _cbbase1.Height = 23, ; + _cbbase1.Left = 101, ; + _cbbase1.Name = "_cbbase1", ; + _cbbase1.RowSource = "crsAcont_628.denumire", ; + _cbbase1.RowSourceType = 2, ; + _cbbase1.Width = 222, ; + _lbbase1.Caption = "Cont analitic", ; + _lbbase1.Name = "_lbbase1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cb_tx_810' AS cb_tx_simplu WITH ; + Height = 29, ; + Left = 6, ; + Name = "Cb_tx_810", ; + TabIndex = 7, ; + Top = 250, ; + Width = 142, ; + _cbbase1.Height = 23, ; + _cbbase1.Left = 53, ; + _cbbase1.Name = "_cbbase1", ; + _cbbase1.RowSource = "crs446_447_810", ; + _cbbase1.RowSourceType = 2, ; + _cbbase1.Top = 3, ; + _cbbase1.Width = 85, ; + _lbbase1.Caption = "Cont", ; + _lbbase1.Name = "_lbbase1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cb_tx_810_1' AS cb_tx_simplu WITH ; + Height = 29, ; + Left = 154, ; + Name = "Cb_tx_810_1", ; + TabIndex = 8, ; + Top = 250, ; + Width = 327, ; + _cbbase1.Height = 23, ; + _cbbase1.Left = 101, ; + _cbbase1.Name = "_cbbase1", ; + _cbbase1.RowSource = "crsAcont_810.denumire", ; + _cbbase1.RowSourceType = 2, ; + _cbbase1.Top = 3, ; + _cbbase1.Width = 222, ; + _lbbase1.Caption = "Cont analitic", ; + _lbbase1.Name = "_lbbase1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Label1' AS label WITH ; + BackStyle = 0, ; + Caption = "Alegeti conturile si conturile analitice corespunzatoare obligatiilor 604, 612, 628, 810 in declaratia 100 lunara", ; + Height = 31, ; + Left = 6, ; + Name = "Label1", ; + TabIndex = 11, ; + Top = 35, ; + Width = 429, ; + WordWrap = .T. + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label2' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "(604)Imp.pe ven.-dividende distribuite la PF", ; + Left = 6, ; + Name = "Label2", ; + TabIndex = 12, ; + Top = 76, ; + Width = 239 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label3' AS label WITH ; + BackStyle = 0, ; + Caption = "(612)Imp.pe ven.obt.din Romania de nerezidenti - PF .", ; + Left = 6, ; + Name = "Label3", ; + TabIndex = 14, ; + Top = 130, ; + Width = 890 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label4' AS label WITH ; + BackStyle = 0, ; + Caption = "(810)Varsam.de la PJ pt.pers.cu handicap neincadrate ", ; + Left = 6, ; + Name = "Label4", ; + TabIndex = 15, ; + Top = 233, ; + Width = 894 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label5' AS label WITH ; + BackStyle = 0, ; + Caption = "(628)Imp. chirii catre PF platite de PJ ", ; + Left = 6, ; + Name = "Label5", ; + TabIndex = 13, ; + Top = 183, ; + Width = 890 + *< END OBJECT: BaseClass="label" /> + + PROCEDURE Destroy + lcCursorAcont = ALLTRIM(thisform.cCursorAcont) + lcCursorCont = ALLTRIM(thisform.cCursorCont) + + IF USED(lcCursorCont) + USE IN (lcCursorCont) + ENDIF + + IF USED(lcCursorAcont) + USE IN (lcCursorAcont) + ENDIF + ENDPROC + + PROCEDURE inainte_de_do_termin + Local lcSql, llSucces + + lcSql = [update optiuni set varvalue = ?gcCONTD100_604 where varname = 'CONTD100_604'] + + llSucces = goExecutor.oExecuta(lcSql) + + If m.llSucces + lcSql = [update optiuni set varvalue = ?gcCONTD100_612 where varname = 'CONTD100_612'] + + llSucces = goExecutor.oExecuta(lcSql) + Endif + + + If m.llSucces + lcSql = [update optiuni set varvalue = ?gcCONTD100_628 where varname = 'CONTD100_628'] + + llSucces = goExecutor.oExecuta(lcSql) + Endif + + If m.llSucces + lcSql = [update optiuni set varvalue = ?gcCONTD100_810 where varname = 'CONTD100_810'] + + llSucces = goExecutor.oExecuta(lcSql) + Endif + + If m.llSucces + lcSql = [update optiuni set varvalue = ?gcACONTD100_604 where varname = 'ACONTD100_604'] + + llSucces = goExecutor.oExecuta(lcSql) + ENDIF + If m.llSucces + lcSql = [update optiuni set varvalue = ?gcACONTD100_612 where varname = 'ACONTD100_612'] + + llSucces = goExecutor.oExecuta(lcSql) + Endif + + + If m.llSucces + lcSql = [update optiuni set varvalue = ?gcACONTD100_628 where varname = 'ACONTD100_628'] + + llSucces = goExecutor.oExecuta(lcSql) + Endif + + If m.llSucces + lcSql = [update optiuni set varvalue = ?gcACONTD100_810 where varname = 'ACONTD100_810'] + + llSucces = goExecutor.oExecuta(lcSql) + Endif + + ENDPROC + + PROCEDURE Show + Lparameters nStyle + LOCAL lcDenumire14, lcDenumire23, lcDenumire25 + + + This.cb_tx_604._cbbase1.Value = gcCONTD100_604 + Select crsAcont_604 + Locate For acont = gcAcontD100_604 + If Found() + This.cb_tx_604_1._cbbase1.Value = ALLTRIM(denumire) + ENDIF + + This.Cb_tx_612._cbbase1.Value = gcCONTD100_612 + Select crsAcont_612 + Locate For acont = gcAcontD100_612 + If Found() + This.Cb_tx_612_1._cbbase1.Value = ALLTRIM(denumire) + Endif + + This.Cb_tx_628._cbbase1.Value = gcCONTD100_628 + Select crsAcont_628 + Locate For acont = gcAcontD100_628 + If Found() + This.Cb_tx_628_1._cbbase1.Value = ALLTRIM(denumire) + ENDIF + + This.Cb_tx_810._cbbase1.Value = gcCONTD100_810 + Select crsAcont_810 + Locate For acont = gcAcontD100_810 + If Found() + This.Cb_tx_810_1._cbbase1.Value = ALLTRIM(denumire) + Endif + + + ENDPROC + + PROCEDURE Cb_tx_604._cbbase1.Valid + LOCAL lcCont, lnSucces, lcCursorAcont + lcCursorAcont = "" + lnSucces = 1 + lcCont = ALLTRIM(THIS.VALUE) + + IF EMPTY(lcCont) + lnSucces = -1 + ELSE + THISFORM.cb_tx_simplu1._cbbase1.ROWSOURCE='' + lcCursorAcont = update_plAcont(lcCont, gnAn) && updateserver.prg + SELECT * FROM (lcCursorAcont) INTO CURSOR crsAcont + + SELECT crsAcont + LOCATE FOR acont = gcACONTDECL100_RD14 + IF !FOUND() + LOCATE FOR ALLTRIM(acont) = '-1' + ENDIF + ENDIF + + IF lnSucces = -1 + RETURN + ENDIF + + WITH THISFORM.cb_tx_simplu1._cbbase1 + .ROWSOURCETYPE= 2 + .ROWSOURCE = 'crsAcont.denumire' + ENDWITH + + gcCONTDECL100_RD14 = crs446_447.cont + + + + ENDPROC + + PROCEDURE Cb_tx_604_1._cbbase1.Valid + gcAcontD100_604 = crsAcont_604.acont + ENDPROC + + PROCEDURE Cb_tx_612._cbbase1.Valid + LOCAL lcCont, lnSucces, lcCursorAcont + lcCursorAcont = "" + lnSucces = 1 + lcCont = ALLTRIM(THIS.VALUE) + + IF EMPTY(lcCont) + lnSucces = -1 + ELSE + THISFORM.cb_tx_simplu3._cbbase1.ROWSOURCE='' + lcCursorAcont = update_plAcont(lcCont, gnAn) && updateserver.prg + SELECT * FROM (lcCursorAcont) INTO CURSOR crsAcont_2 + + SELECT crsAcont_2 + LOCATE FOR acont = gcACONTDECL100_RD23 + IF !FOUND() + LOCATE FOR ALLTRIM(acont) = '-1' + ENDIF + ENDIF + + IF lnSucces = -1 + RETURN + ENDIF + + WITH THISFORM.cb_tx_simplu3._cbbase1 + .ROWSOURCETYPE= 2 + .ROWSOURCE = 'crsAcont_2.denumire' + ENDWITH + + gcCONTDECL100_RD23 = crs446_447_2.cont + + + + ENDPROC + + PROCEDURE Cb_tx_612_1._cbbase1.Valid + gcAcontD100_612 = crsAcont_612.acont + + ENDPROC + + PROCEDURE Cb_tx_628._cbbase1.Valid + LOCAL lcCont, lnSucces, lcCursorAcont + lcCursorAcont = "" + lnSucces = 1 + lcCont = ALLTRIM(THIS.VALUE) + + IF EMPTY(lcCont) + lnSucces = -1 + ELSE + THISFORM.cb_tx_simplu3._cbbase1.ROWSOURCE='' + lcCursorAcont = update_plAcont(lcCont, gnAn) && updateserver.prg + SELECT * FROM (lcCursorAcont) INTO CURSOR crsAcont_2 + + SELECT crsAcont_2 + LOCATE FOR acont = gcACONTDECL100_RD23 + IF !FOUND() + LOCATE FOR ALLTRIM(acont) = '-1' + ENDIF + ENDIF + + IF lnSucces = -1 + RETURN + ENDIF + + WITH THISFORM.cb_tx_simplu3._cbbase1 + .ROWSOURCETYPE= 2 + .ROWSOURCE = 'crsAcont_2.denumire' + ENDWITH + + gcCONTDECL100_RD23 = crs446_447_2.cont + + + + ENDPROC + + PROCEDURE Cb_tx_628_1._cbbase1.Valid + gcAcontD100_628 = crsAcont_628.acont + ENDPROC + + PROCEDURE Cb_tx_810._cbbase1.Valid + LOCAL lcCont, lnSucces, lcCursorAcont + lcCursorAcont = "" + lnSucces = 1 + lcCont = ALLTRIM(THIS.VALUE) + + IF EMPTY(lcCont) + lnSucces = -1 + ELSE + THISFORM.cb_tx_simplu5._cbbase1.ROWSOURCE='' + lcCursorAcont = update_plAcont(lcCont, gnAn) && updateserver.prg + SELECT * FROM (lcCursorAcont) INTO CURSOR crsAcont_3 + + SELECT crsAcont_3 + LOCATE FOR acont = gcACONTDECL100_RD25 + IF !FOUND() + LOCATE FOR ALLTRIM(acont) = '-1' + ENDIF + ENDIF + + IF lnSucces = -1 + RETURN + ENDIF + + WITH THISFORM.cb_tx_simplu5._cbbase1 + .ROWSOURCETYPE= 2 + .ROWSOURCE = 'crsAcont_3.denumire' + ENDWITH + + gcCONTDECL100_RD25 = crs446_447_3.cont + + + + ENDPROC + + PROCEDURE Cb_tx_810_1._cbbase1.Valid + gcAcontD100_810 = crsAcont_810.acont + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_decl100_2016 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="edtInfo" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cValoare.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cValoare.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cTVA.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cTVA.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cDataScad.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cDataScad.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cNrEvidenta.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cNrEvidenta.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cmdPDF100" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> + + * + *m: afiseaza_mesaj + *m: do_genereaza_xdp + *m: do_genereaza_xdp_201111 + *m: do_genereaza_xdp_201601 + *m: do_genereaza_xml + *m: getnrevidenta && Generare nr evidenta a platii pentru un impozit + *m: totaluri + *m: updateinfo + *m: updatepdf + *p: cd100pdf + *p: cd100rezultat + *p: cd100rezultatfile + *p: cfisierxml + *p: ltrim + *p: ndecl + *p: noldvalue + * + + * + BorderStyle = 3 + cd100pdf = '' + cd100rezultat = '' + cd100rezultatfile = '' + cfisierxml = '' + DoCreate = .T. + Height = 593 + ltrim = .F. + Name = "frm_decl100_2016" + ndecl = 0 + noldvalue = 0 + Width = 744 + _memberdata = + + + + + + + + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 749 + _shape1.ZOrderSet = 0 + _shape2.Anchor = 9 + _shape2.Height = 29 + _shape2.Left = 650 + _shape2.Name = "_shape2" + _shape2.Top = -1 + _shape2.Width = 94 + _shape2.ZOrderSet = 1 + Lb_titlu_alb_b121.Caption = "Declaratia 100 privind obligatiile de plata la BS" + Lb_titlu_alb_b121.Left = 9 + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 7 + Lb_titlu_alb_b121.Top = 7 + Lb_titlu_alb_b121.ZOrderSet = 5 + BUT_TERMIN1.Anchor = 9 + BUT_TERMIN1.Left = 713 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 4 + BUT_TERMIN1.Top = 0 + BUT_TERMIN1.ZOrderSet = 6 + Gridsort1.Left = 204 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 5 + * + + ADD OBJECT '_grdrow1' AS _grdrow WITH ; + Anchor = 15, ; + ColumnCount = 6, ; + DeleteMark = .F., ; + Height = 448, ; + Left = 9, ; + Name = "_grdrow1", ; + Panel = 1, ; + RecordSource = "cDecl", ; + TabIndex = 1, ; + Top = 34, ; + Width = 725, ; + ZOrderSet = 8, ; + Column1.ControlSource = "rand", ; + Column1.Name = "Column1", ; + Column1.ReadOnly = .T., ; + Column1.Width = 41, ; + Column2.ControlSource = "denumire", ; + Column2.Name = "Column2", ; + Column2.ReadOnly = .T., ; + Column2.Width = 430, ; + Column3.ControlSource = "datorat", ; + Column3.DynamicBackColor = "iif(inactivB=1,rgb(225,225,225),rgb(255,255,255))", ; + Column3.Format = "rk", ; + Column3.InputMask = "999 999 999", ; + Column3.Name = "cValoare", ; + Column3.Width = 116, ; + Column4.ControlSource = "recuperat", ; + Column4.Format = "rk", ; + Column4.InputMask = "999 999 999", ; + Column4.Name = "cTVA", ; + Column4.Width = 102, ; + Column5.ControlSource = "datascad", ; + Column5.Name = "cDataScad", ; + Column5.Width = 91, ; + Column6.ControlSource = "nr_evidenta", ; + Column6.Name = "cNrEvidenta", ; + Column6.Width = 202 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_grdrow1.cDataScad.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data scadenta", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.cDataScad.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.cNrEvidenta.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. Evidenta a platii", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.cNrEvidenta.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Rand", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Denumire indicatori", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.cTVA.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "De recuperat", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.cTVA.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.cValoare.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Datorata", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.cValoare.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'But_excel1' AS but_excel WITH ; + Anchor = 9, ; + Left = 682, ; + Name = "But_excel1", ; + TabIndex = 5, ; + Top = 0, ; + ZOrderSet = 12 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_listare1' AS but_listare WITH ; + Anchor = 9, ; + Enabled = .F., ; + Left = 653, ; + Name = "But_listare1", ; + TabIndex = 6, ; + Top = 0, ; + ZOrderSet = 9 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'cmdPDF100' AS cmd_executa WITH ; + Alignment = 2, ; + Anchor = 12, ; + Caption = "Export \ + + ADD OBJECT 'edtInfo' AS _editbox WITH ; + Anchor = 15, ; + Height = 75, ; + Left = 9, ; + Name = "edtInfo", ; + Top = 515, ; + Width = 725, ; + ZOrderSet = 2 + *< END OBJECT: ClassLib="..\..\roadecl\comun\clase\_baza.vcx" BaseClass="editbox" /> + + PROCEDURE afiseaza_mesaj + Lparameters tcMesaj,tnButoane + Local lnReturn,lcTitlu + lcTitlu = [Declaratia 112] + If gcAppName = "CONSAL" + lnReturn = Messagebox(tcMesaj,tnButoane,lcTitlu) + Else + lnReturn = amessagebox(tcMesaj,tnButoane,lcTitlu) + Endif + Return lnReturn + ENDPROC + + PROCEDURE do_executa + *!* 01.02.2012 + *!* d100_201201.pdf + + *!* 15.02.2018 + *!* d100_201801.pdf, d101_201801.pdf, d394_201801.pdf + *!* la d101 trebuie actualizati indicatorii! + + Lparameters tnMenu, tnDecl + *!* tnMenu: 1 = XML, 2 = PDF, 3 = XML + PDF + *!* tnDecl: 100, 102 + #Define CRLF Chr(13) + Chr(10) + + + Local loEx As Exception + Local lnMenu, lcCaleFisier, lcCaleFisierPDF, lcNumeFisier + Local lcAppPath, lcCaleD112, lcComunPath, lcSelect, lcTempPath, lnPos + Local lcFileName, lcFisierPDFNou, lcFisierPDFOriginal, lcFisierXDP, lcFisierXML, lcRun + Local loProcess As "api_apprun" Of "process.vcx" + Local lcD112RezultatFile, lcD112ValidatorFile, lcMesaj, lcRezultat, lcVersiuneDUK + Local lcVersiuneFisiereD112, lcVersiunePDF, llSucces + lcCaleFisier = "" + Local lnDecl + lnDecl = tnDecl + + lcSelect = Select() + If !Empty(tnMenu) + lnMenu = tnMenu + Else + lnMenu = xmenu("Genereaza \ 0 + lcComunPath = Left(m.lcAppPath, lnPos) + Endif + lcComunPath = lcComunPath + Iif(gcAppName = "CONCONT", "COMUNCONTAFIN\", "COMUNROA\") && d:\contafin\comuncontafin\ + + This.UpdateInfo("Creez structura director export...") + + *** Creez structura director export (caletemp\D112\aaaa_ll\firma\ + llSucces = .F. + Try + lcTempPath = Iif(gcAppName = "CONCONT", Addbs(m.dirgen),Addbs(gcDirMare)) + Do Case + Case lnDecl = 100 + lcCaleFisier = m.lcTempPath + "D100\" && c:\temp\D112\ + Case lnDecl = 102 + lcCaleFisier = m.lcTempPath + "D102\" && c:\temp\D112\ + Endcase + + If !Directory(m.lcCaleFisier) + Md (m.lcCaleFisier) + Endif + + *lcCaleFisier = m.lcCaleFisier + Alltrim(Str(This.nAn)) + "_" + Padl(Alltrim(Str(This.nLuna)),2, "0") + "\"&& c:\temp\D112\2011_01\ + lcCaleFisier = m.lcCaleFisier + Alltrim(Str(gnAn)) + "_" + Padl(Alltrim(Str(gnLuna)),2, "0") + "\"&& c:\temp\D112\2011_01\ + If !Directory(m.lcCaleFisier) + Md (m.lcCaleFisier) + Endif + + *lcCaleFisier = m.lcCaleFisier + STRTRAN(This.cNumeFirma,[ ],[_]) + "\" && c:\temp\D112\2011_01\firma\ + lcCaleFisier = m.lcCaleFisier + Strtran(gcFirma,[ ],[_]) + "\" && c:\temp\D112\2011_01\firma\ + If !Directory(m.lcCaleFisier) + Md (m.lcCaleFisier) + Endif + This.UpdateInfo("S-a creat directorul " + m.lcCaleFisier) + + *lcCaleFisierPDF = m.lcCaleFisier + "pdf_inteligent\" && c:\temp\D112\2011_01\firma\pdf_inteligent\ + lcCaleFisierPDF = m.lcCaleFisier && c:\temp\D112\2011_01\firma\ + If !Directory(m.lcCaleFisierPDF) + Md (m.lcCaleFisierPDF) + Endif + This.UpdateInfo("S-a creat directorul " + m.lcCaleFisierPDF) + + llSucces = .T. + Catch To loEx + lcMesaj = "Creare director " + lcCaleFisier + " " + loEx.Message + This.UpdateInfo(lcMesaj) + + Thisform.afiseaza_mesaj(lcMesaj,0+48) + Endtry + If !llSucces + Return + Endif + *!* lcCaleFisier = shortpath(Getdir([],[Alegeti directorul unde se va salva PDF-ul/XML-ul],[Declaratia 112])) + + Do Case + Case lnDecl = 100 + Do Case + Case gnAn*12 + gnLuna >= 2020*12 + 3 + lcFisierPDFOriginal = lcComunPath + "d100_202003.pdf" + Case gnAn*12 + gnLuna >= 2018*12 + 1 + lcFisierPDFOriginal = lcComunPath + "d100_201801.pdf" + Case gnAn*12 + gnLuna >= 2017*12 + 2 + lcFisierPDFOriginal = lcComunPath + "d100_201702.pdf" + Case gnAn*12 + gnLuna >= 2016*12 + 1 + lcFisierPDFOriginal = lcComunPath + "d100_201601.pdf" + Case gnAn*12 + gnLuna >= 2013*12 + 1 + lcFisierPDFOriginal = lcComunPath + "d100_201301.pdf" && d:\contafin\comuncontafin\d112.pdf + Case gnAn*12 + gnLuna >= 2012*12 + 1 + lcFisierPDFOriginal = lcComunPath + "d100_201201.pdf" && d:\contafin\comuncontafin\d112.pdf + Case gnAn*12 + gnLuna >= 2011*12 + 11 + lcFisierPDFOriginal = lcComunPath + "d100_201111.pdf" && d:\contafin\comuncontafin\d112.pdf + Otherwise + lcFisierPDFOriginal = lcComunPath + "d100.pdf" && d:\contafin\comuncontafin\d112.pdf + Endcase + Case lnDecl = 102 + lcFisierPDFOriginal = lcComunPath + "d102.pdf" && d:\contafin\comuncontafin\d112.pdf + Endcase + + *!* 18.01.2012 + This.UpdatePDF(m.lcFisierPDFOriginal) && actualizez pdf de la romfast + *!* 18.01.2012 ^ + + If Upper(Substr(Alltrim(gofirma.cod_fiscal),1,2))='RO' + lcCod_fiscal = Substr(Alltrim(gofirma.cod_fiscal),3,Len(Alltrim(gofirma.cod_fiscal))-2) + Else + lcCod_fiscal = Alltrim(gofirma.cod_fiscal) + Endif + + *lcNumeFisier = "d100_"+ Alltrim(Transform(Thisform.cCodFiscal)) + "_" + Alltrim(Str(Int(Thisform.nAn))) + "_" + Alltrim(Padl(Int(Thisform.nLuna), 2, "0")) + Do Case + Case lnDecl = 100 + lcNumeFisier = "d100_"+ lcCod_fiscal + "_" + Alltrim(Str(gnAn)) + "_" + Padl(gnLuna, 2, "0") + Case lnDecl = 102 + lcNumeFisier = "d102_"+ lcCod_fiscal + "_" + Alltrim(Str(gnAn)) + "_" + Padl(gnLuna, 2, "0") + Endcase + + lcFileName = m.lcCaleFisier + lcNumeFisier + + lcFileNamePDF = m.lcCaleFisierPDF + lcNumeFisier + lcFisierPDFNou = m.lcFileNamePDF + [.pdf] + lcFisierXDP = m.lcFileNamePDF + [.xdp] + + lcFisierXML = m.lcFileName + [.xml] + *lcD100ValidatorFile = m.lcComunPath + [dist\DUKIntegrator.jar] + lcD100RezultatFile = m.lcFisierXML + [.err.txt] + + lcVersiuneFisiereD112 = lcComunPath + "versiuni_fisiere.txt" + *this.cD112ValidatorFile = lcD112ValidatorFile + This.cFisierXML = lcFisierXML + This.cD100RezultatFile = lcD100RezultatFile + + If Inlist(lnMenu, 2,3) + If File(lcFisierPDFNou) + Delete File (lcFisierPDFNou) + Endif + If File(lcFisierXDP) + Delete File (lcFisierXDP) + Endif + Endif + If Inlist(lnMenu, 1,3) + If File(lcFisierXML) + Delete File (lcFisierXML) + Endif + If File(m.lcD100RezultatFile) + Delete File (m.lcD100RezultatFile) + Endif + Endif + This.cD100Rezultat = "" + This.cD100PDF = "" + + *** verific pdf original + *!* If Inlist(lnMenu,2,3) + *!* This.verificare_versiune("A") + *!* This.UpdateInfo(REPLICATE('-', 100)) + *!* ENDIF + + *** verific program validare D112 + *!* If Inlist(lnMenu,1,3) + *!* This.verificare_versiune("J") + *!* This.UpdateInfo(REPLICATE('-', 100)) + *!* Endif + + *** creez xml, xdp (= xml data package = xml cu sesiunea pdf-ului inteligent) + + Do Case + Case lnMenu = 1 + This.UpdateInfo("Se exporta datele in format XML") + Thisform.do_genereaza_xml(lcFisierXML) + This.UpdateInfo(Replicate('-', 100)) + Case lnMenu = 2 + This.UpdateInfo("Se exporta datele in format PDF") + Thisform.do_genereaza_xdp(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + This.UpdateInfo(Replicate('-', 100)) + Case lnMenu = 3 + This.UpdateInfo("Se exporta datele in format XML+PDF") + *!* Thisform.do_genereaza_xml(lcFisierXML) + *!* This.UpdateInfo(REPLICATE('-', 100)) + DO CASE + CASE gnAn*12 + gnLuna >= 2016*12 + 1 + Thisform.do_genereaza_xdp_201601(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou, lnDecl) + This.UpdateInfo(Replicate('-', 100)) + CASE gnAn*12 + gnLuna >= 2011*12 + 11 + Thisform.do_genereaza_xdp_201111(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou, lnDecl) + This.UpdateInfo(Replicate('-', 100)) + OTHERWISE + Thisform.do_genereaza_xdp(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou, lnDecl) + This.UpdateInfo(Replicate('-', 100)) + ENDCASE + Endcase + + + *** deschid fisierul XDP (pdf inteligent) + If Inlist(lnMenu,2,3) And File(lcFisierXDP) + If !File(m.lcFisierPDFOriginal) + OPEN_DEFAULT_APP("http://static.anaf.ro/static/10/Anaf/Declaratii_R/" + ALLTRIM(STR(m.lnDecl)) + ".html") + AMessagebox('Nu exista fisierul ' + m.lcFisierPDFOriginal + CRLF + ; + 'Copiati pdf-ul inteligent D' + ALLTRIM(STR(m.lnDecl)) + ' de pe website-ul ANAF in directorul ' + Justpath(m.lcFisierPDFOriginal) + CRLF + ; + 'cu numele ' + Justfname(m.lcFisierPDFOriginal) + '.', 0+48, _Screen.Caption) + Else + *** copiez fisierul pdf inteligent original in directorul de export + Copy File (lcFisierPDFOriginal) To (lcFisierPDFNou) + This.cD100PDF = m.lcFisierXDP + + If File(m.lcFisierXDP) + This.UpdateInfo([In PDF apasati butonul "Options > Trust this document always" de pe banda galbena pentru a incarca datele.]) + open_default_app(lcFisierXDP) + ENDIF + ENDIF + Endif + + *!* *** deschid explorer in directorul de export + lcRun = [RUN /N7 explorer.exe "] + m.lcCaleFisier + ["] + &lcRun + + + Select (lcSelect) + + + ENDPROC + + PROCEDURE do_genereaza_xdp + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou, tnDecl + Local lcDateStyle, lcMark, lcXDP + Local lcSelect + lcSelect = Select() + Local lnDecl, lcFirma + lnDecl = tnDecl + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + Set Date To Ymd + Set Mark To '-' + + + Set Textmerge On To Memvar lcXDP Noshow + *Set Textmerge On To Memvar lcXML Noshow + \ + \ + \ + \ + \ + \ + \ + + Do Case + Case lnDecl = 100 + \ 100 + Case lnDecl = 102 + \ 102 + Endcase + + \ + \ + \ + \<> + \<> + \ + \ + \ RO + If Upper(Substr(Alltrim(gofirma.cod_fiscal),1,2))='RO' + lcCod_fiscal = Substr(Alltrim(gofirma.cod_fiscal),3,Len(Alltrim(gofirma.cod_fiscal))-2) + Else + lcCod_fiscal = Alltrim(gofirma.cod_fiscal) + Endif + \<> + lcFirma = XmlSpecialCharacters(ALLTRIM(UPPER(NVL(goFirma.antet,'')))) && oproceduri_comune.prg + \<> + \<> + \<> + \<> + \<> + \ + + Do Case + Case lnDecl = 100 + Select * From cDecl Where id_decl < 33 And (datorat<>0 Or recuperat<>0) ; + INTO Cursor cDecl100_102 + Case lnDecl = 102 + Select * From cDecl Where id_decl >= 34 And (datorat<>0 Or recuperat<>0) ; + INTO Cursor cDecl100_102 + Endcase + + \ + + Select cDecl100_102 + Scan + \ <> + \ + \ + \ + \<> + \<> + \<> + \<> + \ <> + \ + \ <> + \ + \<> + \<> + \ + Select cDecl100_102 + Endscan + \ + + If Used('cDecl100_102') + Use In cDecl100_102 + Endif + + \ + \<_numePrenume><> + \<_functia><> + \ + \ + + \ + \ + \ + \ + \ + \ + \ + \ + \ + \ + \ + \ + \ + \ + Set Textmerge To + + Strtofile(lcXDP, tcFisierXDP) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + Select (lcSelect) + + ENDPROC + + PROCEDURE do_genereaza_xdp_201111 + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou, tnDecl + Local lcDateStyle, lcMark, lcXDP, lcNumePrenumeDeclarant, lcNumeDeclarant, lcPrenumeDeclarant, lcFirma + Local lcSelect + lcSelect = Select() + Local lnDecl + lnDecl = tnDecl + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + Set Date To Ymd + Set Mark To '-' + + lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,'')) + lcNumeDeclarant = lcNumePrenumeDeclarant + lcPrenumeDeclarant = "" + If Getwordcount(lcNumePrenumeDeclarant," ") > 1 + lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ") + lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, "")) + Endif + + + Set Textmerge On To Memvar lcXDP Noshow + *Set Textmerge On To Memvar lcXML Noshow + \ + \ + \ + \ + \ + \ + \ + + Do Case + Case lnDecl = 100 + \ 100 + + Case lnDecl = 102 + \ 102 + + Endcase + + \ + \ + \ + \<> + \<> + \0 + \1 + + \ + \ + \ RO + lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,''))) + If Substr(lcCodFiscal,1,2)='RO' + lcCod_fiscal = Alltrim(Substr(lcCodFiscal,3)) + Endif + \<> + + lcFirma = XmlSpecialCharacters(Alltrim(Upper(Nvl(gofirma.antet,'')))) && oproceduri_comune.prg + \<> + \<> + \<> + \<> + \<> + \ + + Do Case + Case lnDecl = 100 + Select * From cDecl Where id_decl < 33 And (datorat<>0 Or recuperat<>0) ; + INTO Cursor cDecl100_102 + Case lnDecl = 102 + Select * From cDecl Where id_decl >= 34 And (datorat<>0 Or recuperat<>0) ; + INTO Cursor cDecl100_102 + Endcase + + \ + + lnIndicatori = 0 + lnSumaTotala = 0 + + Select cDecl100_102 + Scan For id_decl <= 26 + lnIndicatori = lnIndicatori + 1 + lnSumaTotala = lnSumaTotala + datorat + lcScadenta = DTOS(datascad) + lcScadenta = LEFT(m.lcScadenta,4) + '-' + SUBSTR(m.lcScadenta,5,2) + '-' + SUBSTR(m.lcScadenta, 7,2) + + \<> + \ + \ + + \ + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \ + \<> + \<> + \ + + + Select cDecl100_102 + Endscan + + \ + \ + \ + + \ + \ + \ + \ + \<> + \<> + \ + \ + \ + \ + + lnIndicatori = 0 + lnSumaTotala = 0 + + Select cDecl100_102 + Scan For id_decl >= 28 && Impozite si taxe care nu se platesc in contul unic + lnIndicatori = lnIndicatori + 1 + lnSumaTotala = lnSumaTotala + datorat + lcScadenta = DTOS(datascad) + lcScadenta = LEFT(m.lcScadenta,4) + '-' + SUBSTR(m.lcScadenta,5,2) + '-' + SUBSTR(m.lcScadenta, 7,2) + + \<> + \ + \ + + \ + \<> + \<> + \<> + \<> + \<> + \<> + \ + \<> + \<> + \<> + \31/12 + \0 + \ + + Select cDecl100_102 + Endscan + + \ + \ + \ + \ + \<> + \<> + \ + \ + \ + \ + \ + + \ + + If Used('cDecl100_102') + Use In cDecl100_102 + Endif + + \<> + \<> + + \ + \<> + \<> + \ + \<> + \ + \ + + \ + \ + \ + + \1 + \1 + \1 + \1 + + \ + \ + \ + \ + \ + \ + \ + \ + \ + Set Textmerge To + + Strtofile(lcXDP, tcFisierXDP) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + Select (lcSelect) + + ENDPROC + + PROCEDURE do_genereaza_xdp_201601 + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou, tnDecl + Local lcDateStyle, lcMark, lcXDP, lcNumePrenumeDeclarant, lcNumeDeclarant, lcPrenumeDeclarant, lcFirma + Local lcSelect + lcSelect = Select() + Local lnDecl + lnDecl = tnDecl + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + Set Date To Ymd + Set Mark To '-' + + lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,'')) + lcNumeDeclarant = lcNumePrenumeDeclarant + lcPrenumeDeclarant = "" + If Getwordcount(lcNumePrenumeDeclarant," ") > 1 + lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ") + lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, "")) + Endif + + lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,''))) + If Substr(lcCodFiscal,1,2)='RO' + lcCod_fiscal = Alltrim(Substr(lcCodFiscal,3)) + ENDIF + + lcFirma = XmlSpecialCharacters(RemoveCharacters(Alltrim(Upper(Nvl(gofirma.antet,''))),.T.)) && oproceduri_comune.prg + + Select * From cDecl Where (datorat<>0 Or recuperat<>0) INTO Cursor cDecl100Temp + + Set Textmerge On To Memvar lcXDP Noshow + \ + \ + \ + \ + \ + \ + \ + \100 + + \<> + \<> + \<> + \<> + \0 + \RO + \ + \0 + \ + \0 + \0 + \ + \0 + \ + \ + \RO<> + \<> + \<> + \<> + \<> + \\<> + \ + \ + + \ + \<> + \<> + \<> + \ + + lnIndicatori = 0 + lnSumaTotala = 0 + + Select cDecl100Temp + Scan + lnIndicatori = lnIndicatori + 1 + lnSumaTotala = lnSumaTotala + datorat + lcScadenta = DTOS(datascad) + lcScadenta = LEFT(m.lcScadenta,4) + '-' + SUBSTR(m.lcScadenta,5,2) + '-' + SUBSTR(m.lcScadenta, 7,2) + + \ + \<> + \ + \<> + \<> + \0 + \0 + \0 + \0 + \<> + *Suma (lei) + *Suma corectata (lei) + \<> + \<> + \<> + \<> + \<> + \0 + \ + *1000 + *100 + Endscan + \ + \ + \ + \ + \ + Set Textmerge To + Use In (SELECT('cDecl100Temp')) + + Strtofile(lcXDP, tcFisierXDP) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + Select (lcSelect) + + + ENDPROC + + PROCEDURE do_genereaza_xml + LPARAMETERS tcFisierXML + Local lcXML, lcXmlFile, loAsigurat + Local lcDateStyle, lcMark + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + Set Date To Dmy + Set Mark To '.' + + + + Set Textmerge On To Memvar lcXML NOSHOW + \ + Select cDeclaratie + \ + Select cPlatitor + \ > caen="<>" den="<>" <> <> <> <> <> <> <> <> casaAng="<>" tRisc="<>" dat="<>" totalPlata_A="<>"> + Select cAngajatorA + Scan + \ + Endscan + Select cAngajatorB + Scan + \ + Endscan + Select cAngajatorC1 + Scan + \ + Endscan + Select cAngajatorC2 + Scan + \ + Endscan + Select cAngajatorC3 + Scan + \ + Endscan + Select cAngajatorC4 + Scan + \ + Endscan + Select cAngajatorC5 + *!* 02.05.2011 + SCAN FOR !(EMPTY(NVL(C5_recuperat,0)) AND EMPTY(NVL(C5_restituit,0))) + \ + Endscan + *!* 02.05.2011 ^ + Select cAngajatorC6 + Scan + \ + Endscan + Select cAngajatorC7 + Scan + \ + Endscan + Select cAngajatorD + Scan + \ + Endscan + Select cAngajatorE1 + Scan + \ + ENDSCAN + Select cAngajatorE2 + Scan + \ + ENDSCAN + Select cAngajatorE3 + Scan + \ + Endscan + Select cAngajatorF1 + Scan + \ + Endscan + Select cAngajatorF2 + Scan + \ + Endscan + \ + + Select cAsigurati + Scan + Scatter Name loAsigurat + \ > casaSn="<>" asigCI="<>" asigSO="<>"<>> + Select cCoasigurati + Scan For marca = loAsigurat.marca + \ + Endscan + Select cAsiguratiA + Scan For marca = loAsigurat.marca + \ + Endscan + Select cAsiguratiB1 + Scan For marca = loAsigurat.marca + \ + Select cAsiguratiB11 + Scan For marca = loAsigurat.marca + \ + Endscan + \ + Endscan + Select cAsiguratiB2 + Scan For marca = loAsigurat.marca + \ + Endscan + Select cAsiguratiB3 + Scan For marca = loAsigurat.marca + \ + Endscan + Select cAsiguratiB4 + Scan For marca = loAsigurat.marca + \ + ENDSCAN + Select cAsiguratiC + Scan For marca = loAsigurat.marca + \ + Endscan + Select cAsiguratiD + Scan For marca = loAsigurat.marca + \ > <> D_5="<>" D_6="<>" D_7="<>" <> D_9="<>" D_10="<>" <> <> <> D_14="<>" D_15="<>" D_16="<>" D_17="<>" D_18="<>" D_19="<>" D_20="<>" D_21="<>"/> + Endscan + \ + Endscan + \ + Set Textmerge To + + Strtofile(lcXML, m.tcFisierXML) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + ENDPROC + + PROCEDURE getnrevidenta && Generare nr evidenta a platii pentru un impozit + Lparameters tcCodObligatie, tnAn, tnLuna, tdDataScadenta, tnTipObligatie + * tcCodObligatie: 601 + * tnAn, tnLuna: sfarsitul perioadei de raportare + * tdDataScad: data scadenta a obligatiei + * tnTipObligatie: 1(care se platesc în CONT UNIC ), 2 (restul) + + Local lcNrEvidenta, lcSumaControl, lcText, lnSuma, i + + lcCodObligatie = Alltrim(NVL(tcCodObligatie, '')) && XXX + lcPerioadaRaportare = PADL(INT(m.tnLuna), 2, '0') + RIGHT(ALLTRIM(STR(INT(m.tnAn))), 2) && LLAA + lcDataScadenta = IIF(TYPE('tdDataScadenta') = 'D', DTOS(tdDataScadenta), '') + lcDataScadenta = RIGHT(m.lcDataScadenta,2) + SUBSTR(m.lcDataScadenta,5,2) + SUBSTR(m.lcDataScadenta, 3, 2) && ZZLLAA + lcTipObligatie = IIF(tnTipObligatie = 1, '1', '0') + + Text To lcText Noshow + Ex.nr.evid.a platii : 10 602 01 0611 250711 0 0 00 35 + + Verificare componenta si suma de control + pentru + nr_evid : + Poz.1-2 + :10 + Poz.3-5 + : cod obligatie (nomenclator) + Poz.6-7 + :01 + Poz.8-11 + : LLAA (sf.per.de raportare) + Poz.12-17 + : ZZLLAA (scadenta platii) + Poz.18: + 1 daca tip_oblig=1 + 0 daca tip_oblig=2 + + Poz.19 + : 0 + Poz.20-21 + : 00 + Poz.22-23 + : suma de control = suma + primelor 21 pozitii (se iau ultimele 2 cifre + ale sumei) + + Endtext + + + lcNrEvidenta = '10' + lcCodObligatie + '01' + lcPerioadaRaportare + lcDataScadenta + lcTipObligatie + '0' + '00' + lnSuma = 0 + For i = 1 To Len(m.lcNrEvidenta) + lnSuma = lnSuma + Int(Val(Substr(m.lcNrEvidenta, i, 1))) + Endfor + lcSumaControl = Right(Alltrim(Str(lnSuma)), 2) + lcNrEvidenta = lcNrEvidenta + m.lcSumaControl + + Return m.lcNrEvidenta + + ENDPROC + + PROCEDURE inainte_de_do_excel + DO export_excel_grid WITH this._grdrow1 + + ENDPROC + + PROCEDURE inainte_de_do_listare + Local lcTabel + lcTabel = Thisform._grdrow1.RecordSource + If Reccount(lcTabel)>0 + Private pcCaen + pcCaen = Alltrim(gofirma.caen) + + If !Empty(pcCaen) And !Isnull(pcCaen) + Private poCaen + Store '' To poCaen + pcschema=[] + pcselect=['select codcaen from sitfin_codcaen where 1=2 '] + pcfiltru=[cod=] + pcCaen + pcorder=[] + llAfisare=.F. + gencursor('poCaen','cCaen',pcselect,pcfiltru,pcschema,pcorder,llAfisare) + poCaen.ca_baza1.afisare() + + Select cCaen + pcCaen = codcaen + + If Used('cCaen') + Use In cCaen + Endif + Endif + + Thisform.AlwaysOnTop = .F. + Select (lcTabel) + Report Form decont To Printer Prompt Preview + Thisform.AlwaysOnTop = .T. + Else + amessagebox("Nu exista inregistrari pentru listare!",48,"Atentie") + Endif + ENDPROC + + PROCEDURE Init + PARAMETERS tnDecl, tlTrim + + DODEFAULT() + thisform.nDecl= tnDecl + thisform.lTrim = tlTrim + + + + + ENDPROC + + PROCEDURE Show + Lparameters nStyle + + + + Thisform.totaluri("datorat") + Thisform.totaluri("recuperat") + + DODEFAULT(nStyle) + ENDPROC + + PROCEDURE totaluri + Lparameters tcColoana + Local lcFormula, lcColoana, lcTabel, lnSuma, lnId_ind, lcRand + + If Empty(tcColoana) + lcColoana = "datorat" + Else + lcColoana = Alltrim(tcColoana) + Endif + + lcTabel = thisform._grdrow1.RecordSource + Select * From (lcTabel) WITH (BUFFERING = .T.) Into Cursor cTemp Readwrite NOFILTER + + Select cTemp + Scan For tip = 5 + lnSuma = 0 + lcFormula = Alltrim(cTemp.formula) + lcRand = ALLTRIM(rand) + *!* IF '32'$lcRand AND 'tva'$LOWER(lcColoana) + *!* DEBUG + *!* SUSPEND + *!* ENDIF + *!* WAIT WINDOW lcFormula + " - " + lcColoana NOWAIT + lnSuma = calc_indicatori_randuri(lcFormula, "cTemp",lcColoana) + Select cTemp + Replace &lcColoana With lnSuma + Select (lcTabel) + Update (lcTabel) Set &lcColoana = lnSuma Where ALLTRIM(rand) = lcRand + + Select cTemp + Endscan + Use In cTemp + + SELECT (lcTabel) + GO TOP + + + ENDPROC + + PROCEDURE updateinfo + #DEFINE CRLF CHR(13) + CHR(10) + Lparameters tcInfo + + + Local loInfo + loInfo = this.edtInfo + If Upper(tcInfo) = 'RESET' + loInfo.Value = "" + Else + loInfo.Value = loInfo.Value + m.tcInfo + CRLF + CRLF + Endif + loInfo.Refresh() + + + ENDPROC + + PROCEDURE updatepdf + Lparameters tcPDFFile + *** tcPDFFile: calea completa a fisierului pdf D:\CONTAFIN\COMUNCONTAFIN\d390.pdf + + Local lcFile, lcPath, llOpen + lcFile = Justfname(m.tcPDFFile) + lcPath = Addbs(Justpath(m.tcPDFFile)) + llOpen = .F. + + Return DownloadSupportFile(m.lcFile, m.lcPath, m.llOpen) && proceduri_comune.prg + + + ENDPROC + + PROCEDURE cmdPDF100.Click + *!* 12.05.2011 + *!* Thisform.do_executa(2) && PDF + + *** Generare Nr evidenta a platii + SELECT cDecl + SCAN FOR (datorat <> 0 OR recuperat <> 0) + lcCodObligatie = ALLTRIM(cod_imp) + IF EMPTY(m.lcCodObligatie) + loop + ENDIF + lnAn = m.gnAn + lnLuna = m.gnLuna + ldDataScadenta = datascad + m.lnTipObligatie = IIF(LEFT(cod_bugetar, 4) <> '5502', 1, 2) && 1(care se platesc în CONT UNIC ), 2 (restul) + + lcNrEvidenta = Thisform.GetNrEvidenta(lcCodObligatie, lnAn, lnLuna, ldDataScadenta, lnTipObligatie) + SELECT cDecl + REPLACE nr_evidenta WITH m.lcNrEvidenta + ENDSCAN + + Thisform.do_executa(3,100) && XML + PDF + *!* 12.05.2011 ^ + ENDPROC + + PROCEDURE _grdrow1.cTVA.Text1.LostFocus + IF NVL(FLOOR(THIS.VALUE),0) <> NVL(FLOOR(THISFORM.nOldvalue),0) + THISFORM.totaluri("recuperat") + ENDIF + ENDPROC + + PROCEDURE _grdrow1.cTVA.Text1.When + thisform.nOldvalue = this.Value + + IF inactivR = 1 + RETURN .F. + ENDIF + ENDPROC + + PROCEDURE _grdrow1.cValoare.Text1.LostFocus + IF NVL(FLOOR(THIS.VALUE),0) <> NVL(FLOOR(THISFORM.nOldvalue),0) + THISFORM.totaluri("datorat") + ENDIF + ENDPROC + + PROCEDURE _grdrow1.cValoare.Text1.When + thisform.nOldvalue = this.Value + + IF inactivD = 1 + RETURN .F. + ENDIF + ENDPROC + + PROCEDURE _grdrow1.Init + this.SetAll("DynamicBackColor","IIF(antet=1,RGB(180,180,180),IIF(tip=5,RGB(230,244,255),RGB(255,255,255)))", "Column") + + this.cValoare.DynamicBackColor = [iif(inactivD=1,rgb(225,225,225),IIF(tip=5,RGB(230,244,255),IIF(antet=1,RGB(180,180,180),rgb(255,255,255))))] && rgb(128,128,128) + this.cTVA.DynamicBackColor = [iif(inactivR=1,rgb(225,225,225),IIF(tip=5,RGB(230,244,255),IIF(antet=1,RGB(180,180,180),rgb(255,255,255))))] + + this.cValoare.DynamicForeColor = [iif(inactivD=1,rgb(225,225,225),IIF(antet=1,RGB(180,180,180),rgb(0,0,0)))] + this.cTVA.DynamicForeColor = [iif(inactivR=1,rgb(225,225,225),IIF(antet=1,RGB(180,180,180),rgb(0,0,0)))] + + + + + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_decl100_2020 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="edtInfo" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cValoare.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cValoare.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cTVA.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cTVA.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cDataScad.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cDataScad.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cNrEvidenta.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cNrEvidenta.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cBonificatie.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cBonificatie.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cSponsorizari.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cSponsorizari.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cCostAMEF.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cCostAMEF.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cmdPDF100" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> + + * + *m: afiseaza_mesaj + *m: do_genereaza_xdp + *m: do_genereaza_xdp_201111 + *m: do_genereaza_xdp_201601 + *m: do_genereaza_xdp_202003 + *m: do_genereaza_xdp_202012 + *m: do_genereaza_xdp_202112 + *m: do_genereaza_xdp_202401 + *m: do_genereaza_xml + *m: getnrevidenta && Generare nr evidenta a platii pentru un impozit + *m: totaluri + *m: updateinfo + *m: updatepdf + *p: cd100pdf + *p: cd100rezultat + *p: cd100rezultatfile + *p: cfisierxml + *p: ltrim + *p: ndecl + *p: noldvalue + * + + * + BorderStyle = 3 + cd100pdf = '' + cd100rezultat = '' + cd100rezultatfile = '' + cfisierxml = '' + DoCreate = .T. + Height = 593 + ltrim = .F. + Name = "frm_decl100_2020" + ndecl = 0 + noldvalue = 0 + Width = 744 + WindowState = 2 + _memberdata = + + + + + + + + _shape1.Anchor = 10 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 749 + _shape1.ZOrderSet = 0 + _shape2.Anchor = 9 + _shape2.Height = 29 + _shape2.Left = 650 + _shape2.Name = "_shape2" + _shape2.Top = -1 + _shape2.Width = 94 + _shape2.ZOrderSet = 1 + Lb_titlu_alb_b121.Caption = "Declaratia 100 privind obligatiile de plata la BS" + Lb_titlu_alb_b121.Left = 9 + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 7 + Lb_titlu_alb_b121.Top = 7 + Lb_titlu_alb_b121.ZOrderSet = 5 + BUT_TERMIN1.Anchor = 9 + BUT_TERMIN1.Left = 713 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 4 + BUT_TERMIN1.Top = 0 + BUT_TERMIN1.ZOrderSet = 6 + Gridsort1.Left = 204 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 5 + * + + ADD OBJECT '_grdrow1' AS _grdrow WITH ; + Anchor = 15, ; + ColumnCount = 9, ; + DeleteMark = .F., ; + Height = 448, ; + Left = 9, ; + Name = "_grdrow1", ; + Panel = 1, ; + RecordSource = "cDecl", ; + TabIndex = 1, ; + Top = 34, ; + Width = 725, ; + ZOrderSet = 8, ; + Column1.ControlSource = "rand", ; + Column1.Name = "Column1", ; + Column1.ReadOnly = .T., ; + Column1.Width = 41, ; + Column2.ControlSource = "denumire", ; + Column2.Name = "Column2", ; + Column2.ReadOnly = .T., ; + Column2.Width = 430, ; + Column3.ColumnOrder = 3, ; + Column3.ControlSource = "datorat", ; + Column3.DynamicBackColor = "iif(inactivB=1,rgb(225,225,225),rgb(255,255,255))", ; + Column3.Format = "rk", ; + Column3.InputMask = "999 999 999", ; + Column3.Name = "cValoare", ; + Column3.Width = 90, ; + Column4.ColumnOrder = 4, ; + Column4.ControlSource = "deductibil", ; + Column4.Format = "rk", ; + Column4.InputMask = "999 999 999", ; + Column4.Name = "cTVA", ; + Column4.Width = 159, ; + Column5.ColumnOrder = 8, ; + Column5.ControlSource = "datascad", ; + Column5.Name = "cDataScad", ; + Column5.Width = 91, ; + Column6.ColumnOrder = 9, ; + Column6.ControlSource = "nr_evidenta", ; + Column6.Name = "cNrEvidenta", ; + Column6.Width = 202, ; + Column7.ColumnOrder = 7, ; + Column7.ControlSource = "bonificatie", ; + Column7.Format = "RK", ; + Column7.InputMask = "999 999 999", ; + Column7.Name = "cBonificatie", ; + Column8.ColumnOrder = 5, ; + Column8.ControlSource = "sponsorizari", ; + Column8.Format = "RK", ; + Column8.InputMask = "999 999 999", ; + Column8.Name = "cSponsorizari", ; + Column8.Width = 100, ; + Column9.ColumnOrder = 6, ; + Column9.ControlSource = "costamef", ; + Column9.Format = "RK", ; + Column9.InputMask = "999 999 999", ; + Column9.Name = "cCostAMEF", ; + Column9.Width = 105 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_grdrow1.cBonificatie.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Bonificatie", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.cBonificatie.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.cCostAMEF.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cost AMEF", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.cCostAMEF.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.cDataScad.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data scadenta", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.cDataScad.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.cNrEvidenta.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. Evidenta a platii", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.cNrEvidenta.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Rand", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Denumire indicatori", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.cSponsorizari.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sponsorizari", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.cSponsorizari.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.cTVA.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Deductibila/datorata anterior", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.cTVA.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.cValoare.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Datorata", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.cValoare.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'But_excel1' AS but_excel WITH ; + Anchor = 9, ; + Left = 682, ; + Name = "But_excel1", ; + TabIndex = 5, ; + Top = 0, ; + ZOrderSet = 12 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_listare1' AS but_listare WITH ; + Anchor = 9, ; + Enabled = .F., ; + Left = 653, ; + Name = "But_listare1", ; + TabIndex = 6, ; + Top = 0, ; + ZOrderSet = 9 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'cmdPDF100' AS cmd_executa WITH ; + Alignment = 2, ; + Anchor = 12, ; + Caption = "Export \ + + ADD OBJECT 'edtInfo' AS _editbox WITH ; + Anchor = 14, ; + Height = 75, ; + Left = 9, ; + Name = "edtInfo", ; + Top = 515, ; + Width = 725, ; + ZOrderSet = 2 + *< END OBJECT: ClassLib="..\..\roadecl\comun\clase\_baza.vcx" BaseClass="editbox" /> + + PROCEDURE afiseaza_mesaj + Lparameters tcMesaj,tnButoane + Local lnReturn,lcTitlu + lcTitlu = [Declaratia 112] + If gcAppName = "CONSAL" + lnReturn = Messagebox(tcMesaj,tnButoane,lcTitlu) + Else + lnReturn = amessagebox(tcMesaj,tnButoane,lcTitlu) + Endif + Return lnReturn + ENDPROC + + PROCEDURE do_executa + *!* 01.02.2012 + *!* d100_201201.pdf + + *!* 15.02.2018 + *!* d100_201801.pdf, d101_201801.pdf, d394_201801.pdf + *!* la d101 trebuie actualizati indicatorii! + + Lparameters tnMenu, tnDecl + *!* tnMenu: 1 = XML, 2 = PDF, 3 = XML + PDF + *!* tnDecl: 100, 102 + #Define CRLF Chr(13) + Chr(10) + + + Local loEx As Exception + Local lnMenu, lcCaleFisier, lcCaleFisierPDF, lcNumeFisier + Local lcAppPath, lcCaleD112, lcComunPath, lcSelect, lcTempPath, lnPos + Local lcFileName, lcFisierPDFNou, lcFisierPDFOriginal, lcFisierXDP, lcFisierXML, lcRun + Local loProcess As "api_apprun" Of "process.vcx" + Local lcD112RezultatFile, lcD112ValidatorFile, lcMesaj, lcRezultat, lcVersiuneDUK + Local lcVersiuneFisiereD112, lcVersiunePDF, llSucces + lcCaleFisier = "" + Local lnDecl + lnDecl = tnDecl + + lcSelect = Select() + If !Empty(tnMenu) + lnMenu = tnMenu + Else + lnMenu = xmenu("Genereaza \ 0 + lcComunPath = Left(m.lcAppPath, lnPos) + Endif + lcComunPath = lcComunPath + Iif(gcAppName = "CONCONT", "COMUNCONTAFIN\", "COMUNROA\") && d:\contafin\comuncontafin\ + + This.UpdateInfo("Creez structura director export...") + + *** Creez structura director export (caletemp\D112\aaaa_ll\firma\ + llSucces = .F. + Try + lcTempPath = Iif(gcAppName = "CONCONT", Addbs(m.dirgen),Addbs(gcDirMare)) + Do Case + Case lnDecl = 100 + lcCaleFisier = m.lcTempPath + "D100\" && c:\temp\D112\ + Case lnDecl = 102 + lcCaleFisier = m.lcTempPath + "D102\" && c:\temp\D112\ + Endcase + + If !Directory(m.lcCaleFisier) + Md (m.lcCaleFisier) + Endif + + *lcCaleFisier = m.lcCaleFisier + Alltrim(Str(This.nAn)) + "_" + Padl(Alltrim(Str(This.nLuna)),2, "0") + "\"&& c:\temp\D112\2011_01\ + lcCaleFisier = m.lcCaleFisier + Alltrim(Str(gnAn)) + "_" + Padl(Alltrim(Str(gnLuna)),2, "0") + "\"&& c:\temp\D112\2011_01\ + If !Directory(m.lcCaleFisier) + Md (m.lcCaleFisier) + Endif + + *lcCaleFisier = m.lcCaleFisier + STRTRAN(This.cNumeFirma,[ ],[_]) + "\" && c:\temp\D112\2011_01\firma\ + lcCaleFisier = m.lcCaleFisier + Strtran(gcFirma,[ ],[_]) + "\" && c:\temp\D112\2011_01\firma\ + If !Directory(m.lcCaleFisier) + Md (m.lcCaleFisier) + Endif + This.UpdateInfo("S-a creat directorul " + m.lcCaleFisier) + + *lcCaleFisierPDF = m.lcCaleFisier + "pdf_inteligent\" && c:\temp\D112\2011_01\firma\pdf_inteligent\ + lcCaleFisierPDF = m.lcCaleFisier && c:\temp\D112\2011_01\firma\ + If !Directory(m.lcCaleFisierPDF) + Md (m.lcCaleFisierPDF) + Endif + This.UpdateInfo("S-a creat directorul " + m.lcCaleFisierPDF) + + llSucces = .T. + Catch To loEx + lcMesaj = "Creare director " + lcCaleFisier + " " + loEx.Message + This.UpdateInfo(lcMesaj) + + Thisform.afiseaza_mesaj(lcMesaj,0+48) + Endtry + If !llSucces + Return + Endif + *!* lcCaleFisier = shortpath(Getdir([],[Alegeti directorul unde se va salva PDF-ul/XML-ul],[Declaratia 112])) + + Do Case + Case lnDecl = 100 + Do Case + Case gnAn*12 + gnLuna >= 2024*12 + 1 + lcFisierPDFOriginal = lcComunPath + "d100_202401.pdf" + Case gnAn*12 + gnLuna >= 2021*12 + 12 + lcFisierPDFOriginal = lcComunPath + "d100_202112.pdf" + Case gnAn*12 + gnLuna >= 2020*12 + 12 + lcFisierPDFOriginal = lcComunPath + "d100_202012.pdf" + Case gnAn*12 + gnLuna >= 2020*12 + 3 + lcFisierPDFOriginal = lcComunPath + "d100_202003.pdf" + Case gnAn*12 + gnLuna >= 2018*12 + 1 + lcFisierPDFOriginal = lcComunPath + "d100_201801.pdf" + Case gnAn*12 + gnLuna >= 2017*12 + 2 + lcFisierPDFOriginal = lcComunPath + "d100_201702.pdf" + Case gnAn*12 + gnLuna >= 2016*12 + 1 + lcFisierPDFOriginal = lcComunPath + "d100_201601.pdf" + Case gnAn*12 + gnLuna >= 2013*12 + 1 + lcFisierPDFOriginal = lcComunPath + "d100_201301.pdf" && d:\contafin\comuncontafin\d112.pdf + Case gnAn*12 + gnLuna >= 2012*12 + 1 + lcFisierPDFOriginal = lcComunPath + "d100_201201.pdf" && d:\contafin\comuncontafin\d112.pdf + Case gnAn*12 + gnLuna >= 2011*12 + 11 + lcFisierPDFOriginal = lcComunPath + "d100_201111.pdf" && d:\contafin\comuncontafin\d112.pdf + Otherwise + lcFisierPDFOriginal = lcComunPath + "d100.pdf" && d:\contafin\comuncontafin\d112.pdf + Endcase + Case lnDecl = 102 + lcFisierPDFOriginal = lcComunPath + "d102.pdf" && d:\contafin\comuncontafin\d112.pdf + Endcase + + *!* 18.01.2012 + This.UpdatePDF(m.lcFisierPDFOriginal) && actualizez pdf de la romfast + *!* 18.01.2012 ^ + + If Upper(Substr(Alltrim(gofirma.cod_fiscal),1,2))='RO' + lcCod_fiscal = Substr(Alltrim(gofirma.cod_fiscal),3,Len(Alltrim(gofirma.cod_fiscal))-2) + Else + lcCod_fiscal = Alltrim(gofirma.cod_fiscal) + Endif + + *lcNumeFisier = "d100_"+ Alltrim(Transform(Thisform.cCodFiscal)) + "_" + Alltrim(Str(Int(Thisform.nAn))) + "_" + Alltrim(Padl(Int(Thisform.nLuna), 2, "0")) + Do Case + Case lnDecl = 100 + lcNumeFisier = "d100_"+ lcCod_fiscal + "_" + Alltrim(Str(gnAn)) + "_" + Padl(gnLuna, 2, "0") + Case lnDecl = 102 + lcNumeFisier = "d102_"+ lcCod_fiscal + "_" + Alltrim(Str(gnAn)) + "_" + Padl(gnLuna, 2, "0") + Endcase + + lcFileName = m.lcCaleFisier + lcNumeFisier + + lcFileNamePDF = m.lcCaleFisierPDF + lcNumeFisier + lcFisierPDFNou = m.lcFileNamePDF + [.pdf] + lcFisierXDP = m.lcFileNamePDF + [.xdp] + + lcFisierXML = m.lcFileName + [.xml] + *lcD100ValidatorFile = m.lcComunPath + [dist\DUKIntegrator.jar] + lcD100RezultatFile = m.lcFisierXML + [.err.txt] + + lcVersiuneFisiereD112 = lcComunPath + "versiuni_fisiere.txt" + *this.cD112ValidatorFile = lcD112ValidatorFile + This.cFisierXML = lcFisierXML + This.cD100RezultatFile = lcD100RezultatFile + + If Inlist(lnMenu, 2,3) + If File(lcFisierPDFNou) + Delete File (lcFisierPDFNou) + Endif + If File(lcFisierXDP) + Delete File (lcFisierXDP) + Endif + Endif + If Inlist(lnMenu, 1,3) + If File(lcFisierXML) + Delete File (lcFisierXML) + Endif + If File(m.lcD100RezultatFile) + Delete File (m.lcD100RezultatFile) + Endif + Endif + This.cD100Rezultat = "" + This.cD100PDF = "" + + *** verific pdf original + *!* If Inlist(lnMenu,2,3) + *!* This.verificare_versiune("A") + *!* This.UpdateInfo(REPLICATE('-', 100)) + *!* ENDIF + + *** verific program validare D112 + *!* If Inlist(lnMenu,1,3) + *!* This.verificare_versiune("J") + *!* This.UpdateInfo(REPLICATE('-', 100)) + *!* Endif + + *** creez xml, xdp (= xml data package = xml cu sesiunea pdf-ului inteligent) + + Do Case + Case lnMenu = 1 + This.UpdateInfo("Se exporta datele in format XML") + Thisform.do_genereaza_xml(lcFisierXML) + This.UpdateInfo(Replicate('-', 100)) + Case lnMenu = 2 + This.UpdateInfo("Se exporta datele in format PDF") + Thisform.do_genereaza_xdp(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + This.UpdateInfo(Replicate('-', 100)) + Case lnMenu = 3 + This.UpdateInfo("Se exporta datele in format XML+PDF") + *!* Thisform.do_genereaza_xml(lcFisierXML) + *!* This.UpdateInfo(REPLICATE('-', 100)) + DO CASE + CASE gnAn*12 + gnLuna >= 2024*12 + 1 + Thisform.do_genereaza_xdp_202401(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou, lnDecl) + This.UpdateInfo(Replicate('-', 100)) + + CASE gnAn*12 + gnLuna >= 2021*12 + 12 + Thisform.do_genereaza_xdp_202112(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou, lnDecl) + This.UpdateInfo(Replicate('-', 100)) + + CASE gnAn*12 + gnLuna >= 2020*12 + 12 + Thisform.do_genereaza_xdp_202012(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou, lnDecl) + This.UpdateInfo(Replicate('-', 100)) + CASE gnAn*12 + gnLuna >= 2020*12 + 3 + Thisform.do_genereaza_xdp_202003(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou, lnDecl) + This.UpdateInfo(Replicate('-', 100)) + CASE gnAn*12 + gnLuna >= 2016*12 + 1 + Thisform.do_genereaza_xdp_201601(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou, lnDecl) + This.UpdateInfo(Replicate('-', 100)) + CASE gnAn*12 + gnLuna >= 2011*12 + 11 + Thisform.do_genereaza_xdp_201111(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou, lnDecl) + This.UpdateInfo(Replicate('-', 100)) + OTHERWISE + Thisform.do_genereaza_xdp(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou, lnDecl) + This.UpdateInfo(Replicate('-', 100)) + ENDCASE + Endcase + + + *** deschid fisierul XDP (pdf inteligent) + If Inlist(lnMenu,2,3) And File(lcFisierXDP) + If !File(m.lcFisierPDFOriginal) + OPEN_DEFAULT_APP("http://static.anaf.ro/static/10/Anaf/Declaratii_R/" + ALLTRIM(STR(m.lnDecl)) + ".html") + AMessagebox('Nu exista fisierul ' + m.lcFisierPDFOriginal + CRLF + ; + 'Copiati pdf-ul inteligent D' + ALLTRIM(STR(m.lnDecl)) + ' de pe website-ul ANAF in directorul ' + Justpath(m.lcFisierPDFOriginal) + CRLF + ; + 'cu numele ' + Justfname(m.lcFisierPDFOriginal) + '.', 0+48, _Screen.Caption) + Else + *** copiez fisierul pdf inteligent original in directorul de export + Copy File (lcFisierPDFOriginal) To (lcFisierPDFNou) + This.cD100PDF = m.lcFisierXDP + + If File(m.lcFisierXDP) + This.UpdateInfo([In PDF apasati butonul "Options > Trust this document always" de pe banda galbena pentru a incarca datele.]) + open_default_app(lcFisierXDP) + ENDIF + ENDIF + Endif + + *!* *** deschid explorer in directorul de export + lcRun = [RUN /N7 explorer.exe "] + m.lcCaleFisier + ["] + &lcRun + + + Select (lcSelect) + + + ENDPROC + + PROCEDURE do_genereaza_xdp + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou, tnDecl + Local lcDateStyle, lcMark, lcXDP + Local lcSelect + lcSelect = Select() + Local lnDecl, lcFirma + lnDecl = tnDecl + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + Set Date To Ymd + Set Mark To '-' + + + Set Textmerge On To Memvar lcXDP Noshow + *Set Textmerge On To Memvar lcXML Noshow + \ + \ + \ + \ + \ + \ + \ + + Do Case + Case lnDecl = 100 + \ 100 + Case lnDecl = 102 + \ 102 + Endcase + + \ + \ + \ + \<> + \<> + \ + \ + \ RO + If Upper(Substr(Alltrim(gofirma.cod_fiscal),1,2))='RO' + lcCod_fiscal = Substr(Alltrim(gofirma.cod_fiscal),3,Len(Alltrim(gofirma.cod_fiscal))-2) + Else + lcCod_fiscal = Alltrim(gofirma.cod_fiscal) + Endif + \<> + lcFirma = XmlSpecialCharacters(ALLTRIM(UPPER(NVL(goFirma.antet,'')))) && oproceduri_comune.prg + \<> + \<> + \<> + \<> + \<> + \ + + Do Case + Case lnDecl = 100 + Select * From cDecl Where id_decl < 33 And (datorat<>0 Or recuperat<>0) ; + INTO Cursor cDecl100_102 + Case lnDecl = 102 + Select * From cDecl Where id_decl >= 34 And (datorat<>0 Or recuperat<>0) ; + INTO Cursor cDecl100_102 + Endcase + + \ + + Select cDecl100_102 + Scan + \ <> + \ + \ + \ + \<> + \<> + \<> + \<> + \ <> + \ + \ <> + \ + \<> + \<> + \ + Select cDecl100_102 + Endscan + \ + + If Used('cDecl100_102') + Use In cDecl100_102 + Endif + + \ + \<_numePrenume><> + \<_functia><> + \ + \ + + \ + \ + \ + \ + \ + \ + \ + \ + \ + \ + \ + \ + \ + \ + Set Textmerge To + + Strtofile(lcXDP, tcFisierXDP) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + Select (lcSelect) + + ENDPROC + + PROCEDURE do_genereaza_xdp_201111 + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou, tnDecl + Local lcDateStyle, lcMark, lcXDP, lcNumePrenumeDeclarant, lcNumeDeclarant, lcPrenumeDeclarant, lcFirma + Local lcSelect + lcSelect = Select() + Local lnDecl + lnDecl = tnDecl + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + Set Date To Ymd + Set Mark To '-' + + lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,'')) + lcNumeDeclarant = lcNumePrenumeDeclarant + lcPrenumeDeclarant = "" + If Getwordcount(lcNumePrenumeDeclarant," ") > 1 + lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ") + lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, "")) + Endif + + + Set Textmerge On To Memvar lcXDP Noshow + *Set Textmerge On To Memvar lcXML Noshow + \ + \ + \ + \ + \ + \ + \ + + Do Case + Case lnDecl = 100 + \ 100 + + Case lnDecl = 102 + \ 102 + + Endcase + + \ + \ + \ + \<> + \<> + \0 + \1 + + \ + \ + \ RO + lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,''))) + If Substr(lcCodFiscal,1,2)='RO' + lcCod_fiscal = Alltrim(Substr(lcCodFiscal,3)) + Endif + \<> + + lcFirma = XmlSpecialCharacters(Alltrim(Upper(Nvl(gofirma.antet,'')))) && oproceduri_comune.prg + \<> + \<> + \<> + \<> + \<> + \ + + Do Case + Case lnDecl = 100 + Select * From cDecl Where id_decl < 33 And (datorat<>0 Or recuperat<>0) ; + INTO Cursor cDecl100_102 + Case lnDecl = 102 + Select * From cDecl Where id_decl >= 34 And (datorat<>0 Or recuperat<>0) ; + INTO Cursor cDecl100_102 + Endcase + + \ + + lnIndicatori = 0 + lnSumaTotala = 0 + + Select cDecl100_102 + Scan For id_decl <= 26 + lnIndicatori = lnIndicatori + 1 + lnSumaTotala = lnSumaTotala + datorat + lcScadenta = DTOS(datascad) + lcScadenta = LEFT(m.lcScadenta,4) + '-' + SUBSTR(m.lcScadenta,5,2) + '-' + SUBSTR(m.lcScadenta, 7,2) + + \<> + \ + \ + + \ + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \ + \<> + \<> + \ + + + Select cDecl100_102 + Endscan + + \ + \ + \ + + \ + \ + \ + \ + \<> + \<> + \ + \ + \ + \ + + lnIndicatori = 0 + lnSumaTotala = 0 + + Select cDecl100_102 + Scan For id_decl >= 28 && Impozite si taxe care nu se platesc in contul unic + lnIndicatori = lnIndicatori + 1 + lnSumaTotala = lnSumaTotala + datorat + lcScadenta = DTOS(datascad) + lcScadenta = LEFT(m.lcScadenta,4) + '-' + SUBSTR(m.lcScadenta,5,2) + '-' + SUBSTR(m.lcScadenta, 7,2) + + \<> + \ + \ + + \ + \<> + \<> + \<> + \<> + \<> + \<> + \ + \<> + \<> + \<> + \31/12 + \0 + \ + + Select cDecl100_102 + Endscan + + \ + \ + \ + \ + \<> + \<> + \ + \ + \ + \ + \ + + \ + + If Used('cDecl100_102') + Use In cDecl100_102 + Endif + + \<> + \<> + + \ + \<> + \<> + \ + \<> + \ + \ + + \ + \ + \ + + \1 + \1 + \1 + \1 + + \ + \ + \ + \ + \ + \ + \ + \ + \ + Set Textmerge To + + Strtofile(lcXDP, tcFisierXDP) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + Select (lcSelect) + + ENDPROC + + PROCEDURE do_genereaza_xdp_201601 + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou, tnDecl + Local lcDateStyle, lcMark, lcXDP, lcNumePrenumeDeclarant, lcNumeDeclarant, lcPrenumeDeclarant, lcFirma + Local lcSelect + lcSelect = Select() + Local lnDecl + lnDecl = tnDecl + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + Set Date To Ymd + Set Mark To '-' + + lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,'')) + lcNumeDeclarant = lcNumePrenumeDeclarant + lcPrenumeDeclarant = "" + If Getwordcount(lcNumePrenumeDeclarant," ") > 1 + lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ") + lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, "")) + Endif + + lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,''))) + If Substr(lcCodFiscal,1,2)='RO' + lcCod_fiscal = Alltrim(Substr(lcCodFiscal,3)) + ENDIF + + lcFirma = XmlSpecialCharacters(RemoveCharacters(Alltrim(Upper(Nvl(gofirma.antet,''))),.T.)) && oproceduri_comune.prg + + Select * From cDecl Where (datorat<>0 Or recuperat<>0) INTO Cursor cDecl100Temp + + Set Textmerge On To Memvar lcXDP Noshow + \ + \ + \ + \ + \ + \ + \ + \100 + + \<> + \<> + \<> + \<> + \0 + \RO + \ + \0 + \ + \0 + \0 + \ + \0 + \ + \ + \RO<> + \<> + \<> + \<> + \<> + \\<> + \ + \ + + \ + \<> + \<> + \<> + \ + + lnIndicatori = 0 + lnSumaTotala = 0 + + Select cDecl100Temp + Scan + lnIndicatori = lnIndicatori + 1 + lnSumaTotala = lnSumaTotala + datorat + lcScadenta = DTOS(datascad) + lcScadenta = LEFT(m.lcScadenta,4) + '-' + SUBSTR(m.lcScadenta,5,2) + '-' + SUBSTR(m.lcScadenta, 7,2) + + \ + \<> + \ + \<> + \<> + \0 + \0 + \0 + \0 + \<> + *Suma (lei) + *Suma corectata (lei) + \<> + \<> + \<> + \<> + \<> + \0 + \ + *1000 + *100 + Endscan + \ + \ + \ + \ + \ + Set Textmerge To + Use In (SELECT('cDecl100Temp')) + + Strtofile(lcXDP, tcFisierXDP) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + Select (lcSelect) + + + ENDPROC + + PROCEDURE do_genereaza_xdp_202003 + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou, tnDecl + Local lcDateStyle, lcMark, lcXDP, lcNumePrenumeDeclarant, lcNumeDeclarant, lcPrenumeDeclarant, lcFirma + Local lcSelect + lcSelect = Select() + Local lnDecl + lnDecl = tnDecl + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + Set Date To Ymd + Set Mark To '-' + + lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,'')) + lcNumeDeclarant = lcNumePrenumeDeclarant + lcPrenumeDeclarant = "" + If Getwordcount(lcNumePrenumeDeclarant," ") > 1 + lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ") + lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, "")) + Endif + + lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,''))) + If Substr(lcCodFiscal,1,2)='RO' + lcCod_fiscal = Alltrim(Substr(lcCodFiscal,3)) + ENDIF + + lcFirma = XmlSpecialCharacters(RemoveCharacters(Alltrim(Upper(Nvl(gofirma.antet,''))),.T.)) && oproceduri_comune.prg + + Select * From cDecl Where (datorat<>0 Or recuperat<>0) INTO Cursor cDecl100Temp + + Set Textmerge On To Memvar lcXDP Noshow + \ + \ + \ + \ + \ + \ + \ + \100 + + \<> + \<> + \<> + \<> + \0 + \RO + \ + \0 + \ + \0 + \0 + \ + \0 + \ + \ + \RO<> + \<> + \<> + \<> + \<> + \\<> + \ + \ + + \ + \<> + \<> + \<> + \ + + lnIndicatori = 0 + lnSumaTotala = 0 + + Select cDecl100Temp + Scan + lnIndicatori = lnIndicatori + 1 + lnSumaTotala = lnSumaTotala + datorat + lcScadenta = DTOS(datascad) + lcScadenta = SUBSTR(m.lcScadenta, 7,2) + '.' + SUBSTR(m.lcScadenta,5,2) + '.' + LEFT(m.lcScadenta,4) && 25.04.2020 + + \ + \<> + \<> + \<> + \0 + \0 + \0 + \0 + \0 + \<> + \<> + *Suma (lei) + *Suma corectata (lei) + \<> + \<> + \<> + \<> + \<> + \0 + \ + *1000 + *100 + Endscan + \ + \ + \ + \ + \ + Set Textmerge To + Use In (SELECT('cDecl100Temp')) + + Strtofile(lcXDP, tcFisierXDP) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + Select (lcSelect) + + + ENDPROC + + PROCEDURE do_genereaza_xdp_202012 + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou, tnDecl + Local lcDateStyle, lcMark, lcXDP, lcNumePrenumeDeclarant, lcNumeDeclarant, lcPrenumeDeclarant, lcFirma + Local lcSelect + lcSelect = Select() + Local lnDecl + lnDecl = tnDecl + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + Set Date To Ymd + Set Mark To '-' + + lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,'')) + lcNumeDeclarant = lcNumePrenumeDeclarant + lcPrenumeDeclarant = "" + If Getwordcount(lcNumePrenumeDeclarant," ") > 1 + lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ") + lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, "")) + Endif + + lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,''))) + If Substr(lcCodFiscal,1,2)='RO' + lcCod_fiscal = Alltrim(Substr(lcCodFiscal,3)) + ENDIF + + lcFirma = XmlSpecialCharacters(RemoveCharacters(Alltrim(Upper(Nvl(gofirma.antet,''))),.T.)) && oproceduri_comune.prg + + Select * From cDecl Where (datorat<>0 Or recuperat<>0) INTO Cursor cDecl100Temp + + Set Textmerge On To Memvar lcXDP Noshow + \ + \ + \ + \ + \ + \ + \ + \100 + + \<> + \<> + \<> + \<> + \0 + \RO + \ + \0 + \ + \0 + \0 + \ + \0 + \ + \ + \RO<> + \<> + \<> + \<> + \<> + \\<> + \ + \ + + \ + \<> + \<> + \<> + \ + + lnIndicatori = 0 + lnSumaTotala = 0 + + Select cDecl100Temp + Scan + lnIndicatori = lnIndicatori + 1 + lnSumaTotala = lnSumaTotala + datorat + lcScadenta = DTOS(datascad) + lcScadenta = SUBSTR(m.lcScadenta, 7,2) + '.' + SUBSTR(m.lcScadenta,5,2) + '.' + LEFT(m.lcScadenta,4) && 25.04.2020 + + \ + \<> + \<> + \<> + \0 + \<> + \<> + \<> + \0 + \0 + \0 + \0 + \0 + \0 + \0 + \<> + *Suma (lei) + *Suma corectata (lei) + \<> + \<> + \<> + \<> + \<> + \0 + \ + *1000 + *100 + Endscan + \ + \ + \ + \ + \ + Set Textmerge To + Use In (SELECT('cDecl100Temp')) + + Strtofile(lcXDP, tcFisierXDP) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + Select (lcSelect) + + + ENDPROC + + PROCEDURE do_genereaza_xdp_202112 + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou, tnDecl + Local lcDateStyle, lcMark, lcXDP, lcNumePrenumeDeclarant, lcNumeDeclarant, lcPrenumeDeclarant, lcFirma + Local lcSelect + lcSelect = Select() + Local lnDecl + lnDecl = tnDecl + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + Set Date To Ymd + Set Mark To '-' + + lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,'')) + lcNumeDeclarant = lcNumePrenumeDeclarant + lcPrenumeDeclarant = "" + If Getwordcount(lcNumePrenumeDeclarant," ") > 1 + lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ") + lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, "")) + Endif + + lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,''))) + If Substr(lcCodFiscal,1,2)='RO' + lcCod_fiscal = Alltrim(Substr(lcCodFiscal,3)) + ENDIF + + lcFirma = XmlSpecialCharacters(RemoveCharacters(Alltrim(Upper(Nvl(gofirma.antet,''))),.T.)) && oproceduri_comune.prg + + Select * From cDecl Where (datorat<>0 Or recuperat<>0) INTO Cursor cDecl100Temp + + Set Textmerge On To Memvar lcXDP Noshow + \ + \ + \ + \ + \ + \ + \ + \100 + + \<> + \<> + \<> + \<> + \0 + \RO + \ + \0 + \ + \0 + \0 + \ + \0 + \ + \ + \RO<> + \<> + \<> + \<> + \<> + \\<> + \ + \ + + \ + \<> + \<> + \<> + \ + + lnIndicatori = 0 + lnSumaTotala = 0 + + Select cDecl100Temp + Scan + lnIndicatori = lnIndicatori + 1 + lnSumaTotala = lnSumaTotala + datorat + lcScadenta = DTOS(datascad) + lcScadenta = SUBSTR(m.lcScadenta, 7,2) + '.' + SUBSTR(m.lcScadenta,5,2) + '.' + LEFT(m.lcScadenta,4) && 25.04.2020 + + \ + \<> + \<> + \<> + \0 + \<> + \<> + \<> + \0 + \0 + \0 + \0 + \0 + \0 + \0 + \<> + *Suma (lei) + *Suma corectata (lei) + \<> + \<> + \<> + \<> + \<> + \0 + \ + *1000 + *100 + Endscan + \ + \ + \ + \ + \ + Set Textmerge To + Use In (SELECT('cDecl100Temp')) + + Strtofile(lcXDP, tcFisierXDP) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + Select (lcSelect) + + + ENDPROC + + PROCEDURE do_genereaza_xdp_202401 + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou, tnDecl + Local lcDateStyle, lcMark, lcXDP, lcNumePrenumeDeclarant, lcNumeDeclarant, lcPrenumeDeclarant, lcFirma + Local lcSelect + lcSelect = Select() + Local lnDecl + lnDecl = tnDecl + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + Set Date To Ymd + Set Mark To '-' + + lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,'')) + lcNumeDeclarant = lcNumePrenumeDeclarant + lcPrenumeDeclarant = "" + If Getwordcount(lcNumePrenumeDeclarant," ") > 1 + lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ") + lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, "")) + Endif + + lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,''))) + If Substr(lcCodFiscal,1,2)='RO' + lcCod_fiscal = Alltrim(Substr(lcCodFiscal,3)) + ENDIF + + lcFirma = XmlSpecialCharacters(RemoveCharacters(Alltrim(Upper(Nvl(gofirma.antet,''))),.T.)) && oproceduri_comune.prg + + Select * From cDecl Where (datorat<>0 Or recuperat<>0) INTO Cursor cDecl100Temp + + Set Textmerge On To Memvar lcXDP Noshow + \ + \ + \ + \ + \ + \ + \ + \100 + + \<> + \<> + \<> + \<> + \0 + \RO + \ + \0 + \ + \0 + \0 + \ + \0 + \ + \ + \RO<> + \<> + \<> + \<> + \<> + \\<> + \ + \ + + \ + \<> + \<> + \<> + \ + + lnIndicatori = 0 + lnSumaTotala = 0 + + Select cDecl100Temp + Scan + lnIndicatori = lnIndicatori + 1 + lnSumaTotala = lnSumaTotala + datorat + lcScadenta = DTOS(datascad) + lcScadenta = SUBSTR(m.lcScadenta, 7,2) + '.' + SUBSTR(m.lcScadenta,5,2) + '.' + LEFT(m.lcScadenta,4) && 25.04.2020 + + \ + \<> + \<> + \<> + \0 + \<> + \<> + \<> + \0 + \0 + \0 + \0 + \0 + \0 + \0 + \<> + *Suma (lei) + *Suma corectata (lei) + \<> + \<> + \<> + \<> + \<> + \0 + \ + *1000 + *100 + Endscan + \ + \ + \ + \ + \ + Set Textmerge To + Use In (SELECT('cDecl100Temp')) + + Strtofile(lcXDP, tcFisierXDP) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + Select (lcSelect) + + + ENDPROC + + PROCEDURE do_genereaza_xml + LPARAMETERS tcFisierXML + Local lcXML, lcXmlFile, loAsigurat + Local lcDateStyle, lcMark + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + Set Date To Dmy + Set Mark To '.' + + + + Set Textmerge On To Memvar lcXML NOSHOW + \ + Select cDeclaratie + \ + Select cPlatitor + \ > caen="<>" den="<>" <> <> <> <> <> <> <> <> casaAng="<>" tRisc="<>" dat="<>" totalPlata_A="<>"> + Select cAngajatorA + Scan + \ + Endscan + Select cAngajatorB + Scan + \ + Endscan + Select cAngajatorC1 + Scan + \ + Endscan + Select cAngajatorC2 + Scan + \ + Endscan + Select cAngajatorC3 + Scan + \ + Endscan + Select cAngajatorC4 + Scan + \ + Endscan + Select cAngajatorC5 + *!* 02.05.2011 + SCAN FOR !(EMPTY(NVL(C5_recuperat,0)) AND EMPTY(NVL(C5_restituit,0))) + \ + Endscan + *!* 02.05.2011 ^ + Select cAngajatorC6 + Scan + \ + Endscan + Select cAngajatorC7 + Scan + \ + Endscan + Select cAngajatorD + Scan + \ + Endscan + Select cAngajatorE1 + Scan + \ + ENDSCAN + Select cAngajatorE2 + Scan + \ + ENDSCAN + Select cAngajatorE3 + Scan + \ + Endscan + Select cAngajatorF1 + Scan + \ + Endscan + Select cAngajatorF2 + Scan + \ + Endscan + \ + + Select cAsigurati + Scan + Scatter Name loAsigurat + \ > casaSn="<>" asigCI="<>" asigSO="<>"<>> + Select cCoasigurati + Scan For marca = loAsigurat.marca + \ + Endscan + Select cAsiguratiA + Scan For marca = loAsigurat.marca + \ + Endscan + Select cAsiguratiB1 + Scan For marca = loAsigurat.marca + \ + Select cAsiguratiB11 + Scan For marca = loAsigurat.marca + \ + Endscan + \ + Endscan + Select cAsiguratiB2 + Scan For marca = loAsigurat.marca + \ + Endscan + Select cAsiguratiB3 + Scan For marca = loAsigurat.marca + \ + Endscan + Select cAsiguratiB4 + Scan For marca = loAsigurat.marca + \ + ENDSCAN + Select cAsiguratiC + Scan For marca = loAsigurat.marca + \ + Endscan + Select cAsiguratiD + Scan For marca = loAsigurat.marca + \ > <> D_5="<>" D_6="<>" D_7="<>" <> D_9="<>" D_10="<>" <> <> <> D_14="<>" D_15="<>" D_16="<>" D_17="<>" D_18="<>" D_19="<>" D_20="<>" D_21="<>"/> + Endscan + \ + Endscan + \ + Set Textmerge To + + Strtofile(lcXML, m.tcFisierXML) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + ENDPROC + + PROCEDURE getnrevidenta && Generare nr evidenta a platii pentru un impozit + Lparameters tcCodObligatie, tnAn, tnLuna, tdDataScadenta, tnTipObligatie + * tcCodObligatie: 601 + * tnAn, tnLuna: sfarsitul perioadei de raportare + * tdDataScad: data scadenta a obligatiei + * tnTipObligatie: 1(care se platesc în CONT UNIC ), 2 (restul) + + Local lcNrEvidenta, lcSumaControl, lcText, lnSuma, i + + lcCodObligatie = Alltrim(NVL(tcCodObligatie, '')) && XXX + lcPerioadaRaportare = PADL(INT(m.tnLuna), 2, '0') + RIGHT(ALLTRIM(STR(INT(m.tnAn))), 2) && LLAA + lcDataScadenta = IIF(TYPE('tdDataScadenta') = 'D', DTOS(tdDataScadenta), '') + lcDataScadenta = RIGHT(m.lcDataScadenta,2) + SUBSTR(m.lcDataScadenta,5,2) + SUBSTR(m.lcDataScadenta, 3, 2) && ZZLLAA + lcTipObligatie = IIF(tnTipObligatie = 1, '1', '0') + + Text To lcText Noshow + Ex.nr.evid.a platii : 10 602 01 0611 250711 0 0 00 35 + + Verificare componenta si suma de control + pentru + nr_evid : + Poz.1-2 + :10 + Poz.3-5 + : cod obligatie (nomenclator) + Poz.6-7 + :01 + Poz.8-11 + : LLAA (sf.per.de raportare) + Poz.12-17 + : ZZLLAA (scadenta platii) + Poz.18: + 1 daca tip_oblig=1 + 0 daca tip_oblig=2 + + Poz.19 + : 0 + Poz.20-21 + : 00 + Poz.22-23 + : suma de control = suma + primelor 21 pozitii (se iau ultimele 2 cifre + ale sumei) + + Endtext + + + lcNrEvidenta = '10' + lcCodObligatie + '01' + lcPerioadaRaportare + lcDataScadenta + lcTipObligatie + '0' + '00' + lnSuma = 0 + For i = 1 To Len(m.lcNrEvidenta) + lnSuma = lnSuma + Int(Val(Substr(m.lcNrEvidenta, i, 1))) + Endfor + lcSumaControl = Right(Alltrim(Str(lnSuma)), 2) + lcNrEvidenta = lcNrEvidenta + m.lcSumaControl + + Return m.lcNrEvidenta + + ENDPROC + + PROCEDURE inainte_de_do_excel + DO export_excel_grid WITH this._grdrow1 + + ENDPROC + + PROCEDURE inainte_de_do_listare + Local lcTabel + lcTabel = Thisform._grdrow1.RecordSource + If Reccount(lcTabel)>0 + Private pcCaen + pcCaen = Alltrim(gofirma.caen) + + If !Empty(pcCaen) And !Isnull(pcCaen) + Private poCaen + Store '' To poCaen + pcschema=[] + pcselect=['select codcaen from sitfin_codcaen where 1=2 '] + pcfiltru=[cod=] + pcCaen + pcorder=[] + llAfisare=.F. + gencursor('poCaen','cCaen',pcselect,pcfiltru,pcschema,pcorder,llAfisare) + poCaen.ca_baza1.afisare() + + Select cCaen + pcCaen = codcaen + + If Used('cCaen') + Use In cCaen + Endif + Endif + + Thisform.AlwaysOnTop = .F. + Select (lcTabel) + Report Form decont To Printer Prompt Preview + Thisform.AlwaysOnTop = .T. + Else + amessagebox("Nu exista inregistrari pentru listare!",48,"Atentie") + Endif + ENDPROC + + PROCEDURE Init + PARAMETERS tnDecl, tlTrim + + DODEFAULT() + thisform.nDecl= tnDecl + thisform.lTrim = tlTrim + + + + + ENDPROC + + PROCEDURE Show + Lparameters nStyle + + + + Thisform.totaluri("datorat") + Thisform.totaluri("recuperat") + + DODEFAULT(nStyle) + + ENDPROC + + PROCEDURE totaluri + Lparameters tcColoana + Local lcFormula, lcColoana, lcTabel, lnSuma, lnId_ind, lcRand + + If Empty(tcColoana) + lcColoana = "datorat" + Else + lcColoana = Alltrim(tcColoana) + Endif + + lcTabel = thisform._grdrow1.RecordSource + Select * From (lcTabel) WITH (BUFFERING = .T.) Into Cursor cTemp Readwrite NOFILTER + + Select cTemp + Scan For tip = 5 + lnSuma = 0 + lcFormula = Alltrim(cTemp.formula) + lcRand = ALLTRIM(rand) + *!* IF '32'$lcRand AND 'tva'$LOWER(lcColoana) + *!* DEBUG + *!* SUSPEND + *!* ENDIF + *!* WAIT WINDOW lcFormula + " - " + lcColoana NOWAIT + lnSuma = calc_indicatori_randuri(lcFormula, "cTemp",lcColoana) + Select cTemp + Replace &lcColoana With lnSuma + Select (lcTabel) + Update (lcTabel) Set &lcColoana = lnSuma Where ALLTRIM(rand) = lcRand + + Select cTemp + Endscan + Use In cTemp + + SELECT (lcTabel) + GO TOP + + + ENDPROC + + PROCEDURE updateinfo + #DEFINE CRLF CHR(13) + CHR(10) + Lparameters tcInfo + + + Local loInfo + loInfo = this.edtInfo + If Upper(tcInfo) = 'RESET' + loInfo.Value = "" + Else + loInfo.Value = loInfo.Value + m.tcInfo + CRLF + CRLF + Endif + loInfo.Refresh() + + + ENDPROC + + PROCEDURE updatepdf + Lparameters tcPDFFile + *** tcPDFFile: calea completa a fisierului pdf D:\CONTAFIN\COMUNCONTAFIN\d390.pdf + + Local lcFile, lcPath, llOpen + lcFile = Justfname(m.tcPDFFile) + lcPath = Addbs(Justpath(m.tcPDFFile)) + llOpen = .F. + + Return DownloadSupportFile(m.lcFile, m.lcPath, m.llOpen) && proceduri_comune.prg + + + ENDPROC + + PROCEDURE cmdPDF100.Click + *!* 12.05.2011 + *!* Thisform.do_executa(2) && PDF + + *** Generare Nr evidenta a platii + SELECT cDecl + SCAN FOR (datorat <> 0 OR recuperat <> 0) + lcCodObligatie = ALLTRIM(cod_imp) + IF EMPTY(m.lcCodObligatie) + loop + ENDIF + lnAn = m.gnAn + lnLuna = m.gnLuna + ldDataScadenta = datascad + m.lnTipObligatie = IIF(LEFT(cod_bugetar, 4) <> '5502', 1, 2) && 1(care se platesc în CONT UNIC ), 2 (restul) + + lcNrEvidenta = Thisform.GetNrEvidenta(lcCodObligatie, lnAn, lnLuna, ldDataScadenta, lnTipObligatie) + SELECT cDecl + REPLACE nr_evidenta WITH m.lcNrEvidenta + ENDSCAN + + Thisform.do_executa(3,100) && XML + PDF + *!* 12.05.2011 ^ + ENDPROC + + PROCEDURE _grdrow1.cTVA.Text1.LostFocus + IF NVL(FLOOR(THIS.VALUE),0) <> NVL(FLOOR(THISFORM.nOldvalue),0) + THISFORM.totaluri("recuperat") + ENDIF + ENDPROC + + PROCEDURE _grdrow1.cTVA.Text1.When + thisform.nOldvalue = this.Value + + IF inactivR = 1 + RETURN .F. + ENDIF + ENDPROC + + PROCEDURE _grdrow1.cValoare.Text1.LostFocus + IF NVL(FLOOR(THIS.VALUE),0) <> NVL(FLOOR(THISFORM.nOldvalue),0) + THISFORM.totaluri("datorat") + ENDIF + ENDPROC + + PROCEDURE _grdrow1.cValoare.Text1.When + thisform.nOldvalue = this.Value + + IF inactivD = 1 + RETURN .F. + ENDIF + ENDPROC + + PROCEDURE _grdrow1.Init + this.SetAll("DynamicBackColor","IIF(antet=1,RGB(180,180,180),IIF(tip=5,RGB(230,244,255),RGB(255,255,255)))", "Column") + + this.cValoare.DynamicBackColor = [iif(inactivD=1,rgb(225,225,225),IIF(tip=5,RGB(230,244,255),IIF(antet=1,RGB(180,180,180),rgb(255,255,255))))] && rgb(128,128,128) + this.cTVA.DynamicBackColor = [iif(inactivR=1,rgb(225,225,225),IIF(tip=5,RGB(230,244,255),IIF(antet=1,RGB(180,180,180),rgb(255,255,255))))] + + this.cValoare.DynamicForeColor = [iif(inactivD=1,rgb(225,225,225),IIF(antet=1,RGB(180,180,180),rgb(0,0,0)))] + this.cTVA.DynamicForeColor = [iif(inactivR=1,rgb(225,225,225),IIF(antet=1,RGB(180,180,180),rgb(0,0,0)))] + + + + + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_decl100_2024 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="edtInfo" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cValoare.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cValoare.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cTVA.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cTVA.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cDataScad.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cDataScad.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cNrEvidenta.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cNrEvidenta.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cSponsorizari.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cSponsorizari.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cmdPDF100" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> + + * + *m: afiseaza_mesaj + *m: do_genereaza_xdp + *m: do_genereaza_xdp_201111 + *m: do_genereaza_xdp_201601 + *m: do_genereaza_xdp_202003 + *m: do_genereaza_xdp_202012 + *m: do_genereaza_xdp_202112 + *m: do_genereaza_xdp_202401 + *m: do_genereaza_xml + *m: getnrevidenta && Generare nr evidenta a platii pentru un impozit + *m: totaluri + *m: updateinfo + *m: updatepdf + *p: cd100pdf + *p: cd100rezultat + *p: cd100rezultatfile + *p: cfisierxml + *p: ltrim + *p: ndecl + *p: noldvalue + * + + * + BorderStyle = 3 + cd100pdf = '' + cd100rezultat = '' + cd100rezultatfile = '' + cfisierxml = '' + DoCreate = .T. + Height = 593 + ltrim = .F. + Name = "frm_decl100_2024" + ndecl = 0 + noldvalue = 0 + Width = 744 + WindowState = 2 + _memberdata = + + + + + + + + _shape1.Anchor = 10 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 749 + _shape1.ZOrderSet = 0 + _shape2.Anchor = 9 + _shape2.Height = 29 + _shape2.Left = 650 + _shape2.Name = "_shape2" + _shape2.Top = -1 + _shape2.Width = 94 + _shape2.ZOrderSet = 1 + Lb_titlu_alb_b121.Caption = "Declaratia 100 privind obligatiile de plata la BS" + Lb_titlu_alb_b121.Left = 9 + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 7 + Lb_titlu_alb_b121.Top = 7 + Lb_titlu_alb_b121.ZOrderSet = 5 + BUT_TERMIN1.Anchor = 9 + BUT_TERMIN1.Left = 713 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 4 + BUT_TERMIN1.Top = 0 + BUT_TERMIN1.ZOrderSet = 6 + Gridsort1.Left = 204 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 5 + * + + ADD OBJECT '_grdrow1' AS _grdrow WITH ; + Anchor = 15, ; + ColumnCount = 7, ; + DeleteMark = .F., ; + Height = 448, ; + Left = 9, ; + Name = "_grdrow1", ; + Panel = 1, ; + RecordSource = "cDecl", ; + TabIndex = 1, ; + Top = 34, ; + Width = 725, ; + ZOrderSet = 8, ; + Column1.ControlSource = "rand", ; + Column1.Name = "Column1", ; + Column1.ReadOnly = .T., ; + Column1.Width = 41, ; + Column2.ControlSource = "denumire", ; + Column2.Name = "Column2", ; + Column2.ReadOnly = .T., ; + Column2.Width = 430, ; + Column3.ColumnOrder = 3, ; + Column3.ControlSource = "datorat", ; + Column3.DynamicBackColor = "iif(inactivB=1,rgb(225,225,225),rgb(255,255,255))", ; + Column3.Format = "rk", ; + Column3.InputMask = "999 999 999", ; + Column3.Name = "cValoare", ; + Column3.Width = 90, ; + Column4.ColumnOrder = 4, ; + Column4.ControlSource = "deductibil", ; + Column4.Format = "rk", ; + Column4.InputMask = "999 999 999", ; + Column4.Name = "cTVA", ; + Column4.Width = 159, ; + Column5.ColumnOrder = 6, ; + Column5.ControlSource = "datascad", ; + Column5.Name = "cDataScad", ; + Column5.Width = 91, ; + Column6.ColumnOrder = 7, ; + Column6.ControlSource = "nr_evidenta", ; + Column6.Name = "cNrEvidenta", ; + Column6.Width = 202, ; + Column7.ColumnOrder = 5, ; + Column7.ControlSource = "reducere", ; + Column7.Format = "RK", ; + Column7.InputMask = "999 999 999", ; + Column7.Name = "cSponsorizari", ; + Column7.Width = 100 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_grdrow1.cDataScad.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data scadenta", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.cDataScad.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.cNrEvidenta.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. Evidenta a platii", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.cNrEvidenta.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Rand", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Denumire indicatori", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.cSponsorizari.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Reducere (121,130)", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.cSponsorizari.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.cTVA.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Deductibila/datorata anterior", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.cTVA.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.cValoare.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Datorata", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.cValoare.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'But_excel1' AS but_excel WITH ; + Anchor = 9, ; + Left = 682, ; + Name = "But_excel1", ; + TabIndex = 5, ; + Top = 0, ; + ZOrderSet = 12 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_listare1' AS but_listare WITH ; + Anchor = 9, ; + Enabled = .F., ; + Left = 653, ; + Name = "But_listare1", ; + TabIndex = 6, ; + Top = 0, ; + ZOrderSet = 9 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'cmdPDF100' AS cmd_executa WITH ; + Alignment = 2, ; + Anchor = 12, ; + Caption = "Export \ + + ADD OBJECT 'edtInfo' AS _editbox WITH ; + Anchor = 14, ; + Height = 75, ; + Left = 9, ; + Name = "edtInfo", ; + Top = 515, ; + Width = 725, ; + ZOrderSet = 2 + *< END OBJECT: ClassLib="..\..\roadecl\comun\clase\_baza.vcx" BaseClass="editbox" /> + + PROCEDURE afiseaza_mesaj + Lparameters tcMesaj,tnButoane + Local lnReturn,lcTitlu + lcTitlu = [Declaratia 112] + If gcAppName = "CONSAL" + lnReturn = Messagebox(tcMesaj,tnButoane,lcTitlu) + Else + lnReturn = amessagebox(tcMesaj,tnButoane,lcTitlu) + Endif + Return lnReturn + ENDPROC + + PROCEDURE do_executa + *!* 01.02.2012 + *!* d100_201201.pdf + + *!* 15.02.2018 + *!* d100_201801.pdf, d101_201801.pdf, d394_201801.pdf + *!* la d101 trebuie actualizati indicatorii! + + Lparameters tnMenu, tnDecl + *!* tnMenu: 1 = XML, 2 = PDF, 3 = XML + PDF + *!* tnDecl: 100, 102 + #Define CRLF Chr(13) + Chr(10) + + + Local loEx As Exception + Local lnMenu, lcCaleFisier, lcCaleFisierPDF, lcNumeFisier + Local lcAppPath, lcCaleD112, lcComunPath, lcSelect, lcTempPath, lnPos + Local lcFileName, lcFisierPDFNou, lcFisierPDFOriginal, lcFisierXDP, lcFisierXML, lcRun + Local loProcess As "api_apprun" Of "process.vcx" + Local lcD112RezultatFile, lcD112ValidatorFile, lcMesaj, lcRezultat, lcVersiuneDUK + Local lcVersiuneFisiereD112, lcVersiunePDF, llSucces + lcCaleFisier = "" + Local lnDecl + lnDecl = tnDecl + + lcSelect = Select() + If !Empty(tnMenu) + lnMenu = tnMenu + Else + lnMenu = xmenu("Genereaza \ 0 + lcComunPath = Left(m.lcAppPath, lnPos) + Endif + lcComunPath = lcComunPath + Iif(gcAppName = "CONCONT", "COMUNCONTAFIN\", "COMUNROA\") && d:\contafin\comuncontafin\ + + This.UpdateInfo("Creez structura director export...") + + *** Creez structura director export (caletemp\D112\aaaa_ll\firma\ + llSucces = .F. + Try + lcTempPath = Iif(gcAppName = "CONCONT", Addbs(m.dirgen),Addbs(gcDirMare)) + Do Case + Case lnDecl = 100 + lcCaleFisier = m.lcTempPath + "D100\" && c:\temp\D112\ + Case lnDecl = 102 + lcCaleFisier = m.lcTempPath + "D102\" && c:\temp\D112\ + Endcase + + If !Directory(m.lcCaleFisier) + Md (m.lcCaleFisier) + Endif + + *lcCaleFisier = m.lcCaleFisier + Alltrim(Str(This.nAn)) + "_" + Padl(Alltrim(Str(This.nLuna)),2, "0") + "\"&& c:\temp\D112\2011_01\ + lcCaleFisier = m.lcCaleFisier + Alltrim(Str(gnAn)) + "_" + Padl(Alltrim(Str(gnLuna)),2, "0") + "\"&& c:\temp\D112\2011_01\ + If !Directory(m.lcCaleFisier) + Md (m.lcCaleFisier) + Endif + + *lcCaleFisier = m.lcCaleFisier + STRTRAN(This.cNumeFirma,[ ],[_]) + "\" && c:\temp\D112\2011_01\firma\ + lcCaleFisier = m.lcCaleFisier + Strtran(gcFirma,[ ],[_]) + "\" && c:\temp\D112\2011_01\firma\ + If !Directory(m.lcCaleFisier) + Md (m.lcCaleFisier) + Endif + This.UpdateInfo("S-a creat directorul " + m.lcCaleFisier) + + *lcCaleFisierPDF = m.lcCaleFisier + "pdf_inteligent\" && c:\temp\D112\2011_01\firma\pdf_inteligent\ + lcCaleFisierPDF = m.lcCaleFisier && c:\temp\D112\2011_01\firma\ + If !Directory(m.lcCaleFisierPDF) + Md (m.lcCaleFisierPDF) + Endif + This.UpdateInfo("S-a creat directorul " + m.lcCaleFisierPDF) + + llSucces = .T. + Catch To loEx + lcMesaj = "Creare director " + lcCaleFisier + " " + loEx.Message + This.UpdateInfo(lcMesaj) + + Thisform.afiseaza_mesaj(lcMesaj,0+48) + Endtry + If !llSucces + Return + Endif + *!* lcCaleFisier = shortpath(Getdir([],[Alegeti directorul unde se va salva PDF-ul/XML-ul],[Declaratia 112])) + + Do Case + Case lnDecl = 100 + Do Case + Case gnAn*12 + gnLuna >= 2024*12 + 1 + lcFisierPDFOriginal = lcComunPath + "d100_202401.pdf" + Case gnAn*12 + gnLuna >= 2021*12 + 12 + lcFisierPDFOriginal = lcComunPath + "d100_202112.pdf" + Case gnAn*12 + gnLuna >= 2020*12 + 12 + lcFisierPDFOriginal = lcComunPath + "d100_202012.pdf" + Case gnAn*12 + gnLuna >= 2020*12 + 3 + lcFisierPDFOriginal = lcComunPath + "d100_202003.pdf" + Case gnAn*12 + gnLuna >= 2018*12 + 1 + lcFisierPDFOriginal = lcComunPath + "d100_201801.pdf" + Case gnAn*12 + gnLuna >= 2017*12 + 2 + lcFisierPDFOriginal = lcComunPath + "d100_201702.pdf" + Case gnAn*12 + gnLuna >= 2016*12 + 1 + lcFisierPDFOriginal = lcComunPath + "d100_201601.pdf" + Case gnAn*12 + gnLuna >= 2013*12 + 1 + lcFisierPDFOriginal = lcComunPath + "d100_201301.pdf" && d:\contafin\comuncontafin\d112.pdf + Case gnAn*12 + gnLuna >= 2012*12 + 1 + lcFisierPDFOriginal = lcComunPath + "d100_201201.pdf" && d:\contafin\comuncontafin\d112.pdf + Case gnAn*12 + gnLuna >= 2011*12 + 11 + lcFisierPDFOriginal = lcComunPath + "d100_201111.pdf" && d:\contafin\comuncontafin\d112.pdf + Otherwise + lcFisierPDFOriginal = lcComunPath + "d100.pdf" && d:\contafin\comuncontafin\d112.pdf + Endcase + Case lnDecl = 102 + lcFisierPDFOriginal = lcComunPath + "d102.pdf" && d:\contafin\comuncontafin\d112.pdf + Endcase + + *!* 18.01.2012 + This.UpdatePDF(m.lcFisierPDFOriginal) && actualizez pdf de la romfast + *!* 18.01.2012 ^ + + If Upper(Substr(Alltrim(gofirma.cod_fiscal),1,2))='RO' + lcCod_fiscal = Substr(Alltrim(gofirma.cod_fiscal),3,Len(Alltrim(gofirma.cod_fiscal))-2) + Else + lcCod_fiscal = Alltrim(gofirma.cod_fiscal) + Endif + + *lcNumeFisier = "d100_"+ Alltrim(Transform(Thisform.cCodFiscal)) + "_" + Alltrim(Str(Int(Thisform.nAn))) + "_" + Alltrim(Padl(Int(Thisform.nLuna), 2, "0")) + Do Case + Case lnDecl = 100 + lcNumeFisier = "d100_"+ lcCod_fiscal + "_" + Alltrim(Str(gnAn)) + "_" + Padl(gnLuna, 2, "0") + Case lnDecl = 102 + lcNumeFisier = "d102_"+ lcCod_fiscal + "_" + Alltrim(Str(gnAn)) + "_" + Padl(gnLuna, 2, "0") + Endcase + + lcFileName = m.lcCaleFisier + lcNumeFisier + + lcFileNamePDF = m.lcCaleFisierPDF + lcNumeFisier + lcFisierPDFNou = m.lcFileNamePDF + [.pdf] + lcFisierXDP = m.lcFileNamePDF + [.xdp] + + lcFisierXML = m.lcFileName + [.xml] + *lcD100ValidatorFile = m.lcComunPath + [dist\DUKIntegrator.jar] + lcD100RezultatFile = m.lcFisierXML + [.err.txt] + + lcVersiuneFisiereD112 = lcComunPath + "versiuni_fisiere.txt" + *this.cD112ValidatorFile = lcD112ValidatorFile + This.cFisierXML = lcFisierXML + This.cD100RezultatFile = lcD100RezultatFile + + If Inlist(lnMenu, 2,3) + If File(lcFisierPDFNou) + Delete File (lcFisierPDFNou) + Endif + If File(lcFisierXDP) + Delete File (lcFisierXDP) + Endif + Endif + If Inlist(lnMenu, 1,3) + If File(lcFisierXML) + Delete File (lcFisierXML) + Endif + If File(m.lcD100RezultatFile) + Delete File (m.lcD100RezultatFile) + Endif + Endif + This.cD100Rezultat = "" + This.cD100PDF = "" + + *** verific pdf original + *!* If Inlist(lnMenu,2,3) + *!* This.verificare_versiune("A") + *!* This.UpdateInfo(REPLICATE('-', 100)) + *!* ENDIF + + *** verific program validare D112 + *!* If Inlist(lnMenu,1,3) + *!* This.verificare_versiune("J") + *!* This.UpdateInfo(REPLICATE('-', 100)) + *!* Endif + + *** creez xml, xdp (= xml data package = xml cu sesiunea pdf-ului inteligent) + + Do Case + Case lnMenu = 1 + This.UpdateInfo("Se exporta datele in format XML") + Thisform.do_genereaza_xml(lcFisierXML) + This.UpdateInfo(Replicate('-', 100)) + Case lnMenu = 2 + This.UpdateInfo("Se exporta datele in format PDF") + Thisform.do_genereaza_xdp(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + This.UpdateInfo(Replicate('-', 100)) + Case lnMenu = 3 + This.UpdateInfo("Se exporta datele in format XML+PDF") + *!* Thisform.do_genereaza_xml(lcFisierXML) + *!* This.UpdateInfo(REPLICATE('-', 100)) + DO CASE + CASE gnAn*12 + gnLuna >= 2024*12 + 1 + Thisform.do_genereaza_xdp_202401(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou, lnDecl) + This.UpdateInfo(Replicate('-', 100)) + + CASE gnAn*12 + gnLuna >= 2021*12 + 12 + Thisform.do_genereaza_xdp_202112(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou, lnDecl) + This.UpdateInfo(Replicate('-', 100)) + + CASE gnAn*12 + gnLuna >= 2020*12 + 12 + Thisform.do_genereaza_xdp_202012(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou, lnDecl) + This.UpdateInfo(Replicate('-', 100)) + CASE gnAn*12 + gnLuna >= 2020*12 + 3 + Thisform.do_genereaza_xdp_202003(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou, lnDecl) + This.UpdateInfo(Replicate('-', 100)) + CASE gnAn*12 + gnLuna >= 2016*12 + 1 + Thisform.do_genereaza_xdp_201601(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou, lnDecl) + This.UpdateInfo(Replicate('-', 100)) + CASE gnAn*12 + gnLuna >= 2011*12 + 11 + Thisform.do_genereaza_xdp_201111(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou, lnDecl) + This.UpdateInfo(Replicate('-', 100)) + OTHERWISE + Thisform.do_genereaza_xdp(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou, lnDecl) + This.UpdateInfo(Replicate('-', 100)) + ENDCASE + Endcase + + + *** deschid fisierul XDP (pdf inteligent) + If Inlist(lnMenu,2,3) And File(lcFisierXDP) + If !File(m.lcFisierPDFOriginal) + OPEN_DEFAULT_APP("http://static.anaf.ro/static/10/Anaf/Declaratii_R/" + ALLTRIM(STR(m.lnDecl)) + ".html") + AMessagebox('Nu exista fisierul ' + m.lcFisierPDFOriginal + CRLF + ; + 'Copiati pdf-ul inteligent D' + ALLTRIM(STR(m.lnDecl)) + ' de pe website-ul ANAF in directorul ' + Justpath(m.lcFisierPDFOriginal) + CRLF + ; + 'cu numele ' + Justfname(m.lcFisierPDFOriginal) + '.', 0+48, _Screen.Caption) + Else + *** copiez fisierul pdf inteligent original in directorul de export + Copy File (lcFisierPDFOriginal) To (lcFisierPDFNou) + This.cD100PDF = m.lcFisierXDP + + If File(m.lcFisierXDP) + This.UpdateInfo([In PDF apasati butonul "Options > Trust this document always" de pe banda galbena pentru a incarca datele.]) + open_default_app(lcFisierXDP) + ENDIF + ENDIF + Endif + + *!* *** deschid explorer in directorul de export + lcRun = [RUN /N7 explorer.exe "] + m.lcCaleFisier + ["] + &lcRun + + + Select (lcSelect) + + + ENDPROC + + PROCEDURE do_genereaza_xdp + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou, tnDecl + Local lcDateStyle, lcMark, lcXDP + Local lcSelect + lcSelect = Select() + Local lnDecl, lcFirma + lnDecl = tnDecl + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + Set Date To Ymd + Set Mark To '-' + + + Set Textmerge On To Memvar lcXDP Noshow + *Set Textmerge On To Memvar lcXML Noshow + \ + \ + \ + \ + \ + \ + \ + + Do Case + Case lnDecl = 100 + \ 100 + Case lnDecl = 102 + \ 102 + Endcase + + \ + \ + \ + \<> + \<> + \ + \ + \ RO + If Upper(Substr(Alltrim(gofirma.cod_fiscal),1,2))='RO' + lcCod_fiscal = Substr(Alltrim(gofirma.cod_fiscal),3,Len(Alltrim(gofirma.cod_fiscal))-2) + Else + lcCod_fiscal = Alltrim(gofirma.cod_fiscal) + Endif + \<> + lcFirma = XmlSpecialCharacters(ALLTRIM(UPPER(NVL(goFirma.antet,'')))) && oproceduri_comune.prg + \<> + \<> + \<> + \<> + \<> + \ + + Do Case + Case lnDecl = 100 + Select * From cDecl Where id_decl < 33 And (datorat<>0 Or recuperat<>0) ; + INTO Cursor cDecl100_102 + Case lnDecl = 102 + Select * From cDecl Where id_decl >= 34 And (datorat<>0 Or recuperat<>0) ; + INTO Cursor cDecl100_102 + Endcase + + \ + + Select cDecl100_102 + Scan + \ <> + \ + \ + \ + \<> + \<> + \<> + \<> + \ <> + \ + \ <> + \ + \<> + \<> + \ + Select cDecl100_102 + Endscan + \ + + If Used('cDecl100_102') + Use In cDecl100_102 + Endif + + \ + \<_numePrenume><> + \<_functia><> + \ + \ + + \ + \ + \ + \ + \ + \ + \ + \ + \ + \ + \ + \ + \ + \ + Set Textmerge To + + Strtofile(lcXDP, tcFisierXDP) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + Select (lcSelect) + + ENDPROC + + PROCEDURE do_genereaza_xdp_201111 + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou, tnDecl + Local lcDateStyle, lcMark, lcXDP, lcNumePrenumeDeclarant, lcNumeDeclarant, lcPrenumeDeclarant, lcFirma + Local lcSelect + lcSelect = Select() + Local lnDecl + lnDecl = tnDecl + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + Set Date To Ymd + Set Mark To '-' + + lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,'')) + lcNumeDeclarant = lcNumePrenumeDeclarant + lcPrenumeDeclarant = "" + If Getwordcount(lcNumePrenumeDeclarant," ") > 1 + lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ") + lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, "")) + Endif + + + Set Textmerge On To Memvar lcXDP Noshow + *Set Textmerge On To Memvar lcXML Noshow + \ + \ + \ + \ + \ + \ + \ + + Do Case + Case lnDecl = 100 + \ 100 + + Case lnDecl = 102 + \ 102 + + Endcase + + \ + \ + \ + \<> + \<> + \0 + \1 + + \ + \ + \ RO + lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,''))) + If Substr(lcCodFiscal,1,2)='RO' + lcCod_fiscal = Alltrim(Substr(lcCodFiscal,3)) + Endif + \<> + + lcFirma = XmlSpecialCharacters(Alltrim(Upper(Nvl(gofirma.antet,'')))) && oproceduri_comune.prg + \<> + \<> + \<> + \<> + \<> + \ + + Do Case + Case lnDecl = 100 + Select * From cDecl Where id_decl < 33 And (datorat<>0 Or recuperat<>0) ; + INTO Cursor cDecl100_102 + Case lnDecl = 102 + Select * From cDecl Where id_decl >= 34 And (datorat<>0 Or recuperat<>0) ; + INTO Cursor cDecl100_102 + Endcase + + \ + + lnIndicatori = 0 + lnSumaTotala = 0 + + Select cDecl100_102 + Scan For id_decl <= 26 + lnIndicatori = lnIndicatori + 1 + lnSumaTotala = lnSumaTotala + datorat + lcScadenta = DTOS(datascad) + lcScadenta = LEFT(m.lcScadenta,4) + '-' + SUBSTR(m.lcScadenta,5,2) + '-' + SUBSTR(m.lcScadenta, 7,2) + + \<> + \ + \ + + \ + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \ + \<> + \<> + \ + + + Select cDecl100_102 + Endscan + + \ + \ + \ + + \ + \ + \ + \ + \<> + \<> + \ + \ + \ + \ + + lnIndicatori = 0 + lnSumaTotala = 0 + + Select cDecl100_102 + Scan For id_decl >= 28 && Impozite si taxe care nu se platesc in contul unic + lnIndicatori = lnIndicatori + 1 + lnSumaTotala = lnSumaTotala + datorat + lcScadenta = DTOS(datascad) + lcScadenta = LEFT(m.lcScadenta,4) + '-' + SUBSTR(m.lcScadenta,5,2) + '-' + SUBSTR(m.lcScadenta, 7,2) + + \<> + \ + \ + + \ + \<> + \<> + \<> + \<> + \<> + \<> + \ + \<> + \<> + \<> + \31/12 + \0 + \ + + Select cDecl100_102 + Endscan + + \ + \ + \ + \ + \<> + \<> + \ + \ + \ + \ + \ + + \ + + If Used('cDecl100_102') + Use In cDecl100_102 + Endif + + \<> + \<> + + \ + \<> + \<> + \ + \<> + \ + \ + + \ + \ + \ + + \1 + \1 + \1 + \1 + + \ + \ + \ + \ + \ + \ + \ + \ + \ + Set Textmerge To + + Strtofile(lcXDP, tcFisierXDP) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + Select (lcSelect) + + ENDPROC + + PROCEDURE do_genereaza_xdp_201601 + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou, tnDecl + Local lcDateStyle, lcMark, lcXDP, lcNumePrenumeDeclarant, lcNumeDeclarant, lcPrenumeDeclarant, lcFirma + Local lcSelect + lcSelect = Select() + Local lnDecl + lnDecl = tnDecl + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + Set Date To Ymd + Set Mark To '-' + + lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,'')) + lcNumeDeclarant = lcNumePrenumeDeclarant + lcPrenumeDeclarant = "" + If Getwordcount(lcNumePrenumeDeclarant," ") > 1 + lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ") + lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, "")) + Endif + + lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,''))) + If Substr(lcCodFiscal,1,2)='RO' + lcCod_fiscal = Alltrim(Substr(lcCodFiscal,3)) + ENDIF + + lcFirma = XmlSpecialCharacters(RemoveCharacters(Alltrim(Upper(Nvl(gofirma.antet,''))),.T.)) && oproceduri_comune.prg + + Select * From cDecl Where (datorat<>0 Or recuperat<>0) INTO Cursor cDecl100Temp + + Set Textmerge On To Memvar lcXDP Noshow + \ + \ + \ + \ + \ + \ + \ + \100 + + \<> + \<> + \<> + \<> + \0 + \RO + \ + \0 + \ + \0 + \0 + \ + \0 + \ + \ + \RO<> + \<> + \<> + \<> + \<> + \\<> + \ + \ + + \ + \<> + \<> + \<> + \ + + lnIndicatori = 0 + lnSumaTotala = 0 + + Select cDecl100Temp + Scan + lnIndicatori = lnIndicatori + 1 + lnSumaTotala = lnSumaTotala + datorat + lcScadenta = DTOS(datascad) + lcScadenta = LEFT(m.lcScadenta,4) + '-' + SUBSTR(m.lcScadenta,5,2) + '-' + SUBSTR(m.lcScadenta, 7,2) + + \ + \<> + \ + \<> + \<> + \0 + \0 + \0 + \0 + \<> + *Suma (lei) + *Suma corectata (lei) + \<> + \<> + \<> + \<> + \<> + \0 + \ + *1000 + *100 + Endscan + \ + \ + \ + \ + \ + Set Textmerge To + Use In (SELECT('cDecl100Temp')) + + Strtofile(lcXDP, tcFisierXDP) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + Select (lcSelect) + + + ENDPROC + + PROCEDURE do_genereaza_xdp_202003 + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou, tnDecl + Local lcDateStyle, lcMark, lcXDP, lcNumePrenumeDeclarant, lcNumeDeclarant, lcPrenumeDeclarant, lcFirma + Local lcSelect + lcSelect = Select() + Local lnDecl + lnDecl = tnDecl + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + Set Date To Ymd + Set Mark To '-' + + lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,'')) + lcNumeDeclarant = lcNumePrenumeDeclarant + lcPrenumeDeclarant = "" + If Getwordcount(lcNumePrenumeDeclarant," ") > 1 + lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ") + lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, "")) + Endif + + lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,''))) + If Substr(lcCodFiscal,1,2)='RO' + lcCod_fiscal = Alltrim(Substr(lcCodFiscal,3)) + ENDIF + + lcFirma = XmlSpecialCharacters(RemoveCharacters(Alltrim(Upper(Nvl(gofirma.antet,''))),.T.)) && oproceduri_comune.prg + + Select * From cDecl Where (datorat<>0 Or recuperat<>0) INTO Cursor cDecl100Temp + + Set Textmerge On To Memvar lcXDP Noshow + \ + \ + \ + \ + \ + \ + \ + \100 + + \<> + \<> + \<> + \<> + \0 + \RO + \ + \0 + \ + \0 + \0 + \ + \0 + \ + \ + \RO<> + \<> + \<> + \<> + \<> + \\<> + \ + \ + + \ + \<> + \<> + \<> + \ + + lnIndicatori = 0 + lnSumaTotala = 0 + + Select cDecl100Temp + Scan + lnIndicatori = lnIndicatori + 1 + lnSumaTotala = lnSumaTotala + datorat + lcScadenta = DTOS(datascad) + lcScadenta = SUBSTR(m.lcScadenta, 7,2) + '.' + SUBSTR(m.lcScadenta,5,2) + '.' + LEFT(m.lcScadenta,4) && 25.04.2020 + + \ + \<> + \<> + \<> + \0 + \0 + \0 + \0 + \0 + \<> + \<> + *Suma (lei) + *Suma corectata (lei) + \<> + \<> + \<> + \<> + \<> + \0 + \ + *1000 + *100 + Endscan + \ + \ + \ + \ + \ + Set Textmerge To + Use In (SELECT('cDecl100Temp')) + + Strtofile(lcXDP, tcFisierXDP) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + Select (lcSelect) + + + ENDPROC + + PROCEDURE do_genereaza_xdp_202012 + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou, tnDecl + Local lcDateStyle, lcMark, lcXDP, lcNumePrenumeDeclarant, lcNumeDeclarant, lcPrenumeDeclarant, lcFirma + Local lcSelect + lcSelect = Select() + Local lnDecl + lnDecl = tnDecl + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + Set Date To Ymd + Set Mark To '-' + + lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,'')) + lcNumeDeclarant = lcNumePrenumeDeclarant + lcPrenumeDeclarant = "" + If Getwordcount(lcNumePrenumeDeclarant," ") > 1 + lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ") + lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, "")) + Endif + + lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,''))) + If Substr(lcCodFiscal,1,2)='RO' + lcCod_fiscal = Alltrim(Substr(lcCodFiscal,3)) + ENDIF + + lcFirma = XmlSpecialCharacters(RemoveCharacters(Alltrim(Upper(Nvl(gofirma.antet,''))),.T.)) && oproceduri_comune.prg + + Select * From cDecl Where (datorat<>0 Or recuperat<>0) INTO Cursor cDecl100Temp + + Set Textmerge On To Memvar lcXDP Noshow + \ + \ + \ + \ + \ + \ + \ + \100 + + \<> + \<> + \<> + \<> + \0 + \RO + \ + \0 + \ + \0 + \0 + \ + \0 + \ + \ + \RO<> + \<> + \<> + \<> + \<> + \\<> + \ + \ + + \ + \<> + \<> + \<> + \ + + lnIndicatori = 0 + lnSumaTotala = 0 + + Select cDecl100Temp + Scan + lnIndicatori = lnIndicatori + 1 + lnSumaTotala = lnSumaTotala + datorat + lcScadenta = DTOS(datascad) + lcScadenta = SUBSTR(m.lcScadenta, 7,2) + '.' + SUBSTR(m.lcScadenta,5,2) + '.' + LEFT(m.lcScadenta,4) && 25.04.2020 + + \ + \<> + \<> + \<> + \0 + \<> + \<> + \<> + \0 + \0 + \0 + \0 + \0 + \0 + \0 + \<> + *Suma (lei) + *Suma corectata (lei) + \<> + \<> + \<> + \<> + \<> + \0 + \ + *1000 + *100 + Endscan + \ + \ + \ + \ + \ + Set Textmerge To + Use In (SELECT('cDecl100Temp')) + + Strtofile(lcXDP, tcFisierXDP) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + Select (lcSelect) + + + ENDPROC + + PROCEDURE do_genereaza_xdp_202112 + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou, tnDecl + Local lcDateStyle, lcMark, lcXDP, lcNumePrenumeDeclarant, lcNumeDeclarant, lcPrenumeDeclarant, lcFirma + Local lcSelect + lcSelect = Select() + Local lnDecl + lnDecl = tnDecl + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + Set Date To Ymd + Set Mark To '-' + + lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,'')) + lcNumeDeclarant = lcNumePrenumeDeclarant + lcPrenumeDeclarant = "" + If Getwordcount(lcNumePrenumeDeclarant," ") > 1 + lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ") + lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, "")) + Endif + + lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,''))) + If Substr(lcCodFiscal,1,2)='RO' + lcCod_fiscal = Alltrim(Substr(lcCodFiscal,3)) + ENDIF + + lcFirma = XmlSpecialCharacters(RemoveCharacters(Alltrim(Upper(Nvl(gofirma.antet,''))),.T.)) && oproceduri_comune.prg + + Select * From cDecl Where (datorat<>0 Or recuperat<>0) INTO Cursor cDecl100Temp + + Set Textmerge On To Memvar lcXDP Noshow + \ + \ + \ + \ + \ + \ + \ + \100 + + \<> + \<> + \<> + \<> + \0 + \RO + \ + \0 + \ + \0 + \0 + \ + \0 + \ + \ + \RO<> + \<> + \<> + \<> + \<> + \\<> + \ + \ + + \ + \<> + \<> + \<> + \ + + lnIndicatori = 0 + lnSumaTotala = 0 + + Select cDecl100Temp + Scan + lnIndicatori = lnIndicatori + 1 + lnSumaTotala = lnSumaTotala + datorat + lcScadenta = DTOS(datascad) + lcScadenta = SUBSTR(m.lcScadenta, 7,2) + '.' + SUBSTR(m.lcScadenta,5,2) + '.' + LEFT(m.lcScadenta,4) && 25.04.2020 + + \ + \<> + \<> + \<> + \0 + \<> + \<> + \<> + \0 + \0 + \0 + \0 + \0 + \0 + \0 + \<> + *Suma (lei) + *Suma corectata (lei) + \<> + \<> + \<> + \<> + \<> + \0 + \ + *1000 + *100 + Endscan + \ + \ + \ + \ + \ + Set Textmerge To + Use In (SELECT('cDecl100Temp')) + + Strtofile(lcXDP, tcFisierXDP) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + Select (lcSelect) + + + ENDPROC + + PROCEDURE do_genereaza_xdp_202401 + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou, tnDecl + Local lcDateStyle, lcMark, lcXDP, lcNumePrenumeDeclarant, lcNumeDeclarant, lcPrenumeDeclarant, lcFirma + Local lcSelect + lcSelect = Select() + Local lnDecl + lnDecl = tnDecl + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + Set Date To Ymd + Set Mark To '-' + + lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,'')) + lcNumeDeclarant = lcNumePrenumeDeclarant + lcPrenumeDeclarant = "" + If Getwordcount(lcNumePrenumeDeclarant," ") > 1 + lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ") + lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, "")) + Endif + + lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,''))) + If Substr(lcCodFiscal,1,2)='RO' + lcCod_fiscal = Alltrim(Substr(lcCodFiscal,3)) + ENDIF + + lcFirma = XmlSpecialCharacters(RemoveCharacters(Alltrim(Upper(Nvl(gofirma.antet,''))),.T.)) && oproceduri_comune.prg + + Select * From cDecl Where (datorat<>0 Or recuperat<>0) INTO Cursor cDecl100Temp + + Set Textmerge On To Memvar lcXDP Noshow + \ + \ + \ + \ + \ + \ + \ + \100 + + \<> + \<> + \<> + \<> + \0 + \RO + \ + \0 + \ + \0 + \0 + \ + \0 + \ + \ + \RO<> + \<> + \<> + \<> + \<> + \\<> + \ + \ + + \ + \<> + \<> + \<> + \ + + lnIndicatori = 0 + lnSumaTotala = 0 + + Select cDecl100Temp + Scan + lnIndicatori = lnIndicatori + 1 + lnSumaTotala = lnSumaTotala + datorat + lcScadenta = DTOS(datascad) + lcScadenta = SUBSTR(m.lcScadenta, 7,2) + '.' + SUBSTR(m.lcScadenta,5,2) + '.' + LEFT(m.lcScadenta,4) && 25.04.2020 + + \ + \<> + \<> + \<> + \0 + \<> + \0 + \0 + \0 + \0 + \0 + \0 + \0 + \0 + \0 + \<> + *Suma (lei) + *Suma corectata (lei) + \<> + \<> + \<> + \<> + \<> + \0 + \ + *1000 + *100 + Endscan + \ + \ + \ + \ + \ + Set Textmerge To + Use In (SELECT('cDecl100Temp')) + + Strtofile(lcXDP, tcFisierXDP) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + Select (lcSelect) + + + ENDPROC + + PROCEDURE do_genereaza_xml + LPARAMETERS tcFisierXML + Local lcXML, lcXmlFile, loAsigurat + Local lcDateStyle, lcMark + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + Set Date To Dmy + Set Mark To '.' + + + + Set Textmerge On To Memvar lcXML NOSHOW + \ + Select cDeclaratie + \ + Select cPlatitor + \ > caen="<>" den="<>" <> <> <> <> <> <> <> <> casaAng="<>" tRisc="<>" dat="<>" totalPlata_A="<>"> + Select cAngajatorA + Scan + \ + Endscan + Select cAngajatorB + Scan + \ + Endscan + Select cAngajatorC1 + Scan + \ + Endscan + Select cAngajatorC2 + Scan + \ + Endscan + Select cAngajatorC3 + Scan + \ + Endscan + Select cAngajatorC4 + Scan + \ + Endscan + Select cAngajatorC5 + *!* 02.05.2011 + SCAN FOR !(EMPTY(NVL(C5_recuperat,0)) AND EMPTY(NVL(C5_restituit,0))) + \ + Endscan + *!* 02.05.2011 ^ + Select cAngajatorC6 + Scan + \ + Endscan + Select cAngajatorC7 + Scan + \ + Endscan + Select cAngajatorD + Scan + \ + Endscan + Select cAngajatorE1 + Scan + \ + ENDSCAN + Select cAngajatorE2 + Scan + \ + ENDSCAN + Select cAngajatorE3 + Scan + \ + Endscan + Select cAngajatorF1 + Scan + \ + Endscan + Select cAngajatorF2 + Scan + \ + Endscan + \ + + Select cAsigurati + Scan + Scatter Name loAsigurat + \ > casaSn="<>" asigCI="<>" asigSO="<>"<>> + Select cCoasigurati + Scan For marca = loAsigurat.marca + \ + Endscan + Select cAsiguratiA + Scan For marca = loAsigurat.marca + \ + Endscan + Select cAsiguratiB1 + Scan For marca = loAsigurat.marca + \ + Select cAsiguratiB11 + Scan For marca = loAsigurat.marca + \ + Endscan + \ + Endscan + Select cAsiguratiB2 + Scan For marca = loAsigurat.marca + \ + Endscan + Select cAsiguratiB3 + Scan For marca = loAsigurat.marca + \ + Endscan + Select cAsiguratiB4 + Scan For marca = loAsigurat.marca + \ + ENDSCAN + Select cAsiguratiC + Scan For marca = loAsigurat.marca + \ + Endscan + Select cAsiguratiD + Scan For marca = loAsigurat.marca + \ > <> D_5="<>" D_6="<>" D_7="<>" <> D_9="<>" D_10="<>" <> <> <> D_14="<>" D_15="<>" D_16="<>" D_17="<>" D_18="<>" D_19="<>" D_20="<>" D_21="<>"/> + Endscan + \ + Endscan + \ + Set Textmerge To + + Strtofile(lcXML, m.tcFisierXML) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + ENDPROC + + PROCEDURE getnrevidenta && Generare nr evidenta a platii pentru un impozit + Lparameters tcCodObligatie, tnAn, tnLuna, tdDataScadenta, tnTipObligatie + * tcCodObligatie: 601 + * tnAn, tnLuna: sfarsitul perioadei de raportare + * tdDataScad: data scadenta a obligatiei + * tnTipObligatie: 1(care se platesc în CONT UNIC ), 2 (restul) + + Local lcNrEvidenta, lcSumaControl, lcText, lnSuma, i + + lcCodObligatie = Alltrim(NVL(tcCodObligatie, '')) && XXX + lcPerioadaRaportare = PADL(INT(m.tnLuna), 2, '0') + RIGHT(ALLTRIM(STR(INT(m.tnAn))), 2) && LLAA + lcDataScadenta = IIF(TYPE('tdDataScadenta') = 'D', DTOS(tdDataScadenta), '') + lcDataScadenta = RIGHT(m.lcDataScadenta,2) + SUBSTR(m.lcDataScadenta,5,2) + SUBSTR(m.lcDataScadenta, 3, 2) && ZZLLAA + lcTipObligatie = IIF(tnTipObligatie = 1, '1', '0') + + Text To lcText Noshow + Ex.nr.evid.a platii : 10 602 01 0611 250711 0 0 00 35 + + Verificare componenta si suma de control + pentru + nr_evid : + Poz.1-2 + :10 + Poz.3-5 + : cod obligatie (nomenclator) + Poz.6-7 + :01 + Poz.8-11 + : LLAA (sf.per.de raportare) + Poz.12-17 + : ZZLLAA (scadenta platii) + Poz.18: + 1 daca tip_oblig=1 + 0 daca tip_oblig=2 + + Poz.19 + : 0 + Poz.20-21 + : 00 + Poz.22-23 + : suma de control = suma + primelor 21 pozitii (se iau ultimele 2 cifre + ale sumei) + + Endtext + + + lcNrEvidenta = '10' + lcCodObligatie + '01' + lcPerioadaRaportare + lcDataScadenta + lcTipObligatie + '0' + '00' + lnSuma = 0 + For i = 1 To Len(m.lcNrEvidenta) + lnSuma = lnSuma + Int(Val(Substr(m.lcNrEvidenta, i, 1))) + Endfor + lcSumaControl = Right(Alltrim(Str(lnSuma)), 2) + lcNrEvidenta = lcNrEvidenta + m.lcSumaControl + + Return m.lcNrEvidenta + + ENDPROC + + PROCEDURE inainte_de_do_excel + DO export_excel_grid WITH this._grdrow1 + + ENDPROC + + PROCEDURE inainte_de_do_listare + Local lcTabel + lcTabel = Thisform._grdrow1.RecordSource + If Reccount(lcTabel)>0 + Private pcCaen + pcCaen = Alltrim(gofirma.caen) + + If !Empty(pcCaen) And !Isnull(pcCaen) + Private poCaen + Store '' To poCaen + pcschema=[] + pcselect=['select codcaen from sitfin_codcaen where 1=2 '] + pcfiltru=[cod=] + pcCaen + pcorder=[] + llAfisare=.F. + gencursor('poCaen','cCaen',pcselect,pcfiltru,pcschema,pcorder,llAfisare) + poCaen.ca_baza1.afisare() + + Select cCaen + pcCaen = codcaen + + If Used('cCaen') + Use In cCaen + Endif + Endif + + Thisform.AlwaysOnTop = .F. + Select (lcTabel) + Report Form decont To Printer Prompt Preview + Thisform.AlwaysOnTop = .T. + Else + amessagebox("Nu exista inregistrari pentru listare!",48,"Atentie") + Endif + ENDPROC + + PROCEDURE Init + PARAMETERS tnDecl, tlTrim + + DODEFAULT() + thisform.nDecl= tnDecl + thisform.lTrim = tlTrim + + + + + ENDPROC + + PROCEDURE Show + Lparameters nStyle + + + + Thisform.totaluri("datorat") + Thisform.totaluri("recuperat") + + DODEFAULT(nStyle) + + ENDPROC + + PROCEDURE totaluri + Lparameters tcColoana + Local lcFormula, lcColoana, lcTabel, lnSuma, lnId_ind, lcRand + + If Empty(tcColoana) + lcColoana = "datorat" + Else + lcColoana = Alltrim(tcColoana) + Endif + + lcTabel = thisform._grdrow1.RecordSource + Select * From (lcTabel) WITH (BUFFERING = .T.) Into Cursor cTemp Readwrite NOFILTER + + Select cTemp + Scan For tip = 5 + lnSuma = 0 + lcFormula = Alltrim(cTemp.formula) + lcRand = ALLTRIM(rand) + *!* IF '32'$lcRand AND 'tva'$LOWER(lcColoana) + *!* DEBUG + *!* SUSPEND + *!* ENDIF + *!* WAIT WINDOW lcFormula + " - " + lcColoana NOWAIT + lnSuma = calc_indicatori_randuri(lcFormula, "cTemp",lcColoana) + Select cTemp + Replace &lcColoana With lnSuma + Select (lcTabel) + Update (lcTabel) Set &lcColoana = lnSuma Where ALLTRIM(rand) = lcRand + + Select cTemp + Endscan + Use In cTemp + + SELECT (lcTabel) + GO TOP + + + ENDPROC + + PROCEDURE updateinfo + #DEFINE CRLF CHR(13) + CHR(10) + Lparameters tcInfo + + + Local loInfo + loInfo = this.edtInfo + If Upper(tcInfo) = 'RESET' + loInfo.Value = "" + Else + loInfo.Value = loInfo.Value + m.tcInfo + CRLF + CRLF + Endif + loInfo.Refresh() + + + ENDPROC + + PROCEDURE updatepdf + Lparameters tcPDFFile + *** tcPDFFile: calea completa a fisierului pdf D:\CONTAFIN\COMUNCONTAFIN\d390.pdf + + Local lcFile, lcPath, llOpen + lcFile = Justfname(m.tcPDFFile) + lcPath = Addbs(Justpath(m.tcPDFFile)) + llOpen = .F. + + Return DownloadSupportFile(m.lcFile, m.lcPath, m.llOpen) && proceduri_comune.prg + + + ENDPROC + + PROCEDURE cmdPDF100.Click + *!* 12.05.2011 + *!* Thisform.do_executa(2) && PDF + + *** Generare Nr evidenta a platii + SELECT cDecl + SCAN FOR (datorat <> 0 OR recuperat <> 0) + lcCodObligatie = ALLTRIM(cod_imp) + IF EMPTY(m.lcCodObligatie) + loop + ENDIF + lnAn = m.gnAn + lnLuna = m.gnLuna + ldDataScadenta = datascad + m.lnTipObligatie = IIF(LEFT(cod_bugetar, 4) <> '5502', 1, 2) && 1(care se platesc în CONT UNIC ), 2 (restul) + + lcNrEvidenta = Thisform.GetNrEvidenta(lcCodObligatie, lnAn, lnLuna, ldDataScadenta, lnTipObligatie) + SELECT cDecl + REPLACE nr_evidenta WITH m.lcNrEvidenta + ENDSCAN + + Thisform.do_executa(3,100) && XML + PDF + *!* 12.05.2011 ^ + ENDPROC + + PROCEDURE _grdrow1.cTVA.Text1.LostFocus + IF NVL(FLOOR(THIS.VALUE),0) <> NVL(FLOOR(THISFORM.nOldvalue),0) + THISFORM.totaluri("recuperat") + ENDIF + ENDPROC + + PROCEDURE _grdrow1.cTVA.Text1.When + thisform.nOldvalue = this.Value + + IF inactivR = 1 + RETURN .F. + ENDIF + ENDPROC + + PROCEDURE _grdrow1.cValoare.Text1.LostFocus + IF NVL(FLOOR(THIS.VALUE),0) <> NVL(FLOOR(THISFORM.nOldvalue),0) + THISFORM.totaluri("datorat") + ENDIF + ENDPROC + + PROCEDURE _grdrow1.cValoare.Text1.When + thisform.nOldvalue = this.Value + + IF inactivD = 1 + RETURN .F. + ENDIF + ENDPROC + + PROCEDURE _grdrow1.Init + this.SetAll("DynamicBackColor","IIF(antet=1,RGB(180,180,180),IIF(tip=5,RGB(230,244,255),RGB(255,255,255)))", "Column") + + this.cValoare.DynamicBackColor = [iif(inactivD=1,rgb(225,225,225),IIF(tip=5,RGB(230,244,255),IIF(antet=1,RGB(180,180,180),rgb(255,255,255))))] && rgb(128,128,128) + this.cTVA.DynamicBackColor = [iif(inactivR=1,rgb(225,225,225),IIF(tip=5,RGB(230,244,255),IIF(antet=1,RGB(180,180,180),rgb(255,255,255))))] + + this.cValoare.DynamicForeColor = [iif(inactivD=1,rgb(225,225,225),IIF(antet=1,RGB(180,180,180),rgb(0,0,0)))] + this.cTVA.DynamicForeColor = [iif(inactivR=1,rgb(225,225,225),IIF(antet=1,RGB(180,180,180),rgb(0,0,0)))] + + + + + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_decl101 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="edtInfo" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cmdPDF" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cValoare.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cValoare.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cL1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cL1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cL2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cL2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Command3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + + * + *m: do_genereaza_xdp + *m: do_genereaza_xdp_2011 + *m: do_genereaza_xdp_2012 + *m: do_genereaza_xdp_2014 + *m: do_genereaza_xdp_2015 + *m: do_genereaza_xdp_2016 + *m: do_genereaza_xdp_2018 + *m: do_genereaza_xdp_2020 + *m: do_genereaza_xdp_2021 + *m: do_genereaza_xdp_2022 + *m: do_genereaza_xdp_2024 + *m: totaluri + *m: updateinfo + *m: updatepdf + *p: cd100pdf + *p: cd100rezultat + *p: cd100rezultatfile + *p: cfisierxml + *p: ltrim + *p: ndecl + *p: noldvalue + * + + * + BorderStyle = 3 + cd100pdf = '' + cd100rezultat = '' + cd100rezultatfile = '' + cfisierxml = '' + DoCreate = .T. + Height = 592 + ltrim = .F. + Name = "frm_decl101" + ndecl = 0 + noldvalue = 0 + Width = 744 + _memberdata = + + + + + + + _shape1.Anchor = 10 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 749 + _shape2.Anchor = 9 + _shape2.Height = 29 + _shape2.Left = 650 + _shape2.Name = "_shape2" + _shape2.Top = -1 + _shape2.Width = 94 + Lb_titlu_alb_b121.Caption = "Declaratia 101 - Impozitul pe profit" + Lb_titlu_alb_b121.Left = 9 + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 7 + Lb_titlu_alb_b121.Top = 7 + BUT_TERMIN1.Anchor = 9 + BUT_TERMIN1.Left = 713 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 4 + BUT_TERMIN1.Top = 0 + Gridsort1.Left = 204 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 5 + * + + ADD OBJECT '_grdrow1' AS _grdrow WITH ; + Anchor = 15, ; + ColumnCount = 5, ; + DeleteMark = .F., ; + Height = 469, ; + Left = 9, ; + Name = "_grdrow1", ; + Panel = 1, ; + RecordSource = "cDecl", ; + TabIndex = 1, ; + Top = 35, ; + Width = 725, ; + Column1.ControlSource = "nrcrt", ; + Column1.Name = "Column1", ; + Column1.ReadOnly = .T., ; + Column1.Width = 41, ; + Column2.ControlSource = "denumire", ; + Column2.Name = "Column2", ; + Column2.ReadOnly = .T., ; + Column2.Width = 454, ; + Column3.ControlSource = "suma", ; + Column3.DynamicBackColor = "iif(inactivB=1,rgb(225,225,225),rgb(255,255,255))", ; + Column3.Format = "rk", ; + Column3.InputMask = "999 999 999", ; + Column3.Name = "cValoare", ; + Column3.Width = 116, ; + Column4.ControlSource = "l1", ; + Column4.Format = "rk", ; + Column4.InputMask = "999 999 999 999", ; + Column4.Name = "cL1", ; + Column4.ReadOnly = .T., ; + Column4.Width = 110, ; + Column5.ControlSource = "l2", ; + Column5.Format = "rk", ; + Column5.InputMask = "999 999 999 999", ; + Column5.Name = "cL2", ; + Column5.ReadOnly = .T., ; + Column5.Width = 105 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_grdrow1.cL1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "LL1", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.cL1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.cL2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "LL2", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.cL2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. crt.", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Denumire indicatori", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.cValoare.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Suma", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.cValoare.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'But_excel1' AS but_excel WITH ; + Anchor = 9, ; + Left = 658, ; + Name = "But_excel1", ; + TabIndex = 5, ; + Top = 0 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_listare1' AS but_listare WITH ; + Anchor = 9, ; + Enabled = .F., ; + Left = 629, ; + Name = "But_listare1", ; + TabIndex = 6, ; + Top = 0 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Anchor = 9, ; + Left = 686, ; + Name = "But_renunt1", ; + Top = 0 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'cmdPDF' AS cmd_executa WITH ; + Alignment = 2, ; + Anchor = 12, ; + Caption = "Export \ + + ADD OBJECT 'Command1' AS commandbutton WITH ; + Anchor = 4, ; + Caption = "\ + + ADD OBJECT 'Command3' AS commandbutton WITH ; + Anchor = 4, ; + Caption = "Export in fisiere \ + + ADD OBJECT 'edtInfo' AS _editbox WITH ; + Anchor = 14, ; + Height = 55, ; + Left = 9, ; + Name = "edtInfo", ; + Top = 534, ; + Visible = .T., ; + Width = 726, ; + ZOrderSet = 3 + *< END OBJECT: ClassLib="..\..\roadecl\comun\clase\_baza.vcx" BaseClass="editbox" /> + + PROCEDURE do_executa + Lparameters tnMenu + *!* tnMenu: 1 = XML, 2 = PDF, 3 = XML + PDF + *!* tnDecl: 100, 102 + #Define CRLF Chr(13) + Chr(10) + + + Local loEx As Exception + Local lnMenu, lcCaleFisier, lcCaleFisierPDF, lcNumeFisier + Local lcAppPath, lcCaleD112, lcComunPath, lcSelect, lcTempPath, lnPos + Local lcFileName, lcFisierPDFNou, lcFisierPDFOriginal, lcFisierXDP, lcFisierXML, lcRun + Local loProcess As "api_apprun" Of "process.vcx" + Local lcD112RezultatFile, lcD112ValidatorFile, lcMesaj, lcRezultat, lcVersiuneDUK + Local lcVersiuneFisiereD112, lcVersiunePDF, llSucces + Local lcCod_fiscal + lcCaleFisier = "" + + lcSelect = Select() + If !Empty(tnMenu) + lnMenu = tnMenu + Else + lnMenu = xmenu("Genereaza \ 0 + lcComunPath = Left(m.lcAppPath, lnPos) + Endif + lcComunPath = lcComunPath + Iif(Inlist(gcAppName, "CONSAL","CONCONT"), "COMUNCONTAFIN\", "COMUNROA\") && d:\contafin\comuncontafin\ + + This.UpdateInfo("Creez structura director export...") + + *** Creez structura director export (caletemp\D112\aaaa_ll\firma\ + llSucces = .F. + + Try + lcTempPath = Iif(Inlist(gcAppName, "CONSAL","CONCONT"), Addbs(m.dirgen),Addbs(gcDirMare)) + + lcCaleFisier = m.lcTempPath + "D101\" && c:\temp\D112\ + + + If !Directory(m.lcCaleFisier) + Md (m.lcCaleFisier) + Endif + + *lcCaleFisier = m.lcCaleFisier + Alltrim(Str(This.nAn)) + "_" + Padl(Alltrim(Str(This.nLuna)),2, "0") + "\"&& c:\temp\D112\2011_01\ + lcCaleFisier = m.lcCaleFisier + Alltrim(Str(gnAn)) + "_" + Padl(Alltrim(Str(gnLuna)),2, "0") + "\"&& c:\temp\D112\2011_01\ + If !Directory(m.lcCaleFisier) + Md (m.lcCaleFisier) + Endif + + *lcCaleFisier = m.lcCaleFisier + STRTRAN(This.cNumeFirma,[ ],[_]) + "\" && c:\temp\D112\2011_01\firma\ + lcCaleFisier = m.lcCaleFisier + Strtran(gcFirma,[ ],[_]) + "\" && c:\temp\D112\2011_01\firma\ + If !Directory(m.lcCaleFisier) + Md (m.lcCaleFisier) + Endif + This.UpdateInfo("S-a creat directorul " + m.lcCaleFisier) + + *lcCaleFisierPDF = m.lcCaleFisier + "pdf_inteligent\" && c:\temp\D112\2011_01\firma\pdf_inteligent\ + lcCaleFisierPDF = m.lcCaleFisier && c:\temp\D112\2011_01\firma\ + If !Directory(m.lcCaleFisierPDF) + Md (m.lcCaleFisierPDF) + Endif + This.UpdateInfo("S-a creat directorul " + m.lcCaleFisierPDF) + + llSucces = .T. + Catch To loEx + lcMesaj = "Creare director " + lcCaleFisier + " " + loEx.Message + This.UpdateInfo(lcMesaj) + + Thisform.afiseaza_mesaj(lcMesaj,0+48) + Endtry + If !llSucces + Return + Endif + *!* lcCaleFisier = shortpath(Getdir([],[Alegeti directorul unde se va salva PDF-ul/XML-ul],[Declaratia 112])) + + Do Case + Case m.gnAn >= 2024 + lcFisierPDFOriginal = m.lcComunPath + "d101_202412.pdf" + Case m.gnAn >= 2022 + lcFisierPDFOriginal = m.lcComunPath + "d101_202212.pdf" + Case m.gnAn >= 2021 + lcFisierPDFOriginal = m.lcComunPath + "d101_202112.pdf" + Case m.gnAn >= 2020 + lcFisierPDFOriginal = m.lcComunPath + "d101_202012.pdf" + Case m.gnAn >= 2018 + lcFisierPDFOriginal = m.lcComunPath + "d101_201901.pdf" + Case m.gnAn >= 2017 + lcFisierPDFOriginal = m.lcComunPath + "d101_201801.pdf" + Case m.gnAn = 2017 AND m.gnLuna = 1 + lcFisierPDFOriginal = m.lcComunPath + "d101_201701.pdf" + Case m.gnAn >= 2016 + lcFisierPDFOriginal = m.lcComunPath + "d101_2016.pdf" + Case m.gnAn >= 2015 + lcFisierPDFOriginal = m.lcComunPath + "d101_2015.pdf" + Case m.gnAn >= 2014 + lcFisierPDFOriginal = m.lcComunPath + "d101_2014.pdf" + Case m.gnAn >= 2012 + lcFisierPDFOriginal = m.lcComunPath + "d101_2013.pdf" + Case m.gnAn >= 2011 + lcFisierPDFOriginal = m.lcComunPath + "d101_2012.pdf" + Otherwise + lcFisierPDFOriginal = m.lcComunPath + "d101.pdf" + Endcase + *!* 18.01.2012 + This.UpdatePDF(m.lcFisierPDFOriginal) && actualizez pdf de la romfast + *!* 18.01.2012 ^ + + lcCod_fiscal = Alltrim(NVL(gofirma.codfiscalfro,'')) + + *lcNumeFisier = "d100_"+ Alltrim(Transform(Thisform.cCodFiscal)) + "_" + Alltrim(Str(Int(Thisform.nAn))) + "_" + Alltrim(Padl(Int(Thisform.nLuna), 2, "0")) + lcNumeFisier = "d101_"+ lcCod_fiscal + "_" + Alltrim(Str(gnAn)) + "_" + Padl(gnLuna, 2, "0") + + + lcFileName = m.lcCaleFisier + lcNumeFisier + + lcFileNamePDF = m.lcCaleFisierPDF + lcNumeFisier + lcFisierPDFNou = m.lcFileNamePDF + [.pdf] + lcFisierXDP = m.lcFileNamePDF + [.xdp] + + lcFisierXML = m.lcFileName + [.xml] + *lcD100ValidatorFile = m.lcComunPath + [dist\DUKIntegrator.jar] + lcD100RezultatFile = m.lcFisierXML + [.err.txt] + + This.cFisierXML = lcFisierXML + This.cD100RezultatFile = lcD100RezultatFile + + If Inlist(lnMenu, 2,3) + If File(lcFisierPDFNou) + Delete File (lcFisierPDFNou) + Endif + If File(lcFisierXDP) + Delete File (lcFisierXDP) + Endif + Endif + If Inlist(lnMenu, 1,3) + If File(lcFisierXML) + Delete File (lcFisierXML) + Endif + If File(m.lcD100RezultatFile) + Delete File (m.lcD100RezultatFile) + Endif + Endif + This.cD100Rezultat = "" + This.cD100PDF = "" + + + *** creez xml, xdp (= xml data package = xml cu sesiunea pdf-ului inteligent) + + Do Case + Case lnMenu = 1 + This.UpdateInfo("Se exporta datele in format XML") + Thisform.do_genereaza_xml(lcFisierXML) + This.UpdateInfo(Replicate('-', 100)) + Case lnMenu = 2 + This.UpdateInfo("Se exporta datele in format PDF") + Thisform.do_genereaza_xdp(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + This.UpdateInfo(Replicate('-', 100)) + Case lnMenu = 3 + This.UpdateInfo("Se exporta datele in format XML+PDF") + Do Case + Case m.gnAn >= 2024 + Thisform.do_genereaza_xdp_2024(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + Case m.gnAn >= 2022 + Thisform.do_genereaza_xdp_2022(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + Case m.gnAn >= 2021 + Thisform.do_genereaza_xdp_2021(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + Case m.gnAn >= 2020 + Thisform.do_genereaza_xdp_2020(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + Case m.gnAn >= 2018 + Thisform.do_genereaza_xdp_2018(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + Case m.gnAn >= 2016 + Thisform.do_genereaza_xdp_2016(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + Case m.gnAn = 2017 AND m.gnLuna = 1 + Thisform.do_genereaza_xdp_2016(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + Case m.gnAn >= 2016 + Thisform.do_genereaza_xdp_2016(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + Case gnAn >=2015 + Thisform.do_genereaza_xdp_2015(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + Case gnAn >=2014 + Thisform.do_genereaza_xdp_2014(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + Case gnAn >=2012 + Thisform.do_genereaza_xdp_2012(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + Case gnAn >=2011 + Thisform.do_genereaza_xdp_2011(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + Otherwise + Thisform.do_genereaza_xdp(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + Endcase + This.UpdateInfo(Replicate('-', 100)) + Endcase + + + *** deschid fisierul XDP (pdf inteligent) + If Inlist(lnMenu,2,3) And File(lcFisierXDP) + If !File(m.lcFisierPDFOriginal) + Messagebox('Nu exista fisierul ' + m.lcFisierPDFOriginal + CRLF + ; + 'Copiati pdf-ul inteligent D101 de pe website-ul ANAF in directorul ' + Justpath(m.lcFisierPDFOriginal) + CRLF + ; + 'cu numele ' + Justfname(m.lcFisierPDFOriginal) + '.', 0+48, _Screen.Caption) + OPEN_DEFAULT_APP("http://static.anaf.ro/static/10/Anaf/Declaratii_R/101.html") + Else + *** copiez fisierul pdf inteligent original in directorul de export + Copy File (lcFisierPDFOriginal) To (lcFisierPDFNou) + This.cD100PDF = m.lcFisierXDP + If File(m.lcFisierXDP) + This.UpdateInfo([In PDF apasati butonul "Options > Trust this document always" de pe banda galbena pentru a incarca datele.]) + open_default_app(lcFisierXDP) + ENDIF + ENDIF + Endif + + *!* *** deschid explorer in directorul de export + lcRun = [RUN /N7 explorer.exe "] + m.lcCaleFisier + ["] + &lcRun + + + Select (lcSelect) + + + ENDPROC + + PROCEDURE do_genereaza_xdp + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou, tnDecl + Local lcDateStyle, lcMark, lcXDP + Local lcSelect + lcSelect = Select() + Local lnDecl + lnDecl = tnDecl + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + Set Date To Ymd + Set Mark To '-' + + + Set Textmerge On To Memvar lcXDP Noshow + *Set Textmerge On To Memvar lcXML Noshow + \ + \ + \ + \ + \ + \ + \ + + \ 101 + \<> + \<> + \ + + \ + \ + \ + \<> + \AN + + \ + \103 + \ + \ + + \ + \RO + + + + If Upper(Substr(Alltrim(gofirma.cod_fiscal),1,2))='RO' + lcCod_fiscal = Substr(Alltrim(gofirma.cod_fiscal),3,Len(Alltrim(gofirma.cod_fiscal))-2) + Else + lcCod_fiscal = Alltrim(gofirma.cod_fiscal) + ENDIF + + + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \ + + \ + \ + \ + \ + + + + Select cDecl + SCAN FOR ordine <= 24 + \>><>>> + Select cDecl + Endscan + \ + \ + \ + + \ + \ + \ + + Select cDecl + SCAN FOR ordine > 24 AND ordine <= 52 + \>><>>> + SELECT cDecl + ENDSCAN + \ + + Select cDecl + SCAN FOR ordine >= 54 + \>><>>> + SELECT cDecl + ENDSCAN + \ + \ + + \ + \ + \ + \ + \20470101XX + \11103011210250411000024 + \29653 + \ + + \<> + \<> + + \ + \ + \ + \ + \ + + \ + \ + \ + \ + Set Textmerge To + + Strtofile(lcXDP, tcFisierXDP) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + Select (lcSelect) + + ENDPROC + + PROCEDURE do_genereaza_xdp_2011 + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou, tnDecl + Local lcDateStyle, lcMark, lcXDP + Local lcSelect + lcSelect = Select() + Local lnDecl + lnDecl = tnDecl + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + Set Date To Ymd + Set Mark To '-' + + lcCodFiscalF = Alltrim(gofirma.codfiscalfro) + + *** generez variabile pentru fiecare rand + SELECT rand, denumire, suma, tip FROM cDecl WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecl NOFILTER + SELECT crsDecl + SCAN + lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1 + lcVariabila = [ln] + m.lcRand && ln17 + IF NVL(tip, 0) = 0 OR INLIST(lcRand, '40_1', '43')&& 5 = TOTAL/ 401, 43 = formule, dar nu totaluri si trebuie exportate + LOCAL &lcVariabila + &lcVariabila = suma + ENDIF + ENDSCAN + USE IN (SELECT('crsDecl')) + + Set Textmerge On To Memvar lcXDP Noshow + *Set Textmerge On To Memvar lcXML Noshow + \ + \ + \ + \ + \ + \ + \101 + \ + \0<><><><> + \ + \10300<> + \ + \ + \<><><> + \<> + \<><><>RO + \ + *************** + \ + \ + \<><><><> + \<><> + \<><><><><> + \ + \<><><><> + \<><><><> + \<><><><><><> + \<><><><> + \<><> + \ + \<><><><> + \<><><><> + \ + \ + \<> + \<> + \ + \ + + \ + \ + \ + \ + Set Textmerge To + + Strtofile(lcXDP, tcFisierXDP) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + Select (lcSelect) + + ENDPROC + + PROCEDURE do_genereaza_xdp_2012 + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou, tnDecl + Local lcDateStyle, lcMark, lcXDP + Local lcSelect + lcSelect = Select() + Local lnDecl + lnDecl = tnDecl + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + Set Date To Ymd + Set Mark To '-' + + lcCodFiscalF = Alltrim(gofirma.codfiscalfro) + + *** generez variabile pentru fiecare rand + SELECT rand, denumire, suma, tip FROM cDecl WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecl NOFILTER + SELECT crsDecl + SCAN + lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1 + lcVariabila = [ln] + m.lcRand && ln17 + *!* IF NVL(tip, 0) = 0 OR INLIST(lcRand, '40_1', '43')&& 5 = TOTAL/ 401, 43 = formule, dar nu totaluri si trebuie exportate + LOCAL &lcVariabila + &lcVariabila = suma + *!* ENDIF + ENDSCAN + USE IN (SELECT('crsDecl')) + + Set Textmerge On To Memvar lcXDP Noshow + *Set Textmerge On To Memvar lcXML Noshow + \ + \ + \ + \ + \ + \ + \ + \0<><> + \10300<>0 + \ + \ + \<><><> + \<> + \<><><>RO<> + \ + *************** + \ + \ + \<><><><> + \<><> + \<><><><> + \<><><><><><> + \ + \<><><><><> + \<><><><> + \<><><><><><> + \<><><><> + \<><> + \ + \<><> + \<><><><> + \<><><><> + \ + \ + \<><> + \<> + \ + \ + + \ + \ + \ + \ + Set Textmerge To + + Strtofile(lcXDP, tcFisierXDP) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + Select (lcSelect) + + ENDPROC + + PROCEDURE do_genereaza_xdp_2014 + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou, tnDecl + Local lcDateStyle, lcMark, lcXDP + Local lcSelect + lcSelect = Select() + Local lnDecl + lnDecl = tnDecl + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + Set Date To Ymd + Set Mark To '-' + + lcCodFiscalF = Alltrim(gofirma.codfiscalfro) + + *** generez variabile pentru fiecare rand + SELECT rand, denumire, suma, tip FROM cDecl WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecl NOFILTER + SELECT crsDecl + SCAN + lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1 + lcVariabila = [ln] + m.lcRand && ln17 + *!* IF NVL(tip, 0) = 0 OR INLIST(lcRand, '40_1', '43')&& 5 = TOTAL/ 401, 43 = formule, dar nu totaluri si trebuie exportate + LOCAL &lcVariabila + &lcVariabila = suma + *!* ENDIF + ENDSCAN + USE IN (SELECT('crsDecl')) + + Set Textmerge On To Memvar lcXDP Noshow + *Set Textmerge On To Memvar lcXML Noshow + \ + \ + \ + \ + \ + \ + \ + \0<><> + \10300<>0 + \ + \ + \<><><> + \<> + \<><><>RO<> + \ + *************** + \ + \ + \<><><><> + \<><> + \<><><><> + \<><><><><><> + \ + \<><><><> + + \<><><> + + \<> + + \<><><><> + \<><><><><><> + \<><><><> + \<><> + \ + \<><> + \<><><><> + \<><><><> + \ + \ + \<><> + \<> + \ + \ + + \ + \ + \ + \ + Set Textmerge To + + Strtofile(lcXDP, tcFisierXDP) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + Select (lcSelect) + + ENDPROC + + PROCEDURE do_genereaza_xdp_2015 + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou, tnDecl + Local lcDateStyle, lcMark, lcXDP + Local lcSelect + lcSelect = Select() + Local lnDecl + lnDecl = tnDecl + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + Set Date To Ymd + Set Mark To '-' + + lcCodFiscalF = Alltrim(gofirma.codfiscalfro) + + *** generez variabile pentru fiecare rand + SELECT rand, denumire, suma, tip FROM cDecl WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecl NOFILTER + SELECT crsDecl + SCAN + lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1 + lcVariabila = [ln] + m.lcRand && ln17 + *!* IF NVL(tip, 0) = 0 OR INLIST(lcRand, '40_1', '43')&& 5 = TOTAL/ 401, 43 = formule, dar nu totaluri si trebuie exportate + LOCAL &lcVariabila + &lcVariabila = suma + *!* ENDIF + ENDSCAN + USE IN (SELECT('crsDecl')) + + Set Textmerge On To Memvar lcXDP Noshow + *Set Textmerge On To Memvar lcXML Noshow + \ + \ + \ + \ + \ + \ + \ + \0<><> + \10300<>0 + \ + \ + \<><><> + \<> + \<><><>RO<> + \ + *************** + \ + \ + \<><><><> + \<><> + \<><><><> + \<><><><><><> + \ + \<><><><> + + \<><><> + + \<> + + \<><><><> + \<><><><><><> + \<><><><> + \<><> + \ + \<><> + \<><><><> + \<><><><> + \ + \ + \<><> + \<> + \ + \ + + \ + \ + \ + \ + Set Textmerge To + + Strtofile(lcXDP, tcFisierXDP) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + Select (lcSelect) + + ENDPROC + + PROCEDURE do_genereaza_xdp_2016 + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou, tnDecl + Local lcDateStyle, lcMark, lcXDP + Local lcSelect + lcSelect = Select() + Local lnDecl + lnDecl = tnDecl + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + Set Date To Ymd + Set Mark To '-' + + lcCodFiscalF = Alltrim(gofirma.codfiscalfro) + + *** generez variabile pentru fiecare rand + SELECT rand, denumire, suma, tip FROM cDecl WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecl NOFILTER + SELECT crsDecl + SCAN + lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1 + lcVariabila = [ln] + m.lcRand && ln17 + *!* IF NVL(tip, 0) = 0 OR INLIST(lcRand, '40_1', '43')&& 5 = TOTAL/ 401, 43 = formule, dar nu totaluri si trebuie exportate + LOCAL &lcVariabila + &lcVariabila = suma + *!* ENDIF + ENDSCAN + USE IN (SELECT('crsDecl')) + + *!* Set Textmerge On To Memvar lcXDP Noshow + TEXT TO lcXDP TEXTMERGE NOSHOW + + + + + + + + 0<><> + 1030 + + + + <> + <><> + <> + <> + <> + <> + RO + + + + + <> + <> + + <> + <> + + + <> + <> + <> + <> + <> + <> + + <> + <> + <> + <> + <> + <> + <> + <> + <> + <> + + <> + <> + <> + <> + + <> + <> + + <> + + + <> + <> + <> + <> + <> + <> + <> + <> + <> + <> + <> + + + <> + <> + <> + <> + + + <> + <> + + <> + <> + <> + <> + + <> + + <> + <> + + + + + + <> + <> + <> + + + + + + + + + ENDTEXT + *!* Set Textmerge To + + Strtofile(lcXDP, tcFisierXDP) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + Select (lcSelect) + + ENDPROC + + PROCEDURE do_genereaza_xdp_2018 + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou, tnDecl + Local lcDateStyle, lcMark, lcXDP + Local lcSelect + lcSelect = Select() + Local lnDecl + lnDecl = tnDecl + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + Set Date To Ymd + Set Mark To '-' + + lcCodFiscalF = Alltrim(gofirma.codfiscalfro) + + *** generez variabile pentru fiecare rand + SELECT rand, denumire, suma, tip FROM cDecl WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecl NOFILTER + SELECT crsDecl + SCAN + lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1 + lcVariabila = [ln] + m.lcRand && ln17 + *!* IF NVL(tip, 0) = 0 OR INLIST(lcRand, '40_1', '43')&& 5 = TOTAL/ 401, 43 = formule, dar nu totaluri si trebuie exportate + LOCAL &lcVariabila + &lcVariabila = suma + *!* ENDIF + ENDSCAN + USE IN (SELECT('crsDecl')) + + *!* Set Textmerge On To Memvar lcXDP Noshow + TEXT TO lcXDP TEXTMERGE NOSHOW + + + + + + + + 0<><> + 1030 + + + + <> + <><> + <> + <> + <> + <> + RO + + + + + <> + <> + + <> + <> + + + <> + <> + <> + <> + <> + <> + <> + + <> + <> + <> + <> + <> + <> + <> + <> + <> + <> + + <> + <> + <> + <> + + <> + <> + + <> + + + <> + <> + <> + <> + <> + <> + <> + <> + <> + <> + <> + + + <> + <> + <> + <> + + + <> + <> + + <> + <> + <> + <> + <> + + <> + + <> + <> + + + + + + <> + <> + <> + + + + + + + + + ENDTEXT + *!* Set Textmerge To + + Strtofile(lcXDP, tcFisierXDP) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + Select (lcSelect) + + ENDPROC + + PROCEDURE do_genereaza_xdp_2020 + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou, tnDecl + Local lcDateStyle, lcMark, lcXDP + Local lcSelect + lcSelect = Select() + Local lnDecl + lnDecl = tnDecl + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + Set Date To Ymd + Set Mark To '-' + + lcCodFiscalF = Alltrim(gofirma.codfiscalfro) + + *** generez variabile pentru fiecare rand + SELECT rand, denumire, suma, tip FROM cDecl WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecl NOFILTER + SELECT crsDecl + SCAN + lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1 + lcVariabila = [ln] + m.lcRand && ln17 + *!* IF NVL(tip, 0) = 0 OR INLIST(lcRand, '40_1', '43')&& 5 = TOTAL/ 401, 43 = formule, dar nu totaluri si trebuie exportate + LOCAL &lcVariabila + &lcVariabila = suma + *!* ENDIF + ENDSCAN + USE IN (SELECT('crsDecl')) + + *!* Set Textmerge On To Memvar lcXDP Noshow + TEXT TO lcXDP TEXTMERGE NOSHOW + + + + + + + + 0<><> + 1030 + + + + <> + <><> + <> + <> + <> + <> + RO + + + + + <> + <> + + <> + <> + + + <> + <> + <> + <> + <> + <> + <> + + <> + <> + <> + <> + <> + <> + <> + <> + <> + <> + + <> + <> + <> + <> + + <> + <> + + <> + + + <> + <> + <> + <> + <> + <> + <> + <> + <> + <> + <> + <> + + + <> + <> + <> + <> + + + <> + <> + + <> + <> + <> + <> + <> + <> + <> + <> + <> + <> + <> + + <> + + <> + <> + + <> + + + + + + <> + <> + <> + + + + + + + + + ENDTEXT + *!* Set Textmerge To + + Strtofile(lcXDP, tcFisierXDP) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + Select (lcSelect) + + ENDPROC + + PROCEDURE do_genereaza_xdp_2021 + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou, tnDecl + Local lcDateStyle, lcMark, lcXDP + Local lcSelect + lcSelect = Select() + Local lnDecl + lnDecl = tnDecl + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + Set Date To Ymd + Set Mark To '-' + + lcCodFiscalF = Alltrim(gofirma.codfiscalfro) + + *** generez variabile pentru fiecare rand + SELECT rand, denumire, suma, tip FROM cDecl WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecl NOFILTER + SELECT crsDecl + SCAN + lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1 + lcVariabila = [ln] + m.lcRand && ln17 + *!* IF NVL(tip, 0) = 0 OR INLIST(lcRand, '40_1', '43')&& 5 = TOTAL/ 401, 43 = formule, dar nu totaluri si trebuie exportate + LOCAL &lcVariabila + &lcVariabila = suma + *!* ENDIF + ENDSCAN + USE IN (SELECT('crsDecl')) + + *!* Set Textmerge On To Memvar lcXDP Noshow + TEXT TO lcXDP TEXTMERGE NOSHOW + + + + + + + + 0<><> + 1030 + + + + <> + <><> + <> + <> + <> + <> + RO + + + + + <> + <> + + <> + <> + + + <> + <> + <> + <> + <> + <> + <> + + <> + <> + <> + <> + <> + <> + <> + <> + <> + <> + <> + <> + + <> + <> + <> + <> + + <> + <> + + <> + + + <> + <> + <> + <> + <> + <> + <> + <> + <> + <> + <> + + + <> + <> + <> + <> + + + <> + <> + + <> + <> + <> + <> + <> + <> + <> + <> + <> + <> + <> + <> + + <> + <> + <> + <> + <> + + + + + + <> + <> + <> + + + + + + + + + ENDTEXT + *!* Set Textmerge To + + Strtofile(lcXDP, tcFisierXDP) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + Select (lcSelect) + + ENDPROC + + PROCEDURE do_genereaza_xdp_2022 + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou, tnDecl + Local lcDateStyle, lcMark, lcXDP + Local lcSelect + lcSelect = Select() + Local lnDecl + lnDecl = tnDecl + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + Set Date To Ymd + Set Mark To '-' + + lcCodFiscalF = Alltrim(gofirma.codfiscalfro) + + *** generez variabile pentru fiecare rand + SELECT rand, denumire, suma, tip FROM cDecl WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecl NOFILTER + SELECT crsDecl + SCAN + lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1 + lcVariabila = [ln] + m.lcRand && ln17 + *!* IF NVL(tip, 0) = 0 OR INLIST(lcRand, '40_1', '43')&& 5 = TOTAL/ 401, 43 = formule, dar nu totaluri si trebuie exportate + LOCAL &lcVariabila + &lcVariabila = suma + *!* ENDIF + ENDSCAN + USE IN (SELECT('crsDecl')) + + *!* Set Textmerge On To Memvar lcXDP Noshow + TEXT TO lcXDP TEXTMERGE NOSHOW + + + + + + + + 0<><> + 1030 + + + + <> + <><> + <> + <> + <> + <> + RO + + + + + <> + <> + + <> + <> + + + <> + <> + <> + <> + <> + <> + <> + + <> + <> + <> + <> + <> + <> + <> + <> + <> + <> + <> + <> + + <> + <> + <> + <> + + <> + <> + + <> + + + <> + <> + <> + <> + <> + <> + <> + <> + <> + <> + <> + + + <> + <> + <> + <> + + + <> + <> + + <> + <> + <> + <> + <> + <> + <> + <> + <> + <> + <> + <> + + <> + <> + <> + <> + <> + + + + + + <> + <> + <> + + + + + + + + + ENDTEXT + *!* Set Textmerge To + + Strtofile(lcXDP, tcFisierXDP) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + Select (lcSelect) + + ENDPROC + + PROCEDURE do_genereaza_xdp_2024 + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou, tnDecl + Local lcDateStyle, lcMark, lcXDP + Local lcSelect + lcSelect = Select() + Local lnDecl + lnDecl = tnDecl + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + Set Date To Ymd + Set Mark To '-' + + lcCodFiscalF = Alltrim(gofirma.codfiscalfro) + + *** generez variabile pentru fiecare rand + SELECT rand, denumire, suma, tip FROM cDecl WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecl NOFILTER + SELECT crsDecl + SCAN + lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1 + lcRand = STRTRAN(ALLTRIM(m.lcRand), "^1", "a") && 39^1 => 39a + lcVariabila = [ln] + m.lcRand && ln17 + *!* IF NVL(tip, 0) = 0 OR INLIST(lcRand, '40_1', '43')&& 5 = TOTAL/ 401, 43 = formule, dar nu totaluri si trebuie exportate + LOCAL &lcVariabila + &lcVariabila = suma + *!* ENDIF + ENDSCAN + USE IN (SELECT('crsDecl')) + + *!* Set Textmerge On To Memvar lcXDP Noshow + TEXT TO lcXDP TEXTMERGE NOSHOW + + + + + + + + 0<><> + 1030 + + + + <> + <><> + <> + <> + <> + <> + RO + + + + + <> + <> + + <> + <> + + + <> + <> + <> + <> + <> + <> + <> + + <> + <> + <> + <> + <> + <> + <> + <> + <> + <> + <> + <> + + <> + <> + <> + <> + + <> + <> + + <> + + + <> + <> + <> + <> + <> + <> + <> + <> + <> + <> + <> + + + <> + <> + <> + <> + <> + <> + <> + <> + <> + <> + <> + + <> + <> + <> + <> + <> + <> + <> + <> + <> + <> + <> + <> + <> + <> + <> + <> + <> + <> + <> + <> + <> + <> + + + + <> + <> + <> + + + + + + + + + ENDTEXT + *!* Set Textmerge To + + Strtofile(lcXDP, tcFisierXDP) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + Select (lcSelect) + + ENDPROC + + PROCEDURE inainte_de_do_excel + DO export_excel_grid WITH this._grdrow1 + + ENDPROC + + PROCEDURE inainte_de_do_listare + Local lcTabel + lcTabel = Thisform._grdrow1.RecordSource + If Reccount(lcTabel)>0 + Private pcCaen + pcCaen = Alltrim(gofirma.caen) + + If !Empty(pcCaen) And !Isnull(pcCaen) + Private poCaen + Store '' To poCaen + pcschema=[] + pcselect=['select codcaen from sitfin_codcaen where 1=2 '] + pcfiltru=[cod=] + pcCaen + pcorder=[] + llAfisare=.F. + gencursor('poCaen','cCaen',pcselect,pcfiltru,pcschema,pcorder,llAfisare) + poCaen.ca_baza1.afisare() + + Select cCaen + pcCaen = codcaen + + If Used('cCaen') + Use In cCaen + Endif + Endif + + Thisform.AlwaysOnTop = .F. + Select (lcTabel) + Report Form decont To Printer Prompt Preview + Thisform.AlwaysOnTop = .T. + Else + amessagebox("Nu exista inregistrari pentru listare!",48,"Atentie") + Endif + ENDPROC + + PROCEDURE Init + DODEFAULT() + LOCAL lnWidth + lnWidth = This.Width + This.WindowState = 2 + This.Width = m.lnWidth + ENDPROC + + PROCEDURE Show + Lparameters nStyle + + Local lcCaption + + Thisform.totaluri("suma") + Thisform.totaluri("l1") + Thisform.totaluri("l2") + + lcCaption = "Declaratia 101 - Impozitul pe profit" + + + *!* Do Case + *!* Case pcPerioada = '01/10 - 09/10' + *!* lcPerioada = '01.01.2010 - 30.09.2010' + *!* Case pcPerioada = '01/10 - 12/10' + *!* lcPerioada = '01.01.2010 - 31.12.2010' + *!* Case pcPerioada = '10/10 - 12/10' + *!* lcPerioada = '01.10.2010 - 31.12.2010' + *!* Case Lower(Alltrim(pcPerioada)) = 'luna contabila curenta' + *!* lcPerioada = Alltrim(Str(gnLuna)) + '.' + Alltrim(Str(gnAn)) + *!* Endcase + + Thisform.lb_titlu_alb_b121.Caption = lcCaption + ' - Perioada ' + m.pcPerioada && lcPerioada + DoDefault(nStyle) + + ENDPROC + + PROCEDURE totaluri + Lparameters tcColoana + Local lcFormula, lcColoana, lcTabel, lnSuma, lnId_ind, lcRand + + If Empty(tcColoana) + lcColoana = "suma" + Else + lcColoana = Alltrim(tcColoana) + Endif + + lcTabel = Thisform._grdrow1.RecordSource + Select * From (lcTabel) With (Buffering = .T.) Into Cursor cTemp Readwrite NOFILTER + + Select cTemp + Scan For tip = 5 + lnSuma = 0 + lcFormula = Alltrim(cTemp.formula) + lcRand = Alltrim(Rand) + *!* IF '45'$lcRand + *!* set step on + *!* ENDIF + *!* WAIT WINDOW lcFormula + " - " + lcColoana NOWAIT + lnSuma = calc_indicatori_randuri(lcFormula, "cTemp",lcColoana) + Select cTemp + Replace &lcColoana With lnSuma + Select (lcTabel) + Update (lcTabel) Set &lcColoana = lnSuma Where Alltrim(Rand) = lcRand + + Select cTemp + Endscan + Use In cTemp + + Select (lcTabel) + Go Top + + + ENDPROC + + PROCEDURE updateinfo + #DEFINE CRLF CHR(13) + CHR(10) + Lparameters tcInfo + + + Local loInfo + loInfo = this.edtInfo + If Upper(tcInfo) = 'RESET' + loInfo.Value = "" + Else + loInfo.Value = loInfo.Value + m.tcInfo + CRLF + CRLF + Endif + loInfo.Refresh() + + + ENDPROC + + PROCEDURE updatepdf + Lparameters tcPDFFile + *** tcPDFFile: calea completa a fisierului pdf D:\CONTAFIN\COMUNCONTAFIN\d390.pdf + + Local lcFile, lcPath, llOpen + lcFile = Justfname(m.tcPDFFile) + lcPath = Addbs(Justpath(m.tcPDFFile)) + llOpen = .F. + + Return DownloadSupportFile(m.lcFile, m.lcPath, m.llOpen) && proceduri_comune.prg + + + ENDPROC + + PROCEDURE cmdPDF.Click + *!* 12.05.2011 + *!* Thisform.do_executa(2) && PDF + Thisform.do_executa(3) && XML + PDF + *!* 12.05.2011 ^ + ENDPROC + + PROCEDURE Command1.Click + Do date_identif WITH [C:\Program Files\Declaratia 101 impozit pe profit\] In oproceduri_decont.prg + ENDPROC + + PROCEDURE Command3.Click + LOCAL lcTabel + lcTabel = thisform._grdrow1.RecordSource + + DO export_decl_101 WITH (lcTabel), pcPerioada IN oproceduri_decont.prg + + ENDPROC + + PROCEDURE _grdrow1.cValoare.Text1.LostFocus + IF NVL(FLOOR(THIS.VALUE),0) <> NVL(FLOOR(THISFORM.nOldvalue),0) + REPLACE tip WITH 1 IN cDecl && sa nu se mai recalculeze campul dupa formula, daca este de tipul 5 (total) + THISFORM.totaluri("suma") + ENDIF + ENDPROC + + PROCEDURE _grdrow1.cValoare.Text1.When + THISFORM.nOldvalue = this.Value + ENDPROC + + PROCEDURE _grdrow1.Init + this.SetAll("DynamicBackColor","IIF(tip=5,RGB(230,244,255),RGB(255,255,255))", "Column") + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_decl101_perioada 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="cb_perioada" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_label1" UniqueID="" Timestamp="" /> + + * + *m: totaluri + *p: ltrim + *p: ndecl + *p: noldvalue + * + + * + BorderStyle = 1 + DoCreate = .T. + Height = 86 + ltrim = .F. + Name = "frm_decl101_perioada" + ndecl = 0 + noldvalue = 0 + Width = 252 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 254 + _shape2.Anchor = 9 + _shape2.Height = 29 + _shape2.Left = 218 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 34 + Lb_titlu_alb_b121.Caption = "Declaratia 101" + Lb_titlu_alb_b121.Left = 9 + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 7 + Lb_titlu_alb_b121.Top = 7 + BUT_TERMIN1.Anchor = 9 + BUT_TERMIN1.Left = 220 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 4 + BUT_TERMIN1.Top = 1 + Gridsort1.Left = 204 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 5 + * + + ADD OBJECT '_label1' AS _label WITH ; + BackStyle = 0, ; + Caption = "Perioada", ; + Left = 9, ; + Name = "_label1", ; + Top = 51 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT 'cb_perioada' AS _cbbase WITH ; + Height = 24, ; + Left = 68, ; + Name = "cb_perioada", ; + RowSourceType = 1, ; + Top = 47, ; + Width = 151 + *< END OBJECT: ClassLib="..\comun\clase\_cb_base.vcx" BaseClass="combobox" /> + + PROCEDURE inainte_de_do_termin + pcPerioada = thisform.cb_perioada.Value && 01/10 - 09/10 10/10 - 12/10 01/10 - 12/10 Luna contabila curenta + + IF EMPTY(thisform.cb_perioada.Value) + Messagebox('Alegeti perioada!') + RETURN .F. + ENDIF + + *!* Do Case + *!* Case Thisform.cb_perioada.Value = '01/10 - 09/10' + *!* pcPerioada = '01/10 - 09/10' + *!* Case Thisform.cb_perioada.Value = '10/10 - 12/10' + *!* pcPerioada = '10/10 - 12/10' + *!* Case Thisform.cb_perioada.Value = '01/10 - 12/10' + *!* pcPerioada = '01/10 - 12/10' + *!* Otherwise + *!* Messagebox('Alegeti perioada!') + *!* RETURN .F. + *!* Endcase + + ENDPROC + + PROCEDURE totaluri + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_decl394 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="Shape2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label22" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtTaraR" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtCodiR" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtDeniR" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtNumeD" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label19" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtAdrR" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtFunctieD" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label20" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtTelR" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label11" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtEmailR" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label13" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label14" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtFaxR" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtCodi" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtDeni" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtAdr" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtTel" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label12" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtEmail" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label16" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtFax" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label15" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label21" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_checkbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cboTip" UniqueID="" Timestamp="" /> + + * + *p: ccaen + *p: ccalintoc + *p: cfpropr + *p: cjudet + *p: ctip + * + + * + BorderStyle = 3 + ccaen = + ccalintoc = + cfpropr = + cjudet = + ctip = + DoCreate = .T. + Height = 465 + Name = "frm_decl394" + Width = 643 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 648 + _shape1.ZOrderSet = 1 + _shape2.Height = 29 + _shape2.Left = 586 + _shape2.Name = "_shape2" + _shape2.Top = -1 + _shape2.Width = 63 + _shape2.ZOrderSet = 2 + Lb_titlu_alb_b121.Caption = "Declaratie informativa privind livrarile si achizitiile efectuate pe teritoriul national" + Lb_titlu_alb_b121.Left = 4 + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 23 + Lb_titlu_alb_b121.Top = 6 + Lb_titlu_alb_b121.ZOrderSet = 3 + BUT_TERMIN1.Left = 612 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 21 + BUT_TERMIN1.Top = 1 + BUT_TERMIN1.ZOrderSet = 4 + Gridsort1.Left = 216 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 8 + * + + ADD OBJECT '_checkbox1' AS _checkbox WITH ; + Alignment = 0, ; + Caption = "", ; + ControlSource = "pounitate.tvanedeductibil", ; + Left = 595, ; + Name = "_checkbox1", ; + TabIndex = 5, ; + ToolTipText = 'Se includ sumele de pe coloana "Ach. de bunuri din RO scutite sau neimpozab." din Registrul de Cumparari', ; + Top = 39 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Anchor = 9, ; + Left = 583, ; + Name = "But_renunt1", ; + TabIndex = 22, ; + Top = 1, ; + ZOrderSet = 13 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'cboTip' AS combobox WITH ; + ControlSource = "poUnitate.tip", ; + Height = 24, ; + Left = 34, ; + Name = "cboTip", ; + RowSource = "LUNAR,TRIMESTRIAL,SEMESTRIAL,ANUAL", ; + RowSourceType = 1, ; + Style = 2, ; + TabIndex = 1, ; + Top = 35, ; + Value = LUNAR, ; + Width = 173 + *< END OBJECT: BaseClass="combobox" /> + + ADD OBJECT 'Label1' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Cod de identificare fiscala RO", ; + FontBold = .T., ; + FontName = "Times New Roman", ; + FontSize = 10, ; + Height = 18, ; + Left = 37, ; + Name = "Label1", ; + TabIndex = 25, ; + Top = 90, ; + Width = 165, ; + ZOrderSet = 6 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label10' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Telefon", ; + FontBold = .T., ; + FontName = "Times New Roman", ; + FontSize = 10, ; + Height = 18, ; + Left = 37, ; + Name = "Label10", ; + TabIndex = 38, ; + Top = 353, ; + Width = 43, ; + ZOrderSet = 14 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label11' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "(judet/sector, localitate, strada, nr, bloc, scara, ap, cod postal)", ; + FontName = "Times New Roman", ; + FontSize = 10, ; + Height = 18, ; + Left = 212, ; + Name = "Label11", ; + TabIndex = 39, ; + Top = 309, ; + Width = 328, ; + ZOrderSet = 15 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label12' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Telefon", ; + FontBold = .T., ; + FontName = "Times New Roman", ; + FontSize = 10, ; + Height = 18, ; + Left = 37, ; + Name = "Label12", ; + TabIndex = 35, ; + Top = 180, ; + Width = 43, ; + ZOrderSet = 14 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label13' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Email", ; + FontBold = .T., ; + FontName = "Times New Roman", ; + FontSize = 10, ; + Height = 18, ; + Left = 37, ; + Name = "Label13", ; + TabIndex = 33, ; + Top = 378, ; + Width = 33, ; + ZOrderSet = 17 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label14' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Fax", ; + FontBold = .T., ; + FontName = "Times New Roman", ; + FontSize = 10, ; + Height = 18, ; + Left = 446, ; + Name = "Label14", ; + TabIndex = 34, ; + Top = 353, ; + Width = 21, ; + ZOrderSet = 18 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label15' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Datele de identificare ale reprezentantului fiscal", ; + FontBold = .T., ; + FontName = "Times New Roman", ; + FontSize = 10, ; + Height = 18, ; + Left = 34, ; + Name = "Label15", ; + TabIndex = 26, ; + Top = 236, ; + Width = 265, ; + ZOrderSet = 33 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label16' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Datele de identificare ale persoanei inregistrate in scopuri de TVA", ; + FontBold = .T., ; + FontName = "Times New Roman", ; + FontSize = 10, ; + Height = 18, ; + Left = 34, ; + Name = "Label16", ; + TabIndex = 24, ; + Top = 64, ; + Width = 364, ; + ZOrderSet = 33 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label19' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Nume declarant", ; + FontBold = .T., ; + FontName = "Times New Roman", ; + FontSize = 10, ; + Height = 18, ; + Left = 37, ; + Name = "Label19", ; + TabIndex = 41, ; + Top = 414, ; + Width = 88, ; + ZOrderSet = 14 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label2' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "(judet/sector, localitate, strada, nr, bloc, scara, ap, cod postal)", ; + FontName = "Times New Roman", ; + FontSize = 10, ; + Height = 18, ; + Left = 212, ; + Name = "Label2", ; + TabIndex = 40, ; + Top = 136, ; + Width = 328, ; + ZOrderSet = 15 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label20' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Functie declarant", ; + FontBold = .T., ; + FontName = "Times New Roman", ; + FontSize = 10, ; + Height = 18, ; + Left = 37, ; + Name = "Label20", ; + TabIndex = 37, ; + Top = 439, ; + Width = 97, ; + ZOrderSet = 17 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label21' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Nr. luni suplimentare", ; + FontBold = .T., ; + FontName = "Times New Roman", ; + FontSize = 10, ; + Height = 18, ; + Left = 228, ; + Name = "Label21", ; + TabIndex = 2, ; + ToolTipText = "Se iau in considerare si documentele inregistrate in lunile suplimentare fata de semestrul ales. Optiune utila pentru declaratia rectificativa.", ; + Top = 38, ; + Width = 120, ; + ZOrderSet = 6 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label22' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Inclusiv achizitii TVA nedeductibil", ; + FontBold = .T., ; + FontName = "Times New Roman", ; + FontSize = 10, ; + ForeColor = 255,0,0, ; + Height = 18, ; + Left = 398, ; + Name = "Label22", ; + TabIndex = 4, ; + ToolTipText = 'Se includ sumele de pe coloana "Ach. de bunuri din RO scutite sau neimpozab." din Registrul de Cumparari', ; + Top = 38, ; + Width = 191, ; + ZOrderSet = 6 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label3' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Denumire / Nume, prenume", ; + FontBold = .T., ; + FontName = "Times New Roman", ; + FontSize = 10, ; + Height = 18, ; + Left = 37, ; + Name = "Label3", ; + TabIndex = 29, ; + Top = 116, ; + Width = 154, ; + WordWrap = .T., ; + ZOrderSet = 8 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label4' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Email", ; + FontBold = .T., ; + FontName = "Times New Roman", ; + FontSize = 10, ; + Height = 18, ; + Left = 37, ; + Name = "Label4", ; + TabIndex = 32, ; + Top = 205, ; + Width = 33, ; + ZOrderSet = 17 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label5' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Domiciliu fiscal", ; + FontBold = .T., ; + FontName = "Times New Roman", ; + FontSize = 10, ; + Height = 18, ; + Left = 37, ; + Name = "Label5", ; + TabIndex = 30, ; + Top = 136, ; + Width = 89, ; + ZOrderSet = 10 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label6' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Cod de identificare fiscala RO", ; + FontBold = .T., ; + FontName = "Times New Roman", ; + FontSize = 10, ; + Height = 18, ; + Left = 37, ; + Name = "Label6", ; + TabIndex = 27, ; + Top = 263, ; + Width = 165, ; + ZOrderSet = 6 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label7' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Denumire / Nume, prenume", ; + FontBold = .T., ; + FontName = "Times New Roman", ; + FontSize = 10, ; + Height = 18, ; + Left = 37, ; + Name = "Label7", ; + TabIndex = 28, ; + Top = 289, ; + Width = 154, ; + WordWrap = .T., ; + ZOrderSet = 8 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label8' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Fax", ; + FontBold = .T., ; + FontName = "Times New Roman", ; + FontSize = 10, ; + Height = 18, ; + Left = 446, ; + Name = "Label8", ; + TabIndex = 36, ; + Top = 180, ; + Width = 21, ; + ZOrderSet = 18 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label9' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Domiciliu fiscal", ; + FontBold = .T., ; + FontName = "Times New Roman", ; + FontSize = 10, ; + Height = 18, ; + Left = 37, ; + Name = "Label9", ; + TabIndex = 31, ; + Top = 309, ; + Width = 89, ; + ZOrderSet = 10 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Shape1' AS shape WITH ; + BackStyle = 0, ; + Height = 148, ; + Left = 32, ; + Name = "Shape1", ; + Top = 85, ; + Width = 589, ; + ZOrderSet = 0 + *< END OBJECT: BaseClass="shape" /> + + ADD OBJECT 'Shape2' AS shape WITH ; + BackStyle = 0, ; + Height = 148, ; + Left = 32, ; + Name = "Shape2", ; + Top = 258, ; + Width = 589, ; + ZOrderSet = 0 + *< END OBJECT: BaseClass="shape" /> + + ADD OBJECT 'Text1' AS textbox WITH ; + ControlSource = "pounitate.luniextra", ; + FontName = "Times New Roman", ; + FontSize = 10, ; + Format = "KR", ; + Height = 23, ; + InputMask = "99", ; + Left = 353, ; + Name = "Text1", ; + TabIndex = 3, ; + ToolTipText = "Se iau in considerare si documentele inregistrate in lunile suplimentare fata de semestrul ales. Optiune utila pentru declaratia rectificativa.", ; + Top = 36, ; + Width = 30, ; + ZOrderSet = 7 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtAdr' AS textbox WITH ; + ControlSource = "pounitate.adr", ; + FontName = "Times New Roman", ; + FontSize = 10, ; + Format = "!K", ; + Height = 23, ; + Left = 211, ; + Name = "txtAdr", ; + TabIndex = 8, ; + Top = 153, ; + Width = 398, ; + ZOrderSet = 11 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtAdrR' AS textbox WITH ; + ControlSource = "pounitate.adrR", ; + FontName = "Times New Roman", ; + FontSize = 10, ; + Format = "!K", ; + Height = 23, ; + Left = 211, ; + Name = "txtAdrR", ; + TabIndex = 15, ; + Top = 326, ; + Width = 398, ; + ZOrderSet = 11 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtCodi' AS textbox WITH ; + ControlSource = "pounitate.codi", ; + FontName = "Times New Roman", ; + FontSize = 10, ; + Format = "KR", ; + Height = 23, ; + InputMask = "9999999999", ; + Left = 211, ; + Name = "txtCodi", ; + TabIndex = 6, ; + Top = 88, ; + Width = 114, ; + ZOrderSet = 7 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtCodiR' AS textbox WITH ; + ControlSource = "pounitate.codiR", ; + FontName = "Times New Roman", ; + FontSize = 10, ; + Format = "KR", ; + Height = 23, ; + InputMask = "9999999999", ; + Left = 245, ; + Name = "txtCodiR", ; + TabIndex = 13, ; + Top = 261, ; + Width = 114, ; + ZOrderSet = 7 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtDeni' AS textbox WITH ; + ControlSource = "pounitate.deni", ; + FontName = "Times New Roman", ; + FontSize = 10, ; + Format = "!K", ; + Left = 211, ; + Name = "txtDeni", ; + TabIndex = 7, ; + Top = 112, ; + Width = 400, ; + ZOrderSet = 9 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtDeniR' AS textbox WITH ; + ControlSource = "pounitate.deniR", ; + FontName = "Times New Roman", ; + FontSize = 10, ; + Format = "!K", ; + Left = 211, ; + Name = "txtDeniR", ; + TabIndex = 14, ; + Top = 285, ; + Width = 400, ; + ZOrderSet = 9 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtEmail' AS textbox WITH ; + ControlSource = "pounitate.email", ; + FontName = "Times New Roman", ; + FontSize = 10, ; + Format = "K", ; + Height = 23, ; + Left = 211, ; + Name = "txtEmail", ; + TabIndex = 11, ; + Top = 203, ; + Width = 237, ; + ZOrderSet = 16 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtEmailR' AS textbox WITH ; + ControlSource = "pounitate.emailR", ; + FontName = "Times New Roman", ; + FontSize = 10, ; + Format = "!K", ; + Height = 23, ; + Left = 211, ; + Name = "txtEmailR", ; + TabIndex = 18, ; + Top = 376, ; + Width = 237, ; + ZOrderSet = 16 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtFax' AS textbox WITH ; + ControlSource = "pounitate.fax", ; + FontName = "Times New Roman", ; + FontSize = 10, ; + Format = "!K", ; + Height = 23, ; + Left = 481, ; + Name = "txtFax", ; + TabIndex = 10, ; + Top = 178, ; + Width = 128, ; + ZOrderSet = 19 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtFaxR' AS textbox WITH ; + ControlSource = "pounitate.faxR", ; + FontName = "Times New Roman", ; + FontSize = 10, ; + Format = "!K", ; + Height = 23, ; + Left = 481, ; + Name = "txtFaxR", ; + TabIndex = 17, ; + Top = 351, ; + Width = 128, ; + ZOrderSet = 19 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtFunctieD' AS textbox WITH ; + ControlSource = "pounitate.functieD", ; + FontName = "Times New Roman", ; + FontSize = 10, ; + Format = "!K", ; + Height = 23, ; + Left = 211, ; + Name = "txtFunctieD", ; + TabIndex = 20, ; + Top = 437, ; + Width = 237, ; + ZOrderSet = 16 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtNumeD' AS textbox WITH ; + ControlSource = "pounitate.numeD", ; + FontName = "Times New Roman", ; + FontSize = 10, ; + Format = "!K", ; + Height = 23, ; + Left = 211, ; + Name = "txtNumeD", ; + TabIndex = 19, ; + Top = 412, ; + Width = 237, ; + ZOrderSet = 12 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtTaraR' AS textbox WITH ; + ControlSource = "pounitate.taraR", ; + FontName = "Times New Roman", ; + FontSize = 10, ; + Format = "!K", ; + Height = 23, ; + InputMask = "", ; + Left = 211, ; + MaxLength = 2, ; + Name = "txtTaraR", ; + TabIndex = 12, ; + Top = 261, ; + Width = 29, ; + ZOrderSet = 7 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtTel' AS textbox WITH ; + ControlSource = "pounitate.tel", ; + FontName = "Times New Roman", ; + FontSize = 10, ; + Format = "!K", ; + Height = 23, ; + Left = 211, ; + Name = "txtTel", ; + TabIndex = 9, ; + Top = 178, ; + Width = 128, ; + ZOrderSet = 12 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtTelR' AS textbox WITH ; + ControlSource = "pounitate.telR", ; + FontName = "Times New Roman", ; + FontSize = 10, ; + Format = "!K", ; + Height = 23, ; + Left = 211, ; + Name = "txtTelR", ; + TabIndex = 16, ; + Top = 351, ; + Width = 128, ; + ZOrderSet = 12 + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE Init + IF m.gnAn < 2012 + this.cboTip.RowSource = 'SEMESTRIAL' + this.cboTip.Value = "SEMESTRIAL" + ELSE + this.cboTip.RowSource = 'LUNAR,TRIMESTRIAL,SEMESTRIAL,ANUAL' + * this.cboTip.Value = "LUNAR" + this.Height = 65 + ENDIF + + DODEFAULT() + ENDPROC + + PROCEDURE txtCodiR.Valid + IF !EMPTY(poUnitate.codiR) AND EMPTY(poUnitate.TaraR) + poUnitate.TaraR = 'RO' + ENDIF + THISFORM.txtTaraR.Refresh() + ENDPROC + + PROCEDURE txtTaraR.Valid + IF !EMPTY(poUnitate.codiR) AND EMPTY(poUnitate.TaraR) + poUnitate.TaraR = 'RO' + ENDIF + THISFORM.txtTaraR.Refresh() + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_decl394_2016 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="_pageframe1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1._shape1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1._shape2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.chkTvaNedeductibil" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.cboTip" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.chkTVAIncasare" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.chkOptiune" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.chkOperatiuni" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.chkAfiliat" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.grdTipDoc" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.grdTipDoc.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.grdTipDoc.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.grdTipDoc.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.grdTipDoc.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1._label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1._label2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.cmdCitesteDate" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.grdSeriiFacturi" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.grdSeriiFacturi.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.grdSeriiFacturi.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.grdSeriiFacturi.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.grdSeriiFacturi.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.grdSeriiFacturi.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.grdSeriiFacturi.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1._label3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.cmdExport" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.lblFdocTip" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1._label4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1._checkbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1._label5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1._label6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1._label7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1._label9" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1._label10" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1._label12" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1._label13" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.lblCalitateRepr" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.lblCalitatePJ" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.lblFunctiePF" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1._label8" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.lblCalitatePF" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1._label17" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1._label11" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.ttDenRepr" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.txtAdrRepr" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.txtCUIRepr" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.txtTelRepr" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.txtFaxRepr" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.txtEmailRepr" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.txtDenIntocmit" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.txtCUIIntocmit" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.txtTipRepr" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.txtCalitateIntocmit" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.txtFunctieIntocmit" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.txtCalitate2Intocmit" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.optPJIntocmit" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.cmdVerificaXML" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1._label14" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.txtNrAMEF" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.cmdVerificaCUI" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiEmiseTip" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiEmiseTip.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiEmiseTip.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiEmiseTip.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiEmiseTip.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiEmiseTip.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiEmiseTip.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2._label3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdSectiuneaI" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdSectiuneaI.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdSectiuneaI.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdSectiuneaI.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdSectiuneaI.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdSectiuneaI.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdSectiuneaI.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdSectiuneaI.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdSectiuneaI.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2._label4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiAlocate" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiAlocate.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiAlocate.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiAlocate.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiAlocate.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiAlocate.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiAlocate.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2._label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiEmise" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiEmise.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiEmise.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiEmise.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiEmise.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiEmise.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiEmise.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2._label2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.txtNrFacturiEmise" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.lblAutofacturi" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2._grdbase1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2._grdbase1.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2._grdbase1.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2._grdbase1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2._grdbase1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2._grdbase1.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2._grdbase1.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2._grdbase1.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2._grdbase1.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2._grdbase1.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2._grdbase1.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2._grdbase1.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2._grdbase1.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2._label5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.but_exclam" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdExtraFacturiEmise" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI4.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI4.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI4.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI4.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI4.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI4.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI4.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI4.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI4.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI4.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI4.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI4.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3._label4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3._label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3._label2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3._label3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3._label5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3._label6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3._label7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI6.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI6.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI6.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI6.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI6.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI6.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI6.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI6.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI6.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI6.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3._label8" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3._label9" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3._label10" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3._label11" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cFdoc.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cFdoc.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column11.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column11.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column12.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column12.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column13.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column13.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column14.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column14.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column15.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column15.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column16.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column16.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column17.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column17.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cBaza.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cBaza.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTVA.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTVA.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTIBaza.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTIBaza.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTITVA.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTITVA.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cBaza24.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cBaza24.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cBaza20.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cBaza20.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cBaza19.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cBaza19.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cBaza09.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cBaza09.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cBaza05.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cBaza05.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cBaza00.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cBaza00.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTVA24.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTVA24.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTVA20.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTVA20.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTVA19.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTVA19.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTVA09.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTVA09.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTVA05.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTVA05.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column33.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column33.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column34.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column34.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column35.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column35.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column36.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column36.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column37.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column37.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column38.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column38.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column39.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column39.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column40.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column40.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column41.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column41.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column42.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column42.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column43.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column43.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column43.Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column44.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column44.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column44.Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column45.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column45.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cEmisaPerioada.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cEmisaPerioada.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cEmisaPerioada.Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cRO24T.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cRO24T.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cRO20T.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cRO20T.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cRO19T.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cRO19T.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cRO09T.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cRO09T.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cRO05T.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cRO05T.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column52.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column52.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column53.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column53.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTotal.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTotal.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4._label7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.Gridextra1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.But_verifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4._grdfooter1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column11.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column11.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column12.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column12.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column13.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column13.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5._label7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5._label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdPersFizice" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdPersFizice.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdPersFizice.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdPersFizice.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdPersFizice.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdPersFizice.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdPersFizice.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdPersFizice.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdPersFizice.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdPersFizice.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdPersFizice.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdPersFizice.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdPersFizice.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdPersFizice.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdPersFizice.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdPersFizice.Column11.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdPersFizice.Column11.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdPersFizice.Column12.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdPersFizice.Column12.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdPersFizice.Column13.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdPersFizice.Column13.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdPersFizice.Column14.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdPersFizice.Column14.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdPersFizice.Column15.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdPersFizice.Column15.Text1" UniqueID="" Timestamp="" /> + + * + *p: ccaen + *p: ccalintoc + *p: cfpropr + *p: cjudet + *p: ctip + *p: oparent + * + + * + BorderStyle = 3 + ccaen = + ccalintoc = + cfpropr = + cjudet = + ctip = + DoCreate = .T. + Height = 465 + Name = "frm_decl394_2016" + oparent = .NULL. + Width = 789 + WindowState = 2 + _memberdata = + + + _shape1.Anchor = 10 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 790 + _shape1.ZOrderSet = 1 + _shape2.Height = 29 + _shape2.Left = 758 + _shape2.Name = "_shape2" + _shape2.Top = -1 + _shape2.Width = 37 + _shape2.ZOrderSet = 2 + Lb_titlu_alb_b121.Caption = "Declaratie informativa privind livrarile si achizitiile efectuate pe teritoriul national D394" + Lb_titlu_alb_b121.FontSize = 11 + Lb_titlu_alb_b121.Left = 4 + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 3 + Lb_titlu_alb_b121.Top = 6 + Lb_titlu_alb_b121.ZOrderSet = 3 + BUT_TERMIN1.Anchor = 9 + BUT_TERMIN1.Left = 758 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 1 + BUT_TERMIN1.Top = 1 + BUT_TERMIN1.ZOrderSet = 4 + Gridsort1.Left = 216 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 8 + * + + ADD OBJECT '_pageframe1' AS _pageframe WITH ; + Anchor = 15, ; + ErasePage = .T., ; + Height = 440, ; + Left = 0, ; + Name = "_pageframe1", ; + PageCount = 5, ; + TabIndex = 2, ; + Top = 27, ; + Width = 790, ; + Page1.Caption = "Setari", ; + Page1.Name = "Page1", ; + Page2.Caption = "I. Alte informatii pct. 1 si 2", ; + Page2.Name = "Page2", ; + Page3.Caption = "I. Alte informatii pct. 4, 5 si 6", ; + Page3.Name = "Page3", ; + Page4.Caption = "Facturi", ; + Page4.Name = "Page4", ; + Page5.Caption = "AMEF / exc. AMEF / Facturi pers. fizice", ; + Page5.Name = "Page5" + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="pageframe" /> + + ADD OBJECT '_pageframe1.Page1._checkbox1' AS _checkbox WITH ; + Alignment = 0, ; + Anchor = 9, ; + AutoSize = .F., ; + Caption = "Se exporta sectiunea I", ; + ControlSource = "pounitate.ExportSectiuneaI", ; + FontBold = .T., ; + Height = 18, ; + Left = 347, ; + Name = "_checkbox1", ; + TabIndex = 23, ; + ToolTipText = "Sectiunea I nu se exporta pana in luna 10/2016", ; + Top = 33, ; + Value = 1, ; + Width = 162, ; + WordWrap = .T., ; + ZOrderSet = 17 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT '_pageframe1.Page1._label1' AS _label WITH ; + Caption = "Tip platitor", ; + Left = 8, ; + Name = "_label1", ; + TabIndex = 24, ; + Top = 5, ; + ZOrderSet = 9 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page1._label10' AS _label WITH ; + Caption = "eMail", ; + FontBold = .T., ; + Left = 11, ; + Name = "_label10", ; + TabIndex = 33, ; + Top = 124, ; + ZOrderSet = 22 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page1._label11' AS _label WITH ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + Caption = "Reprezentant", ; + FontBold = .T., ; + ForeColor = 0,91,183, ; + Left = 11, ; + Name = "_label11", ; + TabIndex = 40, ; + Top = 61, ; + ZOrderSet = 31 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page1._label12' AS _label WITH ; + Caption = "Denumire", ; + FontBold = .T., ; + Left = 12, ; + Name = "_label12", ; + TabIndex = 34, ; + Top = 171, ; + ZOrderSet = 23 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page1._label13' AS _label WITH ; + Caption = "CUI/CNP", ; + FontBold = .T., ; + Left = 290, ; + Name = "_label13", ; + TabIndex = 35, ; + Top = 171, ; + ZOrderSet = 24 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page1._label14' AS _label WITH ; + Caption = "Nr. AMEF", ; + FontBold = .T., ; + Left = 192, ; + Name = "_label14", ; + TabIndex = 31, ; + Top = 50, ; + ZOrderSet = 20 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page1._label17' AS _label WITH ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + Caption = "Intocmit", ; + FontBold = .T., ; + ForeColor = 0,91,183, ; + Left = 12, ; + Name = "_label17", ; + TabIndex = 41, ; + Top = 149, ; + ZOrderSet = 30 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page1._label2' AS _label WITH ; + AutoSize = .F., ; + Caption = "Serii facturi autofacturare / emise de beneficiari / emise de terti", ; + FontBold = .T., ; + Height = 17, ; + Left = 340, ; + Name = "_label2", ; + TabIndex = 25, ; + Top = 250, ; + Width = 358, ; + WordWrap = .T., ; + ZOrderSet = 10 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page1._label3' AS _label WITH ; + AutoSize = .F., ; + Caption = "Feluri document din Registrele TVA", ; + FontBold = .T., ; + Height = 18, ; + Left = 11, ; + Name = "_label3", ; + TabIndex = 26, ; + Top = 255, ; + Width = 225, ; + WordWrap = .T., ; + ZOrderSet = 13 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page1._label4' AS _label WITH ; + Anchor = 4, ; + AutoSize = .F., ; + Caption = "Se configureaza din meniul Initializare > Configurare serii > Facturi", ; + FontBold = .F., ; + Height = 18, ; + Left = 347, ; + Name = "_label4", ; + TabIndex = 28, ; + Top = 383, ; + Width = 383, ; + WordWrap = .T., ; + ZOrderSet = 16 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page1._label5' AS _label WITH ; + Caption = "Denumire", ; + FontBold = .T., ; + Left = 10, ; + Name = "_label5", ; + TabIndex = 29, ; + Top = 80, ; + ZOrderSet = 18 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page1._label6' AS _label WITH ; + Caption = "Adresa", ; + FontBold = .T., ; + Left = 10, ; + Name = "_label6", ; + TabIndex = 30, ; + Top = 102, ; + ZOrderSet = 19 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page1._label7' AS _label WITH ; + Caption = "CUI/CNP", ; + FontBold = .T., ; + Left = 326, ; + Name = "_label7", ; + TabIndex = 31, ; + Top = 80, ; + ZOrderSet = 20 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page1._label8' AS _label WITH ; + Caption = "Telefon", ; + FontBold = .T., ; + Left = 514, ; + Name = "_label8", ; + TabIndex = 39, ; + Top = 102, ; + ZOrderSet = 28 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page1._label9' AS _label WITH ; + Caption = "FAX", ; + FontBold = .T., ; + Left = 326, ; + Name = "_label9", ; + TabIndex = 32, ; + Top = 102, ; + ZOrderSet = 21 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page1._shape1' AS _shape WITH ; + BackStyle = 0, ; + Height = 82, ; + Left = 6, ; + Name = "_shape1", ; + Top = 70, ; + Width = 696, ; + ZOrderSet = 0 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" /> + + ADD OBJECT '_pageframe1.Page1._shape2' AS _shape WITH ; + BackStyle = 0, ; + Height = 63, ; + Left = 6, ; + Name = "_shape2", ; + Top = 157, ; + Width = 696, ; + ZOrderSet = 1 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" /> + + ADD OBJECT '_pageframe1.Page1.cboTip' AS combobox WITH ; + ControlSource = "poUnitate.tip", ; + Left = 8, ; + Name = "cboTip", ; + RowSource = "LUNAR,TRIMESTRIAL,SEMESTRIAL,ANUAL", ; + RowSourceType = 1, ; + Style = 2, ; + TabIndex = 1, ; + Top = 21, ; + Value = LUNAR, ; + Width = 173, ; + ZOrderSet = 5 + *< END OBJECT: BaseClass="combobox" /> + + ADD OBJECT '_pageframe1.Page1.chkAfiliat' AS _checkbox WITH ; + Alignment = 0, ; + Caption = "Operatiuni cu persoane afiliate", ; + ControlSource = "pounitate.PersoaneAfiliate", ; + Enabled = .T., ; + Left = 511, ; + Name = "chkAfiliat", ; + TabIndex = 3, ; + ToolTipText = "Operatiuni cu persoane afiliate", ; + Top = 49, ; + ZOrderSet = 7 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT '_pageframe1.Page1.chkOperatiuni' AS _checkbox WITH ; + Alignment = 0, ; + Caption = "Operatiuni in perioada", ; + ControlSource = "pounitate.operatiuni", ; + Left = 191, ; + Name = "chkOperatiuni", ; + TabIndex = 3, ; + ToolTipText = "Operatiuni in perioada", ; + Top = 15, ; + ZOrderSet = 7 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT '_pageframe1.Page1.chkOptiune' AS _checkbox WITH ; + Alignment = 0, ; + Caption = "Acord consultare D394", ; + ControlSource = "pounitate.optiuneANAF", ; + Left = 347, ; + Name = "chkOptiune", ; + TabIndex = 3, ; + ToolTipText = "Acord consultare D394 de catre clienti/furnizori", ; + Top = 49, ; + ZOrderSet = 7 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT '_pageframe1.Page1.chkTVAIncasare' AS _checkbox WITH ; + Alignment = 0, ; + Caption = "Sistem TVA Incasare", ; + ControlSource = "pounitate.tvaincasare", ; + Left = 191, ; + Name = "chkTVAIncasare", ; + TabIndex = 2, ; + ToolTipText = "Sistem TVA Incasare", ; + Top = 1, ; + ZOrderSet = 6 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT '_pageframe1.Page1.chkTvaNedeductibil' AS _checkbox WITH ; + Alignment = 0, ; + AutoSize = .F., ; + Caption = "Inclusiv achizitii TVA nedeductibil", ; + ControlSource = "pounitate.tvanedeductibil", ; + FontBold = .T., ; + ForeColor = 255,0,0, ; + Height = 17, ; + Left = 191, ; + Name = "chkTvaNedeductibil", ; + TabIndex = 4, ; + ToolTipText = 'Se includ sumele de pe coloana "Ach. de bunuri din RO scutite sau neimpozab." din Registrul de Cumparari', ; + Top = 30, ; + Value = 0, ; + Visible = .F., ; + Width = 204, ; + WordWrap = .T., ; + ZOrderSet = 4 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT '_pageframe1.Page1.cmdCitesteDate' AS cmd_executa WITH ; + Anchor = 9, ; + AutoSize = .F., ; + BackColor = 113,184,255, ; + caction = do_citeste_date, ; + Caption = "1. Citeste \ + + ADD OBJECT '_pageframe1.Page1.cmdExport' AS cmd_executa WITH ; + Anchor = 9, ; + AutoSize = .F., ; + BackColor = 113,184,255, ; + caction = do_citeste_date, ; + Caption = "3. \ + + ADD OBJECT '_pageframe1.Page1.cmdVerificaCUI' AS cmd_executa WITH ; + Anchor = 9, ; + AutoSize = .F., ; + BackColor = 113,184,255, ; + caction = do_citeste_date, ; + Caption = "2. \ + + ADD OBJECT '_pageframe1.Page1.cmdVerificaXML' AS cmd_executa WITH ; + Anchor = 9, ; + AutoSize = .F., ; + BackColor = 113,184,255, ; + caction = , ; + Caption = "4. Validare \ + + ADD OBJECT '_pageframe1.Page1.grdSeriiFacturi' AS _grdbase WITH ; + Anchor = 7, ; + ColumnCount = 3, ; + DeleteMark = .F., ; + Height = 109, ; + Left = 340, ; + Name = "grdSeriiFacturi", ; + Panel = 1, ; + RecordSource = "crsSeriiFacturi", ; + TabIndex = 22, ; + Top = 272, ; + Width = 381, ; + ZOrderSet = 12, ; + Column1.ControlSource = "tip", ; + Column1.Name = "Column1", ; + Column1.Width = 89, ; + Column2.ControlSource = "seria", ; + Column2.Name = "Column2", ; + Column2.Width = 88, ; + Column3.ControlSource = "descriere", ; + Column3.Name = "Column3", ; + Column3.Width = 168 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_pageframe1.Page1.grdSeriiFacturi.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip serie", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page1.grdSeriiFacturi.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page1.grdSeriiFacturi.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Serie", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page1.grdSeriiFacturi.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page1.grdSeriiFacturi.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Descriere", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page1.grdSeriiFacturi.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page1.grdTipDoc' AS _grdbase WITH ; + Anchor = 7, ; + ColumnCount = 2, ; + DeleteMark = .F., ; + Height = 111, ; + Left = 8, ; + Name = "grdTipDoc", ; + Panel = 1, ; + RecordSource = "crsFdocTip", ; + TabIndex = 21, ; + Top = 273, ; + Width = 320, ; + ZOrderSet = 8, ; + Column1.ControlSource = "fel_document", ; + Column1.Name = "Column1", ; + Column1.Width = 149, ; + Column2.ControlSource = "tip_doc", ; + Column2.Name = "Column2", ; + Column2.Width = 135 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_pageframe1.Page1.grdTipDoc.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Fel document", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page1.grdTipDoc.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page1.grdTipDoc.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page1.grdTipDoc.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page1.lblCalitatePF' AS _label WITH ; + Caption = "Alta calitate PF", ; + FontBold = .T., ; + Left = 481, ; + Name = "lblCalitatePF", ; + TabIndex = 42, ; + Top = 193, ; + ZOrderSet = 29 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page1.lblCalitatePJ' AS _label WITH ; + Caption = "Calitate PJ", ; + Enabled = .F., ; + FontBold = .T., ; + Left = 12, ; + Name = "lblCalitatePJ", ; + TabIndex = 37, ; + Top = 193, ; + ZOrderSet = 26 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page1.lblCalitateRepr' AS _label WITH ; + Caption = "Calitate", ; + FontBold = .T., ; + Left = 514, ; + Name = "lblCalitateRepr", ; + TabIndex = 36, ; + Top = 79, ; + ZOrderSet = 25 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page1.lblFdocTip' AS _label WITH ; + AutoSize = .T., ; + Caption = "Verificati felurile de document fara tip! Acestea nu se iau in considerare in D394!!!", ; + FontBold = .T., ; + ForeColor = 255,0,0, ; + Height = 34, ; + Left = 11, ; + Name = "lblFdocTip", ; + TabIndex = 27, ; + Top = 224, ; + Visible = .F., ; + Width = 301, ; + WordWrap = .T., ; + ZOrderSet = 15 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page1.lblFunctiePF' AS _label WITH ; + Caption = "Functie PF", ; + FontBold = .T., ; + Left = 280, ; + Name = "lblFunctiePF", ; + TabIndex = 38, ; + Top = 193, ; + ZOrderSet = 27 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page1.optPJIntocmit' AS _optiongrup WITH ; + AutoSize = .T., ; + ControlSource = "poUnitate.PJIntocmit", ; + Height = 27, ; + Left = 517, ; + Name = "optPJIntocmit", ; + TabIndex = 17, ; + Top = 166, ; + Width = 179, ; + ZOrderSet = 44, ; + Option1.AutoSize = .T., ; + Option1.Caption = "Pers. fizica", ; + Option1.Left = 5, ; + Option1.Name = "Option1", ; + Option1.Top = 5, ; + Option2.AutoSize = .T., ; + Option2.Caption = "Pers. juridica", ; + Option2.Left = 84, ; + Option2.Name = "Option2", ; + Option2.Top = 5 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="optiongroup" /> + + ADD OBJECT '_pageframe1.Page1.ttDenRepr' AS _textbox WITH ; + ControlSource = "poUnitate.DenRepr", ; + Format = "K", ; + Height = 23, ; + Left = 77, ; + Name = "ttDenRepr", ; + TabIndex = 8, ; + Top = 77, ; + Width = 191, ; + ZOrderSet = 32 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page1.txtAdrRepr' AS _textbox WITH ; + ControlSource = "poUnitate.AdrRepr", ; + Format = "K", ; + Height = 23, ; + Left = 77, ; + Name = "txtAdrRepr", ; + TabIndex = 11, ; + Top = 99, ; + Width = 239, ; + ZOrderSet = 33 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page1.txtCalitate2Intocmit' AS _textbox WITH ; + ControlSource = "poUnitate.Calitate2Intocmit", ; + Format = "K", ; + Height = 23, ; + Left = 578, ; + Name = "txtCalitate2Intocmit", ; + TabIndex = 20, ; + Top = 190, ; + Width = 118, ; + ZOrderSet = 43 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page1.txtCalitateIntocmit' AS _textbox WITH ; + ControlSource = "poUnitate.CalitateIntocmit", ; + Enabled = .F., ; + Format = "K", ; + Height = 23, ; + Left = 84, ; + Name = "txtCalitateIntocmit", ; + TabIndex = 18, ; + Top = 190, ; + Width = 159, ; + ZOrderSet = 41 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page1.txtCUIIntocmit' AS _textbox WITH ; + ControlSource = "poUnitate.CUIIntocmit", ; + Format = "K", ; + Height = 23, ; + Left = 348, ; + Name = "txtCUIIntocmit", ; + TabIndex = 16, ; + Top = 168, ; + Width = 127, ; + ZOrderSet = 39 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page1.txtCUIRepr' AS _textbox WITH ; + ControlSource = "poUnitate.CUIRepr", ; + Format = "K", ; + Height = 23, ; + Left = 383, ; + Name = "txtCUIRepr", ; + TabIndex = 9, ; + Top = 77, ; + Width = 120, ; + ZOrderSet = 34 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page1.txtDenIntocmit' AS _textbox WITH ; + ControlSource = "poUnitate.DenIntocmit", ; + Format = "K", ; + Height = 23, ; + Left = 84, ; + Name = "txtDenIntocmit", ; + TabIndex = 15, ; + Top = 168, ; + Width = 195, ; + ZOrderSet = 38 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page1.txtEmailRepr' AS _textbox WITH ; + ControlSource = "poUnitate.EmailRepr", ; + Format = "K", ; + Height = 23, ; + Left = 77, ; + Name = "txtEmailRepr", ; + TabIndex = 14, ; + Top = 121, ; + Width = 162, ; + ZOrderSet = 37 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page1.txtFaxRepr' AS _textbox WITH ; + ControlSource = "poUnitate.FAXRepr", ; + Format = "K", ; + Height = 23, ; + Left = 383, ; + Name = "txtFaxRepr", ; + TabIndex = 12, ; + Top = 99, ; + Width = 120, ; + ZOrderSet = 36 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page1.txtFunctieIntocmit' AS _textbox WITH ; + ControlSource = "poUnitate.FunctieIntocmit", ; + Format = "K", ; + Height = 23, ; + Left = 348, ; + Name = "txtFunctieIntocmit", ; + TabIndex = 19, ; + Top = 190, ; + Width = 127, ; + ZOrderSet = 42 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page1.txtNrAMEF' AS _textbox WITH ; + ControlSource = "poUnitate.nrAMEF", ; + Format = "K", ; + Height = 23, ; + Left = 251, ; + Name = "txtNrAMEF", ; + TabIndex = 9, ; + ToolTipText = "Numar AMEF", ; + Top = 47, ; + Width = 54, ; + ZOrderSet = 34 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page1.txtTelRepr' AS _textbox WITH ; + ControlSource = "poUnitate.TelRepr", ; + Format = "K", ; + Height = 23, ; + Left = 570, ; + Name = "txtTelRepr", ; + TabIndex = 13, ; + Top = 99, ; + Width = 120, ; + ZOrderSet = 35 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page1.txtTipRepr' AS _textbox WITH ; + ControlSource = "poUnitate.TipRepr", ; + Format = "K", ; + Height = 23, ; + Left = 570, ; + Name = "txtTipRepr", ; + TabIndex = 10, ; + Top = 77, ; + Width = 120, ; + ZOrderSet = 40 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2._grdbase1' AS _grdbase WITH ; + Anchor = 4, ; + ColumnCount = 6, ; + DeleteMark = .F., ; + FontSize = 10, ; + Height = 76, ; + Left = 357, ; + Name = "_grdbase1", ; + Panel = 1, ; + RecordSource = "crsFacturiTerti", ; + RowHeight = 19, ; + ScrollBars = 3, ; + Top = 317, ; + Width = 365, ; + Column1.ColumnOrder = 2, ; + Column1.ControlSource = "seria", ; + Column1.FontSize = 10, ; + Column1.Name = "Column1", ; + Column1.Width = 68, ; + Column2.ColumnOrder = 3, ; + Column2.ControlSource = "nr1", ; + Column2.FontSize = 10, ; + Column2.Name = "Column2", ; + Column2.Width = 97, ; + Column3.ColumnOrder = 4, ; + Column3.ControlSource = "nr2", ; + Column3.FontSize = 10, ; + Column3.Name = "Column3", ; + Column3.Width = 105, ; + Column4.ColumnOrder = 1, ; + Column4.ControlSource = "punct", ; + Column4.FontSize = 10, ; + Column4.Name = "Column4", ; + Column4.Width = 59, ; + Column5.ControlSource = "denumire", ; + Column5.FontSize = 10, ; + Column5.Name = "Column5", ; + Column5.Width = 154, ; + Column6.ControlSource = "cod_fiscal", ; + Column6.FontSize = 10, ; + Column6.Name = "Column6", ; + Column6.Width = 121 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_pageframe1.Page2._grdbase1.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Seria", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2._grdbase1.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2._grdbase1.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. inceput", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2._grdbase1.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2._grdbase1.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. sfarsit", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2._grdbase1.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2._grdbase1.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sectiunea", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2._grdbase1.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2._grdbase1.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Denumire", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2._grdbase1.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2._grdbase1.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "CUI", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2._grdbase1.Column6.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2._label1' AS _label WITH ; + Anchor = 0, ; + AutoSize = .T., ; + Caption = "2.1 Plaja de facturi alocate in perioada de facturare", ; + Height = 18, ; + Left = 359, ; + Name = "_label1", ; + Top = 10, ; + Width = 293, ; + WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page2._label2' AS _label WITH ; + Anchor = 0, ; + AutoSize = .F., ; + Caption = "2.2 Numarul total de facturi emise, in perioada de raportare, din plaja de facturi alocate:", ; + Height = 32, ; + Left = 357, ; + Name = "_label2", ; + Top = 203, ; + Width = 255, ; + WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page2._label3' AS _label WITH ; + Anchor = 4, ; + AutoSize = .F., ; + Caption = "2.2 din care (Tip: stornate/ anulate/ autofacturare/ emisa in numele furnizorilor)", ; + Height = 32, ; + Left = 11, ; + Name = "_label3", ; + Top = 163, ; + Width = 311, ; + WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page2._label4' AS _label WITH ; + AutoSize = .T., ; + Caption = "1.1 - 1.4 Facturi simplificate si 1.5 Bonuri fiscale cu cod fiscal", ; + Height = 34, ; + Left = 11, ; + Name = "_label4", ; + Top = 10, ; + Width = 299, ; + WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page2._label5' AS _label WITH ; + Anchor = 4, ; + AutoSize = .F., ; + Caption = "2.3 / 2.4 Numarul total de facturi emise, in perioada de raportare, de beneficiari/terti in numele persoanei impozabile:", ; + Height = 32, ; + Left = 357, ; + Name = "_label5", ; + Top = 281, ; + Width = 371, ; + WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page2.but_exclam' AS but_help WITH ; + cpicturedown = exclam.ico, ; + cpictureup = exclam.ico, ; + Height = 36, ; + Left = 685, ; + Name = "but_exclam", ; + Picture = ..\comun\grafice\exclam.ico, ; + ToolTipText = "Numere facturi emise care nu sunt in plajele de facturi alocate!", ; + Top = 201, ; + Width = 40 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT '_pageframe1.Page2.grdAutoFacturi' AS _grdbase WITH ; + Anchor = 4, ; + ColumnCount = 10, ; + DeleteMark = .F., ; + FontSize = 10, ; + Height = 76, ; + Left = 11, ; + Name = "grdAutoFacturi", ; + Panel = 1, ; + RecordSource = "crsAutoFacturi", ; + RowHeight = 19, ; + ScrollBars = 1, ; + Top = 317, ; + Width = 274, ; + Column1.ColumnOrder = 1, ; + Column1.ControlSource = "baza05", ; + Column1.FontSize = 10, ; + Column1.Name = "Column1", ; + Column1.Width = 93, ; + Column2.ColumnOrder = 2, ; + Column2.ControlSource = "tva05", ; + Column2.FontSize = 10, ; + Column2.Name = "Column2", ; + Column2.Width = 93, ; + Column3.ColumnOrder = 3, ; + Column3.ControlSource = "baza09", ; + Column3.FontSize = 10, ; + Column3.Name = "Column3", ; + Column3.Width = 73, ; + Column4.ControlSource = "tva09", ; + Column4.FontSize = 10, ; + Column4.Name = "Column4", ; + Column5.ControlSource = "baza19", ; + Column5.FontSize = 10, ; + Column5.Name = "Column5", ; + Column6.ControlSource = "tva19", ; + Column6.FontSize = 10, ; + Column6.Name = "Column6", ; + Column7.ControlSource = "baza20", ; + Column7.FontSize = 10, ; + Column7.Name = "Column7", ; + Column8.ControlSource = "tva20", ; + Column8.FontSize = 10, ; + Column8.Name = "Column8", ; + Column9.ControlSource = "baza24", ; + Column9.FontSize = 10, ; + Column9.Name = "Column9", ; + Column10.ControlSource = "tva24", ; + Column10.FontSize = 10, ; + Column10.Name = "Column10" + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Baza05", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column10.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA24", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column10.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA05", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Baza09", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA09", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Baza19", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA19", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column6.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column7.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Baza20", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column7.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column8.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA20", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column8.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column9.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Baza24", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column9.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2.grdExtraFacturiEmise' AS gridextra WITH ; + gridexpression = thisform._pageframe1.page2.grdFacturiEmise, ; + Left = 731, ; + Name = "grdExtraFacturiEmise", ; + productname = ROA, ; + Top = 255 + *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> + + ADD OBJECT '_pageframe1.Page2.grdFacturiAlocate' AS _grdbase WITH ; + Anchor = 0, ; + ColumnCount = 3, ; + DeleteMark = .F., ; + FontSize = 10, ; + Height = 167, ; + Left = 357, ; + Name = "grdFacturiAlocate", ; + Panel = 1, ; + RecordSource = "crsFacturiAlocate", ; + RowHeight = 19, ; + ScrollBars = 2, ; + Top = 28, ; + Width = 367, ; + Column1.ControlSource = "crsFacturiAlocate.seria", ; + Column1.FontSize = 10, ; + Column1.Name = "Column1", ; + Column1.Width = 80, ; + Column2.ControlSource = "crsFacturiAlocate.nr1", ; + Column2.FontSize = 10, ; + Column2.Name = "Column2", ; + Column2.Width = 135, ; + Column3.ControlSource = "crsFacturiAlocate.nr2", ; + Column3.FontSize = 10, ; + Column3.Name = "Column3", ; + Column3.Width = 117 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_pageframe1.Page2.grdFacturiAlocate.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Seria", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2.grdFacturiAlocate.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2.grdFacturiAlocate.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. inceput", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2.grdFacturiAlocate.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2.grdFacturiAlocate.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. sfarsit", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2.grdFacturiAlocate.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2.grdFacturiEmise' AS _grdbase WITH ; + Anchor = 5, ; + ColumnCount = 3, ; + DeleteMark = .F., ; + FontSize = 10, ; + Height = 40, ; + Left = 357, ; + Name = "grdFacturiEmise", ; + Panel = 1, ; + RecordSource = "crsFacturiEmise", ; + RowHeight = 19, ; + ScrollBars = 2, ; + Top = 237, ; + Width = 365, ; + Column1.ControlSource = "seria", ; + Column1.FontSize = 10, ; + Column1.Name = "Column1", ; + Column1.Width = 78, ; + Column2.ControlSource = "nr1", ; + Column2.FontSize = 10, ; + Column2.Name = "Column2", ; + Column2.Width = 135, ; + Column3.ControlSource = "nr2", ; + Column3.FontSize = 10, ; + Column3.Name = "Column3", ; + Column3.Width = 117 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_pageframe1.Page2.grdFacturiEmise.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Seria", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2.grdFacturiEmise.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2.grdFacturiEmise.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. inceput", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2.grdFacturiEmise.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2.grdFacturiEmise.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. sfarsit", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2.grdFacturiEmise.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2.grdFacturiEmiseTip' AS _grdbase WITH ; + Anchor = 4, ; + ColumnCount = 3, ; + DeleteMark = .F., ; + FontSize = 10, ; + Height = 98, ; + Left = 11, ; + Name = "grdFacturiEmiseTip", ; + Panel = 1, ; + RecordSource = "crsFacturiEmiseTip", ; + RowHeight = 19, ; + ScrollBars = 2, ; + Top = 197, ; + Width = 316, ; + Column1.ColumnOrder = 2, ; + Column1.ControlSource = "seria", ; + Column1.FontSize = 10, ; + Column1.Name = "Column1", ; + Column1.Width = 93, ; + Column2.ColumnOrder = 3, ; + Column2.ControlSource = "nr", ; + Column2.FontSize = 10, ; + Column2.Name = "Column2", ; + Column2.Width = 102, ; + Column3.ColumnOrder = 1, ; + Column3.ControlSource = "tip", ; + Column3.FontSize = 10, ; + Column3.Name = "Column3", ; + Column3.Width = 86 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_pageframe1.Page2.grdFacturiEmiseTip.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Seria", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2.grdFacturiEmiseTip.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2.grdFacturiEmiseTip.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Numar", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2.grdFacturiEmiseTip.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2.grdFacturiEmiseTip.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2.grdFacturiEmiseTip.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2.grdSectiuneaI' AS _grdbase WITH ; + Anchor = 5, ; + ColumnCount = 4, ; + DeleteMark = .F., ; + FontSize = 10, ; + Height = 98, ; + Left = 11, ; + Name = "grdSectiuneaI", ; + Panel = 1, ; + RecordSource = "crsSectiuneaI", ; + RowHeight = 19, ; + ScrollBars = 2, ; + Top = 53, ; + Width = 319, ; + Column1.ControlSource = "punct", ; + Column1.FontSize = 10, ; + Column1.Name = "Column1", ; + Column1.Width = 62, ; + Column2.ControlSource = "proctva", ; + Column2.FontSize = 10, ; + Column2.Name = "Column2", ; + Column2.Width = 60, ; + Column3.ControlSource = "baza", ; + Column3.FontSize = 10, ; + Column3.Name = "Column3", ; + Column3.Width = 84, ; + Column4.ControlSource = "tva", ; + Column4.FontSize = 10, ; + Column4.Name = "Column4" + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_pageframe1.Page2.grdSectiuneaI.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sectiunea", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2.grdSectiuneaI.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2.grdSectiuneaI.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cota TVA", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2.grdSectiuneaI.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2.grdSectiuneaI.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Baza", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2.grdSectiuneaI.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2.grdSectiuneaI.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2.grdSectiuneaI.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2.lblAutofacturi' AS _label WITH ; + Anchor = 4, ; + AutoSize = .T., ; + Caption = "2.2 Detalii autofacturi", ; + Height = 18, ; + Left = 11, ; + Name = "lblAutofacturi", ; + Top = 296, ; + Width = 122, ; + WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page2.txtNrFacturiEmise' AS _textbox WITH ; + Anchor = 0, ; + ControlSource = "poUnitate.nr_facturi_emise", ; + Format = "RK", ; + Height = 23, ; + Left = 623, ; + Name = "txtNrFacturiEmise", ; + Top = 208, ; + Width = 60 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page3._label1' AS _label WITH ; + Anchor = 9, ; + AutoSize = .F., ; + Caption = "4.1 TVA deductibila aferenta facturilor achitate in perioada de raportare indiferent de data in care acestea au fost primite de la persoane impozabile care aplica sistemul de TVA la incasare, defalcata pe fiecare cota de TVA", ; + FontSize = 8, ; + Height = 47, ; + Left = 299, ; + Name = "_label1", ; + Top = 43, ; + Width = 414, ; + WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page3._label10' AS _label WITH ; + Anchor = 9, ; + AutoSize = .T., ; + Caption = "6.2 Persoanele impozabile care aplica regimul special pt bunurile second-hand, opere de arta, obiecte de colectie si antichitati", ; + FontSize = 8, ; + Height = 30, ; + Left = 298, ; + Name = "_label10", ; + Top = 342, ; + Width = 426, ; + WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page3._label11' AS _label WITH ; + Anchor = 1, ; + AutoSize = .T., ; + Caption = "6. Agentii turism si Second Hand TVA colectata", ; + Height = 18, ; + Left = 10, ; + Name = "_label11", ; + Top = 281, ; + Width = 274, ; + WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page3._label2' AS _label WITH ; + Anchor = 9, ; + AutoSize = .F., ; + Caption = "5.1 TVA colectata aferenta facturilor incasate in perioada de raportare indiferent de data in care acestea au fost emise de catre persoana impozabila care aplica sistemul de TVA la incasare, defalcata pe fiecare cota de TVA", ; + FontSize = 8, ; + Height = 47, ; + Left = 299, ; + Name = "_label2", ; + Top = 116, ; + Width = 430, ; + WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page3._label3' AS _label WITH ; + Anchor = 9, ; + AutoSize = .F., ; + Caption = "5.2 TVA deductibila aferenta facturilor achitate in perioada de raportare indiferent de data in care acestea au fost primite de la persoane impozabile care aplica sistemul normal de TVA, defalcata pe fiecare cota de TVA", ; + FontSize = 8, ; + Height = 47, ; + Left = 299, ; + Name = "_label3", ; + Top = 160, ; + Width = 414, ; + WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page3._label4' AS _label WITH ; + Anchor = 9, ; + AutoSize = .F., ; + Caption = "4. TVA exigibil sistem normal de TVA", ; + FontBold = .T., ; + Height = 17, ; + Left = 299, ; + Name = "_label4", ; + Top = 27, ; + Width = 205, ; + WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page3._label5' AS _label WITH ; + Anchor = 9, ; + AutoSize = .F., ; + Caption = "5.3 TVA deductibila aferenta facturilor achitate in perioada de raportare indiferent de data in care acestea au fost primite de la persoane impozabile care aplica sistemul de TVA la incasare, defalcata pe fiecare cota de TVA", ; + FontSize = 8, ; + Height = 47, ; + Left = 299, ; + Name = "_label5", ; + Top = 204, ; + Width = 414, ; + WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page3._label6' AS _label WITH ; + Anchor = 9, ; + AutoSize = .F., ; + Caption = "5. TVA exigibil sistemul TVA la Incasare", ; + FontBold = .T., ; + Height = 17, ; + Left = 299, ; + Name = "_label6", ; + Top = 101, ; + Width = 221, ; + WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page3._label7' AS _label WITH ; + Anchor = 1, ; + AutoSize = .T., ; + Caption = "4. si 5. TVA exigibil", ; + Height = 18, ; + Left = 11, ; + Name = "_label7", ; + Top = 21, ; + Width = 111, ; + WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page3._label8' AS _label WITH ; + Anchor = 9, ; + AutoSize = .F., ; + Caption = "6. TVA colectata aferenta marjei de profit agentiile de turism, pt bunurile second-hand, opere de arta, obiecte de colectie si antichitati", ; + FontBold = .T., ; + Height = 32, ; + Left = 298, ; + Name = "_label8", ; + Top = 287, ; + Width = 407, ; + WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page3._label9' AS _label WITH ; + Anchor = 9, ; + AutoSize = .T., ; + Caption = "6.1 Persoanele impozabile care aplica regimul special pt agentiile de turism", ; + FontSize = 8, ; + Height = 16, ; + Left = 298, ; + Name = "_label9", ; + Top = 320, ; + Width = 356, ; + WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page3.grdSectiuneaI4' AS _grdbase WITH ; + Anchor = 11, ; + ColumnCount = 6, ; + DeleteMark = .F., ; + FontSize = 10, ; + Height = 110, ; + Left = 11, ; + Name = "grdSectiuneaI4", ; + Panel = 1, ; + RecordSource = "crsSectiuneaI4", ; + RowHeight = 19, ; + ScrollBars = 3, ; + Top = 42, ; + Width = 234, ; + Column1.ControlSource = "punct", ; + Column1.FontSize = 10, ; + Column1.Name = "Column1", ; + Column1.Width = 59, ; + Column2.ControlSource = "tva24", ; + Column2.FontSize = 10, ; + Column2.Name = "Column2", ; + Column2.Width = 85, ; + Column3.ControlSource = "tva20", ; + Column3.FontSize = 10, ; + Column3.Name = "Column3", ; + Column3.Width = 84, ; + Column4.ControlSource = "tva19", ; + Column4.FontSize = 10, ; + Column4.Name = "Column4", ; + Column5.ControlSource = "tva09", ; + Column5.FontSize = 10, ; + Column5.Name = "Column5", ; + Column6.ControlSource = "tva05", ; + Column6.FontSize = 10, ; + Column6.Name = "Column6" + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_pageframe1.Page3.grdSectiuneaI4.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sectiunea", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page3.grdSectiuneaI4.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page3.grdSectiuneaI4.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA 24%", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page3.grdSectiuneaI4.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page3.grdSectiuneaI4.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA 20%", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page3.grdSectiuneaI4.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page3.grdSectiuneaI4.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA 19%", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page3.grdSectiuneaI4.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page3.grdSectiuneaI4.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA 9%", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page3.grdSectiuneaI4.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page3.grdSectiuneaI4.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA 5%", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page3.grdSectiuneaI4.Column6.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page3.grdSectiuneaI6' AS _grdbase WITH ; + Anchor = 11, ; + ColumnCount = 5, ; + DeleteMark = .F., ; + FontSize = 10, ; + HeaderHeight = 19, ; + Height = 86, ; + Left = 10, ; + Name = "grdSectiuneaI6", ; + Panel = 1, ; + RecordSource = "crsSectiuneaI6", ; + RowHeight = 19, ; + ScrollBars = 3, ; + Top = 302, ; + Width = 240, ; + Column1.ControlSource = "punct", ; + Column1.FontSize = 10, ; + Column1.Name = "Column1", ; + Column1.Width = 59, ; + Column2.ControlSource = "incasari", ; + Column2.FontSize = 10, ; + Column2.Name = "Column2", ; + Column2.Width = 77, ; + Column3.ControlSource = "costuri", ; + Column3.FontSize = 10, ; + Column3.Name = "Column3", ; + Column3.Width = 84, ; + Column4.ControlSource = "marja", ; + Column4.FontSize = 10, ; + Column4.Name = "Column4", ; + Column5.ControlSource = "tva", ; + Column5.FontSize = 10, ; + Column5.Name = "Column5" + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_pageframe1.Page3.grdSectiuneaI6.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sectiunea", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page3.grdSectiuneaI6.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page3.grdSectiuneaI6.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Incasari / Pret vanzare", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page3.grdSectiuneaI6.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page3.grdSectiuneaI6.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Costuri / Pret cumparare", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page3.grdSectiuneaI6.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page3.grdSectiuneaI6.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Marja profit", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page3.grdSectiuneaI6.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page3.grdSectiuneaI6.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page3.grdSectiuneaI6.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4._grdfooter1' AS _grdfooter WITH ; + Anchor = 14, ; + ccolwithlabel = cFdoc, ; + Comment = "*:OnResize=sb", ; + csourcegrid = grdJTVA, ; + csumcolumns = cBaza,cTVA,cTIBaza,cTITVA,cBaza24,cBaza20,cBaza19,cBaza09,cBaza05,cBaza00,cTVA24,cTVA20,cTVA19,cTVA09,cTVA05,cRO24T,cRO20T,cRO19T,cRO09T,cRO05T, ; + ctotallabelexpression = 'TOTAL', ; + Height = 35, ; + Left = 3, ; + Name = "_grdfooter1", ; + TabIndex = 18, ; + Top = 352, ; + Width = 764, ; + ZOrderSet = 3 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_pageframe1.Page4._label7' AS _label WITH ; + Anchor = 1, ; + AutoSize = .F., ; + Caption = "Documente Registre TVA", ; + FontBold = .T., ; + Height = 17, ; + Left = 10, ; + Name = "_label7", ; + Top = 10, ; + Width = 141, ; + WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page4.But_verifica1' AS but_verifica WITH ; + Anchor = 8, ; + Left = 736, ; + Name = "But_verifica1", ; + TabIndex = 14, ; + ToolTipText = "Verificare coduri fiscale", ; + Top = 2 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA' AS _grdbase WITH ; + Anchor = 15, ; + ColumnCount = 54, ; + DeleteMark = .F., ; + FontSize = 10, ; + HeaderHeight = 59, ; + Height = 323, ; + Left = 3, ; + Name = "grdJTVA", ; + Panel = 1, ; + ReadOnly = .T., ; + RecordSource = "crsjtva", ; + RecordSourceType = 1, ; + RowHeight = 19, ; + Top = 29, ; + Width = 764, ; + Column1.ColumnOrder = 3, ; + Column1.ControlSource = "crsjtva.tippart", ; + Column1.FontSize = 10, ; + Column1.Name = "Column1", ; + Column1.ReadOnly = .T., ; + Column2.ColumnOrder = 5, ; + Column2.ControlSource = "crsjtva.tipdoc", ; + Column2.FontSize = 10, ; + Column2.Name = "Column2", ; + Column2.ReadOnly = .T., ; + Column3.ColumnOrder = 6, ; + Column3.ControlSource = "crsjtva.tip", ; + Column3.FontSize = 10, ; + Column3.Name = "Column3", ; + Column3.ReadOnly = .T., ; + Column3.Width = 43, ; + Column4.ColumnOrder = 10, ; + Column4.ControlSource = "crsjtva.dataact", ; + Column4.FontSize = 10, ; + Column4.Name = "Column4", ; + Column4.ReadOnly = .T., ; + Column5.ColumnOrder = 12, ; + Column5.ControlSource = "crsjtva.serie_act", ; + Column5.FontSize = 10, ; + Column5.Name = "Column5", ; + Column5.ReadOnly = .T., ; + Column6.ColumnOrder = 13, ; + Column6.ControlSource = "crsjtva.nract", ; + Column6.FontSize = 10, ; + Column6.Name = "Column6", ; + Column6.ReadOnly = .T., ; + Column7.ColumnOrder = 53, ; + Column7.ControlSource = "crsjtva.id_fdoc", ; + Column7.FontSize = 10, ; + Column7.Name = "Column7", ; + Column7.ReadOnly = .T., ; + Column8.ColumnOrder = 9, ; + Column8.ControlSource = "crsjtva.fel_document", ; + Column8.FontSize = 10, ; + Column8.Name = "cFdoc", ; + Column8.ReadOnly = .T., ; + Column9.ColumnOrder = 52, ; + Column9.ControlSource = "crsjtva.id_sucursala", ; + Column9.FontSize = 10, ; + Column9.Name = "Column9", ; + Column9.ReadOnly = .T., ; + Column10.ColumnOrder = 51, ; + Column10.ControlSource = "crsjtva.sucursala", ; + Column10.FontSize = 10, ; + Column10.Name = "Column10", ; + Column10.ReadOnly = .T., ; + Column11.ColumnOrder = 16, ; + Column11.ControlSource = "crsjtva.iscif", ; + Column11.FontSize = 10, ; + Column11.Name = "Column11", ; + Column11.ReadOnly = .T., ; + Column11.ToolTipText = "0 = CNP/fara CIF, 1 = CIF", ; + Column11.Width = 29, ; + Column12.ColumnOrder = 17, ; + Column12.ControlSource = "crsjtva.cifvalid", ; + Column12.FontSize = 10, ; + Column12.Name = "Column12", ; + Column12.ReadOnly = .T., ; + Column12.Width = 53, ; + Column13.ColumnOrder = 54, ; + Column13.ControlSource = "crsjtva.id_part", ; + Column13.FontSize = 10, ; + Column13.Name = "Column13", ; + Column13.ReadOnly = .T., ; + Column14.ColumnOrder = 15, ; + Column14.ControlSource = "crsjtva.cod_fiscal", ; + Column14.FontSize = 10, ; + Column14.Name = "Column14", ; + Column14.ReadOnly = .T., ; + Column14.Width = 88, ; + Column15.ColumnOrder = 49, ; + Column15.ControlSource = "crsjtva.cod_fiscalfro", ; + Column15.FontSize = 10, ; + Column15.Name = "Column15", ; + Column15.ReadOnly = .T., ; + Column16.ColumnOrder = 50, ; + Column16.ControlSource = "crsjtva.atribut_fiscal", ; + Column16.FontSize = 10, ; + Column16.Name = "Column16", ; + Column16.ReadOnly = .T., ; + Column17.ColumnOrder = 14, ; + Column17.ControlSource = "crsjtva.denumire", ; + Column17.FontSize = 10, ; + Column17.Name = "Column17", ; + Column17.ReadOnly = .T., ; + Column17.Width = 142, ; + Column18.ColumnOrder = 19, ; + Column18.ControlSource = "crsjtva.baza", ; + Column18.FontSize = 10, ; + Column18.Format = "R", ; + Column18.InputMask = (get_mask(12,gnZ)), ; + Column18.Name = "cBaza", ; + Column18.ReadOnly = .T., ; + Column19.ColumnOrder = 20, ; + Column19.ControlSource = "crsjtva.tva", ; + Column19.FontSize = 10, ; + Column19.Format = "R", ; + Column19.InputMask = (get_mask(12,gnZ)), ; + Column19.Name = "cTVA", ; + Column19.ReadOnly = .T., ; + Column20.ColumnOrder = 21, ; + Column20.ControlSource = "crsjtva.tibaza", ; + Column20.FontSize = 10, ; + Column20.Format = "R", ; + Column20.InputMask = (get_mask(12,gnZ)), ; + Column20.Name = "cTIBaza", ; + Column20.ReadOnly = .T., ; + Column21.ColumnOrder = 22, ; + Column21.ControlSource = "crsjtva.titva", ; + Column21.FontSize = 10, ; + Column21.Format = "R", ; + Column21.InputMask = (get_mask(12,gnZ)), ; + Column21.Name = "cTITVA", ; + Column21.ReadOnly = .T., ; + Column22.ColumnOrder = 23, ; + Column22.ControlSource = "crsjtva.baza24", ; + Column22.FontSize = 10, ; + Column22.Format = "R", ; + Column22.InputMask = (get_mask(12,gnZ)), ; + Column22.Name = "cBaza24", ; + Column22.ReadOnly = .T., ; + Column23.ColumnOrder = 24, ; + Column23.ControlSource = "crsjtva.baza20", ; + Column23.FontSize = 10, ; + Column23.Format = "R", ; + Column23.InputMask = (get_mask(12,gnZ)), ; + Column23.Name = "cBaza20", ; + Column23.ReadOnly = .T., ; + Column24.ColumnOrder = 25, ; + Column24.ControlSource = "crsjtva.baza19", ; + Column24.FontSize = 10, ; + Column24.InputMask = (get_mask(12,gnZ)), ; + Column24.Name = "cBaza19", ; + Column24.ReadOnly = .T., ; + Column25.ColumnOrder = 26, ; + Column25.ControlSource = "crsjtva.baza09", ; + Column25.FontSize = 10, ; + Column25.Format = "R", ; + Column25.InputMask = (get_mask(12,gnZ)), ; + Column25.Name = "cBaza09", ; + Column25.ReadOnly = .T., ; + Column26.ColumnOrder = 27, ; + Column26.ControlSource = "crsjtva.baza05", ; + Column26.FontSize = 10, ; + Column26.Format = "R", ; + Column26.InputMask = (get_mask(12,gnZ)), ; + Column26.Name = "cBaza05", ; + Column26.ReadOnly = .T., ; + Column27.ColumnOrder = 28, ; + Column27.ControlSource = "crsjtva.baza00", ; + Column27.FontSize = 10, ; + Column27.Format = "R", ; + Column27.InputMask = (get_mask(12,gnZ)), ; + Column27.Name = "cBaza00", ; + Column27.ReadOnly = .T., ; + Column28.ColumnOrder = 29, ; + Column28.ControlSource = "crsjtva.tva24", ; + Column28.FontSize = 10, ; + Column28.Format = "R", ; + Column28.InputMask = (get_mask(12,gnZ)), ; + Column28.Name = "cTVA24", ; + Column28.ReadOnly = .T., ; + Column29.ColumnOrder = 30, ; + Column29.ControlSource = "crsjtva.tva20", ; + Column29.FontSize = 10, ; + Column29.Format = "R", ; + Column29.InputMask = (get_mask(12,gnZ)), ; + Column29.Name = "cTVA20", ; + Column29.ReadOnly = .T., ; + Column30.ColumnOrder = 31, ; + Column30.ControlSource = "crsjtva.tva19", ; + Column30.FontSize = 10, ; + Column30.Format = "R", ; + Column30.InputMask = (get_mask(12,gnZ)), ; + Column30.Name = "cTVA19", ; + Column30.ReadOnly = .T., ; + Column31.ColumnOrder = 32, ; + Column31.ControlSource = "crsjtva.tva09", ; + Column31.FontSize = 10, ; + Column31.Format = "R", ; + Column31.InputMask = (get_mask(12,gnZ)), ; + Column31.Name = "cTVA09", ; + Column31.ReadOnly = .T., ; + Column32.ColumnOrder = 33, ; + Column32.ControlSource = "crsjtva.tva05", ; + Column32.FontSize = 10, ; + Column32.Format = "R", ; + Column32.InputMask = (get_mask(12,gnZ)), ; + Column32.Name = "cTVA05", ; + Column32.ReadOnly = .T., ; + Column33.ColumnOrder = 39, ; + Column33.ControlSource = "crsjtva.tibaza24", ; + Column33.FontSize = 10, ; + Column33.Name = "Column33", ; + Column33.ReadOnly = .T., ; + Column34.ColumnOrder = 40, ; + Column34.ControlSource = "crsjtva.tibaza20", ; + Column34.FontSize = 10, ; + Column34.Name = "Column34", ; + Column34.ReadOnly = .T., ; + Column35.ColumnOrder = 41, ; + Column35.ControlSource = "crsjtva.tibaza19", ; + Column35.FontSize = 10, ; + Column35.Name = "Column35", ; + Column35.ReadOnly = .T., ; + Column36.ColumnOrder = 42, ; + Column36.ControlSource = "crsjtva.tibaza09", ; + Column36.FontSize = 10, ; + Column36.Name = "Column36", ; + Column36.ReadOnly = .T., ; + Column37.ColumnOrder = 43, ; + Column37.ControlSource = "crsjtva.tibaza05", ; + Column37.FontSize = 10, ; + Column37.Name = "Column37", ; + Column37.ReadOnly = .T., ; + Column38.ColumnOrder = 44, ; + Column38.ControlSource = "crsjtva.titva24", ; + Column38.FontSize = 10, ; + Column38.Name = "Column38", ; + Column38.ReadOnly = .T., ; + Column39.ColumnOrder = 45, ; + Column39.ControlSource = "crsjtva.titva20", ; + Column39.FontSize = 10, ; + Column39.Name = "Column39", ; + Column39.ReadOnly = .T., ; + Column40.ColumnOrder = 46, ; + Column40.ControlSource = "crsjtva.titva19", ; + Column40.FontSize = 10, ; + Column40.Name = "Column40", ; + Column40.ReadOnly = .T., ; + Column41.ColumnOrder = 47, ; + Column41.ControlSource = "crsjtva.titva09", ; + Column41.FontSize = 10, ; + Column41.Name = "Column41", ; + Column41.ReadOnly = .T., ; + Column42.ColumnOrder = 48, ; + Column42.ControlSource = "crsjtva.titva05", ; + Column42.FontSize = 10, ; + Column42.Name = "Column42", ; + Column42.ReadOnly = .T., ; + Column43.Alignment = 2, ; + Column43.ColumnOrder = 7, ; + Column43.ControlSource = "crsjtva.tva_incasare", ; + Column43.CurrentControl = "Check1", ; + Column43.FontSize = 10, ; + Column43.Name = "Column43", ; + Column43.ReadOnly = .T., ; + Column43.Sparse = .F., ; + Column43.Width = 81, ; + Column44.Alignment = 2, ; + Column44.ColumnOrder = 8, ; + Column44.ControlSource = "crsJTVA.FACT_TVA_INCASARE", ; + Column44.CurrentControl = "Check1", ; + Column44.FontSize = 10, ; + Column44.Name = "Column44", ; + Column44.ReadOnly = .T., ; + Column44.Sparse = .F., ; + Column44.Width = 89, ; + Column45.ColumnOrder = 1, ; + Column45.ControlSource = "crsJTVA.tipj", ; + Column45.FontSize = 10, ; + Column45.Name = "Column45", ; + Column45.ReadOnly = .T., ; + Column46.Alignment = 2, ; + Column46.ColumnOrder = 2, ; + Column46.ControlSource = "emisa_perioada", ; + Column46.CurrentControl = "Check1", ; + Column46.FontSize = 10, ; + Column46.Name = "cEmisaPerioada", ; + Column46.ReadOnly = .T., ; + Column46.Sparse = .F., ; + Column47.ColumnOrder = 34, ; + Column47.ControlSource = "RO24T", ; + Column47.FontSize = 10, ; + Column47.Format = "R", ; + Column47.InputMask = (get_mask(12,gnZ)), ; + Column47.Name = "cRO24T", ; + Column47.ReadOnly = .T., ; + Column48.ColumnOrder = 35, ; + Column48.ControlSource = "RO20T", ; + Column48.FontSize = 10, ; + Column48.Format = "R", ; + Column48.InputMask = (get_mask(12,gnZ)), ; + Column48.Name = "cRO20T", ; + Column48.ReadOnly = .T., ; + Column49.ColumnOrder = 36, ; + Column49.ControlSource = "RO19T", ; + Column49.FontSize = 10, ; + Column49.Format = "R", ; + Column49.InputMask = (get_mask(12,gnZ)), ; + Column49.Name = "cRO19T", ; + Column49.ReadOnly = .T., ; + Column50.ColumnOrder = 37, ; + Column50.ControlSource = "RO09T", ; + Column50.FontSize = 10, ; + Column50.Format = "R", ; + Column50.InputMask = (get_mask(12,gnZ)), ; + Column50.Name = "cRO09T", ; + Column50.ReadOnly = .T., ; + Column51.ColumnOrder = 38, ; + Column51.ControlSource = "RO05T", ; + Column51.FontSize = 10, ; + Column51.Format = "R", ; + Column51.InputMask = (get_mask(12,gnZ)), ; + Column51.Name = "cRO05T", ; + Column51.ReadOnly = .T., ; + Column52.ColumnOrder = 11, ; + Column52.ControlSource = "crsjtva.dataireg", ; + Column52.FontSize = 10, ; + Column52.Name = "Column52", ; + Column52.ReadOnly = .T., ; + Column52.Width = 75, ; + Column53.ColumnOrder = 4, ; + Column53.ControlSource = "crsjtva.tip_persoana", ; + Column53.FontSize = 10, ; + Column53.Name = "Column53", ; + Column53.ReadOnly = .T., ; + Column53.ToolTipText = "0/1 = persoana juridica, 2 = persoana fizica", ; + Column53.Width = 65, ; + Column54.ColumnOrder = 18, ; + Column54.ControlSource = "crsjtva.baza + crsjtva.tva", ; + Column54.FontSize = 10, ; + Column54.Format = "R", ; + Column54.InputMask = (get_mask(12,gnZ)), ; + Column54.Name = "cTotal", ; + Column54.ReadOnly = .T., ; + Column54.Width = 74 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cBaza.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Baza", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cBaza.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cBaza00.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Baza 0%", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cBaza00.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cBaza05.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Baza 05%", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cBaza05.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cBaza09.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Baza 09%", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cBaza09.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cBaza19.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Baza 19%", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cBaza19.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cBaza20.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Baza 20%", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cBaza20.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cBaza24.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Baza 24%", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cBaza24.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cEmisaPerioada.Check1' AS checkbox WITH ; + Alignment = 0, ; + Caption = "", ; + Centered = .T., ; + FontSize = 10, ; + Height = 17, ; + Left = 49, ; + Name = "Check1", ; + ReadOnly = .T., ; + Top = 59, ; + Width = 60 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cEmisaPerioada.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Emisa in perioada", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cEmisaPerioada.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cFdoc.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Fel doc.", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cFdoc.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip part.", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column10.Header1' AS header WITH ; + Caption = "sucursala", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column10.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column11.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "CIF", ; + FontSize = 10, ; + Name = "Header1", ; + ToolTipText = "0 = CNP/fara CIF, 1 = CIF" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column11.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column12.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "CIF valid", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column12.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column13.Header1' AS header WITH ; + Caption = "id_part", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column13.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column14.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod fiscal", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column14.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column15.Header1' AS header WITH ; + Caption = "cod_fiscalfro", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column15.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column16.Header1' AS header WITH ; + Caption = "atribut_fiscal", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column16.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column17.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Denumire", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column17.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip doc.", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column33.Header1' AS header WITH ; + Caption = "tibaza24", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column33.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column34.Header1' AS header WITH ; + Caption = "tibaza20", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column34.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column35.Header1' AS header WITH ; + Caption = "tibaza19", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column35.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column36.Header1' AS header WITH ; + Caption = "tibaza09", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column36.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column37.Header1' AS header WITH ; + Caption = "tibaza05", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column37.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column38.Header1' AS header WITH ; + Caption = "titva24", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column38.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column39.Header1' AS header WITH ; + Caption = "titva20", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column39.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data doc.", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column40.Header1' AS header WITH ; + Caption = "titva19", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column40.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column41.Header1' AS header WITH ; + Caption = "titva09", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column41.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column42.Header1' AS header WITH ; + Caption = "titva05", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column42.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column43.Check1' AS checkbox WITH ; + Alignment = 0, ; + Caption = "", ; + Centered = .T., ; + FontSize = 10, ; + Height = 17, ; + Left = 73, ; + Name = "Check1", ; + ReadOnly = .T., ; + Top = 83, ; + Width = 60 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column43.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Factura TVA Incasare", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column43.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column44.Check1' AS checkbox WITH ; + Alignment = 0, ; + Caption = "", ; + Centered = .T., ; + FontSize = 10, ; + Height = 17, ; + Left = 144, ; + Name = "Check1", ; + ReadOnly = .T., ; + Top = 131, ; + Width = 60 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column44.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Factura de la furnizor TVA Incasare", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column44.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column45.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Jurnal TVA", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column45.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Serie doc.", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column52.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data inreg.", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column52.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column53.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip persoana", ; + FontSize = 10, ; + Name = "Header1", ; + ToolTipText = "0/1 = persoana juridica, 2 = persoana fizica", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column53.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. doc.", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column6.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column7.Header1' AS header WITH ; + Caption = "id_fdoc", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column7.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column9.Header1' AS header WITH ; + Caption = "id_sucursala", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column9.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cRO05T.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA ex. 05%", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cRO05T.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cRO09T.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA ex. 09%", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cRO09T.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cRO19T.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA ex. 19%", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cRO19T.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cRO20T.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA ex. 20%", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cRO20T.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cRO24T.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA ex. 24%", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cRO24T.Text1' AS textbox WITH ; + Alignment = 3, ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cTIBaza.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Baza TI", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cTIBaza.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cTITVA.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA TI", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cTITVA.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cTotal.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Total (baza+tva)", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cTotal.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cTVA.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cTVA.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cTVA05.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA 05%", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cTVA05.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cTVA09.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA 09%", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cTVA09.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cTVA19.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA 19%", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cTVA19.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cTVA20.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA 20%", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cTVA20.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cTVA24.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA 24%", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cTVA24.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.Gridextra1' AS gridextra WITH ; + gridexpression = thisform._pageframe1.page4.grdJTVA, ; + Left = 167, ; + Name = "Gridextra1", ; + Top = 8 + *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> + + ADD OBJECT '_pageframe1.Page5._label1' AS _label WITH ; + Anchor = 6, ; + AutoSize = .T., ; + Caption = "Facturi livrare catre pers. fizice < 10.000 lei in perioada 01.07.2016 - 31.12.2016", ; + FontBold = .T., ; + Height = 18, ; + Left = 10, ; + Name = "_label1", ; + Top = 161, ; + Width = 494, ; + WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page5._label7' AS _label WITH ; + Anchor = 1, ; + AutoSize = .T., ; + Caption = "AMEF / exceptate AMEF", ; + FontBold = .T., ; + Height = 18, ; + Left = 10, ; + Name = "_label7", ; + Top = 10, ; + Width = 151, ; + WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef' AS _grdbase WITH ; + Anchor = 15, ; + ColumnCount = 13, ; + DeleteMark = .F., ; + FontSize = 10, ; + Height = 95, ; + Left = 8, ; + Name = "grdCrsamef", ; + RecordSource = "crsamef", ; + RecordSourceType = 1, ; + RowHeight = 19, ; + Top = 37, ; + Width = 764, ; + Column1.ControlSource = "crsamef.tip", ; + Column1.FontSize = 10, ; + Column1.Name = "Column1", ; + Column1.Visible = .T., ; + Column2.ControlSource = "crsamef.luna", ; + Column2.FontSize = 10, ; + Column2.Name = "Column2", ; + Column2.Visible = .T., ; + Column3.ControlSource = "crsamef.nramef", ; + Column3.FontSize = 10, ; + Column3.Name = "Column3", ; + Column3.Visible = .T., ; + Column4.ControlSource = "crsamef.nrbonuri", ; + Column4.FontSize = 10, ; + Column4.Name = "Column4", ; + Column4.Visible = .T., ; + Column5.ControlSource = "crsamef.incasari", ; + Column5.FontSize = 10, ; + Column5.Name = "Column5", ; + Column5.Visible = .T., ; + Column6.ControlSource = "crsamef.baza05", ; + Column6.FontSize = 10, ; + Column6.Name = "Column6", ; + Column6.Visible = .T., ; + Column7.ControlSource = "crsamef.tva05", ; + Column7.FontSize = 10, ; + Column7.Name = "Column7", ; + Column7.Visible = .T., ; + Column8.ControlSource = "crsamef.baza09", ; + Column8.FontSize = 10, ; + Column8.Name = "Column8", ; + Column8.Visible = .T., ; + Column9.ControlSource = "crsamef.tva09", ; + Column9.FontSize = 10, ; + Column9.Name = "Column9", ; + Column9.Visible = .T., ; + Column10.ControlSource = "crsamef.baza19", ; + Column10.FontSize = 10, ; + Column10.Name = "Column10", ; + Column10.Visible = .T., ; + Column11.ControlSource = "crsamef.tva19", ; + Column11.FontSize = 10, ; + Column11.Name = "Column11", ; + Column11.Visible = .T., ; + Column12.ControlSource = "crsamef.baza20", ; + Column12.FontSize = 10, ; + Column12.Name = "Column12", ; + Column12.Visible = .T., ; + Column13.ControlSource = "crsamef.tva20", ; + Column13.FontSize = 10, ; + Column13.Name = "Column13", ; + Column13.Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column1.Header1' AS header WITH ; + Caption = "tip", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column10.Header1' AS header WITH ; + Caption = "baza19", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column10.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column11.Header1' AS header WITH ; + Caption = "tva19", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column11.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column12.Header1' AS header WITH ; + Caption = "baza20", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column12.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column13.Header1' AS header WITH ; + Caption = "tva20", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column13.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column2.Header1' AS header WITH ; + Caption = "luna", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column3.Header1' AS header WITH ; + Caption = "nramef", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column4.Header1' AS header WITH ; + Caption = "nrbonuri", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column5.Header1' AS header WITH ; + Caption = "incasari", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column6.Header1' AS header WITH ; + Caption = "baza05", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column6.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column7.Header1' AS header WITH ; + Caption = "tva05", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column7.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column8.Header1' AS header WITH ; + Caption = "baza09", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column8.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column9.Header1' AS header WITH ; + Caption = "tva09", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column9.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page5.grdPersFizice' AS _grdbase WITH ; + Anchor = 14, ; + ColumnCount = 12, ; + DeleteMark = .F., ; + FontSize = 10, ; + Height = 95, ; + Left = 8, ; + Name = "grdPersFizice", ; + RecordSource = "crsPersFizice", ; + RecordSourceType = 1, ; + RowHeight = 19, ; + Top = 188, ; + Width = 764, ; + Column1.ControlSource = "crsPersFizice.tip", ; + Column1.FontSize = 10, ; + Column1.Name = "Column1", ; + Column1.Visible = .T., ; + Column2.ColumnOrder = 2, ; + Column2.ControlSource = "crsPersFizice.baza", ; + Column2.FontSize = 10, ; + Column2.Name = "Column5", ; + Column2.Visible = .T., ; + Column3.ColumnOrder = 3, ; + Column3.ControlSource = "crsPersFizice.baza05", ; + Column3.FontSize = 10, ; + Column3.Name = "Column6", ; + Column3.Visible = .T., ; + Column4.ColumnOrder = 4, ; + Column4.ControlSource = "crsPersFizice.tva05", ; + Column4.FontSize = 10, ; + Column4.Name = "Column7", ; + Column4.Visible = .T., ; + Column5.ColumnOrder = 5, ; + Column5.ControlSource = "crsPersFizice.baza09", ; + Column5.FontSize = 10, ; + Column5.Name = "Column8", ; + Column5.Visible = .T., ; + Column6.ColumnOrder = 6, ; + Column6.ControlSource = "crsPersFizice.tva09", ; + Column6.FontSize = 10, ; + Column6.Name = "Column9", ; + Column6.Visible = .T., ; + Column7.ColumnOrder = 7, ; + Column7.ControlSource = "crsPersFizice.baza19", ; + Column7.FontSize = 10, ; + Column7.Name = "Column10", ; + Column7.Visible = .T., ; + Column8.ColumnOrder = 8, ; + Column8.ControlSource = "crsPersFizice.tva19", ; + Column8.FontSize = 10, ; + Column8.Name = "Column11", ; + Column8.Visible = .T., ; + Column9.ColumnOrder = 9, ; + Column9.ControlSource = "crsPersFizice.baza20", ; + Column9.FontSize = 10, ; + Column9.Name = "Column12", ; + Column9.Visible = .T., ; + Column10.ColumnOrder = 10, ; + Column10.ControlSource = "crsPersFizice.tva20", ; + Column10.FontSize = 10, ; + Column10.Name = "Column13", ; + Column10.Visible = .T., ; + Column11.ControlSource = "crsPersFizice.baza24", ; + Column11.FontSize = 10, ; + Column11.Name = "Column14", ; + Column12.ControlSource = "crsPersFizice.tva24", ; + Column12.FontSize = 10, ; + Column12.Name = "Column15" + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_pageframe1.Page5.grdPersFizice.Column1.Header1' AS header WITH ; + Caption = "tip", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page5.grdPersFizice.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page5.grdPersFizice.Column10.Header1' AS header WITH ; + Caption = "baza19", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page5.grdPersFizice.Column10.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page5.grdPersFizice.Column11.Header1' AS header WITH ; + Caption = "tva19", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page5.grdPersFizice.Column11.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page5.grdPersFizice.Column12.Header1' AS header WITH ; + Caption = "baza20", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page5.grdPersFizice.Column12.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page5.grdPersFizice.Column13.Header1' AS header WITH ; + Caption = "tva20", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page5.grdPersFizice.Column13.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page5.grdPersFizice.Column14.Header1' AS header WITH ; + Caption = "baza24", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page5.grdPersFizice.Column14.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page5.grdPersFizice.Column15.Header1' AS header WITH ; + Caption = "tva24", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page5.grdPersFizice.Column15.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page5.grdPersFizice.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "baza", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page5.grdPersFizice.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page5.grdPersFizice.Column6.Header1' AS header WITH ; + Caption = "baza05", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page5.grdPersFizice.Column6.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page5.grdPersFizice.Column7.Header1' AS header WITH ; + Caption = "tva05", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page5.grdPersFizice.Column7.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page5.grdPersFizice.Column8.Header1' AS header WITH ; + Caption = "baza09", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page5.grdPersFizice.Column8.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page5.grdPersFizice.Column9.Header1' AS header WITH ; + Caption = "tva09", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page5.grdPersFizice.Column9.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE do_verifica + #Define CRLF Chr(13) + Chr(10) + Local loDate As "empty" + Local lcCodFiscal, lcDenumire, lcFilter, lcSelect, lcWhere, llAutoVerificare, llDontCloseCursor + Local llExperimental, llMFIN, llServiciuWebANAF, llValidare, llVerificarePlatitorTVA, lnOptiune + Local lnRaspuns, loPartener + lcSelect = Select() + + Select crsJTVA + lcDenumire = Alltrim(Nvl(crsJTVA.denumire, '')) + lcCodFiscal = Alltrim(Nvl(crsJTVA.cod_fiscal, '')) + + lnOptiune = XMENU('Verifica... ' + m.lcDenumire + '; Verifica toti partenerii la ' +Dtoc(Date(m.gnAn, m.gnLuna,1)) + '; Verifica toti partenerii la data facturii (* facturi emise in perioada)') + + If Empty(m.lnOptiune) + Return + Endif + * Pot sa fac verificarea pentru un singur nume si cu formularul pentru mai multi parteneri, dar arata mai dragut informatia intr-un messagebox pentru unul singur + Do Case + Case m.lnOptiune = 1 && un singur nume + loPartener = Null + loDate = Createobject("empty") + + AddProperty(loDate, "denumire", m.lcDenumire) + AddProperty(loDate, "cod_fiscal", m.lcCodFiscal) + AddProperty(loDate, "tip_verificare", "ANAF_SERVICIU_WEB") + + lnRaspuns = VerificaCodFiscal(loDate, @lnOptiune, @loPartener) + Case m.lnOptiune = 2 + llDontCloseCursor = .F. + llExperimental = .F. + llVerificarePlatitorTVA = .F. && verific VIES pentru toti partenerii + llMFIN = .T. && verific MFIN pentru toata lumea + llValidare = .T. && verific algoritmul codurilor fiscale + llAutoVerificare = .T. && lanseaza verificarea automata la activate-ul formularului de verificare + llServiciuWebANAF = .T. + + lcFilter = Filter("crsJTVA") + lcWhere = Iif(m.lnOptiune = 1, "recno() = " + Alltrim(Str(Recno())), Iif(!Empty(m.lcFilter), m.lcFilter, ".T.")) + Select Distinct id_part, cod_fiscal, denumire, Iif(Left(Upper(cod_fiscal), 2) = "RO", "RO", " ") As ATRIBUT_FISCAL, .T. As IsCIF, .F. As codvalid ; + From crsJTVA ; + Where &lcWhere ; + Into Cursor crsCoduriFiscale ; + Order By denumire, cod_fiscal ; + Readwrite + + + Local lcXMLParteneri + lcXMLParteneri = "" + Cursortoxml('crsCoduriFiscale', "lcXMLParteneri", 1, 0, 0, "1") + + Do verificare_parteneri With m.lcXMLParteneri, m.llValidare, m.llMFIN, m.llVerificarePlatitorTVA, m.llAutoVerificare, m.llDontCloseCursor, m.llExperimental, m.llServiciuWebANAF + Case m.lnOptiune = 3 + llDontCloseCursor = .F. + llExperimental = .F. + llVerificarePlatitorTVA = .F. && verific VIES pentru toti partenerii + llMFIN = .T. && verific MFIN pentru toata lumea + llValidare = .T. && verific algoritmul codurilor fiscale + llAutoVerificare = .T. && lanseaza verificarea automata la activate-ul formularului de verificare + llServiciuWebANAF = .T. + + lcFilter = Filter("crsJTVA") + lcWhere = Iif(!Empty(m.lcFilter), m.lcFilter, ".T.") + " and emisa_perioada = 1" + Select Distinct id_part, cod_fiscal, denumire, dataact as data, Iif(Left(Upper(cod_fiscal), 2) = "RO", "RO", " ") As ATRIBUT_FISCAL, .T. As IsCIF, .F. As codvalid ; + From crsJTVA ; + Where &lcWhere ; + Into Cursor crsCoduriFiscale ; + Order By denumire, cod_fiscal ; + Readwrite + + + Local lcXMLParteneri + lcXMLParteneri = "" + Cursortoxml('crsCoduriFiscale', "lcXMLParteneri", 1, 0, 0, "1") + + Do verificare_parteneri With m.lcXMLParteneri, m.llValidare, m.llMFIN, m.llVerificarePlatitorTVA, m.llAutoVerificare, m.llDontCloseCursor, m.llExperimental, m.llServiciuWebANAF + Endcase + + ENDPROC + + PROCEDURE Init + DODEFAULT() + this._pageframe1.page2.Enabled = .F. + this._pageframe1.page3.Enabled = .F. + this._pageframe1.page4.Enabled = .F. + this._pageframe1.page5.Enabled = .F. + + this._pageframe1.page1.optPJIntocmit.Valid() + ENDPROC + + PROCEDURE _pageframe1.Page1.cmdCitesteDate.Click + Local lcMesaj, llSucces + lcMesaj = '' + llSucces = Thisform.oParent.do_citeste_date() + If m.llSucces + Thisform._pageframe1.page1.Refresh() + Thisform._pageframe1.page2.Enabled = .T. + Thisform._pageframe1.page2.Refresh() + Thisform._pageframe1.page3.Enabled = .T. + Thisform._pageframe1.page3.Refresh() + Thisform._pageframe1.page4.Enabled = .T. + Thisform._pageframe1.page4.Refresh() + Thisform._pageframe1.page5.Enabled = .T. + Thisform._pageframe1.page5.Refresh() + This.Parent.cmdVerificaCUI.Enabled = .T. + This.Parent.cmdExport.Enabled = .T. + This.Enabled = .F. + + thisform._pageframe1.page2.but_exclam.Picture = IIF('facturile emise sunt in plajele'$poUnitate.cTextFacturiEmiseAlocate, "CHECKMRK.ICO", "EXCLAM.ICO") + thisform._pageframe1.page2.but_exclam.cPictureDown = thisform._pageframe1.page2.but_exclam.Picture + thisform._pageframe1.page2.but_exclam.cPictureUp = thisform._pageframe1.page2.but_exclam.Picture + + thisform._pageframe1.page2.grdExtraFacturiEmise.setup() + + Select crsFdocTip + Locate For Empty(Nvl(tip_doc, '')) + If Found() + This.Parent.lblFdocTip.Visible = .T. + lcMesaj = lcMesaj + This.Parent.lblFdocTip.Caption + CHR(13) + CHR(10) + CHR(13) + CHR(10) + ENDIF + + lcMesaj = lcMesaj + '1. Verificati paginile I. Alte informatii!' + CHR(13) + CHR(10) + lcMesaj = lcMesaj + 'In pagina I.2, tabelul 2.2 sunt plajele continue de numere de facturi emise. Daca sunt goluri trebuie sa introduceti facturile anulate din Terti > Clienti > Factura anulata!' + CHR(13) + CHR(10) + CHR(13) + CHR(10) + lcMesaj = lcMesaj + IIF(!'facturile emise sunt in plajele'$poUnitate.cTextFacturiEmiseAlocate, 'ATENTIE! Sunt facturi emise in afara plajelor de facturi alocate!!!', 'Nu sunt facturi emise in afara plajelor de facturi alocate.') + CHR(13) + CHR(10) + CHR(13) + CHR(10) + lcMesaj = lcMesaj + '2. Verificati pagina Facturi pentru verificarea pe Ministerul de Finante a platitorilor de TVA' + CHR(13) + CHR(10) + lcMesaj = lcMesaj + '3. Apasati butonul "3. Export PDF"' + CHR(13) + CHR(10) + CHR(13) + CHR(10) + lcMesaj = lcMesaj + '4. PDF: Verificati toate sectiunile din PDF' + CHR(13) + CHR(10) + lcMesaj = lcMesaj + '5. PDF: Completati produsele pentru facturile cu taxare inversa' + CHR(13) + CHR(10) + lcMesaj = lcMesaj + '6. PDF: Completati datele despre reprezentant si intocmit ' + CHR(13) + CHR(10) + lcMesaj = lcMesaj + '7. PDF: Apasati butonul "VALIDARE"' + CHR(13) + CHR(10) + lcMesaj = lcMesaj + '8. Suplimentar, verificati fisierul D394.xml generat de PDF inteligent. Apasati butonul "4. VALIDARE XML"'+ CHR(13) + CHR(10)+ CHR(13) + CHR(10) + + lcMesaj = lcMesaj + 'In perioada 07-09/2016 se declara doar operatiile cu persoane impozabile (RO)' + CHR(13) + CHR(10) + lcMesaj = lcMesaj + 'In perioada 07-09/2016 NU se declara bonurile de casa fara cod fiscal (Rapoarte Z)' + CHR(13) + CHR(10) + lcMesaj = lcMesaj + 'Pana pe 31.12.2016 nu este obligatoriu CNP pentru facturile catre persoane fizice < 10.000 lei' + + AMESSAGEBOX(m.lcMesaj,0+64,_screen.Caption) + + This.Parent.cmdVerificaCUI.SetFocus() + Endif + + ENDPROC + + PROCEDURE _pageframe1.Page1.cmdExport.Click + Thisform.oParent.do_executa() + This.Parent.cmdVerificaXML.Enabled = .T. + ENDPROC + + PROCEDURE _pageframe1.Page1.cmdVerificaCUI.Click + thisform._pageframe1.page4.Activate() + thisform._pageframe1.page4.SetFocus() + ENDPROC + + PROCEDURE _pageframe1.Page1.cmdVerificaXML.Click + Thisform.oParent.do_verifica_xml() + + ENDPROC + + PROCEDURE _pageframe1.Page1.grdTipDoc.Init + * Colorez cu rosu boldat fel document fara tip document asociat + this.SetAll("DynamicForeColor","IIF(crsFdocTip.bifa = 1, RGB(255,0,0), RGB(0,0,0))","Column") + this.SetAll("DynamicFontBold","crsFdocTip.bifa = 1","Column") + ENDPROC + + PROCEDURE _pageframe1.Page1.optPJIntocmit.Valid + LOCAL llEnabledPF, llEnabledPJ + + llEnabledPF = (this.Value = 1) + llEnabledPJ = (this.Value = 2) + this.Parent.lblCalitatePJ.Enabled = m.llEnabledPJ + this.Parent.txtCalitateIntocmit.Enabled = m.llEnabledPJ + this.Parent.lblFunctiePF.Enabled = m.llEnabledPF + this.Parent.txtFunctieIntocmit.Enabled = m.llEnabledPF + this.Parent.lblCalitatePF.Enabled = m.llEnabledPF + this.Parent.txtCalitate2Intocmit.Enabled = m.llEnabledPF + + this.Parent.Refresh() + ENDPROC + + PROCEDURE _pageframe1.Page2.Activate + this.grdFacturiEmiseTip.AfterRowColChange() + ENDPROC + + PROCEDURE _pageframe1.Page2.but_exclam.Click + AMESSAGEBOX(poUnitate.cTextFacturiEmiseAlocate) + ENDPROC + + PROCEDURE _pageframe1.Page2.grdFacturiEmiseTip.AfterRowColChange + LPARAMETERS nColIndex + IF crsFacturiEmiseTip.tip = 'AUTOFACTURA' + THIs.Parent.grdAutoFacturi.Visible = .T. + this.Parent.lblAutofacturi.Visible = .T. + SET FILTER TO seria = crsFacturiEmiseTip.seria AND nr = crsFacturiEmiseTip.nr IN crsAutoFacturi + THIs.Parent.grdAutoFacturi.Refresh() + ELSE + THIs.Parent.grdAutoFacturi.Visible = .F. + this.Parent.lblAutofacturi.Visible = .F. + SET FILTER TO IN crsAutoFacturi + ENDIF + + ENDPROC + + PROCEDURE _pageframe1.Page4.Activate + IF !PEMSTATUS(thisform, 'lPage4GridExtraActivated',5) + this.gridextra1.setup() + THIS._grdfooter1.attachtogrid(This.grdJTVA) + This._grdfooter1.calctotal() + thisform.AddProperty('lPage4GridExtraActivated',.T.) + this.grdJTVA.HeaderHeight = 35 + ENDIF + ENDPROC + + PROCEDURE _pageframe1.Page4.Gridextra1.applyfilter + DODEFAULT() + this.Parent._grdfooter1.calctotal() + ENDPROC + + PROCEDURE _pageframe1.Page4.Gridextra1.clearfilter + DODEFAULT() + this.Parent._grdfooter1.calctotal() + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_decl394_2025 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="_pageframe1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1._shape1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1._shape2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.chkTvaNedeductibil" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.cboTip" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.chkTVAIncasare" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.chkOptiune" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.chkOperatiuni" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.chkAfiliat" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.grdTipDoc" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.grdTipDoc.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.grdTipDoc.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.grdTipDoc.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.grdTipDoc.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1._label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1._label2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.cmdCitesteDate" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.grdSeriiFacturi" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.grdSeriiFacturi.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.grdSeriiFacturi.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.grdSeriiFacturi.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.grdSeriiFacturi.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.grdSeriiFacturi.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.grdSeriiFacturi.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1._label3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.cmdVerificaCUI" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.cmdVerificaXML" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.cmdExport" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.lblFdocTip" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1._label4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1._checkbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1._label5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1._label14" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1._label6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1._label7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1._label9" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1._label10" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1._label12" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1._label13" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.lblCalitateRepr" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.lblCalitatePJ" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.lblFunctiePF" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1._label8" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.lblCalitatePF" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1._label17" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1._label11" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.txtNrAMEF" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.ttDenRepr" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.txtAdrRepr" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.txtCUIRepr" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.txtTelRepr" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.txtFaxRepr" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.txtEmailRepr" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.txtDenIntocmit" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.txtCUIIntocmit" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.txtTipRepr" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.txtCalitateIntocmit" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.txtFunctieIntocmit" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.txtCalitate2Intocmit" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.optPJIntocmit" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiEmiseTip" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiEmiseTip.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiEmiseTip.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiEmiseTip.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiEmiseTip.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiEmiseTip.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiEmiseTip.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2._label3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdSectiuneaI" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdSectiuneaI.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdSectiuneaI.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdSectiuneaI.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdSectiuneaI.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdSectiuneaI.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdSectiuneaI.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdSectiuneaI.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdSectiuneaI.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2._label4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiAlocate" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiAlocate.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiAlocate.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiAlocate.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiAlocate.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiAlocate.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiAlocate.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2._label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiEmise" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiEmise.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiEmise.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiEmise.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiEmise.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiEmise.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiEmise.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2._label2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.txtNrFacturiEmise" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column11.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column11.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column12.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column12.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column13.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column13.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column14.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column14.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.lblAutofacturi" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2._grdbase1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2._grdbase1.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2._grdbase1.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2._grdbase1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2._grdbase1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2._grdbase1.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2._grdbase1.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2._grdbase1.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2._grdbase1.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2._grdbase1.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2._grdbase1.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2._grdbase1.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2._grdbase1.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2._label5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.but_exclam" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.grdExtraFacturiEmise" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI4.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI4.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI4.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI4.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI4.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI4.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI4.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI4.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI4.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI4.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI4.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI4.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI4.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI4.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI4.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI4.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3._label4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3._label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3._label2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3._label3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3._label5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3._label6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3._label7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI6.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI6.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI6.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI6.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI6.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI6.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI6.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI6.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI6.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI6.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3._label8" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3._label9" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3._label10" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3._label11" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cFdoc.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cFdoc.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column11.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column11.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column12.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column12.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column13.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column13.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column14.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column14.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column15.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column15.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column16.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column16.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column17.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column17.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cBaza.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cBaza.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTVA.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTVA.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTIBaza.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTIBaza.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTITVA.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTITVA.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cBaza24.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cBaza24.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cBaza20.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cBaza20.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cBaza19.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cBaza19.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cBaza09.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cBaza09.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cBaza05.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cBaza05.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cBaza00.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cBaza00.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTVA24.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTVA24.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTVA20.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTVA20.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTVA19.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTVA19.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTVA09.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTVA09.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTVA05.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTVA05.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column33.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column33.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column34.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column34.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column35.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column35.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column36.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column36.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column37.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column37.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column38.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column38.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column39.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column39.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column40.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column40.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column41.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column41.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column42.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column42.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column43.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column43.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column43.Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column44.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column44.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column44.Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column45.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column45.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cEmisaPerioada.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cEmisaPerioada.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cEmisaPerioada.Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cRO24T.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cRO24T.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cRO20T.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cRO20T.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cRO19T.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cRO19T.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cRO09T.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cRO09T.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cRO05T.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cRO05T.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column52.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column52.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column53.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column53.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTotal.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTotal.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column55.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column55.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column56.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column56.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column57.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column57.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column58.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column58.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column59.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column59.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column60.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column60.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column61.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column61.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column62.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column62.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column63.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column63.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column64.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column64.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4._label7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.Gridextra1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.But_verifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4._grdfooter1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column11.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column11.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column12.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column12.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column13.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column13.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column14.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column14.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column15.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column15.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column16.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column16.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column17.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column17.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page5._label7" UniqueID="" Timestamp="" /> + + * + *p: ccaen + *p: ccalintoc + *p: cfpropr + *p: cjudet + *p: ctip + *p: oparent + * + + * + BorderStyle = 3 + ccaen = + ccalintoc = + cfpropr = + cjudet = + ctip = + DoCreate = .T. + Height = 465 + Name = "frm_decl394_2025" + oparent = .NULL. + Width = 789 + WindowState = 2 + _memberdata = + + + _shape1.Anchor = 10 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 790 + _shape1.ZOrderSet = 1 + _shape2.Height = 29 + _shape2.Left = 758 + _shape2.Name = "_shape2" + _shape2.Top = -1 + _shape2.Width = 37 + _shape2.ZOrderSet = 2 + Lb_titlu_alb_b121.Caption = "Declaratie informativa privind livrarile si achizitiile efectuate pe teritoriul national D394" + Lb_titlu_alb_b121.FontSize = 11 + Lb_titlu_alb_b121.Left = 4 + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 3 + Lb_titlu_alb_b121.Top = 6 + Lb_titlu_alb_b121.ZOrderSet = 3 + BUT_TERMIN1.Anchor = 9 + BUT_TERMIN1.Left = 758 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 1 + BUT_TERMIN1.Top = 1 + BUT_TERMIN1.ZOrderSet = 4 + Gridsort1.Left = 216 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 8 + * + + ADD OBJECT '_pageframe1' AS _pageframe WITH ; + Anchor = 15, ; + ErasePage = .T., ; + Height = 440, ; + Left = 0, ; + Name = "_pageframe1", ; + PageCount = 5, ; + TabIndex = 2, ; + Top = 27, ; + Width = 790, ; + Page1.Caption = "Setari", ; + Page1.Name = "Page1", ; + Page2.Caption = "I. Alte informatii pct. 1 si 2", ; + Page2.Name = "Page2", ; + Page3.Caption = "I. Alte informatii pct. 4, 5 si 6", ; + Page3.Name = "Page3", ; + Page4.Caption = "Facturi", ; + Page4.Name = "Page4", ; + Page5.Caption = "AMEF / exc. AMEF / Facturi pers. fizice", ; + Page5.Name = "Page5" + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="pageframe" /> + + ADD OBJECT '_pageframe1.Page1._checkbox1' AS _checkbox WITH ; + Alignment = 0, ; + Anchor = 9, ; + AutoSize = .F., ; + Caption = "Se exporta sectiunea I", ; + ControlSource = "pounitate.ExportSectiuneaI", ; + FontBold = .T., ; + Height = 18, ; + Left = 347, ; + Name = "_checkbox1", ; + TabIndex = 23, ; + ToolTipText = "Sectiunea I nu se exporta pana in luna 10/2016", ; + Top = 33, ; + Value = 1, ; + Width = 162, ; + WordWrap = .T., ; + ZOrderSet = 17 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT '_pageframe1.Page1._label1' AS _label WITH ; + Caption = "Tip platitor", ; + Left = 8, ; + Name = "_label1", ; + TabIndex = 24, ; + Top = 5, ; + ZOrderSet = 9 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page1._label10' AS _label WITH ; + Caption = "eMail", ; + FontBold = .T., ; + Left = 11, ; + Name = "_label10", ; + TabIndex = 33, ; + Top = 124, ; + ZOrderSet = 22 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page1._label11' AS _label WITH ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + Caption = "Reprezentant", ; + FontBold = .T., ; + ForeColor = 0,91,183, ; + Left = 11, ; + Name = "_label11", ; + TabIndex = 40, ; + Top = 61, ; + ZOrderSet = 31 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page1._label12' AS _label WITH ; + Caption = "Denumire", ; + FontBold = .T., ; + Left = 12, ; + Name = "_label12", ; + TabIndex = 34, ; + Top = 171, ; + ZOrderSet = 23 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page1._label13' AS _label WITH ; + Caption = "CUI/CNP", ; + FontBold = .T., ; + Left = 290, ; + Name = "_label13", ; + TabIndex = 35, ; + Top = 171, ; + ZOrderSet = 24 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page1._label14' AS _label WITH ; + Caption = "Nr. AMEF", ; + FontBold = .T., ; + Left = 192, ; + Name = "_label14", ; + TabIndex = 31, ; + Top = 50, ; + ZOrderSet = 20 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page1._label17' AS _label WITH ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + Caption = "Intocmit", ; + FontBold = .T., ; + ForeColor = 0,91,183, ; + Left = 12, ; + Name = "_label17", ; + TabIndex = 41, ; + Top = 149, ; + ZOrderSet = 30 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page1._label2' AS _label WITH ; + AutoSize = .F., ; + Caption = "Serii facturi autofacturare / emise de beneficiari / emise de terti", ; + FontBold = .T., ; + Height = 17, ; + Left = 340, ; + Name = "_label2", ; + TabIndex = 25, ; + Top = 250, ; + Width = 358, ; + WordWrap = .T., ; + ZOrderSet = 10 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page1._label3' AS _label WITH ; + AutoSize = .F., ; + Caption = "Feluri document din Registrele TVA", ; + FontBold = .T., ; + Height = 18, ; + Left = 11, ; + Name = "_label3", ; + TabIndex = 26, ; + Top = 255, ; + Width = 225, ; + WordWrap = .T., ; + ZOrderSet = 13 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page1._label4' AS _label WITH ; + Anchor = 4, ; + AutoSize = .F., ; + Caption = "Se configureaza din meniul Initializare > Configurare serii > Facturi", ; + FontBold = .F., ; + Height = 18, ; + Left = 347, ; + Name = "_label4", ; + TabIndex = 28, ; + Top = 383, ; + Width = 383, ; + WordWrap = .T., ; + ZOrderSet = 16 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page1._label5' AS _label WITH ; + Caption = "Denumire", ; + FontBold = .T., ; + Left = 10, ; + Name = "_label5", ; + TabIndex = 29, ; + Top = 80, ; + ZOrderSet = 18 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page1._label6' AS _label WITH ; + Caption = "Adresa", ; + FontBold = .T., ; + Left = 10, ; + Name = "_label6", ; + TabIndex = 30, ; + Top = 102, ; + ZOrderSet = 19 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page1._label7' AS _label WITH ; + Caption = "CUI/CNP", ; + FontBold = .T., ; + Left = 326, ; + Name = "_label7", ; + TabIndex = 31, ; + Top = 80, ; + ZOrderSet = 20 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page1._label8' AS _label WITH ; + Caption = "Telefon", ; + FontBold = .T., ; + Left = 514, ; + Name = "_label8", ; + TabIndex = 39, ; + Top = 102, ; + ZOrderSet = 28 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page1._label9' AS _label WITH ; + Caption = "FAX", ; + FontBold = .T., ; + Left = 326, ; + Name = "_label9", ; + TabIndex = 32, ; + Top = 102, ; + ZOrderSet = 21 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page1._shape1' AS _shape WITH ; + BackStyle = 0, ; + Height = 82, ; + Left = 6, ; + Name = "_shape1", ; + Top = 70, ; + Width = 696, ; + ZOrderSet = 0 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" /> + + ADD OBJECT '_pageframe1.Page1._shape2' AS _shape WITH ; + BackStyle = 0, ; + Height = 63, ; + Left = 6, ; + Name = "_shape2", ; + Top = 157, ; + Width = 696, ; + ZOrderSet = 1 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" /> + + ADD OBJECT '_pageframe1.Page1.cboTip' AS combobox WITH ; + ControlSource = "poUnitate.tip", ; + Left = 8, ; + Name = "cboTip", ; + RowSource = "LUNAR,TRIMESTRIAL,SEMESTRIAL,ANUAL", ; + RowSourceType = 1, ; + Style = 2, ; + TabIndex = 1, ; + Top = 21, ; + Value = LUNAR, ; + Width = 173, ; + ZOrderSet = 5 + *< END OBJECT: BaseClass="combobox" /> + + ADD OBJECT '_pageframe1.Page1.chkAfiliat' AS _checkbox WITH ; + Alignment = 0, ; + Caption = "Operatiuni cu persoane afiliate", ; + ControlSource = "pounitate.PersoaneAfiliate", ; + Enabled = .T., ; + Left = 511, ; + Name = "chkAfiliat", ; + TabIndex = 3, ; + ToolTipText = "Operatiuni cu persoane afiliate", ; + Top = 49, ; + ZOrderSet = 7 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT '_pageframe1.Page1.chkOperatiuni' AS _checkbox WITH ; + Alignment = 0, ; + Caption = "Operatiuni in perioada", ; + ControlSource = "pounitate.operatiuni", ; + Left = 191, ; + Name = "chkOperatiuni", ; + TabIndex = 3, ; + ToolTipText = "Operatiuni in perioada", ; + Top = 15, ; + ZOrderSet = 7 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT '_pageframe1.Page1.chkOptiune' AS _checkbox WITH ; + Alignment = 0, ; + Caption = "Acord consultare D394", ; + ControlSource = "pounitate.optiuneANAF", ; + Left = 347, ; + Name = "chkOptiune", ; + TabIndex = 3, ; + ToolTipText = "Acord consultare D394 de catre clienti/furnizori", ; + Top = 49, ; + ZOrderSet = 7 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT '_pageframe1.Page1.chkTVAIncasare' AS _checkbox WITH ; + Alignment = 0, ; + Caption = "Sistem TVA Incasare", ; + ControlSource = "pounitate.tvaincasare", ; + Left = 191, ; + Name = "chkTVAIncasare", ; + TabIndex = 2, ; + ToolTipText = "Sistem TVA Incasare", ; + Top = 1, ; + ZOrderSet = 6 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT '_pageframe1.Page1.chkTvaNedeductibil' AS _checkbox WITH ; + Alignment = 0, ; + AutoSize = .F., ; + Caption = "Inclusiv achizitii TVA nedeductibil", ; + ControlSource = "pounitate.tvanedeductibil", ; + FontBold = .T., ; + ForeColor = 255,0,0, ; + Height = 17, ; + Left = 191, ; + Name = "chkTvaNedeductibil", ; + TabIndex = 4, ; + ToolTipText = 'Se includ sumele de pe coloana "Ach. de bunuri din RO scutite sau neimpozab." din Registrul de Cumparari', ; + Top = 30, ; + Value = 0, ; + Visible = .F., ; + Width = 204, ; + WordWrap = .T., ; + ZOrderSet = 4 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT '_pageframe1.Page1.cmdCitesteDate' AS cmd_executa WITH ; + Anchor = 9, ; + AutoSize = .F., ; + BackColor = 113,184,255, ; + caction = do_citeste_date, ; + Caption = "1. Citeste \ + + ADD OBJECT '_pageframe1.Page1.cmdExport' AS cmd_executa WITH ; + Anchor = 9, ; + AutoSize = .F., ; + BackColor = 113,184,255, ; + caction = do_citeste_date, ; + Caption = "3. \ + + ADD OBJECT '_pageframe1.Page1.cmdVerificaCUI' AS cmd_executa WITH ; + Anchor = 9, ; + AutoSize = .F., ; + BackColor = 113,184,255, ; + caction = do_citeste_date, ; + Caption = "2. \ + + ADD OBJECT '_pageframe1.Page1.cmdVerificaXML' AS cmd_executa WITH ; + Anchor = 9, ; + AutoSize = .F., ; + BackColor = 113,184,255, ; + caction = , ; + Caption = "4. Validare \ + + ADD OBJECT '_pageframe1.Page1.grdSeriiFacturi' AS _grdbase WITH ; + Anchor = 7, ; + ColumnCount = 3, ; + DeleteMark = .F., ; + Height = 109, ; + Left = 340, ; + Name = "grdSeriiFacturi", ; + Panel = 1, ; + RecordSource = "crsSeriiFacturi", ; + TabIndex = 22, ; + Top = 272, ; + Width = 381, ; + ZOrderSet = 12, ; + Column1.ControlSource = "tip", ; + Column1.Name = "Column1", ; + Column1.Width = 89, ; + Column2.ControlSource = "seria", ; + Column2.Name = "Column2", ; + Column2.Width = 88, ; + Column3.ControlSource = "descriere", ; + Column3.Name = "Column3", ; + Column3.Width = 168 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_pageframe1.Page1.grdSeriiFacturi.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip serie", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page1.grdSeriiFacturi.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page1.grdSeriiFacturi.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Serie", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page1.grdSeriiFacturi.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page1.grdSeriiFacturi.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Descriere", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page1.grdSeriiFacturi.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page1.grdTipDoc' AS _grdbase WITH ; + Anchor = 7, ; + ColumnCount = 2, ; + DeleteMark = .F., ; + Height = 111, ; + Left = 8, ; + Name = "grdTipDoc", ; + Panel = 1, ; + RecordSource = "crsFdocTip", ; + TabIndex = 21, ; + Top = 273, ; + Width = 320, ; + ZOrderSet = 8, ; + Column1.ControlSource = "fel_document", ; + Column1.Name = "Column1", ; + Column1.Width = 149, ; + Column2.ControlSource = "tip_doc", ; + Column2.Name = "Column2", ; + Column2.Width = 135 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_pageframe1.Page1.grdTipDoc.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Fel document", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page1.grdTipDoc.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page1.grdTipDoc.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page1.grdTipDoc.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page1.lblCalitatePF' AS _label WITH ; + Caption = "Alta calitate PF", ; + FontBold = .T., ; + Left = 481, ; + Name = "lblCalitatePF", ; + TabIndex = 42, ; + Top = 193, ; + ZOrderSet = 29 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page1.lblCalitatePJ' AS _label WITH ; + Caption = "Calitate PJ", ; + Enabled = .F., ; + FontBold = .T., ; + Left = 12, ; + Name = "lblCalitatePJ", ; + TabIndex = 37, ; + Top = 193, ; + ZOrderSet = 26 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page1.lblCalitateRepr' AS _label WITH ; + Caption = "Calitate", ; + FontBold = .T., ; + Left = 514, ; + Name = "lblCalitateRepr", ; + TabIndex = 36, ; + Top = 79, ; + ZOrderSet = 25 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page1.lblFdocTip' AS _label WITH ; + AutoSize = .T., ; + Caption = "Verificati felurile de document fara tip! Acestea nu se iau in considerare in D394!!!", ; + FontBold = .T., ; + ForeColor = 255,0,0, ; + Height = 34, ; + Left = 11, ; + Name = "lblFdocTip", ; + TabIndex = 27, ; + Top = 224, ; + Visible = .F., ; + Width = 301, ; + WordWrap = .T., ; + ZOrderSet = 15 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page1.lblFunctiePF' AS _label WITH ; + Caption = "Functie PF", ; + FontBold = .T., ; + Left = 280, ; + Name = "lblFunctiePF", ; + TabIndex = 38, ; + Top = 193, ; + ZOrderSet = 27 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page1.optPJIntocmit' AS _optiongrup WITH ; + AutoSize = .T., ; + ControlSource = "poUnitate.PJIntocmit", ; + Height = 27, ; + Left = 517, ; + Name = "optPJIntocmit", ; + TabIndex = 17, ; + Top = 166, ; + Width = 179, ; + ZOrderSet = 44, ; + Option1.AutoSize = .T., ; + Option1.Caption = "Pers. fizica", ; + Option1.Left = 5, ; + Option1.Name = "Option1", ; + Option1.Top = 5, ; + Option2.AutoSize = .T., ; + Option2.Caption = "Pers. juridica", ; + Option2.Left = 84, ; + Option2.Name = "Option2", ; + Option2.Top = 5 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="optiongroup" /> + + ADD OBJECT '_pageframe1.Page1.ttDenRepr' AS _textbox WITH ; + ControlSource = "poUnitate.DenRepr", ; + Format = "K", ; + Height = 23, ; + Left = 77, ; + Name = "ttDenRepr", ; + TabIndex = 8, ; + Top = 77, ; + Width = 191, ; + ZOrderSet = 32 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page1.txtAdrRepr' AS _textbox WITH ; + ControlSource = "poUnitate.AdrRepr", ; + Format = "K", ; + Height = 23, ; + Left = 77, ; + Name = "txtAdrRepr", ; + TabIndex = 11, ; + Top = 99, ; + Width = 239, ; + ZOrderSet = 33 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page1.txtCalitate2Intocmit' AS _textbox WITH ; + ControlSource = "poUnitate.Calitate2Intocmit", ; + Format = "K", ; + Height = 23, ; + Left = 578, ; + Name = "txtCalitate2Intocmit", ; + TabIndex = 20, ; + Top = 190, ; + Width = 118, ; + ZOrderSet = 43 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page1.txtCalitateIntocmit' AS _textbox WITH ; + ControlSource = "poUnitate.CalitateIntocmit", ; + Enabled = .F., ; + Format = "K", ; + Height = 23, ; + Left = 84, ; + Name = "txtCalitateIntocmit", ; + TabIndex = 18, ; + Top = 190, ; + Width = 159, ; + ZOrderSet = 41 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page1.txtCUIIntocmit' AS _textbox WITH ; + ControlSource = "poUnitate.CUIIntocmit", ; + Format = "K", ; + Height = 23, ; + Left = 348, ; + Name = "txtCUIIntocmit", ; + TabIndex = 16, ; + Top = 168, ; + Width = 127, ; + ZOrderSet = 39 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page1.txtCUIRepr' AS _textbox WITH ; + ControlSource = "poUnitate.CUIRepr", ; + Format = "K", ; + Height = 23, ; + Left = 383, ; + Name = "txtCUIRepr", ; + TabIndex = 9, ; + Top = 77, ; + Width = 120, ; + ZOrderSet = 34 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page1.txtDenIntocmit' AS _textbox WITH ; + ControlSource = "poUnitate.DenIntocmit", ; + Format = "K", ; + Height = 23, ; + Left = 84, ; + Name = "txtDenIntocmit", ; + TabIndex = 15, ; + Top = 168, ; + Width = 195, ; + ZOrderSet = 38 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page1.txtEmailRepr' AS _textbox WITH ; + ControlSource = "poUnitate.EmailRepr", ; + Format = "K", ; + Height = 23, ; + Left = 77, ; + Name = "txtEmailRepr", ; + TabIndex = 14, ; + Top = 121, ; + Width = 162, ; + ZOrderSet = 37 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page1.txtFaxRepr' AS _textbox WITH ; + ControlSource = "poUnitate.FAXRepr", ; + Format = "K", ; + Height = 23, ; + Left = 383, ; + Name = "txtFaxRepr", ; + TabIndex = 12, ; + Top = 99, ; + Width = 120, ; + ZOrderSet = 36 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page1.txtFunctieIntocmit' AS _textbox WITH ; + ControlSource = "poUnitate.FunctieIntocmit", ; + Format = "K", ; + Height = 23, ; + Left = 348, ; + Name = "txtFunctieIntocmit", ; + TabIndex = 19, ; + Top = 190, ; + Width = 127, ; + ZOrderSet = 42 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page1.txtNrAMEF' AS _textbox WITH ; + ControlSource = "poUnitate.nrAMEF", ; + Format = "K", ; + Height = 23, ; + Left = 251, ; + Name = "txtNrAMEF", ; + TabIndex = 9, ; + ToolTipText = "Numar AMEF", ; + Top = 47, ; + Width = 54, ; + ZOrderSet = 34 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page1.txtTelRepr' AS _textbox WITH ; + ControlSource = "poUnitate.TelRepr", ; + Format = "K", ; + Height = 23, ; + Left = 570, ; + Name = "txtTelRepr", ; + TabIndex = 13, ; + Top = 99, ; + Width = 120, ; + ZOrderSet = 35 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page1.txtTipRepr' AS _textbox WITH ; + ControlSource = "poUnitate.TipRepr", ; + Format = "K", ; + Height = 23, ; + Left = 570, ; + Name = "txtTipRepr", ; + TabIndex = 10, ; + Top = 77, ; + Width = 120, ; + ZOrderSet = 40 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2._grdbase1' AS _grdbase WITH ; + Anchor = 4, ; + ColumnCount = 6, ; + DeleteMark = .F., ; + FontSize = 10, ; + Height = 76, ; + Left = 357, ; + Name = "_grdbase1", ; + Panel = 1, ; + RecordSource = "crsFacturiTerti", ; + RowHeight = 19, ; + ScrollBars = 3, ; + Top = 317, ; + Width = 365, ; + Column1.ColumnOrder = 2, ; + Column1.ControlSource = "seria", ; + Column1.FontSize = 10, ; + Column1.Name = "Column1", ; + Column1.Width = 68, ; + Column2.ColumnOrder = 3, ; + Column2.ControlSource = "nr1", ; + Column2.FontSize = 10, ; + Column2.Name = "Column2", ; + Column2.Width = 97, ; + Column3.ColumnOrder = 4, ; + Column3.ControlSource = "nr2", ; + Column3.FontSize = 10, ; + Column3.Name = "Column3", ; + Column3.Width = 105, ; + Column4.ColumnOrder = 1, ; + Column4.ControlSource = "punct", ; + Column4.FontSize = 10, ; + Column4.Name = "Column4", ; + Column4.Width = 59, ; + Column5.ControlSource = "denumire", ; + Column5.FontSize = 10, ; + Column5.Name = "Column5", ; + Column5.Width = 154, ; + Column6.ControlSource = "cod_fiscal", ; + Column6.FontSize = 10, ; + Column6.Name = "Column6", ; + Column6.Width = 121 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_pageframe1.Page2._grdbase1.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Seria", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2._grdbase1.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2._grdbase1.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. inceput", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2._grdbase1.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2._grdbase1.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. sfarsit", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2._grdbase1.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2._grdbase1.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sectiunea", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2._grdbase1.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2._grdbase1.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Denumire", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2._grdbase1.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2._grdbase1.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "CUI", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2._grdbase1.Column6.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2._label1' AS _label WITH ; + Anchor = 0, ; + AutoSize = .T., ; + Caption = "2.1 Plaja de facturi alocate in perioada de facturare", ; + Height = 18, ; + Left = 359, ; + Name = "_label1", ; + Top = 10, ; + Width = 293, ; + WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page2._label2' AS _label WITH ; + Anchor = 0, ; + AutoSize = .F., ; + Caption = "2.2 Numarul total de facturi emise, in perioada de raportare, din plaja de facturi alocate:", ; + Height = 32, ; + Left = 357, ; + Name = "_label2", ; + Top = 203, ; + Width = 255, ; + WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page2._label3' AS _label WITH ; + Anchor = 4, ; + AutoSize = .F., ; + Caption = "2.2 din care (Tip: stornate/ anulate/ autofacturare/ emisa in numele furnizorilor)", ; + Height = 32, ; + Left = 11, ; + Name = "_label3", ; + Top = 163, ; + Width = 311, ; + WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page2._label4' AS _label WITH ; + AutoSize = .T., ; + Caption = "1.1 - 1.4 Facturi simplificate si 1.5 Bonuri fiscale cu cod fiscal", ; + Height = 34, ; + Left = 11, ; + Name = "_label4", ; + Top = 10, ; + Width = 299, ; + WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page2._label5' AS _label WITH ; + Anchor = 4, ; + AutoSize = .F., ; + Caption = "2.3 / 2.4 Numarul total de facturi emise, in perioada de raportare, de beneficiari/terti in numele persoanei impozabile:", ; + Height = 32, ; + Left = 357, ; + Name = "_label5", ; + Top = 281, ; + Width = 371, ; + WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page2.but_exclam' AS but_help WITH ; + cpicturedown = exclam.ico, ; + cpictureup = exclam.ico, ; + Height = 36, ; + Left = 685, ; + Name = "but_exclam", ; + Picture = ..\comun\grafice\exclam.ico, ; + ToolTipText = "Numere facturi emise care nu sunt in plajele de facturi alocate!", ; + Top = 201, ; + Width = 40 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT '_pageframe1.Page2.grdAutoFacturi' AS _grdbase WITH ; + Anchor = 4, ; + ColumnCount = 14, ; + DeleteMark = .F., ; + FontSize = 10, ; + Height = 76, ; + Left = 11, ; + Name = "grdAutoFacturi", ; + Panel = 1, ; + RecordSource = "crsAutoFacturi", ; + RowHeight = 19, ; + ScrollBars = 1, ; + Top = 317, ; + Width = 274, ; + Column1.ColumnOrder = 1, ; + Column1.ControlSource = "baza05", ; + Column1.FontSize = 10, ; + Column1.Name = "Column1", ; + Column1.Width = 93, ; + Column2.ColumnOrder = 2, ; + Column2.ControlSource = "tva05", ; + Column2.FontSize = 10, ; + Column2.Name = "Column2", ; + Column2.Width = 93, ; + Column3.ColumnOrder = 3, ; + Column3.ControlSource = "baza09", ; + Column3.FontSize = 10, ; + Column3.Name = "Column3", ; + Column3.Width = 73, ; + Column4.ControlSource = "tva09", ; + Column4.FontSize = 10, ; + Column4.Name = "Column4", ; + Column5.ControlSource = "baza19", ; + Column5.FontSize = 10, ; + Column5.Name = "Column5", ; + Column6.ControlSource = "tva19", ; + Column6.FontSize = 10, ; + Column6.Name = "Column6", ; + Column7.ControlSource = "baza20", ; + Column7.FontSize = 10, ; + Column7.Name = "Column7", ; + Column8.ControlSource = "tva20", ; + Column8.FontSize = 10, ; + Column8.Name = "Column8", ; + Column9.ControlSource = "baza24", ; + Column9.FontSize = 10, ; + Column9.Name = "Column9", ; + Column10.ControlSource = "tva24", ; + Column10.FontSize = 10, ; + Column10.Name = "Column10", ; + Column11.ControlSource = "baza21", ; + Column11.FontSize = 10, ; + Column11.Name = "Column11", ; + Column12.ControlSource = "tva21", ; + Column12.FontSize = 10, ; + Column12.Name = "Column12", ; + Column13.ControlSource = "baza11", ; + Column13.FontSize = 10, ; + Column13.Name = "Column13", ; + Column14.ControlSource = "tva11", ; + Column14.FontSize = 10, ; + Column14.Name = "Column14" + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Baza05", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column10.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA24", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column10.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column11.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Baza21", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column11.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column12.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA21", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column12.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column13.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "BAZA11", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column13.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column14.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA11", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column14.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA05", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Baza09", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA09", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Baza19", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA19", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column6.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column7.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Baza20", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column7.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column8.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA20", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column8.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column9.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Baza24", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column9.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2.grdExtraFacturiEmise' AS gridextra WITH ; + gridexpression = thisform._pageframe1.page2.grdFacturiEmise, ; + Left = 731, ; + Name = "grdExtraFacturiEmise", ; + productname = ROA, ; + Top = 255 + *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> + + ADD OBJECT '_pageframe1.Page2.grdFacturiAlocate' AS _grdbase WITH ; + Anchor = 0, ; + ColumnCount = 3, ; + DeleteMark = .F., ; + FontSize = 10, ; + Height = 167, ; + Left = 357, ; + Name = "grdFacturiAlocate", ; + Panel = 1, ; + RecordSource = "crsFacturiAlocate", ; + RowHeight = 19, ; + ScrollBars = 2, ; + Top = 28, ; + Width = 367, ; + Column1.ControlSource = "crsFacturiAlocate.seria", ; + Column1.FontSize = 10, ; + Column1.Name = "Column1", ; + Column1.Width = 80, ; + Column2.ControlSource = "crsFacturiAlocate.nr1", ; + Column2.FontSize = 10, ; + Column2.Name = "Column2", ; + Column2.Width = 135, ; + Column3.ControlSource = "crsFacturiAlocate.nr2", ; + Column3.FontSize = 10, ; + Column3.Name = "Column3", ; + Column3.Width = 117 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_pageframe1.Page2.grdFacturiAlocate.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Seria", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2.grdFacturiAlocate.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2.grdFacturiAlocate.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. inceput", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2.grdFacturiAlocate.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2.grdFacturiAlocate.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. sfarsit", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2.grdFacturiAlocate.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2.grdFacturiEmise' AS _grdbase WITH ; + Anchor = 5, ; + ColumnCount = 3, ; + DeleteMark = .F., ; + FontSize = 10, ; + Height = 40, ; + Left = 357, ; + Name = "grdFacturiEmise", ; + Panel = 1, ; + RecordSource = "crsFacturiEmise", ; + RowHeight = 19, ; + ScrollBars = 2, ; + Top = 237, ; + Width = 365, ; + Column1.ControlSource = "seria", ; + Column1.FontSize = 10, ; + Column1.Name = "Column1", ; + Column1.Width = 78, ; + Column2.ControlSource = "nr1", ; + Column2.FontSize = 10, ; + Column2.Name = "Column2", ; + Column2.Width = 135, ; + Column3.ControlSource = "nr2", ; + Column3.FontSize = 10, ; + Column3.Name = "Column3", ; + Column3.Width = 117 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_pageframe1.Page2.grdFacturiEmise.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Seria", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2.grdFacturiEmise.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2.grdFacturiEmise.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. inceput", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2.grdFacturiEmise.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2.grdFacturiEmise.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. sfarsit", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2.grdFacturiEmise.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2.grdFacturiEmiseTip' AS _grdbase WITH ; + Anchor = 4, ; + ColumnCount = 3, ; + DeleteMark = .F., ; + FontSize = 10, ; + Height = 98, ; + Left = 11, ; + Name = "grdFacturiEmiseTip", ; + Panel = 1, ; + RecordSource = "crsFacturiEmiseTip", ; + RowHeight = 19, ; + ScrollBars = 2, ; + Top = 197, ; + Width = 316, ; + Column1.ColumnOrder = 2, ; + Column1.ControlSource = "seria", ; + Column1.FontSize = 10, ; + Column1.Name = "Column1", ; + Column1.Width = 93, ; + Column2.ColumnOrder = 3, ; + Column2.ControlSource = "nr", ; + Column2.FontSize = 10, ; + Column2.Name = "Column2", ; + Column2.Width = 102, ; + Column3.ColumnOrder = 1, ; + Column3.ControlSource = "tip", ; + Column3.FontSize = 10, ; + Column3.Name = "Column3", ; + Column3.Width = 86 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_pageframe1.Page2.grdFacturiEmiseTip.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Seria", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2.grdFacturiEmiseTip.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2.grdFacturiEmiseTip.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Numar", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2.grdFacturiEmiseTip.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2.grdFacturiEmiseTip.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2.grdFacturiEmiseTip.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2.grdSectiuneaI' AS _grdbase WITH ; + Anchor = 5, ; + ColumnCount = 4, ; + DeleteMark = .F., ; + FontSize = 10, ; + Height = 98, ; + Left = 11, ; + Name = "grdSectiuneaI", ; + Panel = 1, ; + RecordSource = "crsSectiuneaI", ; + RowHeight = 19, ; + ScrollBars = 2, ; + Top = 53, ; + Width = 319, ; + Column1.ControlSource = "punct", ; + Column1.FontSize = 10, ; + Column1.Name = "Column1", ; + Column1.Width = 62, ; + Column2.ControlSource = "proctva", ; + Column2.FontSize = 10, ; + Column2.Name = "Column2", ; + Column2.Width = 60, ; + Column3.ControlSource = "baza", ; + Column3.FontSize = 10, ; + Column3.Name = "Column3", ; + Column3.Width = 84, ; + Column4.ControlSource = "tva", ; + Column4.FontSize = 10, ; + Column4.Name = "Column4" + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_pageframe1.Page2.grdSectiuneaI.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sectiunea", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2.grdSectiuneaI.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2.grdSectiuneaI.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cota TVA", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2.grdSectiuneaI.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2.grdSectiuneaI.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Baza", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2.grdSectiuneaI.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2.grdSectiuneaI.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page2.grdSectiuneaI.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page2.lblAutofacturi' AS _label WITH ; + Anchor = 4, ; + AutoSize = .T., ; + Caption = "2.2 Detalii autofacturi", ; + Height = 18, ; + Left = 11, ; + Name = "lblAutofacturi", ; + Top = 296, ; + Width = 122, ; + WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page2.txtNrFacturiEmise' AS _textbox WITH ; + Anchor = 0, ; + ControlSource = "poUnitate.nr_facturi_emise", ; + Format = "RK", ; + Height = 23, ; + Left = 623, ; + Name = "txtNrFacturiEmise", ; + Top = 208, ; + Width = 60 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page3._label1' AS _label WITH ; + Anchor = 9, ; + AutoSize = .F., ; + Caption = "4.1 TVA deductibila aferenta facturilor achitate in perioada de raportare indiferent de data in care acestea au fost primite de la persoane impozabile care aplica sistemul de TVA la incasare, defalcata pe fiecare cota de TVA", ; + FontSize = 8, ; + Height = 47, ; + Left = 299, ; + Name = "_label1", ; + Top = 43, ; + Width = 414, ; + WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page3._label10' AS _label WITH ; + Anchor = 9, ; + AutoSize = .T., ; + Caption = "6.2 Persoanele impozabile care aplica regimul special pt bunurile second-hand, opere de arta, obiecte de colectie si antichitati", ; + FontSize = 8, ; + Height = 30, ; + Left = 298, ; + Name = "_label10", ; + Top = 342, ; + Width = 426, ; + WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page3._label11' AS _label WITH ; + Anchor = 1, ; + AutoSize = .T., ; + Caption = "6. Agentii turism si Second Hand TVA colectata", ; + Height = 18, ; + Left = 10, ; + Name = "_label11", ; + Top = 281, ; + Width = 274, ; + WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page3._label2' AS _label WITH ; + Anchor = 9, ; + AutoSize = .F., ; + Caption = "5.1 TVA colectata aferenta facturilor incasate in perioada de raportare indiferent de data in care acestea au fost emise de catre persoana impozabila care aplica sistemul de TVA la incasare, defalcata pe fiecare cota de TVA", ; + FontSize = 8, ; + Height = 47, ; + Left = 299, ; + Name = "_label2", ; + Top = 116, ; + Width = 430, ; + WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page3._label3' AS _label WITH ; + Anchor = 9, ; + AutoSize = .F., ; + Caption = "5.2 TVA deductibila aferenta facturilor achitate in perioada de raportare indiferent de data in care acestea au fost primite de la persoane impozabile care aplica sistemul normal de TVA, defalcata pe fiecare cota de TVA", ; + FontSize = 8, ; + Height = 47, ; + Left = 299, ; + Name = "_label3", ; + Top = 160, ; + Width = 414, ; + WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page3._label4' AS _label WITH ; + Anchor = 9, ; + AutoSize = .F., ; + Caption = "4. TVA exigibil sistem normal de TVA", ; + FontBold = .T., ; + Height = 17, ; + Left = 299, ; + Name = "_label4", ; + Top = 27, ; + Width = 205, ; + WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page3._label5' AS _label WITH ; + Anchor = 9, ; + AutoSize = .F., ; + Caption = "5.3 TVA deductibila aferenta facturilor achitate in perioada de raportare indiferent de data in care acestea au fost primite de la persoane impozabile care aplica sistemul de TVA la incasare, defalcata pe fiecare cota de TVA", ; + FontSize = 8, ; + Height = 47, ; + Left = 299, ; + Name = "_label5", ; + Top = 204, ; + Width = 414, ; + WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page3._label6' AS _label WITH ; + Anchor = 9, ; + AutoSize = .F., ; + Caption = "5. TVA exigibil sistemul TVA la Incasare", ; + FontBold = .T., ; + Height = 17, ; + Left = 299, ; + Name = "_label6", ; + Top = 101, ; + Width = 221, ; + WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page3._label7' AS _label WITH ; + Anchor = 1, ; + AutoSize = .T., ; + Caption = "4. si 5. TVA exigibil", ; + Height = 18, ; + Left = 11, ; + Name = "_label7", ; + Top = 21, ; + Width = 111, ; + WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page3._label8' AS _label WITH ; + Anchor = 9, ; + AutoSize = .F., ; + Caption = "6. TVA colectata aferenta marjei de profit agentiile de turism, pt bunurile second-hand, opere de arta, obiecte de colectie si antichitati", ; + FontBold = .T., ; + Height = 32, ; + Left = 298, ; + Name = "_label8", ; + Top = 287, ; + Width = 407, ; + WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page3._label9' AS _label WITH ; + Anchor = 9, ; + AutoSize = .T., ; + Caption = "6.1 Persoanele impozabile care aplica regimul special pt agentiile de turism", ; + FontSize = 8, ; + Height = 16, ; + Left = 298, ; + Name = "_label9", ; + Top = 320, ; + Width = 356, ; + WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page3.grdSectiuneaI4' AS _grdbase WITH ; + Anchor = 11, ; + ColumnCount = 8, ; + DeleteMark = .F., ; + FontSize = 10, ; + Height = 110, ; + Left = 11, ; + Name = "grdSectiuneaI4", ; + Panel = 1, ; + RecordSource = "crsSectiuneaI4", ; + RowHeight = 19, ; + ScrollBars = 3, ; + Top = 42, ; + Width = 234, ; + Column1.ControlSource = "punct", ; + Column1.FontSize = 10, ; + Column1.Name = "Column1", ; + Column1.Width = 62, ; + Column2.ColumnOrder = 3, ; + Column2.ControlSource = "tva24", ; + Column2.FontSize = 10, ; + Column2.Name = "Column2", ; + Column2.Width = 85, ; + Column3.ColumnOrder = 5, ; + Column3.ControlSource = "tva20", ; + Column3.FontSize = 10, ; + Column3.Name = "Column3", ; + Column3.Width = 84, ; + Column4.ColumnOrder = 6, ; + Column4.ControlSource = "tva19", ; + Column4.FontSize = 10, ; + Column4.Name = "Column4", ; + Column5.ColumnOrder = 7, ; + Column5.ControlSource = "tva09", ; + Column5.FontSize = 10, ; + Column5.Name = "Column5", ; + Column6.ColumnOrder = 8, ; + Column6.ControlSource = "tva05", ; + Column6.FontSize = 10, ; + Column6.Name = "Column6", ; + Column7.ColumnOrder = 2, ; + Column7.ControlSource = "tva21", ; + Column7.FontSize = 10, ; + Column7.Name = "Column7", ; + Column8.ColumnOrder = 4, ; + Column8.ControlSource = "tva11", ; + Column8.FontSize = 10, ; + Column8.Name = "Column8" + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_pageframe1.Page3.grdSectiuneaI4.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sectiunea", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page3.grdSectiuneaI4.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page3.grdSectiuneaI4.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA 24%", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page3.grdSectiuneaI4.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page3.grdSectiuneaI4.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA 20%", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page3.grdSectiuneaI4.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page3.grdSectiuneaI4.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA 19%", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page3.grdSectiuneaI4.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page3.grdSectiuneaI4.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA 9%", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page3.grdSectiuneaI4.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page3.grdSectiuneaI4.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA 5%", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page3.grdSectiuneaI4.Column6.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page3.grdSectiuneaI4.Column7.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA 21%", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page3.grdSectiuneaI4.Column7.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page3.grdSectiuneaI4.Column8.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA 11%", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page3.grdSectiuneaI4.Column8.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page3.grdSectiuneaI6' AS _grdbase WITH ; + Anchor = 11, ; + ColumnCount = 5, ; + DeleteMark = .F., ; + FontSize = 10, ; + HeaderHeight = 19, ; + Height = 86, ; + Left = 10, ; + Name = "grdSectiuneaI6", ; + Panel = 1, ; + RecordSource = "crsSectiuneaI6", ; + RowHeight = 19, ; + ScrollBars = 3, ; + Top = 302, ; + Width = 240, ; + Column1.ControlSource = "punct", ; + Column1.FontSize = 10, ; + Column1.Name = "Column1", ; + Column1.Width = 59, ; + Column2.ControlSource = "incasari", ; + Column2.FontSize = 10, ; + Column2.Name = "Column2", ; + Column2.Width = 77, ; + Column3.ControlSource = "costuri", ; + Column3.FontSize = 10, ; + Column3.Name = "Column3", ; + Column3.Width = 84, ; + Column4.ControlSource = "marja", ; + Column4.FontSize = 10, ; + Column4.Name = "Column4", ; + Column5.ControlSource = "tva", ; + Column5.FontSize = 10, ; + Column5.Name = "Column5" + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_pageframe1.Page3.grdSectiuneaI6.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sectiunea", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page3.grdSectiuneaI6.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page3.grdSectiuneaI6.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Incasari / Pret vanzare", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page3.grdSectiuneaI6.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page3.grdSectiuneaI6.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Costuri / Pret cumparare", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page3.grdSectiuneaI6.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page3.grdSectiuneaI6.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Marja profit", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page3.grdSectiuneaI6.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page3.grdSectiuneaI6.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page3.grdSectiuneaI6.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4._grdfooter1' AS _grdfooter WITH ; + Anchor = 14, ; + ccolwithlabel = cFdoc, ; + Comment = "*:OnResize=sb", ; + csourcegrid = grdJTVA, ; + csumcolumns = cBaza,cTVA,cTIBaza,cTITVA,cBaza24,cBaza20,cBaza19,cBaza09,cBaza05,cBaza00,cTVA24,cTVA20,cTVA19,cTVA09,cTVA05,cRO24T,cRO20T,cRO19T,cRO09T,cRO05T, ; + ctotallabelexpression = 'TOTAL', ; + Height = 35, ; + Left = 3, ; + Name = "_grdfooter1", ; + TabIndex = 18, ; + Top = 352, ; + Width = 764, ; + ZOrderSet = 3 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_pageframe1.Page4._label7' AS _label WITH ; + Anchor = 1, ; + AutoSize = .F., ; + Caption = "Documente Registre TVA", ; + FontBold = .T., ; + Height = 17, ; + Left = 10, ; + Name = "_label7", ; + Top = 10, ; + Width = 141, ; + WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page4.But_verifica1' AS but_verifica WITH ; + Anchor = 8, ; + Left = 736, ; + Name = "But_verifica1", ; + TabIndex = 14, ; + ToolTipText = "Verificare coduri fiscale", ; + Top = 2 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA' AS _grdbase WITH ; + Anchor = 15, ; + ColumnCount = 64, ; + DeleteMark = .F., ; + FontSize = 10, ; + HeaderHeight = 38, ; + Height = 323, ; + Left = 3, ; + Name = "grdJTVA", ; + Panel = 1, ; + ReadOnly = .T., ; + RecordSource = "crsjtva", ; + RecordSourceType = 1, ; + RowHeight = 19, ; + Top = 29, ; + Width = 764, ; + Column1.ColumnOrder = 3, ; + Column1.ControlSource = "crsjtva.tippart", ; + Column1.FontSize = 10, ; + Column1.Name = "Column1", ; + Column1.ReadOnly = .T., ; + Column2.ColumnOrder = 5, ; + Column2.ControlSource = "crsjtva.tipdoc", ; + Column2.FontSize = 10, ; + Column2.Name = "Column2", ; + Column2.ReadOnly = .T., ; + Column3.ColumnOrder = 6, ; + Column3.ControlSource = "crsjtva.tip", ; + Column3.FontSize = 10, ; + Column3.Name = "Column3", ; + Column3.ReadOnly = .T., ; + Column3.Width = 43, ; + Column4.ColumnOrder = 10, ; + Column4.ControlSource = "crsjtva.dataact", ; + Column4.FontSize = 10, ; + Column4.Name = "Column4", ; + Column4.ReadOnly = .T., ; + Column5.ColumnOrder = 12, ; + Column5.ControlSource = "crsjtva.serie_act", ; + Column5.FontSize = 10, ; + Column5.Name = "Column5", ; + Column5.ReadOnly = .T., ; + Column6.ColumnOrder = 13, ; + Column6.ControlSource = "crsjtva.nract", ; + Column6.FontSize = 10, ; + Column6.Name = "Column6", ; + Column6.ReadOnly = .T., ; + Column7.ColumnOrder = 63, ; + Column7.ControlSource = "crsjtva.id_fdoc", ; + Column7.FontSize = 10, ; + Column7.Name = "Column7", ; + Column7.ReadOnly = .T., ; + Column8.ColumnOrder = 9, ; + Column8.ControlSource = "crsjtva.fel_document", ; + Column8.FontSize = 10, ; + Column8.Name = "cFdoc", ; + Column8.ReadOnly = .T., ; + Column9.ColumnOrder = 62, ; + Column9.ControlSource = "crsjtva.id_sucursala", ; + Column9.FontSize = 10, ; + Column9.Name = "Column9", ; + Column9.ReadOnly = .T., ; + Column10.ColumnOrder = 61, ; + Column10.ControlSource = "crsjtva.sucursala", ; + Column10.FontSize = 10, ; + Column10.Name = "Column10", ; + Column10.ReadOnly = .T., ; + Column11.ColumnOrder = 16, ; + Column11.ControlSource = "crsjtva.iscif", ; + Column11.FontSize = 10, ; + Column11.Name = "Column11", ; + Column11.ReadOnly = .T., ; + Column11.ToolTipText = "0 = CNP/fara CIF, 1 = CIF", ; + Column11.Width = 29, ; + Column12.ColumnOrder = 17, ; + Column12.ControlSource = "crsjtva.cifvalid", ; + Column12.FontSize = 10, ; + Column12.Name = "Column12", ; + Column12.ReadOnly = .T., ; + Column12.Width = 53, ; + Column13.ColumnOrder = 64, ; + Column13.ControlSource = "crsjtva.id_part", ; + Column13.FontSize = 10, ; + Column13.Name = "Column13", ; + Column13.ReadOnly = .T., ; + Column14.ColumnOrder = 15, ; + Column14.ControlSource = "crsjtva.cod_fiscal", ; + Column14.FontSize = 10, ; + Column14.Name = "Column14", ; + Column14.ReadOnly = .T., ; + Column14.Width = 88, ; + Column15.ColumnOrder = 59, ; + Column15.ControlSource = "crsjtva.cod_fiscalfro", ; + Column15.FontSize = 10, ; + Column15.Name = "Column15", ; + Column15.ReadOnly = .T., ; + Column16.ColumnOrder = 60, ; + Column16.ControlSource = "crsjtva.atribut_fiscal", ; + Column16.FontSize = 10, ; + Column16.Name = "Column16", ; + Column16.ReadOnly = .T., ; + Column17.ColumnOrder = 14, ; + Column17.ControlSource = "crsjtva.denumire", ; + Column17.FontSize = 10, ; + Column17.Name = "Column17", ; + Column17.ReadOnly = .T., ; + Column17.Width = 142, ; + Column18.ColumnOrder = 19, ; + Column18.ControlSource = "crsjtva.baza", ; + Column18.FontSize = 10, ; + Column18.Format = "R", ; + Column18.InputMask = (get_mask(12,gnZ)), ; + Column18.Name = "cBaza", ; + Column18.ReadOnly = .T., ; + Column19.ColumnOrder = 20, ; + Column19.ControlSource = "crsjtva.tva", ; + Column19.FontSize = 10, ; + Column19.Format = "R", ; + Column19.InputMask = (get_mask(12,gnZ)), ; + Column19.Name = "cTVA", ; + Column19.ReadOnly = .T., ; + Column20.ColumnOrder = 21, ; + Column20.ControlSource = "crsjtva.tibaza", ; + Column20.FontSize = 10, ; + Column20.Format = "R", ; + Column20.InputMask = (get_mask(12,gnZ)), ; + Column20.Name = "cTIBaza", ; + Column20.ReadOnly = .T., ; + Column21.ColumnOrder = 22, ; + Column21.ControlSource = "crsjtva.titva", ; + Column21.FontSize = 10, ; + Column21.Format = "R", ; + Column21.InputMask = (get_mask(12,gnZ)), ; + Column21.Name = "cTITVA", ; + Column21.ReadOnly = .T., ; + Column22.ColumnOrder = 25, ; + Column22.ControlSource = "crsjtva.baza24", ; + Column22.FontSize = 10, ; + Column22.Format = "R", ; + Column22.InputMask = (get_mask(12,gnZ)), ; + Column22.Name = "cBaza24", ; + Column22.ReadOnly = .T., ; + Column23.ColumnOrder = 26, ; + Column23.ControlSource = "crsjtva.baza20", ; + Column23.FontSize = 10, ; + Column23.Format = "R", ; + Column23.InputMask = (get_mask(12,gnZ)), ; + Column23.Name = "cBaza20", ; + Column23.ReadOnly = .T., ; + Column24.ColumnOrder = 27, ; + Column24.ControlSource = "crsjtva.baza19", ; + Column24.FontSize = 10, ; + Column24.InputMask = (get_mask(12,gnZ)), ; + Column24.Name = "cBaza19", ; + Column24.ReadOnly = .T., ; + Column25.ColumnOrder = 28, ; + Column25.ControlSource = "crsjtva.baza09", ; + Column25.FontSize = 10, ; + Column25.Format = "R", ; + Column25.InputMask = (get_mask(12,gnZ)), ; + Column25.Name = "cBaza09", ; + Column25.ReadOnly = .T., ; + Column26.ColumnOrder = 29, ; + Column26.ControlSource = "crsjtva.baza05", ; + Column26.FontSize = 10, ; + Column26.Format = "R", ; + Column26.InputMask = (get_mask(12,gnZ)), ; + Column26.Name = "cBaza05", ; + Column26.ReadOnly = .T., ; + Column27.ColumnOrder = 30, ; + Column27.ControlSource = "crsjtva.baza00", ; + Column27.FontSize = 10, ; + Column27.Format = "R", ; + Column27.InputMask = (get_mask(12,gnZ)), ; + Column27.Name = "cBaza00", ; + Column27.ReadOnly = .T., ; + Column28.ColumnOrder = 33, ; + Column28.ControlSource = "crsjtva.tva24", ; + Column28.FontSize = 10, ; + Column28.Format = "R", ; + Column28.InputMask = (get_mask(12,gnZ)), ; + Column28.Name = "cTVA24", ; + Column28.ReadOnly = .T., ; + Column29.ColumnOrder = 34, ; + Column29.ControlSource = "crsjtva.tva20", ; + Column29.FontSize = 10, ; + Column29.Format = "R", ; + Column29.InputMask = (get_mask(12,gnZ)), ; + Column29.Name = "cTVA20", ; + Column29.ReadOnly = .T., ; + Column30.ColumnOrder = 35, ; + Column30.ControlSource = "crsjtva.tva19", ; + Column30.FontSize = 10, ; + Column30.Format = "R", ; + Column30.InputMask = (get_mask(12,gnZ)), ; + Column30.Name = "cTVA19", ; + Column30.ReadOnly = .T., ; + Column31.ColumnOrder = 36, ; + Column31.ControlSource = "crsjtva.tva09", ; + Column31.FontSize = 10, ; + Column31.Format = "R", ; + Column31.InputMask = (get_mask(12,gnZ)), ; + Column31.Name = "cTVA09", ; + Column31.ReadOnly = .T., ; + Column32.ColumnOrder = 37, ; + Column32.ControlSource = "crsjtva.tva05", ; + Column32.FontSize = 10, ; + Column32.Format = "R", ; + Column32.InputMask = (get_mask(12,gnZ)), ; + Column32.Name = "cTVA05", ; + Column32.ReadOnly = .T., ; + Column33.ColumnOrder = 47, ; + Column33.ControlSource = "crsjtva.tibaza24", ; + Column33.FontSize = 10, ; + Column33.Name = "Column33", ; + Column33.ReadOnly = .T., ; + Column34.ColumnOrder = 48, ; + Column34.ControlSource = "crsjtva.tibaza20", ; + Column34.FontSize = 10, ; + Column34.Name = "Column34", ; + Column34.ReadOnly = .T., ; + Column35.ColumnOrder = 49, ; + Column35.ControlSource = "crsjtva.tibaza19", ; + Column35.FontSize = 10, ; + Column35.Name = "Column35", ; + Column35.ReadOnly = .T., ; + Column36.ColumnOrder = 50, ; + Column36.ControlSource = "crsjtva.tibaza09", ; + Column36.FontSize = 10, ; + Column36.Name = "Column36", ; + Column36.ReadOnly = .T., ; + Column37.ColumnOrder = 51, ; + Column37.ControlSource = "crsjtva.tibaza05", ; + Column37.FontSize = 10, ; + Column37.Name = "Column37", ; + Column37.ReadOnly = .T., ; + Column38.ColumnOrder = 54, ; + Column38.ControlSource = "crsjtva.titva24", ; + Column38.FontSize = 10, ; + Column38.Name = "Column38", ; + Column38.ReadOnly = .T., ; + Column39.ColumnOrder = 55, ; + Column39.ControlSource = "crsjtva.titva20", ; + Column39.FontSize = 10, ; + Column39.Name = "Column39", ; + Column39.ReadOnly = .T., ; + Column40.ColumnOrder = 56, ; + Column40.ControlSource = "crsjtva.titva19", ; + Column40.FontSize = 10, ; + Column40.Name = "Column40", ; + Column40.ReadOnly = .T., ; + Column41.ColumnOrder = 57, ; + Column41.ControlSource = "crsjtva.titva09", ; + Column41.FontSize = 10, ; + Column41.Name = "Column41", ; + Column41.ReadOnly = .T., ; + Column42.ColumnOrder = 58, ; + Column42.ControlSource = "crsjtva.titva05", ; + Column42.FontSize = 10, ; + Column42.Name = "Column42", ; + Column42.ReadOnly = .T., ; + Column43.Alignment = 2, ; + Column43.ColumnOrder = 7, ; + Column43.ControlSource = "crsjtva.tva_incasare", ; + Column43.CurrentControl = "Check1", ; + Column43.FontSize = 10, ; + Column43.Name = "Column43", ; + Column43.ReadOnly = .T., ; + Column43.Sparse = .F., ; + Column43.Width = 81, ; + Column44.Alignment = 2, ; + Column44.ColumnOrder = 8, ; + Column44.ControlSource = "crsJTVA.FACT_TVA_INCASARE", ; + Column44.CurrentControl = "Check1", ; + Column44.FontSize = 10, ; + Column44.Name = "Column44", ; + Column44.ReadOnly = .T., ; + Column44.Sparse = .F., ; + Column44.Width = 89, ; + Column45.ColumnOrder = 1, ; + Column45.ControlSource = "crsJTVA.tipj", ; + Column45.FontSize = 10, ; + Column45.Name = "Column45", ; + Column45.ReadOnly = .T., ; + Column46.Alignment = 2, ; + Column46.ColumnOrder = 2, ; + Column46.ControlSource = "emisa_perioada", ; + Column46.CurrentControl = "Check1", ; + Column46.FontSize = 10, ; + Column46.Name = "cEmisaPerioada", ; + Column46.ReadOnly = .T., ; + Column46.Sparse = .F., ; + Column47.ColumnOrder = 40, ; + Column47.ControlSource = "RO24T", ; + Column47.FontSize = 10, ; + Column47.Format = "R", ; + Column47.InputMask = (get_mask(12,gnZ)), ; + Column47.Name = "cRO24T", ; + Column47.ReadOnly = .T., ; + Column48.ColumnOrder = 41, ; + Column48.ControlSource = "RO20T", ; + Column48.FontSize = 10, ; + Column48.Format = "R", ; + Column48.InputMask = (get_mask(12,gnZ)), ; + Column48.Name = "cRO20T", ; + Column48.ReadOnly = .T., ; + Column49.ColumnOrder = 42, ; + Column49.ControlSource = "RO19T", ; + Column49.FontSize = 10, ; + Column49.Format = "R", ; + Column49.InputMask = (get_mask(12,gnZ)), ; + Column49.Name = "cRO19T", ; + Column49.ReadOnly = .T., ; + Column50.ColumnOrder = 43, ; + Column50.ControlSource = "RO09T", ; + Column50.FontSize = 10, ; + Column50.Format = "R", ; + Column50.InputMask = (get_mask(12,gnZ)), ; + Column50.Name = "cRO09T", ; + Column50.ReadOnly = .T., ; + Column51.ColumnOrder = 44, ; + Column51.ControlSource = "RO05T", ; + Column51.FontSize = 10, ; + Column51.Format = "R", ; + Column51.InputMask = (get_mask(12,gnZ)), ; + Column51.Name = "cRO05T", ; + Column51.ReadOnly = .T., ; + Column52.ColumnOrder = 11, ; + Column52.ControlSource = "crsjtva.dataireg", ; + Column52.FontSize = 10, ; + Column52.Name = "Column52", ; + Column52.ReadOnly = .T., ; + Column52.Width = 75, ; + Column53.ColumnOrder = 4, ; + Column53.ControlSource = "crsjtva.tip_persoana", ; + Column53.FontSize = 10, ; + Column53.Name = "Column53", ; + Column53.ReadOnly = .T., ; + Column53.ToolTipText = "0/1 = persoana juridica, 2 = persoana fizica", ; + Column53.Width = 65, ; + Column54.ColumnOrder = 18, ; + Column54.ControlSource = "crsjtva.baza + crsjtva.tva", ; + Column54.FontSize = 10, ; + Column54.Format = "R", ; + Column54.InputMask = (get_mask(12,gnZ)), ; + Column54.Name = "cTotal", ; + Column54.ReadOnly = .T., ; + Column54.Width = 74, ; + Column55.ColumnOrder = 23, ; + Column55.ControlSource = "crsjtva.baza21", ; + Column55.FontSize = 10, ; + Column55.Name = "Column55", ; + Column55.ReadOnly = .T., ; + Column56.ColumnOrder = 24, ; + Column56.ControlSource = "crsjtva.baza11", ; + Column56.FontSize = 10, ; + Column56.Name = "Column56", ; + Column56.ReadOnly = .T., ; + Column57.ColumnOrder = 31, ; + Column57.ControlSource = "crsjtva.tva21", ; + Column57.FontSize = 10, ; + Column57.Name = "Column57", ; + Column57.ReadOnly = .T., ; + Column58.ColumnOrder = 32, ; + Column58.ControlSource = "crsjtva.tva11", ; + Column58.FontSize = 10, ; + Column58.Name = "Column58", ; + Column58.ReadOnly = .T., ; + Column59.ColumnOrder = 45, ; + Column59.ControlSource = "crsjtva.tibaza21", ; + Column59.FontSize = 10, ; + Column59.Name = "Column59", ; + Column59.ReadOnly = .T., ; + Column60.ColumnOrder = 46, ; + Column60.ControlSource = "crsjtva.tibaza11", ; + Column60.FontSize = 10, ; + Column60.Name = "Column60", ; + Column60.ReadOnly = .T., ; + Column61.ColumnOrder = 52, ; + Column61.ControlSource = "crsjtva.titva21", ; + Column61.FontSize = 10, ; + Column61.Name = "Column61", ; + Column61.ReadOnly = .T., ; + Column62.ColumnOrder = 53, ; + Column62.ControlSource = "crsjtva.titva11", ; + Column62.FontSize = 10, ; + Column62.Name = "Column62", ; + Column62.ReadOnly = .T., ; + Column63.ColumnOrder = 38, ; + Column63.ControlSource = "RO21T", ; + Column63.FontSize = 10, ; + Column63.Name = "Column63", ; + Column63.ReadOnly = .T., ; + Column64.ColumnOrder = 39, ; + Column64.ControlSource = "RO11T", ; + Column64.FontSize = 10, ; + Column64.Name = "Column64", ; + Column64.ReadOnly = .T. + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cBaza.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Baza", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cBaza.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cBaza00.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Baza 0%", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cBaza00.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cBaza05.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Baza 05%", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cBaza05.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cBaza09.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Baza 09%", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cBaza09.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cBaza19.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Baza 19%", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cBaza19.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cBaza20.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Baza 20%", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cBaza20.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cBaza24.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Baza 24%", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cBaza24.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cEmisaPerioada.Check1' AS checkbox WITH ; + Alignment = 0, ; + Caption = "", ; + Centered = .T., ; + FontSize = 10, ; + Height = 17, ; + Left = 49, ; + Name = "Check1", ; + ReadOnly = .T., ; + Top = 59, ; + Width = 60 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cEmisaPerioada.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Emisa in perioada", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cEmisaPerioada.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cFdoc.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Fel doc.", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cFdoc.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip part.", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column10.Header1' AS header WITH ; + Caption = "sucursala", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column10.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column11.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "CIF", ; + FontSize = 10, ; + Name = "Header1", ; + ToolTipText = "0 = CNP/fara CIF, 1 = CIF" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column11.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column12.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "CIF valid", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column12.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column13.Header1' AS header WITH ; + Caption = "id_part", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column13.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column14.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod fiscal", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column14.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column15.Header1' AS header WITH ; + Caption = "cod_fiscalfro", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column15.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column16.Header1' AS header WITH ; + Caption = "atribut_fiscal", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column16.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column17.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Denumire", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column17.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip doc.", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column33.Header1' AS header WITH ; + Caption = "tibaza24", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column33.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column34.Header1' AS header WITH ; + Caption = "tibaza20", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column34.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column35.Header1' AS header WITH ; + Caption = "tibaza19", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column35.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column36.Header1' AS header WITH ; + Caption = "tibaza09", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column36.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column37.Header1' AS header WITH ; + Caption = "tibaza05", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column37.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column38.Header1' AS header WITH ; + Caption = "titva24", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column38.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column39.Header1' AS header WITH ; + Caption = "titva20", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column39.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data doc.", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column40.Header1' AS header WITH ; + Caption = "titva19", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column40.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column41.Header1' AS header WITH ; + Caption = "titva09", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column41.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column42.Header1' AS header WITH ; + Caption = "titva05", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column42.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column43.Check1' AS checkbox WITH ; + Alignment = 0, ; + Caption = "", ; + Centered = .T., ; + FontSize = 10, ; + Height = 17, ; + Left = 73, ; + Name = "Check1", ; + ReadOnly = .T., ; + Top = 83, ; + Width = 60 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column43.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Factura TVA Incasare", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column43.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column44.Check1' AS checkbox WITH ; + Alignment = 0, ; + Caption = "", ; + Centered = .T., ; + FontSize = 10, ; + Height = 17, ; + Left = 144, ; + Name = "Check1", ; + ReadOnly = .T., ; + Top = 131, ; + Width = 60 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column44.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Factura de la furnizor TVA Incasare", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column44.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column45.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Jurnal TVA", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column45.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Serie doc.", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column52.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data inreg.", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column52.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column53.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip persoana", ; + FontSize = 10, ; + Name = "Header1", ; + ToolTipText = "0/1 = persoana juridica, 2 = persoana fizica", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column53.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column55.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "BAZA 21%", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column55.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column56.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "BAZA 11%", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column56.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column57.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA 21%", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column57.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column58.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA 11%", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column58.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column59.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TI BAZA 21%", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column59.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. doc.", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column6.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column60.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TI BAZA 11%", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column60.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column61.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TI TVA 21%", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column61.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column62.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TI TVA 11%", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column62.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column63.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA ex. 21%", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column63.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column64.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA ex. 11%", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column64.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column7.Header1' AS header WITH ; + Caption = "id_fdoc", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column7.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column9.Header1' AS header WITH ; + Caption = "id_sucursala", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.Column9.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cRO05T.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA ex. 05%", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cRO05T.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cRO09T.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA ex. 09%", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cRO09T.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cRO19T.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA ex. 19%", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cRO19T.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cRO20T.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA ex. 20%", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cRO20T.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cRO24T.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA ex. 24%", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cRO24T.Text1' AS textbox WITH ; + Alignment = 3, ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cTIBaza.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Baza TI", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cTIBaza.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cTITVA.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA TI", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cTITVA.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cTotal.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Total (baza+tva)", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cTotal.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cTVA.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cTVA.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cTVA05.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA 05%", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cTVA05.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cTVA09.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA 09%", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cTVA09.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cTVA19.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA 19%", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cTVA19.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cTVA20.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA 20%", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cTVA20.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cTVA24.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA 24%", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page4.grdJTVA.cTVA24.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page4.Gridextra1' AS gridextra WITH ; + gridexpression = thisform._pageframe1.page4.grdJTVA, ; + Left = 167, ; + Name = "Gridextra1", ; + Top = 8 + *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> + + ADD OBJECT '_pageframe1.Page5._label7' AS _label WITH ; + Anchor = 1, ; + AutoSize = .T., ; + Caption = "AMEF / exceptate AMEF", ; + FontBold = .T., ; + Height = 18, ; + Left = 10, ; + Name = "_label7", ; + Top = 10, ; + Width = 151, ; + WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef' AS _grdbase WITH ; + Anchor = 15, ; + ColumnCount = 17, ; + DeleteMark = .F., ; + FontSize = 10, ; + Height = 95, ; + Left = 8, ; + Name = "grdCrsamef", ; + RecordSource = "crsamef", ; + RecordSourceType = 1, ; + RowHeight = 19, ; + Top = 37, ; + Width = 764, ; + Column1.ControlSource = "crsamef.tip", ; + Column1.FontSize = 10, ; + Column1.Name = "Column1", ; + Column1.Visible = .T., ; + Column2.ControlSource = "crsamef.luna", ; + Column2.FontSize = 10, ; + Column2.Name = "Column2", ; + Column2.Visible = .T., ; + Column3.ControlSource = "crsamef.nramef", ; + Column3.FontSize = 10, ; + Column3.Name = "Column3", ; + Column3.Visible = .T., ; + Column4.ControlSource = "crsamef.nrbonuri", ; + Column4.FontSize = 10, ; + Column4.Name = "Column4", ; + Column4.Visible = .T., ; + Column5.ControlSource = "crsamef.incasari", ; + Column5.FontSize = 10, ; + Column5.Name = "Column5", ; + Column5.Visible = .T., ; + Column6.ControlSource = "crsamef.baza05", ; + Column6.FontSize = 10, ; + Column6.Name = "Column6", ; + Column6.Visible = .T., ; + Column7.ControlSource = "crsamef.tva05", ; + Column7.FontSize = 10, ; + Column7.Name = "Column7", ; + Column7.Visible = .T., ; + Column8.ControlSource = "crsamef.baza09", ; + Column8.FontSize = 10, ; + Column8.Name = "Column8", ; + Column8.Visible = .T., ; + Column9.ControlSource = "crsamef.tva09", ; + Column9.FontSize = 10, ; + Column9.Name = "Column9", ; + Column9.Visible = .T., ; + Column10.ControlSource = "crsamef.baza19", ; + Column10.FontSize = 10, ; + Column10.Name = "Column10", ; + Column10.Visible = .T., ; + Column11.ControlSource = "crsamef.tva19", ; + Column11.FontSize = 10, ; + Column11.Name = "Column11", ; + Column11.Visible = .T., ; + Column12.ControlSource = "crsamef.baza20", ; + Column12.FontSize = 10, ; + Column12.Name = "Column12", ; + Column12.Visible = .T., ; + Column13.ControlSource = "crsamef.tva20", ; + Column13.FontSize = 10, ; + Column13.Name = "Column13", ; + Column13.Visible = .T., ; + Column14.FontSize = 10, ; + Column14.Name = "Column14", ; + Column15.FontSize = 10, ; + Column15.Name = "Column15", ; + Column16.FontSize = 10, ; + Column16.Name = "Column16", ; + Column17.FontSize = 10, ; + Column17.Name = "Column17" + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column1.Header1' AS header WITH ; + Caption = "tip", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column10.Header1' AS header WITH ; + Caption = "baza19", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column10.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column11.Header1' AS header WITH ; + Caption = "tva19", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column11.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column12.Header1' AS header WITH ; + Caption = "baza20", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column12.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column13.Header1' AS header WITH ; + Caption = "tva20", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column13.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column14.Header1' AS header WITH ; + Caption = "Header1", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column14.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column15.Header1' AS header WITH ; + Caption = "Header1", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column15.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column16.Header1' AS header WITH ; + Caption = "Header1", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column16.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column17.Header1' AS header WITH ; + Caption = "Header1", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column17.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column2.Header1' AS header WITH ; + Caption = "luna", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column3.Header1' AS header WITH ; + Caption = "nramef", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column4.Header1' AS header WITH ; + Caption = "nrbonuri", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column5.Header1' AS header WITH ; + Caption = "incasari", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column6.Header1' AS header WITH ; + Caption = "baza05", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column6.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column7.Header1' AS header WITH ; + Caption = "tva05", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column7.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column8.Header1' AS header WITH ; + Caption = "baza09", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column8.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column9.Header1' AS header WITH ; + Caption = "tva09", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column9.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE do_verifica + #Define CRLF Chr(13) + Chr(10) + Local loDate As "empty" + Local lcCodFiscal, lcDenumire, lcFilter, lcSelect, lcWhere, llAutoVerificare, llDontCloseCursor + Local llExperimental, llMFIN, llServiciuWebANAF, llValidare, llVerificarePlatitorTVA, lnOptiune + Local lnRaspuns, loPartener + lcSelect = Select() + + Select crsJTVA + lcDenumire = Alltrim(Nvl(crsJTVA.denumire, '')) + lcCodFiscal = Alltrim(Nvl(crsJTVA.cod_fiscal, '')) + + lnOptiune = XMENU('Verifica... ' + m.lcDenumire + '; Verifica toti partenerii la ' +Dtoc(Date(m.gnAn, m.gnLuna,1)) + '; Verifica toti partenerii la data facturii (* facturi emise in perioada)') + + If Empty(m.lnOptiune) + Return + Endif + * Pot sa fac verificarea pentru un singur nume si cu formularul pentru mai multi parteneri, dar arata mai dragut informatia intr-un messagebox pentru unul singur + Do Case + Case m.lnOptiune = 1 && un singur nume + loPartener = Null + loDate = Createobject("empty") + + AddProperty(loDate, "denumire", m.lcDenumire) + AddProperty(loDate, "cod_fiscal", m.lcCodFiscal) + AddProperty(loDate, "tip_verificare", "ANAF_SERVICIU_WEB") + + lnRaspuns = VerificaCodFiscal(loDate, @lnOptiune, @loPartener) + Case m.lnOptiune = 2 + llDontCloseCursor = .F. + llExperimental = .F. + llVerificarePlatitorTVA = .F. && verific VIES pentru toti partenerii + llMFIN = .T. && verific MFIN pentru toata lumea + llValidare = .T. && verific algoritmul codurilor fiscale + llAutoVerificare = .T. && lanseaza verificarea automata la activate-ul formularului de verificare + llServiciuWebANAF = .T. + + lcFilter = Filter("crsJTVA") + lcWhere = Iif(m.lnOptiune = 1, "recno() = " + Alltrim(Str(Recno())), Iif(!Empty(m.lcFilter), m.lcFilter, ".T.")) + Select Distinct id_part, cod_fiscal, denumire, Iif(Left(Upper(cod_fiscal), 2) = "RO", "RO", " ") As ATRIBUT_FISCAL, .T. As IsCIF, .F. As codvalid ; + From crsJTVA ; + Where &lcWhere ; + Into Cursor crsCoduriFiscale ; + Order By denumire, cod_fiscal ; + Readwrite + + + Local lcXMLParteneri + lcXMLParteneri = "" + Cursortoxml('crsCoduriFiscale', "lcXMLParteneri", 1, 0, 0, "1") + + Do verificare_parteneri With m.lcXMLParteneri, m.llValidare, m.llMFIN, m.llVerificarePlatitorTVA, m.llAutoVerificare, m.llDontCloseCursor, m.llExperimental, m.llServiciuWebANAF + Case m.lnOptiune = 3 + llDontCloseCursor = .F. + llExperimental = .F. + llVerificarePlatitorTVA = .F. && verific VIES pentru toti partenerii + llMFIN = .T. && verific MFIN pentru toata lumea + llValidare = .T. && verific algoritmul codurilor fiscale + llAutoVerificare = .T. && lanseaza verificarea automata la activate-ul formularului de verificare + llServiciuWebANAF = .T. + + lcFilter = Filter("crsJTVA") + lcWhere = Iif(!Empty(m.lcFilter), m.lcFilter, ".T.") + " and emisa_perioada = 1" + Select Distinct id_part, cod_fiscal, denumire, dataact as data, Iif(Left(Upper(cod_fiscal), 2) = "RO", "RO", " ") As ATRIBUT_FISCAL, .T. As IsCIF, .F. As codvalid ; + From crsJTVA ; + Where &lcWhere ; + Into Cursor crsCoduriFiscale ; + Order By denumire, cod_fiscal ; + Readwrite + + + Local lcXMLParteneri + lcXMLParteneri = "" + Cursortoxml('crsCoduriFiscale', "lcXMLParteneri", 1, 0, 0, "1") + + Do verificare_parteneri With m.lcXMLParteneri, m.llValidare, m.llMFIN, m.llVerificarePlatitorTVA, m.llAutoVerificare, m.llDontCloseCursor, m.llExperimental, m.llServiciuWebANAF + Endcase + + ENDPROC + + PROCEDURE Init + DODEFAULT() + this._pageframe1.page2.Enabled = .F. + this._pageframe1.page3.Enabled = .F. + this._pageframe1.page4.Enabled = .F. + this._pageframe1.page5.Enabled = .F. + + this._pageframe1.page1.optPJIntocmit.Valid() + ENDPROC + + PROCEDURE _pageframe1.Page1.cmdCitesteDate.Click + Local lcMesaj, llSucces + lcMesaj = '' + llSucces = Thisform.oParent.do_citeste_date() + If m.llSucces + Thisform._pageframe1.page1.Refresh() + Thisform._pageframe1.page2.Enabled = .T. + Thisform._pageframe1.page2.Refresh() + Thisform._pageframe1.page3.Enabled = .T. + Thisform._pageframe1.page3.Refresh() + Thisform._pageframe1.page4.Enabled = .T. + Thisform._pageframe1.page4.Refresh() + Thisform._pageframe1.page5.Enabled = .T. + Thisform._pageframe1.page5.Refresh() + This.Parent.cmdVerificaCUI.Enabled = .T. + This.Parent.cmdExport.Enabled = .T. + This.Enabled = .F. + + thisform._pageframe1.page2.but_exclam.Picture = IIF('facturile emise sunt in plajele'$poUnitate.cTextFacturiEmiseAlocate, "CHECKMRK.ICO", "EXCLAM.ICO") + thisform._pageframe1.page2.but_exclam.cPictureDown = thisform._pageframe1.page2.but_exclam.Picture + thisform._pageframe1.page2.but_exclam.cPictureUp = thisform._pageframe1.page2.but_exclam.Picture + + thisform._pageframe1.page2.grdExtraFacturiEmise.setup() + + Select crsFdocTip + Locate For Empty(Nvl(tip_doc, '')) + If Found() + This.Parent.lblFdocTip.Visible = .T. + lcMesaj = lcMesaj + This.Parent.lblFdocTip.Caption + CHR(13) + CHR(10) + CHR(13) + CHR(10) + ENDIF + + lcMesaj = lcMesaj + '1. Verificati paginile I. Alte informatii!' + CHR(13) + CHR(10) + lcMesaj = lcMesaj + 'In pagina I.2, tabelul 2.2 sunt plajele continue de numere de facturi emise. Daca sunt goluri trebuie sa introduceti facturile anulate din Terti > Clienti > Factura anulata!' + CHR(13) + CHR(10) + CHR(13) + CHR(10) + lcMesaj = lcMesaj + IIF(!'facturile emise sunt in plajele'$poUnitate.cTextFacturiEmiseAlocate, 'ATENTIE! Sunt facturi emise in afara plajelor de facturi alocate!!!', 'Nu sunt facturi emise in afara plajelor de facturi alocate.') + CHR(13) + CHR(10) + CHR(13) + CHR(10) + lcMesaj = lcMesaj + '2. Verificati pagina Facturi pentru verificarea pe Ministerul de Finante a platitorilor de TVA' + CHR(13) + CHR(10) + lcMesaj = lcMesaj + '3. Apasati butonul "3. Export PDF"' + CHR(13) + CHR(10) + CHR(13) + CHR(10) + lcMesaj = lcMesaj + '4. PDF: Verificati toate sectiunile din PDF' + CHR(13) + CHR(10) + lcMesaj = lcMesaj + '5. PDF: Completati produsele pentru facturile cu taxare inversa' + CHR(13) + CHR(10) + lcMesaj = lcMesaj + '6. PDF: Completati datele despre reprezentant si intocmit ' + CHR(13) + CHR(10) + lcMesaj = lcMesaj + '7. PDF: Apasati butonul "VALIDARE"' + CHR(13) + CHR(10) + lcMesaj = lcMesaj + '8. Suplimentar, verificati fisierul D394.xml generat de PDF inteligent. Apasati butonul "4. VALIDARE XML"'+ CHR(13) + CHR(10)+ CHR(13) + CHR(10) + + lcMesaj = lcMesaj + 'In perioada 07-09/2016 se declara doar operatiile cu persoane impozabile (RO)' + CHR(13) + CHR(10) + lcMesaj = lcMesaj + 'In perioada 07-09/2016 NU se declara bonurile de casa fara cod fiscal (Rapoarte Z)' + CHR(13) + CHR(10) + lcMesaj = lcMesaj + 'Pana pe 31.12.2016 nu este obligatoriu CNP pentru facturile catre persoane fizice < 10.000 lei' + + AMESSAGEBOX(m.lcMesaj,0+64,_screen.Caption) + + This.Parent.cmdVerificaCUI.SetFocus() + Endif + + ENDPROC + + PROCEDURE _pageframe1.Page1.cmdExport.Click + Thisform.oParent.do_executa() + This.Parent.cmdVerificaXML.Enabled = .T. + ENDPROC + + PROCEDURE _pageframe1.Page1.cmdVerificaCUI.Click + thisform._pageframe1.page4.Activate() + thisform._pageframe1.page4.SetFocus() + ENDPROC + + PROCEDURE _pageframe1.Page1.cmdVerificaXML.Click + Thisform.oParent.do_verifica_pdf() + + ENDPROC + + PROCEDURE _pageframe1.Page1.grdTipDoc.Init + * Colorez cu rosu boldat fel document fara tip document asociat + this.SetAll("DynamicForeColor","IIF(crsFdocTip.bifa = 1, RGB(255,0,0), RGB(0,0,0))","Column") + this.SetAll("DynamicFontBold","crsFdocTip.bifa = 1","Column") + ENDPROC + + PROCEDURE _pageframe1.Page1.optPJIntocmit.Valid + LOCAL llEnabledPF, llEnabledPJ + + llEnabledPF = (this.Value = 1) + llEnabledPJ = (this.Value = 2) + this.Parent.lblCalitatePJ.Enabled = m.llEnabledPJ + this.Parent.txtCalitateIntocmit.Enabled = m.llEnabledPJ + this.Parent.lblFunctiePF.Enabled = m.llEnabledPF + this.Parent.txtFunctieIntocmit.Enabled = m.llEnabledPF + this.Parent.lblCalitatePF.Enabled = m.llEnabledPF + this.Parent.txtCalitate2Intocmit.Enabled = m.llEnabledPF + + this.Parent.Refresh() + ENDPROC + + PROCEDURE _pageframe1.Page2.Activate + this.grdFacturiEmiseTip.AfterRowColChange() + ENDPROC + + PROCEDURE _pageframe1.Page2.but_exclam.Click + AMESSAGEBOX(poUnitate.cTextFacturiEmiseAlocate) + ENDPROC + + PROCEDURE _pageframe1.Page2.grdFacturiEmiseTip.AfterRowColChange + LPARAMETERS nColIndex + IF crsFacturiEmiseTip.tip = 'AUTOFACTURA' + THIs.Parent.grdAutoFacturi.Visible = .T. + this.Parent.lblAutofacturi.Visible = .T. + SET FILTER TO seria = crsFacturiEmiseTip.seria AND nr = crsFacturiEmiseTip.nr IN crsAutoFacturi + THIs.Parent.grdAutoFacturi.Refresh() + ELSE + THIs.Parent.grdAutoFacturi.Visible = .F. + this.Parent.lblAutofacturi.Visible = .F. + SET FILTER TO IN crsAutoFacturi + ENDIF + + ENDPROC + + PROCEDURE _pageframe1.Page4.Activate + IF !PEMSTATUS(thisform, 'lPage4GridExtraActivated',5) + this.gridextra1.setup() + THIS._grdfooter1.attachtogrid(This.grdJTVA) + This._grdfooter1.calctotal() + thisform.AddProperty('lPage4GridExtraActivated',.T.) + this.grdJTVA.HeaderHeight = 35 + ENDIF + ENDPROC + + PROCEDURE _pageframe1.Page4.Gridextra1.applyfilter + DODEFAULT() + this.Parent._grdfooter1.calctotal() + ENDPROC + + PROCEDURE _pageframe1.Page4.Gridextra1.clearfilter + DODEFAULT() + this.Parent._grdfooter1.calctotal() + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_decl_tipdoc 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="_grdbase1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cAles.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cAles.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cAles.Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFdoc.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFdoc.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> + + * + BorderStyle = 1 + DoCreate = .T. + Height = 370 + Name = "frm_decl_tipdoc" + Width = 317 + _memberdata = + + + _shape1.Name = "_shape1" + _shape2.Name = "_shape2" + Lb_titlu_alb_b121.Caption = "Tip document" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + BUT_TERMIN1.Left = 287 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 0 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT '_grdbase1' AS _grdbase WITH ; + ColumnCount = 2, ; + DeleteMark = .F., ; + Height = 288, ; + Left = 16, ; + Name = "_grdbase1", ; + Panel = 1, ; + RecordSource = "crsFdoc", ; + Top = 72, ; + Width = 288, ; + Column1.ControlSource = "ales", ; + Column1.CurrentControl = "Check1", ; + Column1.Name = "cAles", ; + Column1.ReadOnly = .F., ; + Column1.Sparse = .F., ; + Column1.Width = 22, ; + Column2.ControlSource = "fdoc", ; + Column2.Name = "cFdoc", ; + Column2.ReadOnly = .T., ; + Column2.Width = 228 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_grdbase1.cAles.Check1' AS checkbox WITH ; + Alignment = 2, ; + Caption = "", ; + Centered = .T., ; + Height = 17, ; + Left = 49, ; + Name = "Check1", ; + Top = 47, ; + Width = 60 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT '_grdbase1.cAles.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cAles.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cFdoc.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip document", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cFdoc.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Label1' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Alegeti tipurile de documente care reprezinta facturi!", ; + FontBold = .T., ; + Height = 17, ; + Left = 9, ; + Name = "Label1", ; + Top = 35, ; + Width = 300 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label2' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Numai aceste tipuri vor intra in declaratie", ; + FontBold = .T., ; + Height = 17, ; + Left = 9, ; + Name = "Label2", ; + Top = 53, ; + Width = 235 + *< END OBJECT: BaseClass="label" /> + + PROCEDURE Init + Lparameters tcTipDeclaratie + DoDefault() + IF EMPTY(tcTipDeclaratie) + tcTipDeclaratie = '' + ENDIF + Thisform.label2.Caption = [Numai aceste tipuri vor intra in declaratia ] + Alltrim(tcTipDeclaratie) + [ !] + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_deconttva 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="_shape3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Command3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="edtInfo" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cmdPDF" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cValoare.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cValoare.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cTVA.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cTVA.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cnt_facturi_dupa_inspectie1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lblRandAtentie" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtLivrareBazaN" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtLivrareTVAN" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtAchizitiiBazaN" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtAchizitiiTVAN" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_label3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_label2" UniqueID="" Timestamp="" /> + + * + *m: do_genereaza_tag && metoda interna ajutatoare + *m: do_genereaza_xdp + *m: do_genereaza_xdp_201111 + *m: do_genereaza_xdp_201201 + *m: do_genereaza_xdp_201301 + *m: do_genereaza_xdp_201601 + *m: totaluri + *m: updateinfo + *m: updatepdf + *p: cd100pdf + *p: cd100rezultat + *p: cd100rezultatfile + *p: cfisierxml + *p: nnumarluni + *p: noldvalue + *p: nrotn && Limitare deducere TVA 4426 id_jtva = 1001. Pentru calculul rand 28 = rand 27 - nROTN + * + + * + BorderStyle = 3 + cd100pdf = '' + cd100rezultat = '' + cd100rezultatfile = '' + cfisierxml = '' + DoCreate = .T. + Height = 626 + Name = "frm_deconttva" + nnumarluni = 0 + noldvalue = 0 + nrotn = 0 + Visible = .F. + Width = 744 + _memberdata = + + + + + + + + _shape1.Anchor = 10 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 749 + _shape1.ZOrderSet = 2 + _shape2.Anchor = 9 + _shape2.Height = 29 + _shape2.Left = 650 + _shape2.Name = "_shape2" + _shape2.Top = -1 + _shape2.Width = 94 + _shape2.ZOrderSet = 3 + Lb_titlu_alb_b121.Caption = "FORMULAR 300 - DECONT DE TAXA PE VALOARE ADAUGATA" + Lb_titlu_alb_b121.Left = 9 + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 8 + Lb_titlu_alb_b121.Top = 7 + Lb_titlu_alb_b121.ZOrderSet = 7 + BUT_TERMIN1.Anchor = 9 + BUT_TERMIN1.Left = 713 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 7 + BUT_TERMIN1.Top = 0 + BUT_TERMIN1.ZOrderSet = 8 + Gridsort1.Left = 204 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 5 + * + + ADD OBJECT '_grdrow1' AS _grdrow WITH ; + Anchor = 15, ; + ColumnCount = 4, ; + DeleteMark = .F., ; + Height = 386, ; + Left = 9, ; + Name = "_grdrow1", ; + Panel = 1, ; + RecordSource = "cDecont", ; + TabIndex = 1, ; + Top = 71, ; + Width = 725, ; + ZOrderSet = 9, ; + Column1.ControlSource = "rand", ; + Column1.Name = "Column1", ; + Column1.ReadOnly = .T., ; + Column1.Width = 41, ; + Column2.ControlSource = "denumire", ; + Column2.Name = "Column2", ; + Column2.ReadOnly = .T., ; + Column2.Width = 430, ; + Column3.ControlSource = "valoare", ; + Column3.DynamicBackColor = "iif(inactivB=1,rgb(225,225,225),rgb(255,255,255))", ; + Column3.Format = "rk", ; + Column3.InputMask = "999 999 999", ; + Column3.Name = "cValoare", ; + Column3.Width = 116, ; + Column4.ControlSource = "tva", ; + Column4.Format = "rk", ; + Column4.InputMask = "999 999 999", ; + Column4.Name = "cTVA", ; + Column4.Width = 102 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_grdrow1.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Rand", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Denumire indicatori", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.cTVA.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.cTVA.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.cValoare.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.cValoare.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_label1' AS _label WITH ; + Anchor = 12, ; + Caption = "Livrare", ; + Left = 432, ; + Name = "_label1", ; + Top = 484, ; + ZOrderSet = 16 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_label2' AS _label WITH ; + Anchor = 12, ; + Caption = "Achizitie", ; + Left = 431, ; + Name = "_label2", ; + Top = 508, ; + ZOrderSet = 21 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_label3' AS _label WITH ; + Anchor = 12, ; + Caption = "Sold Neexigibil", ; + Left = 432, ; + Name = "_label3", ; + Top = 463, ; + ZOrderSet = 16 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_shape3' AS _shape WITH ; + Anchor = 12, ; + Height = 74, ; + Left = 424, ; + Name = "_shape3", ; + Top = 461, ; + Width = 312, ; + ZOrderSet = 0 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" /> + + ADD OBJECT 'But_excel1' AS but_excel WITH ; + Anchor = 9, ; + Left = 682, ; + Name = "But_excel1", ; + TabIndex = 6, ; + Top = 0, ; + ZOrderSet = 11 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_listare1' AS but_listare WITH ; + Anchor = 9, ; + Left = 653, ; + Name = "But_listare1", ; + TabIndex = 5, ; + Top = 0, ; + ZOrderSet = 10 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ; + Anchor = 4, ; + Height = 29, ; + Left = 12, ; + Name = "Clb_tx_simplu1", ; + TabIndex = 9, ; + Top = 541, ; + Width = 215, ; + ZOrderSet = 12, ; + Text_simplu1.ControlSource = "pnProRata", ; + Text_simplu1.Height = 23, ; + Text_simplu1.InputMask = "999", ; + Text_simplu1.Left = 147, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Top = 3, ; + Text_simplu1.Width = 61, ; + Lb_simplu1.Caption = "Pro rata de deducere %", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'cmdPDF' AS cmd_executa WITH ; + Alignment = 2, ; + Anchor = 12, ; + BackColor = 0,128,255, ; + Caption = "Export \ + + ADD OBJECT 'Cnt_facturi_dupa_inspectie1' AS cnt_facturi_dupa_inspectie WITH ; + Anchor = 6, ; + Height = 74, ; + Left = 9, ; + Name = "Cnt_facturi_dupa_inspectie1", ; + TabIndex = 2, ; + Top = 461, ; + Width = 416, ; + ZOrderSet = 13, ; + Shape1.Name = "Shape1", ; + LABEL1.Name = "LABEL1", ; + LABEL2.Name = "LABEL2", ; + LABEL3.Name = "LABEL3", ; + LABEL4.Name = "LABEL4", ; + Text1.Name = "Text1", ; + TEXT2.Name = "TEXT2", ; + TEXT3.InputMask = "999 999 999 999", ; + TEXT3.Name = "TEXT3" + *< END OBJECT: ClassLib="ovanzcump.vcx" BaseClass="container" /> + + ADD OBJECT 'Command1' AS commandbutton WITH ; + Anchor = 12, ; + AutoSize = .T., ; + Caption = "Datele de identif. ale firmei", ; + Height = 27, ; + Left = 441, ; + Name = "Command1", ; + TabIndex = 3, ; + Top = 543, ; + Visible = .F., ; + Width = 164, ; + ZOrderSet = 14 + *< END OBJECT: BaseClass="commandbutton" /> + + ADD OBJECT 'Command3' AS commandbutton WITH ; + Anchor = 12, ; + AutoSize = .T., ; + Caption = "Export in fisiere text", ; + ForeColor = 0,0,255, ; + Height = 27, ; + Left = 612, ; + Name = "Command3", ; + TabIndex = 4, ; + Top = 543, ; + Width = 123, ; + ZOrderSet = 1 + *< END OBJECT: BaseClass="commandbutton" /> + + ADD OBJECT 'edtInfo' AS _editbox WITH ; + Anchor = 14, ; + Height = 48, ; + Left = 12, ; + Name = "edtInfo", ; + Top = 576, ; + Visible = .T., ; + Width = 720, ; + ZOrderSet = 4 + *< END OBJECT: ClassLib="..\..\roastart\comun\clase\_baza.vcx" BaseClass="editbox" /> + + ADD OBJECT 'lblRandAtentie' AS _label WITH ; + Anchor = 10, ; + AutoSize = .T., ; + BackColor = 255,255,128, ; + BackStyle = 1, ; + Caption = "Corectati valoarea din randul 28, daca este cazul (SUB-TOTAL TAXA DEDUSA CONFORM ART.145 SAU 147 ) = RD. 27 - Limitare deducere TVA", ; + Height = 32, ; + Left = 10, ; + Name = "lblRandAtentie", ; + Top = 33, ; + Width = 696, ; + WordWrap = .T., ; + ZOrderSet = 15 + *< END OBJECT: ClassLib="..\..\..\contafin\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT 'txtAchizitiiBazaN' AS _textbox WITH ; + Anchor = 12, ; + ControlSource = "pnAchizitieBazaN", ; + Height = 23, ; + InputMask = "999 999 999 999", ; + Left = 541, ; + Name = "txtAchizitiiBazaN", ; + ReadOnly = .F., ; + Top = 505, ; + Width = 94, ; + ZOrderSet = 19 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'txtAchizitiiTVAN' AS _textbox WITH ; + Anchor = 12, ; + ControlSource = "pnAchizitieTVAN", ; + Height = 23, ; + InputMask = "999 999 999 999", ; + Left = 639, ; + Name = "txtAchizitiiTVAN", ; + ReadOnly = .F., ; + Top = 506, ; + Width = 94, ; + ZOrderSet = 20 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'txtLivrareBazaN' AS _textbox WITH ; + Anchor = 12, ; + ControlSource = "pnLivrareBazaN", ; + Height = 23, ; + InputMask = "999 999 999 999", ; + Left = 541, ; + Name = "txtLivrareBazaN", ; + ReadOnly = .F., ; + Top = 481, ; + Width = 94, ; + ZOrderSet = 17 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'txtLivrareTVAN' AS _textbox WITH ; + Anchor = 12, ; + ControlSource = "pnLivrareTVAN", ; + Height = 23, ; + InputMask = "999 999 999 999", ; + Left = 640, ; + Name = "txtLivrareTVAN", ; + ReadOnly = .F., ; + Top = 481, ; + Width = 94, ; + ZOrderSet = 18 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + PROCEDURE Activate + * nu sterge + + Local lnLeft, lnWidth + This.LockScreen=.T. + lnWidth = This.Width + lnLeft = This.Left + + This.WindowState = 2 + This.Width = lnWidth + This.Left = lnLeft + + This.LockScreen=.F. + + ENDPROC + + PROCEDURE do_executa + *!* 01.02.2012 + *!* d300_201201.pdf + + Lparameters tnMenu + *!* tnMenu: 1 = XML, 2 = PDF, 3 = XML + PDF + *!* tnDecl: 100, 102 + #Define CRLF Chr(13) + Chr(10) + + + Local loEx As Exception + Local lnMenu, lcCaleFisier, lcCaleFisierPDF, lcNumeFisier + Local lcAppPath, lcCaleD112, lcComunPath, lcSelect, lcTempPath, lnPos + Local lcFileName, lcFisierPDFNou, lcFisierPDFOriginal, lcFisierXDP, lcFisierXML, lcRun + Local loProcess As "api_apprun" Of "process.vcx" + Local lcD112RezultatFile, lcD112ValidatorFile, lcMesaj, lcRezultat, lcVersiuneDUK + Local lcVersiuneFisiereD112, lcVersiunePDF, llSucces + Local lcCod_fiscal + lcCaleFisier = "" + + lcSelect = Select() + If !Empty(tnMenu) + lnMenu = tnMenu + Else + lnMenu = xmenu("Genereaza \ 0 + lcComunPath = Left(m.lcAppPath, lnPos) + Endif + lcComunPath = ADDBS(m.gcBasePath) + Iif(gcAppName = "CONCONT", "COMUNCONTAFIN\", "COMUNROA\") && d:\contafin\comuncontafin\ + + This.UpdateInfo("Creez structura director export...") + + *** Creez structura director export (caletemp\D112\aaaa_ll\firma\ + llSucces = .F. + + Try + lcTempPath = ADDBS(m.gcBasePath) + + lcCaleFisier = m.lcTempPath + "D300\" && c:\temp\D112\ + + If !Directory(m.lcCaleFisier) + Md (m.lcCaleFisier) + Endif + + *lcCaleFisier = m.lcCaleFisier + Alltrim(Str(This.nAn)) + "_" + Padl(Alltrim(Str(This.nLuna)),2, "0") + "\"&& c:\temp\D112\2011_01\ + lcCaleFisier = m.lcCaleFisier + Alltrim(Str(gnAn)) + "_" + Padl(Alltrim(Str(gnLuna)),2, "0") + "\"&& c:\temp\D112\2011_01\ + If !Directory(m.lcCaleFisier) + Md (m.lcCaleFisier) + Endif + + *lcCaleFisier = m.lcCaleFisier + STRTRAN(This.cNumeFirma,[ ],[_]) + "\" && c:\temp\D112\2011_01\firma\ + lcCaleFisier = m.lcCaleFisier + Strtran(gcFirma,[ ],[_]) + "\" && c:\temp\D112\2011_01\firma\ + If !Directory(m.lcCaleFisier) + Md (m.lcCaleFisier) + Endif + This.UpdateInfo("S-a creat directorul " + m.lcCaleFisier) + + *lcCaleFisierPDF = m.lcCaleFisier + "pdf_inteligent\" && c:\temp\D112\2011_01\firma\pdf_inteligent\ + lcCaleFisierPDF = m.lcCaleFisier && c:\temp\D112\2011_01\firma\ + If !Directory(m.lcCaleFisierPDF) + Md (m.lcCaleFisierPDF) + Endif + This.UpdateInfo("S-a creat directorul " + m.lcCaleFisierPDF) + + llSucces = .T. + Catch To loEx + lcMesaj = "Creare director " + lcCaleFisier + " " + loEx.Message + This.UpdateInfo(lcMesaj) + + Thisform.afiseaza_mesaj(lcMesaj,0+48) + Endtry + If !llSucces + Return + Endif + *!* lcCaleFisier = shortpath(Getdir([],[Alegeti directorul unde se va salva PDF-ul/XML-ul],[Declaratia 112])) + + Do Case + Case gnAn*12 + gnLuna >= 2016*12 + 1 + lcFisierPDFOriginal = lcComunPath + "d300_201601.pdf" + Case gnAn*12 + gnLuna >= 2013*12 + 1 + lcFisierPDFOriginal = lcComunPath + "d300_201301.pdf" + Case gnAn*12 + gnLuna >= 2012*12 + 1 + lcFisierPDFOriginal = lcComunPath + "d300_201201.pdf" + Case gnAn*12 + gnLuna >= 2011*12 + 11 + lcFisierPDFOriginal = lcComunPath + "d300_201111.pdf" + Otherwise + lcFisierPDFOriginal = lcComunPath + "d300.pdf" + Endcase + + *!* 19.01.2012 + This.UpdatePDF(m.lcFisierPDFOriginal) && actualizez pdf de la romfast + *!* 19.01.2012 ^ + + If Upper(Substr(Alltrim(gofirma.cod_fiscal),1,2))='RO' + lcCod_fiscal = Substr(Alltrim(gofirma.cod_fiscal),3,Len(Alltrim(gofirma.cod_fiscal))-2) + Else + lcCod_fiscal = Alltrim(gofirma.cod_fiscal) + Endif + + *lcNumeFisier = "d100_"+ Alltrim(Transform(Thisform.cCodFiscal)) + "_" + Alltrim(Str(Int(Thisform.nAn))) + "_" + Alltrim(Padl(Int(Thisform.nLuna), 2, "0")) + lcNumeFisier = "d300_"+ lcCod_fiscal + "_" + Alltrim(Str(gnAn)) + "_" + Padl(gnLuna, 2, "0") + + + lcFileName = m.lcCaleFisier + lcNumeFisier + + lcFileNamePDF = m.lcCaleFisierPDF + lcNumeFisier + lcFisierPDFNou = m.lcFileNamePDF + [.pdf] + lcFisierXDP = m.lcFileNamePDF + [.xdp] + + lcFisierXML = m.lcFileName + [.xml] + *lcD100ValidatorFile = m.lcComunPath + [dist\DUKIntegrator.jar] + lcD100RezultatFile = m.lcFisierXML + [.err.txt] + + lcVersiuneFisiereD112 = lcComunPath + "versiuni_fisiere.txt" + *this.cD112ValidatorFile = lcD112ValidatorFile + This.cFisierXML = lcFisierXML + This.cD100RezultatFile = lcD100RezultatFile + + If Inlist(lnMenu, 2,3) + If File(lcFisierPDFNou) + Delete File (lcFisierPDFNou) + Endif + If File(lcFisierXDP) + Delete File (lcFisierXDP) + Endif + Endif + If Inlist(lnMenu, 1,3) + If File(lcFisierXML) + Delete File (lcFisierXML) + Endif + If File(m.lcD100RezultatFile) + Delete File (m.lcD100RezultatFile) + Endif + Endif + This.cD100Rezultat = "" + This.cD100PDF = "" + + *** verific pdf original + *!* If Inlist(lnMenu,2,3) + *!* This.verificare_versiune("A") + *!* This.UpdateInfo(REPLICATE('-', 100)) + *!* ENDIF + + *** verific program validare D112 + *!* If Inlist(lnMenu,1,3) + *!* This.verificare_versiune("J") + *!* This.UpdateInfo(REPLICATE('-', 100)) + *!* Endif + + *** creez xml, xdp (= xml data package = xml cu sesiunea pdf-ului inteligent) + + Do Case + Case lnMenu = 1 + This.UpdateInfo("Se exporta datele in format XML") + Thisform.do_genereaza_xml(lcFisierXML) + This.UpdateInfo(Replicate('-', 100)) + *!* Case lnMenu = 2 + *!* This.UpdateInfo("Se exporta datele in format PDF") + *!* Thisform.do_genereaza_xdp(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + *!* This.UpdateInfo(Replicate('-', 100)) + Case INLIST(lnMenu,2,3) + This.UpdateInfo("Se exporta datele in format XML+PDF") + DO CASE + CASE gnAn*12+gnLuna >= 2016*12+1 + Thisform.do_genereaza_xdp_201601(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + + CASE gnAn*12+gnLuna >= 2013*12+1 + Thisform.do_genereaza_xdp_201301(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + + CASE gnAn*12+gnLuna >= 2012*12+1 + Thisform.do_genereaza_xdp_201201(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + + CASE gnAn*12+gnLuna >= 2011*12+11 + Thisform.do_genereaza_xdp_201111(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + + OTHERWISE + Thisform.do_genereaza_xdp(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + ENDCASE + This.UpdateInfo(Replicate('-', 100)) + Endcase + + + *** deschid fisierul XDP (pdf inteligent) + If Inlist(lnMenu,2,3) And File(lcFisierXDP) + If !File(m.lcFisierPDFOriginal) + OPEN_DEFAULT_APP("http://static.anaf.ro/static/10/Anaf/Declaratii_R/300.html") + AMessagebox('Nu exista fisierul ' + m.lcFisierPDFOriginal + CRLF + ; + 'Copiati pdf-ul inteligent D300 de pe website-ul ANAF in directorul ' + Justpath(m.lcFisierPDFOriginal) + CRLF + ; + 'cu numele ' + Justfname(m.lcFisierPDFOriginal) + '.', 0+48, _Screen.Caption) + Else + *** copiez fisierul pdf inteligent original in directorul de export + Copy File (lcFisierPDFOriginal) To (lcFisierPDFNou) + This.cD100PDF = m.lcFisierXDP + If File(m.lcFisierXDP) + This.UpdateInfo([In PDF apasati butonul "Options > Trust this document always" de pe banda galbena pentru a incarca datele.]) + open_default_app(lcFisierXDP) + ENDIF + ENDIF + Endif + + *!* *** deschid explorer in directorul de export + lcRun = [RUN /N7 explorer.exe "] + m.lcCaleFisier + ["] + &lcRun + + + Select (lcSelect) + + + ENDPROC + + PROCEDURE do_genereaza_tag && metoda interna ajutatoare + X=SQLCONNECT("ROA_CENTRAL","MARIUSM_AUTO","123") + LNSUCCES = SQLEXEC(X,"SELECT * from deconttva where valabil = '0112' AND TRIM(RAND) IS NOT NULL order by id_decont", "CRSDECONT") + SQLDISCONNECT(0) + lcText = "" + SELECT CRSDECONT + SCAN + lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1 + lcTag = "r" + m.lcRand + lcVariabilaB = [m.ln] + m.lcRand + "B" && ln17_1B + lcVariabilaT = [m.ln] + m.lcRand + "T" && ln17_1T + lcC1 = "" + lcC2 = "" + IF inactivb = 0 + lcC1 = [<<] + m.lcVariabilaB + [>>] + ENDIF + IF inactivt = 0 + lcC2 = [<<] + m.lcVariabilaT + [>>] + ENDIF + + lcText = lcText + [\<] + m.lcTag + [>] + m.lcC1 + m.lcC2 + [] + CHR(13) + CHR(10) + ENDSCAN + _cliptext = lcText + + TEXT TO lcXX + \<> + \<> + \<> + \<> + \<> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \<> + \<> + \<> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \<> + \<> + \<><> + \<><> + \<> + \<> + \<><> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + ENDTEXT + ENDPROC + + PROCEDURE do_genereaza_xdp + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou + Local lcDateStyle, lcMark, lcXDP + Local lcSelect, lcCod_fiscal + lcSelect = Select() + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + Set Date To Ymd + Set Mark To '-' + + + Set Textmerge On To Memvar lcXDP Noshow + *Set Textmerge On To Memvar lcXML Noshow + \ + \ + \ + \ + \ + + \ + \ + \ 300 + \ + + \ + \
+ \<> + \<> + \
+ + \ + \<> + \<> + \<> + \<> + lcFirma = XmlSpecialCharacters(ALLTRIM(UPPER(NVL(goFirma.antet,'')))) && oproceduri_comune.prg + \<> + + If Upper(Substr(Alltrim(gofirma.cod_fiscal),1,2))='RO' + lcCod_fiscal = Substr(Alltrim(gofirma.cod_fiscal),3,Len(Alltrim(gofirma.cod_fiscal))-2) + Else + lcCod_fiscal = Alltrim(gofirma.cod_fiscal) + Endif + + \<> + + \ + \<> + \<> + \ + + \<> + && la o luna, la 3, 6, 12, cod_imp = 301, 302, 303, 304 + \301 + \ + + \ + + + Select * From cDecont Into Cursor crsControl + + Local lnTabele, lnTabel , lnAntet, lnId_decont, lnPuncte + Store 0 To lnTabele, lnTabel, lnAntet, lnId_decont, lnPuncte + + Select cDecont + Calculate Cnt() For antet = 2 To lnTabele + + Select cDecont + Scan + lnAntet = antet + + If lnAntet = 2 + *!* \ + lnTabel = lnTabel + 1 + + If lnTabel > 1 + \>> + ENDIF + + IF lnTabel = 2 && inainte de al doilea tabel + \ + ENDIF + \>> + *!* end \ + + + + lnId_decont = id_decont + + Select crsControl + Locate For id_decont = lnId_decont + 1 + If Found() + If antet = 1 && daca urmeaza un subtitlu - inainte de randul 1, 17 + \

+ \

+ \

+ \

+ Else && dupa antetul gri nu mai urmeaza un subtitlu alb, ci direct indicatori - inainte de al 3-lea tabel, randul 31 + \

+ \

+ Endif + Endif + + Endif && lnAntet = 2 + + If lnAntet = 1 + lnId_decont = id_decont + Select crsControl + Locate For id_decont = lnId_decont + 1 + If Found() + If antet = 0 && nu este subtitlu dupa antet gri inchis - dupa randul 8, 20 + \

+ ENDIF + ENDIF + ENDIF && lnAntet = 1 + + *!* + Select cDecont + lcRand = ALLTRIM(Rand) + lnPuncte = Occurs('.', lcRand) + If lnPuncte = 1 + lcRand = Strtran(lcRand,'.','_') + Endif + If lnPuncte = 2 + lnUltPunct = Rat('.', lcRand) + lcRand = Substr(lcRand,1,lnUltPunct-1)+Substr(lcRand,lnUltPunct+1,Len(lcRand)-1) + lcRand = Strtran(lcRand,'.','_') + Endif + + If !Empty(Rand) + If inactivb=0 And inactivt = 0 + \>><><>>> + Endif + If inactivb=0 And inactivt = 1 + \>><>>> + Endif + If inactivb=1 And inactivt = 0 + \>><>>> + Endif + Endif + + + + Select cDecont + ENDSCAN + + IF USED('crsControl') + USE IN crsControl + ENDIF + + \>> + + \ + + \ + \N + \10301010611250711000030 + \105419 + \<> + + \ + \ + \<><><> + \ + + \<> + \<> + \ + + \ + \ + \ + \ + \ + + \ + \1 + \ + \Vers.1.0.0/ 2011 + \ + \ + + \ + \ + + \ + \ + \ + \ + + + Set Textmerge To + + Strtofile(lcXDP, tcFisierXDP) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + Select (lcSelect) + + ENDPROC + + PROCEDURE do_genereaza_xdp_201111 + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou + Local lcCod_fiscal, lcDateStyle, lcMark, lcNumeDeclarant, lcNumePrenumeDeclarant, lcPrenumeDeclarant, lcCodFiscal + Local lcRand, lcSelect, lcXDP, lnAntet, lnId_decont, lnPuncte, lnTabel, lnTabele, lnUltPunct + lcSelect = Select() + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + LOCAL lnTipDecont + lnTipDecont = IIF(This.nNumarLuni = 1, 301, IIF(This.nNumarLuni = 3, 302, IIF(This.nNumarLuni = 6, 303, 304))) + + Set Date To Ymd + Set Mark To '-' + SET STEP ON + lcNumePrenumeDeclarant = Alltrim(NVL(gofirma.declarant,'')) + lcNumeDeclarant = lcNumePrenumeDeclarant + lcPrenumeDeclarant = "" + IF GETWORDCOUNT(lcNumePrenumeDeclarant," ") > 1 + lcNumeDeclarant = GETWORDNUM(m.lcNumePrenumeDeclarant, 1, " ") + lcPrenumeDeclarant = ALLTRIM(STRTRAN(m.lcNumePrenumeDeclarant, lcNumeDeclarant, "")) + ENDIF + + Set Textmerge On To Memvar lcXDP Noshow + *Set Textmerge On To Memvar lcXML Noshow + \ + \ + \ + \ + \ + + \ + \ + \
+ \ + \<> + \<> + \0 + && la o luna, la 3, 6, 12, cod_imp = 301, 302, 303, 304 + \<> + \ + \ + + lcCodFiscal = UPPER(Alltrim(NVL(gofirma.cod_fiscal,''))) + If Upper(Substr(m.lcCodFiscal,1,2))='RO' + lcCod_fiscal = ALLTRIM(Substr(m.lcCodFiscal,3)) + Else + lcCod_fiscal = m.lcCodFiscal + Endif + + \<> + lcFirma = XmlSpecialCharacters(ALLTRIM(UPPER(NVL(goFirma.antet,'')))) && oproceduri_comune.prg + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \ + \ + + \ + + Select * From cDecont Into Cursor crsControl + + Store 0 To lnTabele, lnTabel, lnAntet, lnId_decont, lnPuncte + + Select cDecont + Calculate Cnt() For antet = 2 To lnTabele + + Select cDecont + Scan + lnAntet = antet + + If lnAntet = 2 + *!* \ + lnTabel = lnTabel + 1 + + If lnTabel > 1 + \>> + ENDIF + + IF lnTabel = 2 && inainte de al doilea tabel + \ + ENDIF + \>> + *!* end \ + + lnId_decont = id_decont + + Select crsControl + Locate For id_decont = lnId_decont + 1 + If Found() + If antet = 1 && daca urmeaza un subtitlu - inainte de randul 1, 17 + \

+ \

+ \

+ \

+ Else && dupa antetul gri nu mai urmeaza un subtitlu alb, ci direct indicatori - inainte de al 3-lea tabel, randul 31 + \

+ \

+ Endif + Endif + Endif && lnAntet = 2 + + If lnAntet = 1 + lnId_decont = id_decont + Select crsControl + Locate For id_decont = lnId_decont + 1 + If Found() + If antet = 0 && nu este subtitlu dupa antet gri inchis - dupa randul 8, 20 + \

+ ENDIF + ENDIF + ENDIF && lnAntet = 1 + + *!* + Select cDecont + lcRand = ALLTRIM(Rand) + lnPuncte = Occurs('.', lcRand) + If lnPuncte = 1 + lcRand = Strtran(lcRand,'.','_') + Endif + If lnPuncte = 2 + lnUltPunct = Rat('.', lcRand) + lcRand = Substr(lcRand,1,lnUltPunct-1)+Substr(lcRand,lnUltPunct+1,Len(lcRand)-1) + lcRand = Strtran(lcRand,'.','_') + Endif + + If !Empty(Rand) + If inactivb=0 And inactivt = 0 + \>><><>>> + Endif + If inactivb=0 And inactivt = 1 + \>><>>> + Endif + If inactivb=1 And inactivt = 0 + \>><>>> + Endif + Endif + Select cDecont + ENDSCAN + + IF USED('crsControl') + USE IN crsControl + ENDIF + + \>> + + \ + \<> + \N + \ + + \ + \ + \ + \<><><> + \ + \ + + \ + \10301011111251211000022 + \ + \ + \ + \ + \ + + \<> + \<> + \<> + \ + \ + \ + \0 + \ + \ + + \ + \ + \ + \ + + + Set Textmerge To + + Strtofile(lcXDP, tcFisierXDP) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + Select (lcSelect) + + ENDPROC + + PROCEDURE do_genereaza_xdp_201201 + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou + Local lcCod_fiscal, lcDateStyle, lcMark, lcNumeDeclarant, lcNumePrenumeDeclarant, lcPrenumeDeclarant, lcCodFiscal + Local lcRand, lcSelect, lcXDP, lnAntet, lnId_decont, lnPuncte, lnTabel, lnTabele, lnUltPunct + lcSelect = Select() + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + Local lnTipDecont + lnTipDecont = Iif(This.nNumarLuni = 1, 301, Iif(This.nNumarLuni = 3, 302, Iif(This.nNumarLuni = 6, 303, 304))) + + Set Date To Ymd + Set Mark To '-' + Set Step On + lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,'')) + lcNumeDeclarant = lcNumePrenumeDeclarant + lcPrenumeDeclarant = "" + If Getwordcount(lcNumePrenumeDeclarant," ") > 1 + lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ") + lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, "")) + Endif + + *** generez variabile pentru fiecare rand + SELECT rand,denumire,valoare,tva,inactivb,inactivt FROM cDecont WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecont NOFILTER + SELECT crsDecont + SCAN + lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1 + lcVariabilaB = [ln] + m.lcRand + "B" && ln17_1B + lcVariabilaT = [ln] + m.lcRand + "T" && ln17_1T + IF inactivb = 0 + LOCAL &lcVariabilaB + &lcVariabilaB = valoare + ENDIF + IF inactivt = 0 + LOCAL &lcVariabilaT + &lcVariabilaT = tva + ENDIF + ENDSCAN + USE IN (SELECT('crsDecont')) + + Set Textmerge On To Memvar lcXDP Noshow + *Set Textmerge On To Memvar lcXML Noshow + \ + \ + \ + \ + \ + + \ + \ + \
+ \ + \<> + \<> + \0 + && la o luna, la 3, 6, 12, cod_imp = 301, 302, 303, 304 + \<> + \0 + \ + \ + + lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,''))) + If Upper(Substr(m.lcCodFiscal,1,2))='RO' + lcCod_fiscal = Alltrim(Substr(m.lcCodFiscal,3)) + Else + lcCod_fiscal = m.lcCodFiscal + Endif + + \<> + lcFirma = XmlSpecialCharacters(Alltrim(Upper(Nvl(gofirma.antet,'')))) && oproceduri_comune.prg + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \ + \ + + \ + **************************** + *** BODY + \ + \

+ \

+ \

+ \<> + \<> + \<> + \<> + \<> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \ + + \ + \

+ \<><> + \<><> + \<><> + \<><> + \<> + \<> + \<> + \<><> + \<><> + \<><> + + \ + \ + \

+ \

+ \

+ \<><> + \<><> + \<><> + \<><> + \<><> + \ + + \ + \

+ \<><> + \<><> + \<><> + \<><> + \<><> + \<> + \<> + \<><> + \<><> + \<> + \<> + \<><> + \<> + \<> + \ + + \ + \

+ \

+ \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \ + + **************************** + *** FOOTER + \ + \<> + \N + \N + \ + + \ + \ + \ + \<><><> + \ + \ + + \ + \10301011111251211000022 + \ + \ + \ + \ + \ + + \<> + \<> + \<> + \ + \ + \ + \0 + \ + \ + + \ + \ + \ + \ + + + Set Textmerge To + + Strtofile(lcXDP, tcFisierXDP) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + Select (lcSelect) + + + ENDPROC + + PROCEDURE do_genereaza_xdp_201301 + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou + Local lcCod_fiscal, lcDateStyle, lcMark, lcNumeDeclarant, lcNumePrenumeDeclarant, lcPrenumeDeclarant, lcCodFiscal + Local lcRand, lcSelect, lcXDP, lnAntet, lnId_decont, lnPuncte, lnTabel, lnTabele, lnUltPunct + lcSelect = Select() + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + Local lnTipDecont + lnTipDecont = Iif(This.nNumarLuni = 1, 301, Iif(This.nNumarLuni = 3, 302, Iif(This.nNumarLuni = 6, 303, 304))) + + Set Date To Ymd + Set Mark To '-' + Set Step On + lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,'')) + lcNumeDeclarant = lcNumePrenumeDeclarant + lcPrenumeDeclarant = "" + If Getwordcount(lcNumePrenumeDeclarant," ") > 1 + lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ") + lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, "")) + Endif + + *** generez variabile pentru fiecare rand + SELECT rand,denumire,valoare,tva,inactivb,inactivt FROM cDecont WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecont NOFILTER + SELECT crsDecont + SCAN + lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1 + lcVariabilaB = [ln] + m.lcRand + "B" && ln17_1B + lcVariabilaT = [ln] + m.lcRand + "T" && ln17_1T + IF inactivb = 0 + LOCAL &lcVariabilaB + &lcVariabilaB = valoare + ENDIF + IF inactivt = 0 + LOCAL &lcVariabilaT + &lcVariabilaT = tva + ENDIF + ENDSCAN + USE IN (SELECT('crsDecont')) + + Set Textmerge On To Memvar lcXDP Noshow + *Set Textmerge On To Memvar lcXML Noshow + \ + \ + \ + \ + \ + + \ + \ + \
+ \ + \<> + \<> + \0 + && la o luna, la 3, 6, 12, cod_imp = 301, 302, 303, 304 + \<> + \0 + \ + \ + + lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,''))) + If Upper(Substr(m.lcCodFiscal,1,2))='RO' + lcCod_fiscal = Alltrim(Substr(m.lcCodFiscal,3)) + Else + lcCod_fiscal = m.lcCodFiscal + Endif + + \<> + lcFirma = XmlSpecialCharacters(Alltrim(Upper(Nvl(gofirma.antet,'')))) && oproceduri_comune.prg + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \ + \ + + \ + **************************** + *** BODY + \ + \

+ \

+ \

+ \<> + \<> + \<> + \<> + \<> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \ + + \ + \

+ \<><> + \<><> + \<><> + \<><> + \<> + \<> + \<> + \<><> + \<><> + + \ + \ + \

+ \

+ \

+ \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \ + + \ + \

+ \<><> + \<><> + \<><> + \<><> + \<><> + \<> + \<> + \<><> + \<> + \<> + \<><> + \<> + \<> + \ + + \ + \

+ \

+ \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \ + + **************************** + *** FOOTER + \ + \<> + \N + \N + \ + + \ + \ + \ + \<><><> + \ + \<><><><> + \ + + \ + \10301010113250213000024 + \ + \ + \ + \ + \ + + \<> + \<> + \<> + \ + \ + \ + \0 + \ + \ + + \ + \ + \ + \ + + + Set Textmerge To + + Strtofile(lcXDP, tcFisierXDP) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + Select (lcSelect) + + + ENDPROC + + PROCEDURE do_genereaza_xdp_201601 + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou + Local lcCod_fiscal, lcDateStyle, lcMark, lcNumeDeclarant, lcNumePrenumeDeclarant, lcPrenumeDeclarant, lcCodFiscal + Local lcRand, lcSelect, lcXDP, lnAntet, lnId_decont, lnPuncte, lnTabel, lnTabele, lnUltPunct + lcSelect = Select() + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + Local lnTipDecont + lnTipDecont = Iif(This.nNumarLuni = 1, 301, Iif(This.nNumarLuni = 3, 302, Iif(This.nNumarLuni = 6, 303, 304))) + + Set Date To Ymd + Set Mark To '-' + Set Step On + lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,'')) + lcNumeDeclarant = lcNumePrenumeDeclarant + lcPrenumeDeclarant = "" + If Getwordcount(lcNumePrenumeDeclarant," ") > 1 + lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ") + lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, "")) + Endif + + *** generez variabile pentru fiecare rand + SELECT rand,denumire,valoare,tva,inactivb,inactivt FROM cDecont WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecont NOFILTER + SELECT crsDecont + SCAN + lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1 + lcVariabilaB = [ln] + m.lcRand + "B" && ln17_1B + lcVariabilaT = [ln] + m.lcRand + "T" && ln17_1T + IF inactivb = 0 + LOCAL &lcVariabilaB + &lcVariabilaB = valoare + ENDIF + IF inactivt = 0 + LOCAL &lcVariabilaT + &lcVariabilaT = tva + ENDIF + ENDSCAN + USE IN (SELECT('crsDecont')) + + Set Textmerge On To Memvar lcXDP Noshow + *Set Textmerge On To Memvar lcXML Noshow + \ + \ + \ + \ + \ + + \ + \ + \
+ \ + \<> + \<> + \0 + && la o luna, la 3, 6, 12, cod_imp = 301, 302, 303, 304 + \<> + \0 + \ + \ + + lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,''))) + If Upper(Substr(m.lcCodFiscal,1,2))='RO' + lcCod_fiscal = Alltrim(Substr(m.lcCodFiscal,3)) + Else + lcCod_fiscal = m.lcCodFiscal + Endif + + \<> + lcFirma = XmlSpecialCharacters(Alltrim(Upper(Nvl(gofirma.antet,'')))) && oproceduri_comune.prg + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \ + \ + + \ + **************************** + *** BODY + \ + \

+ \

+ \

+ \<> + \<> + \<> + \<> + \<> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \ + + \ + \

+ \<><> + \<><> + \<><> + \<><> + \<> + \<> + \<> + \<><> + \<><> + + \ + \ + \

+ \

+ \

+ \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \ + + \ + \

+ \<><> + \<><> + \<><> + \<><> + \<><> + \<> + \<> + \<><> + \<> + \<> + \<><> + \<> + \<> + \ + + \ + \

+ \

+ \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \ + + **************************** + *** FOOTER + \ + \<> + \N + \N + \ + + \ + \ + \ + \<><><> + \ + \<><><><> + \ + + \ + \10301010113250213000024 + \ + \ + \ + \ + \ + + \<> + \<> + \<> + \ + \ + \ + \0 + \ + \ + + \ + \ + \ + \ + + + Set Textmerge To + + Strtofile(lcXDP, tcFisierXDP) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + Select (lcSelect) + + + ENDPROC + + PROCEDURE inainte_de_do_excel + DO export_excel_grid WITH this._grdrow1 + + ENDPROC + + PROCEDURE inainte_de_do_listare + Local lcTabel + lcTabel = Thisform._grdrow1.RecordSource + If Reccount(lcTabel)>0 + Private pcCaen + pcCaen = Alltrim(gofirma.caen) + + If !Empty(pcCaen) And !Isnull(pcCaen) + Private poCaen + Store '' To poCaen + pcschema=[] + pcselect=['select codcaen from sitfin_codcaen where 1=2 '] + pcfiltru=[cod=] + pcCaen + pcorder=[] + llAfisare=.F. + gencursor('poCaen','cCaen',pcselect,pcfiltru,pcschema,pcorder,llAfisare) + poCaen.ca_baza1.afisare() + + Select cCaen + pcCaen = codcaen + + If Used('cCaen') + Use In cCaen + Endif + Endif + + Thisform.AlwaysOnTop = .F. + Select (lcTabel) + Report Form decont To Printer Prompt Preview + Thisform.AlwaysOnTop = .T. + Else + amessagebox("Nu exista inregistrari pentru listare!",48,"Atentie") + Endif + ENDPROC + + PROCEDURE Init + LPARAMETERS tnNumarLuni + + This.nNumarLuni = m.tnNumarLuni + DODEFAULT() + ENDPROC + + PROCEDURE Show + Lparameters nStyle + + Thisform.totaluri("valoare", .T.) + Thisform.totaluri("tva", .T.) + + DoDefault(nStyle) + + ENDPROC + + PROCEDURE totaluri + *!* 20.07.2012 + *!* marius.mutu + *!* completare initiala randul 28 = randul 27 + + Lparameters tcColoana, tlFirstTime + Local lcFormula, lcColoana, lcTabel, lnSuma, lnId_ind, lcRand + + If Empty(tcColoana) + lcColoana = "valoare" + Else + lcColoana = Alltrim(tcColoana) + Endif + + lcTabel = thisform._grdrow1.RecordSource + Select * From (lcTabel) WITH (BUFFERING = .T.) Into Cursor cTemp Readwrite NOFILTER + + Select cTemp + Scan For tip = 5 + lnSuma = 0 + lcFormula = Alltrim(cTemp.formula) + lcRand = ALLTRIM(rand) + *!* IF '32'$lcRand AND 'tva'$LOWER(lcColoana) + *!* DEBUG + *!* SUSPEND + *!* ENDIF + *!* WAIT WINDOW lcFormula + " - " + lcColoana NOWAIT + lnSuma = calc_indicatori_randuri(lcFormula, "cTemp",lcColoana) + Select cTemp + Replace &lcColoana With lnSuma + Select (lcTabel) + Update (lcTabel) Set &lcColoana = lnSuma Where ALLTRIM(rand) = lcRand + + Select cTemp + Endscan + Use In cTemp + + *** COMPLETEZ INITIAL RANDUL 28 SUB-TOTAL TAXA DEDUSA CONFORM ART.145 SAU 147, CU RANDUL 27 + *** NU PUN FORMULA LA FEL CA LA 27, PENTRU CA NU SE MAI POATE MODIFICA DE CATRE UTILIZATOR + IF m.tlFirstTime AND m.gnAn >= 2012 + lnROTN = This.nRotn && limitare deducere TVA 4426 + SELECT (lcTabel) + LOCATE FOR rand = '27' && TOTAL TAXA DEDUCTIBILA (suma de la rd.18 pana la rd.25, cu exceptia celor de la rd.18.1 si 20.1), din care: + IF FOUND() + lnSuma = &lcColoana + LOCATE FOR rand = '28' AND &lcColoana = 0 + IF FOUND() + REPLACE &lcColoana WITH m.lnSuma - m.lnROTN + This.Totaluri(tcColoana, .F.) && recalculez totalurile dupa ce am modificat valoarea + ENDIF + ENDIF + ENDIF + + Select (lcTabel) + Go Top + ENDPROC + + PROCEDURE updateinfo + #DEFINE CRLF CHR(13) + CHR(10) + Lparameters tcInfo + + + Local loInfo + loInfo = this.edtInfo + If Upper(tcInfo) = 'RESET' + loInfo.Value = "" + Else + loInfo.Value = loInfo.Value + m.tcInfo + CRLF + CRLF + Endif + loInfo.Refresh() + + + ENDPROC + + PROCEDURE updatepdf + Lparameters tcPDFFile + *** tcPDFFile: calea completa a fisierului pdf D:\CONTAFIN\COMUNCONTAFIN\d390.pdf + + Local lcFile, lcPath, llOpen + lcFile = Justfname(m.tcPDFFile) + lcPath = Addbs(Justpath(m.tcPDFFile)) + llOpen = .F. + + Return DownloadSupportFile(m.lcFile, m.lcPath, m.llOpen) && proceduri_comune.prg + + + ENDPROC + + PROCEDURE Clb_tx_simplu1.Text_simplu1.Valid + IF NVL(FLOOR(THIS.VALUE),0) <> NVL(FLOOR(THISFORM.nOldvalue),0) + THISFORM.totaluri("tva") + ENDIF + ENDPROC + + PROCEDURE Clb_tx_simplu1.Text_simplu1.When + THISFORM.nOldvalue = This.Value + ENDPROC + + PROCEDURE cmdPDF.Click + *!* 12.05.2011 + *!* Thisform.do_executa(2) && PDF + Thisform.do_executa(3) && XML + PDF + *!* 12.05.2011 ^ + ENDPROC + + PROCEDURE Command1.Click + Do date_identif In oproceduri_decont.prg + ENDPROC + + PROCEDURE Command3.Click + LOCAL lcTabel + lcTabel = thisform._grdrow1.RecordSource + + DO export_decont WITH (lcTabel) IN oproceduri_decont.prg + + ENDPROC + + PROCEDURE _grdrow1.cTVA.Text1.LostFocus + IF NVL(FLOOR(THIS.VALUE),0) <> NVL(FLOOR(THISFORM.nOldvalue),0) + THISFORM.totaluri("tva") + ENDIF + ENDPROC + + PROCEDURE _grdrow1.cTVA.Text1.When + thisform.nOldvalue = this.Value + + IF inactivT = 1 + RETURN .F. + ENDIF + ENDPROC + + PROCEDURE _grdrow1.cValoare.Text1.LostFocus + IF NVL(FLOOR(THIS.VALUE),0) <> NVL(FLOOR(THISFORM.nOldvalue),0) + THISFORM.totaluri("valoare") + ENDIF + ENDPROC + + PROCEDURE _grdrow1.cValoare.Text1.When + thisform.nOldvalue = this.Value + + IF inactivB = 1 + RETURN .F. + ENDIF + ENDPROC + + PROCEDURE _grdrow1.Init + this.SetAll("DynamicBackColor","IIF(antet=2,RGB(180,180,180),IIF(antet=1,RGB(230, 230, 230),IIF(tip=5,RGB(230,244,255),RGB(255,255,255))))", "Column") + + this.cValoare.DynamicBackColor = [iif(inactivB=1,rgb(225,225,225),IIF(tip=5,RGB(230,244,255),IIF(antet=2,RGB(180,180,180),IIF(antet=1,RGB(230, 230, 230),rgb(255,255,255)))))] && rgb(128,128,128) + this.cTVA.DynamicBackColor = [iif(inactivT=1,rgb(225,225,225),IIF(tip=5,RGB(230,244,255),IIF(antet=2,RGB(180,180,180),IIF(antet=1,RGB(230, 230, 230),rgb(255,255,255)))))] + + this.cValoare.DynamicForeColor = [iif(inactivB=1,rgb(225,225,225),IIF(antet=2,RGB(180,180,180),IIF(antet=1,RGB(230, 230, 230),rgb(0,0,0))))] + this.cTVA.DynamicForeColor = [iif(inactivT=1,rgb(225,225,225),IIF(antet=2,RGB(180,180,180),IIF(antet=1,RGB(230, 230, 230),rgb(0,0,0))))] + + + + + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_deconttva_201601 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="_shape3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Command3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="edtInfo" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cmdPDF" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cValoare.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cValoare.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cTVA.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cTVA.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cnt_facturi_dupa_inspectie1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lblRandAtentie" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_label4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtLivrareBaza6N" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtLivrareTVA6N" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtAchizitiiBaza6N" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtAchizitiiTVA6N" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_label5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtLivrareBazaN" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtLivrareTVAN" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtAchizitiiBazaN" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtAchizitiiTVAN" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_label2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_label3" UniqueID="" Timestamp="" /> + + * + *m: do_genereaza_tag && metoda interna ajutatoare + *m: do_genereaza_xdp + *m: do_genereaza_xdp_201111 + *m: do_genereaza_xdp_201201 + *m: do_genereaza_xdp_201301 + *m: do_genereaza_xdp_201601 + *m: totaluri + *m: updateinfo + *m: updatepdf + *p: cd100pdf + *p: cd100rezultat + *p: cd100rezultatfile + *p: cfisierxml + *p: nnumarluni + *p: noldvalue + *p: nrotn && Limitare deducere TVA 4426 id_jtva = 1001. Pentru calculul rand 28 = rand 27 - nROTN + * + + * + BorderStyle = 3 + cd100pdf = '' + cd100rezultat = '' + cd100rezultatfile = '' + cfisierxml = '' + DoCreate = .T. + Height = 626 + Name = "frm_deconttva_201601" + nnumarluni = 0 + noldvalue = 0 + nrotn = 0 + Visible = .F. + Width = 744 + _memberdata = + + + + + + + + _shape1.Anchor = 10 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 749 + _shape1.ZOrderSet = 2 + _shape2.Anchor = 9 + _shape2.Height = 29 + _shape2.Left = 650 + _shape2.Name = "_shape2" + _shape2.Top = -1 + _shape2.Width = 94 + _shape2.ZOrderSet = 3 + Lb_titlu_alb_b121.Caption = "FORMULAR 300 - DECONT DE TAXA PE VALOARE ADAUGATA" + Lb_titlu_alb_b121.Left = 9 + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 8 + Lb_titlu_alb_b121.Top = 7 + Lb_titlu_alb_b121.ZOrderSet = 7 + BUT_TERMIN1.Anchor = 9 + BUT_TERMIN1.Left = 713 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 7 + BUT_TERMIN1.Top = 0 + BUT_TERMIN1.ZOrderSet = 8 + Gridsort1.Left = 204 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 5 + * + + ADD OBJECT '_grdrow1' AS _grdrow WITH ; + Anchor = 15, ; + ColumnCount = 4, ; + DeleteMark = .F., ; + Height = 326, ; + Left = 9, ; + Name = "_grdrow1", ; + Panel = 1, ; + RecordSource = "cDecont", ; + TabIndex = 1, ; + Top = 71, ; + Width = 725, ; + ZOrderSet = 9, ; + Column1.ControlSource = "rand", ; + Column1.Name = "Column1", ; + Column1.ReadOnly = .T., ; + Column1.Width = 41, ; + Column2.ControlSource = "denumire", ; + Column2.Name = "Column2", ; + Column2.ReadOnly = .T., ; + Column2.Width = 430, ; + Column3.ControlSource = "valoare", ; + Column3.DynamicBackColor = "iif(inactivB=1,rgb(225,225,225),rgb(255,255,255))", ; + Column3.Format = "rk", ; + Column3.InputMask = "999 999 999", ; + Column3.Name = "cValoare", ; + Column3.Width = 116, ; + Column4.ControlSource = "tva", ; + Column4.Format = "rk", ; + Column4.InputMask = "999 999 999", ; + Column4.Name = "cTVA", ; + Column4.Width = 102 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_grdrow1.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Rand", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Denumire indicatori", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.cTVA.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.cTVA.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.cValoare.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.cValoare.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_label1' AS _label WITH ; + Anchor = 12, ; + Caption = "A. Livrare", ; + Left = 432, ; + Name = "_label1", ; + Top = 438, ; + ZOrderSet = 16 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_label2' AS _label WITH ; + Anchor = 12, ; + Caption = "B. Achizitie", ; + Left = 431, ; + Name = "_label2", ; + Top = 487, ; + ZOrderSet = 21 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_label3' AS _label WITH ; + Anchor = 12, ; + Caption = "Sold Neexigibil", ; + Left = 432, ; + Name = "_label3", ; + Top = 417, ; + ZOrderSet = 16 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_label4' AS _label WITH ; + Anchor = 12, ; + Caption = "A1. Livrare 6 luni", ; + Left = 432, ; + Name = "_label4", ; + Top = 461, ; + ZOrderSet = 16 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_label5' AS _label WITH ; + Anchor = 12, ; + Caption = "B1. Achizitie 6 luni", ; + Left = 431, ; + Name = "_label5", ; + Top = 511, ; + ZOrderSet = 21 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_shape3' AS _shape WITH ; + Anchor = 12, ; + Height = 127, ; + Left = 424, ; + Name = "_shape3", ; + Top = 408, ; + Width = 312, ; + ZOrderSet = 0 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" /> + + ADD OBJECT 'But_excel1' AS but_excel WITH ; + Anchor = 9, ; + Left = 682, ; + Name = "But_excel1", ; + TabIndex = 6, ; + Top = 0, ; + ZOrderSet = 11 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_listare1' AS but_listare WITH ; + Anchor = 9, ; + Left = 653, ; + Name = "But_listare1", ; + TabIndex = 5, ; + Top = 0, ; + ZOrderSet = 10 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ; + Anchor = 4, ; + Height = 29, ; + Left = 12, ; + Name = "Clb_tx_simplu1", ; + TabIndex = 9, ; + Top = 541, ; + Width = 215, ; + ZOrderSet = 12, ; + Text_simplu1.ControlSource = "pnProRata", ; + Text_simplu1.Height = 23, ; + Text_simplu1.InputMask = "999", ; + Text_simplu1.Left = 147, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Top = 3, ; + Text_simplu1.Width = 61, ; + Lb_simplu1.Caption = "Pro rata de deducere %", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'cmdPDF' AS cmd_executa WITH ; + Alignment = 2, ; + Anchor = 12, ; + BackColor = 0,128,255, ; + Caption = "Export \ + + ADD OBJECT 'Cnt_facturi_dupa_inspectie1' AS cnt_facturi_dupa_inspectie WITH ; + Anchor = 6, ; + Height = 127, ; + Left = 9, ; + Name = "Cnt_facturi_dupa_inspectie1", ; + TabIndex = 2, ; + Top = 408, ; + Width = 416, ; + ZOrderSet = 13, ; + Shape1.Name = "Shape1", ; + LABEL1.Name = "LABEL1", ; + LABEL2.Name = "LABEL2", ; + LABEL3.Name = "LABEL3", ; + LABEL4.Name = "LABEL4", ; + Text1.Name = "Text1", ; + TEXT2.Name = "TEXT2", ; + TEXT3.InputMask = "999 999 999 999", ; + TEXT3.Name = "TEXT3" + *< END OBJECT: ClassLib="ovanzcump.vcx" BaseClass="container" /> + + ADD OBJECT 'Command1' AS commandbutton WITH ; + Anchor = 12, ; + AutoSize = .T., ; + Caption = "Datele de identif. ale firmei", ; + Height = 27, ; + Left = 441, ; + Name = "Command1", ; + TabIndex = 3, ; + Top = 543, ; + Visible = .F., ; + Width = 164, ; + ZOrderSet = 14 + *< END OBJECT: BaseClass="commandbutton" /> + + ADD OBJECT 'Command3' AS commandbutton WITH ; + Anchor = 12, ; + AutoSize = .T., ; + Caption = "Export in fisiere text", ; + ForeColor = 0,0,255, ; + Height = 27, ; + Left = 612, ; + Name = "Command3", ; + TabIndex = 4, ; + Top = 543, ; + Width = 123, ; + ZOrderSet = 1 + *< END OBJECT: BaseClass="commandbutton" /> + + ADD OBJECT 'edtInfo' AS _editbox WITH ; + Anchor = 14, ; + Height = 48, ; + Left = 12, ; + Name = "edtInfo", ; + Top = 576, ; + Visible = .T., ; + Width = 720, ; + ZOrderSet = 4 + *< END OBJECT: ClassLib="..\..\roastart\comun\clase\_baza.vcx" BaseClass="editbox" /> + + ADD OBJECT 'lblRandAtentie' AS _label WITH ; + Anchor = 10, ; + AutoSize = .T., ; + BackColor = 255,255,128, ; + BackStyle = 1, ; + Caption = "Corectati valoarea din randul 28, daca este cazul (SUB-TOTAL TAXA DEDUSA CONFORM ART.145 SAU 147 ) = RD. 27 - Limitare deducere TVA", ; + Height = 32, ; + Left = 10, ; + Name = "lblRandAtentie", ; + Top = 33, ; + Width = 696, ; + WordWrap = .T., ; + ZOrderSet = 15 + *< END OBJECT: ClassLib="..\..\..\contafin\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT 'txtAchizitiiBaza6N' AS _textbox WITH ; + Anchor = 12, ; + ControlSource = "pnAchizitieBaza6N", ; + Height = 23, ; + InputMask = "999 999 999 999", ; + Left = 541, ; + Name = "txtAchizitiiBaza6N", ; + ReadOnly = .F., ; + Top = 508, ; + Width = 94, ; + ZOrderSet = 19 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'txtAchizitiiBazaN' AS _textbox WITH ; + Anchor = 12, ; + ControlSource = "pnAchizitieBazaN", ; + Height = 23, ; + InputMask = "999 999 999 999", ; + Left = 541, ; + Name = "txtAchizitiiBazaN", ; + ReadOnly = .F., ; + Top = 484, ; + Width = 94, ; + ZOrderSet = 19 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'txtAchizitiiTVA6N' AS _textbox WITH ; + Anchor = 12, ; + ControlSource = "pnAchizitieTVA6N", ; + Height = 23, ; + InputMask = "999 999 999 999", ; + Left = 639, ; + Name = "txtAchizitiiTVA6N", ; + ReadOnly = .F., ; + Top = 508, ; + Width = 94, ; + ZOrderSet = 20 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'txtAchizitiiTVAN' AS _textbox WITH ; + Anchor = 12, ; + ControlSource = "pnAchizitieTVAN", ; + Height = 23, ; + InputMask = "999 999 999 999", ; + Left = 639, ; + Name = "txtAchizitiiTVAN", ; + ReadOnly = .F., ; + Top = 484, ; + Width = 94, ; + ZOrderSet = 20 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'txtLivrareBaza6N' AS _textbox WITH ; + Anchor = 12, ; + ControlSource = "pnLivrareBaza6N", ; + Height = 23, ; + InputMask = "999 999 999 999", ; + Left = 541, ; + Name = "txtLivrareBaza6N", ; + ReadOnly = .F., ; + Top = 458, ; + Width = 94, ; + ZOrderSet = 17 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'txtLivrareBazaN' AS _textbox WITH ; + Anchor = 12, ; + ControlSource = "pnLivrareBazaN", ; + Height = 23, ; + InputMask = "999 999 999 999", ; + Left = 541, ; + Name = "txtLivrareBazaN", ; + ReadOnly = .F., ; + Top = 435, ; + Width = 94, ; + ZOrderSet = 17 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'txtLivrareTVA6N' AS _textbox WITH ; + Anchor = 12, ; + ControlSource = "pnLivrareTVA6N", ; + Height = 23, ; + InputMask = "999 999 999 999", ; + Left = 640, ; + Name = "txtLivrareTVA6N", ; + ReadOnly = .F., ; + Top = 458, ; + Width = 94, ; + ZOrderSet = 18 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'txtLivrareTVAN' AS _textbox WITH ; + Anchor = 12, ; + ControlSource = "pnLivrareTVAN", ; + Height = 23, ; + InputMask = "999 999 999 999", ; + Left = 640, ; + Name = "txtLivrareTVAN", ; + ReadOnly = .F., ; + Top = 435, ; + Width = 94, ; + ZOrderSet = 18 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + PROCEDURE Activate + * nu sterge + + Local lnLeft, lnWidth + This.LockScreen=.T. + lnWidth = This.Width + lnLeft = This.Left + + This.WindowState = 2 + This.Width = lnWidth + This.Left = lnLeft + + This.LockScreen=.F. + + ENDPROC + + PROCEDURE do_executa + *!* 01.02.2012 + *!* d300_201201.pdf + + Lparameters tnMenu + *!* tnMenu: 1 = XML, 2 = PDF, 3 = XML + PDF + *!* tnDecl: 100, 102 + #Define CRLF Chr(13) + Chr(10) + + + Local loEx As Exception + Local lnMenu, lcCaleFisier, lcCaleFisierPDF, lcNumeFisier + Local lcAppPath, lcCaleD112, lcComunPath, lcSelect, lcTempPath, lnPos + Local lcFileName, lcFisierPDFNou, lcFisierPDFOriginal, lcFisierXDP, lcFisierXML, lcRun + Local loProcess As "api_apprun" Of "process.vcx" + Local lcD112RezultatFile, lcD112ValidatorFile, lcMesaj, lcRezultat, lcVersiuneDUK + Local lcVersiuneFisiereD112, lcVersiunePDF, llSucces + Local lcCod_fiscal + lcCaleFisier = "" + + lcSelect = Select() + If !Empty(tnMenu) + lnMenu = tnMenu + Else + lnMenu = xmenu("Genereaza \ 0 + lcComunPath = Left(m.lcAppPath, lnPos) + Endif + lcComunPath = ADDBS(m.gcBasePath) + Iif(gcAppName = "CONCONT", "COMUNCONTAFIN\", "COMUNROA\") && d:\contafin\comuncontafin\ + + This.UpdateInfo("Creez structura director export...") + + *** Creez structura director export (caletemp\D112\aaaa_ll\firma\ + llSucces = .F. + + Try + lcTempPath = ADDBS(m.gcBasePath) + + lcCaleFisier = m.lcTempPath + "D300\" && c:\temp\D112\ + + If !Directory(m.lcCaleFisier) + Md (m.lcCaleFisier) + Endif + + *lcCaleFisier = m.lcCaleFisier + Alltrim(Str(This.nAn)) + "_" + Padl(Alltrim(Str(This.nLuna)),2, "0") + "\"&& c:\temp\D112\2011_01\ + lcCaleFisier = m.lcCaleFisier + Alltrim(Str(gnAn)) + "_" + Padl(Alltrim(Str(gnLuna)),2, "0") + "\"&& c:\temp\D112\2011_01\ + If !Directory(m.lcCaleFisier) + Md (m.lcCaleFisier) + Endif + + *lcCaleFisier = m.lcCaleFisier + STRTRAN(This.cNumeFirma,[ ],[_]) + "\" && c:\temp\D112\2011_01\firma\ + lcCaleFisier = m.lcCaleFisier + Strtran(gcFirma,[ ],[_]) + "\" && c:\temp\D112\2011_01\firma\ + If !Directory(m.lcCaleFisier) + Md (m.lcCaleFisier) + Endif + This.UpdateInfo("S-a creat directorul " + m.lcCaleFisier) + + *lcCaleFisierPDF = m.lcCaleFisier + "pdf_inteligent\" && c:\temp\D112\2011_01\firma\pdf_inteligent\ + lcCaleFisierPDF = m.lcCaleFisier && c:\temp\D112\2011_01\firma\ + If !Directory(m.lcCaleFisierPDF) + Md (m.lcCaleFisierPDF) + Endif + This.UpdateInfo("S-a creat directorul " + m.lcCaleFisierPDF) + + llSucces = .T. + Catch To loEx + lcMesaj = "Creare director " + lcCaleFisier + " " + loEx.Message + This.UpdateInfo(lcMesaj) + + Thisform.afiseaza_mesaj(lcMesaj,0+48) + Endtry + If !llSucces + Return + Endif + *!* lcCaleFisier = shortpath(Getdir([],[Alegeti directorul unde se va salva PDF-ul/XML-ul],[Declaratia 112])) + + Do Case + Case gnAn*12 + gnLuna >= 2016*12 + 1 + lcFisierPDFOriginal = lcComunPath + "d300_201601.pdf" + Case gnAn*12 + gnLuna >= 2013*12 + 1 + lcFisierPDFOriginal = lcComunPath + "d300_201301.pdf" + Case gnAn*12 + gnLuna >= 2012*12 + 1 + lcFisierPDFOriginal = lcComunPath + "d300_201201.pdf" + Case gnAn*12 + gnLuna >= 2011*12 + 11 + lcFisierPDFOriginal = lcComunPath + "d300_201111.pdf" + Otherwise + lcFisierPDFOriginal = lcComunPath + "d300.pdf" + Endcase + + *!* 19.01.2012 + This.UpdatePDF(m.lcFisierPDFOriginal) && actualizez pdf de la romfast + *!* 19.01.2012 ^ + + If Upper(Substr(Alltrim(gofirma.cod_fiscal),1,2))='RO' + lcCod_fiscal = Substr(Alltrim(gofirma.cod_fiscal),3,Len(Alltrim(gofirma.cod_fiscal))-2) + Else + lcCod_fiscal = Alltrim(gofirma.cod_fiscal) + Endif + + *lcNumeFisier = "d100_"+ Alltrim(Transform(Thisform.cCodFiscal)) + "_" + Alltrim(Str(Int(Thisform.nAn))) + "_" + Alltrim(Padl(Int(Thisform.nLuna), 2, "0")) + lcNumeFisier = "d300_"+ lcCod_fiscal + "_" + Alltrim(Str(gnAn)) + "_" + Padl(gnLuna, 2, "0") + + + lcFileName = m.lcCaleFisier + lcNumeFisier + + lcFileNamePDF = m.lcCaleFisierPDF + lcNumeFisier + lcFisierPDFNou = m.lcFileNamePDF + [.pdf] + lcFisierXDP = m.lcFileNamePDF + [.xdp] + + lcFisierXML = m.lcFileName + [.xml] + *lcD100ValidatorFile = m.lcComunPath + [dist\DUKIntegrator.jar] + lcD100RezultatFile = m.lcFisierXML + [.err.txt] + + lcVersiuneFisiereD112 = lcComunPath + "versiuni_fisiere.txt" + *this.cD112ValidatorFile = lcD112ValidatorFile + This.cFisierXML = lcFisierXML + This.cD100RezultatFile = lcD100RezultatFile + + If Inlist(lnMenu, 2,3) + If File(lcFisierPDFNou) + Delete File (lcFisierPDFNou) + Endif + If File(lcFisierXDP) + Delete File (lcFisierXDP) + Endif + Endif + If Inlist(lnMenu, 1,3) + If File(lcFisierXML) + Delete File (lcFisierXML) + Endif + If File(m.lcD100RezultatFile) + Delete File (m.lcD100RezultatFile) + Endif + Endif + This.cD100Rezultat = "" + This.cD100PDF = "" + + *** verific pdf original + *!* If Inlist(lnMenu,2,3) + *!* This.verificare_versiune("A") + *!* This.UpdateInfo(REPLICATE('-', 100)) + *!* ENDIF + + *** verific program validare D112 + *!* If Inlist(lnMenu,1,3) + *!* This.verificare_versiune("J") + *!* This.UpdateInfo(REPLICATE('-', 100)) + *!* Endif + + *** creez xml, xdp (= xml data package = xml cu sesiunea pdf-ului inteligent) + + Do Case + Case lnMenu = 1 + This.UpdateInfo("Se exporta datele in format XML") + Thisform.do_genereaza_xml(lcFisierXML) + This.UpdateInfo(Replicate('-', 100)) + *!* Case lnMenu = 2 + *!* This.UpdateInfo("Se exporta datele in format PDF") + *!* Thisform.do_genereaza_xdp(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + *!* This.UpdateInfo(Replicate('-', 100)) + Case INLIST(lnMenu,2,3) + This.UpdateInfo("Se exporta datele in format XML+PDF") + DO CASE + CASE gnAn*12+gnLuna >= 2016*12+1 + Thisform.do_genereaza_xdp_201601(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + + CASE gnAn*12+gnLuna >= 2013*12+1 + Thisform.do_genereaza_xdp_201301(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + + CASE gnAn*12+gnLuna >= 2012*12+1 + Thisform.do_genereaza_xdp_201201(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + + CASE gnAn*12+gnLuna >= 2011*12+11 + Thisform.do_genereaza_xdp_201111(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + + OTHERWISE + Thisform.do_genereaza_xdp(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + ENDCASE + This.UpdateInfo(Replicate('-', 100)) + Endcase + + + *** deschid fisierul XDP (pdf inteligent) + If Inlist(lnMenu,2,3) And File(lcFisierXDP) + If !File(m.lcFisierPDFOriginal) + OPEN_DEFAULT_APP("http://static.anaf.ro/static/10/Anaf/Declaratii_R/300.html") + AMessagebox('Nu exista fisierul ' + m.lcFisierPDFOriginal + CRLF + ; + 'Copiati pdf-ul inteligent D300 de pe website-ul ANAF in directorul ' + Justpath(m.lcFisierPDFOriginal) + CRLF + ; + 'cu numele ' + Justfname(m.lcFisierPDFOriginal) + '.', 0+48, _Screen.Caption) + Else + *** copiez fisierul pdf inteligent original in directorul de export + Copy File (lcFisierPDFOriginal) To (lcFisierPDFNou) + This.cD100PDF = m.lcFisierXDP + If File(m.lcFisierXDP) + This.UpdateInfo([In PDF apasati butonul "Options > Trust this document always" de pe banda galbena pentru a incarca datele.]) + open_default_app(lcFisierXDP) + ENDIF + ENDIF + Endif + + *!* *** deschid explorer in directorul de export + lcRun = [RUN /N7 explorer.exe "] + m.lcCaleFisier + ["] + &lcRun + + + Select (lcSelect) + + + ENDPROC + + PROCEDURE do_genereaza_tag && metoda interna ajutatoare + X=SQLCONNECT("ROA_CENTRAL","MARIUSM_AUTO","123") + LNSUCCES = SQLEXEC(X,"SELECT * from deconttva where valabil = '0112' AND TRIM(RAND) IS NOT NULL order by id_decont", "CRSDECONT") + SQLDISCONNECT(0) + lcText = "" + SELECT CRSDECONT + SCAN + lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1 + lcTag = "r" + m.lcRand + lcVariabilaB = [m.ln] + m.lcRand + "B" && ln17_1B + lcVariabilaT = [m.ln] + m.lcRand + "T" && ln17_1T + lcC1 = "" + lcC2 = "" + IF inactivb = 0 + lcC1 = [<<] + m.lcVariabilaB + [>>] + ENDIF + IF inactivt = 0 + lcC2 = [<<] + m.lcVariabilaT + [>>] + ENDIF + + lcText = lcText + [\<] + m.lcTag + [>] + m.lcC1 + m.lcC2 + [] + CHR(13) + CHR(10) + ENDSCAN + _cliptext = lcText + + TEXT TO lcXX + \<> + \<> + \<> + \<> + \<> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \<> + \<> + \<> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \<> + \<> + \<><> + \<><> + \<> + \<> + \<><> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + ENDTEXT + ENDPROC + + PROCEDURE do_genereaza_xdp + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou + Local lcDateStyle, lcMark, lcXDP + Local lcSelect, lcCod_fiscal + lcSelect = Select() + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + Set Date To Ymd + Set Mark To '-' + + + Set Textmerge On To Memvar lcXDP Noshow + *Set Textmerge On To Memvar lcXML Noshow + \ + \ + \ + \ + \ + + \ + \ + \ 300 + \ + + \ + \
+ \<> + \<> + \
+ + \ + \<> + \<> + \<> + \<> + lcFirma = XmlSpecialCharacters(ALLTRIM(UPPER(NVL(goFirma.antet,'')))) && oproceduri_comune.prg + \<> + + If Upper(Substr(Alltrim(gofirma.cod_fiscal),1,2))='RO' + lcCod_fiscal = Substr(Alltrim(gofirma.cod_fiscal),3,Len(Alltrim(gofirma.cod_fiscal))-2) + Else + lcCod_fiscal = Alltrim(gofirma.cod_fiscal) + Endif + + \<> + + \ + \<> + \<> + \ + + \<> + && la o luna, la 3, 6, 12, cod_imp = 301, 302, 303, 304 + \301 + \ + + \ + + + Select * From cDecont Into Cursor crsControl + + Local lnTabele, lnTabel , lnAntet, lnId_decont, lnPuncte + Store 0 To lnTabele, lnTabel, lnAntet, lnId_decont, lnPuncte + + Select cDecont + Calculate Cnt() For antet = 2 To lnTabele + + Select cDecont + Scan + lnAntet = antet + + If lnAntet = 2 + *!* \ + lnTabel = lnTabel + 1 + + If lnTabel > 1 + \>> + ENDIF + + IF lnTabel = 2 && inainte de al doilea tabel + \ + ENDIF + \>> + *!* end \ + + + + lnId_decont = id_decont + + Select crsControl + Locate For id_decont = lnId_decont + 1 + If Found() + If antet = 1 && daca urmeaza un subtitlu - inainte de randul 1, 17 + \

+ \

+ \

+ \

+ Else && dupa antetul gri nu mai urmeaza un subtitlu alb, ci direct indicatori - inainte de al 3-lea tabel, randul 31 + \

+ \

+ Endif + Endif + + Endif && lnAntet = 2 + + If lnAntet = 1 + lnId_decont = id_decont + Select crsControl + Locate For id_decont = lnId_decont + 1 + If Found() + If antet = 0 && nu este subtitlu dupa antet gri inchis - dupa randul 8, 20 + \

+ ENDIF + ENDIF + ENDIF && lnAntet = 1 + + *!* + Select cDecont + lcRand = ALLTRIM(Rand) + lnPuncte = Occurs('.', lcRand) + If lnPuncte = 1 + lcRand = Strtran(lcRand,'.','_') + Endif + If lnPuncte = 2 + lnUltPunct = Rat('.', lcRand) + lcRand = Substr(lcRand,1,lnUltPunct-1)+Substr(lcRand,lnUltPunct+1,Len(lcRand)-1) + lcRand = Strtran(lcRand,'.','_') + Endif + + If !Empty(Rand) + If inactivb=0 And inactivt = 0 + \>><><>>> + Endif + If inactivb=0 And inactivt = 1 + \>><>>> + Endif + If inactivb=1 And inactivt = 0 + \>><>>> + Endif + Endif + + + + Select cDecont + ENDSCAN + + IF USED('crsControl') + USE IN crsControl + ENDIF + + \>> + + \ + + \ + \N + \10301010611250711000030 + \105419 + \<> + + \ + \ + \<><><> + \ + + \<> + \<> + \ + + \ + \ + \ + \ + \ + + \ + \1 + \ + \Vers.1.0.0/ 2011 + \ + \ + + \ + \ + + \ + \ + \ + \ + + + Set Textmerge To + + Strtofile(lcXDP, tcFisierXDP) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + Select (lcSelect) + + ENDPROC + + PROCEDURE do_genereaza_xdp_201111 + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou + Local lcCod_fiscal, lcDateStyle, lcMark, lcNumeDeclarant, lcNumePrenumeDeclarant, lcPrenumeDeclarant, lcCodFiscal + Local lcRand, lcSelect, lcXDP, lnAntet, lnId_decont, lnPuncte, lnTabel, lnTabele, lnUltPunct + lcSelect = Select() + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + LOCAL lnTipDecont + lnTipDecont = IIF(This.nNumarLuni = 1, 301, IIF(This.nNumarLuni = 3, 302, IIF(This.nNumarLuni = 6, 303, 304))) + + Set Date To Ymd + Set Mark To '-' + SET STEP ON + lcNumePrenumeDeclarant = Alltrim(NVL(gofirma.declarant,'')) + lcNumeDeclarant = lcNumePrenumeDeclarant + lcPrenumeDeclarant = "" + IF GETWORDCOUNT(lcNumePrenumeDeclarant," ") > 1 + lcNumeDeclarant = GETWORDNUM(m.lcNumePrenumeDeclarant, 1, " ") + lcPrenumeDeclarant = ALLTRIM(STRTRAN(m.lcNumePrenumeDeclarant, lcNumeDeclarant, "")) + ENDIF + + Set Textmerge On To Memvar lcXDP Noshow + *Set Textmerge On To Memvar lcXML Noshow + \ + \ + \ + \ + \ + + \ + \ + \
+ \ + \<> + \<> + \0 + && la o luna, la 3, 6, 12, cod_imp = 301, 302, 303, 304 + \<> + \ + \ + + lcCodFiscal = UPPER(Alltrim(NVL(gofirma.cod_fiscal,''))) + If Upper(Substr(m.lcCodFiscal,1,2))='RO' + lcCod_fiscal = ALLTRIM(Substr(m.lcCodFiscal,3)) + Else + lcCod_fiscal = m.lcCodFiscal + Endif + + \<> + lcFirma = XmlSpecialCharacters(ALLTRIM(UPPER(NVL(goFirma.antet,'')))) && oproceduri_comune.prg + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \ + \ + + \ + + Select * From cDecont Into Cursor crsControl + + Store 0 To lnTabele, lnTabel, lnAntet, lnId_decont, lnPuncte + + Select cDecont + Calculate Cnt() For antet = 2 To lnTabele + + Select cDecont + Scan + lnAntet = antet + + If lnAntet = 2 + *!* \ + lnTabel = lnTabel + 1 + + If lnTabel > 1 + \>> + ENDIF + + IF lnTabel = 2 && inainte de al doilea tabel + \ + ENDIF + \>> + *!* end \ + + lnId_decont = id_decont + + Select crsControl + Locate For id_decont = lnId_decont + 1 + If Found() + If antet = 1 && daca urmeaza un subtitlu - inainte de randul 1, 17 + \

+ \

+ \

+ \

+ Else && dupa antetul gri nu mai urmeaza un subtitlu alb, ci direct indicatori - inainte de al 3-lea tabel, randul 31 + \

+ \

+ Endif + Endif + Endif && lnAntet = 2 + + If lnAntet = 1 + lnId_decont = id_decont + Select crsControl + Locate For id_decont = lnId_decont + 1 + If Found() + If antet = 0 && nu este subtitlu dupa antet gri inchis - dupa randul 8, 20 + \

+ ENDIF + ENDIF + ENDIF && lnAntet = 1 + + *!* + Select cDecont + lcRand = ALLTRIM(Rand) + lnPuncte = Occurs('.', lcRand) + If lnPuncte = 1 + lcRand = Strtran(lcRand,'.','_') + Endif + If lnPuncte = 2 + lnUltPunct = Rat('.', lcRand) + lcRand = Substr(lcRand,1,lnUltPunct-1)+Substr(lcRand,lnUltPunct+1,Len(lcRand)-1) + lcRand = Strtran(lcRand,'.','_') + Endif + + If !Empty(Rand) + If inactivb=0 And inactivt = 0 + \>><><>>> + Endif + If inactivb=0 And inactivt = 1 + \>><>>> + Endif + If inactivb=1 And inactivt = 0 + \>><>>> + Endif + Endif + Select cDecont + ENDSCAN + + IF USED('crsControl') + USE IN crsControl + ENDIF + + \>> + + \ + \<> + \N + \ + + \ + \ + \ + \<><><> + \ + \ + + \ + \10301011111251211000022 + \ + \ + \ + \ + \ + + \<> + \<> + \<> + \ + \ + \ + \0 + \ + \ + + \ + \ + \ + \ + + + Set Textmerge To + + Strtofile(lcXDP, tcFisierXDP) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + Select (lcSelect) + + ENDPROC + + PROCEDURE do_genereaza_xdp_201201 + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou + Local lcCod_fiscal, lcDateStyle, lcMark, lcNumeDeclarant, lcNumePrenumeDeclarant, lcPrenumeDeclarant, lcCodFiscal + Local lcRand, lcSelect, lcXDP, lnAntet, lnId_decont, lnPuncte, lnTabel, lnTabele, lnUltPunct + lcSelect = Select() + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + Local lnTipDecont + lnTipDecont = Iif(This.nNumarLuni = 1, 301, Iif(This.nNumarLuni = 3, 302, Iif(This.nNumarLuni = 6, 303, 304))) + + Set Date To Ymd + Set Mark To '-' + Set Step On + lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,'')) + lcNumeDeclarant = lcNumePrenumeDeclarant + lcPrenumeDeclarant = "" + If Getwordcount(lcNumePrenumeDeclarant," ") > 1 + lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ") + lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, "")) + Endif + + *** generez variabile pentru fiecare rand + SELECT rand,denumire,valoare,tva,inactivb,inactivt FROM cDecont WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecont NOFILTER + SELECT crsDecont + SCAN + lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1 + lcVariabilaB = [ln] + m.lcRand + "B" && ln17_1B + lcVariabilaT = [ln] + m.lcRand + "T" && ln17_1T + IF inactivb = 0 + LOCAL &lcVariabilaB + &lcVariabilaB = valoare + ENDIF + IF inactivt = 0 + LOCAL &lcVariabilaT + &lcVariabilaT = tva + ENDIF + ENDSCAN + USE IN (SELECT('crsDecont')) + + Set Textmerge On To Memvar lcXDP Noshow + *Set Textmerge On To Memvar lcXML Noshow + \ + \ + \ + \ + \ + + \ + \ + \
+ \ + \<> + \<> + \0 + && la o luna, la 3, 6, 12, cod_imp = 301, 302, 303, 304 + \<> + \0 + \ + \ + + lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,''))) + If Upper(Substr(m.lcCodFiscal,1,2))='RO' + lcCod_fiscal = Alltrim(Substr(m.lcCodFiscal,3)) + Else + lcCod_fiscal = m.lcCodFiscal + Endif + + \<> + lcFirma = XmlSpecialCharacters(Alltrim(Upper(Nvl(gofirma.antet,'')))) && oproceduri_comune.prg + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \ + \ + + \ + **************************** + *** BODY + \ + \

+ \

+ \

+ \<> + \<> + \<> + \<> + \<> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \ + + \ + \

+ \<><> + \<><> + \<><> + \<><> + \<> + \<> + \<> + \<><> + \<><> + \<><> + + \ + \ + \

+ \

+ \

+ \<><> + \<><> + \<><> + \<><> + \<><> + \ + + \ + \

+ \<><> + \<><> + \<><> + \<><> + \<><> + \<> + \<> + \<><> + \<><> + \<> + \<> + \<><> + \<> + \<> + \ + + \ + \

+ \

+ \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \ + + **************************** + *** FOOTER + \ + \<> + \N + \N + \ + + \ + \ + \ + \<><><> + \ + \ + + \ + \10301011111251211000022 + \ + \ + \ + \ + \ + + \<> + \<> + \<> + \ + \ + \ + \0 + \ + \ + + \ + \ + \ + \ + + + Set Textmerge To + + Strtofile(lcXDP, tcFisierXDP) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + Select (lcSelect) + + + ENDPROC + + PROCEDURE do_genereaza_xdp_201301 + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou + Local lcCod_fiscal, lcDateStyle, lcMark, lcNumeDeclarant, lcNumePrenumeDeclarant, lcPrenumeDeclarant, lcCodFiscal + Local lcRand, lcSelect, lcXDP, lnAntet, lnId_decont, lnPuncte, lnTabel, lnTabele, lnUltPunct + lcSelect = Select() + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + Local lnTipDecont + lnTipDecont = Iif(This.nNumarLuni = 1, 301, Iif(This.nNumarLuni = 3, 302, Iif(This.nNumarLuni = 6, 303, 304))) + + Set Date To Ymd + Set Mark To '-' + Set Step On + lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,'')) + lcNumeDeclarant = lcNumePrenumeDeclarant + lcPrenumeDeclarant = "" + If Getwordcount(lcNumePrenumeDeclarant," ") > 1 + lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ") + lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, "")) + Endif + + *** generez variabile pentru fiecare rand + SELECT rand,denumire,valoare,tva,inactivb,inactivt FROM cDecont WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecont NOFILTER + SELECT crsDecont + SCAN + lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1 + lcVariabilaB = [ln] + m.lcRand + "B" && ln17_1B + lcVariabilaT = [ln] + m.lcRand + "T" && ln17_1T + IF inactivb = 0 + LOCAL &lcVariabilaB + &lcVariabilaB = valoare + ENDIF + IF inactivt = 0 + LOCAL &lcVariabilaT + &lcVariabilaT = tva + ENDIF + ENDSCAN + USE IN (SELECT('crsDecont')) + + Set Textmerge On To Memvar lcXDP Noshow + *Set Textmerge On To Memvar lcXML Noshow + \ + \ + \ + \ + \ + + \ + \ + \
+ \ + \<> + \<> + \0 + && la o luna, la 3, 6, 12, cod_imp = 301, 302, 303, 304 + \<> + \0 + \ + \ + + lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,''))) + If Upper(Substr(m.lcCodFiscal,1,2))='RO' + lcCod_fiscal = Alltrim(Substr(m.lcCodFiscal,3)) + Else + lcCod_fiscal = m.lcCodFiscal + Endif + + \<> + lcFirma = XmlSpecialCharacters(Alltrim(Upper(Nvl(gofirma.antet,'')))) && oproceduri_comune.prg + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \ + \ + + \ + **************************** + *** BODY + \ + \

+ \

+ \

+ \<> + \<> + \<> + \<> + \<> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \ + + \ + \

+ \<><> + \<><> + \<><> + \<><> + \<> + \<> + \<> + \<><> + \<><> + + \ + \ + \

+ \

+ \

+ \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \ + + \ + \

+ \<><> + \<><> + \<><> + \<><> + \<><> + \<> + \<> + \<><> + \<> + \<> + \<><> + \<> + \<> + \ + + \ + \

+ \

+ \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \ + + **************************** + *** FOOTER + \ + \<> + \N + \N + \ + + \ + \ + \ + \<><><> + \ + \<><><><> + \ + + \ + \10301010113250213000024 + \ + \ + \ + \ + \ + + \<> + \<> + \<> + \ + \ + \ + \0 + \ + \ + + \ + \ + \ + \ + + + Set Textmerge To + + Strtofile(lcXDP, tcFisierXDP) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + Select (lcSelect) + + + ENDPROC + + PROCEDURE do_genereaza_xdp_201601 + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou + Local lcCod_fiscal, lcDateStyle, lcMark, lcNumeDeclarant, lcNumePrenumeDeclarant, lcPrenumeDeclarant, lcCodFiscal + Local lcRand, lcSelect, lcXDP, lnAntet, lnId_decont, lnPuncte, lnTabel, lnTabele, lnUltPunct + lcSelect = Select() + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + Local lnTipDecont + lnTipDecont = Iif(This.nNumarLuni = 1, 301, Iif(This.nNumarLuni = 3, 302, Iif(This.nNumarLuni = 6, 303, 304))) + + Set Date To Ymd + Set Mark To '-' + Set Step On + lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,'')) + lcNumeDeclarant = lcNumePrenumeDeclarant + lcPrenumeDeclarant = "" + If Getwordcount(lcNumePrenumeDeclarant," ") > 1 + lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ") + lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, "")) + Endif + + *** generez variabile pentru fiecare rand + SELECT rand,denumire,valoare,tva,inactivb,inactivt FROM cDecont WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecont NOFILTER + SELECT crsDecont + SCAN + lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1 + lcVariabilaB = [ln] + m.lcRand + "B" && ln17_1B + lcVariabilaT = [ln] + m.lcRand + "T" && ln17_1T + IF inactivb = 0 + LOCAL &lcVariabilaB + &lcVariabilaB = valoare + ENDIF + IF inactivt = 0 + LOCAL &lcVariabilaT + &lcVariabilaT = tva + ENDIF + ENDSCAN + USE IN (SELECT('crsDecont')) + + Set Textmerge On To Memvar lcXDP Noshow + *Set Textmerge On To Memvar lcXML Noshow + \ + \ + \ + \ + \ + + \ + \ + \
+ \ + \<> + \<> + \0 + && la o luna, la 3, 6, 12, cod_imp = 301, 302, 303, 304 + \<> + \0 + \ + \ + + lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,''))) + If Upper(Substr(m.lcCodFiscal,1,2))='RO' + lcCod_fiscal = Alltrim(Substr(m.lcCodFiscal,3)) + Else + lcCod_fiscal = m.lcCodFiscal + Endif + + \<> + lcFirma = XmlSpecialCharacters(Alltrim(Upper(Nvl(gofirma.antet,'')))) && oproceduri_comune.prg + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \ + \ + + \ + **************************** + *** BODY + \ + \

+ \

+ \

+ \<> + \<> + \<> + \<> + \<> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \ + + \ + \

+ \<><> + \<><> + \<><> + \<><> + + \<><> + \<><> + \<><> + + \<> + \<> + \<> + \<><> + \<><> + + \ + \ + \

+ \

+ \

+ \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \ + + \ + \

+ \<><> + \<><> + \<><> + \<><> + \<><> + + \<><> + \<><> + \<><> + + \<> + \<> + \<><> + \<> + \<> + \<><> + \<> + \<> + \ + + \ + \

+ \

+ \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \ + + **************************** + *** FOOTER + \ + \<> + \N + \N + \ + + \ + \ + \ + \<><><> + \ + \<><><><> + \<><><><> + \ + + \ + \ + \ + \ + \ + \ + \ + + \<> + \<> + \<> + \ + \ + \ + \0 + \ + \ + + \ + \ + \ + \ + + + Set Textmerge To + + Strtofile(lcXDP, tcFisierXDP) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + Select (lcSelect) + + + ENDPROC + + PROCEDURE inainte_de_do_excel + DO export_excel_grid WITH this._grdrow1 + + ENDPROC + + PROCEDURE inainte_de_do_listare + Local lcTabel + lcTabel = Thisform._grdrow1.RecordSource + If Reccount(lcTabel)>0 + Private pcCaen + pcCaen = Alltrim(gofirma.caen) + + If !Empty(pcCaen) And !Isnull(pcCaen) + Private poCaen + Store '' To poCaen + pcschema=[] + pcselect=['select codcaen from sitfin_codcaen where 1=2 '] + pcfiltru=[cod=] + pcCaen + pcorder=[] + llAfisare=.F. + gencursor('poCaen','cCaen',pcselect,pcfiltru,pcschema,pcorder,llAfisare) + poCaen.ca_baza1.afisare() + + Select cCaen + pcCaen = codcaen + + If Used('cCaen') + Use In cCaen + Endif + Endif + + Thisform.AlwaysOnTop = .F. + Select (lcTabel) + Report Form decont To Printer Prompt Preview + Thisform.AlwaysOnTop = .T. + Else + amessagebox("Nu exista inregistrari pentru listare!",48,"Atentie") + Endif + ENDPROC + + PROCEDURE Init + LPARAMETERS tnNumarLuni + + This.nNumarLuni = m.tnNumarLuni + DODEFAULT() + ENDPROC + + PROCEDURE Show + Lparameters nStyle + + Thisform.totaluri("valoare", .T.) + Thisform.totaluri("tva", .T.) + + DoDefault(nStyle) + + ENDPROC + + PROCEDURE totaluri + *!* 20.07.2012 + *!* marius.mutu + *!* completare initiala randul 28 = randul 27 + + Lparameters tcColoana, tlFirstTime + Local lcFormula, lcColoana, lcTabel, lnSuma, lnId_ind, lcRand + + If Empty(tcColoana) + lcColoana = "valoare" + Else + lcColoana = Alltrim(tcColoana) + Endif + + lcTabel = thisform._grdrow1.RecordSource + Select * From (lcTabel) WITH (BUFFERING = .T.) Into Cursor cTemp Readwrite NOFILTER + + Select cTemp + Scan For tip = 5 + lnSuma = 0 + lcFormula = Alltrim(cTemp.formula) + lcRand = ALLTRIM(rand) + *!* IF '32'$lcRand AND 'tva'$LOWER(lcColoana) + *!* DEBUG + *!* SUSPEND + *!* ENDIF + *!* WAIT WINDOW lcFormula + " - " + lcColoana NOWAIT + lnSuma = calc_indicatori_randuri(lcFormula, "cTemp",lcColoana) + Select cTemp + Replace &lcColoana With lnSuma + Select (lcTabel) + Update (lcTabel) Set &lcColoana = lnSuma Where ALLTRIM(rand) = lcRand + + Select cTemp + Endscan + Use In cTemp + + *** COMPLETEZ INITIAL RANDUL 28 SUB-TOTAL TAXA DEDUSA CONFORM ART.145 SAU 147, CU RANDUL 27 + *** NU PUN FORMULA LA FEL CA LA 27, PENTRU CA NU SE MAI POATE MODIFICA DE CATRE UTILIZATOR + IF m.tlFirstTime AND m.gnAn >= 2012 + lnROTN = This.nRotn && limitare deducere TVA 4426 + SELECT (lcTabel) + LOCATE FOR rand = '27' && TOTAL TAXA DEDUCTIBILA (suma de la rd.18 pana la rd.25, cu exceptia celor de la rd.18.1 si 20.1), din care: + IF FOUND() + lnSuma = &lcColoana + LOCATE FOR rand = '28' AND &lcColoana = 0 + IF FOUND() + REPLACE &lcColoana WITH m.lnSuma - m.lnROTN + This.Totaluri(tcColoana, .F.) && recalculez totalurile dupa ce am modificat valoarea + ENDIF + ENDIF + ENDIF + + Select (lcTabel) + Go Top + ENDPROC + + PROCEDURE updateinfo + #DEFINE CRLF CHR(13) + CHR(10) + Lparameters tcInfo + + + Local loInfo + loInfo = this.edtInfo + If Upper(tcInfo) = 'RESET' + loInfo.Value = "" + Else + loInfo.Value = loInfo.Value + m.tcInfo + CRLF + CRLF + Endif + loInfo.Refresh() + + + ENDPROC + + PROCEDURE updatepdf + Lparameters tcPDFFile + *** tcPDFFile: calea completa a fisierului pdf D:\CONTAFIN\COMUNCONTAFIN\d390.pdf + + Local lcFile, lcPath, llOpen + lcFile = Justfname(m.tcPDFFile) + lcPath = Addbs(Justpath(m.tcPDFFile)) + llOpen = .F. + + Return DownloadSupportFile(m.lcFile, m.lcPath, m.llOpen) && proceduri_comune.prg + + + ENDPROC + + PROCEDURE Clb_tx_simplu1.Text_simplu1.Valid + IF NVL(FLOOR(THIS.VALUE),0) <> NVL(FLOOR(THISFORM.nOldvalue),0) + THISFORM.totaluri("tva") + ENDIF + ENDPROC + + PROCEDURE Clb_tx_simplu1.Text_simplu1.When + THISFORM.nOldvalue = This.Value + ENDPROC + + PROCEDURE cmdPDF.Click + *!* 12.05.2011 + *!* Thisform.do_executa(2) && PDF + Thisform.do_executa(3) && XML + PDF + *!* 12.05.2011 ^ + ENDPROC + + PROCEDURE Command1.Click + Do date_identif In oproceduri_decont.prg + ENDPROC + + PROCEDURE Command3.Click + LOCAL lcTabel + lcTabel = thisform._grdrow1.RecordSource + + DO export_decont WITH (lcTabel) IN oproceduri_decont.prg + + ENDPROC + + PROCEDURE _grdrow1.cTVA.Text1.LostFocus + IF NVL(FLOOR(THIS.VALUE),0) <> NVL(FLOOR(THISFORM.nOldvalue),0) + THISFORM.totaluri("tva") + ENDIF + ENDPROC + + PROCEDURE _grdrow1.cTVA.Text1.When + thisform.nOldvalue = this.Value + + IF inactivT = 1 + RETURN .F. + ENDIF + ENDPROC + + PROCEDURE _grdrow1.cValoare.Text1.LostFocus + IF NVL(FLOOR(THIS.VALUE),0) <> NVL(FLOOR(THISFORM.nOldvalue),0) + THISFORM.totaluri("valoare") + ENDIF + ENDPROC + + PROCEDURE _grdrow1.cValoare.Text1.When + thisform.nOldvalue = this.Value + + IF inactivB = 1 + RETURN .F. + ENDIF + ENDPROC + + PROCEDURE _grdrow1.Init + this.SetAll("DynamicBackColor","IIF(antet=2,RGB(180,180,180),IIF(antet=1,RGB(230, 230, 230),IIF(tip=5,RGB(230,244,255),RGB(255,255,255))))", "Column") + + this.cValoare.DynamicBackColor = [iif(inactivB=1,rgb(225,225,225),IIF(tip=5,RGB(230,244,255),IIF(antet=2,RGB(180,180,180),IIF(antet=1,RGB(230, 230, 230),rgb(255,255,255)))))] && rgb(128,128,128) + this.cTVA.DynamicBackColor = [iif(inactivT=1,rgb(225,225,225),IIF(tip=5,RGB(230,244,255),IIF(antet=2,RGB(180,180,180),IIF(antet=1,RGB(230, 230, 230),rgb(255,255,255)))))] + + this.cValoare.DynamicForeColor = [iif(inactivB=1,rgb(225,225,225),IIF(antet=2,RGB(180,180,180),IIF(antet=1,RGB(230, 230, 230),rgb(0,0,0))))] + this.cTVA.DynamicForeColor = [iif(inactivT=1,rgb(225,225,225),IIF(antet=2,RGB(180,180,180),IIF(antet=1,RGB(230, 230, 230),rgb(0,0,0))))] + + + + + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_deconttva_201701 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="_shape3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Command3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="edtInfo" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cmdPDF" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cValoare.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cValoare.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cTVA.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cTVA.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cnt_facturi_dupa_inspectie4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cnt_facturi_dupa_inspectie3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cnt_facturi_dupa_inspectie2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cnt_facturi_dupa_inspectie1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lblRandAtentie" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_label3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtLivrareBazaN" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtLivrareTVAN" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtAchizitiiBazaN" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtAchizitiiTVAN" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_label2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_label4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtLivrareBaza6N" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtLivrareTVA6N" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtAchizitiiBaza6N" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtAchizitiiTVA6N" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_label5" UniqueID="" Timestamp="" /> + + * + *m: do_genereaza_tag && metoda interna ajutatoare + *m: do_genereaza_xdp + *m: do_genereaza_xdp_201111 + *m: do_genereaza_xdp_201201 + *m: do_genereaza_xdp_201301 + *m: do_genereaza_xdp_201601 + *m: do_genereaza_xdp_201701 + *m: do_genereaza_xdp_201901 + *m: do_genereaza_xdp_202308 + *m: do_genereaza_xdp_202405 + *m: do_genereaza_xdp_202508 + *m: totaluri + *m: updateinfo + *m: updatepdf + *p: cd100pdf + *p: cd100rezultat + *p: cd100rezultatfile + *p: cfisierxml + *p: nnumarluni + *p: noldvalue + *p: nrotn && Limitare deducere TVA 4426 id_jtva = 1001. Pentru calculul rand 28 = rand 27 - nROTN + * + + * + BorderStyle = 3 + cd100pdf = '' + cd100rezultat = '' + cd100rezultatfile = '' + cfisierxml = '' + DoCreate = .T. + Height = 640 + Name = "frm_deconttva_201701" + nnumarluni = 0 + noldvalue = 0 + nrotn = 0 + Visible = .F. + Width = 850 + _memberdata = + + + + + + + + _shape1.Anchor = 10 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 852 + _shape1.ZOrderSet = 2 + _shape2.Anchor = 9 + _shape2.Height = 29 + _shape2.Left = 761 + _shape2.Name = "_shape2" + _shape2.Top = -1 + _shape2.Width = 111 + _shape2.ZOrderSet = 3 + Lb_titlu_alb_b121.Caption = "FORMULAR 300 - DECONT DE TAXA PE VALOARE ADAUGATA" + Lb_titlu_alb_b121.Left = 9 + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 11 + Lb_titlu_alb_b121.Top = 7 + Lb_titlu_alb_b121.ZOrderSet = 7 + BUT_TERMIN1.Anchor = 9 + BUT_TERMIN1.Left = 820 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 10 + BUT_TERMIN1.Top = 0 + BUT_TERMIN1.ZOrderSet = 8 + Gridsort1.Left = 204 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 5 + * + + ADD OBJECT '_grdrow1' AS _grdrow WITH ; + Anchor = 15, ; + ColumnCount = 4, ; + DeleteMark = .F., ; + Height = 253, ; + Left = 9, ; + Name = "_grdrow1", ; + Panel = 1, ; + RecordSource = "cDecont", ; + TabIndex = 1, ; + Top = 71, ; + Width = 831, ; + ZOrderSet = 9, ; + Column1.ControlSource = "rand", ; + Column1.Name = "Column1", ; + Column1.ReadOnly = .T., ; + Column1.Width = 41, ; + Column2.ControlSource = "denumire", ; + Column2.Name = "Column2", ; + Column2.ReadOnly = .T., ; + Column2.Width = 454, ; + Column3.ControlSource = "valoare", ; + Column3.DynamicBackColor = "iif(inactivB=1,rgb(225,225,225),rgb(255,255,255))", ; + Column3.Format = "rk", ; + Column3.InputMask = "999 999 999", ; + Column3.Name = "cValoare", ; + Column3.Width = 121, ; + Column4.ControlSource = "tva", ; + Column4.Format = "rk", ; + Column4.InputMask = "999 999 999", ; + Column4.Name = "cTVA", ; + Column4.Width = 121 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_grdrow1.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Rand", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Denumire indicatori", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.cTVA.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.cTVA.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.cValoare.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.cValoare.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_label1' AS _label WITH ; + Anchor = 12, ; + Caption = "A. Livrare", ; + Height = 18, ; + Left = 440, ; + Name = "_label1", ; + TabIndex = 17, ; + Top = 356, ; + Width = 56, ; + ZOrderSet = 16 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_label2' AS _label WITH ; + Anchor = 12, ; + Caption = "B. Achizitie", ; + Height = 18, ; + Left = 439, ; + Name = "_label2", ; + TabIndex = 22, ; + Top = 405, ; + Width = 69, ; + ZOrderSet = 21 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_label3' AS _label WITH ; + Anchor = 12, ; + Caption = "Sold Neexigibil", ; + Height = 18, ; + Left = 440, ; + Name = "_label3", ; + TabIndex = 16, ; + Top = 335, ; + Width = 88, ; + ZOrderSet = 16 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_label4' AS _label WITH ; + Anchor = 12, ; + Caption = "A1. Livrare 6 luni", ; + Height = 18, ; + Left = 440, ; + Name = "_label4", ; + TabIndex = 23, ; + Top = 379, ; + Width = 98, ; + ZOrderSet = 16 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_label5' AS _label WITH ; + Anchor = 12, ; + Caption = "B1. Achizitie 6 luni", ; + Height = 18, ; + Left = 439, ; + Name = "_label5", ; + TabIndex = 28, ; + Top = 429, ; + Width = 111, ; + ZOrderSet = 21 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_shape3' AS _shape WITH ; + Anchor = 12, ; + Height = 127, ; + Left = 424, ; + Name = "_shape3", ; + Top = 326, ; + Width = 415, ; + ZOrderSet = 0 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" /> + + ADD OBJECT 'But_excel1' AS but_excel WITH ; + Anchor = 9, ; + Left = 789, ; + Name = "But_excel1", ; + TabIndex = 9, ; + Top = 0, ; + ZOrderSet = 11 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_listare1' AS but_listare WITH ; + Anchor = 9, ; + Left = 760, ; + Name = "But_listare1", ; + TabIndex = 8, ; + Top = 0, ; + ZOrderSet = 10 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ; + Anchor = 4, ; + Height = 29, ; + Left = 12, ; + Name = "Clb_tx_simplu1", ; + TabIndex = 12, ; + Top = 541, ; + Width = 215, ; + ZOrderSet = 12, ; + Text_simplu1.ControlSource = "pnProRata", ; + Text_simplu1.Height = 23, ; + Text_simplu1.InputMask = "999", ; + Text_simplu1.Left = 147, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Top = 3, ; + Text_simplu1.Width = 61, ; + Lb_simplu1.Caption = "Pro rata de deducere %", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'cmdPDF' AS cmd_executa WITH ; + Alignment = 2, ; + Anchor = 12, ; + BackColor = 0,128,255, ; + Caption = "Export \ + + ADD OBJECT 'Cnt_facturi_dupa_inspectie1' AS cnt_facturi_dupa_inspectie WITH ; + Anchor = 6, ; + Height = 68, ; + Left = 9, ; + Name = "Cnt_facturi_dupa_inspectie1", ; + TabIndex = 5, ; + Top = 326, ; + Width = 416, ; + ZOrderSet = 13, ; + Shape1.Name = "Shape1", ; + LABEL1.Caption = "Facturi emise dupa inspectia fiscala, cf. art. 330 alin. (3) din Codul Fiscal ", ; + LABEL1.Name = "LABEL1", ; + LABEL2.Name = "LABEL2", ; + LABEL3.Name = "LABEL3", ; + LABEL4.Name = "LABEL4", ; + Text1.Name = "Text1", ; + TEXT2.InputMask = "999 999 999 999", ; + TEXT2.Name = "TEXT2", ; + TEXT3.InputMask = "999 999 999 999", ; + TEXT3.Name = "TEXT3" + *< END OBJECT: ClassLib="ovanzcump.vcx" BaseClass="container" /> + + ADD OBJECT 'Cnt_facturi_dupa_inspectie2' AS cnt_facturi_dupa_inspectie WITH ; + Anchor = 6, ; + Height = 69, ; + Left = 9, ; + Name = "Cnt_facturi_dupa_inspectie2", ; + TabIndex = 3, ; + Top = 394, ; + Width = 416, ; + ZOrderSet = 13, ; + Shape1.Name = "Shape1", ; + Label1.Caption = "Facturi primite dupa inspectia fiscala, cf. pct. 108 alin. (6) din Norm. Met.", ; + Label1.Name = "Label1", ; + Label2.Name = "Label2", ; + Label3.Name = "Label3", ; + Label4.Name = "Label4", ; + Text1.ControlSource = "pnNr_facturi2", ; + Text1.Name = "Text1", ; + Text2.ControlSource = "pnBaza2", ; + Text2.InputMask = "999 999 999 999", ; + Text2.Name = "Text2", ; + Text3.ControlSource = "pnTVA2", ; + Text3.InputMask = "999 999 999 999", ; + Text3.Name = "Text3" + *< END OBJECT: ClassLib="ovanzcump.vcx" BaseClass="container" /> + + ADD OBJECT 'Cnt_facturi_dupa_inspectie3' AS cnt_facturi_dupa_inspectie WITH ; + Anchor = 6, ; + Height = 69, ; + Left = 9, ; + Name = "Cnt_facturi_dupa_inspectie3", ; + TabIndex = 4, ; + Top = 462, ; + Width = 416, ; + ZOrderSet = 13, ; + Shape1.Name = "Shape1", ; + Label1.Caption = "Facturi emise, cf. art. 11 alin (6) si (8) din Codul Fiscal", ; + Label1.Name = "Label1", ; + Label2.Name = "Label2", ; + Label3.Name = "Label3", ; + Label4.Name = "Label4", ; + Text1.ControlSource = "pnNr_facturi3", ; + Text1.Name = "Text1", ; + Text2.ControlSource = "pnBaza3", ; + Text2.InputMask = "999 999 999 999", ; + Text2.Name = "Text2", ; + Text3.ControlSource = "pnTVA3", ; + Text3.InputMask = "999 999 999 999", ; + Text3.Name = "Text3" + *< END OBJECT: ClassLib="ovanzcump.vcx" BaseClass="container" /> + + ADD OBJECT 'Cnt_facturi_dupa_inspectie4' AS cnt_facturi_dupa_inspectie WITH ; + Anchor = 12, ; + Height = 69, ; + Left = 424, ; + Name = "Cnt_facturi_dupa_inspectie4", ; + TabIndex = 2, ; + Top = 462, ; + Width = 416, ; + ZOrderSet = 13, ; + Shape1.Name = "Shape1", ; + Label1.Caption = "Prest. serv. catre pers. neimpoz. din alte state UE art. 278 alin. (8) lit. b) C.F.", ; + Label1.Name = "Label1", ; + Label2.Left = 7, ; + Label2.Name = "Label2", ; + Label2.Top = 85, ; + Label2.Visible = .F., ; + Label3.Caption = "Valoare fara TVA an precedent", ; + Label3.Left = 8, ; + Label3.Name = "Label3", ; + Label3.Top = 25, ; + Label4.Caption = "Valoare fara TVA an curent", ; + Label4.Left = 234, ; + Label4.Name = "Label4", ; + Label4.Top = 24, ; + Text1.ControlSource = "", ; + Text1.Left = 18, ; + Text1.Name = "Text1", ; + Text1.Top = 101, ; + Text1.Visible = .F., ; + Text2.ControlSource = "pnBaza41", ; + Text2.InputMask = "999 999 999 999", ; + Text2.Left = 8, ; + Text2.Name = "Text2", ; + Text2.Top = 40, ; + Text3.ControlSource = "pnBaza42", ; + Text3.InputMask = "999 999 999 999", ; + Text3.Left = 234, ; + Text3.Name = "Text3", ; + Text3.Top = 40 + *< END OBJECT: ClassLib="ovanzcump.vcx" BaseClass="container" /> + + ADD OBJECT 'Command1' AS commandbutton WITH ; + Anchor = 12, ; + AutoSize = .T., ; + Caption = "Datele de identif. ale firmei", ; + FontSize = 10, ; + Left = 360, ; + Name = "Command1", ; + TabIndex = 6, ; + Top = 651, ; + Visible = .F., ; + Width = 175, ; + ZOrderSet = 14 + *< END OBJECT: BaseClass="commandbutton" /> + + ADD OBJECT 'Command3' AS commandbutton WITH ; + Anchor = 12, ; + AutoSize = .T., ; + Caption = "Export in fisiere text", ; + ForeColor = 0,0,255, ; + Height = 27, ; + Left = 408, ; + Name = "Command3", ; + TabIndex = 7, ; + Top = 653, ; + Visible = .F., ; + Width = 123, ; + ZOrderSet = 1 + *< END OBJECT: BaseClass="commandbutton" /> + + ADD OBJECT 'edtInfo' AS _editbox WITH ; + Anchor = 14, ; + Height = 48, ; + Left = 12, ; + Name = "edtInfo", ; + TabIndex = 13, ; + Top = 582, ; + Visible = .T., ; + Width = 828, ; + ZOrderSet = 4 + *< END OBJECT: ClassLib="..\..\roastart\comun\clase\_baza.vcx" BaseClass="editbox" /> + + ADD OBJECT 'lblRandAtentie' AS _label WITH ; + Anchor = 10, ; + AutoSize = .F., ; + BackColor = 255,255,128, ; + BackStyle = 1, ; + Caption = "Corectati valoarea din randul 32, daca este cazul (SUB-TOTAL TAXA DEDUSA CONFORM ART.297 SI 298 SAU 300 ) = RD. 31 - Limitare deducere TVA", ; + FontSize = 10, ; + Height = 39, ; + Left = 10, ; + Name = "lblRandAtentie", ; + TabIndex = 15, ; + Top = 33, ; + Width = 818, ; + WordWrap = .T., ; + ZOrderSet = 15 + *< END OBJECT: ClassLib="..\..\..\contafin\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT 'txtAchizitiiBaza6N' AS _textbox WITH ; + Anchor = 12, ; + ControlSource = "pnAchizitieBaza6N", ; + Height = 23, ; + InputMask = "999 999 999 999", ; + Left = 591, ; + Name = "txtAchizitiiBaza6N", ; + ReadOnly = .F., ; + TabIndex = 26, ; + Top = 426, ; + Width = 114, ; + ZOrderSet = 19 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'txtAchizitiiBazaN' AS _textbox WITH ; + Anchor = 12, ; + ControlSource = "pnAchizitieBazaN", ; + Height = 23, ; + InputMask = "999 999 999 999", ; + Left = 591, ; + Name = "txtAchizitiiBazaN", ; + ReadOnly = .F., ; + TabIndex = 20, ; + Top = 402, ; + Width = 114, ; + ZOrderSet = 19 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'txtAchizitiiTVA6N' AS _textbox WITH ; + Anchor = 12, ; + ControlSource = "pnAchizitieTVA6N", ; + Height = 23, ; + InputMask = "999 999 999 999", ; + Left = 713, ; + Name = "txtAchizitiiTVA6N", ; + ReadOnly = .F., ; + TabIndex = 27, ; + Top = 426, ; + Width = 114, ; + ZOrderSet = 20 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'txtAchizitiiTVAN' AS _textbox WITH ; + Anchor = 12, ; + ControlSource = "pnAchizitieTVAN", ; + Height = 23, ; + InputMask = "999 999 999 999", ; + Left = 713, ; + Name = "txtAchizitiiTVAN", ; + ReadOnly = .F., ; + TabIndex = 21, ; + Top = 402, ; + Width = 114, ; + ZOrderSet = 20 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'txtLivrareBaza6N' AS _textbox WITH ; + Anchor = 12, ; + ControlSource = "pnLivrareBaza6N", ; + Height = 23, ; + InputMask = "999 999 999 999", ; + Left = 591, ; + Name = "txtLivrareBaza6N", ; + ReadOnly = .F., ; + TabIndex = 24, ; + Top = 376, ; + Width = 114, ; + ZOrderSet = 17 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'txtLivrareBazaN' AS _textbox WITH ; + Anchor = 12, ; + ControlSource = "pnLivrareBazaN", ; + Height = 23, ; + InputMask = "999 999 999 999", ; + Left = 591, ; + Name = "txtLivrareBazaN", ; + ReadOnly = .F., ; + TabIndex = 18, ; + Top = 353, ; + Width = 114, ; + ZOrderSet = 17 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'txtLivrareTVA6N' AS _textbox WITH ; + Anchor = 12, ; + ControlSource = "pnLivrareTVA6N", ; + Height = 23, ; + InputMask = "999 999 999 999", ; + Left = 714, ; + Name = "txtLivrareTVA6N", ; + ReadOnly = .F., ; + TabIndex = 25, ; + Top = 376, ; + Width = 114, ; + ZOrderSet = 18 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'txtLivrareTVAN' AS _textbox WITH ; + Anchor = 12, ; + ControlSource = "pnLivrareTVAN", ; + Height = 23, ; + InputMask = "999 999 999 999", ; + Left = 714, ; + Name = "txtLivrareTVAN", ; + ReadOnly = .F., ; + TabIndex = 19, ; + Top = 353, ; + Width = 114, ; + ZOrderSet = 18 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + PROCEDURE Activate + * nu sterge + + Local lnLeft, lnWidth + This.LockScreen=.T. + lnWidth = This.Width + lnLeft = This.Left + + This.WindowState = 2 + This.Width = lnWidth + This.Left = lnLeft + + This.LockScreen=.F. + + ENDPROC + + PROCEDURE do_executa + *!* 01.02.2012 + *!* d300_201201.pdf + + Lparameters tnMenu + *!* tnMenu: 1 = XML, 2 = PDF, 3 = XML + PDF + *!* tnDecl: 100, 102 + #Define CRLF Chr(13) + Chr(10) + + + Local loEx As Exception + Local lnMenu, lcCaleFisier, lcCaleFisierPDF, lcNumeFisier + Local lcAppPath, lcCaleD112, lcComunPath, lcSelect, lcTempPath, lnPos + Local lcFileName, lcFisierPDFNou, lcFisierPDFOriginal, lcFisierXDP, lcFisierXML, lcRun + Local loProcess As "api_apprun" Of "process.vcx" + Local lcD112RezultatFile, lcD112ValidatorFile, lcMesaj, lcRezultat, lcVersiuneDUK + Local lcVersiuneFisiereD112, lcVersiunePDF, llSucces + Local lcCod_fiscal, lcCaenRevizie, lnCaenRevizie + lcCaleFisier = "" + + lcSelect = Select() + If !Empty(tnMenu) + lnMenu = tnMenu + Else + lnMenu = xmenu("Genereaza \ 0 + lcComunPath = Left(m.lcAppPath, lnPos) + Endif + lcComunPath = ADDBS(m.gcBasePath) + Iif(gcAppName = "CONCONT", "COMUNCONTAFIN\", "COMUNROA\") && d:\contafin\comuncontafin\ + + This.UpdateInfo("Creez structura director export...") + + *** Creez structura director export (caletemp\D112\aaaa_ll\firma\ + llSucces = .F. + + Try + lcTempPath = ADDBS(m.gcBasePath) + + lcCaleFisier = m.lcTempPath + "D300\" && c:\temp\D112\ + + If !Directory(m.lcCaleFisier) + Md (m.lcCaleFisier) + Endif + + *lcCaleFisier = m.lcCaleFisier + Alltrim(Str(This.nAn)) + "_" + Padl(Alltrim(Str(This.nLuna)),2, "0") + "\"&& c:\temp\D112\2011_01\ + lcCaleFisier = m.lcCaleFisier + Alltrim(Str(gnAn)) + "_" + Padl(Alltrim(Str(gnLuna)),2, "0") + "\"&& c:\temp\D112\2011_01\ + If !Directory(m.lcCaleFisier) + Md (m.lcCaleFisier) + Endif + + *lcCaleFisier = m.lcCaleFisier + STRTRAN(This.cNumeFirma,[ ],[_]) + "\" && c:\temp\D112\2011_01\firma\ + lcCaleFisier = m.lcCaleFisier + Strtran(gcFirma,[ ],[_]) + "\" && c:\temp\D112\2011_01\firma\ + If !Directory(m.lcCaleFisier) + Md (m.lcCaleFisier) + Endif + This.UpdateInfo("S-a creat directorul " + m.lcCaleFisier) + + *lcCaleFisierPDF = m.lcCaleFisier + "pdf_inteligent\" && c:\temp\D112\2011_01\firma\pdf_inteligent\ + lcCaleFisierPDF = m.lcCaleFisier && c:\temp\D112\2011_01\firma\ + If !Directory(m.lcCaleFisierPDF) + Md (m.lcCaleFisierPDF) + Endif + This.UpdateInfo("S-a creat directorul " + m.lcCaleFisierPDF) + + llSucces = .T. + Catch To loEx + lcMesaj = "Creare director " + lcCaleFisier + " " + loEx.Message + This.UpdateInfo(lcMesaj) + + Thisform.afiseaza_mesaj(lcMesaj,0+48) + Endtry + If !llSucces + Return + Endif + *!* lcCaleFisier = shortpath(Getdir([],[Alegeti directorul unde se va salva PDF-ul/XML-ul],[Declaratia 112])) + + lcCaenRevizie = NVL(goFirma.caen_revizie, '2') + lnCaenRevizie = INT(VAL(m.lcCaenRevizie)) + Do Case + Case gnAn*12 + gnLuna >= 2025*12 + 8 + * TVA 21% + lcFisierPDFOriginal = lcComunPath + "d300_202508.pdf" + + Case m.gnAn * 12 + m.gnLuna >= 2025 * 12 + 1 AND m.lnCaenRevizie >= 3 + * Cod CAEN rev. 3 + lcFisierPDFOriginal = lcComunPath + "d300_202501_v3.pdf" + + Case gnAn*12 + gnLuna >= 2024*12 + 5 + lcFisierPDFOriginal = lcComunPath + "d300_202405.pdf" + Case gnAn*12 + gnLuna >= 2023*12 + 8 + lcFisierPDFOriginal = lcComunPath + "d300_202308.pdf" + Case gnAn*12 + gnLuna >= 2021*12 + 6 + lcFisierPDFOriginal = lcComunPath + "d300_202106.pdf" + Case gnAn*12 + gnLuna >= 2019*12 + 1 + lcFisierPDFOriginal = lcComunPath + "d300_201907.pdf" + Case gnAn*12 + gnLuna >= 2017*12 + 1 + lcFisierPDFOriginal = lcComunPath + "d300_201701.pdf" + Case gnAn*12 + gnLuna >= 2016*12 + 1 + lcFisierPDFOriginal = lcComunPath + "d300_201601.pdf" + Case gnAn*12 + gnLuna >= 2013*12 + 1 + lcFisierPDFOriginal = lcComunPath + "d300_201301.pdf" + Case gnAn*12 + gnLuna >= 2012*12 + 1 + lcFisierPDFOriginal = lcComunPath + "d300_201201.pdf" + Case gnAn*12 + gnLuna >= 2011*12 + 11 + lcFisierPDFOriginal = lcComunPath + "d300_201111.pdf" + Otherwise + lcFisierPDFOriginal = lcComunPath + "d300.pdf" + Endcase + + *!* 19.01.2012 + This.UpdatePDF(m.lcFisierPDFOriginal) && actualizez pdf de la romfast + *!* 19.01.2012 ^ + + If Upper(Substr(Alltrim(gofirma.cod_fiscal),1,2))='RO' + lcCod_fiscal = Substr(Alltrim(gofirma.cod_fiscal),3,Len(Alltrim(gofirma.cod_fiscal))-2) + Else + lcCod_fiscal = Alltrim(gofirma.cod_fiscal) + Endif + + *lcNumeFisier = "d100_"+ Alltrim(Transform(Thisform.cCodFiscal)) + "_" + Alltrim(Str(Int(Thisform.nAn))) + "_" + Alltrim(Padl(Int(Thisform.nLuna), 2, "0")) + lcNumeFisier = "d300_"+ lcCod_fiscal + "_" + Alltrim(Str(gnAn)) + "_" + Padl(gnLuna, 2, "0") + + + lcFileName = m.lcCaleFisier + lcNumeFisier + + lcFileNamePDF = m.lcCaleFisierPDF + lcNumeFisier + lcFisierPDFNou = m.lcFileNamePDF + [.pdf] + lcFisierXDP = m.lcFileNamePDF + [.xdp] + + lcFisierXML = m.lcFileName + [.xml] + *lcD100ValidatorFile = m.lcComunPath + [dist\DUKIntegrator.jar] + lcD100RezultatFile = m.lcFisierXML + [.err.txt] + + lcVersiuneFisiereD112 = lcComunPath + "versiuni_fisiere.txt" + *this.cD112ValidatorFile = lcD112ValidatorFile + This.cFisierXML = lcFisierXML + This.cD100RezultatFile = lcD100RezultatFile + + If Inlist(lnMenu, 2,3) + If File(lcFisierPDFNou) + Delete File (lcFisierPDFNou) + Endif + If File(lcFisierXDP) + Delete File (lcFisierXDP) + Endif + Endif + If Inlist(lnMenu, 1,3) + If File(lcFisierXML) + Delete File (lcFisierXML) + Endif + If File(m.lcD100RezultatFile) + Delete File (m.lcD100RezultatFile) + Endif + Endif + This.cD100Rezultat = "" + This.cD100PDF = "" + + *** verific pdf original + *!* If Inlist(lnMenu,2,3) + *!* This.verificare_versiune("A") + *!* This.UpdateInfo(REPLICATE('-', 100)) + *!* ENDIF + + *** verific program validare D112 + *!* If Inlist(lnMenu,1,3) + *!* This.verificare_versiune("J") + *!* This.UpdateInfo(REPLICATE('-', 100)) + *!* Endif + + *** creez xml, xdp (= xml data package = xml cu sesiunea pdf-ului inteligent) + + Do Case + Case lnMenu = 1 + This.UpdateInfo("Se exporta datele in format XML") + Thisform.do_genereaza_xml(lcFisierXML) + This.UpdateInfo(Replicate('-', 100)) + *!* Case lnMenu = 2 + *!* This.UpdateInfo("Se exporta datele in format PDF") + *!* Thisform.do_genereaza_xdp(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + *!* This.UpdateInfo(Replicate('-', 100)) + Case INLIST(lnMenu,2,3) + This.UpdateInfo("Se exporta datele in format XML+PDF") + DO CASE + CASE gnAn*12+gnLuna >= 2025*12+8 + Thisform.do_genereaza_xdp_202508(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + + CASE gnAn*12+gnLuna >= 2024*12+5 + Thisform.do_genereaza_xdp_202405(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + + CASE gnAn*12+gnLuna >= 2023*12+8 + Thisform.do_genereaza_xdp_202308(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + + CASE gnAn*12+gnLuna >= 2018*12+1 + Thisform.do_genereaza_xdp_201901(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + + CASE gnAn*12+gnLuna >= 2017*12+1 + Thisform.do_genereaza_xdp_201701(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + + CASE gnAn*12+gnLuna >= 2016*12+1 + Thisform.do_genereaza_xdp_201601(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + + CASE gnAn*12+gnLuna >= 2013*12+1 + Thisform.do_genereaza_xdp_201301(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + + CASE gnAn*12+gnLuna >= 2012*12+1 + Thisform.do_genereaza_xdp_201201(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + + CASE gnAn*12+gnLuna >= 2011*12+11 + Thisform.do_genereaza_xdp_201111(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + + OTHERWISE + Thisform.do_genereaza_xdp(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + ENDCASE + This.UpdateInfo(Replicate('-', 100)) + Endcase + + + *** deschid fisierul XDP (pdf inteligent) + If Inlist(lnMenu,2,3) And File(lcFisierXDP) + If !File(m.lcFisierPDFOriginal) + OPEN_DEFAULT_APP("http://static.anaf.ro/static/10/Anaf/Declaratii_R/300.html") + AMessagebox('Nu exista fisierul ' + m.lcFisierPDFOriginal + CRLF + ; + 'Copiati pdf-ul inteligent D300 de pe website-ul ANAF in directorul ' + Justpath(m.lcFisierPDFOriginal) + CRLF + ; + 'cu numele ' + Justfname(m.lcFisierPDFOriginal) + '.', 0+48, _Screen.Caption) + Else + *** copiez fisierul pdf inteligent original in directorul de export + Copy File (lcFisierPDFOriginal) To (lcFisierPDFNou) + This.cD100PDF = m.lcFisierXDP + If File(m.lcFisierXDP) + This.UpdateInfo([In PDF apasati butonul "Options > Trust this document always" de pe banda galbena pentru a incarca datele.]) + open_default_app(lcFisierXDP) + ENDIF + ENDIF + Endif + + *!* *** deschid explorer in directorul de export + lcRun = [RUN /N7 explorer.exe "] + m.lcCaleFisier + ["] + &lcRun + + + Select (lcSelect) + + + ENDPROC + + PROCEDURE do_genereaza_tag && metoda interna ajutatoare + X=SQLCONNECT("ROA_CENTRAL","MARIUSM_AUTO","123") + LNSUCCES = SQLEXEC(X,"SELECT * from deconttva where valabil = '0112' AND TRIM(RAND) IS NOT NULL order by id_decont", "CRSDECONT") + SQLDISCONNECT(0) + lcText = "" + SELECT CRSDECONT + SCAN + lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1 + lcTag = "r" + m.lcRand + lcVariabilaB = [m.ln] + m.lcRand + "B" && ln17_1B + lcVariabilaT = [m.ln] + m.lcRand + "T" && ln17_1T + lcC1 = "" + lcC2 = "" + IF inactivb = 0 + lcC1 = [<<] + m.lcVariabilaB + [>>] + ENDIF + IF inactivt = 0 + lcC2 = [<<] + m.lcVariabilaT + [>>] + ENDIF + + lcText = lcText + [\<] + m.lcTag + [>] + m.lcC1 + m.lcC2 + [] + CHR(13) + CHR(10) + ENDSCAN + _cliptext = lcText + + TEXT TO lcXX + \<> + \<> + \<> + \<> + \<> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \<> + \<> + \<> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \<> + \<> + \<><> + \<><> + \<> + \<> + \<><> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + ENDTEXT + ENDPROC + + PROCEDURE do_genereaza_xdp + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou + Local lcDateStyle, lcMark, lcXDP + Local lcSelect, lcCod_fiscal + lcSelect = Select() + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + Set Date To Ymd + Set Mark To '-' + + + Set Textmerge On To Memvar lcXDP Noshow + *Set Textmerge On To Memvar lcXML Noshow + \ + \ + \ + \ + \ + + \ + \ + \ 300 + \ + + \ + \
+ \<> + \<> + \
+ + \ + \<> + \<> + \<> + \<> + lcFirma = XmlSpecialCharacters(ALLTRIM(UPPER(NVL(goFirma.antet,'')))) && oproceduri_comune.prg + \<> + + If Upper(Substr(Alltrim(gofirma.cod_fiscal),1,2))='RO' + lcCod_fiscal = Substr(Alltrim(gofirma.cod_fiscal),3,Len(Alltrim(gofirma.cod_fiscal))-2) + Else + lcCod_fiscal = Alltrim(gofirma.cod_fiscal) + Endif + + \<> + + \ + \<> + \<> + \ + + \<> + && la o luna, la 3, 6, 12, cod_imp = 301, 302, 303, 304 + \301 + \ + + \ + + + Select * From cDecont Into Cursor crsControl + + Local lnTabele, lnTabel , lnAntet, lnId_decont, lnPuncte + Store 0 To lnTabele, lnTabel, lnAntet, lnId_decont, lnPuncte + + Select cDecont + Calculate Cnt() For antet = 2 To lnTabele + + Select cDecont + Scan + lnAntet = antet + + If lnAntet = 2 + *!* \ + lnTabel = lnTabel + 1 + + If lnTabel > 1 + \>> + ENDIF + + IF lnTabel = 2 && inainte de al doilea tabel + \ + ENDIF + \>> + *!* end \ + + + + lnId_decont = id_decont + + Select crsControl + Locate For id_decont = lnId_decont + 1 + If Found() + If antet = 1 && daca urmeaza un subtitlu - inainte de randul 1, 17 + \

+ \

+ \

+ \

+ Else && dupa antetul gri nu mai urmeaza un subtitlu alb, ci direct indicatori - inainte de al 3-lea tabel, randul 31 + \

+ \

+ Endif + Endif + + Endif && lnAntet = 2 + + If lnAntet = 1 + lnId_decont = id_decont + Select crsControl + Locate For id_decont = lnId_decont + 1 + If Found() + If antet = 0 && nu este subtitlu dupa antet gri inchis - dupa randul 8, 20 + \

+ ENDIF + ENDIF + ENDIF && lnAntet = 1 + + *!* + Select cDecont + lcRand = ALLTRIM(Rand) + lnPuncte = Occurs('.', lcRand) + If lnPuncte = 1 + lcRand = Strtran(lcRand,'.','_') + Endif + If lnPuncte = 2 + lnUltPunct = Rat('.', lcRand) + lcRand = Substr(lcRand,1,lnUltPunct-1)+Substr(lcRand,lnUltPunct+1,Len(lcRand)-1) + lcRand = Strtran(lcRand,'.','_') + Endif + + If !Empty(Rand) + If inactivb=0 And inactivt = 0 + \>><><>>> + Endif + If inactivb=0 And inactivt = 1 + \>><>>> + Endif + If inactivb=1 And inactivt = 0 + \>><>>> + Endif + Endif + + + + Select cDecont + ENDSCAN + + IF USED('crsControl') + USE IN crsControl + ENDIF + + \>> + + \ + + \ + \N + \10301010611250711000030 + \105419 + \<> + + \ + \ + \<><><> + \ + + \<> + \<> + \ + + \ + \ + \ + \ + \ + + \ + \1 + \ + \Vers.1.0.0/ 2011 + \ + \ + + \ + \ + + \ + \ + \ + \ + + + Set Textmerge To + + Strtofile(lcXDP, tcFisierXDP) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + Select (lcSelect) + + ENDPROC + + PROCEDURE do_genereaza_xdp_201111 + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou + Local lcCod_fiscal, lcDateStyle, lcMark, lcNumeDeclarant, lcNumePrenumeDeclarant, lcPrenumeDeclarant, lcCodFiscal + Local lcRand, lcSelect, lcXDP, lnAntet, lnId_decont, lnPuncte, lnTabel, lnTabele, lnUltPunct + lcSelect = Select() + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + LOCAL lnTipDecont + lnTipDecont = IIF(This.nNumarLuni = 1, 301, IIF(This.nNumarLuni = 3, 302, IIF(This.nNumarLuni = 6, 303, 304))) + + Set Date To Ymd + Set Mark To '-' + SET STEP ON + lcNumePrenumeDeclarant = Alltrim(NVL(gofirma.declarant,'')) + lcNumeDeclarant = lcNumePrenumeDeclarant + lcPrenumeDeclarant = "" + IF GETWORDCOUNT(lcNumePrenumeDeclarant," ") > 1 + lcNumeDeclarant = GETWORDNUM(m.lcNumePrenumeDeclarant, 1, " ") + lcPrenumeDeclarant = ALLTRIM(STRTRAN(m.lcNumePrenumeDeclarant, lcNumeDeclarant, "")) + ENDIF + + Set Textmerge On To Memvar lcXDP Noshow + *Set Textmerge On To Memvar lcXML Noshow + \ + \ + \ + \ + \ + + \ + \ + \
+ \ + \<> + \<> + \0 + && la o luna, la 3, 6, 12, cod_imp = 301, 302, 303, 304 + \<> + \ + \ + + lcCodFiscal = UPPER(Alltrim(NVL(gofirma.cod_fiscal,''))) + If Upper(Substr(m.lcCodFiscal,1,2))='RO' + lcCod_fiscal = ALLTRIM(Substr(m.lcCodFiscal,3)) + Else + lcCod_fiscal = m.lcCodFiscal + Endif + + \<> + lcFirma = XmlSpecialCharacters(ALLTRIM(UPPER(NVL(goFirma.antet,'')))) && oproceduri_comune.prg + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \ + \ + + \ + + Select * From cDecont Into Cursor crsControl + + Store 0 To lnTabele, lnTabel, lnAntet, lnId_decont, lnPuncte + + Select cDecont + Calculate Cnt() For antet = 2 To lnTabele + + Select cDecont + Scan + lnAntet = antet + + If lnAntet = 2 + *!* \ + lnTabel = lnTabel + 1 + + If lnTabel > 1 + \>> + ENDIF + + IF lnTabel = 2 && inainte de al doilea tabel + \ + ENDIF + \>> + *!* end \ + + lnId_decont = id_decont + + Select crsControl + Locate For id_decont = lnId_decont + 1 + If Found() + If antet = 1 && daca urmeaza un subtitlu - inainte de randul 1, 17 + \

+ \

+ \

+ \

+ Else && dupa antetul gri nu mai urmeaza un subtitlu alb, ci direct indicatori - inainte de al 3-lea tabel, randul 31 + \

+ \

+ Endif + Endif + Endif && lnAntet = 2 + + If lnAntet = 1 + lnId_decont = id_decont + Select crsControl + Locate For id_decont = lnId_decont + 1 + If Found() + If antet = 0 && nu este subtitlu dupa antet gri inchis - dupa randul 8, 20 + \

+ ENDIF + ENDIF + ENDIF && lnAntet = 1 + + *!* + Select cDecont + lcRand = ALLTRIM(Rand) + lnPuncte = Occurs('.', lcRand) + If lnPuncte = 1 + lcRand = Strtran(lcRand,'.','_') + Endif + If lnPuncte = 2 + lnUltPunct = Rat('.', lcRand) + lcRand = Substr(lcRand,1,lnUltPunct-1)+Substr(lcRand,lnUltPunct+1,Len(lcRand)-1) + lcRand = Strtran(lcRand,'.','_') + Endif + + If !Empty(Rand) + If inactivb=0 And inactivt = 0 + \>><><>>> + Endif + If inactivb=0 And inactivt = 1 + \>><>>> + Endif + If inactivb=1 And inactivt = 0 + \>><>>> + Endif + Endif + Select cDecont + ENDSCAN + + IF USED('crsControl') + USE IN crsControl + ENDIF + + \>> + + \ + \<> + \N + \ + + \ + \ + \ + \<><><> + \ + \ + + \ + \10301011111251211000022 + \ + \ + \ + \ + \ + + \<> + \<> + \<> + \ + \ + \ + \0 + \ + \ + + \ + \ + \ + \ + + + Set Textmerge To + + Strtofile(lcXDP, tcFisierXDP) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + Select (lcSelect) + + ENDPROC + + PROCEDURE do_genereaza_xdp_201201 + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou + Local lcCod_fiscal, lcDateStyle, lcMark, lcNumeDeclarant, lcNumePrenumeDeclarant, lcPrenumeDeclarant, lcCodFiscal + Local lcRand, lcSelect, lcXDP, lnAntet, lnId_decont, lnPuncte, lnTabel, lnTabele, lnUltPunct + lcSelect = Select() + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + Local lnTipDecont + lnTipDecont = Iif(This.nNumarLuni = 1, 301, Iif(This.nNumarLuni = 3, 302, Iif(This.nNumarLuni = 6, 303, 304))) + + Set Date To Ymd + Set Mark To '-' + Set Step On + lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,'')) + lcNumeDeclarant = lcNumePrenumeDeclarant + lcPrenumeDeclarant = "" + If Getwordcount(lcNumePrenumeDeclarant," ") > 1 + lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ") + lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, "")) + Endif + + *** generez variabile pentru fiecare rand + SELECT rand,denumire,valoare,tva,inactivb,inactivt FROM cDecont WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecont NOFILTER + SELECT crsDecont + SCAN + lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1 + lcVariabilaB = [ln] + m.lcRand + "B" && ln17_1B + lcVariabilaT = [ln] + m.lcRand + "T" && ln17_1T + IF inactivb = 0 + LOCAL &lcVariabilaB + &lcVariabilaB = valoare + ENDIF + IF inactivt = 0 + LOCAL &lcVariabilaT + &lcVariabilaT = tva + ENDIF + ENDSCAN + USE IN (SELECT('crsDecont')) + + Set Textmerge On To Memvar lcXDP Noshow + *Set Textmerge On To Memvar lcXML Noshow + \ + \ + \ + \ + \ + + \ + \ + \
+ \ + \<> + \<> + \0 + && la o luna, la 3, 6, 12, cod_imp = 301, 302, 303, 304 + \<> + \0 + \ + \ + + lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,''))) + If Upper(Substr(m.lcCodFiscal,1,2))='RO' + lcCod_fiscal = Alltrim(Substr(m.lcCodFiscal,3)) + Else + lcCod_fiscal = m.lcCodFiscal + Endif + + \<> + lcFirma = XmlSpecialCharacters(Alltrim(Upper(Nvl(gofirma.antet,'')))) && oproceduri_comune.prg + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \ + \ + + \ + **************************** + *** BODY + \ + \

+ \

+ \

+ \<> + \<> + \<> + \<> + \<> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \ + + \ + \

+ \<><> + \<><> + \<><> + \<><> + \<> + \<> + \<> + \<><> + \<><> + \<><> + + \ + \ + \

+ \

+ \

+ \<><> + \<><> + \<><> + \<><> + \<><> + \ + + \ + \

+ \<><> + \<><> + \<><> + \<><> + \<><> + \<> + \<> + \<><> + \<><> + \<> + \<> + \<><> + \<> + \<> + \ + + \ + \

+ \

+ \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \ + + **************************** + *** FOOTER + \ + \<> + \N + \N + \ + + \ + \ + \ + \<><><> + \ + \ + + \ + \10301011111251211000022 + \ + \ + \ + \ + \ + + \<> + \<> + \<> + \ + \ + \ + \0 + \ + \ + + \ + \ + \ + \ + + + Set Textmerge To + + Strtofile(lcXDP, tcFisierXDP) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + Select (lcSelect) + + + ENDPROC + + PROCEDURE do_genereaza_xdp_201301 + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou + Local lcCod_fiscal, lcDateStyle, lcMark, lcNumeDeclarant, lcNumePrenumeDeclarant, lcPrenumeDeclarant, lcCodFiscal + Local lcRand, lcSelect, lcXDP, lnAntet, lnId_decont, lnPuncte, lnTabel, lnTabele, lnUltPunct + lcSelect = Select() + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + Local lnTipDecont + lnTipDecont = Iif(This.nNumarLuni = 1, 301, Iif(This.nNumarLuni = 3, 302, Iif(This.nNumarLuni = 6, 303, 304))) + + Set Date To Ymd + Set Mark To '-' + Set Step On + lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,'')) + lcNumeDeclarant = lcNumePrenumeDeclarant + lcPrenumeDeclarant = "" + If Getwordcount(lcNumePrenumeDeclarant," ") > 1 + lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ") + lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, "")) + Endif + + *** generez variabile pentru fiecare rand + SELECT rand,denumire,valoare,tva,inactivb,inactivt FROM cDecont WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecont NOFILTER + SELECT crsDecont + SCAN + lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1 + lcVariabilaB = [ln] + m.lcRand + "B" && ln17_1B + lcVariabilaT = [ln] + m.lcRand + "T" && ln17_1T + IF inactivb = 0 + LOCAL &lcVariabilaB + &lcVariabilaB = valoare + ENDIF + IF inactivt = 0 + LOCAL &lcVariabilaT + &lcVariabilaT = tva + ENDIF + ENDSCAN + USE IN (SELECT('crsDecont')) + + Set Textmerge On To Memvar lcXDP Noshow + *Set Textmerge On To Memvar lcXML Noshow + \ + \ + \ + \ + \ + + \ + \ + \
+ \ + \<> + \<> + \0 + && la o luna, la 3, 6, 12, cod_imp = 301, 302, 303, 304 + \<> + \0 + \ + \ + + lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,''))) + If Upper(Substr(m.lcCodFiscal,1,2))='RO' + lcCod_fiscal = Alltrim(Substr(m.lcCodFiscal,3)) + Else + lcCod_fiscal = m.lcCodFiscal + Endif + + \<> + lcFirma = XmlSpecialCharacters(Alltrim(Upper(Nvl(gofirma.antet,'')))) && oproceduri_comune.prg + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \ + \ + + \ + **************************** + *** BODY + \ + \

+ \

+ \

+ \<> + \<> + \<> + \<> + \<> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \ + + \ + \

+ \<><> + \<><> + \<><> + \<><> + \<> + \<> + \<> + \<><> + \<><> + + \ + \ + \

+ \

+ \

+ \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \ + + \ + \

+ \<><> + \<><> + \<><> + \<><> + \<><> + \<> + \<> + \<><> + \<> + \<> + \<><> + \<> + \<> + \ + + \ + \

+ \

+ \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \ + + **************************** + *** FOOTER + \ + \<> + \N + \N + \ + + \ + \ + \ + \<><><> + \ + \<><><><> + \ + + \ + \10301010113250213000024 + \ + \ + \ + \ + \ + + \<> + \<> + \<> + \ + \ + \ + \0 + \ + \ + + \ + \ + \ + \ + + + Set Textmerge To + + Strtofile(lcXDP, tcFisierXDP) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + Select (lcSelect) + + + ENDPROC + + PROCEDURE do_genereaza_xdp_201601 + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou + Local lcCod_fiscal, lcDateStyle, lcMark, lcNumeDeclarant, lcNumePrenumeDeclarant, lcPrenumeDeclarant, lcCodFiscal + Local lcRand, lcSelect, lcXDP, lnAntet, lnId_decont, lnPuncte, lnTabel, lnTabele, lnUltPunct + lcSelect = Select() + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + Local lnTipDecont + lnTipDecont = Iif(This.nNumarLuni = 1, 301, Iif(This.nNumarLuni = 3, 302, Iif(This.nNumarLuni = 6, 303, 304))) + + Set Date To Ymd + Set Mark To '-' + Set Step On + lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,'')) + lcNumeDeclarant = lcNumePrenumeDeclarant + lcPrenumeDeclarant = "" + If Getwordcount(lcNumePrenumeDeclarant," ") > 1 + lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ") + lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, "")) + Endif + + *** generez variabile pentru fiecare rand + SELECT rand,denumire,valoare,tva,inactivb,inactivt FROM cDecont WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecont NOFILTER + SELECT crsDecont + SCAN + lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1 + lcVariabilaB = [ln] + m.lcRand + "B" && ln17_1B + lcVariabilaT = [ln] + m.lcRand + "T" && ln17_1T + IF inactivb = 0 + LOCAL &lcVariabilaB + &lcVariabilaB = valoare + ENDIF + IF inactivt = 0 + LOCAL &lcVariabilaT + &lcVariabilaT = tva + ENDIF + ENDSCAN + USE IN (SELECT('crsDecont')) + + Set Textmerge On To Memvar lcXDP Noshow + *Set Textmerge On To Memvar lcXML Noshow + \ + \ + \ + \ + \ + + \ + \ + \
+ \ + \<> + \<> + \0 + && la o luna, la 3, 6, 12, cod_imp = 301, 302, 303, 304 + \<> + \0 + \ + \ + + lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,''))) + If Upper(Substr(m.lcCodFiscal,1,2))='RO' + lcCod_fiscal = Alltrim(Substr(m.lcCodFiscal,3)) + Else + lcCod_fiscal = m.lcCodFiscal + Endif + + \<> + lcFirma = XmlSpecialCharacters(Alltrim(Upper(Nvl(gofirma.antet,'')))) && oproceduri_comune.prg + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \ + \ + + \ + **************************** + *** BODY + \ + \

+ \

+ \

+ \<> + \<> + \<> + \<> + \<> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \ + + \ + \

+ \<><> + \<><> + \<><> + \<><> + + \<><> + \<><> + \<><> + + \<> + \<> + \<> + \<><> + \<><> + + \ + \ + \

+ \

+ \

+ \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \ + + \ + \

+ \<><> + \<><> + \<><> + \<><> + \<><> + + \<><> + \<><> + \<><> + + \<> + \<> + \<><> + \<> + \<> + \<><> + \<> + \<> + \ + + \ + \

+ \

+ \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \ + + **************************** + *** FOOTER + \ + \<> + \N + \N + \ + + \ + \ + \ + \<><><> + \ + \<><><><> + \<><><><> + \ + + \ + \ + \ + \ + \ + \ + \ + + \<> + \<> + \<> + \ + \ + \ + \0 + \ + \ + + \ + \ + \ + \ + + + Set Textmerge To + + Strtofile(lcXDP, tcFisierXDP) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + Select (lcSelect) + + + ENDPROC + + PROCEDURE do_genereaza_xdp_201701 + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou + Local lcCod_fiscal, lcDateStyle, lcMark, lcNumeDeclarant, lcNumePrenumeDeclarant, lcPrenumeDeclarant, lcCodFiscal + Local lcRand, lcSelect, lcXDP, lnAntet, lnId_decont, lnPuncte, lnTabel, lnTabele, lnUltPunct + lcSelect = Select() + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + Local lnTipDecont + lnTipDecont = Iif(This.nNumarLuni = 1, 301, Iif(This.nNumarLuni = 3, 302, Iif(This.nNumarLuni = 6, 303, 304))) + + Set Date To Ymd + Set Mark To '-' + Set Step On + lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,'')) + lcNumeDeclarant = lcNumePrenumeDeclarant + lcPrenumeDeclarant = "" + If Getwordcount(lcNumePrenumeDeclarant," ") > 1 + lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ") + lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, "")) + Endif + + *** generez variabile pentru fiecare rand + SELECT rand,denumire,valoare,tva,inactivb,inactivt FROM cDecont WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecont NOFILTER + SELECT crsDecont + SCAN + lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1 + lcVariabilaB = [ln] + m.lcRand + "B" && ln17_1B + lcVariabilaT = [ln] + m.lcRand + "T" && ln17_1T + IF inactivb = 0 + LOCAL &lcVariabilaB + &lcVariabilaB = valoare + ENDIF + IF inactivt = 0 + LOCAL &lcVariabilaT + &lcVariabilaT = tva + ENDIF + ENDSCAN + USE IN (SELECT('crsDecont')) + + Set Textmerge On To Memvar lcXDP Noshow + *Set Textmerge On To Memvar lcXML Noshow + \ + \ + \ + \ + \ + + \ + \ + \
+ \ + \<> + \<> + \0 + && la o luna, la 3, 6, 12, cod_imp = 301, 302, 303, 304 + \<> + \0 + \ + \ + + lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,''))) + If Upper(Substr(m.lcCodFiscal,1,2))='RO' + lcCod_fiscal = Alltrim(Substr(m.lcCodFiscal,3)) + Else + lcCod_fiscal = m.lcCodFiscal + Endif + + \<> + lcFirma = XmlSpecialCharacters(Alltrim(Upper(Nvl(gofirma.antet,'')))) && oproceduri_comune.prg + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \ + \ + + \ + **************************** + *** BODY + \ + \

+ \

+ \

+ \<> + \<> + \<> + \<> + \<> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \ + + \ + \

+ \<><> + \<><> + \<><> + \<><> + + \<><> + \<><> + \<><> + + \<> + \<> + \<> + \<><> + \<><> + + \ + \ + \

+ \

+ \

+ \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \ + + \ + \

+ \<><> + \<><> + \<><> + \<><> + + \<><> + \<><> + \<><> + + \<> + \<> + \<> + \<> + \<><> + \<> + \<> + \<><> + \<> + \<> + \ + + \ + \

+ \

+ \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \ + + **************************** + *** FOOTER + \ + \<> + \N + \N + \ + + \ + \ + \ + \<><><> + \ + \<><><><> + \<><><><> + \ + + \ + \ + \ + \ + \ + \ + \ + + \<> + \<> + \<> + \ + \ + \ + \0 + \ + \ + + \ + \ + \ + \ + + + Set Textmerge To + + Strtofile(lcXDP, tcFisierXDP) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + Select (lcSelect) + + + ENDPROC + + PROCEDURE do_genereaza_xdp_201901 + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou + Local lcCod_fiscal, lcDateStyle, lcMark, lcNumeDeclarant, lcNumePrenumeDeclarant, lcPrenumeDeclarant, lcCodFiscal + Local lcRand, lcSelect, lcXDP, lnAntet, lnId_decont, lnPuncte, lnTabel, lnTabele, lnUltPunct, lnSumaControl + lcSelect = Select() + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + Local lnTipDecont, lcTipDecont + lnTipDecont = Iif(This.nNumarLuni = 1, 301, Iif(This.nNumarLuni = 3, 302, Iif(This.nNumarLuni = 6, 303, 304))) + lcTipDecont = Iif(This.nNumarLuni = 1, 'L', Iif(This.nNumarLuni = 3, 'T', Iif(This.nNumarLuni = 6, 'S', 'A'))) + + Set Date To Ymd + Set Mark To '-' + Set Step On + lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,'')) + lcNumeDeclarant = lcNumePrenumeDeclarant + lcPrenumeDeclarant = "" + If Getwordcount(lcNumePrenumeDeclarant," ") > 1 + lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ") + lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, "")) + Endif + + *** generez variabile pentru fiecare rand + lnSumaControl = 0 + SELECT rand,denumire,valoare,tva,inactivb,inactivt FROM cDecont WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecont NOFILTER + SELECT crsDecont + SCAN + lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1 + lcVariabilaB = [ln] + m.lcRand + "B" && ln17_1B + lcVariabilaT = [ln] + m.lcRand + "T" && ln17_1T + IF inactivb = 0 + LOCAL &lcVariabilaB + &lcVariabilaB = INT(valoare) + lnSumaControl = m.lnSumaControl + INT(valoare) + ENDIF + IF inactivt = 0 + LOCAL &lcVariabilaT + &lcVariabilaT = INT(tva) + lnSumaControl = m.lnSumaControl + INT(tva) + ENDIF + ENDSCAN + USE IN (SELECT('crsDecont')) + + lnSumaControl = m.lnSumaControl + pnNr_facturi + pnBaza + pnTva + pnNr_facturi2 + pnBaza2 + pnTva2 + lnSumaControl = INT(m.lnSumaControl) + + lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,''))) + If Upper(Substr(m.lcCodFiscal,1,2))='RO' + lcCod_fiscal = Alltrim(Substr(m.lcCodFiscal,3)) + Else + lcCod_fiscal = m.lcCodFiscal + ENDIF + lcFirma = XmlSpecialCharacters(Alltrim(Upper(Nvl(gofirma.antet,'')))) && oproceduri_comune.prg + + Set Textmerge On To Memvar lcXDP Noshow + *Set Textmerge On To Memvar lcXML Noshow + \ + \ + \ + \ + \ + + \ + \ + \ + \ <><><><>000 + \ + \ + \ + \ <><> + \ <><><><><> + \ <><><><> + \ <><><> + \ <><> + \ + \ + \ <> + \ <> + \ + + **************************** + *** BODY + \ + \<> + \<> + \<> + \<> + \<> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \ + \ + \<><> + \<><> + \<><> + \<><> + + \<><> + \<><> + \<><> + + \<> + \<> + \<> + \<><> + \<><> + \<><> + \<><> + + \ + \ + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \ + \ + \<><> + \<><> + \<><> + \<><> + + \<><> + \<><> + \<><> + + \<> + \<> + \<> + \<> + \<><> + \<> + \<> + \<><> + \<> + \<> + \ + \ + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \ + + **************************** + *** FOOTER + \NNNN + \N + + * Facturi emise/primite dupa inspectia fiscala/cand codul de TVA era anulat + \<><><> + \<><><> + \<><><> + + * Sold TVA neexigibil din alte perioade + \ + \<><> + \<><> + \<><> + \<><> + \ + + * Valoare fara TVA prestari de servicii catre persoane neimpozabile din alte state membre UE prevazute la art. 278 alin. (8) lit. b) din Codul fiscal + \ + \<><> + \ + + \ + + \<><><> + \ + + \ + \ + \ + \ + + + Set Textmerge To + + Strtofile(lcXDP, tcFisierXDP) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + Select (lcSelect) + + + ENDPROC + + PROCEDURE do_genereaza_xdp_202308 + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou + Local lcCod_fiscal, lcDateStyle, lcMark, lcNumeDeclarant, lcNumePrenumeDeclarant, lcPrenumeDeclarant, lcCodFiscal + Local lcRand, lcSelect, lcXDP, lnAntet, lnId_decont, lnPuncte, lnTabel, lnTabele, lnUltPunct, lnSumaControl + lcSelect = Select() + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + Local lnTipDecont, lcTipDecont + lnTipDecont = Iif(This.nNumarLuni = 1, 301, Iif(This.nNumarLuni = 3, 302, Iif(This.nNumarLuni = 6, 303, 304))) + lcTipDecont = Iif(This.nNumarLuni = 1, 'L', Iif(This.nNumarLuni = 3, 'T', Iif(This.nNumarLuni = 6, 'S', 'A'))) + + Set Date To Ymd + Set Mark To '-' + Set Step On + lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,'')) + lcNumeDeclarant = lcNumePrenumeDeclarant + lcPrenumeDeclarant = "" + If Getwordcount(lcNumePrenumeDeclarant," ") > 1 + lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ") + lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, "")) + Endif + + *** generez variabile pentru fiecare rand + lnSumaControl = 0 + SELECT rand,denumire,valoare,tva,inactivb,inactivt FROM cDecont WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecont NOFILTER + SELECT crsDecont + SCAN + lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1 + lcVariabilaB = [ln] + m.lcRand + "B" && ln17_1B + lcVariabilaT = [ln] + m.lcRand + "T" && ln17_1T + IF inactivb = 0 + LOCAL &lcVariabilaB + &lcVariabilaB = INT(valoare) + lnSumaControl = m.lnSumaControl + INT(valoare) + ENDIF + IF inactivt = 0 + LOCAL &lcVariabilaT + &lcVariabilaT = INT(tva) + lnSumaControl = m.lnSumaControl + INT(tva) + ENDIF + ENDSCAN + USE IN (SELECT('crsDecont')) + + lnSumaControl = m.lnSumaControl + pnNr_facturi + pnBaza + pnTva + pnNr_facturi2 + pnBaza2 + pnTva2 + lnSumaControl = INT(m.lnSumaControl) + + lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,''))) + If Upper(Substr(m.lcCodFiscal,1,2))='RO' + lcCod_fiscal = Alltrim(Substr(m.lcCodFiscal,3)) + Else + lcCod_fiscal = m.lcCodFiscal + ENDIF + lcFirma = XmlSpecialCharacters(Alltrim(Upper(Nvl(gofirma.antet,'')))) && oproceduri_comune.prg + + Set Textmerge On To Memvar lcXDP Noshow + *Set Textmerge On To Memvar lcXML Noshow + \ + \ + \ + \ + \ + + \ + \ + \ + \ <><><><>000 + \ + \ + \ + \ <><> + \ <><><><><> + \ <><><><> + \ <><><> + \ <><> + \ + \ + \ <> + \ <> + \ + + **************************** + *** BODY + \ + \<> + \<> + \<> + \<> + \<> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \ + \ + \<><> + \<><> + \<><> + \<><> + + \<><> + \<><> + \<><> + + \<> + \<> + \<> + \<> + \<> + \<><> + \<><> + \<><> + \<><> + + \ + \ + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \ + \ + \<><> + \<><> + \<><> + \<><> + + \<><> + \<><> + \<><> + + \<> + \<> + \<> + \<> + \<><> + \<> + \<> + \<><> + \<> + \<> + \ + \ + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \ + + **************************** + *** FOOTER + \NNNN + \N + + * Facturi emise/primite dupa inspectia fiscala/cand codul de TVA era anulat + \<><><> + \<><><> + \<><><> + + * Sold TVA neexigibil din alte perioade + \ + \<><> + \<><> + \<><> + \<><> + \ + + * Valoare fara TVA prestari de servicii catre persoane neimpozabile din alte state membre UE prevazute la art. 278 alin. (8) lit. b) din Codul fiscal + \ + \<><> + \ + + \ + + \<><><> + \ + + \ + \ + \ + \ + + + Set Textmerge To + + Strtofile(lcXDP, tcFisierXDP) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + Select (lcSelect) + + + ENDPROC + + PROCEDURE do_genereaza_xdp_202405 + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou + Local lcCod_fiscal, lcDateStyle, lcMark, lcNumeDeclarant, lcNumePrenumeDeclarant, lcPrenumeDeclarant, lcCodFiscal + Local lcRand, lcSelect, lcXDP, lnAntet, lnId_decont, lnPuncte, lnTabel, lnTabele, lnUltPunct, lnSumaControl + lcSelect = Select() + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + Local lnTipDecont, lcTipDecont + lnTipDecont = Iif(This.nNumarLuni = 1, 301, Iif(This.nNumarLuni = 3, 302, Iif(This.nNumarLuni = 6, 303, 304))) + lcTipDecont = Iif(This.nNumarLuni = 1, 'L', Iif(This.nNumarLuni = 3, 'T', Iif(This.nNumarLuni = 6, 'S', 'A'))) + + Set Date To Ymd + Set Mark To '-' + Set Step On + lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,'')) + lcNumeDeclarant = lcNumePrenumeDeclarant + lcPrenumeDeclarant = "" + If Getwordcount(lcNumePrenumeDeclarant," ") > 1 + lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ") + lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, "")) + Endif + + *** generez variabile pentru fiecare rand + lnSumaControl = 0 + SELECT rand,denumire,valoare,tva,inactivb,inactivt FROM cDecont WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecont NOFILTER + SELECT crsDecont + SCAN + lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1 + lcVariabilaB = [ln] + m.lcRand + "B" && ln17_1B + lcVariabilaT = [ln] + m.lcRand + "T" && ln17_1T + IF inactivb = 0 + LOCAL &lcVariabilaB + &lcVariabilaB = INT(valoare) + lnSumaControl = m.lnSumaControl + INT(valoare) + ENDIF + IF inactivt = 0 + LOCAL &lcVariabilaT + &lcVariabilaT = INT(tva) + lnSumaControl = m.lnSumaControl + INT(tva) + ENDIF + ENDSCAN + USE IN (SELECT('crsDecont')) + + lnSumaControl = m.lnSumaControl + pnNr_facturi + pnBaza + pnTva + pnNr_facturi2 + pnBaza2 + pnTva2 + lnSumaControl = INT(m.lnSumaControl) + + lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,''))) + If Upper(Substr(m.lcCodFiscal,1,2))='RO' + lcCod_fiscal = Alltrim(Substr(m.lcCodFiscal,3)) + Else + lcCod_fiscal = m.lcCodFiscal + ENDIF + lcFirma = XmlSpecialCharacters(Alltrim(Upper(Nvl(gofirma.antet,'')))) && oproceduri_comune.prg + + Set Textmerge On To Memvar lcXDP Noshow + *Set Textmerge On To Memvar lcXML Noshow + \ + \ + \ + \ + \ + + \ + \ + \ + \ <><><><>000 + \ + \ + \ + \ <><> + \ <><><><><> + \ <><><><> + \ <><><> + \ <><> + \ + \ + \ <> + \ <> + \ + + **************************** + *** BODY + \ + \<> + \<> + \<> + \<> + \<> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \ + \ + \<><> + \<><> + \<><> + \<><> + + \<><> + \<><> + \<><> + + \<> + \<> + \<> + \<><> + \<><> + \<><> + \<><> + + \ + \ + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \ + \ + \<><> + \<><> + \<><> + \<><> + + \<><> + \<><> + \<><> + + \<> + \<> + \<> + \<> + \<><> + \<> + \<> + \<><> + \<> + \<> + \ + \ + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \ + + **************************** + *** FOOTER + \NNNN + \N + + * Facturi emise/primite dupa inspectia fiscala/cand codul de TVA era anulat + \<><><> + \<><><> + \<><><> + + * Sold TVA neexigibil din alte perioade + \ + \<><> + \<><> + \<><> + \<><> + \ + + * Valoare fara TVA prestari de servicii catre persoane neimpozabile din alte state membre UE prevazute la art. 278 alin. (8) lit. b) din Codul fiscal + \ + \<><> + \ + + \ + + \<><><> + \ + + \ + \ + \ + \ + + + Set Textmerge To + + Strtofile(lcXDP, tcFisierXDP) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + Select (lcSelect) + + + ENDPROC + + PROCEDURE do_genereaza_xdp_202508 + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou + Local lcCod_fiscal, lcDateStyle, lcMark, lcNumeDeclarant, lcNumePrenumeDeclarant, lcPrenumeDeclarant, lcCodFiscal + Local lcRand, lcSelect, lcXDP, lnAntet, lnId_decont, lnPuncte, lnTabel, lnTabele, lnUltPunct, lnSumaControl + lcSelect = Select() + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + Local lnTipDecont, lcTipDecont + lnTipDecont = Iif(This.nNumarLuni = 1, 301, Iif(This.nNumarLuni = 3, 302, Iif(This.nNumarLuni = 6, 303, 304))) + lcTipDecont = Iif(This.nNumarLuni = 1, 'L', Iif(This.nNumarLuni = 3, 'T', Iif(This.nNumarLuni = 6, 'S', 'A'))) + + Set Date To Ymd + Set Mark To '-' + Set Step On + lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,'')) + lcNumeDeclarant = lcNumePrenumeDeclarant + lcPrenumeDeclarant = "" + If Getwordcount(lcNumePrenumeDeclarant," ") > 1 + lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ") + lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, "")) + Endif + + *** generez variabile pentru fiecare rand + lnSumaControl = 0 + SELECT rand,denumire,valoare,tva,inactivb,inactivt FROM cDecont WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecont NOFILTER + SELECT crsDecont + SCAN + lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1 + lcVariabilaB = [ln] + m.lcRand + "B" && ln17_1B + lcVariabilaT = [ln] + m.lcRand + "T" && ln17_1T + IF inactivb = 0 + LOCAL &lcVariabilaB + &lcVariabilaB = INT(valoare) + lnSumaControl = m.lnSumaControl + INT(valoare) + ENDIF + IF inactivt = 0 + LOCAL &lcVariabilaT + &lcVariabilaT = INT(tva) + lnSumaControl = m.lnSumaControl + INT(tva) + ENDIF + ENDSCAN + USE IN (SELECT('crsDecont')) + + lnSumaControl = m.lnSumaControl + pnNr_facturi + pnBaza + pnTva + pnNr_facturi2 + pnBaza2 + pnTva2 + lnSumaControl = INT(m.lnSumaControl) + + lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,''))) + If Upper(Substr(m.lcCodFiscal,1,2))='RO' + lcCod_fiscal = Alltrim(Substr(m.lcCodFiscal,3)) + Else + lcCod_fiscal = m.lcCodFiscal + ENDIF + lcFirma = XmlSpecialCharacters(Alltrim(Upper(Nvl(gofirma.antet,'')))) && oproceduri_comune.prg + + lcCaenRevizie = NVL(goFirma.caen_revizie, '2') + lnCaenRevizie = INT(VAL(m.lcCaenRevizie)) + lcCaenRev2 = IIF(m.lnCaenRevizie = 2, ALLTRIM(LOWER(goFirma.caen)), '') + lcCaenRev3 = IIF(m.lnCaenRevizie > 2, ALLTRIM(LOWER(goFirma.caen)), '') + + Set Textmerge On To Memvar lcXDP Noshow + *Set Textmerge On To Memvar lcXML Noshow + \ + \ + \ + \ + \ + + \ + \ + \ + \ <><><><>000 + \ + \ + \ + \ <><> + \ <><><><><> + \ <><><><> + \ <><><> + \ <><> + \ <> + \ <> + \ <> + \ + + **************************** + *** BODY + \ + \<> + \<> + \<> + \<> + \<> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \ + \ + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + + \<><> + \<><> + \<><> + \<><> + \<><> + + \<> + \<> + \<> + \<><> + \<><> + \<><> + \<><> + + \ + \ + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \ + \ + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + + \<><> + \<><> + \<><> + \<><> + \<><> + + \<> + \<> + \<> + \<> + \<><> + \<> + \<> + \<><> + \<> + \<> + \ + \ + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \ + + **************************** + *** FOOTER + \NNNN + \N + + * Facturi emise/primite dupa inspectia fiscala/cand codul de TVA era anulat + \<><><> + \<><><> + \<><><> + + * Sold TVA neexigibil din alte perioade + \ + \<><> + \<><> + \<><> + \<><> + \ + + * Valoare fara TVA prestari de servicii catre persoane neimpozabile din alte state membre UE prevazute la art. 278 alin. (8) lit. b) din Codul fiscal + \ + \<><> + \ + + \ + + \<><><> + \ + + \ + \ + \ + \ + + + Set Textmerge To + + Strtofile(lcXDP, tcFisierXDP) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + Select (lcSelect) + + + ENDPROC + + PROCEDURE inainte_de_do_excel + DO export_excel_grid WITH this._grdrow1 + + ENDPROC + + PROCEDURE inainte_de_do_listare + Local lcTabel + lcTabel = Thisform._grdrow1.RecordSource + If Reccount(lcTabel)>0 + Private pcCaen + pcCaen = Alltrim(gofirma.caen) + + If !Empty(pcCaen) And !Isnull(pcCaen) + Private poCaen + Store '' To poCaen + pcschema=[] + pcselect=['select codcaen from sitfin_codcaen where 1=2 '] + pcfiltru=[cod=] + pcCaen + pcorder=[] + llAfisare=.F. + gencursor('poCaen','cCaen',pcselect,pcfiltru,pcschema,pcorder,llAfisare) + poCaen.ca_baza1.afisare() + + Select cCaen + pcCaen = codcaen + + If Used('cCaen') + Use In cCaen + Endif + Endif + + Thisform.AlwaysOnTop = .F. + Select (lcTabel) + Report Form decont To Printer Prompt Preview + Thisform.AlwaysOnTop = .T. + Else + amessagebox("Nu exista inregistrari pentru listare!",48,"Atentie") + Endif + ENDPROC + + PROCEDURE Init + LPARAMETERS tnNumarLuni + LOCAL lcPerioada + This.nNumarLuni = m.tnNumarLuni + lcPerioada = IIF(m.tnNumarLuni = 1, 'LUNAR', IIF(m.tnNumarLuni = 3, 'TRIMESTRIAL', IIF(m.tnNumarLuni = 6, 'SEMESTRIAL', IIF(m.tnNumarLuni = 12, 'ANUAL', '')))) + this.lb_titlu_alb_b121.Caption = this.lb_titlu_alb_b121.Caption + " * " + lcPerioada + DODEFAULT() + ENDPROC + + PROCEDURE Show + Lparameters nStyle + + Thisform.totaluri("valoare", .T.) + Thisform.totaluri("tva", .T.) + + DoDefault(nStyle) + + ENDPROC + + PROCEDURE totaluri + *!* 11.02.2017 + *!* marius.mutu + *!* completare initiala randul 30 = randul 29 + + Lparameters tcColoana, tlFirstTime + Local lcFormula, lcColoana, lcTabel, lnSuma, lnId_ind, lcRand + + If Empty(tcColoana) + lcColoana = "valoare" + Else + lcColoana = Alltrim(tcColoana) + Endif + + lcTabel = thisform._grdrow1.RecordSource + Select * From (lcTabel) WITH (BUFFERING = .T.) Into Cursor cTemp Readwrite NOFILTER + + Select cTemp + Scan For tip = 5 + lnSuma = 0 + lcFormula = Alltrim(cTemp.formula) + lcRand = ALLTRIM(rand) + *!* IF '34'$lcRand AND 'tva'$LOWER(lcColoana) + *!* DEBUG + *!* SUSPEND + *!* ENDIF + *!* WAIT WINDOW lcFormula + " - " + lcColoana NOWAIT + lnSuma = calc_indicatori_randuri(lcFormula, "cTemp",lcColoana) + Select cTemp + Replace &lcColoana With lnSuma + Select (lcTabel) + Update (lcTabel) Set &lcColoana = lnSuma Where ALLTRIM(rand) = lcRand + + Select cTemp + Endscan + Use In cTemp + + *** COMPLETEZ INITIAL RANDUL 30 SUB-TOTAL TAXA DEDUSA CONFORM ART.145 SAU 147, CU RANDUL 29 + *** NU PUN FORMULA LA FEL CA LA 29, PENTRU CA NU SE MAI POATE MODIFICA DE CATRE UTILIZATOR + IF m.tlFirstTime + DO CASE + CASE BETWEEN(m.gnAn, 2012, 2018) + lnROTN = This.nRotn && limitare deducere TVA 4426 + SELECT (lcTabel) + LOCATE FOR rand = '29' && TOTAL TAXA DEDUCTIBILA suma de la rd.18 pâna la rd.27, cu excep_ia celor de la rd.18.1,20.1, 25.1, 25.2, 25.3), din care: + IF FOUND() + lnSuma = &lcColoana + LOCATE FOR rand = '30' AND &lcColoana = 0 + IF FOUND() + REPLACE &lcColoana WITH m.lnSuma - m.lnROTN + This.Totaluri(tcColoana, .F.) && recalculez totalurile dupa ce am modificat valoarea + ENDIF + ENDIF + CASE m.gnAn >= 2019 + lnROTN = This.nRotn && limitare deducere TVA 4426 + SELECT (lcTabel) + LOCATE FOR rand = '31' && TOTAL TAXA DEDUCTIBILA suma de la rd.18 pâna la rd.27, cu excep_ia celor de la rd.18.1,20.1, 25.1, 25.2, 25.3), din care: + IF FOUND() + lnSuma = &lcColoana + LOCATE FOR rand = '32' AND &lcColoana = 0 + IF FOUND() + REPLACE &lcColoana WITH m.lnSuma - m.lnROTN + This.Totaluri(tcColoana, .F.) && recalculez totalurile dupa ce am modificat valoarea + ENDIF + ENDIF + ENDCASE + ENDIF + + Select (lcTabel) + Go Top + ENDPROC + + PROCEDURE updateinfo + #DEFINE CRLF CHR(13) + CHR(10) + Lparameters tcInfo + + + Local loInfo + loInfo = this.edtInfo + If Upper(tcInfo) = 'RESET' + loInfo.Value = "" + Else + loInfo.Value = loInfo.Value + m.tcInfo + CRLF + CRLF + Endif + loInfo.Refresh() + + + ENDPROC + + PROCEDURE updatepdf + Lparameters tcPDFFile + *** tcPDFFile: calea completa a fisierului pdf D:\CONTAFIN\COMUNCONTAFIN\d390.pdf + + Local lcFile, lcPath, llOpen + lcFile = Justfname(m.tcPDFFile) + lcPath = Addbs(Justpath(m.tcPDFFile)) + llOpen = .F. + + Return DownloadSupportFile(m.lcFile, m.lcPath, m.llOpen) && proceduri_comune.prg + + + ENDPROC + + PROCEDURE Clb_tx_simplu1.Text_simplu1.Valid + IF NVL(FLOOR(THIS.VALUE),0) <> NVL(FLOOR(THISFORM.nOldvalue),0) + THISFORM.totaluri("tva") + ENDIF + ENDPROC + + PROCEDURE Clb_tx_simplu1.Text_simplu1.When + THISFORM.nOldvalue = This.Value + ENDPROC + + PROCEDURE cmdPDF.Click + *!* 12.05.2011 + *!* Thisform.do_executa(2) && PDF + Thisform.do_executa(3) && XML + PDF + *!* 12.05.2011 ^ + + ENDPROC + + PROCEDURE Command1.Click + Do date_identif In oproceduri_decont.prg + ENDPROC + + PROCEDURE Command3.Click + LOCAL lcTabel + lcTabel = thisform._grdrow1.RecordSource + + DO export_decont WITH (lcTabel) IN oproceduri_decont.prg + + ENDPROC + + PROCEDURE _grdrow1.cTVA.Text1.LostFocus + IF NVL(FLOOR(THIS.VALUE),0) <> NVL(FLOOR(THISFORM.nOldvalue),0) + THISFORM.totaluri("tva") + ENDIF + ENDPROC + + PROCEDURE _grdrow1.cTVA.Text1.When + thisform.nOldvalue = this.Value + + IF inactivT = 1 + RETURN .F. + ENDIF + ENDPROC + + PROCEDURE _grdrow1.cValoare.Text1.LostFocus + IF NVL(FLOOR(THIS.VALUE),0) <> NVL(FLOOR(THISFORM.nOldvalue),0) + THISFORM.totaluri("valoare") + ENDIF + ENDPROC + + PROCEDURE _grdrow1.cValoare.Text1.When + thisform.nOldvalue = this.Value + + IF inactivB = 1 + RETURN .F. + ENDIF + ENDPROC + + PROCEDURE _grdrow1.Init + this.SetAll("DynamicBackColor","IIF(antet=2,RGB(180,180,180),IIF(antet=1,RGB(230, 230, 230),IIF(tip=5,RGB(230,244,255),RGB(255,255,255))))", "Column") + + this.cValoare.DynamicBackColor = [iif(inactivB=1,rgb(225,225,225),IIF(tip=5,RGB(230,244,255),IIF(antet=2,RGB(180,180,180),IIF(antet=1,RGB(230, 230, 230),rgb(255,255,255)))))] && rgb(128,128,128) + this.cTVA.DynamicBackColor = [iif(inactivT=1,rgb(225,225,225),IIF(tip=5,RGB(230,244,255),IIF(antet=2,RGB(180,180,180),IIF(antet=1,RGB(230, 230, 230),rgb(255,255,255)))))] + + this.cValoare.DynamicForeColor = [iif(inactivB=1,rgb(225,225,225),IIF(antet=2,RGB(180,180,180),IIF(antet=1,RGB(230, 230, 230),rgb(0,0,0))))] + this.cTVA.DynamicForeColor = [iif(inactivT=1,rgb(225,225,225),IIF(antet=2,RGB(180,180,180),IIF(antet=1,RGB(230, 230, 230),rgb(0,0,0))))] + + + + + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_deconttva_202601 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="_shape3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Command3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="edtInfo" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cmdPDF" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cValoare.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cValoare.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cTVA.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cTVA.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cnt_facturi_dupa_inspectie1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lblRandAtentie" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_label4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtLivrareBaza6N" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtLivrareTVA6N" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtAchizitiiBaza6N" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtAchizitiiTVA6N" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_label5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtLivrareBazaN" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtLivrareTVAN" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtAchizitiiBazaN" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtAchizitiiTVAN" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_label2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_label3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cnt_facturi_dupa_inspectie2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cnt_facturi_dupa_inspectie3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cnt_facturi_dupa_inspectie4" UniqueID="" Timestamp="" /> + + * + *m: do_genereaza_tag && metoda interna ajutatoare + *m: do_genereaza_xdp + *m: do_genereaza_xdp_201111 + *m: do_genereaza_xdp_201201 + *m: do_genereaza_xdp_201301 + *m: do_genereaza_xdp_201601 + *m: do_genereaza_xdp_201701 + *m: do_genereaza_xdp_201901 + *m: do_genereaza_xdp_202308 + *m: do_genereaza_xdp_202405 + *m: do_genereaza_xdp_202508 + *m: do_genereaza_xdp_202601 + *m: totaluri + *m: updateinfo + *m: updatepdf + *p: cd100pdf + *p: cd100rezultat + *p: cd100rezultatfile + *p: cfisierxml + *p: nnumarluni + *p: noldvalue + *p: nrotn && Limitare deducere TVA 4426 id_jtva = 1001. Pentru calculul rand 28 = rand 27 - nROTN + * + + * + BorderStyle = 3 + cd100pdf = '' + cd100rezultat = '' + cd100rezultatfile = '' + cfisierxml = '' + DoCreate = .T. + Height = 640 + Name = "frm_deconttva_202601" + nnumarluni = 0 + noldvalue = 0 + nrotn = 0 + Visible = .F. + Width = 850 + _memberdata = + + + + + + + + _shape1.Anchor = 10 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 852 + _shape1.ZOrderSet = 2 + _shape2.Anchor = 9 + _shape2.Height = 29 + _shape2.Left = 761 + _shape2.Name = "_shape2" + _shape2.Top = -1 + _shape2.Width = 111 + _shape2.ZOrderSet = 3 + Lb_titlu_alb_b121.Caption = "FORMULAR 300 - DECONT DE TAXA PE VALOARE ADAUGATA" + Lb_titlu_alb_b121.Left = 9 + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 11 + Lb_titlu_alb_b121.Top = 7 + Lb_titlu_alb_b121.ZOrderSet = 7 + BUT_TERMIN1.Anchor = 9 + BUT_TERMIN1.Left = 820 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 10 + BUT_TERMIN1.Top = 0 + BUT_TERMIN1.ZOrderSet = 8 + Gridsort1.Left = 204 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 5 + * + + ADD OBJECT '_grdrow1' AS _grdrow WITH ; + Anchor = 15, ; + ColumnCount = 4, ; + DeleteMark = .F., ; + Height = 253, ; + Left = 9, ; + Name = "_grdrow1", ; + Panel = 1, ; + RecordSource = "cDecont", ; + TabIndex = 1, ; + Top = 71, ; + Width = 831, ; + ZOrderSet = 9, ; + Column1.ControlSource = "rand", ; + Column1.Name = "Column1", ; + Column1.ReadOnly = .T., ; + Column1.Width = 41, ; + Column2.ControlSource = "denumire", ; + Column2.Name = "Column2", ; + Column2.ReadOnly = .T., ; + Column2.Width = 454, ; + Column3.ControlSource = "valoare", ; + Column3.DynamicBackColor = "iif(inactivB=1,rgb(225,225,225),rgb(255,255,255))", ; + Column3.Format = "rk", ; + Column3.InputMask = "999 999 999", ; + Column3.Name = "cValoare", ; + Column3.Width = 121, ; + Column4.ControlSource = "tva", ; + Column4.Format = "rk", ; + Column4.InputMask = "999 999 999", ; + Column4.Name = "cTVA", ; + Column4.Width = 121 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_grdrow1.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Rand", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Denumire indicatori", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.cTVA.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.cTVA.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.cValoare.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.cValoare.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_label1' AS _label WITH ; + Anchor = 12, ; + Caption = "A. Livrare", ; + Height = 18, ; + Left = 440, ; + Name = "_label1", ; + TabIndex = 17, ; + Top = 356, ; + Width = 56, ; + ZOrderSet = 16 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_label2' AS _label WITH ; + Anchor = 12, ; + Caption = "B. Achizitie", ; + Height = 18, ; + Left = 439, ; + Name = "_label2", ; + TabIndex = 22, ; + Top = 405, ; + Width = 69, ; + ZOrderSet = 21 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_label3' AS _label WITH ; + Anchor = 12, ; + Caption = "Sold Neexigibil", ; + Height = 18, ; + Left = 440, ; + Name = "_label3", ; + TabIndex = 16, ; + Top = 335, ; + Width = 88, ; + ZOrderSet = 16 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_label4' AS _label WITH ; + Anchor = 12, ; + Caption = "A1. Livrare 6 luni", ; + Height = 18, ; + Left = 440, ; + Name = "_label4", ; + TabIndex = 23, ; + Top = 379, ; + Width = 98, ; + ZOrderSet = 16 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_label5' AS _label WITH ; + Anchor = 12, ; + Caption = "B1. Achizitie 6 luni", ; + Height = 18, ; + Left = 439, ; + Name = "_label5", ; + TabIndex = 28, ; + Top = 429, ; + Width = 111, ; + ZOrderSet = 21 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_shape3' AS _shape WITH ; + Anchor = 12, ; + Height = 127, ; + Left = 424, ; + Name = "_shape3", ; + Top = 326, ; + Width = 415, ; + ZOrderSet = 0 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" /> + + ADD OBJECT 'But_excel1' AS but_excel WITH ; + Anchor = 9, ; + Left = 789, ; + Name = "But_excel1", ; + TabIndex = 9, ; + Top = 0, ; + ZOrderSet = 11 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_listare1' AS but_listare WITH ; + Anchor = 9, ; + Left = 760, ; + Name = "But_listare1", ; + TabIndex = 8, ; + Top = 0, ; + ZOrderSet = 10 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ; + Anchor = 4, ; + Height = 29, ; + Left = 12, ; + Name = "Clb_tx_simplu1", ; + TabIndex = 12, ; + Top = 541, ; + Width = 215, ; + ZOrderSet = 12, ; + Text_simplu1.ControlSource = "pnProRata", ; + Text_simplu1.Height = 23, ; + Text_simplu1.InputMask = "999", ; + Text_simplu1.Left = 147, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Top = 3, ; + Text_simplu1.Width = 61, ; + Lb_simplu1.Caption = "Pro rata de deducere %", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'cmdPDF' AS cmd_executa WITH ; + Alignment = 2, ; + Anchor = 12, ; + BackColor = 0,128,255, ; + Caption = "Export \ + + ADD OBJECT 'Cnt_facturi_dupa_inspectie1' AS cnt_facturi_dupa_inspectie WITH ; + Anchor = 6, ; + Height = 68, ; + Left = 9, ; + Name = "Cnt_facturi_dupa_inspectie1", ; + TabIndex = 5, ; + Top = 326, ; + Width = 416, ; + ZOrderSet = 13, ; + Shape1.Name = "Shape1", ; + LABEL1.Caption = "Facturi emise dupa inspectia fiscala, cf. art. 330 alin. (3) din Codul Fiscal ", ; + LABEL1.Name = "LABEL1", ; + LABEL2.Name = "LABEL2", ; + LABEL3.Name = "LABEL3", ; + LABEL4.Name = "LABEL4", ; + Text1.Name = "Text1", ; + TEXT2.InputMask = "999 999 999 999", ; + TEXT2.Name = "TEXT2", ; + TEXT3.InputMask = "999 999 999 999", ; + TEXT3.Name = "TEXT3" + *< END OBJECT: ClassLib="ovanzcump.vcx" BaseClass="container" /> + + ADD OBJECT 'Cnt_facturi_dupa_inspectie2' AS cnt_facturi_dupa_inspectie WITH ; + Anchor = 6, ; + Height = 69, ; + Left = 9, ; + Name = "Cnt_facturi_dupa_inspectie2", ; + TabIndex = 3, ; + Top = 394, ; + Width = 416, ; + ZOrderSet = 13, ; + Shape1.Name = "Shape1", ; + Label1.Caption = "Facturi primite dupa inspectia fiscala, cf. pct. 108 alin. (6) din Norm. Met.", ; + Label1.Name = "Label1", ; + Label2.Name = "Label2", ; + Label3.Name = "Label3", ; + Label4.Name = "Label4", ; + Text1.ControlSource = "pnNr_facturi2", ; + Text1.Name = "Text1", ; + Text2.ControlSource = "pnBaza2", ; + Text2.InputMask = "999 999 999 999", ; + Text2.Name = "Text2", ; + Text3.ControlSource = "pnTVA2", ; + Text3.InputMask = "999 999 999 999", ; + Text3.Name = "Text3" + *< END OBJECT: ClassLib="ovanzcump.vcx" BaseClass="container" /> + + ADD OBJECT 'Cnt_facturi_dupa_inspectie3' AS cnt_facturi_dupa_inspectie WITH ; + Anchor = 6, ; + Height = 69, ; + Left = 9, ; + Name = "Cnt_facturi_dupa_inspectie3", ; + TabIndex = 4, ; + Top = 462, ; + Width = 416, ; + ZOrderSet = 13, ; + Shape1.Name = "Shape1", ; + Label1.Caption = "Facturi emise, cf. art. 11 alin (6) si (8) din Codul Fiscal", ; + Label1.Name = "Label1", ; + Label2.Name = "Label2", ; + Label3.Name = "Label3", ; + Label4.Name = "Label4", ; + Text1.ControlSource = "pnNr_facturi3", ; + Text1.Name = "Text1", ; + Text2.ControlSource = "pnBaza3", ; + Text2.InputMask = "999 999 999 999", ; + Text2.Name = "Text2", ; + Text3.ControlSource = "pnTVA3", ; + Text3.InputMask = "999 999 999 999", ; + Text3.Name = "Text3" + *< END OBJECT: ClassLib="ovanzcump.vcx" BaseClass="container" /> + + ADD OBJECT 'Cnt_facturi_dupa_inspectie4' AS cnt_facturi_dupa_inspectie WITH ; + Anchor = 12, ; + Height = 69, ; + Left = 424, ; + Name = "Cnt_facturi_dupa_inspectie4", ; + TabIndex = 2, ; + Top = 462, ; + Width = 416, ; + ZOrderSet = 13, ; + Shape1.Name = "Shape1", ; + Label1.Caption = "Prest. serv. catre pers. neimpoz. din alte state UE art. 278 alin. (8) lit. b) C.F.", ; + Label1.Name = "Label1", ; + Label2.Left = 7, ; + Label2.Name = "Label2", ; + Label2.Top = 85, ; + Label2.Visible = .F., ; + Label3.Caption = "Valoare fara TVA an precedent", ; + Label3.Left = 8, ; + Label3.Name = "Label3", ; + Label3.Top = 25, ; + Label4.Caption = "Valoare fara TVA an curent", ; + Label4.Left = 234, ; + Label4.Name = "Label4", ; + Label4.Top = 24, ; + Text1.ControlSource = "", ; + Text1.Left = 18, ; + Text1.Name = "Text1", ; + Text1.Top = 101, ; + Text1.Visible = .F., ; + Text2.ControlSource = "pnBaza41", ; + Text2.InputMask = "999 999 999 999", ; + Text2.Left = 8, ; + Text2.Name = "Text2", ; + Text2.Top = 40, ; + Text3.ControlSource = "pnBaza42", ; + Text3.InputMask = "999 999 999 999", ; + Text3.Left = 234, ; + Text3.Name = "Text3", ; + Text3.Top = 40 + *< END OBJECT: ClassLib="ovanzcump.vcx" BaseClass="container" /> + + ADD OBJECT 'Command1' AS commandbutton WITH ; + Anchor = 12, ; + AutoSize = .T., ; + Caption = "Datele de identif. ale firmei", ; + FontSize = 10, ; + Left = 360, ; + Name = "Command1", ; + TabIndex = 6, ; + Top = 651, ; + Visible = .F., ; + Width = 175, ; + ZOrderSet = 14 + *< END OBJECT: BaseClass="commandbutton" /> + + ADD OBJECT 'Command3' AS commandbutton WITH ; + Anchor = 12, ; + AutoSize = .T., ; + Caption = "Export in fisiere text", ; + ForeColor = 0,0,255, ; + Height = 27, ; + Left = 408, ; + Name = "Command3", ; + TabIndex = 7, ; + Top = 653, ; + Visible = .F., ; + Width = 123, ; + ZOrderSet = 1 + *< END OBJECT: BaseClass="commandbutton" /> + + ADD OBJECT 'edtInfo' AS _editbox WITH ; + Anchor = 14, ; + Height = 48, ; + Left = 12, ; + Name = "edtInfo", ; + TabIndex = 13, ; + Top = 582, ; + Visible = .T., ; + Width = 828, ; + ZOrderSet = 4 + *< END OBJECT: ClassLib="..\..\roastart\comun\clase\_baza.vcx" BaseClass="editbox" /> + + ADD OBJECT 'lblRandAtentie' AS _label WITH ; + Anchor = 10, ; + AutoSize = .F., ; + BackColor = 255,255,128, ; + BackStyle = 1, ; + Caption = "Corectati valoarea din randul 31, daca este cazul (SUB-TOTAL TAXA DEDUSA CONFORM ART.297 SI 298 SAU 300 ) = RD. 30 - Limitare deducere TVA", ; + FontSize = 10, ; + Height = 39, ; + Left = 10, ; + Name = "lblRandAtentie", ; + TabIndex = 15, ; + Top = 33, ; + Width = 818, ; + WordWrap = .T., ; + ZOrderSet = 15 + *< END OBJECT: ClassLib="..\..\..\contafin\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT 'txtAchizitiiBaza6N' AS _textbox WITH ; + Anchor = 12, ; + ControlSource = "pnAchizitieBaza6N", ; + Height = 23, ; + InputMask = "999 999 999 999", ; + Left = 591, ; + Name = "txtAchizitiiBaza6N", ; + ReadOnly = .F., ; + TabIndex = 26, ; + Top = 426, ; + Width = 114, ; + ZOrderSet = 19 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'txtAchizitiiBazaN' AS _textbox WITH ; + Anchor = 12, ; + ControlSource = "pnAchizitieBazaN", ; + Height = 23, ; + InputMask = "999 999 999 999", ; + Left = 591, ; + Name = "txtAchizitiiBazaN", ; + ReadOnly = .F., ; + TabIndex = 20, ; + Top = 402, ; + Width = 114, ; + ZOrderSet = 19 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'txtAchizitiiTVA6N' AS _textbox WITH ; + Anchor = 12, ; + ControlSource = "pnAchizitieTVA6N", ; + Height = 23, ; + InputMask = "999 999 999 999", ; + Left = 713, ; + Name = "txtAchizitiiTVA6N", ; + ReadOnly = .F., ; + TabIndex = 27, ; + Top = 426, ; + Width = 114, ; + ZOrderSet = 20 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'txtAchizitiiTVAN' AS _textbox WITH ; + Anchor = 12, ; + ControlSource = "pnAchizitieTVAN", ; + Height = 23, ; + InputMask = "999 999 999 999", ; + Left = 713, ; + Name = "txtAchizitiiTVAN", ; + ReadOnly = .F., ; + TabIndex = 21, ; + Top = 402, ; + Width = 114, ; + ZOrderSet = 20 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'txtLivrareBaza6N' AS _textbox WITH ; + Anchor = 12, ; + ControlSource = "pnLivrareBaza6N", ; + Height = 23, ; + InputMask = "999 999 999 999", ; + Left = 591, ; + Name = "txtLivrareBaza6N", ; + ReadOnly = .F., ; + TabIndex = 24, ; + Top = 376, ; + Width = 114, ; + ZOrderSet = 17 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'txtLivrareBazaN' AS _textbox WITH ; + Anchor = 12, ; + ControlSource = "pnLivrareBazaN", ; + Height = 23, ; + InputMask = "999 999 999 999", ; + Left = 591, ; + Name = "txtLivrareBazaN", ; + ReadOnly = .F., ; + TabIndex = 18, ; + Top = 353, ; + Width = 114, ; + ZOrderSet = 17 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'txtLivrareTVA6N' AS _textbox WITH ; + Anchor = 12, ; + ControlSource = "pnLivrareTVA6N", ; + Height = 23, ; + InputMask = "999 999 999 999", ; + Left = 714, ; + Name = "txtLivrareTVA6N", ; + ReadOnly = .F., ; + TabIndex = 25, ; + Top = 376, ; + Width = 114, ; + ZOrderSet = 18 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'txtLivrareTVAN' AS _textbox WITH ; + Anchor = 12, ; + ControlSource = "pnLivrareTVAN", ; + Height = 23, ; + InputMask = "999 999 999 999", ; + Left = 714, ; + Name = "txtLivrareTVAN", ; + ReadOnly = .F., ; + TabIndex = 19, ; + Top = 353, ; + Width = 114, ; + ZOrderSet = 18 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + PROCEDURE Activate + * nu sterge + + Local lnLeft, lnWidth + This.LockScreen=.T. + lnWidth = This.Width + lnLeft = This.Left + + This.WindowState = 2 + This.Width = lnWidth + This.Left = lnLeft + + This.LockScreen=.F. + + ENDPROC + + PROCEDURE do_executa + *!* 01.02.2012 + *!* d300_201201.pdf + + Lparameters tnMenu + *!* tnMenu: 1 = XML, 2 = PDF, 3 = XML + PDF + *!* tnDecl: 100, 102 + #Define CRLF Chr(13) + Chr(10) + + + Local loEx As Exception + Local lnMenu, lcCaleFisier, lcCaleFisierPDF, lcNumeFisier + Local lcAppPath, lcCaleD112, lcComunPath, lcSelect, lcTempPath, lnPos + Local lcFileName, lcFisierPDFNou, lcFisierPDFOriginal, lcFisierXDP, lcFisierXML, lcRun + Local loProcess As "api_apprun" Of "process.vcx" + Local lcD112RezultatFile, lcD112ValidatorFile, lcMesaj, lcRezultat, lcVersiuneDUK + Local lcVersiuneFisiereD112, lcVersiunePDF, llSucces + Local lcCod_fiscal, lcCaenRevizie, lnCaenRevizie + lcCaleFisier = "" + + lcSelect = Select() + If !Empty(tnMenu) + lnMenu = tnMenu + Else + lnMenu = xmenu("Genereaza \ 0 + lcComunPath = Left(m.lcAppPath, lnPos) + Endif + lcComunPath = ADDBS(m.gcBasePath) + Iif(gcAppName = "CONCONT", "COMUNCONTAFIN\", "COMUNROA\") && d:\contafin\comuncontafin\ + + This.UpdateInfo("Creez structura director export...") + + *** Creez structura director export (caletemp\D112\aaaa_ll\firma\ + llSucces = .F. + + Try + lcTempPath = ADDBS(m.gcBasePath) + + lcCaleFisier = m.lcTempPath + "D300\" && c:\temp\D112\ + + If !Directory(m.lcCaleFisier) + Md (m.lcCaleFisier) + Endif + + *lcCaleFisier = m.lcCaleFisier + Alltrim(Str(This.nAn)) + "_" + Padl(Alltrim(Str(This.nLuna)),2, "0") + "\"&& c:\temp\D112\2011_01\ + lcCaleFisier = m.lcCaleFisier + Alltrim(Str(gnAn)) + "_" + Padl(Alltrim(Str(gnLuna)),2, "0") + "\"&& c:\temp\D112\2011_01\ + If !Directory(m.lcCaleFisier) + Md (m.lcCaleFisier) + Endif + + *lcCaleFisier = m.lcCaleFisier + STRTRAN(This.cNumeFirma,[ ],[_]) + "\" && c:\temp\D112\2011_01\firma\ + lcCaleFisier = m.lcCaleFisier + Strtran(gcFirma,[ ],[_]) + "\" && c:\temp\D112\2011_01\firma\ + If !Directory(m.lcCaleFisier) + Md (m.lcCaleFisier) + Endif + This.UpdateInfo("S-a creat directorul " + m.lcCaleFisier) + + *lcCaleFisierPDF = m.lcCaleFisier + "pdf_inteligent\" && c:\temp\D112\2011_01\firma\pdf_inteligent\ + lcCaleFisierPDF = m.lcCaleFisier && c:\temp\D112\2011_01\firma\ + If !Directory(m.lcCaleFisierPDF) + Md (m.lcCaleFisierPDF) + Endif + This.UpdateInfo("S-a creat directorul " + m.lcCaleFisierPDF) + + llSucces = .T. + Catch To loEx + lcMesaj = "Creare director " + lcCaleFisier + " " + loEx.Message + This.UpdateInfo(lcMesaj) + + Thisform.afiseaza_mesaj(lcMesaj,0+48) + Endtry + If !llSucces + Return + Endif + *!* lcCaleFisier = shortpath(Getdir([],[Alegeti directorul unde se va salva PDF-ul/XML-ul],[Declaratia 112])) + + lcCaenRevizie = NVL(goFirma.caen_revizie, '2') + lnCaenRevizie = INT(VAL(m.lcCaenRevizie)) + Do Case + Case gnAn*12 + gnLuna >= 2026*12 + 1 + lcFisierPDFOriginal = lcComunPath + "d300_202601.pdf" && TVA 21% - s-au scos 19,9,5% + + Case gnAn*12 + gnLuna >= 2025*12 + 8 + lcFisierPDFOriginal = lcComunPath + "d300_202508.pdf" && TVA 21% + + Case m.gnAn * 12 + m.gnLuna >= 2025 * 12 + 1 AND m.lnCaenRevizie >= 3 + lcFisierPDFOriginal = lcComunPath + "d300_202501_v3.pdf" && Cod CAEN rev. 3 + + Case gnAn*12 + gnLuna >= 2024*12 + 5 + lcFisierPDFOriginal = lcComunPath + "d300_202405.pdf" + Case gnAn*12 + gnLuna >= 2023*12 + 8 + lcFisierPDFOriginal = lcComunPath + "d300_202308.pdf" + Case gnAn*12 + gnLuna >= 2021*12 + 6 + lcFisierPDFOriginal = lcComunPath + "d300_202106.pdf" + Case gnAn*12 + gnLuna >= 2019*12 + 1 + lcFisierPDFOriginal = lcComunPath + "d300_201907.pdf" + Case gnAn*12 + gnLuna >= 2017*12 + 1 + lcFisierPDFOriginal = lcComunPath + "d300_201701.pdf" + Case gnAn*12 + gnLuna >= 2016*12 + 1 + lcFisierPDFOriginal = lcComunPath + "d300_201601.pdf" + Case gnAn*12 + gnLuna >= 2013*12 + 1 + lcFisierPDFOriginal = lcComunPath + "d300_201301.pdf" + Case gnAn*12 + gnLuna >= 2012*12 + 1 + lcFisierPDFOriginal = lcComunPath + "d300_201201.pdf" + Case gnAn*12 + gnLuna >= 2011*12 + 11 + lcFisierPDFOriginal = lcComunPath + "d300_201111.pdf" + Otherwise + lcFisierPDFOriginal = lcComunPath + "d300.pdf" + Endcase + + *!* 19.01.2012 + This.UpdatePDF(m.lcFisierPDFOriginal) && actualizez pdf de la romfast + *!* 19.01.2012 ^ + + If Upper(Substr(Alltrim(gofirma.cod_fiscal),1,2))='RO' + lcCod_fiscal = Substr(Alltrim(gofirma.cod_fiscal),3,Len(Alltrim(gofirma.cod_fiscal))-2) + Else + lcCod_fiscal = Alltrim(gofirma.cod_fiscal) + Endif + + *lcNumeFisier = "d100_"+ Alltrim(Transform(Thisform.cCodFiscal)) + "_" + Alltrim(Str(Int(Thisform.nAn))) + "_" + Alltrim(Padl(Int(Thisform.nLuna), 2, "0")) + lcNumeFisier = "d300_"+ lcCod_fiscal + "_" + Alltrim(Str(gnAn)) + "_" + Padl(gnLuna, 2, "0") + + + lcFileName = m.lcCaleFisier + lcNumeFisier + + lcFileNamePDF = m.lcCaleFisierPDF + lcNumeFisier + lcFisierPDFNou = m.lcFileNamePDF + [.pdf] + lcFisierXDP = m.lcFileNamePDF + [.xdp] + + lcFisierXML = m.lcFileName + [.xml] + *lcD100ValidatorFile = m.lcComunPath + [dist\DUKIntegrator.jar] + lcD100RezultatFile = m.lcFisierXML + [.err.txt] + + lcVersiuneFisiereD112 = lcComunPath + "versiuni_fisiere.txt" + *this.cD112ValidatorFile = lcD112ValidatorFile + This.cFisierXML = lcFisierXML + This.cD100RezultatFile = lcD100RezultatFile + + If Inlist(lnMenu, 2,3) + If File(lcFisierPDFNou) + Delete File (lcFisierPDFNou) + Endif + If File(lcFisierXDP) + Delete File (lcFisierXDP) + Endif + Endif + If Inlist(lnMenu, 1,3) + If File(lcFisierXML) + Delete File (lcFisierXML) + Endif + If File(m.lcD100RezultatFile) + Delete File (m.lcD100RezultatFile) + Endif + Endif + This.cD100Rezultat = "" + This.cD100PDF = "" + + *** verific pdf original + *!* If Inlist(lnMenu,2,3) + *!* This.verificare_versiune("A") + *!* This.UpdateInfo(REPLICATE('-', 100)) + *!* ENDIF + + *** verific program validare D112 + *!* If Inlist(lnMenu,1,3) + *!* This.verificare_versiune("J") + *!* This.UpdateInfo(REPLICATE('-', 100)) + *!* Endif + + *** creez xml, xdp (= xml data package = xml cu sesiunea pdf-ului inteligent) + + Do Case + Case lnMenu = 1 + This.UpdateInfo("Se exporta datele in format XML") + Thisform.do_genereaza_xml(lcFisierXML) + This.UpdateInfo(Replicate('-', 100)) + *!* Case lnMenu = 2 + *!* This.UpdateInfo("Se exporta datele in format PDF") + *!* Thisform.do_genereaza_xdp(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + *!* This.UpdateInfo(Replicate('-', 100)) + Case INLIST(lnMenu,2,3) + This.UpdateInfo("Se exporta datele in format XML+PDF") + DO CASE + CASE gnAn*12+gnLuna >= 2026*12+1 + Thisform.do_genereaza_xdp_202601(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + + CASE gnAn*12+gnLuna >= 2025*12+8 + Thisform.do_genereaza_xdp_202508(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + + CASE gnAn*12+gnLuna >= 2024*12+5 + Thisform.do_genereaza_xdp_202405(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + + CASE gnAn*12+gnLuna >= 2023*12+8 + Thisform.do_genereaza_xdp_202308(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + + CASE gnAn*12+gnLuna >= 2018*12+1 + Thisform.do_genereaza_xdp_201901(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + + CASE gnAn*12+gnLuna >= 2017*12+1 + Thisform.do_genereaza_xdp_201701(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + + CASE gnAn*12+gnLuna >= 2016*12+1 + Thisform.do_genereaza_xdp_201601(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + + CASE gnAn*12+gnLuna >= 2013*12+1 + Thisform.do_genereaza_xdp_201301(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + + CASE gnAn*12+gnLuna >= 2012*12+1 + Thisform.do_genereaza_xdp_201201(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + + CASE gnAn*12+gnLuna >= 2011*12+11 + Thisform.do_genereaza_xdp_201111(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + + OTHERWISE + Thisform.do_genereaza_xdp(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + ENDCASE + This.UpdateInfo(Replicate('-', 100)) + Endcase + + + *** deschid fisierul XDP (pdf inteligent) + If Inlist(lnMenu,2,3) And File(lcFisierXDP) + If !File(m.lcFisierPDFOriginal) + OPEN_DEFAULT_APP("http://static.anaf.ro/static/10/Anaf/Declaratii_R/300.html") + AMessagebox('Nu exista fisierul ' + m.lcFisierPDFOriginal + CRLF + ; + 'Copiati pdf-ul inteligent D300 de pe website-ul ANAF in directorul ' + Justpath(m.lcFisierPDFOriginal) + CRLF + ; + 'cu numele ' + Justfname(m.lcFisierPDFOriginal) + '.', 0+48, _Screen.Caption) + Else + *** copiez fisierul pdf inteligent original in directorul de export + Copy File (lcFisierPDFOriginal) To (lcFisierPDFNou) + This.cD100PDF = m.lcFisierXDP + If File(m.lcFisierXDP) + This.UpdateInfo([In PDF apasati butonul "Options > Trust this document always" de pe banda galbena pentru a incarca datele.]) + open_default_app(lcFisierXDP) + ENDIF + ENDIF + Endif + + *!* *** deschid explorer in directorul de export + lcRun = [RUN /N7 explorer.exe "] + m.lcCaleFisier + ["] + &lcRun + + + Select (lcSelect) + + + ENDPROC + + PROCEDURE do_genereaza_tag && metoda interna ajutatoare + X=SQLCONNECT("ROA_CENTRAL","MARIUSM_AUTO","123") + LNSUCCES = SQLEXEC(X,"SELECT * from deconttva where valabil = '0112' AND TRIM(RAND) IS NOT NULL order by id_decont", "CRSDECONT") + SQLDISCONNECT(0) + lcText = "" + SELECT CRSDECONT + SCAN + lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1 + lcTag = "r" + m.lcRand + lcVariabilaB = [m.ln] + m.lcRand + "B" && ln17_1B + lcVariabilaT = [m.ln] + m.lcRand + "T" && ln17_1T + lcC1 = "" + lcC2 = "" + IF inactivb = 0 + lcC1 = [<<] + m.lcVariabilaB + [>>] + ENDIF + IF inactivt = 0 + lcC2 = [<<] + m.lcVariabilaT + [>>] + ENDIF + + lcText = lcText + [\<] + m.lcTag + [>] + m.lcC1 + m.lcC2 + [] + CHR(13) + CHR(10) + ENDSCAN + _cliptext = lcText + + TEXT TO lcXX + \<> + \<> + \<> + \<> + \<> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \<> + \<> + \<> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \<> + \<> + \<><> + \<><> + \<> + \<> + \<><> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + ENDTEXT + ENDPROC + + PROCEDURE do_genereaza_xdp + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou + Local lcDateStyle, lcMark, lcXDP + Local lcSelect, lcCod_fiscal + lcSelect = Select() + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + Set Date To Ymd + Set Mark To '-' + + + Set Textmerge On To Memvar lcXDP Noshow + *Set Textmerge On To Memvar lcXML Noshow + \ + \ + \ + \ + \ + + \ + \ + \ 300 + \ + + \ + \
+ \<> + \<> + \
+ + \ + \<> + \<> + \<> + \<> + lcFirma = XmlSpecialCharacters(ALLTRIM(UPPER(NVL(goFirma.antet,'')))) && oproceduri_comune.prg + \<> + + If Upper(Substr(Alltrim(gofirma.cod_fiscal),1,2))='RO' + lcCod_fiscal = Substr(Alltrim(gofirma.cod_fiscal),3,Len(Alltrim(gofirma.cod_fiscal))-2) + Else + lcCod_fiscal = Alltrim(gofirma.cod_fiscal) + Endif + + \<> + + \ + \<> + \<> + \ + + \<> + && la o luna, la 3, 6, 12, cod_imp = 301, 302, 303, 304 + \301 + \ + + \ + + + Select * From cDecont Into Cursor crsControl + + Local lnTabele, lnTabel , lnAntet, lnId_decont, lnPuncte + Store 0 To lnTabele, lnTabel, lnAntet, lnId_decont, lnPuncte + + Select cDecont + Calculate Cnt() For antet = 2 To lnTabele + + Select cDecont + Scan + lnAntet = antet + + If lnAntet = 2 + *!* \ + lnTabel = lnTabel + 1 + + If lnTabel > 1 + \>> + ENDIF + + IF lnTabel = 2 && inainte de al doilea tabel + \ + ENDIF + \>> + *!* end \ + + + + lnId_decont = id_decont + + Select crsControl + Locate For id_decont = lnId_decont + 1 + If Found() + If antet = 1 && daca urmeaza un subtitlu - inainte de randul 1, 17 + \

+ \

+ \

+ \

+ Else && dupa antetul gri nu mai urmeaza un subtitlu alb, ci direct indicatori - inainte de al 3-lea tabel, randul 31 + \

+ \

+ Endif + Endif + + Endif && lnAntet = 2 + + If lnAntet = 1 + lnId_decont = id_decont + Select crsControl + Locate For id_decont = lnId_decont + 1 + If Found() + If antet = 0 && nu este subtitlu dupa antet gri inchis - dupa randul 8, 20 + \

+ ENDIF + ENDIF + ENDIF && lnAntet = 1 + + *!* + Select cDecont + lcRand = ALLTRIM(Rand) + lnPuncte = Occurs('.', lcRand) + If lnPuncte = 1 + lcRand = Strtran(lcRand,'.','_') + Endif + If lnPuncte = 2 + lnUltPunct = Rat('.', lcRand) + lcRand = Substr(lcRand,1,lnUltPunct-1)+Substr(lcRand,lnUltPunct+1,Len(lcRand)-1) + lcRand = Strtran(lcRand,'.','_') + Endif + + If !Empty(Rand) + If inactivb=0 And inactivt = 0 + \>><><>>> + Endif + If inactivb=0 And inactivt = 1 + \>><>>> + Endif + If inactivb=1 And inactivt = 0 + \>><>>> + Endif + Endif + + + + Select cDecont + ENDSCAN + + IF USED('crsControl') + USE IN crsControl + ENDIF + + \>> + + \ + + \ + \N + \10301010611250711000030 + \105419 + \<> + + \ + \ + \<><><> + \ + + \<> + \<> + \ + + \ + \ + \ + \ + \ + + \ + \1 + \ + \Vers.1.0.0/ 2011 + \ + \ + + \ + \ + + \ + \ + \ + \ + + + Set Textmerge To + + Strtofile(lcXDP, tcFisierXDP) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + Select (lcSelect) + + ENDPROC + + PROCEDURE do_genereaza_xdp_201111 + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou + Local lcCod_fiscal, lcDateStyle, lcMark, lcNumeDeclarant, lcNumePrenumeDeclarant, lcPrenumeDeclarant, lcCodFiscal + Local lcRand, lcSelect, lcXDP, lnAntet, lnId_decont, lnPuncte, lnTabel, lnTabele, lnUltPunct + lcSelect = Select() + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + LOCAL lnTipDecont + lnTipDecont = IIF(This.nNumarLuni = 1, 301, IIF(This.nNumarLuni = 3, 302, IIF(This.nNumarLuni = 6, 303, 304))) + + Set Date To Ymd + Set Mark To '-' + SET STEP ON + lcNumePrenumeDeclarant = Alltrim(NVL(gofirma.declarant,'')) + lcNumeDeclarant = lcNumePrenumeDeclarant + lcPrenumeDeclarant = "" + IF GETWORDCOUNT(lcNumePrenumeDeclarant," ") > 1 + lcNumeDeclarant = GETWORDNUM(m.lcNumePrenumeDeclarant, 1, " ") + lcPrenumeDeclarant = ALLTRIM(STRTRAN(m.lcNumePrenumeDeclarant, lcNumeDeclarant, "")) + ENDIF + + Set Textmerge On To Memvar lcXDP Noshow + *Set Textmerge On To Memvar lcXML Noshow + \ + \ + \ + \ + \ + + \ + \ + \
+ \ + \<> + \<> + \0 + && la o luna, la 3, 6, 12, cod_imp = 301, 302, 303, 304 + \<> + \ + \ + + lcCodFiscal = UPPER(Alltrim(NVL(gofirma.cod_fiscal,''))) + If Upper(Substr(m.lcCodFiscal,1,2))='RO' + lcCod_fiscal = ALLTRIM(Substr(m.lcCodFiscal,3)) + Else + lcCod_fiscal = m.lcCodFiscal + Endif + + \<> + lcFirma = XmlSpecialCharacters(ALLTRIM(UPPER(NVL(goFirma.antet,'')))) && oproceduri_comune.prg + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \ + \ + + \ + + Select * From cDecont Into Cursor crsControl + + Store 0 To lnTabele, lnTabel, lnAntet, lnId_decont, lnPuncte + + Select cDecont + Calculate Cnt() For antet = 2 To lnTabele + + Select cDecont + Scan + lnAntet = antet + + If lnAntet = 2 + *!* \ + lnTabel = lnTabel + 1 + + If lnTabel > 1 + \>> + ENDIF + + IF lnTabel = 2 && inainte de al doilea tabel + \ + ENDIF + \>> + *!* end \ + + lnId_decont = id_decont + + Select crsControl + Locate For id_decont = lnId_decont + 1 + If Found() + If antet = 1 && daca urmeaza un subtitlu - inainte de randul 1, 17 + \

+ \

+ \

+ \

+ Else && dupa antetul gri nu mai urmeaza un subtitlu alb, ci direct indicatori - inainte de al 3-lea tabel, randul 31 + \

+ \

+ Endif + Endif + Endif && lnAntet = 2 + + If lnAntet = 1 + lnId_decont = id_decont + Select crsControl + Locate For id_decont = lnId_decont + 1 + If Found() + If antet = 0 && nu este subtitlu dupa antet gri inchis - dupa randul 8, 20 + \

+ ENDIF + ENDIF + ENDIF && lnAntet = 1 + + *!* + Select cDecont + lcRand = ALLTRIM(Rand) + lnPuncte = Occurs('.', lcRand) + If lnPuncte = 1 + lcRand = Strtran(lcRand,'.','_') + Endif + If lnPuncte = 2 + lnUltPunct = Rat('.', lcRand) + lcRand = Substr(lcRand,1,lnUltPunct-1)+Substr(lcRand,lnUltPunct+1,Len(lcRand)-1) + lcRand = Strtran(lcRand,'.','_') + Endif + + If !Empty(Rand) + If inactivb=0 And inactivt = 0 + \>><><>>> + Endif + If inactivb=0 And inactivt = 1 + \>><>>> + Endif + If inactivb=1 And inactivt = 0 + \>><>>> + Endif + Endif + Select cDecont + ENDSCAN + + IF USED('crsControl') + USE IN crsControl + ENDIF + + \>> + + \ + \<> + \N + \ + + \ + \ + \ + \<><><> + \ + \ + + \ + \10301011111251211000022 + \ + \ + \ + \ + \ + + \<> + \<> + \<> + \ + \ + \ + \0 + \ + \ + + \ + \ + \ + \ + + + Set Textmerge To + + Strtofile(lcXDP, tcFisierXDP) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + Select (lcSelect) + + ENDPROC + + PROCEDURE do_genereaza_xdp_201201 + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou + Local lcCod_fiscal, lcDateStyle, lcMark, lcNumeDeclarant, lcNumePrenumeDeclarant, lcPrenumeDeclarant, lcCodFiscal + Local lcRand, lcSelect, lcXDP, lnAntet, lnId_decont, lnPuncte, lnTabel, lnTabele, lnUltPunct + lcSelect = Select() + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + Local lnTipDecont + lnTipDecont = Iif(This.nNumarLuni = 1, 301, Iif(This.nNumarLuni = 3, 302, Iif(This.nNumarLuni = 6, 303, 304))) + + Set Date To Ymd + Set Mark To '-' + Set Step On + lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,'')) + lcNumeDeclarant = lcNumePrenumeDeclarant + lcPrenumeDeclarant = "" + If Getwordcount(lcNumePrenumeDeclarant," ") > 1 + lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ") + lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, "")) + Endif + + *** generez variabile pentru fiecare rand + SELECT rand,denumire,valoare,tva,inactivb,inactivt FROM cDecont WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecont NOFILTER + SELECT crsDecont + SCAN + lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1 + lcVariabilaB = [ln] + m.lcRand + "B" && ln17_1B + lcVariabilaT = [ln] + m.lcRand + "T" && ln17_1T + IF inactivb = 0 + LOCAL &lcVariabilaB + &lcVariabilaB = valoare + ENDIF + IF inactivt = 0 + LOCAL &lcVariabilaT + &lcVariabilaT = tva + ENDIF + ENDSCAN + USE IN (SELECT('crsDecont')) + + Set Textmerge On To Memvar lcXDP Noshow + *Set Textmerge On To Memvar lcXML Noshow + \ + \ + \ + \ + \ + + \ + \ + \
+ \ + \<> + \<> + \0 + && la o luna, la 3, 6, 12, cod_imp = 301, 302, 303, 304 + \<> + \0 + \ + \ + + lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,''))) + If Upper(Substr(m.lcCodFiscal,1,2))='RO' + lcCod_fiscal = Alltrim(Substr(m.lcCodFiscal,3)) + Else + lcCod_fiscal = m.lcCodFiscal + Endif + + \<> + lcFirma = XmlSpecialCharacters(Alltrim(Upper(Nvl(gofirma.antet,'')))) && oproceduri_comune.prg + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \ + \ + + \ + **************************** + *** BODY + \ + \

+ \

+ \

+ \<> + \<> + \<> + \<> + \<> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \ + + \ + \

+ \<><> + \<><> + \<><> + \<><> + \<> + \<> + \<> + \<><> + \<><> + \<><> + + \ + \ + \

+ \

+ \

+ \<><> + \<><> + \<><> + \<><> + \<><> + \ + + \ + \

+ \<><> + \<><> + \<><> + \<><> + \<><> + \<> + \<> + \<><> + \<><> + \<> + \<> + \<><> + \<> + \<> + \ + + \ + \

+ \

+ \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \ + + **************************** + *** FOOTER + \ + \<> + \N + \N + \ + + \ + \ + \ + \<><><> + \ + \ + + \ + \10301011111251211000022 + \ + \ + \ + \ + \ + + \<> + \<> + \<> + \ + \ + \ + \0 + \ + \ + + \ + \ + \ + \ + + + Set Textmerge To + + Strtofile(lcXDP, tcFisierXDP) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + Select (lcSelect) + + + ENDPROC + + PROCEDURE do_genereaza_xdp_201301 + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou + Local lcCod_fiscal, lcDateStyle, lcMark, lcNumeDeclarant, lcNumePrenumeDeclarant, lcPrenumeDeclarant, lcCodFiscal + Local lcRand, lcSelect, lcXDP, lnAntet, lnId_decont, lnPuncte, lnTabel, lnTabele, lnUltPunct + lcSelect = Select() + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + Local lnTipDecont + lnTipDecont = Iif(This.nNumarLuni = 1, 301, Iif(This.nNumarLuni = 3, 302, Iif(This.nNumarLuni = 6, 303, 304))) + + Set Date To Ymd + Set Mark To '-' + Set Step On + lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,'')) + lcNumeDeclarant = lcNumePrenumeDeclarant + lcPrenumeDeclarant = "" + If Getwordcount(lcNumePrenumeDeclarant," ") > 1 + lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ") + lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, "")) + Endif + + *** generez variabile pentru fiecare rand + SELECT rand,denumire,valoare,tva,inactivb,inactivt FROM cDecont WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecont NOFILTER + SELECT crsDecont + SCAN + lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1 + lcVariabilaB = [ln] + m.lcRand + "B" && ln17_1B + lcVariabilaT = [ln] + m.lcRand + "T" && ln17_1T + IF inactivb = 0 + LOCAL &lcVariabilaB + &lcVariabilaB = valoare + ENDIF + IF inactivt = 0 + LOCAL &lcVariabilaT + &lcVariabilaT = tva + ENDIF + ENDSCAN + USE IN (SELECT('crsDecont')) + + Set Textmerge On To Memvar lcXDP Noshow + *Set Textmerge On To Memvar lcXML Noshow + \ + \ + \ + \ + \ + + \ + \ + \
+ \ + \<> + \<> + \0 + && la o luna, la 3, 6, 12, cod_imp = 301, 302, 303, 304 + \<> + \0 + \ + \ + + lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,''))) + If Upper(Substr(m.lcCodFiscal,1,2))='RO' + lcCod_fiscal = Alltrim(Substr(m.lcCodFiscal,3)) + Else + lcCod_fiscal = m.lcCodFiscal + Endif + + \<> + lcFirma = XmlSpecialCharacters(Alltrim(Upper(Nvl(gofirma.antet,'')))) && oproceduri_comune.prg + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \ + \ + + \ + **************************** + *** BODY + \ + \

+ \

+ \

+ \<> + \<> + \<> + \<> + \<> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \ + + \ + \

+ \<><> + \<><> + \<><> + \<><> + \<> + \<> + \<> + \<><> + \<><> + + \ + \ + \

+ \

+ \

+ \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \ + + \ + \

+ \<><> + \<><> + \<><> + \<><> + \<><> + \<> + \<> + \<><> + \<> + \<> + \<><> + \<> + \<> + \ + + \ + \

+ \

+ \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \ + + **************************** + *** FOOTER + \ + \<> + \N + \N + \ + + \ + \ + \ + \<><><> + \ + \<><><><> + \ + + \ + \10301010113250213000024 + \ + \ + \ + \ + \ + + \<> + \<> + \<> + \ + \ + \ + \0 + \ + \ + + \ + \ + \ + \ + + + Set Textmerge To + + Strtofile(lcXDP, tcFisierXDP) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + Select (lcSelect) + + + ENDPROC + + PROCEDURE do_genereaza_xdp_201601 + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou + Local lcCod_fiscal, lcDateStyle, lcMark, lcNumeDeclarant, lcNumePrenumeDeclarant, lcPrenumeDeclarant, lcCodFiscal + Local lcRand, lcSelect, lcXDP, lnAntet, lnId_decont, lnPuncte, lnTabel, lnTabele, lnUltPunct + lcSelect = Select() + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + Local lnTipDecont + lnTipDecont = Iif(This.nNumarLuni = 1, 301, Iif(This.nNumarLuni = 3, 302, Iif(This.nNumarLuni = 6, 303, 304))) + + Set Date To Ymd + Set Mark To '-' + Set Step On + lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,'')) + lcNumeDeclarant = lcNumePrenumeDeclarant + lcPrenumeDeclarant = "" + If Getwordcount(lcNumePrenumeDeclarant," ") > 1 + lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ") + lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, "")) + Endif + + *** generez variabile pentru fiecare rand + SELECT rand,denumire,valoare,tva,inactivb,inactivt FROM cDecont WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecont NOFILTER + SELECT crsDecont + SCAN + lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1 + lcVariabilaB = [ln] + m.lcRand + "B" && ln17_1B + lcVariabilaT = [ln] + m.lcRand + "T" && ln17_1T + IF inactivb = 0 + LOCAL &lcVariabilaB + &lcVariabilaB = valoare + ENDIF + IF inactivt = 0 + LOCAL &lcVariabilaT + &lcVariabilaT = tva + ENDIF + ENDSCAN + USE IN (SELECT('crsDecont')) + + Set Textmerge On To Memvar lcXDP Noshow + *Set Textmerge On To Memvar lcXML Noshow + \ + \ + \ + \ + \ + + \ + \ + \
+ \ + \<> + \<> + \0 + && la o luna, la 3, 6, 12, cod_imp = 301, 302, 303, 304 + \<> + \0 + \ + \ + + lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,''))) + If Upper(Substr(m.lcCodFiscal,1,2))='RO' + lcCod_fiscal = Alltrim(Substr(m.lcCodFiscal,3)) + Else + lcCod_fiscal = m.lcCodFiscal + Endif + + \<> + lcFirma = XmlSpecialCharacters(Alltrim(Upper(Nvl(gofirma.antet,'')))) && oproceduri_comune.prg + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \ + \ + + \ + **************************** + *** BODY + \ + \

+ \

+ \

+ \<> + \<> + \<> + \<> + \<> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \ + + \ + \

+ \<><> + \<><> + \<><> + \<><> + + \<><> + \<><> + \<><> + + \<> + \<> + \<> + \<><> + \<><> + + \ + \ + \

+ \

+ \

+ \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \ + + \ + \

+ \<><> + \<><> + \<><> + \<><> + \<><> + + \<><> + \<><> + \<><> + + \<> + \<> + \<><> + \<> + \<> + \<><> + \<> + \<> + \ + + \ + \

+ \

+ \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \ + + **************************** + *** FOOTER + \ + \<> + \N + \N + \ + + \ + \ + \ + \<><><> + \ + \<><><><> + \<><><><> + \ + + \ + \ + \ + \ + \ + \ + \ + + \<> + \<> + \<> + \ + \ + \ + \0 + \ + \ + + \ + \ + \ + \ + + + Set Textmerge To + + Strtofile(lcXDP, tcFisierXDP) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + Select (lcSelect) + + + ENDPROC + + PROCEDURE do_genereaza_xdp_201701 + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou + Local lcCod_fiscal, lcDateStyle, lcMark, lcNumeDeclarant, lcNumePrenumeDeclarant, lcPrenumeDeclarant, lcCodFiscal + Local lcRand, lcSelect, lcXDP, lnAntet, lnId_decont, lnPuncte, lnTabel, lnTabele, lnUltPunct + lcSelect = Select() + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + Local lnTipDecont + lnTipDecont = Iif(This.nNumarLuni = 1, 301, Iif(This.nNumarLuni = 3, 302, Iif(This.nNumarLuni = 6, 303, 304))) + + Set Date To Ymd + Set Mark To '-' + Set Step On + lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,'')) + lcNumeDeclarant = lcNumePrenumeDeclarant + lcPrenumeDeclarant = "" + If Getwordcount(lcNumePrenumeDeclarant," ") > 1 + lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ") + lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, "")) + Endif + + *** generez variabile pentru fiecare rand + SELECT rand,denumire,valoare,tva,inactivb,inactivt FROM cDecont WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecont NOFILTER + SELECT crsDecont + SCAN + lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1 + lcVariabilaB = [ln] + m.lcRand + "B" && ln17_1B + lcVariabilaT = [ln] + m.lcRand + "T" && ln17_1T + IF inactivb = 0 + LOCAL &lcVariabilaB + &lcVariabilaB = valoare + ENDIF + IF inactivt = 0 + LOCAL &lcVariabilaT + &lcVariabilaT = tva + ENDIF + ENDSCAN + USE IN (SELECT('crsDecont')) + + Set Textmerge On To Memvar lcXDP Noshow + *Set Textmerge On To Memvar lcXML Noshow + \ + \ + \ + \ + \ + + \ + \ + \
+ \ + \<> + \<> + \0 + && la o luna, la 3, 6, 12, cod_imp = 301, 302, 303, 304 + \<> + \0 + \ + \ + + lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,''))) + If Upper(Substr(m.lcCodFiscal,1,2))='RO' + lcCod_fiscal = Alltrim(Substr(m.lcCodFiscal,3)) + Else + lcCod_fiscal = m.lcCodFiscal + Endif + + \<> + lcFirma = XmlSpecialCharacters(Alltrim(Upper(Nvl(gofirma.antet,'')))) && oproceduri_comune.prg + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \ + \ + + \ + **************************** + *** BODY + \ + \

+ \

+ \

+ \<> + \<> + \<> + \<> + \<> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \ + + \ + \

+ \<><> + \<><> + \<><> + \<><> + + \<><> + \<><> + \<><> + + \<> + \<> + \<> + \<><> + \<><> + + \ + \ + \

+ \

+ \

+ \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \ + + \ + \

+ \<><> + \<><> + \<><> + \<><> + + \<><> + \<><> + \<><> + + \<> + \<> + \<> + \<> + \<><> + \<> + \<> + \<><> + \<> + \<> + \ + + \ + \

+ \

+ \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \ + + **************************** + *** FOOTER + \ + \<> + \N + \N + \ + + \ + \ + \ + \<><><> + \ + \<><><><> + \<><><><> + \ + + \ + \ + \ + \ + \ + \ + \ + + \<> + \<> + \<> + \ + \ + \ + \0 + \ + \ + + \ + \ + \ + \ + + + Set Textmerge To + + Strtofile(lcXDP, tcFisierXDP) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + Select (lcSelect) + + + ENDPROC + + PROCEDURE do_genereaza_xdp_201901 + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou + Local lcCod_fiscal, lcDateStyle, lcMark, lcNumeDeclarant, lcNumePrenumeDeclarant, lcPrenumeDeclarant, lcCodFiscal + Local lcRand, lcSelect, lcXDP, lnAntet, lnId_decont, lnPuncte, lnTabel, lnTabele, lnUltPunct, lnSumaControl + lcSelect = Select() + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + Local lnTipDecont, lcTipDecont + lnTipDecont = Iif(This.nNumarLuni = 1, 301, Iif(This.nNumarLuni = 3, 302, Iif(This.nNumarLuni = 6, 303, 304))) + lcTipDecont = Iif(This.nNumarLuni = 1, 'L', Iif(This.nNumarLuni = 3, 'T', Iif(This.nNumarLuni = 6, 'S', 'A'))) + + Set Date To Ymd + Set Mark To '-' + Set Step On + lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,'')) + lcNumeDeclarant = lcNumePrenumeDeclarant + lcPrenumeDeclarant = "" + If Getwordcount(lcNumePrenumeDeclarant," ") > 1 + lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ") + lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, "")) + Endif + + *** generez variabile pentru fiecare rand + lnSumaControl = 0 + SELECT rand,denumire,valoare,tva,inactivb,inactivt FROM cDecont WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecont NOFILTER + SELECT crsDecont + SCAN + lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1 + lcVariabilaB = [ln] + m.lcRand + "B" && ln17_1B + lcVariabilaT = [ln] + m.lcRand + "T" && ln17_1T + IF inactivb = 0 + LOCAL &lcVariabilaB + &lcVariabilaB = INT(valoare) + lnSumaControl = m.lnSumaControl + INT(valoare) + ENDIF + IF inactivt = 0 + LOCAL &lcVariabilaT + &lcVariabilaT = INT(tva) + lnSumaControl = m.lnSumaControl + INT(tva) + ENDIF + ENDSCAN + USE IN (SELECT('crsDecont')) + + lnSumaControl = m.lnSumaControl + pnNr_facturi + pnBaza + pnTva + pnNr_facturi2 + pnBaza2 + pnTva2 + lnSumaControl = INT(m.lnSumaControl) + + lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,''))) + If Upper(Substr(m.lcCodFiscal,1,2))='RO' + lcCod_fiscal = Alltrim(Substr(m.lcCodFiscal,3)) + Else + lcCod_fiscal = m.lcCodFiscal + ENDIF + lcFirma = XmlSpecialCharacters(Alltrim(Upper(Nvl(gofirma.antet,'')))) && oproceduri_comune.prg + + Set Textmerge On To Memvar lcXDP Noshow + *Set Textmerge On To Memvar lcXML Noshow + \ + \ + \ + \ + \ + + \ + \ + \ + \ <><><><>000 + \ + \ + \ + \ <><> + \ <><><><><> + \ <><><><> + \ <><><> + \ <><> + \ + \ + \ <> + \ <> + \ + + **************************** + *** BODY + \ + \<> + \<> + \<> + \<> + \<> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \ + \ + \<><> + \<><> + \<><> + \<><> + + \<><> + \<><> + \<><> + + \<> + \<> + \<> + \<><> + \<><> + \<><> + \<><> + + \ + \ + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \ + \ + \<><> + \<><> + \<><> + \<><> + + \<><> + \<><> + \<><> + + \<> + \<> + \<> + \<> + \<><> + \<> + \<> + \<><> + \<> + \<> + \ + \ + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \ + + **************************** + *** FOOTER + \NNNN + \N + + * Facturi emise/primite dupa inspectia fiscala/cand codul de TVA era anulat + \<><><> + \<><><> + \<><><> + + * Sold TVA neexigibil din alte perioade + \ + \<><> + \<><> + \<><> + \<><> + \ + + * Valoare fara TVA prestari de servicii catre persoane neimpozabile din alte state membre UE prevazute la art. 278 alin. (8) lit. b) din Codul fiscal + \ + \<><> + \ + + \ + + \<><><> + \ + + \ + \ + \ + \ + + + Set Textmerge To + + Strtofile(lcXDP, tcFisierXDP) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + Select (lcSelect) + + + ENDPROC + + PROCEDURE do_genereaza_xdp_202308 + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou + Local lcCod_fiscal, lcDateStyle, lcMark, lcNumeDeclarant, lcNumePrenumeDeclarant, lcPrenumeDeclarant, lcCodFiscal + Local lcRand, lcSelect, lcXDP, lnAntet, lnId_decont, lnPuncte, lnTabel, lnTabele, lnUltPunct, lnSumaControl + lcSelect = Select() + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + Local lnTipDecont, lcTipDecont + lnTipDecont = Iif(This.nNumarLuni = 1, 301, Iif(This.nNumarLuni = 3, 302, Iif(This.nNumarLuni = 6, 303, 304))) + lcTipDecont = Iif(This.nNumarLuni = 1, 'L', Iif(This.nNumarLuni = 3, 'T', Iif(This.nNumarLuni = 6, 'S', 'A'))) + + Set Date To Ymd + Set Mark To '-' + Set Step On + lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,'')) + lcNumeDeclarant = lcNumePrenumeDeclarant + lcPrenumeDeclarant = "" + If Getwordcount(lcNumePrenumeDeclarant," ") > 1 + lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ") + lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, "")) + Endif + + *** generez variabile pentru fiecare rand + lnSumaControl = 0 + SELECT rand,denumire,valoare,tva,inactivb,inactivt FROM cDecont WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecont NOFILTER + SELECT crsDecont + SCAN + lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1 + lcVariabilaB = [ln] + m.lcRand + "B" && ln17_1B + lcVariabilaT = [ln] + m.lcRand + "T" && ln17_1T + IF inactivb = 0 + LOCAL &lcVariabilaB + &lcVariabilaB = INT(valoare) + lnSumaControl = m.lnSumaControl + INT(valoare) + ENDIF + IF inactivt = 0 + LOCAL &lcVariabilaT + &lcVariabilaT = INT(tva) + lnSumaControl = m.lnSumaControl + INT(tva) + ENDIF + ENDSCAN + USE IN (SELECT('crsDecont')) + + lnSumaControl = m.lnSumaControl + pnNr_facturi + pnBaza + pnTva + pnNr_facturi2 + pnBaza2 + pnTva2 + lnSumaControl = INT(m.lnSumaControl) + + lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,''))) + If Upper(Substr(m.lcCodFiscal,1,2))='RO' + lcCod_fiscal = Alltrim(Substr(m.lcCodFiscal,3)) + Else + lcCod_fiscal = m.lcCodFiscal + ENDIF + lcFirma = XmlSpecialCharacters(Alltrim(Upper(Nvl(gofirma.antet,'')))) && oproceduri_comune.prg + + Set Textmerge On To Memvar lcXDP Noshow + *Set Textmerge On To Memvar lcXML Noshow + \ + \ + \ + \ + \ + + \ + \ + \ + \ <><><><>000 + \ + \ + \ + \ <><> + \ <><><><><> + \ <><><><> + \ <><><> + \ <><> + \ + \ + \ <> + \ <> + \ + + **************************** + *** BODY + \ + \<> + \<> + \<> + \<> + \<> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \ + \ + \<><> + \<><> + \<><> + \<><> + + \<><> + \<><> + \<><> + + \<> + \<> + \<> + \<> + \<> + \<><> + \<><> + \<><> + \<><> + + \ + \ + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \ + \ + \<><> + \<><> + \<><> + \<><> + + \<><> + \<><> + \<><> + + \<> + \<> + \<> + \<> + \<><> + \<> + \<> + \<><> + \<> + \<> + \ + \ + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \ + + **************************** + *** FOOTER + \NNNN + \N + + * Facturi emise/primite dupa inspectia fiscala/cand codul de TVA era anulat + \<><><> + \<><><> + \<><><> + + * Sold TVA neexigibil din alte perioade + \ + \<><> + \<><> + \<><> + \<><> + \ + + * Valoare fara TVA prestari de servicii catre persoane neimpozabile din alte state membre UE prevazute la art. 278 alin. (8) lit. b) din Codul fiscal + \ + \<><> + \ + + \ + + \<><><> + \ + + \ + \ + \ + \ + + + Set Textmerge To + + Strtofile(lcXDP, tcFisierXDP) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + Select (lcSelect) + + + ENDPROC + + PROCEDURE do_genereaza_xdp_202405 + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou + Local lcCod_fiscal, lcDateStyle, lcMark, lcNumeDeclarant, lcNumePrenumeDeclarant, lcPrenumeDeclarant, lcCodFiscal + Local lcRand, lcSelect, lcXDP, lnAntet, lnId_decont, lnPuncte, lnTabel, lnTabele, lnUltPunct, lnSumaControl + lcSelect = Select() + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + Local lnTipDecont, lcTipDecont + lnTipDecont = Iif(This.nNumarLuni = 1, 301, Iif(This.nNumarLuni = 3, 302, Iif(This.nNumarLuni = 6, 303, 304))) + lcTipDecont = Iif(This.nNumarLuni = 1, 'L', Iif(This.nNumarLuni = 3, 'T', Iif(This.nNumarLuni = 6, 'S', 'A'))) + + Set Date To Ymd + Set Mark To '-' + Set Step On + lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,'')) + lcNumeDeclarant = lcNumePrenumeDeclarant + lcPrenumeDeclarant = "" + If Getwordcount(lcNumePrenumeDeclarant," ") > 1 + lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ") + lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, "")) + Endif + + *** generez variabile pentru fiecare rand + lnSumaControl = 0 + SELECT rand,denumire,valoare,tva,inactivb,inactivt FROM cDecont WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecont NOFILTER + SELECT crsDecont + SCAN + lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1 + lcVariabilaB = [ln] + m.lcRand + "B" && ln17_1B + lcVariabilaT = [ln] + m.lcRand + "T" && ln17_1T + IF inactivb = 0 + LOCAL &lcVariabilaB + &lcVariabilaB = INT(valoare) + lnSumaControl = m.lnSumaControl + INT(valoare) + ENDIF + IF inactivt = 0 + LOCAL &lcVariabilaT + &lcVariabilaT = INT(tva) + lnSumaControl = m.lnSumaControl + INT(tva) + ENDIF + ENDSCAN + USE IN (SELECT('crsDecont')) + + lnSumaControl = m.lnSumaControl + pnNr_facturi + pnBaza + pnTva + pnNr_facturi2 + pnBaza2 + pnTva2 + lnSumaControl = INT(m.lnSumaControl) + + lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,''))) + If Upper(Substr(m.lcCodFiscal,1,2))='RO' + lcCod_fiscal = Alltrim(Substr(m.lcCodFiscal,3)) + Else + lcCod_fiscal = m.lcCodFiscal + ENDIF + lcFirma = XmlSpecialCharacters(Alltrim(Upper(Nvl(gofirma.antet,'')))) && oproceduri_comune.prg + + Set Textmerge On To Memvar lcXDP Noshow + *Set Textmerge On To Memvar lcXML Noshow + \ + \ + \ + \ + \ + + \ + \ + \ + \ <><><><>000 + \ + \ + \ + \ <><> + \ <><><><><> + \ <><><><> + \ <><><> + \ <><> + \ + \ + \ <> + \ <> + \ + + **************************** + *** BODY + \ + \<> + \<> + \<> + \<> + \<> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \ + \ + \<><> + \<><> + \<><> + \<><> + + \<><> + \<><> + \<><> + + \<> + \<> + \<> + \<><> + \<><> + \<><> + \<><> + + \ + \ + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \ + \ + \<><> + \<><> + \<><> + \<><> + + \<><> + \<><> + \<><> + + \<> + \<> + \<> + \<> + \<><> + \<> + \<> + \<><> + \<> + \<> + \ + \ + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \ + + **************************** + *** FOOTER + \NNNN + \N + + * Facturi emise/primite dupa inspectia fiscala/cand codul de TVA era anulat + \<><><> + \<><><> + \<><><> + + * Sold TVA neexigibil din alte perioade + \ + \<><> + \<><> + \<><> + \<><> + \ + + * Valoare fara TVA prestari de servicii catre persoane neimpozabile din alte state membre UE prevazute la art. 278 alin. (8) lit. b) din Codul fiscal + \ + \<><> + \ + + \ + + \<><><> + \ + + \ + \ + \ + \ + + + Set Textmerge To + + Strtofile(lcXDP, tcFisierXDP) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + Select (lcSelect) + + + ENDPROC + + PROCEDURE do_genereaza_xdp_202508 + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou + Local lcCod_fiscal, lcDateStyle, lcMark, lcNumeDeclarant, lcNumePrenumeDeclarant, lcPrenumeDeclarant, lcCodFiscal + Local lcRand, lcSelect, lcXDP, lnAntet, lnId_decont, lnPuncte, lnTabel, lnTabele, lnUltPunct, lnSumaControl + lcSelect = Select() + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + Local lnTipDecont, lcTipDecont + lnTipDecont = Iif(This.nNumarLuni = 1, 301, Iif(This.nNumarLuni = 3, 302, Iif(This.nNumarLuni = 6, 303, 304))) + lcTipDecont = Iif(This.nNumarLuni = 1, 'L', Iif(This.nNumarLuni = 3, 'T', Iif(This.nNumarLuni = 6, 'S', 'A'))) + + Set Date To Ymd + Set Mark To '-' + Set Step On + lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,'')) + lcNumeDeclarant = lcNumePrenumeDeclarant + lcPrenumeDeclarant = "" + If Getwordcount(lcNumePrenumeDeclarant," ") > 1 + lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ") + lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, "")) + Endif + + *** generez variabile pentru fiecare rand + lnSumaControl = 0 + SELECT rand,denumire,valoare,tva,inactivb,inactivt FROM cDecont WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecont NOFILTER + SELECT crsDecont + SCAN + lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1 + lcVariabilaB = [ln] + m.lcRand + "B" && ln17_1B + lcVariabilaT = [ln] + m.lcRand + "T" && ln17_1T + IF inactivb = 0 + LOCAL &lcVariabilaB + &lcVariabilaB = INT(valoare) + lnSumaControl = m.lnSumaControl + INT(valoare) + ENDIF + IF inactivt = 0 + LOCAL &lcVariabilaT + &lcVariabilaT = INT(tva) + lnSumaControl = m.lnSumaControl + INT(tva) + ENDIF + ENDSCAN + USE IN (SELECT('crsDecont')) + + lnSumaControl = m.lnSumaControl + pnNr_facturi + pnBaza + pnTva + pnNr_facturi2 + pnBaza2 + pnTva2 + lnSumaControl = INT(m.lnSumaControl) + + lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,''))) + If Upper(Substr(m.lcCodFiscal,1,2))='RO' + lcCod_fiscal = Alltrim(Substr(m.lcCodFiscal,3)) + Else + lcCod_fiscal = m.lcCodFiscal + ENDIF + lcFirma = XmlSpecialCharacters(Alltrim(Upper(Nvl(gofirma.antet,'')))) && oproceduri_comune.prg + + lcCaenRevizie = NVL(goFirma.caen_revizie, '2') + lnCaenRevizie = INT(VAL(m.lcCaenRevizie)) + lcCaenRev2 = IIF(m.lnCaenRevizie = 2, ALLTRIM(LOWER(goFirma.caen)), '') + lcCaenRev3 = IIF(m.lnCaenRevizie > 2, ALLTRIM(LOWER(goFirma.caen)), '') + + Set Textmerge On To Memvar lcXDP Noshow + *Set Textmerge On To Memvar lcXML Noshow + \ + \ + \ + \ + \ + + \ + \ + \ + \ <><><><>000 + \ + \ + \ + \ <><> + \ <><><><><> + \ <><><><> + \ <><><> + \ <><> + \ <> + \ <> + \ <> + \ + + **************************** + *** BODY + \ + \<> + \<> + \<> + \<> + \<> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \ + \ + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + + \<><> + \<><> + \<><> + \<><> + \<><> + + \<> + \<> + \<> + \<><> + \<><> + \<><> + \<><> + + \ + \ + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \ + \ + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + + \<><> + \<><> + \<><> + \<><> + \<><> + + \<> + \<> + \<> + \<> + \<><> + \<> + \<> + \<><> + \<> + \<> + \ + \ + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \ + + **************************** + *** FOOTER + \NNNN + \N + + * Facturi emise/primite dupa inspectia fiscala/cand codul de TVA era anulat + \<><><> + \<><><> + \<><><> + + * Sold TVA neexigibil din alte perioade + \ + \<><> + \<><> + \<><> + \<><> + \ + + * Valoare fara TVA prestari de servicii catre persoane neimpozabile din alte state membre UE prevazute la art. 278 alin. (8) lit. b) din Codul fiscal + \ + \<><> + \ + + \ + + \<><><> + \ + + \ + \ + \ + \ + + + Set Textmerge To + + Strtofile(lcXDP, tcFisierXDP) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + Select (lcSelect) + + + ENDPROC + + PROCEDURE do_genereaza_xdp_202601 + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou + Local lcCod_fiscal, lcDateStyle, lcMark, lcNumeDeclarant, lcNumePrenumeDeclarant, lcPrenumeDeclarant, lcCodFiscal + Local lcRand, lcSelect, lcXDP, lnAntet, lnId_decont, lnPuncte, lnTabel, lnTabele, lnUltPunct, lnSumaControl + lcSelect = Select() + + lcDateStyle = Set("Date") + lcMark = Set("Mark") + + Local lnTipDecont, lcTipDecont + lnTipDecont = Iif(This.nNumarLuni = 1, 301, Iif(This.nNumarLuni = 3, 302, Iif(This.nNumarLuni = 6, 303, 304))) + lcTipDecont = Iif(This.nNumarLuni = 1, 'L', Iif(This.nNumarLuni = 3, 'T', Iif(This.nNumarLuni = 6, 'S', 'A'))) + + Set Date To Ymd + Set Mark To '-' + + lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,'')) + lcNumeDeclarant = lcNumePrenumeDeclarant + lcPrenumeDeclarant = "" + If Getwordcount(lcNumePrenumeDeclarant," ") > 1 + lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ") + lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, "")) + Endif + + *** generez variabile pentru fiecare rand + lnSumaControl = 0 + SELECT rand,denumire,valoare,tva,inactivb,inactivt FROM cDecont WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecont NOFILTER + SELECT crsDecont + SCAN + lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1 + lcVariabilaB = [ln] + m.lcRand + "B" && ln17_1B + lcVariabilaT = [ln] + m.lcRand + "T" && ln17_1T + IF inactivb = 0 + LOCAL &lcVariabilaB + &lcVariabilaB = INT(valoare) + lnSumaControl = m.lnSumaControl + INT(valoare) + ENDIF + IF inactivt = 0 + LOCAL &lcVariabilaT + &lcVariabilaT = INT(tva) + lnSumaControl = m.lnSumaControl + INT(tva) + ENDIF + ENDSCAN + USE IN (SELECT('crsDecont')) + + lnSumaControl = m.lnSumaControl + pnNr_facturi + pnBaza + pnTva + pnNr_facturi2 + pnBaza2 + pnTva2 + lnSumaControl = INT(m.lnSumaControl) + + lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,''))) + If Upper(Substr(m.lcCodFiscal,1,2))='RO' + lcCod_fiscal = Alltrim(Substr(m.lcCodFiscal,3)) + Else + lcCod_fiscal = m.lcCodFiscal + ENDIF + lcFirma = XmlSpecialCharacters(Alltrim(Upper(Nvl(gofirma.antet,'')))) && oproceduri_comune.prg + + lcCaenRevizie = NVL(goFirma.caen_revizie, '2') + lnCaenRevizie = INT(VAL(m.lcCaenRevizie)) + lcCaenRev2 = IIF(m.lnCaenRevizie = 2, ALLTRIM(LOWER(goFirma.caen)), '') + lcCaenRev3 = IIF(m.lnCaenRevizie > 2, ALLTRIM(LOWER(goFirma.caen)), '') + + Set Textmerge On To Memvar lcXDP Noshow + *Set Textmerge On To Memvar lcXML Noshow + \ + \ + \ + \ + \ + + \ + \ + \ + \ <><><><>000 + \ + \ + \ + \ <><> + \ <><><><><> + \ <><><><> + \ <><><> + \ <><> + \ <> + \ <> + \ <> + \ + + **************************** + *** BODY + \ + \<> + \<> + \<> + \<> + \<> + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \ + \ + \<><> + \<><> + \<><> + \<><> + + \<><> + \<><> + + \<> + \<> + \<> + \<><> + \<><> + \<><> + \<><> + + \ + \ + \<><> + \<><> + \<><> + \<><> + \<><> + \<><> + \ + \ + \<><> + \<><> + + \<><> + + \<><> + \<><> + + \<> + \<> + \<> + \<> + \<><> + \<> + \<> + \<><> + \<> + \<> + \ + \ + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \<> + \ + + **************************** + *** FOOTER + \NNNN + \N + + * Facturi emise/primite dupa inspectia fiscala/cand codul de TVA era anulat + \<><><> + \<><><> + \<><><> + + * Sold TVA neexigibil din alte perioade + \ + \<><> + \<><> + \<><> + \<><> + \ + + * Valoare fara TVA prestari de servicii catre persoane neimpozabile din alte state membre UE prevazute la art. 278 alin. (8) lit. b) din Codul fiscal + \ + \<><> + \ + + \ + + \<><><> + \ + + \ + \ + \ + \ + + + Set Textmerge To + + Strtofile(lcXDP, tcFisierXDP) + + Set Date To &lcDateStyle + Set Mark To &lcMark + + Select (lcSelect) + + + ENDPROC + + PROCEDURE inainte_de_do_excel + DO export_excel_grid WITH this._grdrow1 + + ENDPROC + + PROCEDURE inainte_de_do_listare + Local lcTabel + lcTabel = Thisform._grdrow1.RecordSource + If Reccount(lcTabel)>0 + Private pcCaen + pcCaen = Alltrim(gofirma.caen) + + If !Empty(pcCaen) And !Isnull(pcCaen) + Private poCaen + Store '' To poCaen + pcschema=[] + pcselect=['select codcaen from sitfin_codcaen where 1=2 '] + pcfiltru=[cod=] + pcCaen + pcorder=[] + llAfisare=.F. + gencursor('poCaen','cCaen',pcselect,pcfiltru,pcschema,pcorder,llAfisare) + poCaen.ca_baza1.afisare() + + Select cCaen + pcCaen = codcaen + + If Used('cCaen') + Use In cCaen + Endif + Endif + + Thisform.AlwaysOnTop = .F. + Select (lcTabel) + Report Form decont To Printer Prompt Preview + Thisform.AlwaysOnTop = .T. + Else + amessagebox("Nu exista inregistrari pentru listare!",48,"Atentie") + Endif + ENDPROC + + PROCEDURE Init + LPARAMETERS tnNumarLuni + LOCAL lcPerioada + This.nNumarLuni = m.tnNumarLuni + lcPerioada = IIF(m.tnNumarLuni = 1, 'LUNAR', IIF(m.tnNumarLuni = 3, 'TRIMESTRIAL', IIF(m.tnNumarLuni = 6, 'SEMESTRIAL', IIF(m.tnNumarLuni = 12, 'ANUAL', '')))) + this.lb_titlu_alb_b121.Caption = this.lb_titlu_alb_b121.Caption + " * " + lcPerioada + DODEFAULT() + ENDPROC + + PROCEDURE Show + Lparameters nStyle + + Thisform.totaluri("valoare", .T.) + Thisform.totaluri("tva", .T.) + + DoDefault(nStyle) + + ENDPROC + + PROCEDURE totaluri + *!* 11.02.2017 + *!* marius.mutu + *!* completare initiala randul 30 = randul 29 + + Lparameters tcColoana, tlFirstTime + Local lcFormula, lcColoana, lcTabel, lnSuma, lnId_ind, lcRand + + If Empty(tcColoana) + lcColoana = "valoare" + Else + lcColoana = Alltrim(tcColoana) + Endif + + lcTabel = Thisform._grdrow1.RecordSource + Select * From (lcTabel) With (Buffering = .T.) Into Cursor cTemp Readwrite NOFILTER + + Select cTemp + Scan For tip = 5 + lnSuma = 0 + lcFormula = Alltrim(cTemp.formula) + lcRand = Alltrim(Rand) + *!* IF '34'$lcRand AND 'tva'$LOWER(lcColoana) + *!* DEBUG + *!* SUSPEND + *!* ENDIF + *!* WAIT WINDOW lcFormula + " - " + lcColoana NOWAIT + lnSuma = calc_indicatori_randuri(lcFormula, "cTemp",lcColoana) + Select cTemp + Replace &lcColoana With lnSuma + Select (lcTabel) + Update (lcTabel) Set &lcColoana = lnSuma Where Alltrim(Rand) = lcRand + + Select cTemp + Endscan + Use In cTemp + + *** COMPLETEZ INITIAL RANDUL 30 SUB-TOTAL TAXA DEDUSA CONFORM ART.145 SAU 147, CU RANDUL 29 + *** NU PUN FORMULA LA FEL CA LA 29, PENTRU CA NU SE MAI POATE MODIFICA DE CATRE UTILIZATOR + If m.tlFirstTime + lnROTN = This.nRotn && limitare deducere TVA 4426 + Select (lcTabel) + Locate For Rand = '30' && TOTAL TAXA DEDUCTIBILA (suma de la rd.20 pâna la rd.28, cu exceptia celor de la rd. 20.1, 22.1, 26.1, 26.2 : + If Found() + lnSuma = &lcColoana + Locate For Rand = '31' And &lcColoana = 0 + If Found() + Replace &lcColoana With m.lnSuma - m.lnROTN + This.Totaluri(tcColoana, .F.) && recalculez totalurile dupa ce am modificat valoarea + Endif + Endif + + Endif + + Select (lcTabel) + Go Top + + ENDPROC + + PROCEDURE updateinfo + #DEFINE CRLF CHR(13) + CHR(10) + Lparameters tcInfo + + + Local loInfo + loInfo = this.edtInfo + If Upper(tcInfo) = 'RESET' + loInfo.Value = "" + Else + loInfo.Value = loInfo.Value + m.tcInfo + CRLF + CRLF + Endif + loInfo.Refresh() + + + ENDPROC + + PROCEDURE updatepdf + Lparameters tcPDFFile + *** tcPDFFile: calea completa a fisierului pdf D:\CONTAFIN\COMUNCONTAFIN\d390.pdf + + Local lcFile, lcPath, llOpen + lcFile = Justfname(m.tcPDFFile) + lcPath = Addbs(Justpath(m.tcPDFFile)) + llOpen = .F. + + Return DownloadSupportFile(m.lcFile, m.lcPath, m.llOpen) && proceduri_comune.prg + + + ENDPROC + + PROCEDURE Clb_tx_simplu1.Text_simplu1.Valid + IF NVL(FLOOR(THIS.VALUE),0) <> NVL(FLOOR(THISFORM.nOldvalue),0) + THISFORM.totaluri("tva") + ENDIF + ENDPROC + + PROCEDURE Clb_tx_simplu1.Text_simplu1.When + THISFORM.nOldvalue = This.Value + ENDPROC + + PROCEDURE cmdPDF.Click + *!* 12.05.2011 + *!* Thisform.do_executa(2) && PDF + Thisform.do_executa(3) && XML + PDF + *!* 12.05.2011 ^ + + ENDPROC + + PROCEDURE Command1.Click + Do date_identif In oproceduri_decont.prg + ENDPROC + + PROCEDURE Command3.Click + LOCAL lcTabel + lcTabel = thisform._grdrow1.RecordSource + + DO export_decont WITH (lcTabel) IN oproceduri_decont.prg + + ENDPROC + + PROCEDURE _grdrow1.cTVA.Text1.LostFocus + IF NVL(FLOOR(THIS.VALUE),0) <> NVL(FLOOR(THISFORM.nOldvalue),0) + THISFORM.totaluri("tva") + ENDIF + ENDPROC + + PROCEDURE _grdrow1.cTVA.Text1.When + thisform.nOldvalue = this.Value + + IF inactivT = 1 + RETURN .F. + ENDIF + ENDPROC + + PROCEDURE _grdrow1.cValoare.Text1.LostFocus + IF NVL(FLOOR(THIS.VALUE),0) <> NVL(FLOOR(THISFORM.nOldvalue),0) + THISFORM.totaluri("valoare") + ENDIF + ENDPROC + + PROCEDURE _grdrow1.cValoare.Text1.When + thisform.nOldvalue = this.Value + + IF inactivB = 1 + RETURN .F. + ENDIF + ENDPROC + + PROCEDURE _grdrow1.Init + this.SetAll("DynamicBackColor","IIF(antet=2,RGB(180,180,180),IIF(antet=1,RGB(230, 230, 230),IIF(tip=5,RGB(230,244,255),RGB(255,255,255))))", "Column") + + this.cValoare.DynamicBackColor = [iif(inactivB=1,rgb(225,225,225),IIF(tip=5,RGB(230,244,255),IIF(antet=2,RGB(180,180,180),IIF(antet=1,RGB(230, 230, 230),rgb(255,255,255)))))] && rgb(128,128,128) + this.cTVA.DynamicBackColor = [iif(inactivT=1,rgb(225,225,225),IIF(tip=5,RGB(230,244,255),IIF(antet=2,RGB(180,180,180),IIF(antet=1,RGB(230, 230, 230),rgb(255,255,255)))))] + + this.cValoare.DynamicForeColor = [iif(inactivB=1,rgb(225,225,225),IIF(antet=2,RGB(180,180,180),IIF(antet=1,RGB(230, 230, 230),rgb(0,0,0))))] + this.cTVA.DynamicForeColor = [iif(inactivT=1,rgb(225,225,225),IIF(antet=2,RGB(180,180,180),IIF(antet=1,RGB(230, 230, 230),rgb(0,0,0))))] + + + + + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_regcump 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="_shape4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_shape3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column11.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column11.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column12.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column12.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="oMenuShortcut" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_reset1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_nract" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_marfa" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_nume" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_eroare" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_achizitii" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_fdoc" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_dataact" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_simplu2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_simplu3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_simplu4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_simplu5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_simplu6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cmd_notacontab" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cmd_istoric" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_reface1" UniqueID="" Timestamp="" /> + + * + *m: butapend + *m: butdrept + *m: filtre + *m: incaspl + *m: istoric + *m: ist_deb_cred + *m: notacontab + *m: plati + *p: nproctvared + *p: nproctvast + * + + * + cgridsortlist = _grdbase1 + DoCreate = .T. + Height = 500 + Name = "frm_regcump" + nproctvared = 0 + nproctvast = 0 + Width = 795 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 795 + _shape1.ZOrderSet = 2 + _shape2.Height = 29 + _shape2.Left = 672 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 121 + _shape2.ZOrderSet = 3 + Lb_titlu_alb_b121.Caption = "REGISTRUL CUMPARARI" + Lb_titlu_alb_b121.FontBold = .T. + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 14 + Lb_titlu_alb_b121.ZOrderSet = 4 + BUT_TERMIN1.Left = 765 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 10 + BUT_TERMIN1.Top = 1 + BUT_TERMIN1.ZOrderSet = 5 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT '_grdbase1' AS _grdbase WITH ; + ColumnCount = 12, ; + DeleteMark = .F., ; + FontName = "Arial Narrow", ; + GridLineColor = 192,192,192, ; + Height = 372, ; + Left = 12, ; + Name = "_grdbase1", ; + Panel = 1, ; + RecordSource = "actcv", ; + TabIndex = 9, ; + Top = 120, ; + Width = 768, ; + ZOrderSet = 9, ; + Column1.ControlSource = "fdoc", ; + Column1.FontName = "Arial Narrow", ; + Column1.Name = "Column1", ; + Column1.Width = 66, ; + Column2.ControlSource = "dataact", ; + Column2.FontName = "Arial Narrow", ; + Column2.Name = "Column2", ; + Column2.Width = 53, ; + Column3.ControlSource = "nract", ; + Column3.FontName = "Arial Narrow", ; + Column3.Name = "Column3", ; + Column3.Width = 67, ; + Column4.ControlSource = "nume", ; + Column4.FontName = "Arial Narrow", ; + Column4.Name = "Column4", ; + Column4.Width = 148, ; + Column5.ControlSource = "cod_fiscal", ; + Column5.FontName = "Arial Narrow", ; + Column5.Name = "Column5", ; + Column5.Width = 66, ; + Column6.ControlSource = "totctva", ; + Column6.FontName = "Arial Narrow", ; + Column6.InputMask = (get_mask(12,gnPA)), ; + Column6.Name = "Column6", ; + Column7.ControlSource = "neimpozab", ; + Column7.FontName = "Arial Narrow", ; + Column7.InputMask = (get_mask(12,gnPA)), ; + Column7.Name = "Column7", ; + Column8.ControlSource = "totftvam", ; + Column8.FontName = "Arial Narrow", ; + Column8.InputMask = (get_mask(12,gnPA)), ; + Column8.Name = "Column8", ; + Column9.ControlSource = "tvam", ; + Column9.FontName = "Arial Narrow", ; + Column9.InputMask = (get_mask(12,gnPA)), ; + Column9.Name = "Column9", ; + Column10.ControlSource = "totftvai", ; + Column10.FontName = "Arial Narrow", ; + Column10.InputMask = (get_mask(12,gnPA)), ; + Column10.Name = "Column10", ; + Column11.ControlSource = "tvai", ; + Column11.FontName = "Arial Narrow", ; + Column11.InputMask = (get_mask(12,gnPA)), ; + Column11.Name = "Column11", ; + Column12.ControlSource = "scc", ; + Column12.FontName = "Arial Narrow", ; + Column12.Name = "Column12", ; + Column12.Width = 32 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_grdbase1.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Fel doc.", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column10.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Baza imp.9%", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column10.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column11.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA 9%", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column11.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column12.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column12.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data act", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. act", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nume", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod fiscal", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Total cu TVA", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column6.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column7.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Neimpozabil", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column7.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column8.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Baza imp.19%", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column8.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column9.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA 19%", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column9.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_shape3' AS _shape WITH ; + BackStyle = 0, ; + BorderColor = 128,128,128, ; + Height = 48, ; + Left = 232, ; + Name = "_shape3", ; + Top = 60, ; + Width = 552, ; + ZOrderSet = 1 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" /> + + ADD OBJECT '_shape4' AS _shape WITH ; + BackStyle = 0, ; + BorderColor = 128,128,128, ; + Height = 79, ; + Left = 224, ; + Name = "_shape4", ; + Top = 38, ; + Width = 568, ; + ZOrderSet = 0 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" /> + + ADD OBJECT 'But_excel1' AS but_excel WITH ; + Left = 702, ; + Name = "But_excel1", ; + TabIndex = 12, ; + Top = 1, ; + ZOrderSet = 6 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_listare1' AS but_listare WITH ; + Left = 734, ; + Name = "But_listare1", ; + TabIndex = 11, ; + Top = 1, ; + Visible = .T., ; + ZOrderSet = 7 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_modifica1' AS but_modifica WITH ; + Left = 588, ; + lvizibil = .F., ; + Name = "But_modifica1", ; + TabIndex = 13, ; + Top = 0, ; + Visible = .F., ; + ZOrderSet = 8 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_reface1' AS but_reface WITH ; + Comment = "*:OnResize=RT", ; + Left = 672, ; + Name = "But_reface1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Ck_achizitii' AS ck_simplu WITH ; + Alignment = 0, ; + Caption = "Alte achizitii", ; + FontName = "Arial Narrow", ; + Left = 67, ; + Name = "Ck_achizitii", ; + TabIndex = 7, ; + Top = 52, ; + ZOrderSet = 23 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_dataact' AS ck_filtru_numar WITH ; + Alignment = 0, ; + camp_nume = dataact, ; + Caption = "Data act", ; + FontName = "Arial Narrow", ; + Left = 6, ; + Name = "Ck_dataact", ; + TabIndex = 2, ; + tip = D, ; + Top = 52, ; + ZOrderSet = 25 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_eroare' AS ck_simplu WITH ; + Alignment = 0, ; + Caption = "Eroare TVA", ; + FontName = "Arial Narrow", ; + Left = 6, ; + Name = "Ck_eroare", ; + TabIndex = 5, ; + Top = 101, ; + ZOrderSet = 22 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_fdoc' AS ck_filtru_text WITH ; + Alignment = 0, ; + camp_nume = fdoc, ; + Caption = "Fel doc.", ; + FontName = "Arial Narrow", ; + Left = 6, ; + Name = "Ck_fdoc", ; + TabIndex = 3, ; + Top = 68, ; + ZOrderSet = 24 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_marfa' AS ck_simplu WITH ; + Alignment = 0, ; + Caption = "Marfa", ; + FontName = "Arial Narrow", ; + Left = 67, ; + Name = "Ck_marfa", ; + TabIndex = 6, ; + Top = 36, ; + ZOrderSet = 20 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_nract' AS ck_filtru_numar WITH ; + Alignment = 0, ; + camp_nume = nract, ; + Caption = "Nr. act", ; + FontName = "Arial Narrow", ; + Left = 6, ; + Name = "Ck_nract", ; + TabIndex = 1, ; + Top = 36, ; + ZOrderSet = 19 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_nume' AS ck_filtru_text WITH ; + Alignment = 0, ; + camp_nume = nume, ; + Caption = "Numele firmei", ; + FontName = "Arial Narrow", ; + Left = 6, ; + Name = "Ck_nume", ; + TabIndex = 4, ; + Top = 84, ; + ZOrderSet = 21 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ; + Left = 135, ; + Name = "Cmd_cauta1", ; + TabIndex = 8, ; + Top = 43, ; + ZOrderSet = 17 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'cmd_istoric' AS _commandbutton WITH ; + Caption = "\ + + ADD OBJECT 'cmd_notacontab' AS _commandbutton WITH ; + Caption = "\ + + ADD OBJECT 'Cmd_reset1' AS cmd_reset WITH ; + Left = 135, ; + Name = "Cmd_reset1", ; + TabIndex = 22, ; + Top = 76, ; + ZOrderSet = 18 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Lb_simplu1' AS lb_simplu WITH ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + Caption = "Total cu TVA", ; + Left = 245, ; + Name = "Lb_simplu1", ; + TabIndex = 23, ; + Top = 53, ; + ZOrderSet = 26 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_simplu2' AS lb_simplu WITH ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + Caption = "Neimpozabil", ; + Left = 335, ; + Name = "Lb_simplu2", ; + TabIndex = 24, ; + Top = 53, ; + ZOrderSet = 27 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_simplu3' AS lb_simplu WITH ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + Caption = "Baza imp. 19%", ; + Left = 420, ; + Name = "Lb_simplu3", ; + TabIndex = 25, ; + Top = 53, ; + ZOrderSet = 28 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_simplu4' AS lb_simplu WITH ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + Caption = "TVA 19%", ; + Left = 529, ; + Name = "Lb_simplu4", ; + TabIndex = 26, ; + Top = 53, ; + ZOrderSet = 29 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_simplu5' AS lb_simplu WITH ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + Caption = "Baza imp. 9%", ; + Left = 607, ; + Name = "Lb_simplu5", ; + TabIndex = 27, ; + Top = 53, ; + ZOrderSet = 30 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_simplu6' AS lb_simplu WITH ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + Caption = "TVA 9%", ; + Left = 715, ; + Name = "Lb_simplu6", ; + TabIndex = 28, ; + Top = 53, ; + ZOrderSet = 31 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'oMenuShortcut' AS menulib WITH ; + Left = 216, ; + Name = "oMenuShortcut", ; + TabIndex = 15, ; + Top = 7, ; + ZOrderSet = 10 + *< END OBJECT: ClassLib="..\comun\clase\utility.vcx" BaseClass="container" /> + + ADD OBJECT 'Text1' AS _txbase WITH ; + Alignment = 1, ; + ControlSource = "pntotctva", ; + FontName = "Arial Narrow", ; + Format = "R", ; + InputMask = (get_mask(12,gnPA)), ; + Left = 234, ; + Name = "Text1", ; + ReadOnly = .T., ; + TabIndex = 16, ; + TabStop = .F., ; + Top = 76, ; + Width = 90, ; + ZOrderSet = 11 + *< END OBJECT: ClassLib="..\comun\clase\_tx_base.vcx" BaseClass="textbox" /> + + ADD OBJECT 'Text2' AS _txbase WITH ; + Alignment = 1, ; + ControlSource = "pnneimpozab", ; + FontName = "Arial Narrow", ; + Format = "R", ; + InputMask = (get_mask(12,gnPA)), ; + Left = 325, ; + Name = "Text2", ; + ReadOnly = .T., ; + TabIndex = 17, ; + TabStop = .F., ; + Top = 76, ; + Width = 90, ; + ZOrderSet = 12 + *< END OBJECT: ClassLib="..\comun\clase\_tx_base.vcx" BaseClass="textbox" /> + + ADD OBJECT 'Text3' AS _txbase WITH ; + Alignment = 1, ; + ControlSource = "pntotftvam", ; + FontName = "Arial Narrow", ; + Format = "R", ; + InputMask = (get_mask(12,gnPA)), ; + Left = 417, ; + Name = "Text3", ; + ReadOnly = .T., ; + TabIndex = 18, ; + TabStop = .F., ; + Top = 76, ; + Width = 90, ; + ZOrderSet = 13 + *< END OBJECT: ClassLib="..\comun\clase\_tx_base.vcx" BaseClass="textbox" /> + + ADD OBJECT 'Text4' AS _txbase WITH ; + Alignment = 1, ; + ControlSource = "pntvam", ; + FontName = "Arial Narrow", ; + Format = "R", ; + InputMask = (get_mask(12,gnPA)), ; + Left = 509, ; + Name = "Text4", ; + ReadOnly = .T., ; + TabIndex = 19, ; + TabStop = .F., ; + Top = 76, ; + Width = 90, ; + ZOrderSet = 14 + *< END OBJECT: ClassLib="..\comun\clase\_tx_base.vcx" BaseClass="textbox" /> + + ADD OBJECT 'Text5' AS _txbase WITH ; + Alignment = 1, ; + ControlSource = "pntotftvai", ; + FontName = "Arial Narrow", ; + Format = "R", ; + InputMask = (get_mask(12,gnPA)), ; + Left = 600, ; + Name = "Text5", ; + ReadOnly = .T., ; + TabIndex = 20, ; + TabStop = .F., ; + Top = 76, ; + Width = 90, ; + ZOrderSet = 15 + *< END OBJECT: ClassLib="..\comun\clase\_tx_base.vcx" BaseClass="textbox" /> + + ADD OBJECT 'Text6' AS _txbase WITH ; + Alignment = 1, ; + ControlSource = "pntvai", ; + FontName = "Arial Narrow", ; + Format = "R", ; + InputMask = (get_mask(12,gnPA)), ; + Left = 692, ; + Name = "Text6", ; + ReadOnly = .T., ; + TabIndex = 21, ; + TabStop = .F., ; + Top = 76, ; + Width = 90, ; + ZOrderSet = 16 + *< END OBJECT: ClassLib="..\comun\clase\_tx_base.vcx" BaseClass="textbox" /> + + PROCEDURE Activate + tw1=Thisform.Width + tl1=Thisform.Height + Thisform.WindowState=2 + tw2=Thisform.Width + tl2=Thisform.Height + + gw1=Thisform._grdbase1.Width + gl1=Thisform._grdbase1.Height + + Thisform._grdbase1.Width=Round(gw1*tw2/tw1,0) + Thisform._grdbase1.Height=Round(gl1*tl2/tl1,0) + + ** ocont2003 + lnlung1=Thisform._shape1.Width + Thisform._shape1.Width=Round(lnlung1*tw2/tw1,0) + lndif=Thisform._shape1.Width-lnlung1 + Thisform._shape2.Left=Thisform._shape2.Left+lndif + thisform.but_excel1.left=thisform.but_excel1.left+lndif + thisform.but_listare1.left=thisform.but_listare1.left+lndif + thisform.but_modifica1.left=thisform.but_modifica1.left+lndif + thisform.but_reface1.left=thisform.but_reface1.left+lndif + thisform.but_TERMIN1.left=thisform.but_TERMIN1.left+lndif + Thisform.cmd_notacontab.Left=Thisform.cmd_notacontab.Left+lndif + Thisform.cmd_istoric.Left=Thisform.cmd_istoric.Left+lndif + ** + + Thisform.Paint + Thisform.Refresh + ENDPROC + + PROCEDURE actualizeaza_grid1 + LPARAMETERS lcFiltru + IF EMPTY(lcFiltru) + lcFiltru = pocump.ca_baza1.cfiltru + ENDIF + + thisform.MousePointer= 11 + + thisform.LockScreen=.t. + save_grid_tag(thisform._grdbase1) + pocump.ca_baza1.cfiltru=lcFiltru + pocump.ca_baza1.afisare() + restore_grid_tag(thisform._grdbase1) + + thisform.LockScreen=.F. + + thisform.MousePointer= 0 + + SELECT actcv + CALCULATE sum(totctva),sum(neimpozab),sum(totftvam),sum(tvam),sum(totftvai),sum(tvai) TO ; + pntotctva,pnneimpozab,pntotftvam,pntvam,pntotftvai,pntvai + GO top + + *thisform.Refresh + WITH thisform + .text1.refresh + .text2.refresh + .text3.refresh + .text4.refresh + .text5.refresh + .text6.refresh + ._grdbase1.SetFocus + ENDWITH + ENDPROC + + PROCEDURE butapend + *!* Local lbMenu[4] + + *!* lbMenu="" + *!* lbMenu[1]="\1)" + *STRTOFILE(lcFiltru,'c:\expr.txt') + + ENDIF + + IF thisform.ck_fdoc.Value=1 + lcFiltru = lcFiltru + thisform.ck_fdoc.filtru + ENDIF + + IF thisform.ck_marfa.Value=1 + lcFiltru = lcFiltru + [ AND SUBSTR(scd,1,3)='371'] + ENDIF + + IF thisform.ck_nract.Value=1 + lcFiltru = lcFiltru + thisform.ck_nract.filtru + ENDIF + + IF thisform.ck_nume.Value=1 + lcFiltru = lcFiltru + thisform.ck_nume.filtru + ENDIF + + thisform.actualizeaza_grid1(lcFiltru) + IF RECCOUNT('actcv')=0 + amessagebox("Cautarea nu a intors rezultate!",64,"Info cautare") + thisform.ck_nract.SetFocus() + ENDIF + + *!* lcFiltru = ".t." + + *!* If this.ck_feldoc.Value = 1 + *!* lcFiltru = lcFiltru + this.Ck_feldoc.filtru_vfp + *!* Endif + + *!* If this.ck_firma.Value = 1 + *!* lcFiltru = lcFiltru + this.Ck_firma.filtru_vfp + *!* Endif + + *!* if bnract==.t. then + *!* *Tnract="(nract>=m.nract1) and (nract<=m.nract2)" + *!* lcFiltru = lcFiltru + " AND (nract>=m.nract1) and (nract<=m.nract2)" + *!* endif + + *!* if this.ck_data.Value = 1 + *!* *Tnract="(nract>=m.nract1) and (nract<=m.nract2)" + *!* lcFiltru = lcFiltru + " AND (dataact >= pdData1) and (dataact <= pdData2)" + *!* endif + + *!* *!* if Bfirma==.t. then + *!* *!* Tfirma="UPPER(LEFT(nume,LEN(M.nume)))==M.nume" + *!* *!* endif + + *!* if BER==.t. then + *!* *TER='abs(TOTFTVAM*(M.CTVAM-1)-TVAM)>100 OR ABS(TOTFTVAI*(M.CTVAI-1)-TVAI)>100 or ABS((totftvam+totftvai+neimpozab+tvai+tvam)-totctva)>100' + *!* lcFiltru = lcFiltru + " AND abs(TOTFTVAM*(M.CTVAM-1)-TVAM)>100 OR ABS(TOTFTVAI*(M.CTVAI-1)-TVAI)>100 or ABS((totftvam+totftvai+neimpozab+tvai+tvam)-totctva)>100" + *!* endif + + *!* *!* if Bachitat==.t. then + *!* *!* Tachitat='(abs(totctva-achitat)<1000 or totctva0 + Local i,xlsheet,XLApp,tmpsheet + SET DATE TO DMY + exista_excel=.T. + p1='' + p2='' + With Thisform._grdbase1 + For nCol=1 To .ColumnCount + nColumn=.Columns(nCol).ColumnOrder + p1=p1+.Columns(nCol).ControlSource+',' + p2=p2+Strtran(.Columns(nCol).header1.Caption,Chr(32),'_')+',' + Endfor + p1=Substr(p1,1,Len(p1)-1) + p2=Substr(p2,1,Len(p2)-1) + Endwith + On Error Do exportare With thisform._grdbase1.recordsource,p1,p2 + tmpsheet = Getobject('','excel.sheet') + On Error + + If exista_excel + Wait Window "Se transmit datele catre Excel..." Nowait + + XLApp = tmpsheet.Application + XLApp.workbooks.Close() + XLApp.workbooks.Add() + poExcel = XLApp.ActiveSheet + + Go Top + poExcel.Cells(1,1).Font.Size=16 + poExcel.Cells(1,1).Font.Bold=.T. + poExcel.Cells(1,1)=Thisform.lb_titlu_alb_b121.Caption+" Luna "+Alltrim(Str(gnLuna))+"/"+Alltrim(Str(gnAn)) + nRows = 3 + With Thisform._grdbase1 + For nCol = 1 To .ColumnCount + nColumn = .Columns(nCol).ColumnOrder + poExcel.Columns(nColumn).ColumnWidth = .Columns(nCol).Width/7.5 + poExcel.Cells(nRows,nColumn) = .Columns(nCol).header1.Caption + poExcel.Cells(nRows,nColumn).Font.Bold = .T. + poExcel.Cells(nRows,nColumn).Interior.ColorIndex = 16 + Endfor + Scan + nRows = nRows + 1 + For nCol = 1 To .ColumnCount + nColumn = .Columns(nCol).ColumnOrder + If At('CHECK',Upper(.Columns(nCol).CurrentControl))>0 + poExcel.Cells(nRows,nColumn)=Iif(Eval(.Columns(nCol).ControlSource)==0,'NU','DA') + Else + poExcel.Cells(nRows,nColumn) = Eval(.Columns(nCol).ControlSource) + Endif + Endfor + Endscan + Endwith + + XLApp.Visible = .T. + Endif + Else + amessagebox("Nu aveti date in cautare!",48,"Atentie") + Thisform.ck_nract.SetFocus() + Endif + + *!* If Used('actcv') And Reccount('actcv')>0 + *!* Private pniesire,pccale + *!* pccale="" + *!* pniesire=0 + *!* ofrmexcel=Createobject('frm_cale_f_excel') + *!* ofrmexcel.Show(1) + *!* If pniesire=1 + *!* Thisform.MousePointer=11 + *!* Thisform.LockScreen=.T. + *!* poExcel = Createobject("Excel.Application") + *!* poExcel.Visible=.F. + *!* poExcel.WorkBooks.Add + *!* Select actcv + *!* Go Top + *!* poExcel.Cells(1,1).Font.Size=16 + *!* poExcel.Cells(1,1).Font.Bold=.T. + *!* poExcel.Cells(1,1)=Thisform.lb_titlu_alb_b121.Caption+" Luna "+Alltrim(Str(gnLuna))+"/"+Alltrim(Str(gnAn)) + *!* For i=1 To 6 + *!* lcval="thisform.lb_simplu"+Alltrim(Str(i))+".caption" + *!* poExcel.Cells(3,i)=&lcval + *!* poExcel.Cells(3,i).Font.Bold=.T. + *!* lcval="thisform.text"+Alltrim(Str(i))+".value" + *!* poExcel.Cells(4,i)=&lcval + *!* Endfor + *!* nRows = 6 + *!* With Thisform._grdbase1 + *!* For nCol = 1 To .ColumnCount + *!* nColumn = .Columns(nCol).ColumnOrder + *!* poExcel.Columns(nColumn).ColumnWidth = .Columns(nCol).Width/7.5 + *!* poExcel.Cells(nRows,nColumn) = .Columns(nCol).header1.Caption + *!* poExcel.Cells(nRows,nColumn).Font.Bold = .T. + *!* poExcel.Cells(nRows,nColumn).Interior.ColorIndex = 16 + *!* Endfor + *!* Scan + *!* nRows = nRows + 1 + *!* For nCol = 1 To .ColumnCount + *!* nColumn = .Columns(nCol).ColumnOrder + *!* If At('CHECK',Upper(.Columns(nCol).CurrentControl))>0 + *!* poExcel.Cells(nRows,nColumn)=Iif(Eval(.Columns(nCol).ControlSource)==0,'NU','DA') + *!* Else + *!* poExcel.Cells(nRows,nColumn) = Eval(.Columns(nCol).ControlSource) + *!* Endif + *!* Endfor + *!* Endscan + *!* Endwith + *!* poExcel.ActiveWorkBook.SaveAs(pccale) + *!* poExcel.ActiveWorkBook.Close + *!* poExcel.Quit + *!* Release poExcel + *!* Go Top + *!* Thisform.LockScreen=.F. + *!* Thisform.MousePointer= 0 + *!* Endif + *!* Else + *!* Messagebox("Nu aveti date in cautare!",48,"Atentie") + *!* Thisform.ck_nract.SetFocus() + *!* Endif + + ENDPROC + + PROCEDURE do_listare + THISFORM.ALWAYSONTOP=.F. + + STORE "" TO pctitlu + + if thisform.ck_marfa.value=1 + pctitlu='JURNAL PENTRU CUMPARARI - ACHIZITII MARFA ' + ELSE + if thisform.ck_achizitii.value=1 + pctitlu='JURNAL PENTRU CUMPARARI - ALTE ACHIZITII' + ELSE + pctitlu='JURNAL PENTRU CUMPARARI' + ENDIF + ENDIF + + SELE ACTCV + ai='19%' + am=ai + + x=xmenu("\ 0 + *!* SELECT cont_exceptii + *!* SCAN + *!* lcExceptii = lcExceptii + ',' + ALLTRIM(exceptie) + *!* ENDSCAN + *!* USE IN cont_exceptii + *!* ENDIF + *!* lcListaCampuri = get_lista_Act() + *!* lcSql = [begin pack_REFACERI.REFAC_TVA('] + gcS +[', 'cump', 1.19, 1.09, '] + lcCorespDtva +[', '] + lcCorespD +[', '] + lcCorespCtva +[', '] + lcCorespC +[','4426', '] + lcExceptii +[',] + pcan + [, ] + pcnl + [,] + ALLTRIM(STR(tnScrie_Sterge)) + [,'] + lcListaCampuri + [' ); end;] + + + *!* lnSucces = goExecutor.oExecute(lcSql) + *!* IF lnSucces < 0 + *!* MESSAGEBOX(goExecutor.cEroare,0+16,'Eroare') + *!* RETURN + *!* ENDIF + + lnAn = gnAn + lnLuna = gnLuna + lnSucces = refacere([TVA],[0],[4426],lnLuna,lnAn) && IN orefaceri.prg + IF lnSucces > 0 + THISFORM.actualizeaza_grid1() + + *** verificare INAINTE_DE + DO inainte WITH "CUMP" IN oinainte_de.prg + + this._grdbase1.SetFocus + + aMESSAGEBOX('Refacerea s-a terminat!',0+64,"Info refacere") + ENDIF + ENDPROC + + PROCEDURE do_reset + thisform.ck_achizitii.Value=0 + thisform.ck_dataact.Value=0 + thisform.ck_eroare.Value=0 + thisform.ck_fdoc.Value=0 + thisform.ck_marfa.Value=0 + thisform.ck_nract.Value=0 + thisform.ck_nume.Value=0 + thisform.Refresh + ENDPROC + + PROCEDURE filtre + *!* Store ".T." To tfirma,TER,Tachitat,Tneachitat + *!* Sele actcv + + *!* If Bfirma==.T. Then + *!* tfirma="UPPER(LEFT(ACTCV.nume,LEN(M.nume)))==M.nume" + *!* Endif + + *!* If Bachitat==.T. Then + *!* Tachitat='ACTCV.totctva=ACTCV.achitat and totctva#0' + *!* Endif + + *!* If Bneachitat==.T. Then + *!* Tneachitat='ACTCV.totctva#ACTCV.achitat' + *!* Endif + + ENDPROC + + PROCEDURE incaspl + Private pnlunanan,pcselect,pcfiltru,pcschema,pcorder,llAfisare,poact,pcTitlu + Store "" To poact + Store .F. To llAfisare + Store 0 To pnlunanan + + pnlunanan=gnAn*12+gnLuna + CN='4111' + Thisform.but_teRMIN1.Enabled=.F. + Thisform.AlwaysOnTop=.F. + + pcschema=['ID_ACT N(20),LUNA N(2),AN N(4),COD N(20),DATAIREG D,nract N(20),DATAACT D,'+]+; + ['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+; + ['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+; + ['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+; + ['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+; + ['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+; + ['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+; + ['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)'] + pcschema=[''] + pcselect=['select partD,dataact,nract,dataireg,suma,perecheC,util,dataora,fdoc,scc,scd,partC,explicatia '+]+; + ['from ]+gcS+[.vact where 2=2'] + + Select actcv + *!* Do Case + *!* Case Inlist(Upper(Thisform.lb_titlu_alb_b121.Caption),"REGISTRUL CUMPARARI","SITUATIE LUNARA FACTURI CUMPARARI")&&cumparari + &&deb + pcTitlu="PLATI LA FACTURA NR. "+Alltrim(Str(nract)) + pcfiltru=[partD=']+Alltrim(nume)+[' and extract(year from dataireg)*12+extract(month from dataireg)<=]+Alltrim(Str(pnlunanan))+[ ]+; + [and (perecheD=]+Alltrim(Str(nract))+[ or nrord=']+Alltrim(Str(nract))+[')] + + *!* Select acn2 + *!* Sum suma To totsum + *!* If Thisform.lb_titlu_alb_b121.Caption#"REGISTRUL CUMPARARI" + *!* If totsum#m.achitat + *!* Do mesaj With "Totalul sumelor din notele contabile este diferit ","de suma achitata. Trebuie redeschisa luna!" + *!* Endif + *!* Endif + *!* Select acn2 + *!* Otherwise&&vanzari + *!* &&cred + *!* *!* Sele 0 + ******************* modificare 14.12 + *!* &&deb + *!* pcTitlu="INCASARI LA FACTURA NR. "+Alltrim(Str(nract)) + *!* pcfiltru=[partC=']+Alltrim(nume)+[' and extract(year from dataireg)*12+extract(month from dataireg)<=]+Alltrim(Str(pnlunanan))+[ ]+; + *!* [and (perecheC=]+Alltrim(Str(nract))+[ or nrord=']+Alltrim(Str(nract))+[')] + ******************* + *!* Select acn2 + *!* Sum suma To totsum + *!* If Thisform.LABEL10.Caption#"REGISTRUL VANZARI" + *!* If totsum#m.achitat + *!* Do mesaj With "Totalul sumelor din notele contabile este diferit ","de suma achitata. Trebuie redeschisa luna!" + *!* Endif + *!* Endif + *!* Endcase + pcorder=[dataact,nract] + gencursor("poact","acn1",pcselect,pcfiltru,pcschema,pcorder,llAfisare) + poact.ca_baza1.afisare() + ORC=Createobj("frm_debcred") + ORC.lb_titlu_alb_b121.Caption=Proper(pcTitlu) + ORC.lb_titlu1.Caption=pcTitlu + *!* ORC.ali="acn2" + *!* ORC.grid1.column6.Visible=.T. + ORC.Show(1) + + pcTitlu="" + Thisform.AlwaysOnTop=.T. + Thisform.but_teRMIN1.Enabled=.T. + If Used('acn1') + Use In acn1 + Endif + Release ORC,poact + *!* Private pnlunanan,pcselect,pcfiltru,pcschema,pcorder,llAfisare,poact + *!* Store "" To poact + *!* Store .F. To llAfisare + *!* Store 0 To pnlunanan + + *!* pnlunanan=gnAn*12+gnLuna + *!* CN='411 ' + *!* Thisform.but_teRMIN1.Enabled=.F. + *!* Thisform.AlwaysOnTop=.F. + + *!* pcschema=['ID_ACT N(20),LUNA N(2),AN N(4),COD N(20),DATAIREG D,NRACT N(14),DATAACT D,'+]+; + *!* ['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+; + *!* ['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+; + *!* ['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+; + *!* ['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+; + *!* ['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+; + *!* ['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+; + *!* ['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)'] + *!* *!* Sele ACTan + *!* *!* Do NRORD With "ACTan" + + *!* Select actcv + *!* Do Case + *!* Case Inlist(Upper(Thisform.lb_titlu_alb_b121.Caption),"REGISTRUL CUMPARARI","SITUATIE LUNARA FACTURI CUMPARARI")&&cumparari + *!* &&deb + *!* pcselect=['select partD,dataact,nract,dataireg,suma,perecheC,util,dataora,fdoc,scc,scd,partC,explicatia '+]+; + *!* ['from ]+gcS+[.vact where 2=2'] + *!* pcfiltru=[partD=']+Alltrim(nume)+[' and extract(year from dataireg)*12+extract(month from dataireg)<=]+Alltrim(Str(pnlunanan))+[ ]+; + *!* [and (perecheC=]+Alltrim(Str(nract))+[ or to_number(nrord)=]+Alltrim(Str(nract))+[)] + *!* pcorder=[dataact,nract] + *!* gencursor("poact","acn2",pcselect,pcfiltru,pcschema,pcorder,llAfisare) + *!* poact.ca_baza1.afisare() + + *!* *!* Select acn2 + *!* *!* Sum suma To totsum + *!* *!* If Thisform.lb_titlu_alb_b121.Caption#"REGISTRUL CUMPARARI" + *!* *!* If totsum#m.achitat + *!* *!* Do mesaj With "Totalul sumelor din notele contabile este diferit ","de suma achitata. Trebuie redeschisa luna!" + *!* *!* Endif + *!* *!* Endif + *!* *!* Select acn2 + *!* TITLU="PLATI LA FACTURA NR. "+Alltrim(Str(nract)) + *!* ORC=Createobj("AFincpl") + *!* ORC.Caption="PLATI LA FACTURA NR. "+Alltrim(Str(nract)) + *!* ORC.LABELTITLU.Caption="PLATI LA FACTURA NR. "+Alltrim(Str(nract)) + + *!* Otherwise&&vanzari + *!* &&cred + *!* *!* Sele 0 + + *!* &&deb + *!* pcselect=['select partD,dataact,nract,dataireg,suma,perecheC,util,dataora,fdoc,scc,scd,partC,explicatia '+]+; + *!* ['from ]+gcS+[.vact where 2=2'] + *!* pcfiltru=[partD=']+Alltrim(nume)+[' and extract(year from dataireg)*12+extract(month from dataireg)<=]+Alltrim(Str(pnlunanan))+[ ]+; + *!* [and (perecheC=]+Alltrim(Str(nract))+[ or to_number(nrord)=]+Alltrim(Str(nract))+[)] + *!* pcorder=[dataact,nract] + *!* gencursor("poact","acn2",pcselect,pcfiltru,pcschema,pcorder,llAfisare) + *!* poact.ca_baza1.afisare() + + *!* *!* Select acn2 + *!* *!* Sum suma To totsum + *!* *!* If Thisform.LABEL10.Caption#"REGISTRUL VANZARI" + *!* *!* If totsum#m.achitat + *!* *!* Do mesaj With "Totalul sumelor din notele contabile este diferit ","de suma achitata. Trebuie redeschisa luna!" + *!* *!* Endif + *!* *!* Endif + *!* Select acn2 + *!* TITLU="INCASARI LA FACTURA NR. "+Alltrim(Str(nract)) + *!* ORC=Createobj("AFincpl") + *!* ORC.Caption="INCASARI LA FACTURA NR. "+Alltrim(Str(nract)) + *!* ORC.LABELTITLU.Caption="INCASARI LA FACTURA NR. "+Alltrim(Str(nract)) + *!* Endcase + + *!* ORC.ali="acn2" + *!* ORC.grid1.column6.Visible=.T. + *!* ORC.Show(1) + + *!* TITLU="" + *!* Thisform.AlwaysOnTop=.T. + *!* Thisform.but_teRMIN1.Enabled=.T. + *!* If Used('acn2') + *!* Use In acn2 + *!* Endif + *!* Release ORC,poact + ENDPROC + + PROCEDURE Init + DODEFAULT() + PRIVATE pntotctva,pnneimpozab,pntotftvam,pntvam,pntotftvai,pntvai + STORE 0.00 TO pntotctva,pnneimpozab,pntotftvam,pntvam,pntotftvai,pntvai + IF luna_inchisa + thisform.but_modifica1.Visible=.F. + thisform._shape2.Left=thisform._shape2.Left+thisform.but_modifica1.Width + thisform._shape2.width=thisform._shape2.width-thisform.but_modifica1.Width + ENDIF + thisform.Refresh + ENDPROC + + PROCEDURE istoric + *!* Private pcselect,pcfiltru,pcschema,pcorder,llAfisare,poacn1,poacn2 + *!* Store "" To poacn1,poacn2 + *!* Store .F. To llAfisare + *!* lunanan=gnAn*12+gnLuna + *!* CN='411 ' + *!* Thisform.but_TERMIN1.Enabled=.F. + *!* Thisform.AlwaysOnTop=.F. + + *!* *!* Do NRORD With "ACTan" + *!* Select actcv + *!* Do Case + *!* Case Inlist(Upper(Thisform.lb_titlu_alb_b121.Caption),"REGISTRUL CUMPARARI","SITUATIE FACTURI CUMPARARI")&&cumparari + *!* &&deb + *!* pcschema=[''] + *!* pcselect=['select * from ]+gcS+[.vact where 2=2'] + *!* pcfiltru=[partD=']+Alltrim(nume)+[' and SUBSTR(scd,1,3)='401'] + *!* pcorder=[dataact,nract] + *!* gencursor('poacn1','ACN1',pcselect,pcfiltru,pcschema,pcorder,llAfisare) + *!* poacn1.ca_baza1.afisare() + + *!* &&cred + *!* pcschema=[''] + *!* pcselect=['select nume,dataact,nract,dataireg,totctva as suma,achitat,achitat as pereche,fdoc,fdoc as scc,fdoc as scd,'+]+; + *!* ['fdoc as partC,fdoc as explicatia from ]+gcS+[.vcump where 2=2'] + *!* pcfiltru=[nume=']+Alltrim(nume)+[' and extract(year from dataact)*12+extract(month from dataact)<=]+Alltrim(Str(lunanan)) + *!* pcorder=[dataact,nract] + *!* gencursor('poacn2','ACN2',pcselect,pcfiltru,pcschema,pcorder,llAfisare) + *!* poacn2.ca_baza1.afisare() + + *!* ORC=Createobj("AFDEBsiCREDA") + *!* ORC.Caption="PERECHI - "+Alltrim(nume) + *!* ORC.grid2.SetAll("DynamicForeColor", ; + *!* "IIF(abs(suma-achitat)<1000,RGB(0,0,0),iif(suma0 + Private pcselect,pcfiltru,pcschema,pcorder,poact,pcnume + Store "" To poact + Thisform.but_TERMIN1.Enabled=.F. + Thisform.AlwaysOnTop=.F. + lunanan=gnLuna+gnAn*12 + Select actcv + pcnume=nume + pcschema=['DATAIREG D,DATAACT D,nract N(20),PARTD C(50),PARTC C(50),EXPLICATIA C(100),'+]+; + ['SUMA N(19,2),SCD C(4),SCC C(4),FDOC C(30),LUNA N(2),AN N(4),COD N(20)'] + pcselect=['select dataireg,dataact,nract,partd,partc,explicatia,suma,scd,scc,fdoc,luna,an,cod '+]+; + ['from ]+gcS+[.vact where 2=2'] + pcorder=[dataireg] + pcfiltru=[] + llAfisare=.F. + If Inlist(Thisform.lb_titlu_alb_b121.Caption,"REGISTRUL CUMPARARI") + pcfiltru=[luna=]+Alltrim(Str(gnLuna))+[ and an=]+Alltrim(Str(gnAn))+; + [ and extract(year from dataireg)*12+extract(month from dataireg)<=]+Alltrim(Str(lunanan))+; + [ and cod=]+Alltrim(Str(cod))+[ and nract=]+Alltrim(Str(nract))+; + [ and partC=']+Alltrim(nume)+[' and dataact=to_date(']+Dtos(dataact)+[','YYYY-MM-DD')] + Else + pcfiltru=[extract(year from dataireg)*12+extract(month from dataireg)<=]+Alltrim(Str(lunanan))+; + [ and cod=]+Alltrim(Str(cod))+[ and nract=]+Alltrim(Str(nract))+; + [ and partD=']+Alltrim(nume)+[' and dataact=to_date(']+Dtos(dataact)+[','YYYY-MM-DD')] + ENDIF + gencursor('poact','ACN1',pcselect,pcfiltru,pcschema,pcorder,llAfisare) + poact.ca_baza1.afisare() + Go Top + ORC=Createobj("frm_debcred") + *!* ORC.alias='ACN1' + orc.Lb_titlu_alb_b121.caption="Nota contabila "+ALLTRIM(pcnume) + ORC.lb_titlu1.Caption="NOTA CONTABILA" + orc._grdbase1.removeobject("cUtil") + orc._grdbase1.removeobject("cDataOra") + ORC.Show(1) + Release poact,ORC + Thisform.but_TERMIN1.Enabled=.T. + Thisform.AlwaysOnTop=.T. + Else + aMessagebox("Nu aveti date in cautare!",48,"Atentie") + Thisform.ck_nract.SetFocus() + Endif + ENDPROC + + PROCEDURE plati + *!* Private pcselect,pcfiltru,pcschema,pcorder,llAfisare,poact + *!* Store "" To poact + *!* Store .F. To llAfisare + *!* Select actcv + *!* pcschema=['ID_ACT N(20),LUNA N(2),AN N(4),COD N(20),DATAIREG D,NRACT N(14),DATAACT D,'+]+; + *!* ['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+; + *!* ['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+; + *!* ['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+; + *!* ['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+; + *!* ['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+; + *!* ['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+; + *!* ['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)'] + *!* pcschema=[''] + *!* pcselect=['select * from ]+gcS+[.vact where 2=2'] + *!* pcfiltru=[luna=]+Alltrim(Str(gnLuna))+[ and an=]+Alltrim(Str(gnAn))+; + *!* [ and nume=']+Alltrim(nume)+[' and perecheC=]+Alltrim(Str(nract)) + *!* pcorder=[] + *!* gencursor("poact","act",pcselect,pcfiltru,pcschema,pcorder,llAfisare) + *!* poact.ca_baza1.afisare() + *!* Select act + *!* Do NRORD With "ACT" + *!* Go Top + *!* Thisform.but_termin1.Enabled=.F. + *!* ORC=Createobj("frm_debcred") + *!* orc.lb_titlu_alb_b121.caption="Plati" + *!* orc.lb_titlu1.caption="PLATI" + *!* ORC.Show(1) + *!* Thisform.but_termin1.Enabled=.T. + *!* Release ORC,poact + ENDPROC + + PROCEDURE cmd_istoric.Click + thisform.istoric() + ENDPROC + + PROCEDURE cmd_notacontab.Click + thisform.notacontab() + ENDPROC + + PROCEDURE _grdbase1.Column1.Text1.DblClick + Thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column10.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column11.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column2.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column3.Header1.Init + this.ForeColor =IIF(!EMPTY(this.tag),RGB(0,0,255),RGB(0,0,0)) + ENDPROC + + PROCEDURE _grdbase1.Column3.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column4.Header1.Init + this.ForeColor =IIF(!EMPTY(this.tag),RGB(0,0,255),RGB(0,0,0)) + ENDPROC + + PROCEDURE _grdbase1.Column4.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column5.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column6.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column7.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column8.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column9.Text1.DblClick + thisform.butdrept() + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_regcump2007 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_excel1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_reface1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFel_document.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFel_document.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cDataact.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cDataact.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cNract.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cNract.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cDenumire.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cDenumire.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCod_fiscal.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCod_fiscal.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTotctva.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTotctva.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO19BCB.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO19BCB.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo19bct.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo19bct.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO19BVB.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO19BVB.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO19BVT.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO19BVT.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO19BFB.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO19BFB.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO19BFT.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO19BFT.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO09BCB.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO09BCB.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO09BCT.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO09BCT.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO09BVB.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO09BVB.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO09BVT.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO09BVT.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO09BFB.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO09BFB.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO09BFT.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO09BFT.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cROSCN.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cROSCN.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFO19BCB.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFO19BCB.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFO19BCT.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFO19BCT.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFO19BVB.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFO19BVB.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFO19BVT.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFO19BVT.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFO19BFB.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFO19BFB.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFO19BFT.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFO19BFT.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFO09BCB.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFO09BCB.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFO09BCT.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFO09BCT.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFO09BVB.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFO09BVB.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFO09BVT.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFO09BVT.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFO09BFB.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFO09BFB.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFO09BFT.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFO09BFT.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFOSCN.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFOSCN.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCEBCB.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCEBCB.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCEBCT.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCEBCT.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCEBVB.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCEBVB.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCEBVT.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCEBVT.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCEBVSC.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCEBVSC.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCEBVN.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCEBVN.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCEBFB.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCEBFB.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCEBFT.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCEBFT.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCEBFSC.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCEBFSC.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCEBFN.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCEBFN.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTI19BCB.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTI19BCB.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTI19BCT.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTI19BCT.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTI19BVB.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTI19BVB.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTI19BVT.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTI19BVT.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTI19BFB.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTI19BFB.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTI19BFT.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTI19BFT.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTI09BVB.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTI09BVB.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTI09BVT.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTI09BVT.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTI09BFB.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTI09BFB.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTI09BFT.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTI09BFT.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cSerie_act.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cSerie_act.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cSucursala.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cSucursala.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cro05b.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cro05b.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cro05t.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cro05t.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="oMenuShortcut" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdfooter1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cbo_tip_jurnal_cump" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_verifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_start_criterii1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_reset_criterii1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_shortcuts1" UniqueID="" Timestamp="" /> + + * + *m: butdrept + *m: incaspl + *m: ist_deb_cred + *m: notacontab + *p: nlistitemid + *p: nlistitemiddef + * + + * + BorderStyle = 1 + cgridsortlist = _grdbase1 + DoCreate = .T. + filtru_pretty = + Height = 513 + Name = "frm_regcump2007" + nlistitemid = 1 + nlistitemiddef = 2 + Width = 795 + WindowState = 2 + _shape1.Anchor = 10 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 795 + _shape1.ZOrderSet = 2 + _shape2.Anchor = 8 + _shape2.Height = 29 + _shape2.Left = 672 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 121 + _shape2.ZOrderSet = 3 + Lb_titlu_alb_b121.Caption = "REGISTRUL CUMPARARI" + Lb_titlu_alb_b121.FontBold = .T. + Lb_titlu_alb_b121.Left = 6 + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 15 + Lb_titlu_alb_b121.Top = 1 + Lb_titlu_alb_b121.ZOrderSet = 4 + BUT_TERMIN1.Anchor = 8 + BUT_TERMIN1.Left = 765 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 10 + BUT_TERMIN1.Top = 1 + BUT_TERMIN1.ZOrderSet = 5 + Gridsort1.Left = 5 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 42 + * + + ADD OBJECT '_grdbase1' AS _grdbase WITH ; + Anchor = 15, ; + ColumnCount = 56, ; + DeleteMark = .F., ; + FontName = "Arial Narrow", ; + GridLineColor = 192,192,192, ; + HeaderHeight = 52, ; + Height = 408, ; + HighlightStyle = 1, ; + Left = 12, ; + Name = "_grdbase1", ; + Panel = 1, ; + RecordSource = "actcv", ; + TabIndex = 9, ; + Top = 72, ; + Width = 768, ; + ZOrderSet = 9, ; + Column1.ControlSource = "fel_document", ; + Column1.FontName = "Arial Narrow", ; + Column1.Name = "cFel_document", ; + Column1.Width = 66, ; + Column2.ControlSource = "dataact", ; + Column2.FontName = "Arial Narrow", ; + Column2.Name = "cDataact", ; + Column2.Width = 53, ; + Column3.ColumnOrder = 4, ; + Column3.ControlSource = "nract", ; + Column3.FontName = "Arial Narrow", ; + Column3.Name = "cNract", ; + Column3.Width = 67, ; + Column4.ColumnOrder = 5, ; + Column4.ControlSource = "denumire", ; + Column4.FontName = "Arial Narrow", ; + Column4.Name = "cDenumire", ; + Column4.Width = 148, ; + Column5.ColumnOrder = 6, ; + Column5.ControlSource = "cod_fiscal", ; + Column5.FontName = "Arial Narrow", ; + Column5.Name = "cCod_fiscal", ; + Column5.Width = 80, ; + Column6.ColumnOrder = 7, ; + Column6.ControlSource = "totctva", ; + Column6.FontName = "Arial Narrow", ; + Column6.InputMask = (get_mask(12,gnPA)), ; + Column6.Name = "cTotctva", ; + Column7.ColumnOrder = 8, ; + Column7.ControlSource = "RO19BCB", ; + Column7.FontName = "Arial Narrow", ; + Column7.InputMask = (get_mask(12,gnPA)), ; + Column7.Name = "cRO19BCB", ; + Column7.Width = 66, ; + Column8.ColumnOrder = 9, ; + Column8.ControlSource = "RO19BCT", ; + Column8.FontName = "Arial Narrow", ; + Column8.InputMask = (get_mask(12,gnPA)), ; + Column8.Name = "cRo19bct", ; + Column8.Width = 67, ; + Column9.ColumnOrder = 10, ; + Column9.ControlSource = "RO19BVB", ; + Column9.FontName = "Arial Narrow", ; + Column9.InputMask = (get_mask(12,gnPA)), ; + Column9.Name = "cRO19BVB", ; + Column9.Width = 74, ; + Column10.ColumnOrder = 11, ; + Column10.ControlSource = "RO19BVT", ; + Column10.FontName = "Arial Narrow", ; + Column10.InputMask = (get_mask(12,gnPA)), ; + Column10.Name = "cRO19BVT", ; + Column10.Width = 67, ; + Column11.ColumnOrder = 12, ; + Column11.ControlSource = "RO19BFB", ; + Column11.FontName = "Arial Narrow", ; + Column11.InputMask = (get_mask(12,gnPA)), ; + Column11.Name = "cRO19BFB", ; + Column11.Width = 81, ; + Column12.ColumnOrder = 13, ; + Column12.ControlSource = "RO19BFT", ; + Column12.FontName = "Arial Narrow", ; + Column12.InputMask = (get_mask(12,gnPA)), ; + Column12.Name = "cRO19BFT", ; + Column12.Width = 78, ; + Column13.ColumnOrder = 14, ; + Column13.ControlSource = "RO09BCB", ; + Column13.FontName = "Arial Narrow", ; + Column13.InputMask = (get_mask(12,gnPa)), ; + Column13.Name = "cRO09BCB", ; + Column13.Width = 66, ; + Column14.ColumnOrder = 15, ; + Column14.ControlSource = "RO09BCT", ; + Column14.FontName = "Arial Narrow", ; + Column14.InputMask = (get_mask(12,gnPa)), ; + Column14.Name = "cRO09BCT", ; + Column14.Width = 65, ; + Column15.ColumnOrder = 16, ; + Column15.ControlSource = "RO09BVB", ; + Column15.FontName = "Arial Narrow", ; + Column15.InputMask = (get_mask(12,gnPa)), ; + Column15.Name = "cRO09BVB", ; + Column15.Width = 73, ; + Column16.ColumnOrder = 17, ; + Column16.ControlSource = "RO09BVT", ; + Column16.FontName = "Arial Narrow", ; + Column16.InputMask = (get_mask(12,gnPa)), ; + Column16.Name = "cRO09BVT", ; + Column16.Width = 69, ; + Column17.ColumnOrder = 18, ; + Column17.ControlSource = "RO09BFB", ; + Column17.FontName = "Arial Narrow", ; + Column17.InputMask = (get_mask(12,gnPa)), ; + Column17.Name = "cRO09BFB", ; + Column17.Width = 76, ; + Column18.ColumnOrder = 19, ; + Column18.ControlSource = "RO09BFT", ; + Column18.FontName = "Arial Narrow", ; + Column18.InputMask = (get_mask(12,gnPa)), ; + Column18.Name = "cRO09BFT", ; + Column18.Width = 79, ; + Column19.ColumnOrder = 20, ; + Column19.ControlSource = "ROSCN", ; + Column19.FontName = "Arial Narrow", ; + Column19.InputMask = (get_mask(12,gnPa)), ; + Column19.Name = "cROSCN", ; + Column20.ColumnOrder = 21, ; + Column20.ControlSource = "FO19BCB", ; + Column20.FontName = "Arial Narrow", ; + Column20.InputMask = (get_mask(12,gnPa)), ; + Column20.Name = "cFO19BCB", ; + Column20.Width = 71, ; + Column21.ColumnOrder = 22, ; + Column21.ControlSource = "FO19BCT", ; + Column21.FontName = "Arial Narrow", ; + Column21.InputMask = (get_mask(12,gnPa)), ; + Column21.Name = "cFO19BCT", ; + Column21.Width = 80, ; + Column22.ColumnOrder = 23, ; + Column22.ControlSource = "FO19BVB", ; + Column22.FontName = "Arial Narrow", ; + Column22.InputMask = (get_mask(12,gnPa)), ; + Column22.Name = "cFO19BVB", ; + Column23.ColumnOrder = 24, ; + Column23.ControlSource = "FO19BVT", ; + Column23.FontName = "Arial Narrow", ; + Column23.InputMask = (get_mask(12,gnPa)), ; + Column23.Name = "cFO19BVT", ; + Column24.ColumnOrder = 25, ; + Column24.ControlSource = "FO19BFB", ; + Column24.FontName = "Arial Narrow", ; + Column24.InputMask = (get_mask(12,gnPa)), ; + Column24.Name = "cFO19BFB", ; + Column25.ColumnOrder = 26, ; + Column25.ControlSource = "FO19BFT", ; + Column25.FontName = "Arial Narrow", ; + Column25.InputMask = (get_mask(12,gnPa)), ; + Column25.Name = "cFO19BFT", ; + Column26.ColumnOrder = 27, ; + Column26.ControlSource = "FO09BCB", ; + Column26.FontName = "Arial Narrow", ; + Column26.InputMask = (get_mask(12,gnPa)), ; + Column26.Name = "cFO09BCB", ; + Column26.Width = 82, ; + Column27.ColumnOrder = 28, ; + Column27.ControlSource = "FO09BCT", ; + Column27.FontName = "Arial Narrow", ; + Column27.InputMask = (get_mask(12,gnPa)), ; + Column27.Name = "cFO09BCT", ; + Column28.ColumnOrder = 29, ; + Column28.ControlSource = "FO09BVB", ; + Column28.FontName = "Arial Narrow", ; + Column28.InputMask = (get_mask(12,gnPa)), ; + Column28.Name = "cFO09BVB", ; + Column29.ColumnOrder = 30, ; + Column29.ControlSource = "FO09BVT", ; + Column29.FontName = "Arial Narrow", ; + Column29.InputMask = (get_mask(12,gnPa)), ; + Column29.Name = "cFO09BVT", ; + Column30.ColumnOrder = 31, ; + Column30.ControlSource = "FO09BFB", ; + Column30.FontName = "Arial Narrow", ; + Column30.InputMask = (get_mask(12,gnPa)), ; + Column30.Name = "cFO09BFB", ; + Column31.ColumnOrder = 32, ; + Column31.ControlSource = "FO09BFT", ; + Column31.FontName = "Arial Narrow", ; + Column31.InputMask = (get_mask(12,gnPa)), ; + Column31.Name = "cFO09BFT", ; + Column32.ColumnOrder = 35, ; + Column32.ControlSource = "FOSCN", ; + Column32.FontName = "Arial Narrow", ; + Column32.InputMask = (get_mask(12,gnPa)), ; + Column32.Name = "cFOSCN", ; + Column32.Width = 80, ; + Column33.ColumnOrder = 36, ; + Column33.ControlSource = "CEBCB", ; + Column33.FontName = "Arial Narrow", ; + Column33.InputMask = (get_mask(12,gnPa)), ; + Column33.Name = "cCEBCB", ; + Column33.Width = 62, ; + Column34.ColumnOrder = 37, ; + Column34.ControlSource = "CEBCT", ; + Column34.FontName = "Arial Narrow", ; + Column34.InputMask = (get_mask(12,gnPa)), ; + Column34.Name = "cCEBCT", ; + Column34.Width = 67, ; + Column35.ColumnOrder = 38, ; + Column35.ControlSource = "CEBVB", ; + Column35.FontName = "Arial Narrow", ; + Column35.InputMask = (get_mask(12,gnPa)), ; + Column35.Name = "cCEBVB", ; + Column36.ColumnOrder = 39, ; + Column36.ControlSource = "CEBVT", ; + Column36.FontName = "Arial Narrow", ; + Column36.InputMask = (get_mask(12,gnPa)), ; + Column36.Name = "cCEBVT", ; + Column37.ColumnOrder = 40, ; + Column37.ControlSource = "CEBVSC", ; + Column37.FontName = "Arial Narrow", ; + Column37.InputMask = (get_mask(12,gnPa)), ; + Column37.Name = "cCEBVSC", ; + Column38.ColumnOrder = 41, ; + Column38.ControlSource = "CEBVN", ; + Column38.FontName = "Arial Narrow", ; + Column38.InputMask = (get_mask(12,gnPa)), ; + Column38.Name = "cCEBVN", ; + Column39.ColumnOrder = 42, ; + Column39.ControlSource = "CEBFB", ; + Column39.FontName = "Arial Narrow", ; + Column39.InputMask = (get_mask(12,gnPa)), ; + Column39.Name = "cCEBFB", ; + Column39.Width = 83, ; + Column40.ColumnOrder = 43, ; + Column40.ControlSource = "CEBFT", ; + Column40.FontName = "Arial Narrow", ; + Column40.InputMask = (get_mask(12,gnPa)), ; + Column40.Name = "cCEBFT", ; + Column40.Width = 79, ; + Column41.ColumnOrder = 44, ; + Column41.ControlSource = "CEBFSC", ; + Column41.FontName = "Arial Narrow", ; + Column41.InputMask = (get_mask(12,gnPa)), ; + Column41.Name = "cCEBFSC", ; + Column41.Width = 81, ; + Column42.ColumnOrder = 45, ; + Column42.ControlSource = "CEBFN", ; + Column42.FontName = "Arial Narrow", ; + Column42.InputMask = (get_mask(12,gnPa)), ; + Column42.Name = "cCEBFN", ; + Column42.Width = 83, ; + Column43.ColumnOrder = 46, ; + Column43.ControlSource = "TI19BCB", ; + Column43.FontName = "Arial Narrow", ; + Column43.InputMask = (get_mask(12,gnPa)), ; + Column43.Name = "cTI19BCB", ; + Column44.ColumnOrder = 47, ; + Column44.ControlSource = "TI19BCT", ; + Column44.FontName = "Arial Narrow", ; + Column44.InputMask = (get_mask(12,gnPa)), ; + Column44.Name = "cTI19BCT", ; + Column45.ColumnOrder = 48, ; + Column45.ControlSource = "TI19BVB", ; + Column45.FontName = "Arial Narrow", ; + Column45.InputMask = (get_mask(12,gnPa)), ; + Column45.Name = "cTI19BVB", ; + Column45.Width = 83, ; + Column46.ColumnOrder = 49, ; + Column46.ControlSource = "TI19BVT", ; + Column46.FontName = "Arial Narrow", ; + Column46.InputMask = (get_mask(12,gnPa)), ; + Column46.Name = "cTI19BVT", ; + Column46.Width = 79, ; + Column47.ColumnOrder = 50, ; + Column47.ControlSource = "TI19BFB", ; + Column47.FontName = "Arial Narrow", ; + Column47.InputMask = (get_mask(12,gnPa)), ; + Column47.Name = "cTI19BFB", ; + Column47.Width = 98, ; + Column48.ColumnOrder = 51, ; + Column48.ControlSource = "TI19BFT", ; + Column48.FontName = "Arial Narrow", ; + Column48.InputMask = (get_mask(12,gnPa)), ; + Column48.Name = "cTI19BFT", ; + Column48.Width = 95, ; + Column49.ColumnOrder = 52, ; + Column49.ControlSource = "TI09BVB", ; + Column49.FontName = "Arial Narrow", ; + Column49.InputMask = (get_mask(12,gnPa)), ; + Column49.Name = "cTI09BVB", ; + Column49.Width = 82, ; + Column50.ColumnOrder = 53, ; + Column50.ControlSource = "TI09BVT", ; + Column50.FontName = "Arial Narrow", ; + Column50.InputMask = (get_mask(12,gnPa)), ; + Column50.Name = "cTI09BVT", ; + Column50.Width = 82, ; + Column51.ColumnOrder = 54, ; + Column51.ControlSource = "TI09BFB", ; + Column51.FontName = "Arial Narrow", ; + Column51.InputMask = (get_mask(12,gnPa)), ; + Column51.Name = "cTI09BFB", ; + Column51.Width = 100, ; + Column52.ColumnOrder = 55, ; + Column52.ControlSource = "TI09BFT", ; + Column52.FontName = "Arial Narrow", ; + Column52.InputMask = (get_mask(12,gnPa)), ; + Column52.Name = "cTI09BFT", ; + Column52.Width = 90, ; + Column53.ColumnOrder = 3, ; + Column53.ControlSource = "serie_act", ; + Column53.FontName = "Arial Narrow", ; + Column53.Name = "cSerie_act", ; + Column53.Width = 41, ; + Column54.ColumnOrder = 56, ; + Column54.ControlSource = "sucursala", ; + Column54.FontName = "Arial Narrow", ; + Column54.Name = "cSucursala", ; + Column55.ColumnOrder = 33, ; + Column55.ControlSource = "ro05b", ; + Column55.FontName = "Arial Narrow", ; + Column55.InputMask = (get_mask(12,gnPa)), ; + Column55.Name = "cro05b", ; + Column55.Width = 75, ; + Column56.ColumnOrder = 34, ; + Column56.ControlSource = "ro05t", ; + Column56.FontName = "Arial Narrow", ; + Column56.InputMask = (get_mask(12,gnPa)), ; + Column56.Name = "cro05t", ; + Column56.Width = 75 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_grdbase1.cCEBCB.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Bunuri de capital din UE =Baza=", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cCEBCB.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cCEBCT.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Bunuri de capital din UE =TVA=", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cCEBCT.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cCEBFB.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Bunuri ptr. nevoile firmei din UE =Baza=", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cCEBFB.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cCEBFN.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Bunuri ptr. nevoile firmei din UE =Neimpozabile=", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cCEBFN.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cCEBFSC.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Bunuri ptr. nevoile firmei din UE =Scutite=", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cCEBFSC.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cCEBFT.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Bunuri ptr. nevoile firmei din UE =TVA=", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cCEBFT.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cCEBVB.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Bunuri dest. revanz. din UE =Baza=", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cCEBVB.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cCEBVN.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Bunuri dest. revanz. din UE =Neimpozabile=", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cCEBVN.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cCEBVSC.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Bunuri dest. revanz. din UE =Scutite=", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cCEBVSC.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cCEBVT.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Bunuri dest. revanz. din UE =TVA=", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cCEBVT.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cCod_fiscal.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "C.I.F./C.N.P.", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cCod_fiscal.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cDataact.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data act", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cDataact.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cDenumire.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nume", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cDenumire.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cFel_document.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Fel doc.", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cFel_document.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cFO09BCB.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Bunuri de capital din import =Baza 9%=", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cFO09BCB.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cFO09BCT.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Bunuri de capital din import =TVA 9%=", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cFO09BCT.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cFO09BFB.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Altele ptr. nevoile firmei din import =Baza 9%=", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cFO09BFB.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cFO09BFT.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Altele ptr. nevoile firmei din import =TVA 9%=", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cFO09BFT.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cFO09BVB.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Bunuri dest.vanz. din import =Baza 9%=", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cFO09BVB.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cFO09BVT.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Bunuri dest.vanz. din import =TVA 9%=", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cFO09BVT.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cFO19BCB.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Bunuri de capital din import =Baza 19%=", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cFO19BCB.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cFO19BCT.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Bunuri de capital din import =TVA 19%=", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cFO19BCT.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cFO19BFB.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Altele ptr. nevoile firmei din import =Baza 19%=", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cFO19BFB.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cFO19BFT.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Altele ptr. nevoile firmei din import =TVA 19%=", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cFO19BFT.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cFO19BVB.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Bunuri dest. vanz. din import =Baza 19%=", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cFO19BVB.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cFO19BVT.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Bunuri dest. vanz. din import =TVA 19%=", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cFO19BVT.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cFOSCN.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Ach. de bunuri din import scutite sau neimpozab.", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cFOSCN.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cNract.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. act", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cNract.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cro05b.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxabile la intern = Baza 5%=", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cro05b.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cro05t.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxabile la intern =TVA 5%=", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cro05t.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRO09BCB.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Bunuri de capital din RO =Baza 9%=", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRO09BCB.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRO09BCT.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Bunuri de capital din RO =TVA 9%=", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRO09BCT.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRO09BFB.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Altele ptr.nevoile firmei din RO =Baza 9%=", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRO09BFB.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRO09BFT.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Altele ptr.nevoile firmei din RO =TVA 9%=", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRO09BFT.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRO09BVB.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Bunuri destinate vanz. din RO =Baza 9%=", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRO09BVB.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRO09BVT.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Bunuri destinate vanz. din RO =TVA 9%=", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRO09BVT.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRO19BCB.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Bunuri de capital din RO =Baza 19%=", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRO19BCB.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRo19bct.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Bunuri de capital din RO =TVA 19%=", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRo19bct.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRO19BFB.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Altele ptr.nevoile firmei din RO =Baza 19%=", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRO19BFB.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRO19BFT.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Altele ptr.nevoile firmei din RO =TVA 19%=", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRO19BFT.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRO19BVB.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Bunuri dest. vanz. din RO =Baza 19%=", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRO19BVB.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRO19BVT.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Bunuri dest. vanz. din RO =TVA 19%=", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRO19BVT.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cROSCN.Header1' AS header WITH ; + Alignment = 2, ; + BackColor = 212,208,200, ; + Caption = "Ach. de bunuri din RO scutite sau neimpozab.", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cROSCN.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cSerie_act.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Serie act", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cSerie_act.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cSucursala.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sucursala", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cSucursala.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cTI09BFB.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Altele ptr. nevoile firmei - Taxare inversa =Baza 9%=", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cTI09BFB.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cTI09BFT.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Altele ptr. nevoile firmei - Taxare inversa =TVA 9%=", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cTI09BFT.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cTI09BVB.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Bunuri dest. vanz. - Taxare inversa =Baza 9%=", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cTI09BVB.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cTI09BVT.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Bunuri dest. vanz. - Taxare inversa =TVA 9%=", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cTI09BVT.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cTI19BCB.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Bunuri de capital - Taxare inversa =Baza 19%=", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cTI19BCB.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cTI19BCT.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Bunuri de capital - Taxare inversa =TVA 19%=", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cTI19BCT.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cTI19BFB.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Altele ptr. nevoile firmei - Taxare inversa =Baza 19%=", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cTI19BFB.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cTI19BFT.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Altele ptr. nevoile firmei - Taxare inversa =TVA 19%=", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cTI19BFT.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cTI19BVB.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Bunuri dest. vanz. - Taxare inversa =Baza 19%=", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cTI19BVB.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cTI19BVT.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Bunuri dest. vanz. - Taxare inversa =TVA 19%=", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cTI19BVT.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cTotctva.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Total cu TVA", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cTotctva.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdfooter1' AS _grdfooter WITH ; + ccolwithlabel = cFel_document, ; + csourcegrid = _grdbase1, ; + csumcolumns = cTotctva,cRO19BCB,cRo19bct,cRO19BVB,cRO19BVT,cRO19BFB,cRO19BFT,cRO09BCB,cRO09BCT,cRO09BVB,cRO09BVT,cRO09BFB,cRO09BFT,cRO05B,cRO05T,cROSCN,cFO19BCB,cFO19BCT,cFO19BVB,cFO19BVT,cFO19BFB,cFO19BFT,cFO09BCB,cFO09BCT,cFO09BVB,cFO09BVT,cFO09BFB,cFO09BFT,cro05b,cro05t,cFOSCN,cCEBCB,cCEBCT,cCEBVB,cCEBVT,cCEBVSC,cCEBVN,cCEBFB,cCEBFT,cCEBFSC,cCEBFN,cTI19BCB,cTI19BCT,cTI19BVB,cTI19BVT,cTI19BFB,cTI19BFT,cTI09BVB,cTI09BVT,cTI09BFB,cTI09BFT, ; + ctotallabelexpression = "TOTAL", ; + Height = 25, ; + Left = 12, ; + Name = "_grdfooter1", ; + TabIndex = 17, ; + Top = 468, ; + Width = 768 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'But_excel1' AS but_excel WITH ; + Anchor = 8, ; + Left = 702, ; + Name = "But_excel1", ; + TabIndex = 12, ; + Top = 1, ; + ZOrderSet = 6 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_listare1' AS but_listare WITH ; + Anchor = 8, ; + Left = 734, ; + Name = "But_listare1", ; + TabIndex = 11, ; + Top = 1, ; + Visible = .T., ; + ZOrderSet = 7 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_reface1' AS but_reface WITH ; + Anchor = 8, ; + Comment = "*:OnResize=RT", ; + Left = 672, ; + Name = "But_reface1", ; + TabIndex = 13, ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_reset_criterii1' AS but_reset_criterii WITH ; + Anchor = 9, ; + Left = 583, ; + Name = "But_reset_criterii1", ; + Top = 1, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\ocriterii.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_start_criterii1' AS but_start_criterii WITH ; + Anchor = 9, ; + Left = 612, ; + Name = "But_start_criterii1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\ocriterii.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_verifica1' AS but_verifica WITH ; + Anchor = 8, ; + Left = 642, ; + Name = "But_verifica1", ; + TabIndex = 14, ; + ToolTipText = "Validare coduri fiscale RO", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'cbo_tip_jurnal_cump' AS _combobox WITH ; + Anchor = 3, ; + Height = 24, ; + Left = 12, ; + Name = "cbo_tip_jurnal_cump", ; + RowSource = "Complet,Achizitii din tara,Achizitii din import,Achizitii intracomunitare,Taxare inversa", ; + RowSourceType = 1, ; + TabIndex = 18, ; + ToolTipText = 'Apasati "Cauta" dupa ce alegeti un tip de vizualizare', ; + Top = 37, ; + Width = 254 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" /> + + ADD OBJECT 'Gridextra1' AS gridextra WITH ; + gridexpression = Thisform._grdbase1, ; + Height = 17, ; + Left = 345, ; + Name = "Gridextra1", ; + Top = 45, ; + Width = 19 + *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> + + ADD OBJECT 'Lb_shortcuts1' AS lb_shortcuts WITH ; + Caption = "CTRL+F = Terminare; ESC = Renuntare; CTRL+Q = Cautare; CTRL+T = Resetare", ; + Left = 6, ; + Name = "Lb_shortcuts1", ; + Top = 16 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'oMenuShortcut' AS menulib WITH ; + Left = 216, ; + Name = "oMenuShortcut", ; + TabIndex = 16, ; + Top = 7, ; + ZOrderSet = 10 + *< END OBJECT: ClassLib="..\comun\clase\utility.vcx" BaseClass="container" /> + + PROCEDURE actualizeaza_grid1 + LPARAMETERS lcFiltru + + LOCAL lnOptiune + lnOptiune = THISFORM.cbo_tip_jurnal_cump.LISTITEMID + + IF EMPTY(lcFiltru) + lcFiltru = pocump.ca_baza1.cfiltru + ENDIF + + THISFORM.MOUSEPOINTER= 11 + + THISFORM.LOCKSCREEN=.T. + save_grid_tag(THISFORM._grdbase1) + pocump.ca_baza1.cfiltru=lcFiltru + pocump.ca_baza1.afisare() + restore_grid_tag(THISFORM._grdbase1) + DO CASE + CASE lnOptiune = 1 && REGISTRUL CUMPARARI + THIS._grdbase1.ctotctva.CONTROLSOURCE = "TOTCTVA" + + CASE lnOptiune = 2 && REGISTRUL CUMPARARI - DIN TARA + THIS._grdbase1.ctotctva.CONTROLSOURCE = "RO19BCB + RO19BCT + RO19BVB + RO19BVT + RO19BFB + RO19BFT + RO09BCB + " + ; + "RO09BCT + RO09BVB + RO09BVT + RO09BFB + RO09BFT + RO05B + RO05T + ROSCN" + + CASE lnOptiune = 3 && REGISTRUL CUMPARARI - DIN IMPORT + THIS._grdbase1.ctotctva.CONTROLSOURCE = "FO19BCB + FO19BCT + FO19BVB + FO19BVT + FO19BFB + FO19BFT + FO09BCB + FO09BCT + " + ; + "FO09BVB + FO09BVT + FO09BFB + FO09BFT + FOSCN" + + CASE lnOptiune = 4 && REGISTRUL CUMPARARI - INTRACOMUNITARE + THIS._grdbase1.ctotctva.CONTROLSOURCE = "CEBCB + CEBCT + CEBVB + CEBVT + CEBVSC + CEBVN + CEBFB + CEBFT + CEBFSC + CEBFN" + + CASE lnOptiune = 5 && REGISTRUL CUMPARARI - TAXARE INVERSA + THIS._grdbase1.ctotctva.CONTROLSOURCE = "TI19BCB + TI19BCT + TI19BVB + TI19BVT + TI19BFB + TI19BFT + TI09BVB + TI09BVT + TI09BFB + TI09BFT" + ENDCASE + THISFORM._grdfooter1.calcTotal + + THISFORM.LOCKSCREEN=.F. + THISFORM.MOUSEPOINTER= 0 + + ENDPROC + + PROCEDURE butdrept + *!* 16.04.2007 + x = xmenu("\= 1 OR ] + ; + *!* [ABS(RO19BCT) NOT BETWEEN ROUND(0.188*ABS(RO19BCB),?gnPc) AND ROUND(0.193*ABS(RO19BCB),?gnPc) OR ] + ; + *!* [ABS(RO19BVT) NOT BETWEEN ROUND(0.188*ABS(RO19BVB),?gnPc) AND ROUND(0.193*ABS(RO19BVB),?gnPc) OR ] + ; + *!* [ABS(RO19BFT) NOT BETWEEN ROUND(0.188*ABS(RO19BFB),?gnPc) AND ROUND(0.193*ABS(RO19BFB),?gnPc) OR ] + ; + *!* [ABS(RO09BCT) NOT BETWEEN ROUND(0.088*ABS(RO09BCB),?gnPc) AND ROUND(0.093*ABS(RO09BCB),?gnPc) OR ] + ; + *!* [ABS(RO09BVT) NOT BETWEEN ROUND(0.088*ABS(RO09BVB),?gnPc) AND ROUND(0.093*ABS(RO09BVB),?gnPc) OR ] + ; + *!* [ABS(RO09BFT) NOT BETWEEN ROUND(0.088*ABS(RO09BFB),?gnPc) AND ROUND(0.093*ABS(RO09BFB),?gnPc) OR ] + ; + *!* [ABS(FO19BCT) NOT BETWEEN ROUND(0.188*ABS(FO19BCB),?gnPc) AND ROUND(0.193*ABS(FO19BCB),?gnPc) OR ] + ; + *!* [ABS(FO19BVT) NOT BETWEEN ROUND(0.188*ABS(FO19BVB),?gnPc) AND ROUND(0.193*ABS(FO19BVB),?gnPc) OR ] + ; + *!* [ABS(FO19BFT) NOT BETWEEN ROUND(0.188*ABS(FO19BFB),?gnPc) AND ROUND(0.193*ABS(FO19BFB),?gnPc) OR ] + ; + *!* [ABS(FO09BCT) NOT BETWEEN ROUND(0.088*ABS(FO09BCB),?gnPc) AND ROUND(0.093*ABS(FO09BCB),?gnPc) OR ] + ; + *!* [ABS(FO09BVT) NOT BETWEEN ROUND(0.088*ABS(FO09BVB),?gnPc) AND ROUND(0.093*ABS(FO09BVB),?gnPc) OR ] + ; + *!* [ABS(FO09BFT) NOT BETWEEN ROUND(0.088*ABS(FO09BFB),?gnPc) AND ROUND(0.093*ABS(FO09BFB),?gnPc) OR ] + ; + *!* [ABS(TI19BCT) NOT BETWEEN ROUND(0.188*ABS(TI19BCB),?gnPc) AND ROUND(0.193*ABS(TI19BCB),?gnPc) OR ] + ; + *!* [ABS(TI19BVT) NOT BETWEEN ROUND(0.188*ABS(TI19BVB),?gnPc) AND ROUND(0.193*ABS(TI19BVB),?gnPc) OR ] + ; + *!* [ABS(TI19BFT) NOT BETWEEN ROUND(0.188*ABS(TI19BFB),?gnPc) AND ROUND(0.193*ABS(TI19BFB),?gnPc) OR ] + ; + *!* [ABS(TI09BVT) NOT BETWEEN ROUND(0.088*ABS(TI09BVB),?gnPc) AND ROUND(0.093*ABS(TI09BVB),?gnPc) OR ] + ; + *!* [ABS(TI09BFT) NOT BETWEEN ROUND(0.088*ABS(TI09BFB),?gnPc) AND ROUND(0.093*ABS(TI09BFB),?gnPc))] + *!* ENDIF + + If Len(Thisform.filtru_pretty)>0 + filtrutext=Thisform.filtru_pretty + If At("AND",filtrutext)=1 + filtrutext=Right(filtrutext,Len(filtrutext)-4) + Endif + + lcFiltru = lcFiltru + IIF(!EMPTY(m.lcFiltru), " and ", "") + Alltrim(filtrutext) + Endif + Do Case + Case lnOptiune = 1 + Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL CUMPARARI] + Case lnOptiune = 2 + Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL CUMPARARI - DIN TARA] + *!* marius.mutu + *!* 21.06.2007 + *!* facturile RO <> 0 SAU facturile cu toate coloanele <> 0 + lcFiltru = lcFiltru + [AND ((RO19BCB<>0 OR RO19BCT<>0 OR RO19BVB<>0 OR RO19BVT<>0 ] + ; + [OR RO19BFB<>0 OR RO19BFT<>0 OR RO09BVB<>0 OR RO09BVT<>0 ] + ; + [OR RO09BFB<>0 OR RO09BFT<>0 OR RO05B<>0 OR RO05T<>0 OR ROSCN<>0) OR ] + ; + [(TOTCTVA = 0 and RO19BCB = 0 and RO19BCT = 0 and RO19BVB = 0 and RO19BVT = 0 and RO19BFB = 0 ] + ; + [ and RO05B = 0 and RO05T = 0 and RO19BFT = 0 and RO09BCB = 0 and RO09BCT = 0 and RO09BVB = 0 and RO09BVT = 0 and RO09BFB = 0 and RO09BFT = 0 ] + ; + [ and ROSCN = 0 and FO19BCB = 0 and FO19BCT = 0 and FO19BVB = 0 and FO19BVT = 0 and FO19BFB = 0 and FO19BFT = 0 ] + ; + [ and FO09BCB = 0 and FO09BCT = 0 and FO09BVB = 0 and FO09BVT = 0 and FO09BFB = 0 and FO09BFT = 0 and FOSCN = 0 ] + ; + [ and CEBCB = 0 and CEBCT = 0 and CEBVB = 0 and CEBVT = 0 and CEBVSC = 0 and CEBVN = 0 and CEBFB = 0 and CEBFT = 0 ] + ; + [ and CEBFSC = 0 and CEBFN = 0 and TI19BCB = 0 and TI19BCT = 0 and TI19BVB = 0 and TI19BVT = 0 and TI19BFB = 0 ] + ; + [ and TI19BFT = 0 and TI09BVB = 0 and TI09BVT = 0 and TI09BFB = 0 and TI09BFT = 0)) ] + + + Case lnOptiune = 3 + Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL CUMPARARI - DIN IMPORT] + lcFiltru = lcFiltru + [AND (FO19BCB<>0 OR FO19BCT<>0 OR FO19BVB<>0 OR FO19BVT<>0 ] + ; + [OR FO19BFB<>0 OR FO19BFT<>0 OR FO09BVB<>0 OR FO09BVT<>0 ] + ; + [OR FO09BFB<>0 OR FO09BFT<>0 OR FOSCN<>0)] + Case lnOptiune = 4 + Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL CUMPARARI - INTRACOMUNITARE] + lcFiltru = lcFiltru + [AND (CEBCB<>0 OR CEBCT<>0 OR CEBVB<>0 OR CEBVT<>0 ] + ; + [OR CEBVSC<>0 OR CEBVN<>0 OR CEBFB<>0 OR CEBFT<>0 ] + ; + [OR CEBFSC<>0 OR CEBFN<>0)] + Case lnOptiune = 5 + Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL CUMPARARI - TAXARE INVERSA] + lcFiltru = lcFiltru + [AND (TI19BCB<>0 OR TI19BCT<>0 OR TI19BVB<>0 OR TI19BVT<>0 ] + ; + [OR TI19BFB<>0 OR TI19BFT<>0 OR TI09BVB<>0 OR TI09BVT<>0 ] + ; + [OR TI09BFB<>0 OR TI09BFT<>0)] + Endcase + If (This.filtru_pretty#"none") + Thisform.actualizeaza_grid1(lcFiltru) + Thisform.do_executa(lnOptiune) + If Reccount('actcv')=0 + aMESSAGEBOX("Cautarea nu a intors rezultate!",64,"Info cautare") + * THISFORM.ck_nract.SETFOCUS() + Endif + Endif + + ENDPROC + + PROCEDURE do_excel + do export_excel_grid WITH thisform._grdbase1,"dataact, nract", "", this.lb_titlu_alb_b121.caption IN proceduri_excel.prg + + return + + If Used('actcv') And Reccount('actcv')>0 + Local i,xlsheet,XLApp,tmpsheet + SET DATE TO DMY + exista_excel=.T. + p1='' + p2='' + With Thisform._grdbase1 + For nCol=1 To .ColumnCount + nColumn=.Columns(nCol).ColumnOrder + p1=p1+.Columns(nCol).ControlSource+',' + p2=p2+Strtran(.Columns(nCol).header1.Caption,Chr(32),'_')+',' + Endfor + p1=Substr(p1,1,Len(p1)-1) + p2=Substr(p2,1,Len(p2)-1) + Endwith + On Error Do exportare With thisform._grdbase1.recordsource,p1,p2 + tmpsheet = Getobject('','excel.sheet') + On Error + + If exista_excel + Wait Window "Se transmit datele catre Excel..." Nowait + + XLApp = tmpsheet.Application + XLApp.workbooks.Close() + XLApp.workbooks.Add() + poExcel = XLApp.ActiveSheet + + Go Top + poExcel.Cells(1,1).Font.Size=16 + poExcel.Cells(1,1).Font.Bold=.T. + poExcel.Cells(1,1)=Thisform.lb_titlu_alb_b121.Caption+" Luna "+Alltrim(Str(gnLuna))+"/"+Alltrim(Str(gnAn)) + nRows = 3 + With Thisform._grdbase1 + For nCol = 1 To .ColumnCount + nColumn = .Columns(nCol).ColumnOrder + poExcel.Columns(nColumn).ColumnWidth = .Columns(nCol).Width/7.5 + poExcel.Cells(nRows,nColumn) = .Columns(nCol).header1.Caption + poExcel.Cells(nRows,nColumn).Font.Bold = .T. + poExcel.Cells(nRows,nColumn).Interior.ColorIndex = 16 + Endfor + Scan + nRows = nRows + 1 + For nCol = 1 To .ColumnCount + nColumn = .Columns(nCol).ColumnOrder + If At('CHECK',Upper(.Columns(nCol).CurrentControl))>0 + poExcel.Cells(nRows,nColumn)=Iif(Eval(.Columns(nCol).ControlSource)==0,'NU','DA') + Else + poExcel.Cells(nRows,nColumn) = Eval(.Columns(nCol).ControlSource) + Endif + Endfor + Endscan + Endwith + + XLApp.Visible = .T. + Endif + Else + aMessagebox("Nu aveti date in cautare!",48,"Atentie") + Thisform.ck_nract.SetFocus() + Endif + ENDPROC + + PROCEDURE do_executa + Lparameters tnOptiune + Thisform._grdbase1.SetAll("Visible",.F.,"Column") + Thisform._grdfooter1.SetAll("Visible",.F.,"Column") + Do Case + Case tnOptiune = 1 + Thisform._grdbase1.SetAll("Visible",.T.,"Column") + Thisform._grdfooter1.SetAll("Visible",.T.,"Column") + Case tnOptiune = 2 + With Thisform._grdbase1 + .cfel_document.Visible = .T. + .cdataact.Visible = .T. + .cnract.Visible = .T. + .cSerie_act.visible = .T. + .cdenumire.Visible = .T. + .ccod_fiscal.Visible = .T. + .ctotctva.Visible = .T. + .cro19bcb.Visible = .T. + .cro19bct.Visible = .T. + .cro19bvb.Visible = .T. + .cro19bvt.Visible = .T. + .cro19bfb.Visible = .T. + .cro19bft.Visible = .T. + .cro09bvb.Visible = .T. + .cro09bvt.Visible = .T. + .cro09bfb.Visible = .T. + .cro09bft.Visible = .T. + .croscn.Visible = .T. + .cro05b.visible = .T. + .cro05t.visible = .T. + .Refresh() + Endwith + With Thisform._grdfooter1 + .cfel_document.Visible = .T. + .cdataact.Visible = .T. + .cnract.Visible = .T. + .cserie_act.visible = .T. + .cdenumire.Visible = .T. + .ccod_fiscal.Visible = .T. + .ctotctva.Visible = .T. + .cro19bcb.Visible = .T. + .cro19bct.Visible = .T. + .cro19bvb.Visible = .T. + .cro19bvt.Visible = .T. + .cro19bfb.Visible = .T. + .cro19bft.Visible = .T. + .cro09bvb.Visible = .T. + .cro09bvt.Visible = .T. + .cro09bfb.Visible = .T. + .cro09bft.Visible = .T. + .croscn.Visible = .T. + .cro05b.visible = .T. + .cro05t.visible = .T. + .Refresh() + Endwith + Case tnOptiune = 3 + With Thisform._grdbase1 + .cfel_document.Visible = .T. + .cdataact.Visible = .T. + .cnract.Visible = .T. + .cserie_act.visible = .T. + .cdenumire.Visible = .T. + .ccod_fiscal.Visible = .T. + .ctotctva.Visible = .T. + .cfo19bcb.Visible = .T. + .cfo19bct.Visible = .T. + .cfo19bvb.Visible = .T. + .cfo19bvt.Visible = .T. + .cfo19bfb.Visible = .T. + .cfo19bft.Visible = .T. + .cfo09bvb.Visible = .T. + .cfo09bvt.Visible = .T. + .cfo09bfb.Visible = .T. + .cfo09bft.Visible = .T. + .cfoscn.Visible = .T. + .Refresh() + Endwith + With Thisform._grdfooter1 + .cfel_document.Visible = .T. + .cdataact.Visible = .T. + .cnract.Visible = .T. + .cserie_act.visible = .T. + .cdenumire.Visible = .T. + .ccod_fiscal.Visible = .T. + .ctotctva.Visible = .T. + .cfo19bcb.Visible = .T. + .cfo19bct.Visible = .T. + .cfo19bvb.Visible = .T. + .cfo19bvt.Visible = .T. + .cfo19bfb.Visible = .T. + .cfo19bft.Visible = .T. + .cfo09bvb.Visible = .T. + .cfo09bvt.Visible = .T. + .cfo09bfb.Visible = .T. + .cfo09bft.Visible = .T. + .cfoscn.Visible = .T. + .Refresh() + Endwith + Case tnOptiune = 4 + With Thisform._grdbase1 + .cfel_document.Visible = .T. + .cdataact.Visible = .T. + .cnract.Visible = .T. + .cserie_act.visible = .T. + .cdenumire.Visible = .T. + .ccod_fiscal.Visible = .T. + .ctotctva.Visible = .T. + .ccebcb.Visible = .T. + .ccebct.Visible = .T. + .ccebvb.Visible = .T. + .ccebvt.Visible = .T. + .ccebvsc.Visible = .T. + .ccebvn.Visible = .T. + .ccebfb.Visible = .T. + .ccebft.Visible = .T. + .ccebfsc.Visible = .T. + .ccebfn.Visible = .T. + .Refresh() + Endwith + With Thisform._grdfooter1 + .cfel_document.Visible = .T. + .cdataact.Visible = .T. + .cnract.Visible = .T. + .cserie_act.visible = .T. + .cdenumire.Visible = .T. + .ccod_fiscal.Visible = .T. + .ctotctva.Visible = .T. + .ccebcb.Visible = .T. + .ccebct.Visible = .T. + .ccebvb.Visible = .T. + .ccebvt.Visible = .T. + .ccebvsc.Visible = .T. + .ccebvn.Visible = .T. + .ccebfb.Visible = .T. + .ccebft.Visible = .T. + .ccebfsc.Visible = .T. + .ccebfn.Visible = .T. + .Refresh() + Endwith + Case tnOptiune = 5 + With Thisform._grdbase1 + .cfel_document.Visible = .T. + .cdataact.Visible = .T. + .cnract.Visible = .T. + .cserie_act.visible = .T. + .cdenumire.Visible = .T. + .ccod_fiscal.Visible = .T. + .ctotctva.Visible = .T. + .cti19bcb.Visible = .T. + .cti19bct.Visible = .T. + .cti19bvb.Visible = .T. + .cti19bvt.Visible = .T. + .cti19bfb.Visible = .T. + .cti19bft.Visible = .T. + .cti09bvb.Visible = .T. + .cti09bvt.Visible = .T. + .cti09bfb.Visible = .T. + .cti09bft.Visible = .T. + .Refresh() + Endwith + With Thisform._grdfooter1 + .cfel_document.Visible = .T. + .cdataact.Visible = .T. + .cnract.Visible = .T. + .cserie_act.visible = .T. + .cdenumire.Visible = .T. + .ccod_fiscal.Visible = .T. + .ctotctva.Visible = .T. + .cti19bcb.Visible = .T. + .cti19bct.Visible = .T. + .cti19bvb.Visible = .T. + .cti19bvt.Visible = .T. + .cti19bfb.Visible = .T. + .cti19bft.Visible = .T. + .cti09bvb.Visible = .T. + .cti09bvt.Visible = .T. + .cti09bfb.Visible = .T. + .cti09bft.Visible = .T. + .Refresh() + Endwith + Endcase + ENDPROC + + PROCEDURE do_listare + Private pcTitlu, pcSubtitlu + pcTitlu = "Registru cumparari" + Store "" To pcSubtitlu + *!* 16.04.2007 + *!* marius.mutu + *!* listare cu recapitulatie + *!* pnOptiune = Thisform.nlistitemid + lnTipJurnal = Thisform.nlistitemid - 1 + If This.filtru_traducere()#"" + lctext=" si "+This.filtru_traducere() + Else + lctext="" + Endif + + pcSubtitlu1 = This.filtru_pretty_ro + lctext + **************************************************************** + If lnTipJurnal = 0 && Complet + x = xmenu("Achizitii de bunuri si prestari de sevicii taxabile din tara;Achizitii de bunuri si prestari de sevicii taxabile din import;Achizitii intracomunitare de bunuri;Taxare inversa;" + ; + "\-;Recapitulatie - Achizitii de bunuri si prestari de sevicii taxabile din tara;Recapitulatie - Achizitii de bunuri si prestari de sevicii taxabile din import;Recapitulatie - Achizitii intracomunitare de bunuri;Recapitulatie - Taxare inversa") + Else + Do Case + Case lnTipJurnal = 1 + lnMeniu = xmenu("Achizitii de bunuri si prestari de sevicii taxabile din tara;Recapitulatie - Achizitii de bunuri si prestari de sevicii taxabile din tara") + x = Iif(lnMeniu = 1, 1, Iif(lnMeniu = 2, 6, 0)) + + Case lnTipJurnal = 2 + lnMeniu = xmenu("Achizitii de bunuri si prestari de sevicii taxabile din import;Recapitulatie - Achizitii de bunuri si prestari de sevicii taxabile din import") + x = Iif(lnMeniu = 1, 2, Iif(lnMeniu = 2, 7, 0)) + + Case lnTipJurnal = 3 + lnMeniu = xmenu("Achizitii intracomunitare de bunuri;Recapitulatie - Achizitii intracomunitare de bunuri") + x = Iif(lnMeniu = 1, 3, Iif(lnMeniu = 2, 8, 0)) + + Case lnTipJurnal = 4 + lnMeniu = xmenu("Taxare inversa;Recapitulatie - Taxare inversa") + x = Iif(lnMeniu = 1, 4, Iif(lnMeniu = 2, 9, 0)) + Endcase + Endif + + If !Between(x,1,9) + Return + Endif + + *!* pcdataora=get_ora(2) + + lcWhere = "" + + Do Case + Case Inlist(x, 1, 6) + pcSubtitlu = "Achizitii de bunuri si prestari de sevicii taxabile din tara" + *!* alex.lepadatu + *!* 13.01.2009 + If gnAn * 12 + gnLuna < 2008*12 + 12 + lcRaport = [registru_cumparari_jtva2007_ro] + Else + lcRaport = [registru_cumparari_jtva2007_ro2] + Endif + *!* marius.mutu + *!* 21.06.2007 + *!* facturile RO <> 0 SAU facturile cu toate coloanele <> 0 + lcWhere = "((ro19bcb<>0 OR ro19bct<>0 OR ro19bvb<>0 OR ro19bvt<>0 OR ro19bfb<>0 OR ro19bft<>0 OR " + ; + "ro09bvb<>0 OR ro09bvt<>0 OR ro09bfb<>0 OR ro09bft<>0 OR ro05b<>0 OR ro05t<>0 OR roscn<>0) OR " + ; + [(TOTCTVA = 0 and RO19BCB = 0 and RO19BCT = 0 and RO19BVB = 0 and RO19BVT = 0 and RO19BFB = 0 ] + ; + [ and RO19BFT = 0 and RO09BCB = 0 and RO09BCT = 0 and RO09BVB = 0 and RO09BVT = 0 and RO09BFB = 0 and RO09BFT = 0 ] + ; + [ and RO05B = 0 and RO05T = 0 and ROSCN = 0 and FO19BCB = 0 and FO19BCT = 0 and FO19BVB = 0 and FO19BVT = 0 and FO19BFB = 0 and FO19BFT = 0 ] + ; + [ and FO09BCB = 0 and FO09BCT = 0 and FO09BVB = 0 and FO09BVT = 0 and FO09BFB = 0 and FO09BFT = 0 and FOSCN = 0 ] + ; + [ and CEBCB = 0 and CEBCT = 0 and CEBVB = 0 and CEBVT = 0 and CEBVSC = 0 and CEBVN = 0 and CEBFB = 0 and CEBFT = 0 ] + ; + [ and CEBFSC = 0 and CEBFN = 0 and TI19BCB = 0 and TI19BCT = 0 and TI19BVB = 0 and TI19BVT = 0 and TI19BFB = 0 ] + ; + [ and TI19BFT = 0 and TI09BVB = 0 and TI09BVT = 0 and TI09BFB = 0 and TI09BFT = 0)) ] + Case Inlist(x, 2, 7) + pcSubtitlu = "Achizitii de bunuri si prestari de sevicii taxabile din import" + lcRaport = [registru_cumparari_jtva2007_fo] + + lcWhere = "(fo19bcb<>0 OR fo19bct<>0 OR fo19bvb<>0 OR fo19bvt<>0 OR fo19bfb<>0 OR fo19bft<>0 OR " + ; + "fo09bvb<>0 OR fo09bvt<>0 OR fo09bfb<>0 OR fo09bft<>0 OR foscn<>0)" + Case Inlist(x, 3, 8) + pcSubtitlu = "Achizitii intracomunitare de bunuri" + lcRaport = [registru_cumparari_jtva2007_ce] + + lcWhere = "(cebcb<>0 OR cebct<>0 OR cebvb<>0 OR cebvt<>0 OR cebvsc<>0 OR cebvn<>0 OR " + ; + "cebfb<>0 OR cebft<>0 OR cebfsc<>0 OR cebfn<>0)" + Case Inlist(x, 4, 9) + pcSubtitlu = "Bunuri si Sevicii pentru care cumparatorul este obligat la plata taxei (din Tara, Import si Servicii UE) - Taxare Inversa" + lcRaport = [registru_cumparari_jtva2007_ti] + + lcWhere = "(ti19bcb<>0 OR ti19bct<>0 OR ti19bvb<>0 OR ti19bvt<>0 OR ti19bfb<>0 OR ti19bft<>0 OR " + ; + "ti09bvb<>0 OR ti09bvt<>0 OR ti09bfb<>0 OR ti09bft<>0)" + + Endcase + + + && REGISTRU TVA LUNA CURENTA + Select 0 As tip, * ; + FROM actcv ; + WHERE &lcWhere ; + INTO Cursor cListRC ; + ORDER By dataact, nract ; + READWRITE + + + If Between(x, 1, 5) And _Tally = 0 + amessagebox("Nu exista inregistrari pentru listare!",48,"Atentie") + Endif + + && REGISTRE TVA RECAPITULATIE + If Between(x, 5, 9) + + Private pnAn, pnLuna + pnAn = 0 + pnLuna = 0 + locaut = Createobject('frm_caut_anluna') + locaut.Show(1) + If buton = 2 + Return + Endif + + lcSelect = [select 1 as tip, an, luna, to_date('','ddmmyyyy') as dataact, 000000000 as nract,] + ; + [ (select numeluna || ' ' || to_char(an) from lunilean where nrluna = luna) as denumire,' ' as cod_fiscal, ] + ; + [SUM(TOTCTVA) AS TOTCTVA, ] + ; + [SUM(CEBCB) AS CEBCB, SUM(CEBCT) AS CEBCT, SUM(CEBFB) AS CEBFB, SUM(CEBFN) AS CEBFN, ] + ; + [SUM(CEBFSC) AS CEBFSC, SUM(CEBFT) AS CEBFT, SUM(CEBVB) AS CEBVB, SUM(CEBVN) AS CEBVN, ] + ; + [SUM(CEBVSC) AS CEBVSC, SUM(CEBVT) AS CEBVT, ] + ; + [SUM(FOSCN) AS FOSCN, SUM(FO09BCB) AS FO09BCB, SUM(FO09BCT) AS FO09BCT, SUM(FO09BFB) AS FO09BFB, ] + ; + [SUM(FO09BFT) AS FO09BFT, SUM(FO09BVB) AS FO09BVB, SUM(FO09BVT) AS FO09BVT, SUM(FO19BCB) AS FO19BCB, ] + ; + [SUM(FO19BCT) AS FO19BCT, SUM(FO19BFB) AS FO19BFB, SUM(FO19BFT) AS FO19BFT, SUM(FO19BVB) AS FO19BVB, ] + ; + [SUM(FO19BVT) AS FO19BVT, ] + ; + [SUM(ROSCN) AS ROSCN, SUM(RO09BCB) AS RO09BCB, SUM(RO09BCT) AS RO09BCT, SUM(RO09BFB) AS RO09BFB, ] + ; + [SUM(RO09BFT) AS RO09BFT, SUM(RO09BVB) AS RO09BVB, SUM(RO09BVT) AS RO09BVT, SUM(RO05B) AS RO05B, SUM(RO05T) AS RO05T, ]+; + [SUM(RO19BCB) AS RO19BCB, SUM(RO19BCT) AS RO19BCT, SUM(RO19BFB) AS RO19BFB, SUM(RO19BFT) AS RO19BFT, SUM(RO19BVB) AS RO19BVB, ] + ; + [SUM(RO19BVT) AS RO19BVT, ] + ; + [SUM(TI09BFB) AS TI09BFB, SUM(TI09BFT) AS TI09BFT, SUM(TI09BVB) AS TI09BVB, SUM(TI09BVT) AS TI09BVT, ] + ; + [SUM(TI19BCB) AS TI19BCB, SUM(TI19BCT) AS TI19BCT, SUM(TI19BFB) AS TI19BFB, ] + ; + [SUM(TI19BFT) AS TI19BFT, SUM(TI19BVB) AS TI19BVB, SUM(TI19BVT) AS TI19BVT ] + ; + [ FROM JC2007 ] + ; + [ WHERE an*12+luna between ?pnAn*12 + ?pnLuna and ?gnAn*12 + ?gnLuna] + Iif(!Empty(lcWhere), " and " + lcWhere, "") + ; + [ GROUP BY an, luna ] + ; + [ ORDER BY an, luna ] && 08.02.2010 + + *!* PRIVATE pnNrLuni, pdDataInitiala + *!* pnNrLuni = (gnAn*12 + gnLuna) - (pnAn*12 + pnLuna) + *!* pdDataInitiala = DATE(pnAn, pnLuna, 1) + + *!* lcSelect = [WITH ANILUNI AS ] + ; + *!* [(select l.numeluna, an, luna ] + ; + *!* [ from (select EXTRACT(YEAR FROM ADD_MONTHS(?pdDataInitiala, level - 1)) as AN, ] + ; + *!* [ EXTRACT(MONTH FROM ADD_MONTHS(?pdDataInitiala, level - 1)) as LUNA ] + ; + *!* [ from dual ] + ; + *!* [ connect by level <= ?pnNrLuni + 1) al ] + ; + *!* [ left join lunilean l on al.luna = l.nrluna) ] + ; + *!* [select 1 as tip, J.an, J.luna, to_date('','ddmmyyyy') as dataact, 000000000 as nract,] + ; + *!* [ numeluna || ' ' || to_char(J.an) as denumire,' ' as cod_fiscal, ] + ; + *!* [SUM(TOTCTVA) AS TOTCTVA, ] + ; + *!* [SUM(CEBCB) AS CEBCB, SUM(CEBCT) AS CEBCT, SUM(CEBFB) AS CEBFB, SUM(CEBFN) AS CEBFN, ] + ; + *!* [SUM(CEBFSC) AS CEBFSC, SUM(CEBFT) AS CEBFT, SUM(CEBVB) AS CEBVB, SUM(CEBVN) AS CEBVN, ] + ; + *!* [SUM(CEBVSC) AS CEBVSC, SUM(CEBVT) AS CEBVT, ] + ; + *!* [SUM(FOSCN) AS FOSCN, SUM(FO09BCB) AS FO09BCB, SUM(FO09BCT) AS FO09BCT, SUM(FO09BFB) AS FO09BFB, ] + ; + *!* [SUM(FO09BFT) AS FO09BFT, SUM(FO09BVB) AS FO09BVB, SUM(FO09BVT) AS FO09BVT, SUM(FO19BCB) AS FO19BCB, ] + ; + *!* [SUM(FO19BCT) AS FO19BCT, SUM(FO19BFB) AS FO19BFB, SUM(FO19BFT) AS FO19BFT, SUM(FO19BVB) AS FO19BVB, ] + ; + *!* [SUM(FO19BVT) AS FO19BVT, ] + ; + *!* [SUM(ROSCN) AS ROSCN, SUM(RO09BCB) AS RO09BCB, SUM(RO09BCT) AS RO09BCT, SUM(RO09BFB) AS RO09BFB, ] + ; + *!* [SUM(RO09BFT) AS RO09BFT, SUM(RO09BVB) AS RO09BVB, SUM(RO09BVT) AS RO09BVT, SUM(RO19BCB) AS RO19BCB, ] + ; + *!* [SUM(RO19BCT) AS RO19BCT, SUM(RO19BFB) AS RO19BFB, SUM(RO19BFT) AS RO19BFT, SUM(RO19BVB) AS RO19BVB, ] + ; + *!* [SUM(RO19BVT) AS RO19BVT, ] + ; + *!* [SUM(TI09BFB) AS TI09BFB, SUM(TI09BFT) AS TI09BFT, SUM(TI09BVB) AS TI09BVB, SUM(TI09BVT) AS TI09BVT, ] + ; + *!* [SUM(TI19BCB) AS TI19BCB, SUM(TI19BCT) AS TI19BCT, SUM(TI19BFB) AS TI19BFB, ] + ; + *!* [SUM(TI19BFT) AS TI19BFT, SUM(TI19BVB) AS TI19BVB, SUM(TI19BVT) AS TI19BVT ] + ; + *!* [ FROM ANILUNI LEFT JOIN JC2007 J ON ANILUNI.AN = J.AN AND ANILUNI.LUNA = J.LUNA ] + ; + *!* [ WHERE J.an*12+J.luna between ?pnAn*12 + ?pnLuna and ?gnAn*12 + ?gnLuna] + IIF(!EMPTY(lcWhere), " and " + lcWhere, "") + ; + *!* [ GROUP BY J.AN, J.LUNA, ANILUNI.NUMELUNA] + + lnSucces = goExecutor.oExecute(lcSelect, "crsTotal") + If lnSucces < 0 + amessagebox(goExecutor.cEroare,0+16,"Eroare") + Else + Select cListRC + Append From Dbf('crsTotal') + Use In crsTotal + Endif + Endif && BETWEEN(x, 5, 9) + + If (Between(x, 1, 5) And _Tally > 0) Or Between(x,5,9) + *!* IF USED('cListRc') AND !EMPTY(lcRaport) + *!* THISFORM.ALWAYSONTOP=.F. + *!* SELECT cListRC + *!* REPORT FORMAT (lcRaport) TO PRINTER PROMPT PREVIEW + *!* THISFORM.ALWAYSONTOP=.T. + *!* ENDIF + Thisform.AlwaysOnTop = .F. + goExport.export2frx([cListRc],lcRaport) + Thisform.AlwaysOnTop = .T. + Endif + + If Used('cListRC') + Use In cListRC + Endif + + + + ENDPROC + + PROCEDURE do_reface + lnAn = gnAn + lnLuna = gnLuna + lnSucces = refacere([TVA_2007],[],[JC],lnLuna,lnAn) && IN orefaceri.prg + If lnSucces > 0 + Thisform.actualizeaza_grid1() + + *!* Do inainte With "CUMP2007" In oinainte_de.prg + + This._grdbase1.SetFocus + + aMESSAGEBOX('Refacerea s-a terminat!',64,"Info refacere") + Endif + ENDPROC + + PROCEDURE do_reset + *Thisform.cbo_tip_jurnal_cump.ListItemId = 1 + + + If Not Pemstatus(Thisform,"filtru_pretty",5) + Thisform.AddProperty("filtru_pretty") + Endif + If Not Pemstatus(Thisform,"filtru_pretty_ro",5) + Thisform.AddProperty("filtru_pretty_ro") + Endif + + Thisform.filtru_pretty="" + Thisform.filtru_pretty_ro="" + Thisform.but_start_criterii1.SetFocus + Thisform.Refresh + Thisform.but_start_criterii1.pornit="nu" + Thisform.do_cauta() + + ENDPROC + + PROCEDURE do_termin + THIS.BUT_STArt_criterii1.RESETstatus() + DODEFAULT() + ENDPROC + + PROCEDURE do_verifica + *!* 20.08.2009 + *!* marius.mutu + *!* imbunatatit verificarea CIF/CNP + validare atribut TVA pe site-ul VIES + + *!* 20.08.2009 + *!* LOCAL lcFile, lcRun, lcCoduriEronate, lcSelect + *!* lcSelect = SELECT() + *!* *!* coduri fiscale eronate + *!* SELECT DISTINCT COD_FISCAL, denumire; + *!* FROM ACTCV ; + *!* WHERE LEFT(ALLTRIM(UPPER(COD_FISCAL)),2) = 'RO' ; + *!* INTO CURSOR crsCoduriFiscale ; + *!* ORDER BY COD_FISCAL, denumire + + *!* SELECT COD_FISCAL, denumire ; + *!* FROM crsCoduriFiscale ; + *!* WHERE !validare_cif(COD_FISCAL) ; + *!* INTO CURSOR crsCoduriEronate + + *!* IF _TALLY > 0 + *!* SET TEXTMERGE ON TO MEMVAR lcCoduriEronate + *!* \CODURI FISCALE ERONATE + *!* SELECT crsCoduriEronate + *!* SCAN + *!* \<>,<> + *!* ENDSCAN + *!* SET TEXTMERGE TO + *!* USE IN SELECT('crsCoduriEronate') + *!* USE IN SELECT('crsCoduriFiscale') + *!* lcFile = gcTempPath + 'coduri_fiscale_eronate.txt' + *!* STRTOFILE(lcCoduriEronate,lcFile) + *!* lcRun = [RUN /n notepad "] + lcFile + ["] + *!* &lcRun + *!* ELSE + *!* AMESSAGEBOX('Codurile fiscale sunt valide',0+64,'Validare') + *!* ENDIF + *!* SELECT (lcSelect) + #Define CRLF Chr(13) + Chr(10) + Local lcFile, lcRun, lcSelect, llPlatitorTVA, lcCoduriEronate + Local X, llVerificarePlatitorTVA, lcWhere, lcCodFiscal, llAtributFiscalRO + Local lcXml, loPartener, lcEroare, lcKey + + lcSelect = Select() + X = XMENU('Inregistrarea curenta - verificare validitate;Inregistrarea curenta - verificare validitate + platitor TVA;\-;Toate inregistrarile - verificare validitate;Toate inregistrarile - verificare validitate + platitor TVA') + IF !BETWEEN(x,1,5) + RETURN + ENDIF + llVerificarePlatitorTVA = INLIST(x, 2, 5) + + lcWhere = IIF(INLIST(x, 1, 2), "recno() = " + ALLTRIM(STR(RECNO())), ".T.") + Select Distinct COD_FISCAL, denumire, .T. As IsCIF, .F. As codvalid ; + FROM ACTCV ; + WHERE &lcWhere ; + INTO Cursor crsCoduriFiscale ; + ORDER By denumire, COD_FISCAL ; + READWRITE + + *!* VERIFIC CIF, CNP VALID + Local loVerificare + *!* glRCViesURL = .T. + *!* gcRCVIESURL = "http://localhost/update/verificarecod.aspx/verificarecod/verificare/CIF/|CIF|/VIES" + loVerificare = Createobject("verificarecod", glRCViesURL, glRCMfinURL, gcRCRomfastURL, gcRCMfinanteURL, gcRCMfinanteParams) && validare.prg + + Select crsCoduriFiscale + Replace All IsCIF With loVerificare.IsCIF(COD_FISCAL) + Replace All codvalid With Iif(IsCIF, loVerificare.validare('CIF', COD_FISCAL), loVerificare.validare('CNP', COD_FISCAL)) + + lcCoduriEronate = "" + Set Textmerge On To Memvar lcCoduriEronate + + \CODURI FISCALE ERONATE + Select crsCoduriFiscale + Scan For !codvalid + \<>, <> + Endscan + + *!* VERIFIC CODURILE FISCALE VALIDE PENTRU ATRIBUTUL FISCAL IN VIES + If llVerificarePlatitorTVA + \ + \PARTENERI CU ATRIBUT TVA RO ERONAT + Select crsCoduriFiscale + Scan For codvalid AND IsCIF + + lcCodFiscal = Alltrim(Upper(COD_FISCAL)) + llAtributFiscalRO = LEFT(lcCodFiscal,2) = 'RO' + + WAIT WINDOW ALLTRIM(denumire) + ' ' + TRANSFORM(ROUND(RECNO()/RECCOUNT()*100,2)) + ' %' NOWAIT + + lcXml = loVerificare.Verificare('CIF', lcCodFiscal, 'VIES') + IF TYPE('loVerificare.oEntitate') = 'O' + loPartener = loVerificare.oEntitate + llPlatitorTva = loPartener.platitortva + lcEroare = loPartener.eroare + IF !EMPTY(lcEroare) AND aMESSAGEBOX(lcEroare + CRLF + 'Doriti sa continuati?', 4+ 32, _screen.caption) <> 6 + EXIT + ENDIF + + IF (llAtributFiscalRO AND !llPlatitorTVA) OR (!llAtributFiscalRO AND llPlatitorTVA) + \<>, <>, <> + ENDIF + ENDIF + + lcKey = INKEY(0.1) + IF lcKey = 27 && ESC + IF aMESSAGEBOX('Doriti sa intrerupeti operatia?', 4+32, _screen.Caption) = 6 + EXIT + ENDIF + ENDIF + Endscan + Endif + Set Textmerge To + + Use In Select('crsCoduriFiscale') + lcFile = gcTempPath + 'coduri_fiscale_eronate.txt' + Strtofile(lcCoduriEronate,lcFile) + lcRun = [RUN /n notepad "] + lcFile + ["] + &lcRun + + Select (lcSelect) + *!* 20.08.2009 ^ + ENDPROC + + PROCEDURE grid_sort_bind + *!* 09.09.2010 + *!* am folosit gridextra + *!* nu sterge + *!* 09.09.2010 ^ + ENDPROC + + PROCEDURE incaspl + Private pnlunanan,pcselect,pcfiltru,pcschema,pcorder,llAfisare,poact,pcTitlu + Store "" To poact + Store .F. To llAfisare + Store 0 To pnlunanan + + pnlunanan=gnAn*12+gnLuna + CN='4111' + Thisform.but_teRMIN1.Enabled=.F. + Thisform.AlwaysOnTop=.F. + + pcschema=['ID_ACT N(20),LUNA N(2),AN N(4),COD N(20),DATAIREG D,nract N(20),DATAACT D,'+]+; + ['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+; + ['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+; + ['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+; + ['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+; + ['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+; + ['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+; + ['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)'] + pcschema=[''] + pcselect=['select partD,dataact,nract,serie_act,dataireg,suma,perecheC,util,dataora,fdoc,scc,scd,partC,explicatia '+]+; + ['from ]+gcS+[.vact where 2=2'] + + Select actcv + pcTitlu="PLATI LA FACTURA NR. "+Alltrim(Str(nract)) + pcfiltru=[id_partd=']+Alltrim(Str(id_part))+[' and extract(year from dataireg)*12+extract(month from dataireg)<=]+Alltrim(Str(pnlunanan))+[ ]+; + [and (perecheD=]+Alltrim(Str(nract))+[ or nrord=']+Alltrim(Str(nract))+[')]+gcCondSucursala + pcorder=[dataact,serie_act,nract] + gencursor("poact","acn1",pcselect,pcfiltru,pcschema,pcorder,llAfisare) + poact.ca_baza1.afisare() + ORC=Createobj("frm_debcred") + ORC.lb_titlu_alb_b121.Caption=Proper(pcTitlu) + ORC.lb_titlu1.Caption=pcTitlu + ORC.Show(1) + + pcTitlu="" + Thisform.AlwaysOnTop=.T. + Thisform.but_teRMIN1.Enabled=.T. + If Used('acn1') + Use In acn1 + Endif + Release ORC,poact + ENDPROC + + PROCEDURE Init + DoDefault() + Thisform.cbo_tip_jurnal_cump.ListItemId = Thisform.nlistitemiddef + Thisform.do_executa(Thisform.nlistitemiddef) + If !glEMama + Thisform._grdbase1.RemoveObject([cSucursala]) + Endif + + + + *!* 09.09.2010 + this.gridextra1.setup() + *!* 09.09.2010 ^ + ENDPROC + + PROCEDURE ist_deb_cred + PRIVATE pnlunanan,lul,pcselect,pcschema,pcfiltru,pcorder,llAfisare,poacn1,poacn2,pcdatacrt,pcnume + PRIVATE nl,an,pcluna,pcanul,pniesire + STORE 0 TO pnlunanan,pniesire + STORE .F. TO llAfisare + STORE "" TO lul,poacn1,poacn2 + pcdatacrt=ALLTRIM(STR(gnAn))+PADL(ALLTRIM(STR(gnLuna)),2,'0')+[01] && prima zi a lunii + + THISFORM.but_termin1.ENABLED=.F. + THISFORM.ALWAYSONTOP= .F. + + pcanul='00' + pcluna='00' + &&lul=gnLuna && ?? + SELECT calendar + ose=CREATEOBJECT('frm_seleluna') + ose.SHOW(1) + IF pniesire=2 + THISFORM.but_termin1.ENABLED=.T. + THISFORM.ALWAYSONTOP= .T. + RETURN + ENDIF + pnlunanan=gnAn*12+gnLuna + pnlunaanales=VAL(pcanul)*12+VAL(pcluna) + SELECT actcv + pcnume=denumire + pcschema=['ID_ACT N(20),LUNA N(2),AN N(4),COD N(20),DATAIREG D,nract N(20),DATAACT D,'+]+; + ['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+; + ['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+; + ['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+; + ['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+; + ['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+; + ['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+; + ['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)'] + pcschema=[''] + pcselect=['select * from ]+gcS+[.vact where 2=2'] + pcorder=[dataact,serie_act,nract] + + pcfiltru=[dataact0 + Private pcselect,pcfiltru,pcschema,pcorder,poact,pcnume + Store "" To poact + Thisform.but_TERMIN1.Enabled=.F. + Thisform.AlwaysOnTop=.F. + lunanan=gnLuna+gnAn*12 + Select actcv + pcnume=denumire + pcschema=['DATAIREG D,DATAACT D,SERIE_ACT C(10),nract N(20),PARTD C(50),PARTC C(50),EXPLICATIA C(100),'+]+; + ['SUMA N(19,2),SCD C(4),SCC C(4),FDOC C(30),LUNA N(2),AN N(4),COD N(20)'] + pcselect=['select dataireg,dataact,serie_act,nract,partd,partc,explicatia,suma,scd,scc,fdoc,luna,an,cod '+]+; + ['from ]+gcS+[.vact where 2=2'] + pcorder=[dataact,serie_act,nract] + pcfiltru=[] + llAfisare=.F. + pcfiltru=[luna=]+Alltrim(Str(gnLuna))+[ and an=]+Alltrim(Str(gnAn))+; + [ and extract(year from dataireg)*12+extract(month from dataireg)<=]+Alltrim(Str(lunanan))+; + [ and cod=]+Alltrim(Str(cod))+[ and nract=]+Alltrim(Str(nract))+; + [ and (id_partc=]+Alltrim(STR(id_part))+[ or id_partd=]+Alltrim(STR(id_part))+[) ] +; + [ and dataact=to_date(']+Dtos(dataact)+[','YYYY-MM-DD')] + gcCondSucursala + gencursor('poact','ACN1',pcselect,pcfiltru,pcschema,pcorder,llAfisare) + poact.ca_baza1.afisare() + Go Top + ORC=Createobj("frm_debcred") + orc.Lb_titlu_alb_b121.caption="Nota contabila "+ALLTRIM(pcnume) + ORC.lb_titlu1.Caption="NOTA CONTABILA" + orc._grdbase1.removeobject("cUtil") + orc._grdbase1.removeobject("cDataOra") + ORC.Show(1) + Release poact,ORC + Thisform.but_TERMIN1.Enabled=.T. + Thisform.AlwaysOnTop=.T. + Else + aMessagebox("Nu aveti date in cautare!",48,"Atentie") + Thisform.ck_nract.SetFocus() + Endif + ENDPROC + + PROCEDURE But_start_criterii1.loadcriterii + PARAMETERS tacriterii + EXTERNAL ARRAY tacriterii + #define crlf CHR(13)+CHR(10) + lcStringCriterii="Nume\denumire\T\ID_PART\nom_parteneri" + crlf + ; + "Serie act\serie_act\T\none\" + crlf + ; + "Nr. act\nract\N\none\" + crlf + ; + "Data act\dataact\D\none\" + crlf + ; + "Fel document\fel_document\T\id_fdoc\nom_feldoc" + crlf + ; + "Cod Fiscal\cod_fiscal\T\none\" + crlf + ; + "Perioada\an*12+luna\D1\none\" + crlf + ; + "EroareTVA\nofiled\E\" + ; + [ (ABS(TOTCTVA -(RO19BCB + RO19BCT + RO19BVB + RO19BVT + RO19BFB + RO19BFT + RO09BCB + ] +; + [RO09BCT + RO09BVB + RO09BVT + RO09BFB + RO09BFT + ROSCN + FO19BCB + ] + ; + [FO19BCT + FO19BVB + FO19BVT + FO19BFB + FO19BFT + FO09BCB + FO09BCT + ] + ; + [FO09BVB + FO09BVT + FO09BFB + FO09BFT + FOSCN + CEBCB + CEBCT + ] + ; + [CEBVB + CEBVT + CEBVSC + CEBVN + CEBFB + CEBFT + CEBFSC + CEBFN + ] + ; + [TI19BCB + TI19BCT + TI19BVB + TI19BVT + TI19BFB + TI19BFT + TI09BVB + ] + ; + [TI09BVT + TI09BFB + TI09BFT)) >= 1 OR ] + ; + [ABS(RO19BCT) NOT BETWEEN ROUND(0.188*ABS(RO19BCB),?gnPc) AND ROUND(0.193*ABS(RO19BCB),?gnPc) OR ] + ; + [ABS(RO19BVT) NOT BETWEEN ROUND(0.188*ABS(RO19BVB),?gnPc) AND ROUND(0.193*ABS(RO19BVB),?gnPc) OR ] + ; + [ABS(RO19BFT) NOT BETWEEN ROUND(0.188*ABS(RO19BFB),?gnPc) AND ROUND(0.193*ABS(RO19BFB),?gnPc) OR ] + ; + [ABS(RO09BCT) NOT BETWEEN ROUND(0.088*ABS(RO09BCB),?gnPc) AND ROUND(0.093*ABS(RO09BCB),?gnPc) OR ] + ; + [ABS(RO09BVT) NOT BETWEEN ROUND(0.088*ABS(RO09BVB),?gnPc) AND ROUND(0.093*ABS(RO09BVB),?gnPc) OR ] + ; + [ABS(RO09BFT) NOT BETWEEN ROUND(0.088*ABS(RO09BFB),?gnPc) AND ROUND(0.093*ABS(RO09BFB),?gnPc) OR ] + ; + [ABS(FO19BCT) NOT BETWEEN ROUND(0.188*ABS(FO19BCB),?gnPc) AND ROUND(0.193*ABS(FO19BCB),?gnPc) OR ] + ; + [ABS(FO19BVT) NOT BETWEEN ROUND(0.188*ABS(FO19BVB),?gnPc) AND ROUND(0.193*ABS(FO19BVB),?gnPc) OR ] + ; + [ABS(FO19BFT) NOT BETWEEN ROUND(0.188*ABS(FO19BFB),?gnPc) AND ROUND(0.193*ABS(FO19BFB),?gnPc) OR ] + ; + [ABS(FO09BCT) NOT BETWEEN ROUND(0.088*ABS(FO09BCB),?gnPc) AND ROUND(0.093*ABS(FO09BCB),?gnPc) OR ] + ; + [ABS(FO09BVT) NOT BETWEEN ROUND(0.088*ABS(FO09BVB),?gnPc) AND ROUND(0.093*ABS(FO09BVB),?gnPc) OR ] + ; + [ABS(FO09BFT) NOT BETWEEN ROUND(0.088*ABS(FO09BFB),?gnPc) AND ROUND(0.093*ABS(FO09BFB),?gnPc) OR ] + ; + [ABS(TI19BCT) NOT BETWEEN ROUND(0.188*ABS(TI19BCB),?gnPc) AND ROUND(0.193*ABS(TI19BCB),?gnPc) OR ] + ; + [ABS(TI19BVT) NOT BETWEEN ROUND(0.188*ABS(TI19BVB),?gnPc) AND ROUND(0.193*ABS(TI19BVB),?gnPc) OR ] + ; + [ABS(TI19BFT) NOT BETWEEN ROUND(0.188*ABS(TI19BFB),?gnPc) AND ROUND(0.193*ABS(TI19BFB),?gnPc) OR ] + ; + [ABS(TI09BVT) NOT BETWEEN ROUND(0.088*ABS(TI09BVB),?gnPc) AND ROUND(0.093*ABS(TI09BVB),?gnPc) OR ] + ; + [ABS(TI09BFT) NOT BETWEEN ROUND(0.088*ABS(TI09BFB),?gnPc) AND ROUND(0.093*ABS(TI09BFB),?gnPc))\] + crlf + ; + IIF(glEMama,[Sucursala\sucursala\C\none\] + crlf,[]) + DODEFAULT() + ENDPROC + + PROCEDURE cbo_tip_jurnal_cump.Valid + thisform.do_cauta() + + ENDPROC + + PROCEDURE Gridextra1.applyfilter + DODEFAULT() + Thisform._grdfooter1.calcTotal() + ENDPROC + + PROCEDURE Gridextra1.clearfilter + DODEFAULT() + Thisform._grdfooter1.calcTotal() + ENDPROC + + PROCEDURE _grdbase1.cCod_fiscal.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.cDataact.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.cDenumire.Header1.Init + this.ForeColor =IIF(!EMPTY(this.tag),RGB(0,0,255),RGB(0,0,0)) + ENDPROC + + PROCEDURE _grdbase1.cDenumire.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.cFel_document.Text1.DblClick + Thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.cNract.Header1.Init + this.ForeColor =IIF(!EMPTY(this.tag),RGB(0,0,255),RGB(0,0,0)) + ENDPROC + + PROCEDURE _grdbase1.cNract.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.cRO19BCB.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.cRo19bct.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.cRO19BFB.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.cRO19BVB.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.cRO19BVT.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.cTotctva.Text1.DblClick + thisform.butdrept() + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_regcump2010 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="_grdbase1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFdoc.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFdoc.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cDataact.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cDataact.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cNract.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cNract.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cDenumire.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cDenumire.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCod_fiscal.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCod_fiscal.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTotctva.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTotctva.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo24b.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo24b.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo24t.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo24t.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo09b.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo09b.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo09t.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo09t.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRoscn.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRoscn.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFo24b.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFo24b.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFo24t.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFo24t.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFo09b.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFo09b.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFo09t.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFo09t.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFoscn.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFoscn.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCEt.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCEt.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCEb.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCEb.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTI24b.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTI24b.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTI24t.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTI24t.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTI09b.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTI09b.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTI09t.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTI09t.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCEsc.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCEsc.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCEn.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCEn.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cSerieAct.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cSerieAct.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo05b.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo05b.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo05t.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo05t.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO19b.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO19b.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo19t.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo19t.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFo19b.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFo19b.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFo19t.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFo19t.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTi19b.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTi19b.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTi19t.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTi19t.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cROtn.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cROtn.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTotfTVATax.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTotfTVATax.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTotTVATax.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTotTVATax.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRONB.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRONB.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRONT.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRONT.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO24NB.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO24NB.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO24NT.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO24NT.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO09NB.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO09NB.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO09NT.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO09NT.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO05NB.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO05NB.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO05NT.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO05NT.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTVAIncasare.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTVAIncasare.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTVAIncasare.Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cSucursala.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cSucursala.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cAles.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cAles.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cAles._checkbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCont.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCont.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cSoldF.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cSoldF.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cSoldDif.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cSoldDif.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cSoldN.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cSoldN.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO20B.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO20B.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO20T.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO20T.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO20NB.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO20NB.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO20NT.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO20NT.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFO20B.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFO20B.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFO20T.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFO20T.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTI20B.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTI20B.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTI20T.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTI20T.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cDataIreg.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cDataIreg.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO19NB.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO19NB.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO19NT.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO19NT.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column63.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column63.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column64.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column64.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column65.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column65.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cXX19TIB.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cXX19TIB.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cXX19TIT.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cXX19TIT.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cXX9TIB.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cXX9TIB.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cXX9TIT.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cXX9TIT.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_reface1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cbo_tip_jurnal_cump" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="oMenuShortcut" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_verifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_start_criterii1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_reset_criterii1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_shortcuts1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdfooter1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cmdTVAIncasare" UniqueID="" Timestamp="" /> + + * + *m: butdrept + *m: do_listare2013 + *m: grdfooterevent + *m: incaspl + *m: ist_deb_cred + *m: notacontab + *p: lafisaretot && Afiseaza toate inregistrarile la intrare, fara sa mai apesi pe butonul Cautare/Reset + *p: lvfp9 + *p: nlistitemid + *p: nlistitemiddef + * + + * + BorderStyle = 1 + cgridsortlist = _grdbase1 + DoCreate = .T. + filtru_pretty = + Height = 513 + lafisaretot = .F. + lvfp9 = .T. + Name = "frm_regcump2010" + nlistitemid = 1 + nlistitemiddef = 2 + Width = 795 + WindowState = 2 + _memberdata = + + + _shape1.Anchor = 10 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 795 + _shape1.ZOrderSet = 0 + _shape2.Anchor = 8 + _shape2.Height = 29 + _shape2.Left = 672 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 121 + _shape2.ZOrderSet = 1 + Lb_titlu_alb_b121.Caption = "REGISTRUL CUMPARARI" + Lb_titlu_alb_b121.FontBold = .T. + Lb_titlu_alb_b121.Left = 6 + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 15 + Lb_titlu_alb_b121.Top = 1 + Lb_titlu_alb_b121.ZOrderSet = 3 + BUT_TERMIN1.Anchor = 8 + BUT_TERMIN1.Left = 765 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 10 + BUT_TERMIN1.Top = 1 + BUT_TERMIN1.ZOrderSet = 5 + Gridsort1.Left = 5 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 42 + * + + ADD OBJECT '_grdbase1' AS _grdbase WITH ; + Anchor = 15, ; + ColumnCount = 69, ; + Comment = "*:OnResize=ss", ; + DeleteMark = .F., ; + FontSize = 10, ; + GridLineColor = 192,192,192, ; + HeaderHeight = 56, ; + Height = 405, ; + Left = 11, ; + Name = "_grdbase1", ; + Panel = 1, ; + ReadOnly = .T., ; + RecordSource = "actcv", ; + RowHeight = 19, ; + TabIndex = 8, ; + Top = 73, ; + Width = 768, ; + ZOrderSet = 2, ; + Column1.ColumnOrder = 1, ; + Column1.ControlSource = "fdoc", ; + Column1.FontName = "Arial", ; + Column1.FontSize = 10, ; + Column1.Name = "cFdoc", ; + Column1.ReadOnly = .T., ; + Column1.Visible = .T., ; + Column1.Width = 124, ; + Column2.ColumnOrder = 2, ; + Column2.ControlSource = "dataact", ; + Column2.FontName = "Arial", ; + Column2.FontSize = 10, ; + Column2.Name = "cDataact", ; + Column2.ReadOnly = .T., ; + Column2.Visible = .T., ; + Column2.Width = 86, ; + Column3.ColumnOrder = 5, ; + Column3.ControlSource = "nract", ; + Column3.FontName = "Arial", ; + Column3.FontSize = 10, ; + Column3.Name = "cNract", ; + Column3.ReadOnly = .T., ; + Column3.Visible = .T., ; + Column3.Width = 125, ; + Column4.ColumnOrder = 6, ; + Column4.ControlSource = "denumire", ; + Column4.FontName = "Arial", ; + Column4.FontSize = 10, ; + Column4.Name = "cDenumire", ; + Column4.ReadOnly = .T., ; + Column4.Visible = .T., ; + Column4.Width = 185, ; + Column5.ColumnOrder = 7, ; + Column5.ControlSource = "cod_fiscal", ; + Column5.FontName = "Arial", ; + Column5.FontSize = 10, ; + Column5.Name = "cCod_fiscal", ; + Column5.ReadOnly = .T., ; + Column5.Visible = .T., ; + Column5.Width = 115, ; + Column6.ColumnOrder = 8, ; + Column6.ControlSource = "totctva", ; + Column6.FontName = "Arial", ; + Column6.FontSize = 10, ; + Column6.InputMask = (get_mask(12,gnZ)), ; + Column6.Name = "cTotctva", ; + Column6.ReadOnly = .T., ; + Column6.Visible = .T., ; + Column6.Width = 108, ; + Column7.ColumnOrder = 21, ; + Column7.ControlSource = "ro24b", ; + Column7.FontName = "Arial", ; + Column7.FontSize = 10, ; + Column7.InputMask = (get_mask(12,gnZ)), ; + Column7.Name = "cRo24b", ; + Column7.ReadOnly = .T., ; + Column7.Visible = .T., ; + Column7.Width = 114, ; + Column8.ColumnOrder = 22, ; + Column8.ControlSource = "ro24t", ; + Column8.FontName = "Arial", ; + Column8.FontSize = 10, ; + Column8.InputMask = (get_mask(12,gnZ)), ; + Column8.Name = "cRo24t", ; + Column8.ReadOnly = .T., ; + Column8.Visible = .T., ; + Column8.Width = 110, ; + Column9.ColumnOrder = 25, ; + Column9.ControlSource = "ro09b", ; + Column9.FontName = "Arial", ; + Column9.FontSize = 10, ; + Column9.InputMask = (get_mask(12,gnZ)), ; + Column9.Name = "cRo09b", ; + Column9.ReadOnly = .T., ; + Column9.Visible = .T., ; + Column9.Width = 114, ; + Column10.ColumnOrder = 26, ; + Column10.ControlSource = "Ro09t", ; + Column10.FontName = "Arial", ; + Column10.FontSize = 10, ; + Column10.Format = "R", ; + Column10.InputMask = (get_mask(12,gnZ)), ; + Column10.Name = "cRo09t", ; + Column10.ReadOnly = .T., ; + Column10.Visible = .T., ; + Column10.Width = 122, ; + Column11.ColumnOrder = 33, ; + Column11.ControlSource = "Roscn", ; + Column11.FontName = "Arial", ; + Column11.FontSize = 10, ; + Column11.InputMask = (get_mask(12,gnZ)), ; + Column11.Name = "cRoscn", ; + Column11.ReadOnly = .T., ; + Column11.Visible = .T., ; + Column11.Width = 115, ; + Column12.ColumnOrder = 36, ; + Column12.ControlSource = "fo24b", ; + Column12.FontName = "Arial", ; + Column12.FontSize = 10, ; + Column12.InputMask = (get_mask(12,gnZ)), ; + Column12.Name = "cFo24b", ; + Column12.ReadOnly = .T., ; + Column12.Visible = .T., ; + Column12.Width = 111, ; + Column13.ColumnOrder = 37, ; + Column13.ControlSource = "fo24t", ; + Column13.FontName = "Arial", ; + Column13.FontSize = 10, ; + Column13.InputMask = (get_mask(12,gnZ)), ; + Column13.Name = "cFo24t", ; + Column13.ReadOnly = .T., ; + Column13.Visible = .T., ; + Column13.Width = 104, ; + Column14.ColumnOrder = 40, ; + Column14.ControlSource = "fo09b", ; + Column14.FontName = "Arial", ; + Column14.FontSize = 10, ; + Column14.InputMask = (get_mask(12,gnZ)), ; + Column14.Name = "cFo09b", ; + Column14.ReadOnly = .T., ; + Column14.Visible = .T., ; + Column14.Width = 113, ; + Column15.ColumnOrder = 41, ; + Column15.ControlSource = "fo09t", ; + Column15.FontName = "Arial", ; + Column15.FontSize = 10, ; + Column15.InputMask = (get_mask(12,gnZ)), ; + Column15.Name = "cFo09t", ; + Column15.ReadOnly = .T., ; + Column15.Visible = .T., ; + Column15.Width = 102, ; + Column16.ColumnOrder = 42, ; + Column16.ControlSource = "foscn", ; + Column16.FontName = "Arial", ; + Column16.FontSize = 10, ; + Column16.InputMask = (get_mask(12,gnZ)), ; + Column16.Name = "cFoscn", ; + Column16.ReadOnly = .T., ; + Column16.Visible = .T., ; + Column16.Width = 106, ; + Column17.ColumnOrder = 44, ; + Column17.ControlSource = "CEt", ; + Column17.FontName = "Arial", ; + Column17.FontSize = 10, ; + Column17.InputMask = (get_mask(12,gnZ)), ; + Column17.Name = "cCEt", ; + Column17.ReadOnly = .T., ; + Column17.Visible = .T., ; + Column17.Width = 81, ; + Column18.ColumnOrder = 43, ; + Column18.ControlSource = "CEb", ; + Column18.FontName = "Arial", ; + Column18.FontSize = 10, ; + Column18.InputMask = (get_mask(12,gnZ)), ; + Column18.Name = "cCEb", ; + Column18.ReadOnly = .T., ; + Column18.Visible = .T., ; + Column18.Width = 85, ; + Column19.ColumnOrder = 53, ; + Column19.ControlSource = "TI24b", ; + Column19.FontName = "Arial", ; + Column19.FontSize = 10, ; + Column19.InputMask = (get_mask(12,gnZ)), ; + Column19.Name = "cTI24b", ; + Column19.ReadOnly = .T., ; + Column19.Visible = .T., ; + Column19.Width = 83, ; + Column20.ColumnOrder = 54, ; + Column20.ControlSource = "TI24t", ; + Column20.FontName = "Arial", ; + Column20.FontSize = 10, ; + Column20.InputMask = (get_mask(12,gnZ)), ; + Column20.Name = "cTI24t", ; + Column20.ReadOnly = .T., ; + Column20.Visible = .T., ; + Column20.Width = 107, ; + Column21.ColumnOrder = 57, ; + Column21.ControlSource = "TI09b", ; + Column21.FontName = "Arial", ; + Column21.FontSize = 10, ; + Column21.InputMask = (get_mask(12,gnZ)), ; + Column21.Name = "cTI09b", ; + Column21.ReadOnly = .T., ; + Column21.Visible = .T., ; + Column21.Width = 112, ; + Column22.ColumnOrder = 58, ; + Column22.ControlSource = "TI09t", ; + Column22.FontName = "Arial", ; + Column22.FontSize = 10, ; + Column22.InputMask = (get_mask(12,gnZ)), ; + Column22.Name = "cTI09t", ; + Column22.ReadOnly = .T., ; + Column22.Visible = .T., ; + Column22.Width = 106, ; + Column23.ColumnOrder = 45, ; + Column23.ControlSource = "CEsc", ; + Column23.FontName = "Arial", ; + Column23.FontSize = 10, ; + Column23.InputMask = (get_mask(12,gnZ)), ; + Column23.Name = "cCEsc", ; + Column23.ReadOnly = .T., ; + Column23.Visible = .T., ; + Column24.ColumnOrder = 46, ; + Column24.ControlSource = "CEn", ; + Column24.FontName = "Arial", ; + Column24.FontSize = 10, ; + Column24.InputMask = (get_mask(12,gnZ)), ; + Column24.Name = "cCEn", ; + Column24.ReadOnly = .T., ; + Column24.Visible = .T., ; + Column24.Width = 105, ; + Column25.ColumnOrder = 4, ; + Column25.ControlSource = "serie_act", ; + Column25.FontName = "Arial", ; + Column25.FontSize = 10, ; + Column25.Name = "cSerieAct", ; + Column25.ReadOnly = .T., ; + Column25.Visible = .T., ; + Column25.Width = 62, ; + Column26.ColumnOrder = 29, ; + Column26.ControlSource = "ro05b", ; + Column26.FontName = "Arial", ; + Column26.FontSize = 10, ; + Column26.InputMask = (get_mask(12,gnZ)), ; + Column26.Name = "cRo05b", ; + Column26.ReadOnly = .T., ; + Column26.Visible = .T., ; + Column26.Width = 112, ; + Column27.ColumnOrder = 30, ; + Column27.ControlSource = "ro05t", ; + Column27.FontName = "Arial", ; + Column27.FontSize = 10, ; + Column27.InputMask = (get_mask(12,gnZ)), ; + Column27.Name = "cRo05t", ; + Column27.ReadOnly = .T., ; + Column27.Visible = .T., ; + Column27.Width = 113, ; + Column28.ColumnOrder = 14, ; + Column28.ControlSource = "ro19b", ; + Column28.FontName = "Arial", ; + Column28.FontSize = 10, ; + Column28.InputMask = (get_mask(12,gnZ)), ; + Column28.Name = "cRO19b", ; + Column28.ReadOnly = .T., ; + Column28.Visible = .T., ; + Column28.Width = 110, ; + Column29.ColumnOrder = 15, ; + Column29.ControlSource = "ro19t", ; + Column29.FontName = "Arial", ; + Column29.FontSize = 10, ; + Column29.InputMask = (get_mask(12,gnZ)), ; + Column29.Name = "cRo19t", ; + Column29.ReadOnly = .T., ; + Column29.Visible = .T., ; + Column29.Width = 99, ; + Column30.ColumnOrder = 38, ; + Column30.ControlSource = "fo19b", ; + Column30.FontName = "Arial", ; + Column30.FontSize = 10, ; + Column30.InputMask = (get_mask(12,gnZ)), ; + Column30.Name = "cFo19b", ; + Column30.ReadOnly = .T., ; + Column30.Visible = .T., ; + Column30.Width = 110, ; + Column31.ColumnOrder = 39, ; + Column31.ControlSource = "fo19t", ; + Column31.FontName = "Arial", ; + Column31.FontSize = 10, ; + Column31.InputMask = (get_mask(12,gnZ)), ; + Column31.Name = "cFo19t", ; + Column31.ReadOnly = .T., ; + Column31.Visible = .T., ; + Column31.Width = 106, ; + Column32.ColumnOrder = 55, ; + Column32.ControlSource = "ti19b", ; + Column32.FontName = "Arial", ; + Column32.FontSize = 10, ; + Column32.InputMask = (get_mask(12,gnZ)), ; + Column32.Name = "cTi19b", ; + Column32.ReadOnly = .T., ; + Column32.Visible = .T., ; + Column32.Width = 93, ; + Column33.ColumnOrder = 56, ; + Column33.ControlSource = "ti19t", ; + Column33.FontName = "Arial", ; + Column33.FontSize = 10, ; + Column33.InputMask = (get_mask(12,gnZ)), ; + Column33.Name = "cTi19t", ; + Column33.ReadOnly = .T., ; + Column33.Visible = .T., ; + Column33.Width = 97, ; + Column34.ColumnOrder = 59, ; + Column34.ControlSource = "rotn+rotn50+rotn100", ; + Column34.FontName = "Arial", ; + Column34.FontSize = 10, ; + Column34.InputMask = (get_mask(12,gnZ)), ; + Column34.Name = "cROtn", ; + Column34.ReadOnly = .T., ; + Column34.Visible = .T., ; + Column34.Width = 108, ; + Column35.ColumnOrder = 9, ; + Column35.ControlSource = "TOTFTVATAX", ; + Column35.FontName = "Arial", ; + Column35.FontSize = 10, ; + Column35.InputMask = (get_mask(12,gnZ)), ; + Column35.Name = "cTotfTVATax", ; + Column35.ReadOnly = .T., ; + Column35.Visible = .T., ; + Column35.Width = 92, ; + Column36.ColumnOrder = 10, ; + Column36.ControlSource = "TOTTVATAX", ; + Column36.FontName = "Arial", ; + Column36.FontSize = 10, ; + Column36.InputMask = (get_mask(12,gnZ)), ; + Column36.Name = "cTotTVATax", ; + Column36.ReadOnly = .T., ; + Column36.Visible = .T., ; + Column36.Width = 99, ; + Column37.ColumnOrder = 11, ; + Column37.ControlSource = "RO24NB+RO20NB+RO19NB+RO09NB+RO05NB", ; + Column37.FontName = "Arial", ; + Column37.FontSize = 10, ; + Column37.InputMask = (get_mask(12,gnZ)), ; + Column37.Name = "cRONB", ; + Column37.ReadOnly = .T., ; + Column37.Visible = .T., ; + Column37.Width = 107, ; + Column38.ColumnOrder = 12, ; + Column38.ControlSource = "RO24NT+RO20NT+RO19NT+RO09NT+RO05NT", ; + Column38.FontName = "Arial", ; + Column38.FontSize = 10, ; + Column38.InputMask = (get_mask(12,gnZ)), ; + Column38.Name = "cRONT", ; + Column38.ReadOnly = .T., ; + Column38.Visible = .T., ; + Column38.Width = 98, ; + Column39.ColumnOrder = 23, ; + Column39.ControlSource = "RO24NB", ; + Column39.FontName = "Arial", ; + Column39.FontSize = 10, ; + Column39.InputMask = (get_mask(12,gnZ)), ; + Column39.Name = "cRO24NB", ; + Column39.ReadOnly = .T., ; + Column39.Visible = .T., ; + Column39.Width = 120, ; + Column40.ColumnOrder = 24, ; + Column40.ControlSource = "RO24NT", ; + Column40.FontName = "Arial", ; + Column40.FontSize = 10, ; + Column40.InputMask = (get_mask(12,gnZ)), ; + Column40.Name = "cRO24NT", ; + Column40.ReadOnly = .T., ; + Column40.Visible = .T., ; + Column40.Width = 123, ; + Column41.ColumnOrder = 27, ; + Column41.ControlSource = "RO09NB", ; + Column41.FontName = "Arial", ; + Column41.FontSize = 10, ; + Column41.InputMask = (get_mask(12,gnZ)), ; + Column41.Name = "cRO09NB", ; + Column41.ReadOnly = .T., ; + Column41.Visible = .T., ; + Column41.Width = 122, ; + Column42.ColumnOrder = 28, ; + Column42.ControlSource = "RO09NT", ; + Column42.FontName = "Arial", ; + Column42.FontSize = 10, ; + Column42.InputMask = (get_mask(12,gnZ)), ; + Column42.Name = "cRO09NT", ; + Column42.ReadOnly = .T., ; + Column42.Visible = .T., ; + Column42.Width = 125, ; + Column43.ColumnOrder = 31, ; + Column43.ControlSource = "RO05NB", ; + Column43.FontName = "Arial", ; + Column43.FontSize = 10, ; + Column43.InputMask = (get_mask(12,gnZ)), ; + Column43.Name = "cRO05NB", ; + Column43.ReadOnly = .T., ; + Column43.Visible = .T., ; + Column43.Width = 119, ; + Column44.ColumnOrder = 32, ; + Column44.ControlSource = "RO05NT", ; + Column44.FontName = "Arial", ; + Column44.FontSize = 10, ; + Column44.InputMask = (get_mask(12,gnZ)), ; + Column44.Name = "cRO05NT", ; + Column44.ReadOnly = .T., ; + Column44.Visible = .T., ; + Column44.Width = 127, ; + Column45.ColumnOrder = 60, ; + Column45.ControlSource = "tva_incasare", ; + Column45.CurrentControl = "Check1", ; + Column45.FontName = "Arial", ; + Column45.FontSize = 10, ; + Column45.Name = "cTVAIncasare", ; + Column45.ReadOnly = .T., ; + Column45.Sparse = .F., ; + Column45.Visible = .T., ; + Column45.Width = 28, ; + Column46.ColumnOrder = 63, ; + Column46.ControlSource = "sucursala", ; + Column46.FontName = "Arial", ; + Column46.FontSize = 10, ; + Column46.Name = "cSucursala", ; + Column46.ReadOnly = .T., ; + Column46.Visible = .T., ; + Column46.Width = 146, ; + Column47.ColumnOrder = 61, ; + Column47.ControlSource = "actcv.ales", ; + Column47.CurrentControl = "_checkbox1", ; + Column47.FontName = "Arial", ; + Column47.FontSize = 10, ; + Column47.Name = "cAles", ; + Column47.ReadOnly = .F., ; + Column47.Sparse = .F., ; + Column47.Visible = .T., ; + Column47.Width = 28, ; + Column48.ColumnOrder = 62, ; + Column48.ControlSource = "cont", ; + Column48.FontName = "Arial", ; + Column48.FontSize = 10, ; + Column48.Name = "cCont", ; + Column48.ReadOnly = .T., ; + Column48.Visible = .T., ; + Column49.ColumnOrder = 64, ; + Column49.ControlSource = "soldf", ; + Column49.FontName = "Arial", ; + Column49.FontSize = 10, ; + Column49.InputMask = (get_mask(12,gnZ)), ; + Column49.Name = "cSoldF", ; + Column49.ReadOnly = .T., ; + Column49.Visible = .T., ; + Column50.ColumnOrder = 66, ; + Column50.ControlSource = "solddif", ; + Column50.FontName = "Arial", ; + Column50.FontSize = 10, ; + Column50.InputMask = (get_mask(12,gnZ)), ; + Column50.Name = "cSoldDif", ; + Column50.ReadOnly = .T., ; + Column50.Visible = .T., ; + Column50.Width = 108, ; + Column51.ColumnOrder = 65, ; + Column51.ControlSource = "RO24NB+RO20NB+RO19NB+RO09NB+RO05NB+RO24NT+RO20NT+RO19NT+RO09NT+RO05NT", ; + Column51.FontName = "Arial", ; + Column51.FontSize = 10, ; + Column51.InputMask = (get_mask(12,gnZ)), ; + Column51.Name = "cSoldN", ; + Column51.ReadOnly = .T., ; + Column51.Visible = .T., ; + Column51.Width = 82, ; + Column52.ColumnOrder = 13, ; + Column52.ControlSource = "ro20b", ; + Column52.FontName = "Arial", ; + Column52.FontSize = 10, ; + Column52.InputMask = (get_mask(12,gnZ)), ; + Column52.Name = "cRO20B", ; + Column52.ReadOnly = .T., ; + Column52.Visible = .T., ; + Column52.Width = 101, ; + Column53.ColumnOrder = 18, ; + Column53.ControlSource = "ro20t", ; + Column53.FontName = "Arial", ; + Column53.FontSize = 10, ; + Column53.InputMask = (get_mask(12,gnZ)), ; + Column53.Name = "cRO20T", ; + Column53.ReadOnly = .T., ; + Column53.Visible = .T., ; + Column53.Width = 102, ; + Column54.ColumnOrder = 19, ; + Column54.ControlSource = "RO20NB", ; + Column54.FontName = "Arial", ; + Column54.FontSize = 10, ; + Column54.InputMask = (get_mask(12,gnZ)), ; + Column54.Name = "cRO20NB", ; + Column54.ReadOnly = .T., ; + Column54.Visible = .T., ; + Column54.Width = 125, ; + Column55.ColumnOrder = 20, ; + Column55.ControlSource = "RO20NT", ; + Column55.FontName = "Arial", ; + Column55.FontSize = 10, ; + Column55.InputMask = (get_mask(12,gnZ)), ; + Column55.Name = "cRO20NT", ; + Column55.ReadOnly = .T., ; + Column55.Visible = .T., ; + Column55.Width = 122, ; + Column56.ColumnOrder = 34, ; + Column56.ControlSource = "FO20B", ; + Column56.FontName = "Arial", ; + Column56.FontSize = 10, ; + Column56.InputMask = (get_mask(12,gnZ)), ; + Column56.Name = "cFO20B", ; + Column56.ReadOnly = .T., ; + Column56.Visible = .T., ; + Column56.Width = 102, ; + Column57.ColumnOrder = 35, ; + Column57.ControlSource = "FO20T", ; + Column57.FontName = "Arial", ; + Column57.FontSize = 10, ; + Column57.InputMask = (get_mask(12,gnZ)), ; + Column57.Name = "cFO20T", ; + Column57.ReadOnly = .T., ; + Column57.Visible = .T., ; + Column57.Width = 109, ; + Column58.ColumnOrder = 51, ; + Column58.ControlSource = "TI20B", ; + Column58.FontName = "Arial", ; + Column58.FontSize = 10, ; + Column58.InputMask = (get_mask(12,gnZ)), ; + Column58.Name = "cTI20B", ; + Column58.ReadOnly = .T., ; + Column58.Visible = .T., ; + Column58.Width = 95, ; + Column59.ColumnOrder = 52, ; + Column59.ControlSource = "TI20T", ; + Column59.FontName = "Arial", ; + Column59.FontSize = 10, ; + Column59.InputMask = (get_mask(12,gnZ)), ; + Column59.Name = "cTI20T", ; + Column59.ReadOnly = .T., ; + Column59.Visible = .T., ; + Column59.Width = 114, ; + Column60.ColumnOrder = 3, ; + Column60.ControlSource = "dataireg", ; + Column60.FontName = "Arial", ; + Column60.FontSize = 10, ; + Column60.Name = "cDataIreg", ; + Column60.ReadOnly = .T., ; + Column60.Visible = .T., ; + Column60.Width = 100, ; + Column61.ColumnOrder = 16, ; + Column61.ControlSource = "RO19NB", ; + Column61.FontName = "Arial", ; + Column61.FontSize = 10, ; + Column61.Format = "R", ; + Column61.InputMask = (get_mask(12,gnZ)), ; + Column61.Name = "cRO19NB", ; + Column61.ReadOnly = .T., ; + Column61.Width = 125, ; + Column62.ColumnOrder = 17, ; + Column62.ControlSource = "RO19NT", ; + Column62.FontName = "Arial", ; + Column62.FontSize = 10, ; + Column62.Format = "R", ; + Column62.InputMask = (get_mask(12,gnZ)), ; + Column62.Name = "cRO19NT", ; + Column62.ReadOnly = .T., ; + Column62.Width = 119, ; + Column63.ColumnOrder = 67, ; + Column63.ControlSource = "incasat_tot", ; + Column63.FontSize = 10, ; + Column63.InputMask = (get_mask(12,gnZ)), ; + Column63.Name = "Column63", ; + Column63.ReadOnly = .T., ; + Column64.ColumnOrder = 68, ; + Column64.ControlSource = "incasat_exigibil", ; + Column64.FontSize = 10, ; + Column64.InputMask = (get_mask(12,gnZ)), ; + Column64.Name = "Column64", ; + Column64.ReadOnly = .T., ; + Column65.ColumnOrder = 69, ; + Column65.ControlSource = "diferenta_incasare_tva", ; + Column65.FontSize = 10, ; + Column65.InputMask = (get_mask(12,gnZ)), ; + Column65.Name = "Column65", ; + Column65.ReadOnly = .T., ; + Column66.ColumnOrder = 47, ; + Column66.ControlSource = "XX19TIB", ; + Column66.FontSize = 10, ; + Column66.InputMask = (get_mask(12,gnZ)), ; + Column66.Name = "cXX19TIB", ; + Column66.ReadOnly = .T., ; + Column66.Width = 102, ; + Column67.ColumnOrder = 48, ; + Column67.ControlSource = "XX19TIT", ; + Column67.FontSize = 10, ; + Column67.InputMask = (get_mask(12,gnZ)), ; + Column67.Name = "cXX19TIT", ; + Column67.ReadOnly = .T., ; + Column67.Width = 94, ; + Column68.ColumnOrder = 49, ; + Column68.ControlSource = "XX9TIB", ; + Column68.FontSize = 10, ; + Column68.InputMask = (get_mask(12,gnZ)), ; + Column68.Name = "cXX9TIB", ; + Column68.ReadOnly = .T., ; + Column68.Width = 85, ; + Column69.ColumnOrder = 50, ; + Column69.ControlSource = "XX9TIT", ; + Column69.FontSize = 10, ; + Column69.InputMask = (get_mask(12,gnZ)), ; + Column69.Name = "cXX9TIT", ; + Column69.ReadOnly = .T., ; + Column69.Width = 84 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_grdbase1.cAles._checkbox1' AS _checkbox WITH ; + Alignment = 2, ; + Caption = "", ; + FontName = "Arial", ; + FontSize = 10, ; + Left = 39, ; + Name = "_checkbox1", ; + ReadOnly = .F., ; + Top = 70 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT '_grdbase1.cAles.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Ales", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cAles.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cCEb.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Bunuri/servicii din UE =Baza=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cCEb.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cCEn.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Bunuri/servicii din UE =Neimpozabile=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cCEn.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cCEsc.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Bunuri/servicii din UE =Scutite=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cCEsc.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cCEt.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Bunuri/servicii din UE =TVA=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cCEt.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cCod_fiscal.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "C.I.F. / C.N.P.", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cCod_fiscal.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cCont.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cCont.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cDataact.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data act", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cDataact.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cDataIreg.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data inregistrare", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cDataIreg.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cDenumire.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nume", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cDenumire.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cFdoc.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Fel doc.", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cFdoc.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cFo09b.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Bunuri din import =Baza 9%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cFo09b.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cFo09t.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Bunuri din import =TVA 9%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cFo09t.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cFo19b.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Bunuri din import =Baza 19%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cFo19b.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cFo19t.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Bunuri din import =TVA 19%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cFo19t.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cFO20B.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Bunuri din import =Baza 20%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cFO20B.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cFO20T.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Bunuri din import = TVA 20%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cFO20T.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cFo24b.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Bunuri din import =Baza 24%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cFo24b.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cFo24t.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Bunuri din import = TVA 24%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cFo24t.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cFoscn.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Ach. de bunuri din import scutite sau neimpozab.", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cFoscn.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cNract.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. act", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cNract.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column63.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Incasat in luna", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column63.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column64.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Exigibilizat (Baza+TVA)", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column64.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column65.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Diferenta incasat - exigibilizat", ; + Comment = "incasat_dif", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column65.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRo05b.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxabile la intern =Baza 5%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRo05b.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRO05NB.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Neexibigile la intern =Baza 5%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRO05NB.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRO05NT.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Neexibigile la intern =TVA 5%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRO05NT.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRo05t.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxabile la intern =TVA 5%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRo05t.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRo09b.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxabile la intern =Baza 9%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRo09b.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRO09NB.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Neexibigile la intern =Baza 9%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRO09NB.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRO09NT.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Neexibigile la intern =TVA 9%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRO09NT.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRo09t.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxabile la intern =TVA 9%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRo09t.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRO19b.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxabile la intern =Baza 19%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRO19b.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRO19NB.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Neexibigile la intern =Baza 19%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRO19NB.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRO19NT.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Neexibigile la intern =TVA 19%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRO19NT.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRo19t.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxabile la intern =TVA 19%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRo19t.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRO20B.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxabile la intern =Baza 20%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRO20B.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRO20NB.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Neexibigile la intern =Baza 20%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRO20NB.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRO20NT.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Neexibigile la intern =TVA 20%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRO20NT.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRO20T.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxabile la intern =TVA 20%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRO20T.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRo24b.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxabile la intern =Baza 24%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRo24b.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRO24NB.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Neexibigile la intern =Baza 24%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRO24NB.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRO24NT.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Neexibigile la intern =TVA 24%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRO24NT.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRo24t.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxabile la intern =TVA 24%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRo24t.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRONB.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Neexigibil =Baza=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRONB.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRONT.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Neexigibil =TVA=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRONT.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRoscn.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Ach. de bunuri din RO scutite sau neimpozab.", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRoscn.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cROtn.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Limitare deducere TVA", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cROtn.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cSerieAct.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Serie act", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cSerieAct.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cSoldDif.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Diferenta sold (sold fact. - sold neex.)", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cSoldDif.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cSoldF.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sold factura", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cSoldF.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cSoldN.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sold Neexigibil", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cSoldN.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cSucursala.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sucursala", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cSucursala.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cTI09b.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxare inversa =Baza 9%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cTI09b.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cTI09t.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxare inversa =TVA 9%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cTI09t.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cTi19b.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxare inversa =Baza 19%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cTi19b.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cTi19t.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxare inversa =TVA 19%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cTi19t.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cTI20B.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxare inversa =Baza 20%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cTI20B.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cTI20T.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxare inversa =TVA 20%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cTI20T.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cTI24b.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxare inversa =Baza 24%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cTI24b.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cTI24t.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxare inversa =TVA 24%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cTI24t.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cTotctva.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Total cu TVA", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cTotctva.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cTotfTVATax.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxabil la intern =Baza=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cTotfTVATax.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cTotTVATax.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxabil la intern =TVA=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cTotTVATax.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cTVAIncasare.Check1' AS checkbox WITH ; + Alignment = 0, ; + Caption = "", ; + FontName = "Arial", ; + FontSize = 10, ; + Height = 17, ; + Left = 4, ; + Name = "Check1", ; + ReadOnly = .T., ; + Top = 74, ; + Width = 60 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT '_grdbase1.cTVAIncasare.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA Inc.", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cTVAIncasare.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cXX19TIB.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Achizitii Non-UE Tx. inv. =Baza19%=", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cXX19TIB.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cXX19TIT.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Achizitii Non-UE Tx. inv. =TVA19%=", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cXX19TIT.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cXX9TIB.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Achizitii Non-UE Tx. inv. =Baza 9%=", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cXX9TIB.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cXX9TIT.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Achizitii Non-UE Tx. inv. =TVA 9%=", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cXX9TIT.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdfooter1' AS _grdfooter WITH ; + Anchor = 14, ; + ccolwithlabel = cfdoc, ; + csourcegrid = _grdbase1, ; + csumcolumns = cTotctva,cTotfTvaTax,cTotTvaTax,cRONB,cRONT,cRo20b,cRo20t,cRo20Nb,cRo20Nt,cRo24b,cRo24t,cRo24Nb,cRo24Nt,cRo19b,cRo19t,cRo19nb,cRo19nt,cRo09b,cRo09t,cRo09nb,cRo09nt,cRo05b,cRo05t,cRo05nb,cRo05nt,cRoscn,cFo20b,cFo20t,cFo24b,cFo24t,cFo19b,cFo19t,cFo09b,cFo09t,cFoscn,cCEb,cCEt,cCEsc,cCEn,cTI20b,cTI20T,cTI24b,cTI24T,cTI19b,cTI19T,cTi09b,cTI09t,cROTN,cXX19TIB,cXX19TIT,cXX9TIB,cXX9TIT, ; + ctotallabelexpression = 'TOTAL', ; + Height = 25, ; + Left = 11, ; + Name = "_grdfooter1", ; + TabIndex = 18, ; + Top = 480, ; + Width = 768, ; + ZOrderSet = 16 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'But_excel1' AS but_excel WITH ; + Anchor = 8, ; + Left = 702, ; + Name = "But_excel1", ; + TabIndex = 12, ; + Top = 1, ; + ZOrderSet = 6 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_listare1' AS but_listare WITH ; + Anchor = 8, ; + Left = 734, ; + Name = "But_listare1", ; + TabIndex = 11, ; + Top = 1, ; + Visible = .T., ; + ZOrderSet = 7 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_reface1' AS but_reface WITH ; + Anchor = 8, ; + Comment = "*:OnResize=RT", ; + Left = 672, ; + Name = "But_reface1", ; + TabIndex = 13, ; + Top = 1, ; + ZOrderSet = 8 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_reset_criterii1' AS but_reset_criterii WITH ; + Anchor = 9, ; + Left = 583, ; + Name = "But_reset_criterii1", ; + Top = 1, ; + Visible = .T., ; + ZOrderSet = 13 + *< END OBJECT: ClassLib="..\comun\clase\ocriterii.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_start_criterii1' AS but_start_criterii WITH ; + Anchor = 9, ; + Left = 612, ; + Name = "But_start_criterii1", ; + Top = 1, ; + ZOrderSet = 12 + *< END OBJECT: ClassLib="..\comun\clase\ocriterii.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_verifica1' AS but_verifica WITH ; + Anchor = 8, ; + Left = 642, ; + Name = "But_verifica1", ; + TabIndex = 14, ; + ToolTipText = "Verificare coduri fiscale", ; + Top = 1, ; + ZOrderSet = 11 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'cbo_tip_jurnal_cump' AS _combobox WITH ; + Anchor = 3, ; + FontCharSet = 238, ; + FontName = "Segoe UI", ; + FontSize = 10, ; + Height = 24, ; + Left = 12, ; + Name = "cbo_tip_jurnal_cump", ; + RowSource = "Complet,Achizitii din tara,Achizitii din import,Achizitii intracomunitare,Taxare inversa", ; + RowSourceType = 1, ; + TabIndex = 18, ; + ToolTipText = 'Apasati "Cauta" dupa ce alegeti un tip de vizualizare', ; + Top = 37, ; + Width = 254, ; + ZOrderSet = 9 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" /> + + ADD OBJECT 'cmdTVAIncasare' AS cmd_executa WITH ; + Anchor = 8, ; + AutoSize = .T., ; + Caption = "\ + + ADD OBJECT 'Gridextra1' AS gridextra WITH ; + allowgridpreferences = .F., ; + gridexpression = Thisform._grdbase1, ; + Height = 17, ; + Left = 337, ; + Name = "Gridextra1", ; + Top = 49, ; + Width = 19 + *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> + + ADD OBJECT 'Lb_shortcuts1' AS lb_shortcuts WITH ; + Caption = "CTRL+F = Terminare; ESC = Renuntare; CTRL+Q = Cautare; CTRL+T = Resetare", ; + Left = 6, ; + Name = "Lb_shortcuts1", ; + Top = 16, ; + ZOrderSet = 15 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'oMenuShortcut' AS menulib WITH ; + Left = 216, ; + Name = "oMenuShortcut", ; + TabIndex = 16, ; + Top = 7, ; + ZOrderSet = 10 + *< END OBJECT: ClassLib="..\comun\clase\utility.vcx" BaseClass="container" /> + + PROCEDURE actualizeaza_grid1 + LPARAMETERS lcFiltru + + LOCAL lnOptiune + lnOptiune = THISFORM.cbo_tip_jurnal_cump.LISTITEMID + + IF EMPTY(lcFiltru) + lcFiltru = pocump.ca_baza1.cfiltru + ENDIF + + THISFORM.MOUSEPOINTER= 11 + + THISFORM.LOCKSCREEN=.T. + save_grid_tag(THISFORM._grdbase1) + pocump.ca_baza1.cfiltru=lcFiltru + pocump.ca_baza1.afisare() + restore_grid_tag(THISFORM._grdbase1) + DO CASE + CASE lnOptiune = 1 && REGISTRUL CUMPARARI + THIS._grdbase1.ctotctva.CONTROLSOURCE = "TOTCTVA" + + CASE lnOptiune = 2 && REGISTRUL CUMPARARI - DIN TARA + THIS._grdbase1.ctotctva.CONTROLSOURCE = iif(m.gnAn >=2013, "TOTFTVATAX+TOTTVATAX+ROSCN", "RO24B + RO24T + RO20B + RO20T + RO19B + RO19T + RO09B + RO09T + RO05B + RO05T + ROSCN") + + CASE lnOptiune = 3 && REGISTRUL CUMPARARI - DIN IMPORT + THIS._grdbase1.ctotctva.CONTROLSOURCE = "FO24B + FO24T + FO20B + FO20T + FO19B + FO19T + FO09B + FO09T + FOSCN" + + CASE lnOptiune = 4 && REGISTRUL CUMPARARI - INTRACOMUNITARE + THIS._grdbase1.ctotctva.CONTROLSOURCE = "CEB + CET + CESC + CEN" + + CASE lnOptiune = 5 && REGISTRUL CUMPARARI - TAXARE INVERSA + THIS._grdbase1.ctotctva.CONTROLSOURCE = "TI24B + TI24T + TI20B + TI20T + TI19B + TI19T + TI09B + TI09T + xx19tib + xx19tit + xx9tib + xx9tit" + ENDCASE + THISFORM._grdfooter1.calcTotal + + THISFORM.LOCKSCREEN=.F. + THISFORM.MOUSEPOINTER= 0 + + ENDPROC + + PROCEDURE butdrept + Local loDate As "empty" + Local lcCodFiscal, lcDenumire, lcOptiuniMeniuAnte, lnOptiune, lnRaspuns, loPartener + lcOptiuniMeniuAnte = "\ plata din Registrul Jurnal) + + *!* 25.09.2013 + *!* marius.mutu + *!* FILTRU DIFERENTA SOLD FACTURA - SOLD NEEXIGIBIL (BAZA + TVA) PENTRU FACTURILE TVA INCASARE + + Local lcFiltru + lcFiltru = [luna=]+Alltrim(Str(gnLuna))+[ and an=]+Alltrim(Str(gnAn))+ gcCondSucursala + + *!* 23.07.2010 + && DACA FILTRUL NU CONTINE PERIOADA, SELECTEZ DOAR INREGISTRARILE DIN LUNA CURENTA + If !'PERIOADA'$Upper(Thisform.filtru_pretty_ro_full) + lcFiltru = [LUNA=]+Alltrim(Str(gnLuna))+[ AND AN=]+Alltrim(Str(gnAn)) + gcCondSucursala + Else + lcFiltru = Substr(gcCondSucursala, 6) + Endif + *!* 23.07.2010 ^ + + lnOptiune = Thisform.cbo_tip_jurnal_cump.ListItemId + Thisform.nlistitemid = lnOptiune + + + If Len(Thisform.filtru_pretty)>0 + filtrutext=Thisform.filtru_pretty + If At("AND",filtrutext)=1 + filtrutext=Right(filtrutext,Len(filtrutext)-4) + Endif + + lcFiltru = lcFiltru + Iif(!Empty(m.lcFiltru), " and ", "") + Alltrim(filtrutext) + Endif + Do Case + Case lnOptiune = 1 + Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL CUMPARARI] + Case lnOptiune = 2 + Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL CUMPARARI - DIN TARA] + *!* marius.mutu + *!* 21.06.2007 + *!* facturile RO <> 0 SAU facturile cu toate coloanele <> 0 + lcFiltru = lcFiltru + [AND ((RO24B<>0 OR RO24T<>0 OR RO20B<>0 OR RO20T<>0 OR RO19B<>0 OR RO19T<>0 OR RO09B<>0 OR RO09T<>0 OR RO05B<>0 OR RO05T<>0 OR ROSCN<>0 OR ROTN<>0 OR ] + ; + [ ro24nb<>0 OR ro24nt<>0 OR ro20nb<>0 OR ro20nt<>0 OR ro19nb<>0 OR ro19nt<>0 OR ro9nb<>0 OR ro9nt<>0 OR ro5nb<>0 OR ro5nt<>0) OR ] + ; + [(TOTCTVA = 0 and RO24B = 0 and RO24T = 0 and RO20B = 0 and RO20T = 0 and RO19B = 0 and RO19T = 0 and RO05B = 0 and RO05T = 0 and RO09B = 0 and RO09T = 0 and ROSCN = 0 and ROTN = 0 ] + ; + [ and FO24B = 0 and FO24T = 0 and FO20B = 0 and FO20T = 0 and FO19B = 0 and FO19T = 0 and FO09B = 0 and FO09T = 0 and FOSCN = 0 ] + ; + [ and CEB = 0 and CET = 0 and CESC = 0 and CEN = 0 ] + ; + [ and XX19TIB = 0 and XX19TIT = 0 and XX9TIB = 0 and XX9TIT = 0 ] + ; + [ and TI24B = 0 and TI24T = 0 and TI20B = 0 and TI20T = 0 and TI19B = 0 and TI19T = 0 and TI09B = 0 and TI09T = 0 ] + ; + [ and ro24nb = 0 and ro24nt = 0 and ro20nb = 0 and ro20nt = 0 and ro19nt = 0 and ro9nb = 0 and ro9nt = 0 and ro5nb = 0 and ro5nt = 0)) ] + + Case lnOptiune = 3 + Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL CUMPARARI - DIN IMPORT] + lcFiltru = lcFiltru + [AND (FO24B<>0 OR FO24T<>0 OR FO20B<>0 OR FO20T<>0 OR FO19B<>0 OR FO19T<>0 OR FO09B<>0 OR FO09T<>0 OR FOSCN<>0)] + + Case lnOptiune = 4 + Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL CUMPARARI - INTRACOMUNITARE] + lcFiltru = lcFiltru + [AND (CEB<>0 OR CET<>0 OR CESC<>0 OR CEN<>0)] + + Case lnOptiune = 5 + Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL CUMPARARI - TAXARE INVERSA] + lcFiltru = lcFiltru + [AND (TI24B<>0 OR TI24T<>0 OR TI20B<>0 OR TI20T<>0 OR TI19B<>0 OR TI19T<>0 OR TI09B<>0 OR TI09T<>0 OR XX19TIB <> 0 OR XX19TIT <> 0 OR XX9TIB <> 0 OR XX9TIT <> 0)] + ENDCASE + + If (This.filtru_pretty#"none") + + *** daca sunt inainte de 2013 sau vreau sa vad facturile TVA Incasare cu diferenta sold inregistrari parteneri fata de sold neexigibil + *** pentru exibilizare fortata, arat facturile defalcate dupa id_fact (vjc2010), altfel arat facturile cumulate dupa nract, dataact + if(m.gnAn < 2013 or 'DIFERENTA SOLD'$Upper(Thisform.filtru_pretty_ro_full)) + poCump.ca_baza1.SELECTCMD = STRTRAN(poCump.ca_baza1.SELECTCMD, [vjc2013], [vjc2010],1,1,1) + poCump.ca_baza1.cSelect = STRTRAN(poCump.ca_baza1.cSelect, [vjc2013], [vjc2010],1,1,1) + ELSE + poCump.ca_baza1.SELECTCMD = STRTRAN(poCump.ca_baza1.SELECTCMD, [vjc2010], [vjc2013],1,1,1) + poCump.ca_baza1.cSelect = STRTRAN(poCump.ca_baza1.cSelect, [vjc2010], [vjc2013],1,1,1) + ENDIF + + Thisform.actualizeaza_grid1(lcFiltru) + Thisform.do_executa(lnOptiune) + If Reccount('actcv')=0 + aMESSAGEBOX("Cautarea nu a intors rezultate!",64,"Info cautare") + * THISFORM.ck_nract.SETFOCUS() + Endif + + *** FILTRU DIFERENTE INCASAT - TVA EXIGIBIL PENTRU FACTURILE TVA INCASARE + If 'TVA INCASARE'$Upper(Thisform.filtru_pretty_ro_full) + + TEXT to lcSql noshow textmerge + select an, + luna, + min(id_fact) as id_fact, + dataact, + nract, + serie_act, + id_part, + id_fdoc, + id_sucursala, + sum(totctva) as totctva, + sum(nvl(total_incasat, 0)) as incasat_tot, + SUM(NVL(tva_exigibil, 0)) as incasat_exigibil, + sum(nvl(total_incasat, 0) - tva_exigibil) as diferenta_incasare_tva + from (select a.an, + a.luna, + a.id_fact, + a.dataact, + a.nract, + a.serie_act, + a.id_fdoc, + a.id_sucursala, + a.id_part, + a.totctva, + nvl(b.total_incasat, 0) as total_incasat, + (a.ro24b + a.ro24t + a.ro20b + a.ro20t + a.ro19bcb + a.ro19bct + a.ro19bvb + + a.ro19bvt + a.ro19bfb + a.ro19bft + a.ro09bcb + a.ro09bct + a.ro09bvb + + a.ro09bvt + a.ro09bfb + a.ro09bft + a.ro05b + a.ro05t + + a.roscn) as tva_exigibil + from (select an, + luna, + id_fact, + id_sucursala, + id_part, + id_fdoc, + nract, + dataact, + serie_act, + totctva, + ro24b, + ro24t, + ro20b, + ro20t, + ro19bcb, + ro19bct, + ro19bvb, + ro19bvt, + ro19bfb, + ro19bft, + ro09bcb, + ro09bct, + ro09bvb, + ro09bvt, + ro09bfb, + ro09bft, + ro05b, + ro05t, + roscn + from jc2007 jc + where an = <> + and luna = <> + and (ro24nb <> 0 + or ro20nb <> 0 + or ro19nb <> 0 + or ro9nb <> 0 + or ro5nb <> 0) <>) a + left join (select an, + luna, + id_sucursala, + (case + when id_jtva_coloana in + (102,104,106,110,112,155,157,177) then + id_fact + else + id_factd + end) as id_fact, + sum(case + when id_jtva_coloana in + (102,104,106,110,112,155,157,177) then + suma + else + 0 + end) as ex, + sum(case + when id_jtva_coloana in + (102,104,106,110,112,155,157,177) then + 0 + else + suma + end) as total_incasat + from act + where sters = 0 + and an = <> + and luna = <> + <> + and (id_jtva_coloana in (102,104,106,110,112,155,157,177) or + id_factd <> 0) + group by an, + luna, + id_sucursala, + (case + when id_jtva_coloana in + (102,104,106,110,112,155,157,177) then + id_fact + else + id_factd + end)) b + on a.id_fact = b.id_fact + and a.an = b.an + and a.luna = b.luna + and nvl(a.id_sucursala, 0) = nvl(b.id_sucursala, 0) + where nvl(b.total_incasat, 0.00) <> 0 AND nvl(b.total_incasat, 0.00) - + (a.ro24b + a.ro24t + a.ro20b + a.ro20t + a.ro19bcb + a.ro19bct + a.ro19bvb + + a.ro19bvt + a.ro19bfb + a.ro19bft + a.ro09bcb + a.ro09bct + a.ro09bvb + + a.ro09bvt + a.ro09bfb + a.ro09bft + a.ro05b + a.ro05t + + a.roscn) <> 0) + group by an, + luna, + dataact, + nract, + serie_act, + id_part, + id_fdoc, + id_sucursala + + ENDTEXT + + llSucces = goExecutor.oExecuta(m.lcSql, "crsDiferenteTVA") + If m.llSucces + Select crsDiferenteTVA + Scan + Scatter Name loDiferenta + With loDiferenta + Select actcv + Locate For nract = .nract And dataact = .dataact And id_part = .id_part And Nvl(serie_act,'') = Nvl(.serie_act,'') And Nvl(id_sucursala,0) = Nvl(.id_sucursala,0) And Nvl(id_fdoc,0) = Nvl(.id_fdoc, 0) + If Found() + Replace diferenta_incasare_tva With .diferenta_incasare_tva, incasat_tot WITH .incasat_tot, incasat_exigibil WITH .incasat_exigibil + Endif + Endwith + Endscan && crsDiferenteTVA + + Select actcv + Set Filter To Nvl(diferenta_incasare_tva, 0) <> 0 + Go Top In actcv + Thisform._grdbase1.Refresh() + Thisform._grdfooter1.calcTotal + Endif && m.llSucces + Endif && 'TVA INCASARE' + + *** FILTRU DIFERENTA SOLD FACTURA - SOLD NEEXIGIBIL (BAZA + TVA) PENTRU FACTURILE TVA INCASARE + If 'DIFERENTA SOLD'$Upper(Thisform.filtru_pretty_ro_full) + TEXT to lcSql noshow textmerge + select jc.id_fact, + ip.cont, + nvl(ip.sold, 0) as soldf, + (ro24nb + ro24nt + ro20nb + ro20nt + ro19nb + ro19nt + ro9nb + ro9nt + ro5nb + ro5nt) as soldn, + nvl(ip.sold, 0) - (ro24nb + ro24nt + ro20nb + ro20nt + ro19nb + ro19nt + ro9nb + ro9nt + ro5nb + ro5nt) as solddif, + jc.denumire, + jc.nract, + jc.serie_act, + jc.id_sucursala, + jc.id_fdoc, + jc.id_part, + jc.dataact, + jc.totctva, + jc.ro24nb, + jc.ro24nt, + jc.ro20nb, + jc.ro20nt, + jc.ro19nb, + jc.ro19nt, + jc.ro9nb, + jc.ro9nt, + jc.ro5nb, + jc.ro5nt + from vjc2010 jc + left join (select id_fact, + cont, + sum(preccred + credit - (precdeb + debit)) as sold + from vireg_parteneri + where an = <> + and luna = <> + and cont <> '409' + and id_fact in + (select distinct id_fact + from vjc2010 + where an = <> + and luna = <> + and (ro24nt <> 0 or ro20nt <> 0 or ro19nt <> 0 or ro9nt <> 0 or ro5nt <> 0) + and tva_incasare = 1) + group by id_fact, cont) ip + on jc.id_fact = ip.id_fact + where jc.an = <> + and jc.luna = <> + and jc.tva_incasare = 1 + and (jc.ro24nt <> 0 or jc.ro20nt <> 0 or jc.ro19nt <> 0 or jc.ro9nt <> 0 or jc.ro5nt <> 0) + and nvl(ip.sold, 0) - (ro24nb + ro24nt + ro20nb + ro20nt + + ro19nb + ro19nt + ro9nb + ro9nt + ro5nb + ro5nt) <> 0 + ENDTEXT + + llSucces = goExecutor.oExecuta(m.lcSql, "crsSoldDif") + If m.llSucces + Select crsSoldDif + Scan + Scatter Name loDiferenta + With loDiferenta + Select actcv + Locate For id_fact = .id_fact && nract = .nract And dataact = .dataact And id_part = .id_part And Nvl(serie_act,'') = Nvl(.serie_act,'') And Nvl(id_sucursala,0) = Nvl(.id_sucursala,0) And Nvl(id_fdoc,0) = Nvl(.id_fdoc, 0) + If Found() + Replace cont With .cont, soldf WITH .soldf, solddif WITH .solddif + Endif + Endwith + Endscan && crsDiferenteTVA + + Select actcv + Set Filter To Nvl(solddif, 0) <> 0 + Go Top In actcv + Thisform._grdbase1.Refresh() + Thisform._grdfooter1.calcTotal + SELECT actcv + Endif && m.llSucces + Endif && DIFERENTA SOLD + + Endif && (This.filtru_pretty#"none") + + ENDPROC + + PROCEDURE do_excel + do export_excel_grid WITH thisform._grdbase1,"dataact, nract", "", this.lb_titlu_alb_b121.caption IN proceduri_excel.prg + ENDPROC + + PROCEDURE do_executa + Lparameters tnOptiune + Thisform._grdbase1.SetAll("Visible",.F.,"Column") + Thisform._grdfooter1.SetAll("Visible",.F.,"Column") + Do Case + Case tnOptiune = 1 + *** TOATE ACHIZITIILE + Thisform._grdbase1.SetAll("Visible",.T.,"Column") + Thisform._grdfooter1.SetAll("Visible",.T.,"Column") + Case tnOptiune = 2 + *** ACHIZITII RO + With Thisform._grdbase1 + .cfdoc.Visible = .T. + .cdataact.Visible = .T. + .cnract.Visible = .T. + .cSerieAct.Visible = .T. + .cdenumire.Visible = .T. + .ccod_fiscal.Visible = .T. + .ctotctva.Visible = .T. + .cro24b.Visible = .T. + .cro24t.Visible = .T. + .cro20b.Visible = .T. + .cro20t.Visible = .T. + .cro19b.Visible = .T. + .cro19t.Visible = .T. + .cro09b.Visible = .T. + .cro09t.Visible = .T. + .croscn.Visible = .T. + .cro05b.Visible = .T. + .cro05t.Visible = .T. + .cRoTn.Visible = .T. + .ctotftvatax.Visible = .T. + .ctottvatax.Visible = .T. + .cronb.Visible = .T. + .cront.Visible = .T. + .cro24nb.Visible = .T. + .cro24nt.Visible = .T. + .cro20nb.Visible = .T. + .cro20nt.Visible = .T. + .cro19nb.Visible = .T. + .cro19nt.Visible = .T. + .cro09nb.Visible = .T. + .cro09nt.Visible = .T. + .cro05nb.Visible = .T. + .cro05nt.Visible = .T. + .Refresh() + Endwith + With Thisform._grdfooter1 + .cfdoc.Visible = .T. + .cdataact.Visible = .T. + .cnract.Visible = .T. + .cSerieAct.Visible = .T. + .cdenumire.Visible = .T. + .ccod_fiscal.Visible = .T. + .ctotctva.Visible = .T. + .cro24b.Visible = .T. + .cro24t.Visible = .T. + .cro20b.Visible = .T. + .cro20t.Visible = .T. + .cro19b.Visible = .T. + .cro19t.Visible = .T. + .cro09b.Visible = .T. + .cro09t.Visible = .T. + .croscn.Visible = .T. + .cro05b.Visible = .T. + .cro05t.Visible = .T. + .cRotn.Visible = .T. + .ctotftvatax.Visible = .T. + .ctottvatax.Visible = .T. + .cronb.Visible = .T. + .cront.Visible = .T. + .cro24nb.Visible = .T. + .cro24nt.Visible = .T. + .cro20nb.Visible = .T. + .cro20nt.Visible = .T. + .cro19nb.Visible = .T. + .cro19nt.Visible = .T. + .cro09nb.Visible = .T. + .cro09nt.Visible = .T. + .cro05nb.Visible = .T. + .cro05nt.Visible = .T. + .Refresh() + Endwith + Case tnOptiune = 3 + *** ACHIZITII IMPORT + With Thisform._grdbase1 + .cfdoc.Visible = .T. + .cdataact.Visible = .T. + .cnract.Visible = .T. + .cSerieAct.Visible = .T. + .cdenumire.Visible = .T. + .ccod_fiscal.Visible = .T. + .ctotctva.Visible = .T. + .cfo24b.Visible = .T. + .cfo24t.Visible = .T. + .cfo20b.Visible = .T. + .cfo20t.Visible = .T. + .cfo19b.Visible = .T. + .cfo19t.Visible = .T. + .cfo09b.Visible = .T. + .cfo09t.Visible = .T. + .cfoscn.Visible = .T. + .Refresh() + Endwith + With Thisform._grdfooter1 + .cfdoc.Visible = .T. + .cdataact.Visible = .T. + .cnract.Visible = .T. + .cSerieAct.Visible = .T. + .cdenumire.Visible = .T. + .ccod_fiscal.Visible = .T. + .ctotctva.Visible = .T. + .cfo24b.Visible = .T. + .cfo24t.Visible = .T. + .cfo20b.Visible = .T. + .cfo20t.Visible = .T. + .cfo19b.Visible = .T. + .cfo19t.Visible = .T. + .cfo09b.Visible = .T. + .cfo09t.Visible = .T. + .cfoscn.Visible = .T. + .Refresh() + Endwith + Case tnOptiune = 4 + *** ACHIZITII CE + With Thisform._grdbase1 + .cfdoc.Visible = .T. + .cdataact.Visible = .T. + .cnract.Visible = .T. + .cSerieAct.Visible = .T. + .cdenumire.Visible = .T. + .ccod_fiscal.Visible = .T. + .ctotctva.Visible = .T. + .cceb.Visible = .T. + .ccet.Visible = .T. + .ccesc.Visible = .T. + .ccen.Visible = .T. + .Refresh() + Endwith + With Thisform._grdfooter1 + .cfdoc.Visible = .T. + .cdataact.Visible = .T. + .cnract.Visible = .T. + .cSerieAct.Visible = .T. + .cdenumire.Visible = .T. + .ccod_fiscal.Visible = .T. + .ctotctva.Visible = .T. + .cceb.Visible = .T. + .ccet.Visible = .T. + .ccesc.Visible = .T. + .ccen.Visible = .T. + .Refresh() + Endwith + Case tnOptiune = 5 + *** TAXARE INVERSA + With Thisform._grdbase1 + .cfdoc.Visible = .T. + .cdataact.Visible = .T. + .cnract.Visible = .T. + .cSerieAct.Visible = .T. + .cdenumire.Visible = .T. + .ccod_fiscal.Visible = .T. + .ctotctva.Visible = .T. + .cti24b.Visible = .T. + .cti24t.Visible = .T. + .cti20b.Visible = .T. + .cti20t.Visible = .T. + .cti19b.Visible = .T. + .cti19t.Visible = .T. + .cti09b.Visible = .T. + .cti09t.Visible = .T. + .cXX19TIB.Visible = .T. + .cXX19TIT.Visible = .T. + .cXX9TIB.Visible = .T. + .cXX9TIT.Visible = .T. + .Refresh() + Endwith + With Thisform._grdfooter1 + .cfdoc.Visible = .T. + .cdataact.Visible = .T. + .cnract.Visible = .T. + .cSerieAct.Visible = .T. + .cdenumire.Visible = .T. + .ccod_fiscal.Visible = .T. + .ctotctva.Visible = .T. + .cti24b.Visible = .T. + .cti24t.Visible = .T. + .cti20b.Visible = .T. + .cti20t.Visible = .T. + .cti19b.Visible = .T. + .cti19t.Visible = .T. + .cti09b.Visible = .T. + .cti09t.Visible = .T. + .cXX19TIB.Visible = .T. + .cXX19TIT.Visible = .T. + .cXX9TIB.Visible = .T. + .cXX9TIT.Visible = .T. + .Refresh() + Endwith + Endcase + + ENDPROC + + PROCEDURE do_listare + *!* 06.08.2010 + *!* adaugare coloana 19% si 5% pe rapoarte suplimentare *_2.frx + *!* RAPORT SUPLIMENTAR 5%, 19% (achizitii RO, FO, TI) + + Private pcTitlu, pcSubtitlu + pcTitlu = "Registru cumparari" + Store "" To pcSubtitlu + *!* 16.04.2007 + *!* marius.mutu + *!* listare cu recapitulatie + *!* pnOptiune = Thisform.nlistitemid + lnTipJurnal = Thisform.nlistitemid - 1 + If This.filtru_traducere()#"" + lctext=" si "+This.filtru_traducere() + Else + lctext="" + Endif + + pcSubtitlu1 = This.filtru_pretty_ro + lctext + **************************************************************** + If lnTipJurnal = 0 && Complet + x = xmenu("Achizitii de bunuri si prestari de sevicii taxabile din tara;Achizitii de bunuri si prestari de sevicii taxabile din import;Achizitii intracomunitare de bunuri;Taxare inversa;" + ; + "\-;Recapitulatie - Achizitii de bunuri si prestari de sevicii taxabile din tara;Recapitulatie - Achizitii de bunuri si prestari de sevicii taxabile din import;Recapitulatie - Achizitii intracomunitare de bunuri;Recapitulatie - Taxare inversa") + Else + Do Case + Case lnTipJurnal = 1 + lnMeniu = xmenu("Achizitii de bunuri si prestari de sevicii taxabile din tara;Recapitulatie - Achizitii de bunuri si prestari de sevicii taxabile din tara") + x = Iif(lnMeniu = 1, 1, Iif(lnMeniu = 2, 6, 0)) + + Case lnTipJurnal = 2 + lnMeniu = xmenu("Achizitii de bunuri si prestari de sevicii taxabile din import;Recapitulatie - Achizitii de bunuri si prestari de sevicii taxabile din import") + x = Iif(lnMeniu = 1, 2, Iif(lnMeniu = 2, 7, 0)) + + Case lnTipJurnal = 3 + lnMeniu = xmenu("Achizitii intracomunitare de bunuri;Recapitulatie - Achizitii intracomunitare de bunuri") + x = Iif(lnMeniu = 1, 3, Iif(lnMeniu = 2, 8, 0)) + + Case lnTipJurnal = 4 + lnMeniu = xmenu("Taxare inversa;Recapitulatie - Taxare inversa") + x = Iif(lnMeniu = 1, 4, Iif(lnMeniu = 2, 9, 0)) + Endcase + Endif + + If !Between(x,1,9) + Return + Endif + + *!* pcdataora=get_ora(2) + + lcWhere = "" + + Do Case + Case Inlist(x, 1, 6) + pcSubtitlu = "Achizitii de bunuri si prestari de sevicii taxabile din tara" + lcRaport = [registru_cumparari_jtva2010_ro] + + *!* facturile RO <> 0 SAU facturile cu toate coloanele <> 0 + lcWhere = [((RO24B<>0 OR RO24T<>0 OR RO20B<>0 OR RO20T<>0 OR RO19B<>0 OR RO19T<>0 OR RO09B<>0 OR RO09T<>0 ] + ; + [OR RO05B<>0 OR RO05T<>0 OR ROSCN<>0 OR ROTN<>0) OR ] + ; + [(TOTCTVA = 0 and RO24B = 0 and RO24T = 0 and RO20B = 0 and RO20T = 0 and RO19B = 0 and RO19T = 0 and RO05B = 0 and RO05T = 0 ] + ; + [ and RO09B = 0 and RO09T = 0 and ROSCN = 0 and ROTN = 0 ] + ; + [ and FO24B = 0 and FO24T = 0 and FO20B = 0 and FO20T = 0 and FO19B = 0 and FO19T = 0 and FO09B = 0 and FO09T = 0 and FOSCN = 0 ] + ; + [ and CEB = 0 and CET = 0 and CESC = 0 and CEN = 0 ] + ; + [ and TI24B = 0 and TI24T = 0 and TI20B = 0 and TI20T = 0 and TI19B = 0 and TI19T = 0 and TI09B = 0 and TI09T = 0 ] + ; + [ and XXTI19B = 0 and XXTI19T = 0 and XXTI9B = 0 and XXTI9T = 0))] + + Case Inlist(x, 2, 7) + pcSubtitlu = "Achizitii de bunuri si prestari de sevicii taxabile din import" + lcRaport = [registru_cumparari_jtva2010_fo] + + lcWhere = [(FO24B<>0 OR FO24T<>0 OR FO20B<>0 OR FO20T<>0 OR FO19B<>0 OR FO19T<>0 OR FO09B<>0 OR FO09T<>0 OR FOSCN<>0)] + + Case Inlist(x, 3, 8) + pcSubtitlu = "Achizitii intracomunitare de bunuri" + lcRaport = [registru_cumparari_jtva2010_ce] + + lcWhere = [(CEB<>0 OR CET<>0 OR CESC<>0 OR CEN<>0)] + + Case Inlist(x, 4, 9) + pcSubtitlu = "Bunuri si Sevicii pentru care cumparatorul este obligat la plata taxei (din Tara, Import si Servicii UE) - Taxare Inversa" + lcRaport = [registru_cumparari_jtva2010_ti] + + lcWhere = [(TI24B<>0 OR TI24T<>0 OR TI20B<>0 OR TI20T<>0 OR TI19B<>0 OR TI19T<>0 OR TI09B<>0 OR TI09T<>0 OR XXTI19B<>0 OR XXTI19T<>0 OR XXTI9B<>0 OR XXTI9T<>0)] + + Endcase + + + && REGISTRU TVA LUNA CURENTA + Select 0 As tip, * ; + FROM actcv ; + WHERE &lcWhere ; + INTO Cursor cListRC ; + ORDER By dataact, nract ; + READWRITE + + + If Between(x, 1, 5) And _Tally = 0 + amessagebox("Nu exista inregistrari pentru listare!",48,"Atentie") + Endif + + && REGISTRE TVA RECAPITULATIE + If Between(x, 5, 9) + + Private pnAn, pnLuna + pnAn = 0 + pnLuna = 0 + locaut = Createobject('frm_caut_anluna') + locaut.Show(1) + If buton = 2 + Return + Endif + + lcSelect = [select 1 as tip, an, luna, to_date('','ddmmyyyy') as dataact, 000000000 as nract,] + ; + [ (select numeluna || ' ' || to_char(an) from lunilean where nrluna = luna) as denumire,' ' as cod_fiscal, ] + ; + [SUM(TOTCTVA) AS TOTCTVA, ] + ; + [SUM(CEB) AS CEB, SUM(CET) AS CET, SUM(CEN) AS CEN, ] + ; + [SUM(CESC) AS CESC, ] + ; + [SUM(FOSCN) AS FOSCN, SUM(FO09B) AS FO09B, SUM(FO09T) AS FO09T, ] + ; + [SUM(FO24B) AS FO24B, SUM(FO24T) AS FO24T, SUM(FO20B) AS FO20B, SUM(FO20T) AS FO20T, SUM(FO19B) AS FO19B, SUM(FO19T) AS FO19T, ] + ; + [SUM(ROSCN) AS ROSCN, SUM(RO09B) AS RO09B, SUM(RO09T) AS RO09T, SUM(RO05B) AS RO05B, SUM(RO05T) AS RO05T, ]+; + [SUM(RO24B) AS RO24B, SUM(RO24T) AS RO24T, SUM(RO20B) AS RO20B, SUM(RO20T) AS RO20T, SUM(RO19B) AS RO19B, SUM(RO19T) AS RO19T, Sum(ROTN) AS ROTN, ] + ; + [SUM(TI09B) AS TI09B, SUM(TI09T) AS TI09T, SUM(TI19B) AS TI19B, SUM(TI19T) AS TI19T, SUM(TI24B) AS TI24B, SUM(TI24T) AS TI24T, SUM(TI20B) AS TI20B, SUM(TI20T) AS TI20T, ] + ; + [SUM(XXTI9B) AS XXTI9B, SUM(XXTI9T) AS XXTI9T, SUM(XXTI19B) AS XXTI19B, SUM(XXTI19T) AS XXTI19T ] + ; + [ FROM VJC2010 ] + ; + [ WHERE an*12+luna between ?pnAn*12 + ?pnLuna and ?gnAn*12 + ?gnLuna] + Iif(!Empty(lcWhere), " and " + lcWhere, "") + ; + [ GROUP BY an, luna ] + ; + [ ORDER BY an, luna ] && 08.02.2010 + + + lnSucces = goExecutor.oExecute(lcSelect, "crsTotal") + If lnSucces < 0 + amessagebox(goExecutor.cEroare,0+16,"Eroare") + Else + Select cListRC + Append From Dbf('crsTotal') + Use In crsTotal + Endif + Endif && BETWEEN(x, 5, 9) + If (Between(x, 1, 5) And _Tally > 0) Or Between(x,5,9) + *!* IF USED('cListRc') AND !EMPTY(lcRaport) + *!* THISFORM.ALWAYSONTOP=.F. + *!* SELECT cListRC + *!* REPORT FORMAT (lcRaport) TO PRINTER PROMPT PREVIEW + *!* THISFORM.ALWAYSONTOP=.T. + *!* ENDIF + Thisform.AlwaysOnTop = .F. + goExport.export2frx([cListRc],lcRaport) + + *!* 06.08.2010 + IF INLIST(x, 1, 2, 4, 6, 7, 9) + Select cListRC + DO CASE + CASE Inlist(x, 1, 6) + Set Filter To ro05b <> 0 Or ro05t <> 0 OR ro19b<>0 or ro19t<>0 + CASE Inlist(x, 2, 7) + Set Filter To fo19b<>0 OR fo19t<>0 + CASE Inlist(x, 4, 9) + Set Filter To ti19b<>0 OR ti19t<>0 OR ti09b<>0 OR ti09t<>0 OR xxti19b<>0 OR xxti19t<>0 OR xxti9b<>0 OR xxti9t<>0 + ENDCASE + Go Top + If !Empty(denumire) + lcRaport2 = lcRaport + "_2" + goExport.export2frx([cListRc],lcRaport2) + ENDIF + ENDIF + *!* 06.08.2010 ^ + + Thisform.AlwaysOnTop = .T. + Endif + + If Used('cListRC') + Use In cListRC + Endif + + + + ENDPROC + + PROCEDURE do_listare2013 + *!* 14.03.2013 + *!* marius.mutu + *!* corectare mai multe facturi cu acelasi cod (nota fara predefinire) - nu aparea nume, nract, dataact in listare + + *!* 23.09.2013 + *!* marius.mutu + *!* Se includ si facturile fara TVA INCASARE cu valoare 0 + + *!* 17.10.2013 + *!* marius.mutu + *!* la facturile fara TVA Incasare cu valoare 0, aparea o linie goala + + *!* 23.05.2014 + *!* marius.mutu + *!* am defalcat achizitiile din CE in achizitii bunuri CE si achizitii servicii CE (la cererea Silvia Carapetru) + *!* in vizualizare sunt in continuare comasate (CEB = CEBB + CESB, CET = CEBT + CEST) + + *!* 23.05.2016 + *!* marius.mutu + *** selectez facturile tva la incasare doar pe cele din filtrul curent (interne, import, CE, taxare inversa, total) + + *!* 16.01.2019 + *!* marius.mutu + *!* corectat cod tva TI19BFB in TI19B pentru facturile cu taxare inversa de pe facturile TVA_INCASARE + + *!* 09.04.2019 + *!* marius.mutu + *!* corectat CEBFSC la recapitulatie + + *!* 26.05.2022 + *!* marius.mutu + *!* tratare bug se bloca la listare doar pe calculatorul Silviei la selectie din (cListRC, jtva_coloane) + + Private pcTitlu, pcSubtitlu, pcPerioada, pcSubtitlu1, pcdataora + Local lcNumeAct, lcRaport, lcSelect, lcSql, lcWhere, lctext, lddata1, lddata2, llSucces, lnCod, lcSerieAct + Local lnDiferenta, lnIdFact, lnIncasat3, lnMeniu, lnNrCrt, lnNrCrtF, lnNrc, lnPerioada, lnSucces + Local lnTip, lnTipJurnal, lnOptiuneBug + *:Global pnAn, pnLuna + + pcTitlu = "Registru cumparari" + pcSubtitlu = "" + + lnTipJurnal = Thisform.nlistitemid - 1 + If This.filtru_traducere() # "" + lctext = " si " + This.filtru_traducere() + Else + lctext = "" + Endif + + pcSubtitlu1 = This.filtru_pretty_ro + m.lctext + pcPerioada = Padl(m.gnLuna,2,'0') + '/' + Alltrim(Str(m.gnAn)) + **************************************************************** + lnMeniu = xmenu("Registru Cumparari lunar;Registru Cumparari - recapitulatie 3 luni;Registru Cumparari - recapitulatie an curent") + If !Inlist(m.lnMeniu, 1, 2, 3) + Return + Endif + + pcdataora = get_ora(2) + + && REGISTRU TVA LUNA CURENTA + Select 0 As tip, * ; + FROM actcv ; + INTO Cursor cListRC ; + ORDER By dataact, nract ; + READWRITE + + If m.lnMeniu = 1 And _Tally = 0 + amessagebox("Nu exista inregistrari pentru listare!", 48, "Atentie") + Endif + + *** FILTRU PENTRU RECAPITULATIE + lcWhere = pocump.ca_baza1.cfiltru + + *** STERG LUNA=XX AND AN=XXXX DIN FILTRU (in cazul in care vreau sa aduc si lunile din recapitulatie) + If Left(Upper(lcWhere),4) = 'LUNA' + lnPos = Atc('AN=', lcWhere,1) + If m.lnPos > 0 + lcWhere = Alltrim(Substr(m.lcWhere, m.lnPos + 11)) + Endif + Endif + + Do Case + Case m.lnTipJurnal = 1 + pcSubtitlu = "Achizitii de bunuri si prestari de sevicii taxabile din tara" + lcRaport = [registru_cumparari_jtva2010_ro] + + *!* facturile RO <> 0 SAU facturile cu toate coloanele <> 0 + lcWhere = m.lcWhere + [ and ((RO24B<>0 OR RO24T<>0 OR RO20B<>0 OR RO20T<>0 OR RO19B<>0 OR RO19T<>0 OR RO09B<>0 OR RO09T<>0 ] + ; + [OR RO05B<>0 OR RO05T<>0 OR ROSCN<>0 OR ROTN<>0 OR ROTN50<>0 OR ROTN100<>0 ] + ; + [ OR ro24nb<>0 OR ro24nt<>0 OR ro20nb<>0 OR ro20nt<>0 OR ro19nb<>0 OR ro19nt<>0 ro09nb<>0 OR ro09nt<>0 OR ro05nb<>0 OR ro05nt<>0) OR ] + ; + [(TOTCTVA = 0 and RO24B = 0 and RO24T = 0 and RO20B = 0 and RO20T = 0 and RO19B = 0 and RO19T = 0 and RO09B = 0 and RO09T = 0 ] + ; + [ and RO05B = 0 and RO05T = 0 and ROSCN = 0 and ROTN = 0 and ROTN50 = 0 and ROTN100 = 0 ] + ; + [ and FO24B = 0 and FO24T = 0 and FO20B = 0 and FO20T = 0 and FO19B = 0 and FO19T = 0 and FO09B = 0 and FO09T = 0 and FOSCN = 0 ] + ; + [ and CEB = 0 and CET = 0 and CESC = 0 and CEN = 0 ] + ; + [ and XX19TIB = 0 AND XX19TIT = 0 and XX9TIB = 0 AND XX9TIT = 0 ] + ; + [ and TI24B = 0 and TI24T = 0 and TI20B = 0 and TI20T = 0 and TI19B = 0 and TI19T = 0 and TI09B = 0 and TI09T = 0 ] + ; + [ and ro24nb = 0 and ro24nt = 0 and ro20nb = 0 and ro20nt = 0 and ro19nb = 0 and ro19nt = 0 and ro09nb = 0 and ro09nt = 0 and ro05nb = 0 and ro05nt = 0))] + + Case m.lnTipJurnal = 2 + pcSubtitlu = "Achizitii de bunuri si prestari de sevicii taxabile din import" + lcRaport = [registru_cumparari_jtva2010_fo] + + lcWhere = m.lcWhere + [ and (FO24B<>0 OR FO24T<>0 OR FO20B<>0 OR FO20T<>0 OR FO19B<>0 OR FO19T<>0 OR FO09B<>0 OR FO09T<>0 OR FOSCN<>0)] + + Case m.lnTipJurnal = 3 + pcSubtitlu = "Achizitii intracomunitare de bunuri" + lcRaport = [registru_cumparari_jtva2010_ce] + + lcWhere = m.lcWhere + [ and (CEB<>0 OR CET<>0 OR CESC<>0 OR CEN<>0)] + + Case m.lnTipJurnal = 4 + pcSubtitlu = "Bunuri si Sevicii pentru care cumparatorul este obligat la plata taxei (din Tara, Import) - Taxare Inversa" + lcRaport = [registru_cumparari_jtva2010_ti] + + lcWhere = m.lcWhere + [ and (TI24B<>0 OR TI24T<>0 OR TI20B<>0 OR TI20T<>0 OR TI19B<>0 OR TI19T<>0 OR TI09B<>0 OR TI09T<>0 OR XX19TIB <> 0 OR XX19TIT <> 0 OR XX9TIB <> 0 OR XX9TIT <> 0)] + + Endcase + + && REGISTRE TVA RECAPITULATIE + If INLIST(m.lnMeniu, 2, 3) && recapitulatie 3 luni / an curent + Private m.pnAn, m.pnLuna + IF m.lnMeniu = 2 + * recapitulatie 3 luni + lnPerioada = Ceil(m.gnLuna / 3) + pnLuna = (m.lnPerioada - 1) * 3 + 1 + ELSE + pnLuna = 1 + ENDIF + pnAn = m.gnAn + + lddata1 = Date(m.pnAn, m.pnLuna, 1) + lddata2 = Date(m.gnAn, m.gnLuna, 1) + + pcPerioada = m.pcPerioada + " * Recap. " + Padl(m.pnLuna, 2, '0') + '/' + Alltrim(Str(m.pnAn)) + ' - ' + Padl(m.gnLuna, 2, '0') + '/' + Alltrim(Str(m.gnAn)) + TEXT to lcSelect textmerge noshow + select 1 as tip, v.an, v.luna, cast(0 as Number(20)) as cod, to_date('','ddmmyyyy') as dataact, 000000000 as nract, + (select la.numeluna || ' ' || to_char(v.an) from lunilean la where la.nrluna = v.luna) as denumire, + SUM(v.TOTCTVA) AS TOTCTVA, + SUM(v.CEB) AS CEB, SUM(v.CET) AS CET, + SUM(v.CEBB) AS CEBB, SUM(v.CEBT) AS CEBT, + SUM(v.CESB) AS CESB, SUM(v.CEST) AS CEST, + SUM(v.CEN) AS CEN, + SUM(v.CESC) AS CESC, + SUM(v.FOSCN) AS FOSCN, SUM(v.FO09B) AS FO09B, SUM(v.FO09T) AS FO09T, + SUM(v.FO24B) AS FO24B, SUM(v.FO24T) AS FO24T, SUM(v.FO20B) AS FO20B, SUM(v.FO20T) AS FO20T, SUM(v.FO19B) AS FO19B, SUM(v.FO19T) AS FO19T, + SUM(v.XX19TIB) AS XX19TIB, SUM(v.XX19TIT) AS XX19TIT,SUM(v.XX9TIB) AS XX9TIB, SUM(v.XX9TIT) AS XX9TIT, + SUM(v.ROSCN) AS ROSCN, SUM(v.RO09B) AS RO09B, SUM(v.RO09T) AS RO09T, SUM(v.RO05B) AS RO05B, SUM(v.RO05T) AS RO05T, + SUM(v.RO24B) AS RO24B, SUM(v.RO24T) AS RO24T, SUM(v.RO20B) AS RO20B, SUM(v.RO20T) AS RO20T, SUM(v.RO19B) AS RO19B, SUM(v.RO19T) AS RO19T, Sum(v.ROTN) AS ROTN, Sum(v.ROTN50) AS ROTN50, Sum(v.ROTN100) AS ROTN100, + SUM(v.TI09B) AS TI09B, SUM(v.TI09T) AS TI09T, SUM(v.TI19B) AS TI19B, SUM(v.TI19T) AS TI19T, SUM(v.TI24B) AS TI24B, SUM(v.TI24T) AS TI24T, SUM(v.TI20B) AS TI20B, SUM(v.TI20T) AS TI20T + FROM (select <> as an, <> + rownum - 1 as luna from dual connect by level <= <<(m.gnAn*12 + m.gnLuna) - (m.pnAn*12 + m.pnLuna ) + 1>>) l + left JOIN VJC2010 V on v.an = l.an and v.luna = l.luna + WHERE v.an*12+v.luna between ?pnAn*12 + ?pnLuna and ?gnAn*12 + ?gnLuna <> + GROUP BY v.an, v.luna + ORDER BY v.an, v.luna + ENDTEXT + + lnSucces = goExecutor.oExecute(m.lcSelect, "crsTotal") + If m.lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, "Eroare") + Else + Replace All dataact With Gomonth(Date(an, luna, 1), 120) In crsTotal + Replace All cod With Int(Val(Dtos(dataact))) In crsTotal + + Select cListRC + Append From Dbf('crsTotal') + Use In crsTotal + Endif + Endif && m.lnMeniu = 2 + + *** FORMAT TVA INCASARE 2013 + Select cListRC + Index On denumire + Str(nract, 14, 0) Tag numeact + Index On cod Tag cod + + update_jtva_coloane('JC') + + *** SELECTEZ FACTURILE CU TVA_INCASARE CU TOTAL BAZA, TVA, BAZAN, TVAN + *** doar pe cele din filtrul curent (interne, import, CE, taxare inversa, total) + Select r.cod, r.id_fact, r.tip, r.denumire, r.nract, r.SERIE_ACT, r.dataact, r.COD_FISCAL, Space(10) As COD_TVA, Space(100) As EXPLICATIE_TVA, r.TOTCTVA, r.TOTFTVATAX, r.TOTTVATAX, TVA_INCASARE, ; + (RO24B + RO20B + RO19B + RO09B + RO05B + ROSCN + TI09B + TI19B + TI24B + TI20B + CEB + CEN + CESC + FOSCN + FO09B + FO19B + XX19TIB + XX9TIB + FO24B + FO20B) As BAZA, ; + (RO24T + RO20T + RO19T + RO09T + RO05T + TI09T + TI19T + TI24T + TI20T + CET + FO09T + FO19T + XX19TIT + XX9TIT + FO24T + FO20T) As TVA, ; + (RO24NB + RO20NB + RO19NB + RO09NB + RO05NB) As BAZAN, ; + (RO24NT + RO20NT + RO19NT + RO09NT + RO05NT) As TVAN, ; + cast(0 As N(14)) As NRACTI, Cast({} As D) As DATAACTI, Space(20) As FDOCI, Cast(0 As N(16, 4)) As INCASAT ; + FROM cListRC r ; + where tip = 0 And TVA_INCASARE = 1 ; + INTO Cursor cListRCTemp Readwrite + + Select cListRCTemp + Index On id_fact Tag id_fact + Set Order To + + + *** SELECTEZ FACTURILE FARA TVA_INCASARE CU TOTAL, BAZA, TVA + * tratare bug se bloca la listare doar pe calculatorul Silviei la selectie din (cListRC, jtva_coloane) + * Pe un calculator statea 10 minute pana facea selectia + * Am refacut join-ul ca doua scan-uri + lnOptiuneBug = INT(VAL(NVL(citeste_optiune_utilizator('RC_REGCUMP_LISTARE_BUG'), '0'))) + + IF m.lnOptiuneBug = 1 + SELECT r.cod, r.id_fact, r.tip, r.denumire, r.nract, r.SERIE_ACT, r.dataact, r.COD_FISCAL, SPACE(20) as COD_TVA, SPACE(250) as EXPLICATIE_TVA, r.TOTCTVA, r.TOTFTVATAX, r.TOTTVATAX, TVA_INCASARE, ; + CAST(0 As N(16, 4)) As BAZA, ; + CAST(0 As N(16, 4)) As TVA ; + FROM cListRC r ; + WHERE .F. ; + INTO Cursor cListRCTemp1 Readwrite + + SELECT cListRC + lcRecc = ALLTRIM(STR(RECCOUNT())) + SCAN FOR tip = 0 AND tva_incasare = 0 + SCATTER NAME loRC + WAIT WINDOW 'Facturi fara TVA Incasare ' + ALLTRIM(STR(RECNO())) + '/'+ m.lcRecc NOWAIT + ADDPROPERTY(loRC,'cod_tva', '') + ADDPROPERTY(loRC,'explicatie_tva', '') + ADDPROPERTY(loRC,'baza',0.00) + ADDPROPERTY(loRC,'tva', 0.00) + + SELECT JTVA_COLOANE + SCAN FOR jc = 1 And INLIST(ALLTRIM(coloana_jc), 'RO24B','RO20B', 'RO19BVB', 'RO09BVB', 'RO05B', 'ROSCN', 'TI09BFB', 'TI19BFB', 'TI24B', 'TI20B', ; + 'CE9SB', 'CE19SB', 'CEBFN', 'CEBFSC','FOSCN','FO09BVB', 'FO19BVB', 'XX19TIB', 'XX9TIB', 'FO24B', 'FO20B','ROTN','ROTN50','ROTN100') + loRC.cod_tva = ALLTRIM(coloana_jc) + loRC.explicatie_tva = ALLTRIM(denumire) + + loRC.baza = Iif(loRC.cod_tva = 'RO24B', loRC.RO24B, ; + Iif(loRC.cod_tva = 'RO20B', loRC.RO20B, ; + IIF(loRC.cod_tva = 'RO19BVB', loRC.RO19B, ; + IIF(loRC.cod_tva = 'RO09BVB', loRC.RO09B, ; + IIF(loRC.cod_tva = 'RO05B', loRC.RO05B, ; + IIF(loRC.cod_tva = 'ROSCN', loRC.ROSCN, ; + IIF(loRC.cod_tva = 'TI09BFB', loRC.TI09B, ; + IIF(loRC.cod_tva = 'TI19BFB', loRC.TI19B, ; + IIF(loRC.cod_tva = 'TI24B', loRC.TI24B, ; + IIF(loRC.cod_tva = 'TI20B', loRC.TI20B, ; + IIF(loRC.cod_tva = 'CE9SB', loRC.CEBB, ; + IIF(loRC.cod_tva = 'CE19SB', loRC.CESB, ; + IIF(loRC.cod_tva = 'CEBFN', loRC.CEN, ; + IIF(loRC.cod_tva = 'CEBFSC', loRC.CESC, ; + IIF(loRC.cod_tva = 'FOSCN', loRC.FOSCN, ; + IIF(loRC.cod_tva = 'FO09BVB', loRC.FO09B, ; + IIF(loRC.cod_tva = 'FO19BVB', loRC.FO19B, ; + IIF(loRC.cod_tva = 'XX19TIB', loRC.XX19TIB, ; + IIF(loRC.cod_tva = 'XX9TIB', loRC.XX9TIB, ; + IIF(loRC.cod_tva = 'FO24B', loRC.FO24B, ; + IIF(loRC.cod_tva = 'FO20B', loRC.FO20B, ; + 0))))))))))))))))))))) + + loRC.tva = Iif(loRC.cod_tva = 'RO24B', loRC.RO24T, ; + Iif(loRC.cod_tva = 'RO20B', loRC.RO20T, ; + IIF(loRC.cod_tva = 'RO19BVB', loRC.RO19T, ; + IIF(loRC.cod_tva = 'RO09BVB', loRC.RO09T, ; + IIF(loRC.cod_tva = 'RO05B', loRC.RO05T, ; + IIF(loRC.cod_tva = 'TI09BFB', loRC.TI09T, ; + IIF(loRC.cod_tva = 'TI19BFB', loRC.TI19T, ; + IIF(loRC.cod_tva = 'TI24B', loRC.TI24T, ; + IIF(loRC.cod_tva = 'TI20B', loRC.TI20T, ; + IIF(loRC.cod_tva = 'CE9SB', loRC.CEBT, ; + IIF(loRC.cod_tva = 'CE19SB', loRC.CEST, ; + IIF(loRC.cod_tva = 'FO09BVB', loRC.FO09T, ; + IIF(loRC.cod_tva = 'FO19BVB', loRC.FO19T, ; + IIF(loRC.cod_tva = 'XX19TIB', loRC.XX19TIT, ; + IIF(loRC.cod_tva = 'XX9TIB', loRC.XX9TIT, ; + IIF(loRC.cod_tva = 'FO24B', loRC.FO24T, ; + IIF(loRC.cod_tva = 'FO20B', loRC.FO20T, ; + IIF(loRC.cod_tva = 'ROTN', loRC.ROTN, ; + IIF(loRC.cod_tva = 'ROTN50', loRC.ROTN50, ; + IIF(loRC.cod_tva = 'ROTN100', loRC.ROTN100, ; + 0)))))))))))))))))))) + + *!* IF !(loRC.baza = 0 AND loRC.tva = 0) + SELECT cListRCTemp1 + APPEND BLANK + GATHER NAME loRC + *!* ENDIF + + ENDSCAN && JTVA_COLOANE JC = 1 And !Empty(Nvl(J.COLOANA_JC, '')) + ENDSCAN && cListRC tip = 0 AND tva_incasare = 0 + ELSE + Select r.cod, r.id_fact, r.tip, r.denumire, r.nract, r.SERIE_ACT, r.dataact, r.COD_FISCAL, J.COLOANA_JC As COD_TVA, J.denumire As EXPLICATIE_TVA, r.TOTCTVA, r.TOTFTVATAX, r.TOTTVATAX, TVA_INCASARE, ; + CAST(Iif(J.COLOANA_JC = 'RO24B', r.RO24B, ; + Iif(J.COLOANA_JC = 'RO20B', r.RO20B, ; + IIF(J.COLOANA_JC = 'RO19BVB', r.RO19B, ; + IIF(J.COLOANA_JC = 'RO09BVB', r.RO09B, ; + IIF(J.COLOANA_JC = 'RO05B', r.RO05B, ; + IIF(J.COLOANA_JC = 'ROSCN', r.ROSCN, ; + IIF(J.COLOANA_JC = 'TI09BFB', r.TI09B, ; + IIF(J.COLOANA_JC = 'TI19BFB', r.TI19B, ; + IIF(J.COLOANA_JC = 'TI24B', r.TI24B, ; + IIF(J.COLOANA_JC = 'TI20B', r.TI20B, ; + IIF(J.COLOANA_JC = 'CE9SB', r.CEBB, ; + IIF(J.COLOANA_JC = 'CE19SB', r.CESB, ; + IIF(J.COLOANA_JC = 'CEBFN', r.CEN, ; + IIF(J.COLOANA_JC = 'CEBFSC', r.CESC, ; + IIF(J.COLOANA_JC = 'FOSCN', r.FOSCN, ; + IIF(J.COLOANA_JC = 'FO09BVB', r.FO09B, ; + IIF(J.COLOANA_JC = 'FO19BVB', r.FO19B, ; + IIF(J.COLOANA_JC = 'XX19TIB', r.XX19TIB, ; + IIF(J.COLOANA_JC = 'XX9TIB', r.XX9TIB, ; + IIF(J.COLOANA_JC = 'FO24B', r.FO24B, ; + IIF(J.COLOANA_JC = 'FO20B', r.FO20B, ; + 0))))))))))))))))))))) As N(16, 4)) As BAZA, ; + CAST(Iif(J.COLOANA_JC = 'RO24B', r.RO24T, ; + Iif(J.COLOANA_JC = 'RO20B', r.RO20T, ; + IIF(J.COLOANA_JC = 'RO19BVB', r.RO19T, ; + IIF(J.COLOANA_JC = 'RO09BVB', r.RO09T, ; + IIF(J.COLOANA_JC = 'RO05B', r.RO05T, ; + IIF(J.COLOANA_JC = 'TI09BFB', r.TI09T, ; + IIF(J.COLOANA_JC = 'TI19BFB', r.TI19T, ; + IIF(J.COLOANA_JC = 'TI24B', r.TI24T, ; + IIF(J.COLOANA_JC = 'TI20B', r.TI20T, ; + IIF(J.COLOANA_JC = 'CE9SB', r.CEBT, ; + IIF(J.COLOANA_JC = 'CE19SB', r.CEST, ; + IIF(J.COLOANA_JC = 'FO09BVB', r.FO09T, ; + IIF(J.COLOANA_JC = 'FO19BVB', r.FO19T, ; + IIF(J.COLOANA_JC = 'XX19TIB', r.XX19TIT, ; + IIF(J.COLOANA_JC = 'XX9TIB', r.XX9TIT, ; + IIF(J.COLOANA_JC = 'FO24B', r.FO24T, ; + IIF(J.COLOANA_JC = 'FO20B', r.FO20T, ; + IIF(J.COLOANA_JC = 'ROTN', r.ROTN, ; + IIF(J.COLOANA_JC = 'ROTN50', r.ROTN50, ; + IIF(J.COLOANA_JC = 'ROTN100', r.ROTN100, ; + 0)))))))))))))))))))) As N(16, 4)) As TVA ; + FROM cListRC r, JTVA_COLOANE J ; + where tip = 0 And r.TVA_INCASARE = 0 And J.JC = 1 And !Empty(Nvl(J.COLOANA_JC, '')) ; + INTO Cursor cListRCTemp1 Readwrite + ENDIF && gnRC_REGCUMP_LISTARE_BUG + + *** SELECTEZ FACTURILE CU VALOARE 0 pe toate randurile + WAIT WINDOW 'Facturi fara TVA Incasare cu valoare 0' NOWAIT + Select distinct cod, id_fact, tip, denumire, nract, SERIE_ACT, dataact, COD_FISCAL, '' as COD_TVA, '' as EXPLICATIE_TVA, TOTCTVA, TOTFTVATAX, TOTTVATAX, TVA_INCASARE, ; + baza, tva ; + FROM cListRCTemp1 ; + WHERE BAZA = 0 And TVA = 0 ; + AND id_fact NOT in (SELECT id_fact FROM cListRCTemp1 Where !(BAZA = 0 And TVA = 0)) ; + INTO CURSOR cListRCTemp2 NOFILTER + + Delete From cListRCTemp1 Where BAZA = 0 And TVA = 0 + Update cListRCTemp1 Set COD_TVA = 'RO19B', EXPLICATIE_TVA = 'ACH. INT. 19%' Where Left(COD_TVA,5) = 'RO19B' + Update cListRCTemp1 Set COD_TVA = 'RO09B', EXPLICATIE_TVA = 'ACH. INT. 9%' Where Left(COD_TVA,5) = 'RO09B' + + Update cListRCTemp1 Set COD_TVA = 'FO19B', EXPLICATIE_TVA = 'ACH. IMP. 19%' Where Left(COD_TVA,5) = 'FO19B' + Update cListRCTemp1 Set COD_TVA = 'FO09B', EXPLICATIE_TVA = 'ACH. IMP. 9%' Where Left(COD_TVA,5) = 'FO09B' + + Update cListRCTemp1 Set COD_TVA = 'TI19B', EXPLICATIE_TVA = 'ACH. TX. INV. 19%' Where Left(COD_TVA,5) = 'TI19B' + Update cListRCTemp1 Set COD_TVA = 'TI09B', EXPLICATIE_TVA = 'ACH. TX INV. 9%' Where Left(COD_TVA,5) = 'TI09B' + + * TOATE ACHIZITIILE CE, FARA NEIMPOZABILE (..N) SI SCUTITE (..SC) + Update cListRCTemp1 Set COD_TVA = 'CEB', EXPLICATIE_TVA = 'ACH. BUNURI CE' Where Left(COD_TVA,3) = 'CEB' AND !INLIST(RIGHT(ALLTRIM(COD_TVA), 1), 'C', 'N') + Update cListRCTemp1 Set COD_TVA = 'CEB', EXPLICATIE_TVA = 'ACH. BUNURI CE' Where Left(COD_TVA,5) = 'CE19B' + Update cListRCTemp1 Set COD_TVA = 'CEB', EXPLICATIE_TVA = 'ACH. BUNURI CE' Where Left(COD_TVA,5) = 'CE9SB' + Update cListRCTemp1 Set COD_TVA = 'CES', EXPLICATIE_TVA = 'ACH. SERVICII CE' Where Left(COD_TVA,6) = 'CE19SB' + Update cListRCTemp1 Set COD_TVA = 'CES', EXPLICATIE_TVA = 'ACH. SERVICII CE' Where Left(COD_TVA,6) = 'CE19SB' + + Select cListRCTemp + Append From Dbf('cListRCTemp1') + Append From Dbf('cListRCTemp2') + Use In (Select('cListRCTemp1')) + Use In (Select('cListRCTemp2')) + + *** SELECTEZ EXPLICATIILE DE TVA 0% EXIGIBILE IN PERIOADA PENTRU FACTURILE CU TVA_INCASARE + *** PE FACTURILE TVA_INCASARE POATE APAREA SI TAXARE INVERSA + WAIT WINDOW 'Facturi TVA 0% exigibile in perioada pentru facturile cu TVA Incasare' NOWAIT + Select r.cod, r.id_fact, r.tip, r.denumire, r.nract, r.SERIE_ACT, r.dataact, r.COD_FISCAL, J.COLOANA_JC As COD_TVA, J.denumire As EXPLICATIE_TVA, ; + CAST(Iif(J.COLOANA_JC = 'ROSCN', r.ROSCN, ; + IIF(J.COLOANA_JC = 'CEBFSC', r.CESC, ; + IIF(J.COLOANA_JC = 'FOSCN', r.FOSCN, ; + IIF(J.COLOANA_JC = 'TI09BFB', r.TI09B, ; + IIF(J.COLOANA_JC = 'TI19BFB', r.TI19B, ; + IIF(J.COLOANA_JC = 'TI24B', r.TI24B, ; + IIF(J.COLOANA_JC = 'TI20B', r.TI20B, ; + 0))))))) As N(16, 4)) As BAZA, ; + CAST(Iif(J.COLOANA_JC = 'ROTN', r.ROTN, ; + Iif(J.COLOANA_JC = 'ROTN50', r.ROTN50, ; + Iif(J.COLOANA_JC = 'ROTN100', r.ROTN100, ; + IIF(J.COLOANA_JC = 'TI09BFB', r.TI09T, ; + IIF(J.COLOANA_JC = 'TI19BFB', r.TI19T, ; + IIF(J.COLOANA_JC = 'TI24B', r.TI24T, ; + IIF(J.COLOANA_JC = 'TI20B', r.TI20T, ; + 0))))))) As N(16, 4)) As TVA ; + FROM cListRC r, JTVA_COLOANE J ; + WHERE tip = 0 And r.TVA_INCASARE = 1 And J.JC = 1 And !Empty(Nvl(J.COLOANA_JC, '')) And (Nvl(J.COTA_TVA, 0) = 0 OR LEFT(J.COLOANA_JC,2) = 'TI'); + INTO Cursor cListRCTemp1 Readwrite + + Delete From cListRCTemp1 Where BAZA = 0 And TVA = 0 + + Update cListRCTemp1 Set COD_TVA = 'TI19B', EXPLICATIE_TVA = 'ACH. TX. INV. 19%' Where Left(COD_TVA,5) = 'TI19B' + Update cListRCTemp1 Set COD_TVA = 'TI09B', EXPLICATIE_TVA = 'ACH. TX INV. 9%' Where Left(COD_TVA,5) = 'TI09B' + + Select cListRCTemp + Append From Dbf('cListRCTemp1') + Use In (Select('cListRCTemp1')) + + *!* *** Daca am pus filtru in RC, sterg facturile care nu se potrivesc filtrului + *!* If !Empty(m.lcWhere) + *!* Delete From cListRCTemp Where Padl(nract,14,'0') + '|' + Dtos(dataact) + '|' + Padr(denumire,100,' ') Not In ; + *!* (Select Padl(nract,14,'0') + '|' + Dtos(dataact) + '|' + Padr(denumire,100,' ') From cListRC WHERE !EMPTY(NVL(denumire,'')) ) + *!* Endif + SET STEP ON + WAIT WINDOW 'TVA exigibilizat din plati facturi cu TVA Incasare' NOWAIT + *** ADAUG TVA INCASARE (DIN INCASARI/PLATI, TVA 4427 LA 90 ZILE) + TEXT to m.lcSql textmerge noshow + select cast(0 as Number(10)) as nrc, a.cod, 2 As tip, jc.id_fact, jc.nract As nract, jc.serie_act, jc.dataact, a.nract As NRACTI, a.dataact As DATAACTI, fdoc.fel_document as FDOCI, p.denumire As denumire, p.COD_FISCAL, + J.COTA_TVA, J2.COLOANA_JC As COD_TVA, J2.denumire As EXPLICATIE_TVA, + round(a.suma * 100 / J.COTA_TVA, 2) As BAZA, a.suma As TVA, + round(a.suma * 100 / J.COTA_TVA, 2) + a.suma As INCASAT, + (select sum(suma) from act a1 where a1.an = ?m.gnAn and a1.luna = ?m.gnLuna and a1.sters = 0 and a1.id_factd = a.id_fact and a1.cod = a.cod) as INCASAT2 + from act a left join jc2007 jc on a.id_fact = jc.id_fact + left join nom_parteneri p on jc.id_part = p.id_part + Left Join JTVA_COLOANE J On a.id_jtva_coloana = J.id_jtva_coloana + LEFT Join JTVA_COLOANE J2 On J.id_jtva_coloana = J2.id_tva + left join nom_fdoc fdoc on a.id_fdoc = fdoc.id_fdoc + where a.an = ?m.gnAn and a.luna = ?m.gnLuna and a.sters = 0 and a.scd = '4426' And a.scc = '4428' And Nvl(a.id_jtva_coloana, 0) <> 0 + and jc.an = ?m.gnAn and jc.luna = ?m.gnLuna and (jc.ro24nt <> 0 or jc.ro20nt <> 0 or jc.ro19nt <> 0 or jc.ro9nt <> 0 or jc.ro5nt <> 0) + ORDER BY a.cod, J2.COLOANA_JC + ENDTEXT + + *!* round(a.suma * 100 / J.COTA_TVA, 2) As BAZA + *!* Round(a.suma * (100 + J.COTA_TVA) / J.COTA_TVA, 2) As INCASAT + + llSucces = goExecutor.oExecuta(m.lcSql, "cListRcTemp1") + + If m.llSucces + Update cListRCTemp1 Set COD_TVA = 'RO19B', EXPLICATIE_TVA = 'ACH. INT. 19%' Where Left(COD_TVA,5) = 'RO19B' + Update cListRCTemp1 Set COD_TVA = 'RO09B', EXPLICATIE_TVA = 'ACH. INT. 9%' Where Left(COD_TVA,5) = 'RO09B' + + + *** daca am pus filtru in Registru pe Nume sau altceva + *** sterg incasarile/platile care nu apartin de facturile filtrate + *** ca sa am doar incasarile/platile care tin de filtru + If !Empty(m.lcWhere) + Delete From cListRCTemp1 Where Padl(nract,14,'0') + '|' + Dtos(dataact) + '|' + Padr(denumire,100,' ') Not In ; + (Select Padl(nract,14,'0') + '|' + Dtos(dataact) + '|' + Padr(denumire,100,' ') From cListRCTemp WHERE !EMPTY(NVL(denumire,'')) ) + Endif + + *** ROTUNJIRE BAZA EXIGIBILA = BAZA INCASAT - TVA EXIGIBIL PENTRU FIECARE INCASARE + *** INCASAT ESTE TOATA SUMA INCASATA, TREBUIE SA CALCULEZ BAZELE AFERENTE TVA-URILOR DIN SUMA INCASATA + Select cListRCTemp1 + Go Top + lnCod = cod + lnNrAct = nract + lcSerieAct = NVL(serie_act, '') + ldDataAct = dataact + lcDenumire = denumire + lnNrc = 0 + Scan + lnNrc = m.lnNrc + 1 + If m.lnCod <> cod Or m.lnNrAct <> nract OR m.lcSerieAct <> NVL(serie_act, '') Or m.ldDataAct <> dataact Or m.lcDenumire <> denumire + lnNrc = 1 + Endif + lnCod = cod + Replace nrc With m.lnNrc + Endscan + + *** adun diferenta la prima baza + Select cod, nract, serie_act, dataact, denumire, INCASAT2, Sum(INCASAT) As INCASAT ; + from cListRCTemp1 ; + group By cod, nract, serie_act, dataact, denumire, INCASAT2 ; + into Cursor cIncasariTVA + + Select cIncasariTVA + Scan + lnCod = cod + lnNrAct = nract + lcSerieAct = NVL(serie_act, '') + ldDataAct = dataact + lcDenumire = denumire + lnIncasat = Nvl(INCASAT, 0) + lnIncasat2 = Nvl(INCASAT2,0) + lnIncasat3 = 0 && suma baza EXPLICATII DE TVA 0% EXIGIBILE + + *!* select cListRcTemp1 + *!* locate for cod = m.lnCod and nrc = 1 + *!* if found() + *!* lnIdFact = id_fact + *!* select cListRcTemp + *!* calculate sum(baza) to lnIncasat3 for id_Fact = m.lnIdFact and tip = 0 and tva = 0 in cListRcTemp && baza TVA 0% + *!* endif + Calculate Sum(BAZA) To lnIncasat3 For denumire = m.lcDenumire And nract = m.lnNrAct AND NVL(serie_act, '') = m.lcSerieAct And dataact = m.ldDataAct And tip = 0 And TVA = 0 In cListRCTemp && baza TVA 0% + lnDiferenta = Iif(m.lnIncasat2 <> 0, m.lnIncasat2 - m.lnIncasat - m.lnIncasat3, 0) + + *** exista posibilitatea ca tva-ul din suma achitata sa nu fie corespunzator intregii sume (daca am si limitare deductibilitate tva) + *** daca este prea mare diferenta dintre suma incasata si baza calculata, nu mai adun diferenta + If Abs(m.lnDiferenta) > 1 + m.lnDiferenta = 0 + Endif + If m.lnDiferenta <> 0 + Select cListRCTemp1 + Locate For cod = m.lnCod And denumire = m.lcDenumire And nract = m.lnNrAct AND NVL(serie_act, '') = m.lcSerieAct And dataact = m.ldDataAct And nrc = 1 + If Found() + Replace INCASAT With INCASAT + m.lnDiferenta, BAZA With BAZA + m.lnDiferenta + Endif + Endif + Endscan + Use In (Select('cIncasariTVA')) + + Update cListRCTemp1 Set nract = 0 Where Isnull(nract) + Update cListRCTemp1 Set denumire = '' Where Isnull(denumire) + Update cListRCTemp1 Set COD_FISCAL = '' Where Isnull(COD_FISCAL) + Update cListRCTemp1 Set FDOCI = '' Where Isnull(FDOCI) + + Select cListRCTemp + Append From Dbf('cListRcTemp1') + + *** ROTUNJIRE BAZA FACTURA - BAZE EXIGIBILE + *** bazele exigibile de pe facturile cu TVA INCASARE + Select nract, serie_act, dataact, denumire, Sum(BAZA) As BAZA ; + from cListRCTemp ; + where TVA_INCASARE = 0 And tip = 0 And TOTCTVA <> 0 ; + group By nract, serie_act, dataact, denumire ; + into Cursor cFacturiTVAIncasare + + Select cFacturiTVAIncasare + Scan + lnNrAct = nract + lcSerieAct = NVL(serie_act, '') + ldDataAct = dataact + lcDenumire = denumire + lnBazaFact = BAZA + *** baza exigibila din tip = 0 (tva 0%) si tip = 2 (incasari/plati) + Calculate Sum(BAZA) To lnBazaExigibila In cListRCTemp For TVA_INCASARE = 0 And Inlist(tip, 0, 2) And TOTCTVA = 0 And denumire = m.lcDenumire And ; + nract = m.lnNrAct AND NVL(serie_act, '') = m.lcSerieAct And dataact = m.ldDataAct + + lnDiferenta = Iif(m.lnBazaFact <> 0, m.lnBazaFact - m.lnBazaExigibila, 0) + If m.lnDiferenta <> 0 + Select cListRCTemp + Locate For BAZA <> 0 And TVA_INCASARE = 0 And tip = 2 And TOTCTVA = 0 And denumire = m.lcDenumire And nract = m.lnNrAct ; + AND NVL(serie_act, '') = m.lcSerieAct And dataact = m.ldDataAct + If Found() + Replace INCASAT With BAZA + m.lnDiferenta + TVA, BAZA With BAZA + m.lnDiferenta + Endif + Endif + Endscan + Use In (Select('cFacturiTVAIncasare')) + + Endif + Use In (Select('cListRcTemp1')) + + WAIT WINDOW 'Recapitulatie' NOWAIT + *** SELECTEZ INREGISTRARILE TIP = 1 RECAPITULATIE + IF m.lnOptiuneBug = 1 + SELECT r.cod, r.id_fact, r.tip, r.denumire, r.nract, r.SERIE_ACT, r.dataact, r.COD_FISCAL, SPACE(20) as COD_TVA, SPACE(250) as EXPLICATIE_TVA, r.TOTCTVA, r.TOTFTVATAX, r.TOTTVATAX, TVA_INCASARE, ; + CAST(0 As N(16, 4)) As BAZA, ; + CAST(0 As N(16, 4)) As TVA ; + FROM cListRC r ; + WHERE .F. ; + INTO Cursor cListRCTemp1 Readwrite + + SELECT cListRC + lcRecc = ALLTRIM(STR(RECCOUNT())) + SCAN FOR tip = 1 + SCATTER NAME loRC + WAIT WINDOW 'Recapitulatie ' + ALLTRIM(STR(RECNO())) + '/'+ m.lcRecc NOWAIT + ADDPROPERTY(loRC,'cod_tva', '') + ADDPROPERTY(loRC,'explicatie_tva', '') + ADDPROPERTY(loRC,'baza',0.00) + ADDPROPERTY(loRC,'tva', 0.00) + + SELECT JTVA_COLOANE + SCAN FOR jc = 1 And INLIST(ALLTRIM(coloana_jc), 'RO24B','RO20B', 'RO19BVB', 'RO09BVB', 'RO05B', 'ROSCN', 'TI09BFB', 'TI19BFB', 'TI24B', 'TI20B', ; + 'CE9SB', 'CE19SB', 'CEBFN', 'CEBFSC','FOSCN','FO09BVB', 'FO19BVB', 'XX19TIB', 'XX9TIB', 'FO24B', 'FO20B','ROTN','ROTN50','ROTN100') + loRC.cod_tva = ALLTRIM(coloana_jc) + loRC.explicatie_tva = ALLTRIM(denumire) + + loRC.baza = Iif(loRC.cod_tva = 'RO24B', loRC.RO24B, ; + Iif(loRC.cod_tva = 'RO20B', loRC.RO20B, ; + IIF(loRC.cod_tva = 'RO19BVB', loRC.RO19B, ; + IIF(loRC.cod_tva = 'RO09BVB', loRC.RO09B, ; + IIF(loRC.cod_tva = 'RO05B', loRC.RO05B, ; + IIF(loRC.cod_tva = 'ROSCN', loRC.ROSCN, ; + IIF(loRC.cod_tva = 'TI09BFB', loRC.TI09B, ; + IIF(loRC.cod_tva = 'TI19BFB', loRC.TI19B, ; + IIF(loRC.cod_tva = 'TI24B', loRC.TI24B, ; + IIF(loRC.cod_tva = 'TI20B', loRC.TI20B, ; + IIF(loRC.cod_tva = 'CE9SB', loRC.CEBB, ; + IIF(loRC.cod_tva = 'CE19SB', loRC.CESB, ; + IIF(loRC.cod_tva = 'CEBFN', loRC.CEN, ; + IIF(loRC.cod_tva = 'CEBFSC', loRC.CESC, ; + IIF(loRC.cod_tva = 'FOSCN', loRC.FOSCN, ; + IIF(loRC.cod_tva = 'FO09BVB', loRC.FO09B, ; + IIF(loRC.cod_tva = 'FO19BVB', loRC.FO19B, ; + IIF(loRC.cod_tva = 'XX19TIB', loRC.XX19TIB, ; + IIF(loRC.cod_tva = 'XX9TIB', loRC.XX9TIB, ; + IIF(loRC.cod_tva = 'FO24B', loRC.FO24B, ; + IIF(loRC.cod_tva = 'FO20B', loRC.FO20B, ; + 0))))))))))))))))))))) + + loRC.tva = Iif(loRC.cod_tva = 'RO24B', loRC.RO24T, ; + Iif(loRC.cod_tva = 'RO20B', loRC.RO20T, ; + IIF(loRC.cod_tva = 'RO19BVB', loRC.RO19T, ; + IIF(loRC.cod_tva = 'RO09BVB', loRC.RO09T, ; + IIF(loRC.cod_tva = 'RO05B', loRC.RO05T, ; + IIF(loRC.cod_tva = 'TI09BFB', loRC.TI09T, ; + IIF(loRC.cod_tva = 'TI19BFB', loRC.TI19T, ; + IIF(loRC.cod_tva = 'TI24B', loRC.TI24T, ; + IIF(loRC.cod_tva = 'TI20B', loRC.TI20T, ; + IIF(loRC.cod_tva = 'CE9SB', loRC.CEBT, ; + IIF(loRC.cod_tva = 'CE19SB', loRC.CEST, ; + IIF(loRC.cod_tva = 'FO09BVB', loRC.FO09T, ; + IIF(loRC.cod_tva = 'FO19BVB', loRC.FO19T, ; + IIF(loRC.cod_tva = 'XX19TIB', loRC.XX19TIT, ; + IIF(loRC.cod_tva = 'XX9TIB', loRC.XX9TIT, ; + IIF(loRC.cod_tva = 'FO24B', loRC.FO24T, ; + IIF(loRC.cod_tva = 'FO20B', loRC.FO20T, ; + IIF(loRC.cod_tva = 'ROTN', loRC.ROTN, ; + IIF(loRC.cod_tva = 'ROTN50', loRC.ROTN50, ; + IIF(loRC.cod_tva = 'ROTN100', loRC.ROTN100, ; + 0)))))))))))))))))))) + + IF !(loRC.baza = 0 AND loRC.tva = 0) + SELECT cListRCTemp1 + APPEND BLANK + GATHER NAME loRC + ENDIF + + ENDSCAN && JTVA_COLOANE JC = 1 And !Empty(Nvl(J.COLOANA_JC, '')) + ENDSCAN && cListRC tip = 0 AND tva_incasare = 0 + ELSE + Select r.cod, r.tip, r.denumire, r.nract, r.SERIE_ACT, r.dataact, r.COD_FISCAL, J.COLOANA_JC As COD_TVA, J.denumire As EXPLICATIE_TVA, r.TOTCTVA, r.TOTFTVATAX, r.TOTTVATAX, TVA_INCASARE, ; + CAST(Iif(J.COLOANA_JC = 'RO24B', r.RO24B, ; + Iif(J.COLOANA_JC = 'RO20B', r.RO20B, ; + IIF(J.COLOANA_JC = 'RO19BFB', r.RO19B, ; + IIF(J.COLOANA_JC = 'RO09BFB', r.RO09B, ; + IIF(J.COLOANA_JC = 'RO05B', r.RO05B, ; + IIF(J.COLOANA_JC = 'ROSCN', r.ROSCN, ; + IIF(J.COLOANA_JC = 'TI09BFB', r.TI09B, ; + IIF(J.COLOANA_JC = 'TI19BFB', r.TI19B, ; + IIF(J.COLOANA_JC = 'TI24B', r.TI24B, ; + IIF(J.COLOANA_JC = 'TI20B', r.TI20B, ; + IIF(J.COLOANA_JC = 'CE9SB', r.CEBB, ; + IIF(J.COLOANA_JC = 'CE19SB', r.CESB, ; + IIF(J.COLOANA_JC = 'CEBFN', r.CEN, ; + IIF(J.COLOANA_JC = 'CEBFSC', r.CESC, ; + IIF(J.COLOANA_JC = 'FOSCN', r.FOSCN, ; + IIF(J.COLOANA_JC = 'FO09B', r.FO09B, ; + IIF(J.COLOANA_JC = 'FO19B', r.FO19B, ; + IIF(J.COLOANA_JC = 'XX19TIB', r.XX19TIB, ; + IIF(J.COLOANA_JC = 'XX9TIB', r.XX9TIB, ; + IIF(J.COLOANA_JC = 'FO24B', r.FO24B, ; + IIF(J.COLOANA_JC = 'FO20B', r.FO20B, ; + 0))))))))))))))))))))) As N(16, 4)) As BAZA, ; + CAST(Iif(J.COLOANA_JC = 'RO24B', r.RO24T, ; + Iif(J.COLOANA_JC = 'RO20B', r.RO20T, ; + IIF(J.COLOANA_JC = 'RO19BFB', r.RO19T, ; + IIF(J.COLOANA_JC = 'RO09BFB', r.RO09T, ; + IIF(J.COLOANA_JC = 'RO05B', r.RO05T, ; + IIF(J.COLOANA_JC = 'TI09BFB ', r.TI09T, ; + IIF(J.COLOANA_JC = 'TI19BFB ', r.TI19T, ; + IIF(J.COLOANA_JC = 'TI24B ', r.TI24T, ; + IIF(J.COLOANA_JC = 'TI20B ', r.TI20T, ; + IIF(J.COLOANA_JC = 'CE9SB', r.CEBT, ; + IIF(J.COLOANA_JC = 'CE19SB', r.CEST, ; + IIF(J.COLOANA_JC = 'FO09B ', r.FO09T, ; + IIF(J.COLOANA_JC = 'FO19B ', r.FO19T, ; + IIF(J.COLOANA_JC = 'XX19TIB ', r.XX19TIT, ; + IIF(J.COLOANA_JC = 'XX9TIB ', r.XX9TIT, ; + IIF(J.COLOANA_JC = 'FO24B', r.FO24T, ; + IIF(J.COLOANA_JC = 'FO20B', r.FO20T, ; + IIF(J.COLOANA_JC = 'ROTN', r.ROTN, ; + IIF(J.COLOANA_JC = 'ROTN50', r.ROTN50, ; + IIF(J.COLOANA_JC = 'ROTN100', r.ROTN100, ; + 0)))))))))))))))))))) As N(16, 4)) As TVA ; + FROM cListRC r FULL JOIN JTVA_COLOANE J ON 1=1 ; + where tip = 1 And J.JC = 1 And !Empty(Nvl(J.COLOANA_JC, '')) ; + INTO Cursor cListRCTemp1 Readwrite + ENDIF + + WAIT WINDOW 'Completare recapitulatie cu facturi neexigibile' NOWAIT + *** adaug si lunile care nu au nimic exigibil + Select Distinct r.cod, r.tip, r.denumire, r.nract, r.SERIE_ACT, r.dataact, r.COD_FISCAL ; + from cListRCTemp1 r ; + where cod Not In (Select cod From cListRCTemp1 Where !(BAZA = 0 And TVA = 0)) ; + into Cursor cListRCTemp2 + + Delete From cListRCTemp1 Where BAZA = 0 And TVA = 0 + Update cListRCTemp1 Set COD_TVA = 'RO19B', EXPLICATIE_TVA = 'ACH. INT. 19%' Where Left(COD_TVA,5) = 'RO19B' + Update cListRCTemp1 Set COD_TVA = 'RO09B', EXPLICATIE_TVA = 'ACH. INT. 9%' Where Left(COD_TVA,5) = 'RO09B' + + Update cListRCTemp1 Set COD_TVA = 'TI19B', EXPLICATIE_TVA = 'ACH. TX. INV. 19%' Where Left(COD_TVA,5) = 'TI19B' + Update cListRCTemp1 Set COD_TVA = 'TI09B', EXPLICATIE_TVA = 'ACH. TX INV. 9%' Where Left(COD_TVA,5) = 'TI09B' + + Update cListRCTemp1 Set COD_TVA = 'CEB', EXPLICATIE_TVA = 'ACH. BUNURI CE' Where Left(COD_TVA,3) = 'CEB' AND !INLIST(RIGHT(ALLTRIM(COD_TVA), 1), 'C', 'N') + Update cListRCTemp1 Set COD_TVA = 'CEB', EXPLICATIE_TVA = 'ACH. BUNURI CE' Where Left(COD_TVA,5) = 'CE19B' + Update cListRCTemp1 Set COD_TVA = 'CEB', EXPLICATIE_TVA = 'ACH. BUNURI CE' Where Left(COD_TVA,5) = 'CE9SB' + Update cListRCTemp1 Set COD_TVA = 'CES', EXPLICATIE_TVA = 'ACH. SERVICII CE' Where Left(COD_TVA,6) = 'CE19SB' + Update cListRCTemp1 Set COD_TVA = 'CES', EXPLICATIE_TVA = 'ACH. SERVICII CE' Where Left(COD_TVA,6) = 'CE19SB' + + Select cListRCTemp + Append From Dbf('cListRCTemp1') + Append From Dbf('cListRCTemp2') + Use In (Select('cListRCTemp1')) + Use In (Select('cListRCTemp2')) + + *** completez nume, nract, dataact pentru inregistrarile TVA care nu le au completate + WAIT WINDOW 'Completare infomatii inregistrari TVA' NOWAIT + Select cListRCTemp + Scan For tip = 2 + lcNumeAct = denumire + Str(nract, 14, 0) + lnCod = cod + If Seek(m.lnCod, 'cListRC', 'cod') + Replace denumire With cListRC.denumire, nract With cListRC.nract, dataact With cListRC.dataact In cListRCTemp + Else + If Seek(m.lcNumeAct, 'cListRC', 'numeact') + Replace cod With cListRC.cod, dataact With cListRC.dataact In cListRCTemp + Endif && seek + Endif && seek + Endscan + + Use In (Select('cListRC')) + + Select Cast(0 As I) As nrcrt, Cast(0 As I) As nrcrtf, * From cListRCTemp Into Cursor cListRC Order By dataact, nract, denumire, tip Readwrite + + Update cListRC Set tip = 0 Where tip = 2 && incasarile pe acelasi nivel cu facturile + Use In (Select('cListRCTemp')) + + *** INSUMEZ FACTURILE DUPA NRACT, DATAACT, DENUMIRE + *!* SELECT Cast(0 As I) As nrcrt, Cast(0 As I) As nrcrtf, min(COD) as COD, min(ID_FACT) as ID_FACT, TIP, DENUMIRE, NRACT, SERIE_ACT, DATAACT, COD_FISCAL, COD_TVA, EXPLICATIE_TVA, TVA_INCASARE, NRACTI, DATAACTI, FDOCI, ; + *!* sum(INCASAT) AS INCASAT, sum(TOTCTVA) AS TOTCTVA, sum(TOTFTVATAX) AS TOTFTVATAX, sum(TOTTVATAX) AS TOTTVATAX, sum(BAZA) AS BAZA, sum(TVA) AS TVA, sum(BAZAN) AS BAZAN, sum(TVAN) AS TVAN ; + *!* from cListRCTemp ; + *!* where tip = 0 ; + *!* group by TIP, DENUMIRE, NRACT, SERIE_ACT, DATAACT, COD_FISCAL, COD_TVA, EXPLICATIE_TVA, TVA_INCASARE, NRACTI, DATAACTI, FDOCI ; + *!* union all ; + *!* SELECT Cast(0 As I) As nrcrt, Cast(0 As I) As nrcrtf, COD, ID_FACT, TIP, DENUMIRE, NRACT, SERIE_ACT, DATAACT, COD_FISCAL, COD_TVA, EXPLICATIE_TVA, TVA_INCASARE, NRACTI, DATAACTI, FDOCI, ; + *!* INCASAT, TOTCTVA, TOTFTVATAX, TOTTVATAX, BAZA, TVA, BAZAN, TVAN ; + *!* from cListRCTemp ; + *!* where tip <> 0 ; + *!* Into Cursor cListRC ; + *!* Order By 9, 7, 6, 5 Readwrite + + + *** STERG NUME, NRACT... DE PE INREGISTRARILE 2..N (EXPLICATII_TVA) PENTRU ACEEASI FACTURA + Select cListRC + Go Top + lnCod = 0 + lcSerieAct = "" + lnNrAct = 0 + ldDataAct = {} + lcDenumire = "" + lnNrCrt = 0 + lnNrCrtF = 0 + Scan + *!* If m.lnCod <> cod && prima linie din fiecare factura + If m.lcSerieAct <> serie_act OR m.lnNrAct <> nract Or m.ldDataAct <> dataact Or m.lcDenumire <> denumire && prima linie din fiecare factura + lnCod = cod + lcSerieAct = serie_act + lnNrAct = nract + ldDataAct = dataact + lcDenumire = denumire + lnNrCrt = m.lnNrCrt + 1 + lnNrCrtF = 1 && numar curent in cadrul fiecarei facturi + Replace nrcrt With m.lnNrCrt, nrcrtf With m.lnNrCrtF + Else && liniile 2..n din facturi + lnNrCrtF = m.lnNrCrtF + 1 + Replace nrcrt With m.lnNrCrt, nrcrtf With m.lnNrCrtF, denumire With '', nract With 0, SERIE_ACT With '', dataact With {}, COD_FISCAL With "", TOTCTVA With 0, TOTFTVATAX With 0, TOTTVATAX With 0 + Endif + Endscan + + *** TOTALURI EXIGIBIL PE COTE TVA + *** ADUN FIE INREGISTRARILE DIN LUNA CURENTA TIP = 0, FIE INREGISTRARILE TIP RECAPITULATIE TIP = 1 + WAIT WINDOW 'Total exigibil pe cote TVA' NOWAIT + lnTip = Iif(m.lnMeniu = 1, 0, 1) + Insert Into cListRC (tip, COD_TVA, EXPLICATIE_TVA, INCASAT, BAZA, TVA) ; + Select 2 As tip, COD_TVA, EXPLICATIE_TVA, Sum(INCASAT) As INCASAT, Sum(BAZA) As BAZA, Sum(TVA) As TVA ; + from cListRC ; + where tip = m.lnTip And !Empty(Nvl(COD_TVA, '')) ; + ORDER By COD_TVA ; + group By COD_TVA, EXPLICATIE_TVA + Select cListRC + + Use In (Select('JTVA_COLOANE')) + *** FORMAT TVA INCASARE 2013 ^ + + If Reccount('cListRC') > 0 + Thisform.AlwaysOnTop = .F. + + IF AMESSAGEBOX('Doriti listare clasica?',4+32,_screen.Caption) = 6 + goExport.export2frx([cListRc], [registru_jtva2013]) + ELSE + goExport.export2frx([cListRc], [registru_jtva2013], , , , , , .T.) + ENDIF + + Thisform.AlwaysOnTop = .T. + Endif + + Use In (Select('cListRC')) + + + + + ENDPROC + + PROCEDURE do_reface + lnAn = gnAn + lnLuna = gnLuna + lnSucces = refacere([TVA_2007],[],[JC],lnLuna,lnAn) && IN orefaceri.prg + If lnSucces > 0 + Thisform.actualizeaza_grid1() + + *!* Do inainte With "CUMP2007" In oinainte_de.prg + + This._grdbase1.SetFocus + + aMESSAGEBOX('Refacerea s-a terminat!',64,"Info refacere") + Endif + ENDPROC + + PROCEDURE do_reset + *Thisform.cbo_tip_jurnal_cump.ListItemId = 1 + + + If Not Pemstatus(Thisform,"filtru_pretty",5) + Thisform.AddProperty("filtru_pretty") + Endif + If Not Pemstatus(Thisform,"filtru_pretty_ro",5) + Thisform.AddProperty("filtru_pretty_ro") + Endif + + Thisform.filtru_pretty="" + Thisform.filtru_pretty_ro="" + Thisform.but_start_criterii1.SetFocus + Thisform.Refresh + Thisform.but_start_criterii1.pornit="nu" + Thisform.do_cauta() + + ENDPROC + + PROCEDURE do_termin + THIS.BUT_STArt_criterii1.RESETstatus() + DODEFAULT() + ENDPROC + + PROCEDURE do_verifica + Local loDate As "empty" + Local lcCodFiscal, lcDenumire, lcFilter, lcSelect, lcWhere, llAutoVerificare, llDontCloseCursor + Local llExperimental, llMFIN, llServiciuWebANAF, llValidare, llVerificarePlatitorTVA, lnOptiune + Local lnRaspuns, loPartener + lcSelect = SELECT() + + SELECT actcv + lcCodFiscal = Alltrim(actcv.cod_fiscal) + lcDenumire = Alltrim(actcv.denumire) + + lnOptiune = XMENU('VERIFICA... ' + m.lcDenumire + ' - ANAF; VERIFICA TOTI PARTENERII - ANAF') + + If EMPTY(m.lnOptiune) + Return + ENDIF + + * Pot sa fac verificarea pentru un singur nume si cu formularul pentru mai multi parteneri, dar arata mai dragut informatia intr-un messagebox pentru unul singur + If INLIST(m.lnOptiune, 1, 4) && un singur nume + loPartener = Null + loDate = Createobject("empty") + + AddProperty(loDate, "denumire", m.lcDenumire) + AddProperty(loDate, "cod_fiscal", m.lcCodFiscal) + AddProperty(loDate, "tip_verificare", IIF(m.lnOptiune = 1, "ANAF_SERVICIU_WEB", "MFIN_AUTO_FARA_CAPTCHA")) + + lnRaspuns = VerificaCodFiscal(loDate, @lnOptiune, @loPartener) + Else + llDontCloseCursor = .F. + llExperimental = .F. + llVerificarePlatitorTVA = .F. && verific VIES pentru toti partenerii + llMFIN = .T. && verific MFIN pentru toata lumea + llValidare = .T. && verific algoritmul codurilor fiscale + llAutoVerificare = .T. && lanseaza verificarea automata la activate-ul formularului de verificare + llServiciuWebANAF = .T. + + lcFilter = Filter("actcv") + lcWhere = Iif(m.lnOptiune = 1, "recno() = " + Alltrim(Str(Recno())), Iif(!Empty(m.lcFilter), m.lcFilter, ".T.")) + Select Distinct cod_fiscal, denumire, Iif(Left(Upper(cod_fiscal), 2) = "RO", "RO", " ") As ATRIBUT_FISCAL, .T. As IsCIF, .F. As codvalid ; + From actcv ; + Where &lcWhere ; + Into Cursor crsCoduriFiscale ; + Order By denumire, cod_fiscal ; + Readwrite + + + Local lcXMLParteneri + lcXMLParteneri = "" + Cursortoxml('crsCoduriFiscale', "lcXMLParteneri", 1, 0, 0, "1") + + Do verificare_parteneri With m.lcXMLParteneri, m.llValidare, m.llMFIN, m.llVerificarePlatitorTVA, m.llAutoVerificare, m.llDontCloseCursor, m.llExperimental, m.llServiciuWebANAF + Endif && x = 1 + + SELECT (m.lcSelect) + ENDPROC + + PROCEDURE grdfooterevent + LPARAMETERS toObj, tcEvt + + IF TYPE('this._grdfooter1') = 'O' + IF PEMSTATUS(this._grdfooter1, "eventhandler", 5) + this._grdfooter1.eventhandler(,toObj,tcEvt) + ENDIF + ENDIF + ENDPROC + + PROCEDURE grid_sort_bind + *!* 09.09.2010 + *!* am folosit gridextra + *!* nu sterge + *!* 09.09.2010 ^ + ENDPROC + + PROCEDURE inainte_de_do_listare + If This.lactiv2 + If gnAn >= 2013 + This.do_listare2013() + Else + This.do_listare() + Endif + Endif + ENDPROC + + PROCEDURE incaspl + Private pnlunanan,pcselect,pcfiltru,pcschema,pcorder,llAfisare,poact,pcTitlu + Store "" To poact + Store .F. To llAfisare + Store 0 To pnlunanan + + pnlunanan=gnAn*12+gnLuna + CN='4111' + Thisform.but_teRMIN1.Enabled=.F. + Thisform.AlwaysOnTop=.F. + + pcschema=['ID_ACT N(20),LUNA N(2),AN N(4),COD N(20),DATAIREG D,nract N(20),DATAACT D,'+]+; + ['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+; + ['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+; + ['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+; + ['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+; + ['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+; + ['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+; + ['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)'] + pcschema=[''] + pcselect=['select partD,dataact,nract,serie_act,dataireg,suma,perecheC,util,dataora,fdoc,scc,scd,partC,explicatia,explicatie_tva '+]+; + ['from ]+gcS+[.vact where 2=2'] + + Select actcv + pcTitlu="PLATI LA FACTURA NR. "+Alltrim(Str(nract,14)) + pcfiltru=[id_partd=']+Alltrim(Str(id_part))+[' and extract(year from dataireg)*12+extract(month from dataireg)<=]+Alltrim(Str(pnlunanan))+[ ]+; + [and (perecheD=]+Alltrim(Str(nract,14))+[ or nrord=']+Alltrim(Str(nract,14))+[')]+gcCondSucursala + pcorder=[dataact,serie_act,nract] + gencursor("poact","acn1",pcselect,pcfiltru,pcschema,pcorder,llAfisare) + poact.ca_baza1.afisare() + ORC=Createobj("frm_debcred") + ORC.lb_titlu_alb_b121.Caption=Proper(pcTitlu) + ORC.lb_titlu1.Caption=pcTitlu + ORC.Show(1) + + pcTitlu="" + Thisform.AlwaysOnTop=.T. + Thisform.but_teRMIN1.Enabled=.T. + If Used('acn1') + Use In acn1 + Endif + Release ORC,poact + ENDPROC + + PROCEDURE Init + LPARAMETERS tlAfisareTot + * tlAfisareTot = .T. daca se afiseaza toate inregistrarile la intrarea in formular + + This.lAfisareTot = m.tlAfisareTot + + DoDefault() + if m.gnAn < 2013 + Thisform.cbo_tip_jurnal_cump.ListItemId = Thisform.nlistitemiddef && achizitii din tara + else + Thisform.cbo_tip_jurnal_cump.ListItemId = 1 && complet + endif + Thisform.do_executa(Thisform.nlistitemiddef) + If !glEMama + Thisform._grdbase1.RemoveObject([cSucursala]) + ENDIF + + This.cmdTVAIncasare.Visible = !(luna_inchisa Or m.glEMama) + ENDPROC + + PROCEDURE ist_deb_cred + PRIVATE pnlunanan,lul,pcselect,pcschema,pcfiltru,pcorder,llAfisare,poacn1,poacn2,pcdatacrt,pcnume + PRIVATE nl,an,pcluna,pcanul,pniesire + STORE 0 TO pnlunanan,pniesire + STORE .F. TO llAfisare + STORE "" TO lul,poacn1,poacn2 + pcdatacrt=ALLTRIM(STR(gnAn))+PADL(ALLTRIM(STR(gnLuna)),2,'0')+[01] && prima zi a lunii + + THISFORM.but_termin1.ENABLED=.F. + THISFORM.ALWAYSONTOP= .F. + + pcanul='00' + pcluna='00' + &&lul=gnLuna && ?? + SELECT calendar + ose=CREATEOBJECT('frm_seleluna') + ose.SHOW(1) + IF pniesire=2 + THISFORM.but_termin1.ENABLED=.T. + THISFORM.ALWAYSONTOP= .T. + RETURN + ENDIF + pnlunanan=gnAn*12+gnLuna + pnlunaanales=VAL(pcanul)*12+VAL(pcluna) + SELECT actcv + pcnume=denumire + pcschema=['ID_ACT N(20),LUNA N(2),AN N(4),COD N(20),DATAIREG D,nract N(20),DATAACT D,'+]+; + ['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+; + ['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+; + ['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+; + ['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+; + ['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+; + ['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+; + ['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)'] + pcschema=[''] + pcselect=['select * from ]+gcS+[.vact where 2=2'] + pcorder=[dataact,serie_act,nract] + + pcfiltru=[dataact0 + Private pcselect,pcfiltru,pcschema,pcorder,poact,pcnume + Store "" To poact + Thisform.but_TERMIN1.Enabled=.F. + Thisform.AlwaysOnTop=.F. + lunanan=gnLuna+gnAn*12 + Select actcv + pcnume=denumire + pcschema=[DATAIREG D,DATAACT D,SERIE_ACT C(10),nract N(20),PARTD C(50),PARTC C(50),EXPLICATIA C(100), ]+; + [SUMA N(19,2),SCD C(4),SCC C(4),FDOC C(30),LUNA N(2),AN N(4),COD N(20),EXPLICATIE_TVA C(100)] + pcselect=[select dataireg,dataact,serie_act,nract,partd,partc,explicatia,suma,scd,scc,fdoc,luna,an,cod,explicatie_tva ]+; + [from vact] + pcorder=[dataact,serie_act,nract,id_act] + pcfiltru=[] + llAfisare=.F. + lcGroup = "" + pcfiltru=[luna=]+Alltrim(Str(gnLuna))+[ and an=]+Alltrim(Str(gnAn))+; + [ and cod=]+Alltrim(Str(cod))+[ and nract=]+Alltrim(Str(nract,14))+; + [ and dataact=to_date(']+Dtos(dataact)+[','YYYY-MM-DD')] + gcCondSucursala + gencursor('poact','ACN1',pcselect,pcfiltru,pcschema,pcorder,llAfisare, lcGroup, .T.) + + poact.ca_baza1.afisare() + Go Top + ORC=Createobj("frm_debcred") + orc.Lb_titlu_alb_b121.caption="Nota contabila "+ALLTRIM(pcnume) + ORC.lb_titlu1.Caption="NOTA CONTABILA" + orc._grdbase1.removeobject("cUtil") + orc._grdbase1.removeobject("cDataOra") + ORC.Show(1) + Release poact,ORC + Thisform.but_TERMIN1.Enabled=.T. + Thisform.AlwaysOnTop=.T. + Else + aMessagebox("Nu aveti date in cautare!",48,"Atentie") + Thisform.ck_nract.SetFocus() + Endif + ENDPROC + + PROCEDURE Show + LPARAMETERS nStyle + + dodefault(nStyle) + + * Afisez toate inregistrarile cand intru pentru banca/casa. Sunt putine + IF this.lAfisareTot + This.do_reset() && afisarea tuturor inregistrarilo + ENDIF + + + *!* 09.09.2010 + this.gridextra1.setup() + *!* 09.09.2010 ^ + + + *** Inregistrarile selectate GRI + This._grdbase1.SetAll("DynamicBackColor","iif(ales = 1, RGB(150,150,150), RGB(255,255,255))", "Column") + + THIS._grdfooter1.attachtogrid(This._grdbase1) + This._grdfooter1.calcTotal + this._grdbase1.HeaderHeight = 53 && se face mic probabil din cauza gridextra sau grdfooter + + this.WindowState = 2 + ENDPROC + + PROCEDURE But_start_criterii1.loadcriterii + PARAMETERS tacriterii + EXTERNAL ARRAY tacriterii + #define crlf CHR(13)+CHR(10) + #define lf CHR(10) + #define lf2 CHR(10) + CHR(10) + lcStringCriterii="Nume\denumire\T\ID_PART\nom_parteneri" + crlf + ; + "Serie act\serie_act\T\none\" + crlf + ; + "Nr. act\nract\N\none\" + crlf + ; + "Data act\dataact\D\none\" + crlf + ; + "Data inreg.\dataireg\D\none\" + crlf + ; + "Fel document\fel_document\T\id_fdoc\nom_feldoc" + crlf + ; + "Cod Fiscal\cod_fiscal\T\none\" + crlf + ; + "Sold TVA Neex.\(RO24NT + RO20NT + RO19NT + RO9NT + RO5NT)\N|get_mask(12,gnPA)\none\" + crlf + ; + "Perioada\an*12+luna\D1\none\" + crlf + ; + "Data ireg in luna\nofiled\E\(extract(year from dataireg) * 12 + extract(month from dataireg) = an*12 + luna)\" + crlf + ; + "Data ireg nu in luna\nofiled\E\(extract(year from dataireg) * 12 + extract(month from dataireg) <> an*12 + luna)\" + crlf + ; + "Data doc nu in luna\nofiled\E\(extract(year from dataact) * 12 + extract(month from dataact) <> an*12 + luna)\" + crlf + ; + "EroareTVA\nofiled\E\" + ; + [ ((EXTRACT (YEAR FROM DATAACT) = AN AND EXTRACT (MONTH FROM DATAACT) = LUNA AND ABS(TOTCTVA -(RO24B + RO24T + RO20B + RO20T + RO19B + RO19T + RO09B + RO09T + RO05B + RO05T + ROSCN + ] + ; + [ RO24NB + RO24NT + RO20NB + RO20NT + RO19NB + RO19NT + RO9NB + RO9NT + RO5NB + RO5NT + ] + ; + [ FO24B + FO24T + FO20B + FO20T + FO19B + FO19T + FO09B + FO09T + FOSCN + ] + ; + [ CEB + CET + CESC + CEN + ] + ; + [TI24B + TI24T + TI20B + TI20T + TI19B + TI19T + TI09B + TI09T + XX19TIB + XX19TIT + XX9TIB + XX9TIT)) >= 1) OR ] + ; + [ABS(RO24T) NOT BETWEEN ROUND(0.238*ABS(RO24B),?gnPc) AND ROUND(0.243*ABS(RO24B),?gnPc) OR ] + ; + [ABS(RO20T) NOT BETWEEN ROUND(0.198*ABS(RO20B),?gnPc) AND ROUND(0.203*ABS(RO20B),?gnPc) OR ] + ; + [ABS(RO19T) NOT BETWEEN ROUND(0.188*ABS(RO19B),?gnPc) AND ROUND(0.193*ABS(RO19B),?gnPc) OR ] + ; + [ABS(RO09T) NOT BETWEEN ROUND(0.088*ABS(RO09B),?gnPc) AND ROUND(0.093*ABS(RO09B),?gnPc) OR ] + ; + [ABS(RO05T) NOT BETWEEN ROUND(0.048*ABS(RO05B),?gnPc) AND ROUND(0.053*ABS(RO05B),?gnPc) OR ] + ; + [ABS(RO24NT) NOT BETWEEN ROUND(0.238*ABS(RO24NB),?gnPc) AND ROUND(0.243*ABS(RO24NB),?gnPc) OR ] + ; + [ABS(RO20NT) NOT BETWEEN ROUND(0.198*ABS(RO20NB),?gnPc) AND ROUND(0.203*ABS(RO20NB),?gnPc) OR ] + ; + [ABS(RO19NT) NOT BETWEEN ROUND(0.188*ABS(RO19NB),?gnPc) AND ROUND(0.193*ABS(RO19NB),?gnPc) OR ] + ; + [ABS(RO9NT) NOT BETWEEN ROUND(0.088*ABS(RO9NB),?gnPc) AND ROUND(0.093*ABS(RO9NB),?gnPc) OR ] + ; + [ABS(RO5NT) NOT BETWEEN ROUND(0.048*ABS(RO5NB),?gnPc) AND ROUND(0.053*ABS(RO5NB),?gnPc) OR ] + ; + [ABS(FO24T) NOT BETWEEN ROUND(0.238*ABS(FO24B),?gnPc) AND ROUND(0.243*ABS(FO24B),?gnPc) OR ] + ; + [ABS(FO20T) NOT BETWEEN ROUND(0.198*ABS(FO20B),?gnPc) AND ROUND(0.203*ABS(FO20B),?gnPc) OR ] + ; + [ABS(FO19T) NOT BETWEEN ROUND(0.188*ABS(FO19B),?gnPc) AND ROUND(0.193*ABS(FO19B),?gnPc) OR ] + ; + [ABS(FO09T) NOT BETWEEN ROUND(0.088*ABS(FO09B),?gnPc) AND ROUND(0.093*ABS(FO09B),?gnPc) OR ] + ; + [ABS(TI24T) NOT BETWEEN ROUND(0.238*ABS(TI24B),?gnPc) AND ROUND(0.243*ABS(TI24B),?gnPc) OR ] + ; + [ABS(TI20T) NOT BETWEEN ROUND(0.198*ABS(TI20B),?gnPc) AND ROUND(0.203*ABS(TI20B),?gnPc) OR ] + ; + [ABS(TI19T) NOT BETWEEN ROUND(0.188*ABS(TI19B),?gnPc) AND ROUND(0.193*ABS(TI19B),?gnPc) OR ] + ; + [ABS(TI09T) NOT BETWEEN ROUND(0.088*ABS(TI09B),?gnPc) AND ROUND(0.093*ABS(TI09B),?gnPc) OR ] + ; + [ABS(XX19TIT) NOT BETWEEN ROUND(0.188*ABS(XX19TIB),?gnPc) AND ROUND(0.193*ABS(XX19TIB),?gnPc) OR ] + ; + [ABS(XX9TIT) NOT BETWEEN ROUND(0.088*ABS(XX9TIB),?gnPc) AND ROUND(0.093*ABS(XX9TIB),?gnPc))\-\] + ; + "Valoarea TVA difera cu +/- 5% fata de valoarea bazei. Verificati valorile baza si TVA în Registrul Jurnal." + crlf + ; + "Plati fara TVA Incasare\nofiled\E\2=2\-\" + ; + "Facturi cu sold TVA neexigibil, achitate partial/integral în luna, fara TVA exigibil corespunzator." + lf2 + ; + "Se vor afisa facturile din sistemul TVA încasare pentru care suma achitata din Registrul Jurnal luna curenta " + ; + "este diferita de suma baza si TVA exigibil din Registrul de TVA." + lf2 + ; + "Identificati problema la nivelul fiecarei facturi si se corectati prin adaugarea notei TVA exigibil în Registrul Jurnal." + crlf + ; + "Diferenta sold fact. / neex.\nofiled\E\2=2\-\" + ; + "Resturi de sold TVA neexigibil care nu s-au exigibilizat odata cu achitarea integrala a facturilor." + lf2 + ; + "Se vor afisa facturile din sistemul TVA încasare pentru care soldul facturii este diferit de fata de soldul Baza + TVA neexigibile din Registrul de TVA." + lf2 + ; + "Facturile cu sold 0 si sold neexigibil diferit de 0 semnifica ca facturile au fost achitate, dar nu s-a exigibilizat complet TVA." + lf2 + ; + "Exigibilizati sumele ramase neexigibile." + crlf + ; + IIF(glEMama,[Sucursala\sucursala\C\none\] + crlf,[]) + DODEFAULT() + + + + + ENDPROC + + PROCEDURE cbo_tip_jurnal_cump.Valid + thisform.do_cauta() + + ENDPROC + + PROCEDURE cmdTVAIncasare.Click + *!* 24.05.2011 + *!* marius.mutu + *!* nu se pot introduce documente de pe mama + + *!* 25.08.2014 + *!* marius.mutu + *!* se transmit si soldurile pe cote de TVA 24,9,5 pentru cazul in care soldul total este 0 + + Local lcXMLFacturi + If !(luna_inchisa Or m.glEMama) + Select *, (RO24NB+RO20NB+RO19NB+RO09NB+RO05NB + RO24NT+RO20NT+RO19NT+RO09NT+RO05NT) as soldn, ; + RO24NB+RO24NT as soldn24, RO20NB+RO20NT as soldn20, RO19NB+RO19NT as soldn19, RO09NB+RO09NT as soldn9, RO05NB+RO05NT as soldn5; + From actcv With (Buffering = .T.) ; + Where ales = 1 ; + Into Cursor crsTVAIncasareTemp + + If _Tally > 0 + Cursortoxml('crsTVAIncasareTemp', "lcXMLFacturi", 1, 0, 0, "1") + Use In (Select('crsTVAIncasareTemp')) + + Do inchidere_tva_sold With 'JC', m.lcXMLFacturi IN oproceduri_inchidere.prg + Endif + Use In (Select('crsTVAIncasareTemp')) + Endif + + ENDPROC + + PROCEDURE Gridextra1.applyfilter + DODEFAULT() + Thisform._grdfooter1.calcTotal() + ENDPROC + + PROCEDURE Gridextra1.clearfilter + DODEFAULT() + Thisform._grdfooter1.calcTotal() + ENDPROC + + PROCEDURE _grdbase1.cCod_fiscal.Text1.DblClick + Thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.cDataact.Header1.Init + this.ForeColor =IIF(!EMPTY(this.tag),RGB(0,0,255),RGB(0,0,0)) + ENDPROC + + PROCEDURE _grdbase1.cDataact.Text1.DblClick + Thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.cDenumire.Header1.Init + this.ForeColor =IIF(!EMPTY(this.tag),RGB(0,0,255),RGB(0,0,0)) + ENDPROC + + PROCEDURE _grdbase1.cDenumire.Text1.DblClick + Thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.cFdoc.Text1.DblClick + Thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.cNract.Header1.Init + this.ForeColor =IIF(!EMPTY(this.tag),RGB(0,0,255),RGB(0,0,0)) + ENDPROC + + PROCEDURE _grdbase1.cNract.Text1.DblClick + Thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.cRo24b.Text1.DblClick + Thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.cRo24t.Text1.DblClick + Thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.cTotctva.Text1.DblClick + Thisform.butdrept() + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_regcump2025 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="_grdbase1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFdoc.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFdoc.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cDataact.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cDataact.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cNract.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cNract.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cDenumire.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cDenumire.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCod_fiscal.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCod_fiscal.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTotctva.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTotctva.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo11b.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo11b.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo11t.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo11t.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo09b.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo09b.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo09t.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo09t.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRoscn.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRoscn.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFo11b.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFo11b.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFo11t.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFo11t.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFo09b.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFo09b.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFo09t.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFo09t.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFoscn.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFoscn.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCEt.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCEt.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCEb.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCEb.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTI11b.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTI11b.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTI11t.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTI11t.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTI09b.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTI09b.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTI09t.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTI09t.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCEsc.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCEsc.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCEn.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCEn.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cSerieAct.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cSerieAct.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo05b.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo05b.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo05t.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo05t.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO19b.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO19b.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo19t.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo19t.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFo19b.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFo19b.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFo19t.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFo19t.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTi19b.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTi19b.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTi19t.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTi19t.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cROtn.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cROtn.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTotfTVATax.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTotfTVATax.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTotTVATax.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTotTVATax.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRONB.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRONB.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRONT.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRONT.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO11NB.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO11NB.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO11NT.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO11NT.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO09NB.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO09NB.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO09NT.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO09NT.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO05NB.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO05NB.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO05NT.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO05NT.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTVAIncasare.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTVAIncasare.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTVAIncasare.Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cSucursala.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cSucursala.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cAles.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cAles.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cAles._checkbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCont.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCont.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cSoldF.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cSoldF.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cSoldDif.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cSoldDif.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cSoldN.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cSoldN.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO21B.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO21B.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO21T.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO21T.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO21NB.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO21NB.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO21NT.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO21NT.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFO21B.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFO21B.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFO21T.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFO21T.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTI21B.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTI21B.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTI21T.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTI21T.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cDataIreg.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cDataIreg.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO19NB.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO19NB.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO19NT.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO19NT.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column63.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column63.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column64.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column64.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column65.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column65.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cXX19TIB.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cXX19TIB.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cXX19TIT.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cXX19TIT.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cXX9TIB.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cXX9TIB.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cXX9TIT.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cXX9TIT.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cXX21TIB.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cXX21TIB.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cXX21TIT.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cXX21TIT.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cXX11TIB.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cXX11TIB.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cXX11TIT.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cXX11TIT.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_reface1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cbo_tip_jurnal_cump" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="oMenuShortcut" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_verifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_start_criterii1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_reset_criterii1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_shortcuts1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdfooter1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cmdTVAIncasare" UniqueID="" Timestamp="" /> + + * + *m: butdrept + *m: do_listare2013 + *m: grdfooterevent + *m: incaspl + *m: ist_deb_cred + *m: notacontab + *p: lafisaretot && Afiseaza toate inregistrarile la intrare, fara sa mai apesi pe butonul Cautare/Reset + *p: lvfp9 + *p: nlistitemid + *p: nlistitemiddef + * + + * + BorderStyle = 1 + cgridsortlist = _grdbase1 + DoCreate = .T. + filtru_pretty = + Height = 513 + lafisaretot = .F. + lvfp9 = .T. + Name = "frm_regcump2025" + nlistitemid = 1 + nlistitemiddef = 2 + Width = 795 + WindowState = 2 + _memberdata = + + + _shape1.Anchor = 10 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 795 + _shape1.ZOrderSet = 0 + _shape2.Anchor = 8 + _shape2.Height = 29 + _shape2.Left = 672 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 121 + _shape2.ZOrderSet = 1 + Lb_titlu_alb_b121.Caption = "REGISTRUL CUMPARARI" + Lb_titlu_alb_b121.FontBold = .T. + Lb_titlu_alb_b121.Left = 6 + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 15 + Lb_titlu_alb_b121.Top = 1 + Lb_titlu_alb_b121.ZOrderSet = 3 + BUT_TERMIN1.Anchor = 8 + BUT_TERMIN1.Left = 765 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 10 + BUT_TERMIN1.Top = 1 + BUT_TERMIN1.ZOrderSet = 5 + Gridsort1.Left = 5 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 42 + * + + ADD OBJECT '_grdbase1' AS _grdbase WITH ; + Anchor = 15, ; + ColumnCount = 73, ; + Comment = "*:OnResize=ss", ; + DeleteMark = .F., ; + FontSize = 10, ; + GridLineColor = 192,192,192, ; + HeaderHeight = 56, ; + Height = 405, ; + Left = 11, ; + Name = "_grdbase1", ; + Panel = 1, ; + ReadOnly = .T., ; + RecordSource = "actcv", ; + RowHeight = 19, ; + TabIndex = 8, ; + Top = 73, ; + Width = 768, ; + ZOrderSet = 2, ; + Column1.ColumnOrder = 1, ; + Column1.ControlSource = "fdoc", ; + Column1.FontName = "Arial", ; + Column1.FontSize = 10, ; + Column1.Name = "cFdoc", ; + Column1.ReadOnly = .T., ; + Column1.Visible = .T., ; + Column1.Width = 124, ; + Column2.ColumnOrder = 2, ; + Column2.ControlSource = "dataact", ; + Column2.FontName = "Arial", ; + Column2.FontSize = 10, ; + Column2.Name = "cDataact", ; + Column2.ReadOnly = .T., ; + Column2.Visible = .T., ; + Column2.Width = 86, ; + Column3.ColumnOrder = 5, ; + Column3.ControlSource = "nract", ; + Column3.FontName = "Arial", ; + Column3.FontSize = 10, ; + Column3.Name = "cNract", ; + Column3.ReadOnly = .T., ; + Column3.Visible = .T., ; + Column3.Width = 125, ; + Column4.ColumnOrder = 6, ; + Column4.ControlSource = "denumire", ; + Column4.FontName = "Arial", ; + Column4.FontSize = 10, ; + Column4.Name = "cDenumire", ; + Column4.ReadOnly = .T., ; + Column4.Visible = .T., ; + Column4.Width = 185, ; + Column5.ColumnOrder = 7, ; + Column5.ControlSource = "cod_fiscal", ; + Column5.FontName = "Arial", ; + Column5.FontSize = 10, ; + Column5.Name = "cCod_fiscal", ; + Column5.ReadOnly = .T., ; + Column5.Visible = .T., ; + Column5.Width = 115, ; + Column6.ColumnOrder = 8, ; + Column6.ControlSource = "totctva", ; + Column6.FontName = "Arial", ; + Column6.FontSize = 10, ; + Column6.InputMask = (get_mask(12,gnZ)), ; + Column6.Name = "cTotctva", ; + Column6.ReadOnly = .T., ; + Column6.Visible = .T., ; + Column6.Width = 108, ; + Column7.ColumnOrder = 17, ; + Column7.ControlSource = "ro11b", ; + Column7.FontName = "Arial", ; + Column7.FontSize = 10, ; + Column7.InputMask = (get_mask(12,gnZ)), ; + Column7.Name = "cRo11b", ; + Column7.ReadOnly = .T., ; + Column7.Visible = .T., ; + Column7.Width = 114, ; + Column8.ColumnOrder = 18, ; + Column8.ControlSource = "ro11t", ; + Column8.FontName = "Arial", ; + Column8.FontSize = 10, ; + Column8.InputMask = (get_mask(12,gnZ)), ; + Column8.Name = "cRo11t", ; + Column8.ReadOnly = .T., ; + Column8.Visible = .T., ; + Column8.Width = 110, ; + Column9.ColumnOrder = 25, ; + Column9.ControlSource = "ro09b", ; + Column9.FontName = "Arial", ; + Column9.FontSize = 10, ; + Column9.InputMask = (get_mask(12,gnZ)), ; + Column9.Name = "cRo09b", ; + Column9.ReadOnly = .T., ; + Column9.Visible = .T., ; + Column9.Width = 114, ; + Column10.ColumnOrder = 26, ; + Column10.ControlSource = "Ro09t", ; + Column10.FontName = "Arial", ; + Column10.FontSize = 10, ; + Column10.Format = "R", ; + Column10.InputMask = (get_mask(12,gnZ)), ; + Column10.Name = "cRo09t", ; + Column10.ReadOnly = .T., ; + Column10.Visible = .T., ; + Column10.Width = 122, ; + Column11.ColumnOrder = 33, ; + Column11.ControlSource = "Roscn", ; + Column11.FontName = "Arial", ; + Column11.FontSize = 10, ; + Column11.InputMask = (get_mask(12,gnZ)), ; + Column11.Name = "cRoscn", ; + Column11.ReadOnly = .T., ; + Column11.Visible = .T., ; + Column11.Width = 115, ; + Column12.ColumnOrder = 36, ; + Column12.ControlSource = "fo11b", ; + Column12.FontName = "Arial", ; + Column12.FontSize = 10, ; + Column12.InputMask = (get_mask(12,gnZ)), ; + Column12.Name = "cFo11b", ; + Column12.ReadOnly = .T., ; + Column12.Visible = .T., ; + Column12.Width = 111, ; + Column13.ColumnOrder = 37, ; + Column13.ControlSource = "fo11t", ; + Column13.FontName = "Arial", ; + Column13.FontSize = 10, ; + Column13.InputMask = (get_mask(12,gnZ)), ; + Column13.Name = "cFo11t", ; + Column13.ReadOnly = .T., ; + Column13.Visible = .T., ; + Column13.Width = 104, ; + Column14.ColumnOrder = 40, ; + Column14.ControlSource = "fo09b", ; + Column14.FontName = "Arial", ; + Column14.FontSize = 10, ; + Column14.InputMask = (get_mask(12,gnZ)), ; + Column14.Name = "cFo09b", ; + Column14.ReadOnly = .T., ; + Column14.Visible = .T., ; + Column14.Width = 113, ; + Column15.ColumnOrder = 41, ; + Column15.ControlSource = "fo09t", ; + Column15.FontName = "Arial", ; + Column15.FontSize = 10, ; + Column15.InputMask = (get_mask(12,gnZ)), ; + Column15.Name = "cFo09t", ; + Column15.ReadOnly = .T., ; + Column15.Visible = .T., ; + Column15.Width = 102, ; + Column16.ColumnOrder = 42, ; + Column16.ControlSource = "foscn", ; + Column16.FontName = "Arial", ; + Column16.FontSize = 10, ; + Column16.InputMask = (get_mask(12,gnZ)), ; + Column16.Name = "cFoscn", ; + Column16.ReadOnly = .T., ; + Column16.Visible = .T., ; + Column16.Width = 106, ; + Column17.ColumnOrder = 44, ; + Column17.ControlSource = "CEt", ; + Column17.FontName = "Arial", ; + Column17.FontSize = 10, ; + Column17.InputMask = (get_mask(12,gnZ)), ; + Column17.Name = "cCEt", ; + Column17.ReadOnly = .T., ; + Column17.Visible = .T., ; + Column17.Width = 81, ; + Column18.ColumnOrder = 43, ; + Column18.ControlSource = "CEb", ; + Column18.FontName = "Arial", ; + Column18.FontSize = 10, ; + Column18.InputMask = (get_mask(12,gnZ)), ; + Column18.Name = "cCEb", ; + Column18.ReadOnly = .T., ; + Column18.Visible = .T., ; + Column18.Width = 85, ; + Column19.ColumnOrder = 57, ; + Column19.ControlSource = "TI11b", ; + Column19.FontName = "Arial", ; + Column19.FontSize = 10, ; + Column19.InputMask = (get_mask(12,gnZ)), ; + Column19.Name = "cTI11b", ; + Column19.ReadOnly = .T., ; + Column19.Visible = .T., ; + Column19.Width = 83, ; + Column20.ColumnOrder = 58, ; + Column20.ControlSource = "TI11t", ; + Column20.FontName = "Arial", ; + Column20.FontSize = 10, ; + Column20.InputMask = (get_mask(12,gnZ)), ; + Column20.Name = "cTI11t", ; + Column20.ReadOnly = .T., ; + Column20.Visible = .T., ; + Column20.Width = 107, ; + Column21.ColumnOrder = 61, ; + Column21.ControlSource = "TI09b", ; + Column21.FontName = "Arial", ; + Column21.FontSize = 10, ; + Column21.InputMask = (get_mask(12,gnZ)), ; + Column21.Name = "cTI09b", ; + Column21.ReadOnly = .T., ; + Column21.Visible = .T., ; + Column21.Width = 112, ; + Column22.ColumnOrder = 62, ; + Column22.ControlSource = "TI09t", ; + Column22.FontName = "Arial", ; + Column22.FontSize = 10, ; + Column22.InputMask = (get_mask(12,gnZ)), ; + Column22.Name = "cTI09t", ; + Column22.ReadOnly = .T., ; + Column22.Visible = .T., ; + Column22.Width = 106, ; + Column23.ColumnOrder = 45, ; + Column23.ControlSource = "CEsc", ; + Column23.FontName = "Arial", ; + Column23.FontSize = 10, ; + Column23.InputMask = (get_mask(12,gnZ)), ; + Column23.Name = "cCEsc", ; + Column23.ReadOnly = .T., ; + Column23.Visible = .T., ; + Column24.ColumnOrder = 46, ; + Column24.ControlSource = "CEn", ; + Column24.FontName = "Arial", ; + Column24.FontSize = 10, ; + Column24.InputMask = (get_mask(12,gnZ)), ; + Column24.Name = "cCEn", ; + Column24.ReadOnly = .T., ; + Column24.Visible = .T., ; + Column24.Width = 105, ; + Column25.ColumnOrder = 4, ; + Column25.ControlSource = "serie_act", ; + Column25.FontName = "Arial", ; + Column25.FontSize = 10, ; + Column25.Name = "cSerieAct", ; + Column25.ReadOnly = .T., ; + Column25.Visible = .T., ; + Column25.Width = 62, ; + Column26.ColumnOrder = 29, ; + Column26.ControlSource = "ro05b", ; + Column26.FontName = "Arial", ; + Column26.FontSize = 10, ; + Column26.InputMask = (get_mask(12,gnZ)), ; + Column26.Name = "cRo05b", ; + Column26.ReadOnly = .T., ; + Column26.Visible = .T., ; + Column26.Width = 112, ; + Column27.ColumnOrder = 30, ; + Column27.ControlSource = "ro05t", ; + Column27.FontName = "Arial", ; + Column27.FontSize = 10, ; + Column27.InputMask = (get_mask(12,gnZ)), ; + Column27.Name = "cRo05t", ; + Column27.ReadOnly = .T., ; + Column27.Visible = .T., ; + Column27.Width = 113, ; + Column28.ColumnOrder = 21, ; + Column28.ControlSource = "ro19b", ; + Column28.FontName = "Arial", ; + Column28.FontSize = 10, ; + Column28.InputMask = (get_mask(12,gnZ)), ; + Column28.Name = "cRO19b", ; + Column28.ReadOnly = .T., ; + Column28.Visible = .T., ; + Column28.Width = 110, ; + Column29.ColumnOrder = 22, ; + Column29.ControlSource = "ro19t", ; + Column29.FontName = "Arial", ; + Column29.FontSize = 10, ; + Column29.InputMask = (get_mask(12,gnZ)), ; + Column29.Name = "cRo19t", ; + Column29.ReadOnly = .T., ; + Column29.Visible = .T., ; + Column29.Width = 99, ; + Column30.ColumnOrder = 38, ; + Column30.ControlSource = "fo19b", ; + Column30.FontName = "Arial", ; + Column30.FontSize = 10, ; + Column30.InputMask = (get_mask(12,gnZ)), ; + Column30.Name = "cFo19b", ; + Column30.ReadOnly = .T., ; + Column30.Visible = .T., ; + Column30.Width = 110, ; + Column31.ColumnOrder = 39, ; + Column31.ControlSource = "fo19t", ; + Column31.FontName = "Arial", ; + Column31.FontSize = 10, ; + Column31.InputMask = (get_mask(12,gnZ)), ; + Column31.Name = "cFo19t", ; + Column31.ReadOnly = .T., ; + Column31.Visible = .T., ; + Column31.Width = 106, ; + Column32.ColumnOrder = 59, ; + Column32.ControlSource = "ti19b", ; + Column32.FontName = "Arial", ; + Column32.FontSize = 10, ; + Column32.InputMask = (get_mask(12,gnZ)), ; + Column32.Name = "cTi19b", ; + Column32.ReadOnly = .T., ; + Column32.Visible = .T., ; + Column32.Width = 93, ; + Column33.ColumnOrder = 60, ; + Column33.ControlSource = "ti19t", ; + Column33.FontName = "Arial", ; + Column33.FontSize = 10, ; + Column33.InputMask = (get_mask(12,gnZ)), ; + Column33.Name = "cTi19t", ; + Column33.ReadOnly = .T., ; + Column33.Visible = .T., ; + Column33.Width = 97, ; + Column34.ColumnOrder = 63, ; + Column34.ControlSource = "rotn+rotn50+rotn100", ; + Column34.FontName = "Arial", ; + Column34.FontSize = 10, ; + Column34.InputMask = (get_mask(12,gnZ)), ; + Column34.Name = "cROtn", ; + Column34.ReadOnly = .T., ; + Column34.Visible = .T., ; + Column34.Width = 108, ; + Column35.ColumnOrder = 9, ; + Column35.ControlSource = "TOTFTVATAX", ; + Column35.FontName = "Arial", ; + Column35.FontSize = 10, ; + Column35.InputMask = (get_mask(12,gnZ)), ; + Column35.Name = "cTotfTVATax", ; + Column35.ReadOnly = .T., ; + Column35.Visible = .T., ; + Column35.Width = 92, ; + Column36.ColumnOrder = 10, ; + Column36.ControlSource = "TOTTVATAX", ; + Column36.FontName = "Arial", ; + Column36.FontSize = 10, ; + Column36.InputMask = (get_mask(12,gnZ)), ; + Column36.Name = "cTotTVATax", ; + Column36.ReadOnly = .T., ; + Column36.Visible = .T., ; + Column36.Width = 99, ; + Column37.ColumnOrder = 11, ; + Column37.ControlSource = "RO21NB+RO11NB+RO19NB+RO09NB+RO05NB+RO24NB+RO20NB", ; + Column37.FontName = "Arial", ; + Column37.FontSize = 10, ; + Column37.InputMask = (get_mask(12,gnZ)), ; + Column37.Name = "cRONB", ; + Column37.ReadOnly = .T., ; + Column37.Visible = .T., ; + Column37.Width = 107, ; + Column38.ColumnOrder = 12, ; + Column38.ControlSource = "RO21NT+RO11NT+RO19NT+RO09NT+RO05NT+RO24NT+RO20NT", ; + Column38.FontName = "Arial", ; + Column38.FontSize = 10, ; + Column38.InputMask = (get_mask(12,gnZ)), ; + Column38.Name = "cRONT", ; + Column38.ReadOnly = .T., ; + Column38.Visible = .T., ; + Column38.Width = 98, ; + Column39.ColumnOrder = 19, ; + Column39.ControlSource = "RO11NB", ; + Column39.FontName = "Arial", ; + Column39.FontSize = 10, ; + Column39.InputMask = (get_mask(12,gnZ)), ; + Column39.Name = "cRO11NB", ; + Column39.ReadOnly = .T., ; + Column39.Visible = .T., ; + Column39.Width = 120, ; + Column40.ColumnOrder = 20, ; + Column40.ControlSource = "RO11NT", ; + Column40.FontName = "Arial", ; + Column40.FontSize = 10, ; + Column40.InputMask = (get_mask(12,gnZ)), ; + Column40.Name = "cRO11NT", ; + Column40.ReadOnly = .T., ; + Column40.Visible = .T., ; + Column40.Width = 123, ; + Column41.ColumnOrder = 27, ; + Column41.ControlSource = "RO09NB", ; + Column41.FontName = "Arial", ; + Column41.FontSize = 10, ; + Column41.InputMask = (get_mask(12,gnZ)), ; + Column41.Name = "cRO09NB", ; + Column41.ReadOnly = .T., ; + Column41.Visible = .T., ; + Column41.Width = 122, ; + Column42.ColumnOrder = 28, ; + Column42.ControlSource = "RO09NT", ; + Column42.FontName = "Arial", ; + Column42.FontSize = 10, ; + Column42.InputMask = (get_mask(12,gnZ)), ; + Column42.Name = "cRO09NT", ; + Column42.ReadOnly = .T., ; + Column42.Visible = .T., ; + Column42.Width = 125, ; + Column43.ColumnOrder = 31, ; + Column43.ControlSource = "RO05NB", ; + Column43.FontName = "Arial", ; + Column43.FontSize = 10, ; + Column43.InputMask = (get_mask(12,gnZ)), ; + Column43.Name = "cRO05NB", ; + Column43.ReadOnly = .T., ; + Column43.Visible = .T., ; + Column43.Width = 119, ; + Column44.ColumnOrder = 32, ; + Column44.ControlSource = "RO05NT", ; + Column44.FontName = "Arial", ; + Column44.FontSize = 10, ; + Column44.InputMask = (get_mask(12,gnZ)), ; + Column44.Name = "cRO05NT", ; + Column44.ReadOnly = .T., ; + Column44.Visible = .T., ; + Column44.Width = 127, ; + Column45.ColumnOrder = 64, ; + Column45.ControlSource = "tva_incasare", ; + Column45.CurrentControl = "Check1", ; + Column45.FontName = "Arial", ; + Column45.FontSize = 10, ; + Column45.Name = "cTVAIncasare", ; + Column45.ReadOnly = .T., ; + Column45.Sparse = .F., ; + Column45.Visible = .T., ; + Column45.Width = 28, ; + Column46.ColumnOrder = 67, ; + Column46.ControlSource = "sucursala", ; + Column46.FontName = "Arial", ; + Column46.FontSize = 10, ; + Column46.Name = "cSucursala", ; + Column46.ReadOnly = .T., ; + Column46.Visible = .T., ; + Column46.Width = 146, ; + Column47.ColumnOrder = 65, ; + Column47.ControlSource = "actcv.ales", ; + Column47.CurrentControl = "_checkbox1", ; + Column47.FontName = "Arial", ; + Column47.FontSize = 10, ; + Column47.Name = "cAles", ; + Column47.ReadOnly = .F., ; + Column47.Sparse = .F., ; + Column47.Visible = .T., ; + Column47.Width = 28, ; + Column48.ColumnOrder = 66, ; + Column48.ControlSource = "cont", ; + Column48.FontName = "Arial", ; + Column48.FontSize = 10, ; + Column48.Name = "cCont", ; + Column48.ReadOnly = .T., ; + Column48.Visible = .T., ; + Column49.BackColor = 140,218,255, ; + Column49.ColumnOrder = 68, ; + Column49.ControlSource = "soldf", ; + Column49.FontName = "Arial", ; + Column49.FontSize = 10, ; + Column49.InputMask = (get_mask(12,gnZ)), ; + Column49.Name = "cSoldF", ; + Column49.ReadOnly = .T., ; + Column49.Visible = .T., ; + Column50.BackColor = 140,218,255, ; + Column50.ColumnOrder = 70, ; + Column50.ControlSource = "solddif", ; + Column50.FontName = "Arial", ; + Column50.FontSize = 10, ; + Column50.InputMask = (get_mask(12,gnZ)), ; + Column50.Name = "cSoldDif", ; + Column50.ReadOnly = .T., ; + Column50.Visible = .T., ; + Column50.Width = 108, ; + Column51.BackColor = 140,218,255, ; + Column51.ColumnOrder = 69, ; + Column51.ControlSource = "RO24NB+RO20NB+RO21NB+RO11NB+RO19NB+RO09NB+RO05NB+RO24NT+RO20NT+RO21NT+RO11NT+RO19NT+RO09NT+RO05NT", ; + Column51.FontName = "Arial", ; + Column51.FontSize = 10, ; + Column51.InputMask = (get_mask(12,gnZ)), ; + Column51.Name = "cSoldN", ; + Column51.ReadOnly = .T., ; + Column51.Visible = .T., ; + Column51.Width = 82, ; + Column52.ColumnOrder = 13, ; + Column52.ControlSource = "ro21b", ; + Column52.FontName = "Arial", ; + Column52.FontSize = 10, ; + Column52.InputMask = (get_mask(12,gnZ)), ; + Column52.Name = "cRO21B", ; + Column52.ReadOnly = .T., ; + Column52.Visible = .T., ; + Column52.Width = 101, ; + Column53.ColumnOrder = 14, ; + Column53.ControlSource = "ro21t", ; + Column53.FontName = "Arial", ; + Column53.FontSize = 10, ; + Column53.InputMask = (get_mask(12,gnZ)), ; + Column53.Name = "cRO21T", ; + Column53.ReadOnly = .T., ; + Column53.Visible = .T., ; + Column53.Width = 102, ; + Column54.ColumnOrder = 15, ; + Column54.ControlSource = "RO21NB", ; + Column54.FontName = "Arial", ; + Column54.FontSize = 10, ; + Column54.InputMask = (get_mask(12,gnZ)), ; + Column54.Name = "cRO21NB", ; + Column54.ReadOnly = .T., ; + Column54.Visible = .T., ; + Column54.Width = 125, ; + Column55.ColumnOrder = 16, ; + Column55.ControlSource = "RO21NT", ; + Column55.FontName = "Arial", ; + Column55.FontSize = 10, ; + Column55.InputMask = (get_mask(12,gnZ)), ; + Column55.Name = "cRO21NT", ; + Column55.ReadOnly = .T., ; + Column55.Visible = .T., ; + Column55.Width = 122, ; + Column56.ColumnOrder = 34, ; + Column56.ControlSource = "FO21B", ; + Column56.FontName = "Arial", ; + Column56.FontSize = 10, ; + Column56.InputMask = (get_mask(12,gnZ)), ; + Column56.Name = "cFO21B", ; + Column56.ReadOnly = .T., ; + Column56.Visible = .T., ; + Column56.Width = 102, ; + Column57.ColumnOrder = 35, ; + Column57.ControlSource = "FO21T", ; + Column57.FontName = "Arial", ; + Column57.FontSize = 10, ; + Column57.InputMask = (get_mask(12,gnZ)), ; + Column57.Name = "cFO21T", ; + Column57.ReadOnly = .T., ; + Column57.Visible = .T., ; + Column57.Width = 109, ; + Column58.ColumnOrder = 55, ; + Column58.ControlSource = "TI21B", ; + Column58.FontName = "Arial", ; + Column58.FontSize = 10, ; + Column58.InputMask = (get_mask(12,gnZ)), ; + Column58.Name = "cTI21B", ; + Column58.ReadOnly = .T., ; + Column58.Visible = .T., ; + Column58.Width = 95, ; + Column59.ColumnOrder = 56, ; + Column59.ControlSource = "TI21T", ; + Column59.FontName = "Arial", ; + Column59.FontSize = 10, ; + Column59.InputMask = (get_mask(12,gnZ)), ; + Column59.Name = "cTI21T", ; + Column59.ReadOnly = .T., ; + Column59.Visible = .T., ; + Column59.Width = 114, ; + Column60.ColumnOrder = 3, ; + Column60.ControlSource = "dataireg", ; + Column60.FontName = "Arial", ; + Column60.FontSize = 10, ; + Column60.Name = "cDataIreg", ; + Column60.ReadOnly = .T., ; + Column60.Visible = .T., ; + Column60.Width = 100, ; + Column61.ColumnOrder = 23, ; + Column61.ControlSource = "RO19NB", ; + Column61.FontName = "Arial", ; + Column61.FontSize = 10, ; + Column61.Format = "R", ; + Column61.InputMask = (get_mask(12,gnZ)), ; + Column61.Name = "cRO19NB", ; + Column61.ReadOnly = .T., ; + Column61.Width = 125, ; + Column62.ColumnOrder = 24, ; + Column62.ControlSource = "RO19NT", ; + Column62.FontName = "Arial", ; + Column62.FontSize = 10, ; + Column62.Format = "R", ; + Column62.InputMask = (get_mask(12,gnZ)), ; + Column62.Name = "cRO19NT", ; + Column62.ReadOnly = .T., ; + Column62.Width = 119, ; + Column63.BackColor = 128,255,255, ; + Column63.ColumnOrder = 71, ; + Column63.ControlSource = "incasat_tot", ; + Column63.FontSize = 10, ; + Column63.InputMask = (get_mask(12,gnZ)), ; + Column63.Name = "Column63", ; + Column63.ReadOnly = .T., ; + Column64.BackColor = 128,255,255, ; + Column64.ColumnOrder = 72, ; + Column64.ControlSource = "incasat_exigibil", ; + Column64.FontSize = 10, ; + Column64.InputMask = (get_mask(12,gnZ)), ; + Column64.Name = "Column64", ; + Column64.ReadOnly = .T., ; + Column65.BackColor = 128,255,255, ; + Column65.ColumnOrder = 73, ; + Column65.ControlSource = "diferenta_incasare_tva", ; + Column65.FontSize = 10, ; + Column65.InputMask = (get_mask(12,gnZ)), ; + Column65.Name = "Column65", ; + Column65.ReadOnly = .T., ; + Column66.ColumnOrder = 51, ; + Column66.ControlSource = "XX19TIB", ; + Column66.FontSize = 10, ; + Column66.InputMask = (get_mask(12,gnZ)), ; + Column66.Name = "cXX19TIB", ; + Column66.ReadOnly = .T., ; + Column66.Width = 102, ; + Column67.ColumnOrder = 52, ; + Column67.ControlSource = "XX19TIT", ; + Column67.FontSize = 10, ; + Column67.InputMask = (get_mask(12,gnZ)), ; + Column67.Name = "cXX19TIT", ; + Column67.ReadOnly = .T., ; + Column67.Width = 94, ; + Column68.ColumnOrder = 53, ; + Column68.ControlSource = "XX9TIB", ; + Column68.FontSize = 10, ; + Column68.InputMask = (get_mask(12,gnZ)), ; + Column68.Name = "cXX9TIB", ; + Column68.ReadOnly = .T., ; + Column68.Width = 85, ; + Column69.ColumnOrder = 54, ; + Column69.ControlSource = "XX9TIT", ; + Column69.FontSize = 10, ; + Column69.InputMask = (get_mask(12,gnZ)), ; + Column69.Name = "cXX9TIT", ; + Column69.ReadOnly = .T., ; + Column69.Width = 84, ; + Column70.ColumnOrder = 47, ; + Column70.ControlSource = "XX21TIB", ; + Column70.FontSize = 10, ; + Column70.Name = "cXX21TIB", ; + Column70.ReadOnly = .T., ; + Column70.Width = 98, ; + Column71.ColumnOrder = 48, ; + Column71.ControlSource = "XX21TIT", ; + Column71.FontSize = 10, ; + Column71.Name = "cXX21TIT", ; + Column71.ReadOnly = .T., ; + Column71.Width = 101, ; + Column72.ColumnOrder = 49, ; + Column72.ControlSource = "XX11TIB", ; + Column72.FontSize = 10, ; + Column72.Name = "cXX11TIB", ; + Column72.ReadOnly = .T., ; + Column72.Width = 93, ; + Column73.ColumnOrder = 50, ; + Column73.ControlSource = "XX11TIT", ; + Column73.FontSize = 10, ; + Column73.Name = "cXX11TIT", ; + Column73.ReadOnly = .T., ; + Column73.Width = 95 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_grdbase1.cAles._checkbox1' AS _checkbox WITH ; + Alignment = 2, ; + Caption = "", ; + FontName = "Arial", ; + FontSize = 10, ; + Left = 39, ; + Name = "_checkbox1", ; + ReadOnly = .F., ; + Top = 70 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT '_grdbase1.cAles.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Ales", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cAles.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cCEb.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Bunuri/servicii din UE =Baza=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cCEb.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cCEn.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Bunuri/servicii din UE =Neimpozabile=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cCEn.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cCEsc.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Bunuri/servicii din UE =Scutite=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cCEsc.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cCEt.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Bunuri/servicii din UE =TVA=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cCEt.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cCod_fiscal.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "C.I.F. / C.N.P.", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cCod_fiscal.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cCont.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cCont.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cDataact.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data act", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cDataact.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cDataIreg.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data inregistrare", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cDataIreg.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cDenumire.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nume", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cDenumire.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cFdoc.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Fel doc.", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cFdoc.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cFo09b.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Bunuri din import =Baza 9%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cFo09b.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cFo09t.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Bunuri din import =TVA 9%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cFo09t.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cFo11b.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Bunuri din import =Baza 11%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cFo11b.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cFo11t.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Bunuri din import = TVA 11%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cFo11t.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cFo19b.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Bunuri din import =Baza 19%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cFo19b.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cFo19t.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Bunuri din import =TVA 19%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cFo19t.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cFO21B.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Bunuri din import =Baza 21%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cFO21B.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cFO21T.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Bunuri din import = TVA 21%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cFO21T.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cFoscn.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Ach. de bunuri din import scutite sau neimpozab.", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cFoscn.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cNract.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. act", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cNract.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column63.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Incasat in luna", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column63.Text1' AS textbox WITH ; + BackColor = 128,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column64.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Exigibilizat (Baza+TVA)", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column64.Text1' AS textbox WITH ; + BackColor = 128,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column65.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Diferenta incasat - exigibilizat", ; + Comment = "incasat_dif", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column65.Text1' AS textbox WITH ; + BackColor = 128,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRo05b.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxabile la intern =Baza 5%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRo05b.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRO05NB.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Neexibigile la intern =Baza 5%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRO05NB.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRO05NT.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Neexibigile la intern =TVA 5%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRO05NT.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRo05t.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxabile la intern =TVA 5%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRo05t.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRo09b.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxabile la intern =Baza 9%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRo09b.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRO09NB.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Neexibigile la intern =Baza 9%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRO09NB.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRO09NT.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Neexibigile la intern =TVA 9%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRO09NT.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRo09t.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxabile la intern =TVA 9%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRo09t.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRo11b.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxabile la intern =Baza 11%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRo11b.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRO11NB.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Neexibigile la intern =Baza 11%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRO11NB.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRO11NT.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Neexibigile la intern =TVA 11%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRO11NT.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRo11t.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxabile la intern =TVA 11%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRo11t.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRO19b.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxabile la intern =Baza 19%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRO19b.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRO19NB.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Neexibigile la intern =Baza 19%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRO19NB.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRO19NT.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Neexibigile la intern =TVA 19%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRO19NT.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRo19t.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxabile la intern =TVA 19%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRo19t.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRO21B.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxabile la intern =Baza 21%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRO21B.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRO21NB.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Neexibigile la intern =Baza 21%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRO21NB.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRO21NT.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Neexibigile la intern =TVA 21%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRO21NT.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRO21T.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxabile la intern =TVA 21%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRO21T.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRONB.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Neexigibil =Baza=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRONB.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRONT.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Neexigibil =TVA=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRONT.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRoscn.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Ach. de bunuri din RO scutite sau neimpozab.", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRoscn.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cROtn.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Limitare deducere TVA", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cROtn.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cSerieAct.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Serie act", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cSerieAct.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cSoldDif.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Diferenta sold (sold fact. - sold neex.)", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cSoldDif.Text1' AS textbox WITH ; + BackColor = 140,218,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cSoldF.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sold factura", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cSoldF.Text1' AS textbox WITH ; + BackColor = 140,218,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cSoldN.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sold Neexigibil", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cSoldN.Text1' AS textbox WITH ; + BackColor = 140,218,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cSucursala.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sucursala", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cSucursala.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cTI09b.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxare inversa =Baza 9%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cTI09b.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cTI09t.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxare inversa =TVA 9%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cTI09t.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cTI11b.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxare inversa =Baza 11%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cTI11b.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cTI11t.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxare inversa =TVA 11%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cTI11t.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cTi19b.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxare inversa =Baza 19%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cTi19b.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cTi19t.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxare inversa =TVA 19%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cTi19t.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cTI21B.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxare inversa =Baza 21%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cTI21B.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cTI21T.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxare inversa =TVA 21%=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cTI21T.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cTotctva.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Total cu TVA", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cTotctva.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cTotfTVATax.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxabil la intern =Baza=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cTotfTVATax.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cTotTVATax.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxabil la intern =TVA=", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cTotTVATax.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cTVAIncasare.Check1' AS checkbox WITH ; + Alignment = 0, ; + Caption = "", ; + FontName = "Arial", ; + FontSize = 10, ; + Height = 17, ; + Left = 4, ; + Name = "Check1", ; + ReadOnly = .T., ; + Top = 74, ; + Width = 60 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT '_grdbase1.cTVAIncasare.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA Inc.", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cTVAIncasare.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cXX11TIB.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Achizitii Non-UE Tx. inv. =Baza11%=", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cXX11TIB.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cXX11TIT.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Achizitii Non-UE Tx. inv. =TVA11%=", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cXX11TIT.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cXX19TIB.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Achizitii Non-UE Tx. inv. =Baza19%=", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cXX19TIB.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cXX19TIT.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Achizitii Non-UE Tx. inv. =TVA19%=", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cXX19TIT.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cXX21TIB.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Achizitii Non-UE Tx. inv. =Baza21%=", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cXX21TIB.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cXX21TIT.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Achizitii Non-UE Tx. inv. =TVA21%=", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cXX21TIT.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cXX9TIB.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Achizitii Non-UE Tx. inv. =Baza 9%=", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cXX9TIB.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cXX9TIT.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Achizitii Non-UE Tx. inv. =TVA 9%=", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cXX9TIT.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdfooter1' AS _grdfooter WITH ; + Anchor = 14, ; + ccolwithlabel = cfdoc, ; + csourcegrid = _grdbase1, ; + csumcolumns = cTotctva,cTotfTvaTax,cTotTvaTax,cRONB,cRONT,cRo21b,cRo21t,cRo21Nb,cRo21Nt,cRo11b,cRo11t,cRo11Nb,cRo11Nt,cRo19b,cRo19t,cRo19nb,cRo19nt,cRo09b,cRo09t,cRo09nb,cRo09nt,cRo05b,cRo05t,cRo05nb,cRo05nt,cRoscn,cFo21b,cFo21t,cFo11b,cFo11t,cFo19b,cFo19t,cFo09b,cFo09t,cFoscn,cCEb,cCEt,cCEsc,cCEn,cTI21b,cTI21T,cTI11b,cTI11T,cTI19b,cTI19T,cTi09b,cTI09t,cROTN,cXX21TIB,cXX21TIT,cXX11TIB,cXX11TIT,cXX19TIB,cXX19TIT,cXX9TIB,cXX9TIT, ; + ctotallabelexpression = 'TOTAL', ; + Height = 25, ; + Left = 11, ; + Name = "_grdfooter1", ; + TabIndex = 18, ; + Top = 480, ; + Width = 768, ; + ZOrderSet = 16 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'But_excel1' AS but_excel WITH ; + Anchor = 8, ; + Left = 702, ; + Name = "But_excel1", ; + TabIndex = 12, ; + Top = 1, ; + ZOrderSet = 6 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_listare1' AS but_listare WITH ; + Anchor = 8, ; + Left = 734, ; + Name = "But_listare1", ; + TabIndex = 11, ; + Top = 1, ; + Visible = .T., ; + ZOrderSet = 7 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_reface1' AS but_reface WITH ; + Anchor = 8, ; + Comment = "*:OnResize=RT", ; + Left = 672, ; + Name = "But_reface1", ; + TabIndex = 13, ; + Top = 1, ; + ZOrderSet = 8 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_reset_criterii1' AS but_reset_criterii WITH ; + Anchor = 9, ; + Left = 583, ; + Name = "But_reset_criterii1", ; + Top = 1, ; + Visible = .T., ; + ZOrderSet = 13 + *< END OBJECT: ClassLib="..\comun\clase\ocriterii.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_start_criterii1' AS but_start_criterii WITH ; + Anchor = 9, ; + Left = 612, ; + Name = "But_start_criterii1", ; + Top = 1, ; + ZOrderSet = 12 + *< END OBJECT: ClassLib="..\comun\clase\ocriterii.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_verifica1' AS but_verifica WITH ; + Anchor = 8, ; + Left = 642, ; + Name = "But_verifica1", ; + TabIndex = 14, ; + ToolTipText = "Verificare coduri fiscale", ; + Top = 1, ; + ZOrderSet = 11 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'cbo_tip_jurnal_cump' AS _combobox WITH ; + Anchor = 3, ; + FontCharSet = 238, ; + FontName = "Segoe UI", ; + FontSize = 10, ; + Height = 24, ; + Left = 12, ; + Name = "cbo_tip_jurnal_cump", ; + RowSource = "Complet,Achizitii din tara,Achizitii din import,Achizitii intracomunitare,Taxare inversa", ; + RowSourceType = 1, ; + TabIndex = 18, ; + ToolTipText = 'Apasati "Cauta" dupa ce alegeti un tip de vizualizare', ; + Top = 37, ; + Width = 254, ; + ZOrderSet = 9 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" /> + + ADD OBJECT 'cmdTVAIncasare' AS cmd_executa WITH ; + Anchor = 8, ; + AutoSize = .T., ; + Caption = "\ + + ADD OBJECT 'Gridextra1' AS gridextra WITH ; + allowgridpreferences = .F., ; + gridexpression = Thisform._grdbase1, ; + Height = 17, ; + Left = 337, ; + Name = "Gridextra1", ; + productname = ROA, ; + Top = 49, ; + Width = 19 + *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> + + ADD OBJECT 'Lb_shortcuts1' AS lb_shortcuts WITH ; + Caption = "CTRL+F = Terminare; ESC = Renuntare; CTRL+Q = Cautare; CTRL+T = Resetare", ; + Left = 6, ; + Name = "Lb_shortcuts1", ; + Top = 16, ; + ZOrderSet = 15 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'oMenuShortcut' AS menulib WITH ; + Left = 216, ; + Name = "oMenuShortcut", ; + TabIndex = 16, ; + Top = 7, ; + ZOrderSet = 10 + *< END OBJECT: ClassLib="..\comun\clase\utility.vcx" BaseClass="container" /> + + PROCEDURE actualizeaza_grid1 + LPARAMETERS lcFiltru + + LOCAL lnOptiune + lnOptiune = THISFORM.cbo_tip_jurnal_cump.LISTITEMID + + IF EMPTY(lcFiltru) + lcFiltru = pocump.ca_baza1.cfiltru + ENDIF + + THISFORM.MOUSEPOINTER= 11 + + THISFORM.LOCKSCREEN=.T. + save_grid_tag(THISFORM._grdbase1) + pocump.ca_baza1.cfiltru=lcFiltru + pocump.ca_baza1.afisare() + restore_grid_tag(THISFORM._grdbase1) + DO CASE + CASE lnOptiune = 1 && REGISTRUL CUMPARARI + THIS._grdbase1.ctotctva.CONTROLSOURCE = "TOTCTVA" + + CASE lnOptiune = 2 && REGISTRUL CUMPARARI - DIN TARA + THIS._grdbase1.ctotctva.CONTROLSOURCE = iif(m.gnAn >=2013, "TOTFTVATAX+TOTTVATAX+ROSCN", "RO11B + RO11T + RO21B + RO21T + RO20B + RO20T + RO24B + RO24T + RO19B + RO19T + RO09B + RO09T + RO05B + RO05T + ROSCN") + + CASE lnOptiune = 3 && REGISTRUL CUMPARARI - DIN IMPORT + THIS._grdbase1.ctotctva.CONTROLSOURCE = "FO24B + FO24T + FO20B + FO20T + FO21B + FO21T + FO11B + FO11T + FO19B + FO19T + FO09B + FO09T + FOSCN" + + CASE lnOptiune = 4 && REGISTRUL CUMPARARI - INTRACOMUNITARE + THIS._grdbase1.ctotctva.CONTROLSOURCE = "CEB + CET + CESC + CEN" + + CASE lnOptiune = 5 && REGISTRUL CUMPARARI - TAXARE INVERSA + THIS._grdbase1.ctotctva.CONTROLSOURCE = "TI24B + TI24T + TI20B + TI20T + TI21B + TI21T + TI11B + TI11T + TI19B + TI19T + TI09B + TI09T + xx21tib + xx21tit + xx11tib + xx11tit + xx19tib + xx19tit + xx9tib + xx9tit" + ENDCASE + THISFORM._grdfooter1.calcTotal + + THISFORM.LOCKSCREEN=.F. + THISFORM.MOUSEPOINTER= 0 + + ENDPROC + + PROCEDURE butdrept + Local loDate As "empty" + Local lcCodFiscal, lcDenumire, lcOptiuniMeniuAnte, lnOptiune, lnRaspuns, loPartener + lcOptiuniMeniuAnte = "\ plata din Registrul Jurnal) + + *!* 25.09.2013 + *!* marius.mutu + *!* FILTRU DIFERENTA SOLD FACTURA - SOLD NEEXIGIBIL (BAZA + TVA) PENTRU FACTURILE TVA INCASARE + + Local lcFiltru + lcFiltru = [luna=]+Alltrim(Str(gnLuna))+[ and an=]+Alltrim(Str(gnAn))+ gcCondSucursala + + *!* 23.07.2010 + && DACA FILTRUL NU CONTINE PERIOADA, SELECTEZ DOAR INREGISTRARILE DIN LUNA CURENTA + If !'PERIOADA'$Upper(Thisform.filtru_pretty_ro_full) + lcFiltru = [LUNA=]+Alltrim(Str(gnLuna))+[ AND AN=]+Alltrim(Str(gnAn)) + gcCondSucursala + Else + lcFiltru = Substr(gcCondSucursala, 6) + Endif + *!* 23.07.2010 ^ + + lnOptiune = Thisform.cbo_tip_jurnal_cump.ListItemId + Thisform.nlistitemid = lnOptiune + + + If Len(Thisform.filtru_pretty)>0 + filtrutext=Thisform.filtru_pretty + If At("AND",filtrutext)=1 + filtrutext=Right(filtrutext,Len(filtrutext)-4) + Endif + + lcFiltru = lcFiltru + Iif(!Empty(m.lcFiltru), " and ", "") + Alltrim(filtrutext) + Endif + Do Case + Case lnOptiune = 1 + Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL CUMPARARI] + Case lnOptiune = 2 + Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL CUMPARARI - DIN TARA] + *!* marius.mutu + *!* 21.06.2007 + *!* facturile RO <> 0 SAU facturile cu toate coloanele <> 0 + lcFiltru = lcFiltru + [ AND ((RO11B<>0 OR RO11T<>0 OR RO21B<>0 OR RO21T<>0 OR RO24B<>0 OR RO24T<>0 OR RO20B<>0 OR RO20T<>0 OR RO19B<>0 OR RO19T<>0 OR RO09B<>0 OR RO09T<>0 OR RO05B<>0 OR RO05T<>0 OR ROSCN<>0 OR ROTN<>0 OR ] + ; + [ RO11nb<>0 OR RO11nt<>0 OR RO21nb<>0 OR RO21nt<>0 OR RO24nb<>0 OR RO24nt<>0 OR RO20nb<>0 OR RO20nt<>0 OR ro19nb<>0 OR ro19nt<>0 OR ro9nb<>0 OR ro9nt<>0 OR ro5nb<>0 OR ro5nt<>0) OR ] + ; + [(TOTCTVA = 0 and RO11B = 0 and RO11T = 0 and RO21B = 0 and RO21T = 0 and RO24B = 0 and RO24T = 0 and RO20B = 0 and RO20T = 0 and RO19B = 0 and RO19T = 0 and RO05B = 0 and RO05T = 0 and RO09B = 0 and RO09T = 0 and ROSCN = 0 and ROTN = 0 ] + ; + [ and FO24B = 0 and FO24T = 0 and FO20B = 0 and FO20T = 0 and FO21B = 0 and FO21T = 0 and FO11B = 0 and FO11T = 0 and FO19B = 0 and FO19T = 0 and FO09B = 0 and FO09T = 0 and FOSCN = 0 ] + ; + [ and CEB = 0 and CET = 0 and CESC = 0 and CEN = 0 ] + ; + [ and XX21TIB = 0 and XX21TIT = 0 and XX11TIB = 0 and XX11TIT = 0 and XX19TIB = 0 and XX19TIT = 0 and XX9TIB = 0 and XX9TIT = 0 ] + ; + [ and TI24B = 0 and TI24T = 0 and TI20B = 0 and TI20T = 0 and TI21B = 0 and TI21T = 0 and TI11B = 0 and TI11T = 0 and TI19B = 0 and TI19T = 0 and TI09B = 0 and TI09T = 0 ] + ; + [ and RO11nb = 0 and RO11nt = 0 and RO21nb = 0 and RO21nt = 0 and RO24nb = 0 and RO24nt = 0 and RO20nb = 0 and RO20nt = 0 and ro19nt = 0 and ro9nb = 0 and ro9nt = 0 and ro5nb = 0 and ro5nt = 0)) ] + + Case lnOptiune = 3 + Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL CUMPARARI - DIN IMPORT] + lcFiltru = lcFiltru + [ AND (FO24B<>0 OR FO24T<>0 OR FO20B<>0 OR FO20T<>0 OR FO21B<>0 OR FO21T<>0 OR FO11B<>0 OR FO11T<>0 OR FO19B<>0 OR FO19T<>0 OR FO09B<>0 OR FO09T<>0 OR FOSCN<>0)] + + Case lnOptiune = 4 + Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL CUMPARARI - INTRACOMUNITARE] + lcFiltru = lcFiltru + [ AND (CEB<>0 OR CET<>0 OR CESC<>0 OR CEN<>0)] + + Case lnOptiune = 5 + Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL CUMPARARI - TAXARE INVERSA] + lcFiltru = lcFiltru + [ AND (TI24B<>0 OR TI24T<>0 OR TI20B<>0 OR TI20T<>0 OR TI21B<>0 OR TI21T<>0 OR TI11B<>0 OR TI11T<>0 OR TI19B<>0 OR TI19T<>0 OR TI09B<>0 OR TI09T<>0 OR ] + ; + [ XX21TIB <> 0 OR XX21TIT <> 0 OR XX11TIB <> 0 OR XX11TIT <> 0 OR XX19TIB <> 0 OR XX19TIT <> 0 OR XX9TIB <> 0 OR XX9TIT <> 0)] + ENDCASE + + If (This.filtru_pretty#"none") + + *** daca vreau sa vad facturile TVA Incasare cu diferenta sold inregistrari parteneri fata de sold neexigibil + *** pentru exibilizare fortata, arat facturile defalcate dupa id_fact (vjc2010), altfel arat facturile cumulate dupa nract, dataact + if('DIFERENTA SOLD'$Upper(Thisform.filtru_pretty_ro_full)) + poCump.ca_baza1.SELECTCMD = STRTRAN(poCump.ca_baza1.SELECTCMD, [vjc2025], [vjc2010],1,1,1) + poCump.ca_baza1.cSelect = STRTRAN(poCump.ca_baza1.cSelect, [vjc2025], [vjc2010],1,1,1) + ELSE + poCump.ca_baza1.SELECTCMD = STRTRAN(poCump.ca_baza1.SELECTCMD, [vjc2010], [vjc2025],1,1,1) + poCump.ca_baza1.cSelect = STRTRAN(poCump.ca_baza1.cSelect, [vjc2010], [vjc2025],1,1,1) + ENDIF + + Thisform.actualizeaza_grid1(lcFiltru) + Thisform.do_executa(lnOptiune) + If Reccount('actcv')=0 + aMESSAGEBOX("Cautarea nu a intors rezultate!",64,"Info cautare") + * THISFORM.ck_nract.SETFOCUS() + Endif + + *** FILTRU DIFERENTE INCASAT - TVA EXIGIBIL PENTRU FACTURILE TVA INCASARE + If 'TVA INCASARE'$Upper(Thisform.filtru_pretty_ro_full) + + TEXT to lcSql noshow textmerge + select an, + luna, + min(id_fact) as id_fact, + dataact, + nract, + serie_act, + id_part, + id_fdoc, + id_sucursala, + sum(totctva) as totctva, + sum(nvl(total_incasat, 0)) as incasat_tot, + SUM(NVL(tva_exigibil, 0)) as incasat_exigibil, + sum(nvl(total_incasat, 0) - tva_exigibil) as diferenta_incasare_tva + from (select a.an, + a.luna, + a.id_fact, + a.dataact, + a.nract, + a.serie_act, + a.id_fdoc, + a.id_sucursala, + a.id_part, + a.totctva, + nvl(b.total_incasat, 0) as total_incasat, + (a.RO11b + a.RO11t + a.RO21b + a.RO21t + a.RO20b + a.RO20t + a.RO24b + a.RO24t + a.ro19bcb + a.ro19bct + a.ro19bvb + + a.ro19bvt + a.ro19bfb + a.ro19bft + a.ro09bcb + a.ro09bct + a.ro09bvb + + a.ro09bvt + a.ro09bfb + a.ro09bft + a.ro05b + a.ro05t + + a.roscn) as tva_exigibil + from (select an, + luna, + id_fact, + id_sucursala, + id_part, + id_fdoc, + nract, + dataact, + serie_act, + totctva, + RO11b, + RO11t, + RO21b, + RO21t, + RO20b, + RO20t, + RO24b, + RO24t, + ro19bcb, + ro19bct, + ro19bvb, + ro19bvt, + ro19bfb, + ro19bft, + ro09bcb, + ro09bct, + ro09bvb, + ro09bvt, + ro09bfb, + ro09bft, + ro05b, + ro05t, + roscn + from jc2007 jc + where an = <> + and luna = <> + and (RO11nb <> 0 + or RO21nb <> 0 + or RO20nb <> 0 + or RO24nb <> 0 + or ro19nb <> 0 + or ro9nb <> 0 + or ro5nb <> 0) <>) a + left join (select an, + luna, + id_sucursala, + (case + when id_jtva_coloana in + (102,104,106,110,112,155,157,177,209,211,213,215) then + id_fact + else + id_factd + end) as id_fact, + sum(case + when id_jtva_coloana in + (102,104,106,110,112,155,157,177,209,211,213,215) then + suma + else + 0 + end) as ex, + sum(case + when id_jtva_coloana in + (102,104,106,110,112,155,157,177,209,211,213,215) then + 0 + else + suma + end) as total_incasat + from act + where sters = 0 + and an = <> + and luna = <> + <> + and (id_jtva_coloana in (102,104,106,110,112,155,157,177,209,211,213,215) or + id_factd <> 0) + group by an, + luna, + id_sucursala, + (case + when id_jtva_coloana in + (102,104,106,110,112,155,157,177,209,211,213,215) then + id_fact + else + id_factd + end)) b + on a.id_fact = b.id_fact + and a.an = b.an + and a.luna = b.luna + and nvl(a.id_sucursala, 0) = nvl(b.id_sucursala, 0) + where nvl(b.total_incasat, 0.00) <> 0 AND nvl(b.total_incasat, 0.00) - + (a.RO11b + a.RO11t + a.RO21b + a.RO21t + a.RO20b + a.RO20t + a.RO24b + a.RO24t + a.ro19bcb + a.ro19bct + a.ro19bvb + + a.ro19bvt + a.ro19bfb + a.ro19bft + a.ro09bcb + a.ro09bct + a.ro09bvb + + a.ro09bvt + a.ro09bfb + a.ro09bft + a.ro05b + a.ro05t + + a.roscn) <> 0) + group by an, + luna, + dataact, + nract, + serie_act, + id_part, + id_fdoc, + id_sucursala + + ENDTEXT + + llSucces = goExecutor.oExecuta(m.lcSql, "crsDiferenteTVA") + If m.llSucces + Select crsDiferenteTVA + Scan + Scatter Name loDiferenta + With loDiferenta + Select actcv + Locate For nract = .nract And dataact = .dataact And id_part = .id_part And Nvl(serie_act,'') = Nvl(.serie_act,'') And Nvl(id_sucursala,0) = Nvl(.id_sucursala,0) And Nvl(id_fdoc,0) = Nvl(.id_fdoc, 0) + If Found() + Replace diferenta_incasare_tva With .diferenta_incasare_tva, incasat_tot WITH .incasat_tot, incasat_exigibil WITH .incasat_exigibil + Endif + Endwith + Endscan && crsDiferenteTVA + + Select actcv + Set Filter To Nvl(diferenta_incasare_tva, 0) <> 0 + Go Top In actcv + Thisform._grdbase1.Refresh() + Thisform._grdfooter1.calcTotal + Endif && m.llSucces + Endif && 'TVA INCASARE' + + *** FILTRU DIFERENTA SOLD FACTURA - SOLD NEEXIGIBIL (BAZA + TVA) PENTRU FACTURILE TVA INCASARE + If 'DIFERENTA SOLD'$Upper(Thisform.filtru_pretty_ro_full) + TEXT to lcSql noshow textmerge + select jc.id_fact, + ip.cont, + nvl(ip.sold, 0) as soldf, + (RO11nb + RO11nt + RO21nb + RO21nt + RO20nb + RO20nt + RO24nb + RO24nt + ro19nb + ro19nt + ro9nb + ro9nt + ro5nb + ro5nt) as soldn, + nvl(ip.sold, 0) - (RO11nb + RO11nt + RO21nb + RO21nt + RO20nb + RO20nt + RO24nb + RO24nt + ro19nb + ro19nt + ro9nb + ro9nt + ro5nb + ro5nt) as solddif, + jc.denumire, + jc.nract, + jc.serie_act, + jc.id_sucursala, + jc.id_fdoc, + jc.id_part, + jc.dataact, + jc.totctva, + jc.RO11nb, + jc.RO11nt, + jc.RO21nb, + jc.RO21nt, + jc.RO20nb, + jc.RO20nt, + jc.RO24nb, + jc.RO24nt, + jc.ro19nb, + jc.ro19nt, + jc.ro9nb, + jc.ro9nt, + jc.ro5nb, + jc.ro5nt + from vjc2010 jc + left join (select id_fact, + cont, + sum(preccred + credit - (precdeb + debit)) as sold + from vireg_parteneri + where an = <> + and luna = <> + and cont not like '409%' + and id_fact in + (select distinct id_fact + from vjc2010 + where an = <> + and luna = <> + and (RO11nt <> 0 or RO21nt <> 0 or ro19nt <> 0 or ro9nt <> 0 or ro5nt <> 0) + and tva_incasare = 1) + group by id_fact, cont) ip + on jc.id_fact = ip.id_fact + where jc.an = <> + and jc.luna = <> + and jc.tva_incasare = 1 + and (jc.RO11nt <> 0 or jc.RO21nt <> 0 or jc.ro19nt <> 0 or jc.ro9nt <> 0 or jc.ro5nt <> 0) + and nvl(ip.sold, 0) - (RO11nb + RO11nt + RO21nb + RO21nt + RO20nb + RO20nt + RO24nb + RO24nt + ro19nb + ro19nt + ro9nb + ro9nt + ro5nb + ro5nt) <> 0 + ENDTEXT + + llSucces = goExecutor.oExecuta(m.lcSql, "crsSoldDif") + If m.llSucces + Select crsSoldDif + Scan + Scatter Name loDiferenta + With loDiferenta + Select actcv + Locate For id_fact = .id_fact && nract = .nract And dataact = .dataact And id_part = .id_part And Nvl(serie_act,'') = Nvl(.serie_act,'') And Nvl(id_sucursala,0) = Nvl(.id_sucursala,0) And Nvl(id_fdoc,0) = Nvl(.id_fdoc, 0) + If Found() + Replace cont With .cont, soldf WITH .soldf, solddif WITH .solddif + Endif + Endwith + Endscan && crsDiferenteTVA + + Select actcv + Set Filter To Nvl(solddif, 0) <> 0 + Go Top In actcv + Thisform._grdbase1.Refresh() + Thisform._grdfooter1.calcTotal + SELECT actcv + Endif && m.llSucces + Endif && DIFERENTA SOLD + + Endif && (This.filtru_pretty#"none") + + ENDPROC + + PROCEDURE do_excel + do export_excel_grid WITH thisform._grdbase1,"dataact, nract", "", this.lb_titlu_alb_b121.caption IN proceduri_excel.prg + ENDPROC + + PROCEDURE do_executa + Lparameters tnOptiune + Thisform._grdbase1.SetAll("Visible",.F.,"Column") + Thisform._grdfooter1.SetAll("Visible",.F.,"Column") + Do Case + Case tnOptiune = 1 + *** TOATE ACHIZITIILE + Thisform._grdbase1.SetAll("Visible",.T.,"Column") + Thisform._grdfooter1.SetAll("Visible",.T.,"Column") + Case tnOptiune = 2 + *** ACHIZITII RO + With Thisform._grdbase1 + .cfdoc.Visible = .T. + .cdataact.Visible = .T. + .cnract.Visible = .T. + .cSerieAct.Visible = .T. + .cdenumire.Visible = .T. + .ccod_fiscal.Visible = .T. + .ctotctva.Visible = .T. + .cRO11b.Visible = .T. + .cRO11t.Visible = .T. + .cRO21b.Visible = .T. + .cRO21t.Visible = .T. + .cro19b.Visible = .T. + .cro19t.Visible = .T. + .cro09b.Visible = .T. + .cro09t.Visible = .T. + .croscn.Visible = .T. + .cro05b.Visible = .T. + .cro05t.Visible = .T. + .cRoTn.Visible = .T. + .ctotftvatax.Visible = .T. + .ctottvatax.Visible = .T. + .cronb.Visible = .T. + .cront.Visible = .T. + .cRO11nb.Visible = .T. + .cRO11nt.Visible = .T. + .cRO21nb.Visible = .T. + .cRO21nt.Visible = .T. + .cro19nb.Visible = .T. + .cro19nt.Visible = .T. + .cro09nb.Visible = .T. + .cro09nt.Visible = .T. + .cro05nb.Visible = .T. + .cro05nt.Visible = .T. + .Refresh() + Endwith + With Thisform._grdfooter1 + .cfdoc.Visible = .T. + .cdataact.Visible = .T. + .cnract.Visible = .T. + .cSerieAct.Visible = .T. + .cdenumire.Visible = .T. + .ccod_fiscal.Visible = .T. + .ctotctva.Visible = .T. + .cRO11b.Visible = .T. + .cRO11t.Visible = .T. + .cRO21b.Visible = .T. + .cRO21t.Visible = .T. + .cro19b.Visible = .T. + .cro19t.Visible = .T. + .cro09b.Visible = .T. + .cro09t.Visible = .T. + .croscn.Visible = .T. + .cro05b.Visible = .T. + .cro05t.Visible = .T. + .cRotn.Visible = .T. + .ctotftvatax.Visible = .T. + .ctottvatax.Visible = .T. + .cronb.Visible = .T. + .cront.Visible = .T. + .cRO11nb.Visible = .T. + .cRO11nt.Visible = .T. + .cRO21nb.Visible = .T. + .cRO21nt.Visible = .T. + .cro19nb.Visible = .T. + .cro19nt.Visible = .T. + .cro09nb.Visible = .T. + .cro09nt.Visible = .T. + .cro05nb.Visible = .T. + .cro05nt.Visible = .T. + .Refresh() + Endwith + Case tnOptiune = 3 + *** ACHIZITII IMPORT + With Thisform._grdbase1 + .cfdoc.Visible = .T. + .cdataact.Visible = .T. + .cnract.Visible = .T. + .cSerieAct.Visible = .T. + .cdenumire.Visible = .T. + .ccod_fiscal.Visible = .T. + .ctotctva.Visible = .T. + .cfo21b.Visible = .T. + .cfo21t.Visible = .T. + .cfo11b.Visible = .T. + .cfo11t.Visible = .T. + .cfo19b.Visible = .T. + .cfo19t.Visible = .T. + .cfo09b.Visible = .T. + .cfo09t.Visible = .T. + .cfoscn.Visible = .T. + .Refresh() + Endwith + With Thisform._grdfooter1 + .cfdoc.Visible = .T. + .cdataact.Visible = .T. + .cnract.Visible = .T. + .cSerieAct.Visible = .T. + .cdenumire.Visible = .T. + .ccod_fiscal.Visible = .T. + .ctotctva.Visible = .T. + .cfo21b.Visible = .T. + .cfo21t.Visible = .T. + .cfo11b.Visible = .T. + .cfo11t.Visible = .T. + .cfo19b.Visible = .T. + .cfo19t.Visible = .T. + .cfo09b.Visible = .T. + .cfo09t.Visible = .T. + .cfoscn.Visible = .T. + .Refresh() + Endwith + Case tnOptiune = 4 + *** ACHIZITII CE + With Thisform._grdbase1 + .cfdoc.Visible = .T. + .cdataact.Visible = .T. + .cnract.Visible = .T. + .cSerieAct.Visible = .T. + .cdenumire.Visible = .T. + .ccod_fiscal.Visible = .T. + .ctotctva.Visible = .T. + .cceb.Visible = .T. + .ccet.Visible = .T. + .ccesc.Visible = .T. + .ccen.Visible = .T. + .Refresh() + Endwith + With Thisform._grdfooter1 + .cfdoc.Visible = .T. + .cdataact.Visible = .T. + .cnract.Visible = .T. + .cSerieAct.Visible = .T. + .cdenumire.Visible = .T. + .ccod_fiscal.Visible = .T. + .ctotctva.Visible = .T. + .cceb.Visible = .T. + .ccet.Visible = .T. + .ccesc.Visible = .T. + .ccen.Visible = .T. + .Refresh() + Endwith + Case tnOptiune = 5 + *** TAXARE INVERSA + With Thisform._grdbase1 + .cfdoc.Visible = .T. + .cdataact.Visible = .T. + .cnract.Visible = .T. + .cSerieAct.Visible = .T. + .cdenumire.Visible = .T. + .ccod_fiscal.Visible = .T. + .ctotctva.Visible = .T. + .cti21b.Visible = .T. + .cti21t.Visible = .T. + .cti11b.Visible = .T. + .cti11t.Visible = .T. + .cti19b.Visible = .T. + .cti19t.Visible = .T. + .cti09b.Visible = .T. + .cti09t.Visible = .T. + .cXX19TIB.Visible = .T. + .cXX19TIT.Visible = .T. + .cXX9TIB.Visible = .T. + .cXX9TIT.Visible = .T. + .cXX21TIB.Visible = .T. + .cXX21TIT.Visible = .T. + .cXX11TIB.Visible = .T. + .cXX11TIT.Visible = .T. + .Refresh() + Endwith + With Thisform._grdfooter1 + .cfdoc.Visible = .T. + .cdataact.Visible = .T. + .cnract.Visible = .T. + .cSerieAct.Visible = .T. + .cdenumire.Visible = .T. + .ccod_fiscal.Visible = .T. + .ctotctva.Visible = .T. + .cti21b.Visible = .T. + .cti21t.Visible = .T. + .cti11b.Visible = .T. + .cti11t.Visible = .T. + .cti19b.Visible = .T. + .cti19t.Visible = .T. + .cti09b.Visible = .T. + .cti09t.Visible = .T. + .cXX19TIB.Visible = .T. + .cXX19TIT.Visible = .T. + .cXX9TIB.Visible = .T. + .cXX9TIT.Visible = .T. + .cXX21TIB.Visible = .T. + .cXX21TIT.Visible = .T. + .cXX11TIB.Visible = .T. + .cXX11TIT.Visible = .T. + .Refresh() + Endwith + Endcase + + ENDPROC + + PROCEDURE do_listare + *!* 06.08.2010 + *!* adaugare coloana 19% si 5% pe rapoarte suplimentare *_2.frx + *!* RAPORT SUPLIMENTAR 5%, 19% (achizitii RO, FO, TI) + + Private pcTitlu, pcSubtitlu + pcTitlu = "Registru cumparari" + Store "" To pcSubtitlu + *!* 16.04.2007 + *!* marius.mutu + *!* listare cu recapitulatie + *!* pnOptiune = Thisform.nlistitemid + lnTipJurnal = Thisform.nlistitemid - 1 + If This.filtru_traducere()#"" + lctext=" si "+This.filtru_traducere() + Else + lctext="" + Endif + + pcSubtitlu1 = This.filtru_pretty_ro + lctext + **************************************************************** + If lnTipJurnal = 0 && Complet + x = xmenu("Achizitii de bunuri si prestari de sevicii taxabile din tara;Achizitii de bunuri si prestari de sevicii taxabile din import;Achizitii intracomunitare de bunuri;Taxare inversa;" + ; + "\-;Recapitulatie - Achizitii de bunuri si prestari de sevicii taxabile din tara;Recapitulatie - Achizitii de bunuri si prestari de sevicii taxabile din import;Recapitulatie - Achizitii intracomunitare de bunuri;Recapitulatie - Taxare inversa") + Else + Do Case + Case lnTipJurnal = 1 + lnMeniu = xmenu("Achizitii de bunuri si prestari de sevicii taxabile din tara;Recapitulatie - Achizitii de bunuri si prestari de sevicii taxabile din tara") + x = Iif(lnMeniu = 1, 1, Iif(lnMeniu = 2, 6, 0)) + + Case lnTipJurnal = 2 + lnMeniu = xmenu("Achizitii de bunuri si prestari de sevicii taxabile din import;Recapitulatie - Achizitii de bunuri si prestari de sevicii taxabile din import") + x = Iif(lnMeniu = 1, 2, Iif(lnMeniu = 2, 7, 0)) + + Case lnTipJurnal = 3 + lnMeniu = xmenu("Achizitii intracomunitare de bunuri;Recapitulatie - Achizitii intracomunitare de bunuri") + x = Iif(lnMeniu = 1, 3, Iif(lnMeniu = 2, 8, 0)) + + Case lnTipJurnal = 4 + lnMeniu = xmenu("Taxare inversa;Recapitulatie - Taxare inversa") + x = Iif(lnMeniu = 1, 4, Iif(lnMeniu = 2, 9, 0)) + Endcase + Endif + + If !Between(x,1,9) + Return + Endif + + *!* pcdataora=get_ora(2) + + lcWhere = "" + + Do Case + Case Inlist(x, 1, 6) + pcSubtitlu = "Achizitii de bunuri si prestari de sevicii taxabile din tara" + lcRaport = [registru_cumparari_jtva2010_ro] + + *!* facturile RO <> 0 SAU facturile cu toate coloanele <> 0 + lcWhere = [((RO11B<>0 OR RO11T<>0 OR RO21B<>0 OR RO21T<>0 OR RO19B<>0 OR RO19T<>0 OR RO09B<>0 OR RO09T<>0 ] + ; + [OR RO05B<>0 OR RO05T<>0 OR ROSCN<>0 OR ROTN<>0) OR ] + ; + [(TOTCTVA = 0 and RO11B = 0 and RO11T = 0 and RO21B = 0 and RO21T = 0 and RO19B = 0 and RO19T = 0 and RO05B = 0 and RO05T = 0 ] + ; + [ and RO09B = 0 and RO09T = 0 and ROSCN = 0 and ROTN = 0 ] + ; + [ and FO24B = 0 and FO24T = 0 and FO20B = 0 and FO20T = 0 and FO19B = 0 and FO19T = 0 and FO09B = 0 and FO09T = 0 and FOSCN = 0 ] + ; + [ and CEB = 0 and CET = 0 and CESC = 0 and CEN = 0 ] + ; + [ and TI24B = 0 and TI24T = 0 and TI20B = 0 and TI20T = 0 and TI19B = 0 and TI19T = 0 and TI09B = 0 and TI09T = 0 ] + ; + [ and XXTI19B = 0 and XXTI19T = 0 and XXTI9B = 0 and XXTI9T = 0))] + + Case Inlist(x, 2, 7) + pcSubtitlu = "Achizitii de bunuri si prestari de sevicii taxabile din import" + lcRaport = [registru_cumparari_jtva2010_fo] + + lcWhere = [(FO24B<>0 OR FO24T<>0 OR FO20B<>0 OR FO20T<>0 OR FO19B<>0 OR FO19T<>0 OR FO09B<>0 OR FO09T<>0 OR FOSCN<>0)] + + Case Inlist(x, 3, 8) + pcSubtitlu = "Achizitii intracomunitare de bunuri" + lcRaport = [registru_cumparari_jtva2010_ce] + + lcWhere = [(CEB<>0 OR CET<>0 OR CESC<>0 OR CEN<>0)] + + Case Inlist(x, 4, 9) + pcSubtitlu = "Bunuri si Sevicii pentru care cumparatorul este obligat la plata taxei (din Tara, Import si Servicii UE) - Taxare Inversa" + lcRaport = [registru_cumparari_jtva2010_ti] + + lcWhere = [(TI24B<>0 OR TI24T<>0 OR TI20B<>0 OR TI20T<>0 OR TI19B<>0 OR TI19T<>0 OR TI09B<>0 OR TI09T<>0 OR XXTI19B<>0 OR XXTI19T<>0 OR XXTI9B<>0 OR XXTI9T<>0)] + + Endcase + + + && REGISTRU TVA LUNA CURENTA + Select 0 As tip, * ; + FROM actcv ; + WHERE &lcWhere ; + INTO Cursor cListRC ; + ORDER By dataact, nract ; + READWRITE + + + If Between(x, 1, 5) And _Tally = 0 + amessagebox("Nu exista inregistrari pentru listare!",48,"Atentie") + Endif + + && REGISTRE TVA RECAPITULATIE + If Between(x, 5, 9) + + Private pnAn, pnLuna + pnAn = 0 + pnLuna = 0 + locaut = Createobject('frm_caut_anluna') + locaut.Show(1) + If buton = 2 + Return + Endif + + lcSelect = [select 1 as tip, an, luna, to_date('','ddmmyyyy') as dataact, 000000000 as nract,] + ; + [ (select numeluna || ' ' || to_char(an) from lunilean where nrluna = luna) as denumire,' ' as cod_fiscal, ] + ; + [SUM(TOTCTVA) AS TOTCTVA, ] + ; + [SUM(CEB) AS CEB, SUM(CET) AS CET, SUM(CEN) AS CEN, ] + ; + [SUM(CESC) AS CESC, ] + ; + [SUM(FOSCN) AS FOSCN, SUM(FO09B) AS FO09B, SUM(FO09T) AS FO09T, ] + ; + [SUM(FO24B) AS FO24B, SUM(FO24T) AS FO24T, SUM(FO20B) AS FO20B, SUM(FO20T) AS FO20T, SUM(FO19B) AS FO19B, SUM(FO19T) AS FO19T, ] + ; + [SUM(ROSCN) AS ROSCN, SUM(RO09B) AS RO09B, SUM(RO09T) AS RO09T, SUM(RO05B) AS RO05B, SUM(RO05T) AS RO05T, ]+; + [SUM(RO11B) AS RO11B, SUM(RO11T) AS RO11T, SUM(RO21B) AS RO21B, SUM(RO21T) AS RO21T, SUM(RO19B) AS RO19B, SUM(RO19T) AS RO19T, Sum(ROTN) AS ROTN, ] + ; + [SUM(TI09B) AS TI09B, SUM(TI09T) AS TI09T, SUM(TI19B) AS TI19B, SUM(TI19T) AS TI19T, SUM(TI24B) AS TI24B, SUM(TI24T) AS TI24T, SUM(TI20B) AS TI20B, SUM(TI20T) AS TI20T, ] + ; + [SUM(XXTI9B) AS XXTI9B, SUM(XXTI9T) AS XXTI9T, SUM(XXTI19B) AS XXTI19B, SUM(XXTI19T) AS XXTI19T ] + ; + [ FROM VJC2010 ] + ; + [ WHERE an*12+luna between ?pnAn*12 + ?pnLuna and ?gnAn*12 + ?gnLuna] + Iif(!Empty(lcWhere), " and " + lcWhere, "") + ; + [ GROUP BY an, luna ] + ; + [ ORDER BY an, luna ] && 08.02.2010 + + + lnSucces = goExecutor.oExecute(lcSelect, "crsTotal") + If lnSucces < 0 + amessagebox(goExecutor.cEroare,0+16,"Eroare") + Else + Select cListRC + Append From Dbf('crsTotal') + Use In crsTotal + Endif + Endif && BETWEEN(x, 5, 9) + If (Between(x, 1, 5) And _Tally > 0) Or Between(x,5,9) + *!* IF USED('cListRc') AND !EMPTY(lcRaport) + *!* THISFORM.ALWAYSONTOP=.F. + *!* SELECT cListRC + *!* REPORT FORMAT (lcRaport) TO PRINTER PROMPT PREVIEW + *!* THISFORM.ALWAYSONTOP=.T. + *!* ENDIF + Thisform.AlwaysOnTop = .F. + goExport.export2frx([cListRc],lcRaport) + + *!* 06.08.2010 + IF INLIST(x, 1, 2, 4, 6, 7, 9) + Select cListRC + DO CASE + CASE Inlist(x, 1, 6) + Set Filter To ro05b <> 0 Or ro05t <> 0 OR ro19b<>0 or ro19t<>0 + CASE Inlist(x, 2, 7) + Set Filter To fo19b<>0 OR fo19t<>0 + CASE Inlist(x, 4, 9) + Set Filter To ti19b<>0 OR ti19t<>0 OR ti09b<>0 OR ti09t<>0 OR xxti19b<>0 OR xxti19t<>0 OR xxti9b<>0 OR xxti9t<>0 + ENDCASE + Go Top + If !Empty(denumire) + lcRaport2 = lcRaport + "_2" + goExport.export2frx([cListRc],lcRaport2) + ENDIF + ENDIF + *!* 06.08.2010 ^ + + Thisform.AlwaysOnTop = .T. + Endif + + If Used('cListRC') + Use In cListRC + Endif + + + + ENDPROC + + PROCEDURE do_listare2013 + *!* 14.03.2013 + *!* marius.mutu + *!* corectare mai multe facturi cu acelasi cod (nota fara predefinire) - nu aparea nume, nract, dataact in listare + + *!* 23.09.2013 + *!* marius.mutu + *!* Se includ si facturile fara TVA INCASARE cu valoare 0 + + *!* 17.10.2013 + *!* marius.mutu + *!* la facturile fara TVA Incasare cu valoare 0, aparea o linie goala + + *!* 23.05.2014 + *!* marius.mutu + *!* am defalcat achizitiile din CE in achizitii bunuri CE si achizitii servicii CE (la cererea Silvia Carapetru) + *!* in vizualizare sunt in continuare comasate (CEB = CEBB + CESB, CET = CEBT + CEST) + + *!* 23.05.2016 + *!* marius.mutu + *** selectez facturile tva la incasare doar pe cele din filtrul curent (interne, import, CE, taxare inversa, total) + + *!* 16.01.2019 + *!* marius.mutu + *!* corectat cod tva TI19BFB in TI19B pentru facturile cu taxare inversa de pe facturile TVA_INCASARE + + *!* 09.04.2019 + *!* marius.mutu + *!* corectat CEBFSC la recapitulatie + + *!* 26.05.2022 + *!* marius.mutu + *!* tratare bug se bloca la listare doar pe calculatorul Silviei la selectie din (cListRC, jtva_coloane) + + Private pcTitlu, pcSubtitlu, pcPerioada, pcSubtitlu1, pcdataora + Local lcNumeAct, lcRaport, lcSelect, lcSql, lcWhere, lctext, lddata1, lddata2, llSucces, lnCod, lcSerieAct + Local lnDiferenta, lnIdFact, lnIncasat3, lnMeniu, lnNrCrt, lnNrCrtF, lnNrc, lnPerioada, lnSucces + Local lnTip, lnTipJurnal, lnOptiuneBug + *:Global pnAn, pnLuna + + pcTitlu = "Registru cumparari" + pcSubtitlu = "" + + lnTipJurnal = Thisform.nlistitemid - 1 + If This.filtru_traducere() # "" + lctext = " si " + This.filtru_traducere() + Else + lctext = "" + Endif + + pcSubtitlu1 = This.filtru_pretty_ro + m.lctext + pcPerioada = Padl(m.gnLuna,2,'0') + '/' + Alltrim(Str(m.gnAn)) + **************************************************************** + lnMeniu = xmenu("Registru Cumparari lunar;Registru Cumparari - recapitulatie 3 luni;Registru Cumparari - recapitulatie an curent") + If !Inlist(m.lnMeniu, 1, 2, 3) + Return + Endif + + pcdataora = get_ora(2) + + && REGISTRU TVA LUNA CURENTA + Select 0 As tip, * ; + FROM actcv ; + INTO Cursor cListRC ; + ORDER By dataact, nract ; + READWRITE + + If m.lnMeniu = 1 And _Tally = 0 + amessagebox("Nu exista inregistrari pentru listare!", 48, "Atentie") + Endif + + *** FILTRU PENTRU RECAPITULATIE + lcWhere = pocump.ca_baza1.cfiltru + + *** STERG LUNA=XX AND AN=XXXX DIN FILTRU (in cazul in care vreau sa aduc si lunile din recapitulatie) + If Left(Upper(lcWhere),4) = 'LUNA' + lnPos = Atc('AN=', lcWhere,1) + If m.lnPos > 0 + lcWhere = Alltrim(Substr(m.lcWhere, m.lnPos + 11)) + Endif + Endif + SET STEP ON + Do Case + Case m.lnTipJurnal = 1 + pcSubtitlu = "Achizitii de bunuri si prestari de sevicii taxabile din tara" + lcRaport = [registru_cumparari_jtva2010_ro] + + *!* facturile RO <> 0 SAU facturile cu toate coloanele <> 0 + lcWhere = m.lcWhere + [ and ((RO11B<>0 OR RO11T<>0 OR RO21B<>0 OR RO21T<>0 OR RO24B<>0 OR RO24T<>0 OR RO20B<>0 OR RO20T<>0 OR RO19B<>0 OR RO19T<>0 OR RO09B<>0 OR RO09T<>0 ] + ; + [OR RO05B<>0 OR RO05T<>0 OR ROSCN<>0 OR ROTN<>0 OR ROTN50<>0 OR ROTN100<>0 ] + ; + [ OR RO11nb<>0 OR RO11nt<>0 OR RO21nb<>0 OR RO21nt<>0 OR RO24nb<>0 OR RO24nt<>0 OR RO20nb<>0 OR RO20nt<>0 OR ro19nb<>0 OR ro19nt<>0 ro09nb<>0 OR ro09nt<>0 OR ro05nb<>0 OR ro05nt<>0) OR ] + ; + [(TOTCTVA = 0 and RO11B = 0 and RO11T = 0 and RO21B = 0 and RO21T = 0 and RO24B = 0 and RO24T = 0 and RO20B = 0 and RO20T = 0 and RO19B = 0 and RO19T = 0 and RO09B = 0 and RO09T = 0 ] + ; + [ and RO05B = 0 and RO05T = 0 and ROSCN = 0 and ROTN = 0 and ROTN50 = 0 and ROTN100 = 0 ] + ; + [ and FO21B = 0 and FO21T = 0 and FO11B = 0 and FO11T = 0 and FO24B = 0 and FO24T = 0 and FO20B = 0 and FO20T = 0 and FO19B = 0 and FO19T = 0 and FO09B = 0 and FO09T = 0 and FOSCN = 0 ] + ; + [ and CEB = 0 and CET = 0 and CESC = 0 and CEN = 0 ] + ; + [ and XX21TIB = 0 AND XX21TIT = 0 and XX11TIB = 0 AND XX11TIT = 0 and XX19TIB = 0 AND XX19TIT = 0 and XX9TIB = 0 AND XX9TIT = 0 ] + ; + [ and TI21B = 0 and TI21T = 0 and TI11B = 0 and TI11T = 0 and TI24B = 0 and TI24T = 0 and TI20B = 0 and TI20T = 0 and TI19B = 0 and TI19T = 0 and TI09B = 0 and TI09T = 0 ] + ; + [ and RO11nb = 0 and RO11nt = 0 and RO21nb = 0 and RO21nt = 0 and RO24nb = 0 and RO24nt = 0 and RO20nb = 0 and RO20nt = 0 and ro19nb = 0 and ro19nt = 0 and ro09nb = 0 and ro09nt = 0 and ro05nb = 0 and ro05nt = 0))] + + Case m.lnTipJurnal = 2 + pcSubtitlu = "Achizitii de bunuri si prestari de sevicii taxabile din import" + lcRaport = [registru_cumparari_jtva2010_fo] + + lcWhere = m.lcWhere + [ and (FO21B<>0 OR FO21T<>0 OR FO11B<>0 OR FO11T<>0 OR FO24B<>0 OR FO24T<>0 OR FO20B<>0 OR FO20T<>0 OR FO19B<>0 OR FO19T<>0 OR FO09B<>0 OR FO09T<>0 OR FOSCN<>0)] + + Case m.lnTipJurnal = 3 + pcSubtitlu = "Achizitii intracomunitare de bunuri" + lcRaport = [registru_cumparari_jtva2010_ce] + + lcWhere = m.lcWhere + [ and (CEB<>0 OR CET<>0 OR CESC<>0 OR CEN<>0)] + + Case m.lnTipJurnal = 4 + pcSubtitlu = "Bunuri si Sevicii pentru care cumparatorul este obligat la plata taxei (din Tara, Import) - Taxare Inversa" + lcRaport = [registru_cumparari_jtva2010_ti] + + lcWhere = m.lcWhere + [ and (TI21B<>0 OR TI21T<>0 OR TI11B<>0 OR TI11T<>0 OR TI24B<>0 OR TI24T<>0 OR TI20B<>0 OR TI20T<>0 OR TI19B<>0 OR TI19T<>0 OR TI09B<>0 OR TI09T<>0 OR ] + ; + [ XX21TIB <> 0 OR XX21TIT <> 0 OR XX11TIB <> 0 OR XX11TIT <> 0 OR XX19TIB <> 0 OR XX19TIT <> 0 OR XX9TIB <> 0 OR XX9TIT <> 0)] + + Endcase + + && REGISTRE TVA RECAPITULATIE + If INLIST(m.lnMeniu, 2, 3) && recapitulatie 3 luni / an curent + Private m.pnAn, m.pnLuna + IF m.lnMeniu = 2 + * recapitulatie 3 luni + lnPerioada = Ceil(m.gnLuna / 3) + pnLuna = (m.lnPerioada - 1) * 3 + 1 + ELSE + pnLuna = 1 + ENDIF + pnAn = m.gnAn + + lddata1 = Date(m.pnAn, m.pnLuna, 1) + lddata2 = Date(m.gnAn, m.gnLuna, 1) + + pcPerioada = m.pcPerioada + " * Recap. " + Padl(m.pnLuna, 2, '0') + '/' + Alltrim(Str(m.pnAn)) + ' - ' + Padl(m.gnLuna, 2, '0') + '/' + Alltrim(Str(m.gnAn)) + TEXT to lcSelect textmerge noshow + select 1 as tip, v.an, v.luna, cast(0 as Number(20)) as cod, to_date('','ddmmyyyy') as dataact, 000000000 as nract, + (select la.numeluna || ' ' || to_char(v.an) from lunilean la where la.nrluna = v.luna) as denumire, + SUM(v.TOTCTVA) AS TOTCTVA, + SUM(v.CEB) AS CEB, SUM(v.CET) AS CET, + SUM(v.CEBB) AS CEBB, SUM(v.CEBT) AS CEBT, + SUM(v.CESB) AS CESB, SUM(v.CEST) AS CEST, + SUM(v.CEN) AS CEN, + SUM(v.CESC) AS CESC, + SUM(v.FOSCN) AS FOSCN, + SUM(v.FO21B) AS FO21B, SUM(v.FO21T) AS FO21T, SUM(v.FO11B) AS FO11B, SUM(v.FO11T) AS FO11T, + SUM(v.FO24B) AS FO24B, SUM(v.FO24T) AS FO24T, SUM(v.FO20B) AS FO20B, SUM(v.FO20T) AS FO20T, + SUM(v.FO19B) AS FO19B, SUM(v.FO19T) AS FO19T, SUM(v.FO09B) AS FO09B, SUM(v.FO09T) AS FO09T, + SUM(v.XX21TIB) AS XX21TIB, SUM(v.XX21TIT) AS XX21TIT,SUM(v.XX11TIB) AS XX11TIB, SUM(v.XX11TIT) AS XX11TIT, + SUM(v.XX19TIB) AS XX19TIB, SUM(v.XX19TIT) AS XX19TIT,SUM(v.XX9TIB) AS XX9TIB, SUM(v.XX9TIT) AS XX9TIT, + SUM(v.ROSCN) AS ROSCN, + SUM(v.RO11B) AS RO11B, SUM(v.RO11T) AS RO11T, SUM(v.RO21B) AS RO21B, SUM(v.RO21T) AS RO21T, + SUM(v.RO24B) AS RO24B, SUM(v.RO24T) AS RO24T, SUM(v.RO20B) AS RO20B, SUM(v.RO20T) AS RO20T, + SUM(v.RO19B) AS RO19B, SUM(v.RO19T) AS RO19T, SUM(v.RO09B) AS RO09B, SUM(v.RO09T) AS RO09T, SUM(v.RO05B) AS RO05B, SUM(v.RO05T) AS RO05T, + Sum(v.ROTN) AS ROTN, Sum(v.ROTN50) AS ROTN50, Sum(v.ROTN100) AS ROTN100, + SUM(v.TI21B) AS TI21B, SUM(v.TI21T) AS TI21T, SUM(v.TI11B) AS TI11B, SUM(v.TI11T) AS TI11T, + SUM(v.TI09B) AS TI09B, SUM(v.TI09T) AS TI09T, SUM(v.TI19B) AS TI19B, SUM(v.TI19T) AS TI19T, + SUM(v.TI24B) AS TI24B, SUM(v.TI24T) AS TI24T, SUM(v.TI20B) AS TI20B, SUM(v.TI20T) AS TI20T + FROM (select <> as an, <> + rownum - 1 as luna from dual connect by level <= <<(m.gnAn*12 + m.gnLuna) - (m.pnAn*12 + m.pnLuna ) + 1>>) l + left JOIN VJC2010 V on v.an = l.an and v.luna = l.luna + WHERE v.an*12+v.luna between ?pnAn*12 + ?pnLuna and ?gnAn*12 + ?gnLuna <> + GROUP BY v.an, v.luna + ORDER BY v.an, v.luna + ENDTEXT + + lnSucces = goExecutor.oExecute(m.lcSelect, "crsTotal") + If m.lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, "Eroare") + Else + Replace All dataact With Gomonth(Date(an, luna, 1), 120) In crsTotal + Replace All cod With Int(Val(Dtos(dataact))) In crsTotal + + Select cListRC + Append From Dbf('crsTotal') + Use In crsTotal + Endif + Endif && m.lnMeniu = 2 + + *** FORMAT TVA INCASARE 2013 + Select cListRC + Index On denumire + Str(nract, 14, 0) Tag numeact + Index On cod Tag cod + + update_jtva_coloane('JC') + + *** SELECTEZ FACTURILE CU TVA_INCASARE CU TOTAL BAZA, TVA, BAZAN, TVAN + *** doar pe cele din filtrul curent (interne, import, CE, taxare inversa, total) + Select r.cod, r.id_fact, r.tip, r.denumire, r.nract, r.SERIE_ACT, r.dataact, r.COD_FISCAL, Space(10) As COD_TVA, Space(100) As EXPLICATIE_TVA, r.TOTCTVA, r.TOTFTVATAX, r.TOTTVATAX, TVA_INCASARE, ; + (RO11B + RO21B + RO24B + RO20B + RO19B + RO09B + RO05B + ROSCN + TI21B + TI11B+ TI09B + TI19B + TI24B + TI20B + CEB + CEN + CESC + FOSCN + FO21B + FO11B + FO24B + FO20B + FO09B + FO19B + XX21TIB + XX11TIB + XX19TIB + XX9TIB) As BAZA, ; + (RO11T + RO21T + RO24T + RO20T + RO19T + RO09T + RO05T + TI21T + TI11T + TI09T + TI19T + TI24T + TI20T + CET + FO21T + FO11T + FO09T + FO19T + FO24T + FO20T + XX21TIT + XX11TIT + XX19TIT + XX9TIT) As TVA, ; + (RO11NB + RO21NB + RO24NB + RO20NB + RO19NB + RO09NB + RO05NB) As BAZAN, ; + (RO11NT + RO21NT + RO24NT + RO20NT + RO19NT + RO09NT + RO05NT) As TVAN, ; + cast(0 As N(14)) As NRACTI, Cast({} As D) As DATAACTI, Space(20) As FDOCI, Cast(0 As N(16, 4)) As INCASAT ; + FROM cListRC r ; + where tip = 0 And TVA_INCASARE = 1 ; + INTO Cursor cListRCTemp Readwrite + + Select cListRCTemp + Index On id_fact Tag id_fact + Set Order To + + + *** SELECTEZ FACTURILE FARA TVA_INCASARE CU TOTAL, BAZA, TVA + * tratare bug se bloca la listare doar pe calculatorul Silviei la selectie din (cListRC, jtva_coloane) + * Pe un calculator statea 10 minute pana facea selectia + * Am refacut join-ul ca doua scan-uri + lnOptiuneBug = INT(VAL(NVL(citeste_optiune_utilizator('RC_REGCUMP_LISTARE_BUG'), '0'))) + + + SELECT r.cod, r.id_fact, r.tip, r.denumire, r.nract, r.SERIE_ACT, r.dataact, r.COD_FISCAL, SPACE(20) as COD_TVA, SPACE(250) as EXPLICATIE_TVA, r.TOTCTVA, r.TOTFTVATAX, r.TOTTVATAX, TVA_INCASARE, ; + CAST(0 As N(16, 4)) As BAZA, ; + CAST(0 As N(16, 4)) As TVA ; + FROM cListRC r ; + WHERE .F. ; + INTO Cursor cListRCTemp1 Readwrite + + SELECT cListRC + lcRecc = ALLTRIM(STR(RECCOUNT())) + SCAN FOR tip = 0 AND tva_incasare = 0 + SCATTER NAME loRC + WAIT WINDOW 'Facturi fara TVA Incasare ' + ALLTRIM(STR(RECNO())) + '/'+ m.lcRecc NOWAIT + ADDPROPERTY(loRC,'cod_tva', '') + ADDPROPERTY(loRC,'explicatie_tva', '') + ADDPROPERTY(loRC,'baza',0.00) + ADDPROPERTY(loRC,'tva', 0.00) + + SELECT JTVA_COLOANE + SCAN FOR jc = 1 And (INLIST(ALLTRIM(coloana_jc), 'RO11B','RO21B', 'RO24B','RO20B', 'RO19BVB', 'RO09BVB', 'RO05B', 'ROSCN', 'TI21B', 'TI11B', 'TI09BFB', 'TI19BFB', 'TI24B', 'TI20B') OR ; + INLIST(ALLTRIM(coloana_jc), 'CE21SB', 'CE21CTB', 'CEBFN', 'CEBFSC','FOSCN', 'FO21B', 'FO11B', 'FO24B', 'FO20B','FO09BVB', 'FO19BVB', 'XX21TIB', 'XX11TIB', 'XX19TIB', 'XX9TIB','ROTN','ROTN50','ROTN100')) + loRC.cod_tva = ALLTRIM(coloana_jc) + loRC.explicatie_tva = ALLTRIM(denumire) + + loRC.baza = Iif(loRC.cod_tva = 'RO11B', loRC.RO11B, ; + Iif(loRC.cod_tva = 'RO21B', loRC.RO21B, ; + Iif(loRC.cod_tva = 'RO24B', loRC.RO24B, ; + Iif(loRC.cod_tva = 'RO20B', loRC.RO20B, ; + IIF(loRC.cod_tva = 'RO19BVB', loRC.RO19B, ; + IIF(loRC.cod_tva = 'RO09BVB', loRC.RO09B, ; + IIF(loRC.cod_tva = 'RO05B', loRC.RO05B, ; + IIF(loRC.cod_tva = 'ROSCN', loRC.ROSCN, ; + IIF(loRC.cod_tva = 'TI21B', loRC.TI21B, ; + IIF(loRC.cod_tva = 'TI11B', loRC.TI11B, ; + IIF(loRC.cod_tva = 'TI09BFB', loRC.TI09B, ; + IIF(loRC.cod_tva = 'TI19BFB', loRC.TI19B, ; + IIF(loRC.cod_tva = 'TI24B', loRC.TI24B, ; + IIF(loRC.cod_tva = 'TI20B', loRC.TI20B, ; + IIF(loRC.cod_tva = 'CE21CTB', loRC.CEBB, ; + IIF(loRC.cod_tva = 'CE21SB', loRC.CESB, ; + IIF(loRC.cod_tva = 'CEBFN', loRC.CEN, ; + IIF(loRC.cod_tva = 'CEBFSC', loRC.CESC, ; + IIF(loRC.cod_tva = 'FOSCN', loRC.FOSCN, ; + IIF(loRC.cod_tva = 'FO21B', loRC.FO21B, ; + IIF(loRC.cod_tva = 'FO11B', loRC.FO11B, ; + IIF(loRC.cod_tva = 'FO24B', loRC.FO24B, ; + IIF(loRC.cod_tva = 'FO20B', loRC.FO20B, ; + IIF(loRC.cod_tva = 'FO09BVB', loRC.FO09B, ; + IIF(loRC.cod_tva = 'FO19BVB', loRC.FO19B, ; + IIF(loRC.cod_tva = 'XX21TIB', loRC.XX21TIB, ; + IIF(loRC.cod_tva = 'XX11TIB', loRC.XX11TIB, ; + IIF(loRC.cod_tva = 'XX19TIB', loRC.XX19TIB, ; + IIF(loRC.cod_tva = 'XX9TIB', loRC.XX9TIB, ; + 0))))))))))))))))))))))))))))) + + loRC.tva = Iif(loRC.cod_tva = 'RO11B', loRC.RO11T, ; + Iif(loRC.cod_tva = 'RO21B', loRC.RO21T, ; + Iif(loRC.cod_tva = 'RO24B', loRC.RO24T, ; + Iif(loRC.cod_tva = 'RO20B', loRC.RO20T, ; + IIF(loRC.cod_tva = 'RO19BVB', loRC.RO19T, ; + IIF(loRC.cod_tva = 'RO09BVB', loRC.RO09T, ; + IIF(loRC.cod_tva = 'RO05B', loRC.RO05T, ; + IIF(loRC.cod_tva = 'TI21B', loRC.TI21T, ; + IIF(loRC.cod_tva = 'TI11B', loRC.TI11T, ; + IIF(loRC.cod_tva = 'TI09BFB', loRC.TI09T, ; + IIF(loRC.cod_tva = 'TI19BFB', loRC.TI19T, ; + IIF(loRC.cod_tva = 'TI24B', loRC.TI24T, ; + IIF(loRC.cod_tva = 'TI20B', loRC.TI20T, ; + IIF(loRC.cod_tva = 'CE21CTB', loRC.CEBT, ; + IIF(loRC.cod_tva = 'CE21SB', loRC.CEST, ; + IIF(loRC.cod_tva = 'FO21B', loRC.FO21T, ; + IIF(loRC.cod_tva = 'FO1B', loRC.FO11T, ; + IIF(loRC.cod_tva = 'FO24B', loRC.FO24T, ; + IIF(loRC.cod_tva = 'FO20B', loRC.FO20T, ; + IIF(loRC.cod_tva = 'FO09BVB', loRC.FO09T, ; + IIF(loRC.cod_tva = 'FO19BVB', loRC.FO19T, ; + IIF(loRC.cod_tva = 'XX21TIB', loRC.XX21TIT, ; + IIF(loRC.cod_tva = 'XX11TIB', loRC.XX11TIT, ; + IIF(loRC.cod_tva = 'XX19TIB', loRC.XX19TIT, ; + IIF(loRC.cod_tva = 'XX9TIB', loRC.XX9TIT, ; + IIF(loRC.cod_tva = 'ROTN', loRC.ROTN, ; + IIF(loRC.cod_tva = 'ROTN50', loRC.ROTN50, ; + IIF(loRC.cod_tva = 'ROTN100', loRC.ROTN100, ; + 0)))))))))))))))))))))))))))) + + *!* IF !(loRC.baza = 0 AND loRC.tva = 0) + SELECT cListRCTemp1 + APPEND BLANK + GATHER NAME loRC + *!* ENDIF + + ENDSCAN && JTVA_COLOANE JC = 1 And !Empty(Nvl(J.COLOANA_JC, '')) + ENDSCAN && cListRC tip = 0 AND tva_incasare = 0 + + *** SELECTEZ FACTURILE CU VALOARE 0 pe toate randurile + WAIT WINDOW 'Facturi fara TVA Incasare cu valoare 0' NOWAIT + Select distinct cod, id_fact, tip, denumire, nract, SERIE_ACT, dataact, COD_FISCAL, '' as COD_TVA, '' as EXPLICATIE_TVA, TOTCTVA, TOTFTVATAX, TOTTVATAX, TVA_INCASARE, ; + baza, tva ; + FROM cListRCTemp1 ; + WHERE BAZA = 0 And TVA = 0 ; + AND id_fact NOT in (SELECT id_fact FROM cListRCTemp1 Where !(BAZA = 0 And TVA = 0)) ; + INTO CURSOR cListRCTemp2 NOFILTER + + Delete From cListRCTemp1 Where BAZA = 0 And TVA = 0 + Update cListRCTemp1 Set COD_TVA = 'RO19B', EXPLICATIE_TVA = 'ACH. INT. 19%' Where Left(COD_TVA,5) = 'RO19B' + Update cListRCTemp1 Set COD_TVA = 'RO09B', EXPLICATIE_TVA = 'ACH. INT. 9%' Where Left(COD_TVA,5) = 'RO09B' + + Update cListRCTemp1 Set COD_TVA = 'FO19B', EXPLICATIE_TVA = 'ACH. IMP. 19%' Where Left(COD_TVA,5) = 'FO19B' + Update cListRCTemp1 Set COD_TVA = 'FO09B', EXPLICATIE_TVA = 'ACH. IMP. 9%' Where Left(COD_TVA,5) = 'FO09B' + + Update cListRCTemp1 Set COD_TVA = 'TI19B', EXPLICATIE_TVA = 'ACH. TX. INV. 19%' Where Left(COD_TVA,5) = 'TI19B' + Update cListRCTemp1 Set COD_TVA = 'TI09B', EXPLICATIE_TVA = 'ACH. TX INV. 9%' Where Left(COD_TVA,5) = 'TI09B' + + * TOATE ACHIZITIILE CE, FARA NEIMPOZABILE (..N) SI SCUTITE (..SC) + Update cListRCTemp1 Set COD_TVA = 'CEB', EXPLICATIE_TVA = 'ACH. BUNURI CE' Where Left(COD_TVA,3) = 'CEB' AND !INLIST(RIGHT(ALLTRIM(COD_TVA), 1), 'C', 'N') + Update cListRCTemp1 Set COD_TVA = 'CEB', EXPLICATIE_TVA = 'ACH. BUNURI CE' Where Left(COD_TVA,5) = 'CE19B' + Update cListRCTemp1 Set COD_TVA = 'CEB', EXPLICATIE_TVA = 'ACH. BUNURI CE' Where Left(COD_TVA,5) = 'CE9SB' + Update cListRCTemp1 Set COD_TVA = 'CES', EXPLICATIE_TVA = 'ACH. SERVICII CE' Where Left(COD_TVA,6) = 'CE19SB' + Update cListRCTemp1 Set COD_TVA = 'CES', EXPLICATIE_TVA = 'ACH. SERVICII CE' Where Left(COD_TVA,6) = 'CE21SB' + Update cListRCTemp1 Set COD_TVA = 'CEB', EXPLICATIE_TVA = 'ACH. BUNURI CE' Where Left(COD_TVA,7) = 'CE21CTB' + + Select cListRCTemp + Append From Dbf('cListRCTemp1') + Append From Dbf('cListRCTemp2') + Use In (Select('cListRCTemp1')) + Use In (Select('cListRCTemp2')) + + *** SELECTEZ EXPLICATIILE DE TVA 0% EXIGIBILE IN PERIOADA PENTRU FACTURILE CU TVA_INCASARE + *** PE FACTURILE TVA_INCASARE POATE APAREA SI TAXARE INVERSA + WAIT WINDOW 'Facturi TVA 0% exigibile in perioada pentru facturile cu TVA Incasare' NOWAIT + Select r.cod, r.id_fact, r.tip, r.denumire, r.nract, r.SERIE_ACT, r.dataact, r.COD_FISCAL, J.COLOANA_JC As COD_TVA, J.denumire As EXPLICATIE_TVA, ; + CAST(Iif(J.COLOANA_JC = 'ROSCN', r.ROSCN, ; + IIF(J.COLOANA_JC = 'CEBFSC', r.CESC, ; + IIF(J.COLOANA_JC = 'FOSCN', r.FOSCN, ; + IIF(J.COLOANA_JC = 'TI21B', r.TI21B, ; + IIF(J.COLOANA_JC = 'TI11B', r.TI11B, ; + IIF(J.COLOANA_JC = 'TI09BFB', r.TI09B, ; + IIF(J.COLOANA_JC = 'TI19BFB', r.TI19B, ; + IIF(J.COLOANA_JC = 'TI24B', r.TI24B, ; + IIF(J.COLOANA_JC = 'TI20B', r.TI20B, ; + 0))))))))) As N(16, 4)) As BAZA, ; + CAST(Iif(J.COLOANA_JC = 'ROTN', r.ROTN, ; + Iif(J.COLOANA_JC = 'ROTN50', r.ROTN50, ; + Iif(J.COLOANA_JC = 'ROTN100', r.ROTN100, ; + IIF(J.COLOANA_JC = 'TI21B', r.TI21T, ; + IIF(J.COLOANA_JC = 'TI11B', r.TI11T, ; + IIF(J.COLOANA_JC = 'TI09BFB', r.TI09T, ; + IIF(J.COLOANA_JC = 'TI19BFB', r.TI19T, ; + IIF(J.COLOANA_JC = 'TI24B', r.TI24T, ; + IIF(J.COLOANA_JC = 'TI20B', r.TI20T, ; + 0))))))))) As N(16, 4)) As TVA ; + FROM cListRC r, JTVA_COLOANE J ; + WHERE tip = 0 And r.TVA_INCASARE = 1 And J.JC = 1 And !Empty(Nvl(J.COLOANA_JC, '')) And (Nvl(J.COTA_TVA, 0) = 0 OR LEFT(J.COLOANA_JC,2) = 'TI'); + INTO Cursor cListRCTemp1 Readwrite + + Delete From cListRCTemp1 Where BAZA = 0 And TVA = 0 + + Update cListRCTemp1 Set COD_TVA = 'TI19B', EXPLICATIE_TVA = 'ACH. TX. INV. 19%' Where Left(COD_TVA,5) = 'TI19B' + Update cListRCTemp1 Set COD_TVA = 'TI09B', EXPLICATIE_TVA = 'ACH. TX INV. 9%' Where Left(COD_TVA,5) = 'TI09B' + + Select cListRCTemp + Append From Dbf('cListRCTemp1') + Use In (Select('cListRCTemp1')) + + *!* *** Daca am pus filtru in RC, sterg facturile care nu se potrivesc filtrului + *!* If !Empty(m.lcWhere) + *!* Delete From cListRCTemp Where Padl(nract,14,'0') + '|' + Dtos(dataact) + '|' + Padr(denumire,100,' ') Not In ; + *!* (Select Padl(nract,14,'0') + '|' + Dtos(dataact) + '|' + Padr(denumire,100,' ') From cListRC WHERE !EMPTY(NVL(denumire,'')) ) + *!* Endif + SET STEP ON + WAIT WINDOW 'TVA exigibilizat din plati facturi cu TVA Incasare' NOWAIT + *** ADAUG TVA INCASARE (DIN INCASARI/PLATI, TVA 4427 LA 90 ZILE) + TEXT to m.lcSql textmerge noshow + select cast(0 as Number(10)) as nrc, a.cod, 2 As tip, jc.id_fact, jc.nract As nract, jc.serie_act, jc.dataact, a.nract As NRACTI, a.dataact As DATAACTI, fdoc.fel_document as FDOCI, p.denumire As denumire, p.COD_FISCAL, + J.COTA_TVA, J2.COLOANA_JC As COD_TVA, J2.denumire As EXPLICATIE_TVA, + round(a.suma * 100 / J.COTA_TVA, 2) As BAZA, a.suma As TVA, + round(a.suma * 100 / J.COTA_TVA, 2) + a.suma As INCASAT, + (select sum(suma) from act a1 where a1.an = ?m.gnAn and a1.luna = ?m.gnLuna and a1.sters = 0 and a1.id_factd = a.id_fact and a1.cod = a.cod) as INCASAT2 + from act a left join jc2007 jc on a.id_fact = jc.id_fact + left join nom_parteneri p on jc.id_part = p.id_part + Left Join JTVA_COLOANE J On a.id_jtva_coloana = J.id_jtva_coloana + LEFT Join JTVA_COLOANE J2 On J.id_jtva_coloana = J2.id_tva + left join nom_fdoc fdoc on a.id_fdoc = fdoc.id_fdoc + where a.an = ?m.gnAn and a.luna = ?m.gnLuna and a.sters = 0 and a.scd = '4426' And a.scc = '4428' And Nvl(a.id_jtva_coloana, 0) <> 0 + and jc.an = ?m.gnAn and jc.luna = ?m.gnLuna and (jc.RO11nt <> 0 or jc.RO21nt <> 0 or jc.ro19nt <> 0 or jc.ro9nt <> 0 or jc.ro5nt <> 0) + ORDER BY a.cod, J2.COLOANA_JC + ENDTEXT + + *!* round(a.suma * 100 / J.COTA_TVA, 2) As BAZA + *!* Round(a.suma * (100 + J.COTA_TVA) / J.COTA_TVA, 2) As INCASAT + + llSucces = goExecutor.oExecuta(m.lcSql, "cListRcTemp1") + + If m.llSucces + Update cListRCTemp1 Set COD_TVA = 'RO19B', EXPLICATIE_TVA = 'ACH. INT. 19%' Where Left(COD_TVA,5) = 'RO19B' + Update cListRCTemp1 Set COD_TVA = 'RO09B', EXPLICATIE_TVA = 'ACH. INT. 9%' Where Left(COD_TVA,5) = 'RO09B' + + + *** daca am pus filtru in Registru pe Nume sau altceva + *** sterg incasarile/platile care nu apartin de facturile filtrate + *** ca sa am doar incasarile/platile care tin de filtru + If !Empty(m.lcWhere) + Delete From cListRCTemp1 Where Padl(nract,14,'0') + '|' + Dtos(dataact) + '|' + Padr(denumire,100,' ') Not In ; + (Select Padl(nract,14,'0') + '|' + Dtos(dataact) + '|' + Padr(denumire,100,' ') From cListRCTemp WHERE !EMPTY(NVL(denumire,'')) ) + Endif + + *** ROTUNJIRE BAZA EXIGIBILA = BAZA INCASAT - TVA EXIGIBIL PENTRU FIECARE INCASARE + *** INCASAT ESTE TOATA SUMA INCASATA, TREBUIE SA CALCULEZ BAZELE AFERENTE TVA-URILOR DIN SUMA INCASATA + Select cListRCTemp1 + Go Top + lnCod = cod + lnNrAct = nract + lcSerieAct = NVL(serie_act, '') + ldDataAct = dataact + lcDenumire = denumire + lnNrc = 0 + Scan + lnNrc = m.lnNrc + 1 + If m.lnCod <> cod Or m.lnNrAct <> nract OR m.lcSerieAct <> NVL(serie_act, '') Or m.ldDataAct <> dataact Or m.lcDenumire <> denumire + lnNrc = 1 + Endif + lnCod = cod + Replace nrc With m.lnNrc + Endscan + + *** adun diferenta la prima baza + Select cod, nract, serie_act, dataact, denumire, INCASAT2, Sum(INCASAT) As INCASAT ; + from cListRCTemp1 ; + group By cod, nract, serie_act, dataact, denumire, INCASAT2 ; + into Cursor cIncasariTVA + + Select cIncasariTVA + Scan + lnCod = cod + lnNrAct = nract + lcSerieAct = NVL(serie_act, '') + ldDataAct = dataact + lcDenumire = denumire + lnIncasat = Nvl(INCASAT, 0) + lnIncasat2 = Nvl(INCASAT2,0) + lnIncasat3 = 0 && suma baza EXPLICATII DE TVA 0% EXIGIBILE + + *!* select cListRcTemp1 + *!* locate for cod = m.lnCod and nrc = 1 + *!* if found() + *!* lnIdFact = id_fact + *!* select cListRcTemp + *!* calculate sum(baza) to lnIncasat3 for id_Fact = m.lnIdFact and tip = 0 and tva = 0 in cListRcTemp && baza TVA 0% + *!* endif + Calculate Sum(BAZA) To lnIncasat3 For denumire = m.lcDenumire And nract = m.lnNrAct AND NVL(serie_act, '') = m.lcSerieAct And dataact = m.ldDataAct And tip = 0 And TVA = 0 In cListRCTemp && baza TVA 0% + lnDiferenta = Iif(m.lnIncasat2 <> 0, m.lnIncasat2 - m.lnIncasat - m.lnIncasat3, 0) + + *** exista posibilitatea ca tva-ul din suma achitata sa nu fie corespunzator intregii sume (daca am si limitare deductibilitate tva) + *** daca este prea mare diferenta dintre suma incasata si baza calculata, nu mai adun diferenta + If Abs(m.lnDiferenta) > 1 + m.lnDiferenta = 0 + Endif + If m.lnDiferenta <> 0 + Select cListRCTemp1 + Locate For cod = m.lnCod And denumire = m.lcDenumire And nract = m.lnNrAct AND NVL(serie_act, '') = m.lcSerieAct And dataact = m.ldDataAct And nrc = 1 + If Found() + Replace INCASAT With INCASAT + m.lnDiferenta, BAZA With BAZA + m.lnDiferenta + Endif + Endif + Endscan + Use In (Select('cIncasariTVA')) + + Update cListRCTemp1 Set nract = 0 Where Isnull(nract) + Update cListRCTemp1 Set denumire = '' Where Isnull(denumire) + Update cListRCTemp1 Set COD_FISCAL = '' Where Isnull(COD_FISCAL) + Update cListRCTemp1 Set FDOCI = '' Where Isnull(FDOCI) + + Select cListRCTemp + Append From Dbf('cListRcTemp1') + + *** ROTUNJIRE BAZA FACTURA - BAZE EXIGIBILE + *** bazele exigibile de pe facturile cu TVA INCASARE + Select nract, serie_act, dataact, denumire, Sum(BAZA) As BAZA ; + from cListRCTemp ; + where TVA_INCASARE = 0 And tip = 0 And TOTCTVA <> 0 ; + group By nract, serie_act, dataact, denumire ; + into Cursor cFacturiTVAIncasare + + Select cFacturiTVAIncasare + Scan + lnNrAct = nract + lcSerieAct = NVL(serie_act, '') + ldDataAct = dataact + lcDenumire = denumire + lnBazaFact = BAZA + *** baza exigibila din tip = 0 (tva 0%) si tip = 2 (incasari/plati) + Calculate Sum(BAZA) To lnBazaExigibila In cListRCTemp For TVA_INCASARE = 0 And Inlist(tip, 0, 2) And TOTCTVA = 0 And denumire = m.lcDenumire And ; + nract = m.lnNrAct AND NVL(serie_act, '') = m.lcSerieAct And dataact = m.ldDataAct + + lnDiferenta = Iif(m.lnBazaFact <> 0, m.lnBazaFact - m.lnBazaExigibila, 0) + If m.lnDiferenta <> 0 + Select cListRCTemp + Locate For BAZA <> 0 And TVA_INCASARE = 0 And tip = 2 And TOTCTVA = 0 And denumire = m.lcDenumire And nract = m.lnNrAct ; + AND NVL(serie_act, '') = m.lcSerieAct And dataact = m.ldDataAct + If Found() + Replace INCASAT With BAZA + m.lnDiferenta + TVA, BAZA With BAZA + m.lnDiferenta + Endif + Endif + Endscan + Use In (Select('cFacturiTVAIncasare')) + + Endif + Use In (Select('cListRcTemp1')) + + WAIT WINDOW 'Recapitulatie' NOWAIT + *** SELECTEZ INREGISTRARILE TIP = 1 RECAPITULATIE + + SELECT r.cod, r.id_fact, r.tip, r.denumire, r.nract, r.SERIE_ACT, r.dataact, r.COD_FISCAL, SPACE(20) as COD_TVA, SPACE(250) as EXPLICATIE_TVA, r.TOTCTVA, r.TOTFTVATAX, r.TOTTVATAX, TVA_INCASARE, ; + CAST(0 As N(16, 4)) As BAZA, ; + CAST(0 As N(16, 4)) As TVA ; + FROM cListRC r ; + WHERE .F. ; + INTO Cursor cListRCTemp1 Readwrite + + SELECT cListRC + lcRecc = ALLTRIM(STR(RECCOUNT())) + SCAN FOR tip = 1 + SCATTER NAME loRC + WAIT WINDOW 'Recapitulatie ' + ALLTRIM(STR(RECNO())) + '/'+ m.lcRecc NOWAIT + ADDPROPERTY(loRC,'cod_tva', '') + ADDPROPERTY(loRC,'explicatie_tva', '') + ADDPROPERTY(loRC,'baza',0.00) + ADDPROPERTY(loRC,'tva', 0.00) + + SELECT JTVA_COLOANE + SCAN FOR jc = 1 And (INLIST(ALLTRIM(coloana_jc), 'RO11B','RO21B', 'RO24B','RO20B', 'RO19BVB', 'RO09BVB', 'RO05B', 'ROSCN', 'TI21B', 'TI11B','TI09BFB', 'TI19BFB', 'TI24B', 'TI20B') OR ; + INLIST(ALLTRIM(coloana_jc), 'CE21SB', 'CE21CTB', 'CEBFN', 'CEBFSC','FOSCN', 'FO21B', 'FO11B', 'FO24B', 'FO20B','FO09BVB', 'FO19BVB', 'XX21TIB', 'XX11TIB', 'XX19TIB', 'XX9TIB','ROTN','ROTN50','ROTN100')) + loRC.cod_tva = ALLTRIM(coloana_jc) + loRC.explicatie_tva = ALLTRIM(denumire) + + loRC.baza = Iif(loRC.cod_tva = 'RO11B', loRC.RO11B, ; + Iif(loRC.cod_tva = 'RO21B', loRC.RO21B, ; + Iif(loRC.cod_tva = 'RO24B', loRC.RO24B, ; + Iif(loRC.cod_tva = 'RO20B', loRC.RO20B, ; + IIF(loRC.cod_tva = 'RO19BVB', loRC.RO19B, ; + IIF(loRC.cod_tva = 'RO09BVB', loRC.RO09B, ; + IIF(loRC.cod_tva = 'RO05B', loRC.RO05B, ; + IIF(loRC.cod_tva = 'ROSCN', loRC.ROSCN, ; + IIF(loRC.cod_tva = 'TI21B', loRC.TI21B, ; + IIF(loRC.cod_tva = 'TI11B', loRC.TI11B, ; + IIF(loRC.cod_tva = 'TI09BFB', loRC.TI09B, ; + IIF(loRC.cod_tva = 'TI19BFB', loRC.TI19B, ; + IIF(loRC.cod_tva = 'TI24B', loRC.TI24B, ; + IIF(loRC.cod_tva = 'TI20B', loRC.TI20B, ; + IIF(loRC.cod_tva = 'CE21CTB', loRC.CEBB, ; + IIF(loRC.cod_tva = 'CE21SB', loRC.CESB, ; + IIF(loRC.cod_tva = 'CEBFN', loRC.CEN, ; + IIF(loRC.cod_tva = 'CEBFSC', loRC.CESC, ; + IIF(loRC.cod_tva = 'FOSCN', loRC.FOSCN, ; + IIF(loRC.cod_tva = 'FO21B', loRC.FO21B, ; + IIF(loRC.cod_tva = 'FO11B', loRC.FO11B, ; + IIF(loRC.cod_tva = 'FO24B', loRC.FO24B, ; + IIF(loRC.cod_tva = 'FO20B', loRC.FO20B, ; + IIF(loRC.cod_tva = 'FO09BVB', loRC.FO09B, ; + IIF(loRC.cod_tva = 'FO19BVB', loRC.FO19B, ; + IIF(loRC.cod_tva = 'XX21TIB', loRC.XX21TIB, ; + IIF(loRC.cod_tva = 'XX11TIB', loRC.XX11TIB, ; + IIF(loRC.cod_tva = 'XX19TIB', loRC.XX19TIB, ; + IIF(loRC.cod_tva = 'XX9TIB', loRC.XX9TIB, ; + 0))))))))))))))))))))))))))))) + + loRC.tva = Iif(loRC.cod_tva = 'RO11B', loRC.RO11T, ; + Iif(loRC.cod_tva = 'RO21B', loRC.RO21T, ; + Iif(loRC.cod_tva = 'RO24B', loRC.RO24T, ; + Iif(loRC.cod_tva = 'RO20B', loRC.RO20T, ; + IIF(loRC.cod_tva = 'RO19BVB', loRC.RO19T, ; + IIF(loRC.cod_tva = 'RO09BVB', loRC.RO09T, ; + IIF(loRC.cod_tva = 'RO05B', loRC.RO05T, ; + IIF(loRC.cod_tva = 'TI21B', loRC.TI21T, ; + IIF(loRC.cod_tva = 'TI11B', loRC.TI11T, ; + IIF(loRC.cod_tva = 'TI09BFB', loRC.TI09T, ; + IIF(loRC.cod_tva = 'TI19BFB', loRC.TI19T, ; + IIF(loRC.cod_tva = 'TI24B', loRC.TI24T, ; + IIF(loRC.cod_tva = 'TI20B', loRC.TI20T, ; + IIF(loRC.cod_tva = 'CE21CTB', loRC.CEBT, ; + IIF(loRC.cod_tva = 'CE21SB', loRC.CEST, ; + IIF(loRC.cod_tva = 'FO21B', loRC.FO21T, ; + IIF(loRC.cod_tva = 'FO11B', loRC.FO11T, ; + IIF(loRC.cod_tva = 'FO24B', loRC.FO24T, ; + IIF(loRC.cod_tva = 'FO20B', loRC.FO20T, ; + IIF(loRC.cod_tva = 'FO09BVB', loRC.FO09T, ; + IIF(loRC.cod_tva = 'FO19BVB', loRC.FO19T, ; + IIF(loRC.cod_tva = 'XX21TIB', loRC.XX21TIT, ; + IIF(loRC.cod_tva = 'XX11TIB', loRC.XX11TIT, ; + IIF(loRC.cod_tva = 'XX19TIB', loRC.XX19TIT, ; + IIF(loRC.cod_tva = 'XX9TIB', loRC.XX9TIT, ; + IIF(loRC.cod_tva = 'ROTN', loRC.ROTN, ; + IIF(loRC.cod_tva = 'ROTN50', loRC.ROTN50, ; + IIF(loRC.cod_tva = 'ROTN100', loRC.ROTN100, ; + 0)))))))))))))))))))))))))))) + + IF !(loRC.baza = 0 AND loRC.tva = 0) + SELECT cListRCTemp1 + APPEND BLANK + GATHER NAME loRC + ENDIF + + ENDSCAN && JTVA_COLOANE JC = 1 And !Empty(Nvl(J.COLOANA_JC, '')) + ENDSCAN && cListRC tip = 0 AND tva_incasare = 0 + + + WAIT WINDOW 'Completare recapitulatie cu facturi neexigibile' NOWAIT + *** adaug si lunile care nu au nimic exigibil + Select Distinct r.cod, r.tip, r.denumire, r.nract, r.SERIE_ACT, r.dataact, r.COD_FISCAL ; + from cListRCTemp1 r ; + where cod Not In (Select cod From cListRCTemp1 Where !(BAZA = 0 And TVA = 0)) ; + into Cursor cListRCTemp2 + + Delete From cListRCTemp1 Where BAZA = 0 And TVA = 0 + Update cListRCTemp1 Set COD_TVA = 'RO19B', EXPLICATIE_TVA = 'ACH. INT. 19%' Where Left(COD_TVA,5) = 'RO19B' + Update cListRCTemp1 Set COD_TVA = 'RO09B', EXPLICATIE_TVA = 'ACH. INT. 9%' Where Left(COD_TVA,5) = 'RO09B' + + Update cListRCTemp1 Set COD_TVA = 'TI19B', EXPLICATIE_TVA = 'ACH. TX. INV. 19%' Where Left(COD_TVA,5) = 'TI19B' + Update cListRCTemp1 Set COD_TVA = 'TI09B', EXPLICATIE_TVA = 'ACH. TX INV. 9%' Where Left(COD_TVA,5) = 'TI09B' + + Update cListRCTemp1 Set COD_TVA = 'CEB', EXPLICATIE_TVA = 'ACH. BUNURI CE' Where Left(COD_TVA,3) = 'CEB' AND !INLIST(RIGHT(ALLTRIM(COD_TVA), 1), 'C', 'N') + Update cListRCTemp1 Set COD_TVA = 'CEB', EXPLICATIE_TVA = 'ACH. BUNURI CE' Where Left(COD_TVA,5) = 'CE19B' + Update cListRCTemp1 Set COD_TVA = 'CEB', EXPLICATIE_TVA = 'ACH. BUNURI CE' Where Left(COD_TVA,5) = 'CE9SB' + Update cListRCTemp1 Set COD_TVA = 'CES', EXPLICATIE_TVA = 'ACH. SERVICII CE' Where Left(COD_TVA,6) = 'CE21SB' + Update cListRCTemp1 Set COD_TVA = 'CEB', EXPLICATIE_TVA = 'ACH. BUNURI CE' Where Left(COD_TVA,7) = 'CE21CTB' + + Select cListRCTemp + Append From Dbf('cListRCTemp1') + Append From Dbf('cListRCTemp2') + Use In (Select('cListRCTemp1')) + Use In (Select('cListRCTemp2')) + + *** completez nume, nract, dataact pentru inregistrarile TVA care nu le au completate + WAIT WINDOW 'Completare infomatii inregistrari TVA' NOWAIT + Select cListRCTemp + Scan For tip = 2 + lcNumeAct = denumire + Str(nract, 14, 0) + lnCod = cod + If Seek(m.lnCod, 'cListRC', 'cod') + Replace denumire With cListRC.denumire, nract With cListRC.nract, dataact With cListRC.dataact In cListRCTemp + Else + If Seek(m.lcNumeAct, 'cListRC', 'numeact') + Replace cod With cListRC.cod, dataact With cListRC.dataact In cListRCTemp + Endif && seek + Endif && seek + Endscan + + Use In (Select('cListRC')) + + Select Cast(0 As I) As nrcrt, Cast(0 As I) As nrcrtf, * From cListRCTemp Into Cursor cListRC Order By dataact, nract, denumire, tip Readwrite + + Update cListRC Set tip = 0 Where tip = 2 && incasarile pe acelasi nivel cu facturile + Use In (Select('cListRCTemp')) + + *** INSUMEZ FACTURILE DUPA NRACT, DATAACT, DENUMIRE + *!* SELECT Cast(0 As I) As nrcrt, Cast(0 As I) As nrcrtf, min(COD) as COD, min(ID_FACT) as ID_FACT, TIP, DENUMIRE, NRACT, SERIE_ACT, DATAACT, COD_FISCAL, COD_TVA, EXPLICATIE_TVA, TVA_INCASARE, NRACTI, DATAACTI, FDOCI, ; + *!* sum(INCASAT) AS INCASAT, sum(TOTCTVA) AS TOTCTVA, sum(TOTFTVATAX) AS TOTFTVATAX, sum(TOTTVATAX) AS TOTTVATAX, sum(BAZA) AS BAZA, sum(TVA) AS TVA, sum(BAZAN) AS BAZAN, sum(TVAN) AS TVAN ; + *!* from cListRCTemp ; + *!* where tip = 0 ; + *!* group by TIP, DENUMIRE, NRACT, SERIE_ACT, DATAACT, COD_FISCAL, COD_TVA, EXPLICATIE_TVA, TVA_INCASARE, NRACTI, DATAACTI, FDOCI ; + *!* union all ; + *!* SELECT Cast(0 As I) As nrcrt, Cast(0 As I) As nrcrtf, COD, ID_FACT, TIP, DENUMIRE, NRACT, SERIE_ACT, DATAACT, COD_FISCAL, COD_TVA, EXPLICATIE_TVA, TVA_INCASARE, NRACTI, DATAACTI, FDOCI, ; + *!* INCASAT, TOTCTVA, TOTFTVATAX, TOTTVATAX, BAZA, TVA, BAZAN, TVAN ; + *!* from cListRCTemp ; + *!* where tip <> 0 ; + *!* Into Cursor cListRC ; + *!* Order By 9, 7, 6, 5 Readwrite + + + *** STERG NUME, NRACT... DE PE INREGISTRARILE 2..N (EXPLICATII_TVA) PENTRU ACEEASI FACTURA + Select cListRC + Go Top + lnCod = 0 + lcSerieAct = "" + lnNrAct = 0 + ldDataAct = {} + lcDenumire = "" + lnNrCrt = 0 + lnNrCrtF = 0 + Scan + *!* If m.lnCod <> cod && prima linie din fiecare factura + If m.lcSerieAct <> serie_act OR m.lnNrAct <> nract Or m.ldDataAct <> dataact Or m.lcDenumire <> denumire && prima linie din fiecare factura + lnCod = cod + lcSerieAct = serie_act + lnNrAct = nract + ldDataAct = dataact + lcDenumire = denumire + lnNrCrt = m.lnNrCrt + 1 + lnNrCrtF = 1 && numar curent in cadrul fiecarei facturi + Replace nrcrt With m.lnNrCrt, nrcrtf With m.lnNrCrtF + Else && liniile 2..n din facturi + lnNrCrtF = m.lnNrCrtF + 1 + Replace nrcrt With m.lnNrCrt, nrcrtf With m.lnNrCrtF, denumire With '', nract With 0, SERIE_ACT With '', dataact With {}, COD_FISCAL With "", TOTCTVA With 0, TOTFTVATAX With 0, TOTTVATAX With 0 + Endif + Endscan + + *** TOTALURI EXIGIBIL PE COTE TVA + *** ADUN FIE INREGISTRARILE DIN LUNA CURENTA TIP = 0, FIE INREGISTRARILE TIP RECAPITULATIE TIP = 1 + WAIT WINDOW 'Total exigibil pe cote TVA' NOWAIT + lnTip = Iif(m.lnMeniu = 1, 0, 1) + Insert Into cListRC (tip, COD_TVA, EXPLICATIE_TVA, INCASAT, BAZA, TVA) ; + Select 2 As tip, COD_TVA, EXPLICATIE_TVA, Sum(INCASAT) As INCASAT, Sum(BAZA) As BAZA, Sum(TVA) As TVA ; + from cListRC ; + where tip = m.lnTip And !Empty(Nvl(COD_TVA, '')) ; + ORDER By COD_TVA ; + group By COD_TVA, EXPLICATIE_TVA + Select cListRC + + Use In (Select('JTVA_COLOANE')) + *** FORMAT TVA INCASARE 2013 ^ + + If Reccount('cListRC') > 0 + Thisform.AlwaysOnTop = .F. + + IF AMESSAGEBOX('Doriti listare clasica?',4+32,_screen.Caption) = 6 + goExport.export2frx([cListRc], [registru_jtva2013]) + ELSE + goExport.export2frx([cListRc], [registru_jtva2013], , , , , , .T.) + ENDIF + + Thisform.AlwaysOnTop = .T. + Endif + + Use In (Select('cListRC')) + + + + + ENDPROC + + PROCEDURE do_reface + lnAn = gnAn + lnLuna = gnLuna + lnSucces = refacere([TVA_2007],[],[JC],lnLuna,lnAn) && IN orefaceri.prg + If lnSucces > 0 + Thisform.actualizeaza_grid1() + + *!* Do inainte With "CUMP2007" In oinainte_de.prg + + This._grdbase1.SetFocus + + aMESSAGEBOX('Refacerea s-a terminat!',64,"Info refacere") + Endif + ENDPROC + + PROCEDURE do_reset + *Thisform.cbo_tip_jurnal_cump.ListItemId = 1 + + + If Not Pemstatus(Thisform,"filtru_pretty",5) + Thisform.AddProperty("filtru_pretty") + Endif + If Not Pemstatus(Thisform,"filtru_pretty_ro",5) + Thisform.AddProperty("filtru_pretty_ro") + Endif + + Thisform.filtru_pretty="" + Thisform.filtru_pretty_ro="" + Thisform.but_start_criterii1.SetFocus + Thisform.Refresh + Thisform.but_start_criterii1.pornit="nu" + Thisform.do_cauta() + + ENDPROC + + PROCEDURE do_termin + THIS.BUT_STArt_criterii1.RESETstatus() + DODEFAULT() + ENDPROC + + PROCEDURE do_verifica + Local loDate As "empty" + Local lcCodFiscal, lcDenumire, lcFilter, lcSelect, lcWhere, llAutoVerificare, llDontCloseCursor + Local llExperimental, llMFIN, llServiciuWebANAF, llValidare, llVerificarePlatitorTVA, lnOptiune + Local lnRaspuns, loPartener + lcSelect = SELECT() + + SELECT actcv + lcCodFiscal = Alltrim(actcv.cod_fiscal) + lcDenumire = Alltrim(actcv.denumire) + + lnOptiune = XMENU('VERIFICA... ' + m.lcDenumire + ' - ANAF; VERIFICA TOTI PARTENERII - ANAF') + + If EMPTY(m.lnOptiune) + Return + ENDIF + + * Pot sa fac verificarea pentru un singur nume si cu formularul pentru mai multi parteneri, dar arata mai dragut informatia intr-un messagebox pentru unul singur + If INLIST(m.lnOptiune, 1, 4) && un singur nume + loPartener = Null + loDate = Createobject("empty") + + AddProperty(loDate, "denumire", m.lcDenumire) + AddProperty(loDate, "cod_fiscal", m.lcCodFiscal) + AddProperty(loDate, "tip_verificare", IIF(m.lnOptiune = 1, "ANAF_SERVICIU_WEB", "MFIN_AUTO_FARA_CAPTCHA")) + + lnRaspuns = VerificaCodFiscal(loDate, @lnOptiune, @loPartener) + Else + llDontCloseCursor = .F. + llExperimental = .F. + llVerificarePlatitorTVA = .F. && verific VIES pentru toti partenerii + llMFIN = .T. && verific MFIN pentru toata lumea + llValidare = .T. && verific algoritmul codurilor fiscale + llAutoVerificare = .T. && lanseaza verificarea automata la activate-ul formularului de verificare + llServiciuWebANAF = .T. + + lcFilter = Filter("actcv") + lcWhere = Iif(m.lnOptiune = 1, "recno() = " + Alltrim(Str(Recno())), Iif(!Empty(m.lcFilter), m.lcFilter, ".T.")) + Select Distinct cod_fiscal, denumire, Iif(Left(Upper(cod_fiscal), 2) = "RO", "RO", " ") As ATRIBUT_FISCAL, .T. As IsCIF, .F. As codvalid ; + From actcv ; + Where &lcWhere ; + Into Cursor crsCoduriFiscale ; + Order By denumire, cod_fiscal ; + Readwrite + + + Local lcXMLParteneri + lcXMLParteneri = "" + Cursortoxml('crsCoduriFiscale', "lcXMLParteneri", 1, 0, 0, "1") + + Do verificare_parteneri With m.lcXMLParteneri, m.llValidare, m.llMFIN, m.llVerificarePlatitorTVA, m.llAutoVerificare, m.llDontCloseCursor, m.llExperimental, m.llServiciuWebANAF + Endif && x = 1 + + SELECT (m.lcSelect) + ENDPROC + + PROCEDURE grdfooterevent + LPARAMETERS toObj, tcEvt + + IF TYPE('this._grdfooter1') = 'O' + IF PEMSTATUS(this._grdfooter1, "eventhandler", 5) + this._grdfooter1.eventhandler(,toObj,tcEvt) + ENDIF + ENDIF + ENDPROC + + PROCEDURE grid_sort_bind + *!* 09.09.2010 + *!* am folosit gridextra + *!* nu sterge + *!* 09.09.2010 ^ + ENDPROC + + PROCEDURE inainte_de_do_listare + If This.lactiv2 + If gnAn >= 2013 + This.do_listare2013() + Else + This.do_listare() + Endif + Endif + ENDPROC + + PROCEDURE incaspl + Private pnlunanan,pcselect,pcfiltru,pcschema,pcorder,llAfisare,poact,pcTitlu + Store "" To poact + Store .F. To llAfisare + Store 0 To pnlunanan + + pnlunanan=gnAn*12+gnLuna + CN='4111' + Thisform.but_teRMIN1.Enabled=.F. + Thisform.AlwaysOnTop=.F. + + pcschema=['ID_ACT N(20),LUNA N(2),AN N(4),COD N(20),DATAIREG D,nract N(20),DATAACT D,'+]+; + ['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+; + ['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+; + ['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+; + ['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+; + ['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+; + ['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+; + ['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)'] + pcschema=[''] + pcselect=['select partD,dataact,nract,serie_act,dataireg,suma,perecheC,util,dataora,fdoc,scc,scd,partC,explicatia,explicatie_tva '+]+; + ['from ]+gcS+[.vact where 2=2'] + + Select actcv + pcTitlu="PLATI LA FACTURA NR. "+Alltrim(Str(nract,14)) + pcfiltru=[id_partd=']+Alltrim(Str(id_part))+[' and extract(year from dataireg)*12+extract(month from dataireg)<=]+Alltrim(Str(pnlunanan))+[ ]+; + [and (perecheD=]+Alltrim(Str(nract,14))+[ or nrord=']+Alltrim(Str(nract,14))+[')]+gcCondSucursala + pcorder=[dataact,serie_act,nract] + gencursor("poact","acn1",pcselect,pcfiltru,pcschema,pcorder,llAfisare) + poact.ca_baza1.afisare() + ORC=Createobj("frm_debcred") + ORC.lb_titlu_alb_b121.Caption=Proper(pcTitlu) + ORC.lb_titlu1.Caption=pcTitlu + ORC.Show(1) + + pcTitlu="" + Thisform.AlwaysOnTop=.T. + Thisform.but_teRMIN1.Enabled=.T. + If Used('acn1') + Use In acn1 + Endif + Release ORC,poact + ENDPROC + + PROCEDURE Init + LPARAMETERS tlAfisareTot + * tlAfisareTot = .T. daca se afiseaza toate inregistrarile la intrarea in formular + + This.lAfisareTot = m.tlAfisareTot + + DoDefault() + if m.gnAn < 2013 + Thisform.cbo_tip_jurnal_cump.ListItemId = Thisform.nlistitemiddef && achizitii din tara + else + Thisform.cbo_tip_jurnal_cump.ListItemId = 1 && complet + endif + Thisform.do_executa(Thisform.nlistitemiddef) + If !glEMama + Thisform._grdbase1.RemoveObject([cSucursala]) + ENDIF + + This.cmdTVAIncasare.Visible = !(luna_inchisa Or m.glEMama) + ENDPROC + + PROCEDURE ist_deb_cred + PRIVATE pnlunanan,lul,pcselect,pcschema,pcfiltru,pcorder,llAfisare,poacn1,poacn2,pcdatacrt,pcnume + PRIVATE nl,an,pcluna,pcanul,pniesire + STORE 0 TO pnlunanan,pniesire + STORE .F. TO llAfisare + STORE "" TO lul,poacn1,poacn2 + pcdatacrt=ALLTRIM(STR(gnAn))+PADL(ALLTRIM(STR(gnLuna)),2,'0')+[01] && prima zi a lunii + + THISFORM.but_termin1.ENABLED=.F. + THISFORM.ALWAYSONTOP= .F. + + pcanul='00' + pcluna='00' + &&lul=gnLuna && ?? + SELECT calendar + ose=CREATEOBJECT('frm_seleluna') + ose.SHOW(1) + IF pniesire=2 + THISFORM.but_termin1.ENABLED=.T. + THISFORM.ALWAYSONTOP= .T. + RETURN + ENDIF + pnlunanan=gnAn*12+gnLuna + pnlunaanales=VAL(pcanul)*12+VAL(pcluna) + SELECT actcv + pcnume=denumire + pcschema=['ID_ACT N(20),LUNA N(2),AN N(4),COD N(20),DATAIREG D,nract N(20),DATAACT D,'+]+; + ['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+; + ['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+; + ['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+; + ['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+; + ['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+; + ['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+; + ['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)'] + pcschema=[''] + pcselect=['select * from ]+gcS+[.vact where 2=2'] + pcorder=[dataact,serie_act,nract] + + pcfiltru=[dataact0 + Private pcselect,pcfiltru,pcschema,pcorder,poact,pcnume + Store "" To poact + Thisform.but_TERMIN1.Enabled=.F. + Thisform.AlwaysOnTop=.F. + lunanan=gnLuna+gnAn*12 + Select actcv + pcnume=denumire + pcschema=[DATAIREG D,DATAACT D,SERIE_ACT C(10),nract N(20),PARTD C(50),PARTC C(50),EXPLICATIA C(100), ]+; + [SUMA N(19,2),SCD C(4),SCC C(4),FDOC C(30),LUNA N(2),AN N(4),COD N(20),EXPLICATIE_TVA C(100)] + pcselect=[select dataireg,dataact,serie_act,nract,partd,partc,explicatia,suma,scd,scc,fdoc,luna,an,cod,explicatie_tva ]+; + [from vact] + pcorder=[dataact,serie_act,nract,id_act] + pcfiltru=[] + llAfisare=.F. + lcGroup = "" + pcfiltru=[luna=]+Alltrim(Str(gnLuna))+[ and an=]+Alltrim(Str(gnAn))+; + [ and cod=]+Alltrim(Str(cod))+[ and nract=]+Alltrim(Str(nract,14))+; + [ and dataact=to_date(']+Dtos(dataact)+[','YYYY-MM-DD')] + gcCondSucursala + gencursor('poact','ACN1',pcselect,pcfiltru,pcschema,pcorder,llAfisare, lcGroup, .T.) + + poact.ca_baza1.afisare() + Go Top + ORC=Createobj("frm_debcred") + orc.Lb_titlu_alb_b121.caption="Nota contabila "+ALLTRIM(pcnume) + ORC.lb_titlu1.Caption="NOTA CONTABILA" + orc._grdbase1.removeobject("cUtil") + orc._grdbase1.removeobject("cDataOra") + ORC.Show(1) + Release poact,ORC + Thisform.but_TERMIN1.Enabled=.T. + Thisform.AlwaysOnTop=.T. + Else + aMessagebox("Nu aveti date in cautare!",48,"Atentie") + Thisform.ck_nract.SetFocus() + Endif + ENDPROC + + PROCEDURE Show + LPARAMETERS nStyle + + dodefault(nStyle) + + * Afisez toate inregistrarile cand intru pentru banca/casa. Sunt putine + IF this.lAfisareTot + This.do_reset() && afisarea tuturor inregistrarilo + ENDIF + + + *!* 09.09.2010 + this.gridextra1.setup() + *!* 09.09.2010 ^ + + + *** Inregistrarile selectate GRI + This._grdbase1.SetAll("DynamicBackColor","iif(ales = 1, RGB(150,150,150), RGB(255,255,255))", "Column") + + THIS._grdfooter1.attachtogrid(This._grdbase1) + This._grdfooter1.calcTotal + this._grdbase1.HeaderHeight = 53 && se face mic probabil din cauza gridextra sau grdfooter + + this.WindowState = 2 + ENDPROC + + PROCEDURE But_start_criterii1.loadcriterii + PARAMETERS tacriterii + EXTERNAL ARRAY tacriterii + #define crlf CHR(13)+CHR(10) + #define lf CHR(10) + #define lf2 CHR(10) + CHR(10) + lcStringCriterii="Nume\denumire\T\ID_PART\nom_parteneri" + crlf + ; + "Serie act\serie_act\T\none\" + crlf + ; + "Nr. act\nract\N\none\" + crlf + ; + "Data act\dataact\D\none\" + crlf + ; + "Data inreg.\dataireg\D\none\" + crlf + ; + "Fel document\fel_document\T\id_fdoc\nom_feldoc" + crlf + ; + "Cod Fiscal\cod_fiscal\T\none\" + crlf + ; + "Sold TVA Neex.\(RO11NT + RO21NT + RO19NT + RO9NT + RO5NT)\N|get_mask(12,gnPA)\none\" + crlf + ; + "Perioada\an*12+luna\D1\none\" + crlf + ; + "Data ireg in luna\nofiled\E\(extract(year from dataireg) * 12 + extract(month from dataireg) = an*12 + luna)\" + crlf + ; + "Data ireg nu in luna\nofiled\E\(extract(year from dataireg) * 12 + extract(month from dataireg) <> an*12 + luna)\" + crlf + ; + "Data doc nu in luna\nofiled\E\(extract(year from dataact) * 12 + extract(month from dataact) <> an*12 + luna)\" + crlf + ; + "EroareTVA\nofiled\E\" + ; + [ ((EXTRACT (YEAR FROM DATAACT) = AN AND EXTRACT (MONTH FROM DATAACT) = LUNA AND ABS(TOTCTVA -(RO11B + RO11T + RO21B + RO21T + RO19B + RO19T + RO09B + RO09T + RO05B + RO05T + ROSCN + ] + ; + [ RO11NB + RO11NT + RO21NB + RO21NT + RO19NB + RO19NT + RO9NB + RO9NT + RO5NB + RO5NT + ] + ; + [ FO21B + FO21T + FO11B + FO11T + FO19B + FO19T + FO09B + FO09T + FOSCN + ] + ; + [ CEB + CET + CESC + CEN + ] + ; + [TI21B + TI21T + TI11B + TI11T + TI19B + TI19T + TI09B + TI09T + XX21TIB + XX21TIT + XX11TIB + XX11TIT + XX19TIB + XX19TIT + XX9TIB + XX9TIT)) >= 1) OR ] + ; + [ABS(RO11T) NOT BETWEEN ROUND(0.108*ABS(RO11B),?gnPc) AND ROUND(0.113*ABS(RO11B),?gnPc) OR ] + ; + [ABS(RO21T) NOT BETWEEN ROUND(0.208*ABS(RO21B),?gnPc) AND ROUND(0.213*ABS(RO21B),?gnPc) OR ] + ; + [ABS(RO19T) NOT BETWEEN ROUND(0.188*ABS(RO19B),?gnPc) AND ROUND(0.193*ABS(RO19B),?gnPc) OR ] + ; + [ABS(RO09T) NOT BETWEEN ROUND(0.088*ABS(RO09B),?gnPc) AND ROUND(0.093*ABS(RO09B),?gnPc) OR ] + ; + [ABS(RO05T) NOT BETWEEN ROUND(0.048*ABS(RO05B),?gnPc) AND ROUND(0.053*ABS(RO05B),?gnPc) OR ] + ; + [ABS(RO11NT) NOT BETWEEN ROUND(0.108*ABS(RO11NB),?gnPc) AND ROUND(0.113*ABS(RO11NB),?gnPc) OR ] + ; + [ABS(RO21NT) NOT BETWEEN ROUND(0.208*ABS(RO21NB),?gnPc) AND ROUND(0.213*ABS(RO21NB),?gnPc) OR ] + ; + [ABS(RO19NT) NOT BETWEEN ROUND(0.188*ABS(RO19NB),?gnPc) AND ROUND(0.193*ABS(RO19NB),?gnPc) OR ] + ; + [ABS(RO9NT) NOT BETWEEN ROUND(0.088*ABS(RO9NB),?gnPc) AND ROUND(0.093*ABS(RO9NB),?gnPc) OR ] + ; + [ABS(RO5NT) NOT BETWEEN ROUND(0.048*ABS(RO5NB),?gnPc) AND ROUND(0.053*ABS(RO5NB),?gnPc) OR ] + ; + [ABS(FO21T) NOT BETWEEN ROUND(0.208*ABS(FO21B),?gnPc) AND ROUND(0.213*ABS(FO21B),?gnPc) OR ] + ; + [ABS(FO11T) NOT BETWEEN ROUND(0.108*ABS(FO11B),?gnPc) AND ROUND(0.113*ABS(FO11B),?gnPc) OR ] + ; + [ABS(FO19T) NOT BETWEEN ROUND(0.188*ABS(FO19B),?gnPc) AND ROUND(0.193*ABS(FO19B),?gnPc) OR ] + ; + [ABS(FO09T) NOT BETWEEN ROUND(0.088*ABS(FO09B),?gnPc) AND ROUND(0.093*ABS(FO09B),?gnPc) OR ] + ; + [ABS(TI21T) NOT BETWEEN ROUND(0.208*ABS(TI21B),?gnPc) AND ROUND(0.213*ABS(TI21B),?gnPc) OR ] + ; + [ABS(TI11T) NOT BETWEEN ROUND(0.108*ABS(TI11B),?gnPc) AND ROUND(0.113*ABS(TI11B),?gnPc) OR ] + ; + [ABS(TI19T) NOT BETWEEN ROUND(0.188*ABS(TI19B),?gnPc) AND ROUND(0.193*ABS(TI19B),?gnPc) OR ] + ; + [ABS(TI09T) NOT BETWEEN ROUND(0.088*ABS(TI09B),?gnPc) AND ROUND(0.093*ABS(TI09B),?gnPc) OR ] + ; + [ABS(XX21TIT) NOT BETWEEN ROUND(0.208*ABS(XX21TIB),?gnPc) AND ROUND(0.213*ABS(XX21TIB),?gnPc) OR ] + ; + [ABS(XX11TIT) NOT BETWEEN ROUND(0.108*ABS(XX11TIB),?gnPc) AND ROUND(0.113*ABS(XX11TIB),?gnPc) OR ] + ; + [ABS(XX19TIT) NOT BETWEEN ROUND(0.188*ABS(XX19TIB),?gnPc) AND ROUND(0.193*ABS(XX19TIB),?gnPc) OR ] + ; + [ABS(XX9TIT) NOT BETWEEN ROUND(0.088*ABS(XX9TIB),?gnPc) AND ROUND(0.093*ABS(XX9TIB),?gnPc))\-\] + ; + "Valoarea TVA difera cu +/- 5% fata de valoarea bazei. Verificati valorile baza si TVA în Registrul Jurnal." + crlf + ; + "Plati fara TVA Incasare\nofiled\E\2=2\-\" + ; + "Facturi cu sold TVA neexigibil, achitate partial/integral în luna, fara TVA exigibil corespunzator." + lf2 + ; + "Se vor afisa facturile din sistemul TVA încasare pentru care suma achitata din Registrul Jurnal luna curenta " + ; + "este diferita de suma baza si TVA exigibil din Registrul de TVA." + lf2 + ; + "Identificati problema la nivelul fiecarei facturi si se corectati prin adaugarea notei TVA exigibil în Registrul Jurnal." + crlf + ; + "Diferenta sold fact. / neex.\nofiled\E\2=2\-\" + ; + "Resturi de sold TVA neexigibil care nu s-au exigibilizat odata cu achitarea integrala a facturilor." + lf2 + ; + "Se vor afisa facturile din sistemul TVA încasare pentru care soldul facturii este diferit de fata de soldul Baza + TVA neexigibile din Registrul de TVA." + lf2 + ; + "Facturile cu sold 0 si sold neexigibil diferit de 0 semnifica ca facturile au fost achitate, dar nu s-a exigibilizat complet TVA." + lf2 + ; + "Exigibilizati sumele ramase neexigibile." + crlf + ; + IIF(glEMama,[Sucursala\sucursala\C\none\] + crlf,[]) + DODEFAULT() + + + + + ENDPROC + + PROCEDURE cbo_tip_jurnal_cump.Valid + thisform.do_cauta() + + ENDPROC + + PROCEDURE cmdTVAIncasare.Click + *!* 24.05.2011 + *!* marius.mutu + *!* nu se pot introduce documente de pe mama + + *!* 25.08.2014 + *!* marius.mutu + *!* se transmit si soldurile pe cote de TVA 24,9,5 pentru cazul in care soldul total este 0 + SET STEP ON + Local lcXMLFacturi + If !(luna_inchisa Or m.glEMama) + Select *, (RO11NB+RO21NB+RO24NB+RO20NB+RO19NB+RO09NB+RO05NB + RO11NT+RO21NT+RO24NT+RO20NT+RO19NT+RO09NT+RO05NT) as soldn, ; + RO11NB+RO11NT as soldn11, RO21NB+RO21NT as soldn21, ; + RO24NB+RO24NT as soldn24, RO20NB+RO20NT as soldn20, ; + RO19NB+RO19NT as soldn19, RO09NB+RO09NT as soldn9, ; + RO05NB+RO05NT as soldn5; + From actcv With (Buffering = .T.) ; + Where ales = 1 ; + Into Cursor crsTVAIncasareTemp + + If _Tally > 0 + Cursortoxml('crsTVAIncasareTemp', "lcXMLFacturi", 1, 0, 0, "1") + Use In (Select('crsTVAIncasareTemp')) + + Do inchidere_tva_sold With 'JC', m.lcXMLFacturi IN oproceduri_inchidere.prg + Endif + Use In (Select('crsTVAIncasareTemp')) + Endif + + ENDPROC + + PROCEDURE Gridextra1.applyfilter + DODEFAULT() + Thisform._grdfooter1.calcTotal() + ENDPROC + + PROCEDURE Gridextra1.clearfilter + DODEFAULT() + Thisform._grdfooter1.calcTotal() + ENDPROC + + PROCEDURE _grdbase1.cCod_fiscal.Text1.DblClick + Thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.cDataact.Header1.Init + this.ForeColor =IIF(!EMPTY(this.tag),RGB(0,0,255),RGB(0,0,0)) + ENDPROC + + PROCEDURE _grdbase1.cDataact.Text1.DblClick + Thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.cDenumire.Header1.Init + this.ForeColor =IIF(!EMPTY(this.tag),RGB(0,0,255),RGB(0,0,0)) + ENDPROC + + PROCEDURE _grdbase1.cDenumire.Text1.DblClick + Thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.cFdoc.Text1.DblClick + Thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.cNract.Header1.Init + this.ForeColor =IIF(!EMPTY(this.tag),RGB(0,0,255),RGB(0,0,0)) + ENDPROC + + PROCEDURE _grdbase1.cNract.Text1.DblClick + Thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.cRo11b.Text1.DblClick + Thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.cRo11t.Text1.DblClick + Thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.cTotctva.Text1.DblClick + Thisform.butdrept() + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_regvanz 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="_shape4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_shape3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column11.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column11.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column12.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column12._checkbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column13.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column13.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column15.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column15._checkbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="oMenuShortcut" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_reset1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_nract" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_nume" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_eroare" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_opext" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_fdoc" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_dataact" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_simplu2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_simplu3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_simplu4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_simplu5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_simplu6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cmd_notacontab" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cmd_istoric" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_scd" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_reface1" UniqueID="" Timestamp="" /> + + * + *m: butapend + *m: butdrept + *m: filtre + *m: incaspl + *m: istoric + *m: ist_deb_cred + *m: notacontab + *m: plati + *p: nproctvared + *p: nproctvast + * + + * + cgridsortlist = _grdbase1 + DoCreate = .T. + Height = 500 + Name = "frm_regvanz" + nproctvared = 0 + nproctvast = 0 + Width = 795 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 795 + _shape1.ZOrderSet = 2 + _shape2.Height = 29 + _shape2.Left = 672 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 121 + _shape2.ZOrderSet = 3 + Lb_titlu_alb_b121.Caption = "REGISTRUL VANZARI" + Lb_titlu_alb_b121.FontBold = .T. + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 14 + Lb_titlu_alb_b121.ZOrderSet = 4 + BUT_TERMIN1.Left = 765 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 10 + BUT_TERMIN1.Top = 1 + BUT_TERMIN1.ZOrderSet = 5 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT '_grdbase1' AS _grdbase WITH ; + ColumnCount = 14, ; + DeleteMark = .F., ; + FontName = "Arial Narrow", ; + GridLineColor = 192,192,192, ; + HeaderHeight = 34, ; + Height = 372, ; + Left = 12, ; + Name = "_grdbase1", ; + Panel = 1, ; + RecordSource = "actcv", ; + TabIndex = 9, ; + Top = 120, ; + Width = 768, ; + ZOrderSet = 9, ; + Column1.ControlSource = "fdoc", ; + Column1.FontName = "Arial Narrow", ; + Column1.Name = "Column1", ; + Column1.Width = 66, ; + Column2.ControlSource = "dataact", ; + Column2.FontName = "Arial Narrow", ; + Column2.Name = "Column2", ; + Column2.Width = 52, ; + Column3.ControlSource = "nract", ; + Column3.FontName = "Arial Narrow", ; + Column3.Name = "Column3", ; + Column4.ControlSource = "nume", ; + Column4.FontName = "Arial Narrow", ; + Column4.Name = "Column4", ; + Column5.ControlSource = "cod_fiscal", ; + Column5.FontName = "Arial Narrow", ; + Column5.Name = "Column5", ; + Column6.ControlSource = "totctva", ; + Column6.FontName = "Arial Narrow", ; + Column6.InputMask = (get_mask(12,gnPA)), ; + Column6.Name = "Column6", ; + Column7.ControlSource = "neimpozab", ; + Column7.FontName = "Arial Narrow", ; + Column7.InputMask = (get_mask(12,gnPA)), ; + Column7.Name = "Column7", ; + Column8.ControlSource = "totftvam", ; + Column8.FontName = "Arial Narrow", ; + Column8.InputMask = (get_mask(12,gnPA)), ; + Column8.Name = "Column8", ; + Column9.ControlSource = "tvam", ; + Column9.FontName = "Arial Narrow", ; + Column9.InputMask = (get_mask(12,gnPA)), ; + Column9.Name = "Column9", ; + Column10.ControlSource = "totftvai", ; + Column10.FontName = "Arial Narrow", ; + Column10.InputMask = (get_mask(12,gnPA)), ; + Column10.Name = "Column10", ; + Column11.ControlSource = "tvai", ; + Column11.FontName = "Arial Narrow", ; + Column11.InputMask = (get_mask(12,gnPA)), ; + Column11.Name = "Column11", ; + Column12.ControlSource = "scutit", ; + Column12.FontName = "Arial Narrow", ; + Column12.Name = "Column12", ; + Column12.ReadOnly = .F., ; + Column12.Sparse = .F., ; + Column12.Width = 63, ; + Column13.ControlSource = "scd", ; + Column13.FontName = "Arial Narrow", ; + Column13.Name = "Column13", ; + Column13.Width = 39, ; + Column14.ControlSource = "ext", ; + Column14.FontName = "Arial Narrow", ; + Column14.Name = "Column15", ; + Column14.ReadOnly = .F., ; + Column14.Sparse = .F., ; + Column14.Width = 50 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_grdbase1.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Fel doc.", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column10.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Baza imp.9%", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column10.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column11.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA 9%", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column11.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column12._checkbox1' AS _checkbox WITH ; + Alignment = 0, ; + AutoSize = .F., ; + Caption = "", ; + Centered = .T., ; + Left = 41, ; + Name = "_checkbox1", ; + ReadOnly = .F., ; + Top = 47 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT '_grdbase1.Column12.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Scutit cu drept de deducere", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column13.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column13.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column15._checkbox1' AS _checkbox WITH ; + Alignment = 0, ; + AutoSize = .F., ; + Caption = "", ; + Centered = .T., ; + Left = 29, ; + Name = "_checkbox1", ; + ReadOnly = .F., ; + Top = 47 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT '_grdbase1.Column15.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Operatiune externa", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data act", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. act", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nume", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod fiscal", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Total cu TVA", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column6.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column7.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Neimpozabil", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column7.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column8.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Baza imp.19%", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column8.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column9.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA 19%", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column9.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_shape3' AS _shape WITH ; + BackStyle = 0, ; + BorderColor = 128,128,128, ; + Height = 48, ; + Left = 228, ; + Name = "_shape3", ; + Top = 58, ; + Width = 552, ; + ZOrderSet = 1 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" /> + + ADD OBJECT '_shape4' AS _shape WITH ; + BackStyle = 0, ; + BorderColor = 128,128,128, ; + Height = 79, ; + Left = 220, ; + Name = "_shape4", ; + Top = 36, ; + Width = 568, ; + ZOrderSet = 0 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" /> + + ADD OBJECT 'But_excel1' AS but_excel WITH ; + Left = 703, ; + Name = "But_excel1", ; + TabIndex = 12, ; + Top = 1, ; + ZOrderSet = 6 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_listare1' AS but_listare WITH ; + Left = 734, ; + Name = "But_listare1", ; + TabIndex = 11, ; + Top = 1, ; + Visible = .T., ; + ZOrderSet = 7 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_modifica1' AS but_modifica WITH ; + Left = 588, ; + lvizibil = .F., ; + Name = "But_modifica1", ; + TabIndex = 13, ; + Top = 0, ; + Visible = .F., ; + ZOrderSet = 8 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_reface1' AS but_reface WITH ; + Comment = "*:OnResize=RT", ; + Left = 674, ; + Name = "But_reface1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Ck_dataact' AS ck_filtru_numar WITH ; + Alignment = 0, ; + camp_nume = dataact, ; + Caption = "Data act", ; + FontName = "Arial Narrow", ; + Left = 3, ; + Name = "Ck_dataact", ; + TabIndex = 2, ; + tip = D, ; + Top = 52, ; + ZOrderSet = 25 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_eroare' AS ck_simplu WITH ; + Alignment = 0, ; + Caption = "Eroare TVA", ; + FontName = "Arial Narrow", ; + Left = 63, ; + Name = "Ck_eroare", ; + TabIndex = 7, ; + Top = 52, ; + ZOrderSet = 22 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_fdoc' AS ck_filtru_text WITH ; + Alignment = 0, ; + camp_nume = fdoc, ; + Caption = "Fel doc.", ; + FontName = "Arial Narrow", ; + Left = 3, ; + Name = "Ck_fdoc", ; + TabIndex = 3, ; + Top = 68, ; + ZOrderSet = 24 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_nract' AS ck_filtru_numar WITH ; + Alignment = 0, ; + camp_nume = nract, ; + Caption = "Nr. act", ; + FontName = "Arial Narrow", ; + Left = 3, ; + Name = "Ck_nract", ; + TabIndex = 1, ; + Top = 36, ; + ZOrderSet = 19 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_nume' AS ck_filtru_text WITH ; + Alignment = 0, ; + camp_nume = nume, ; + Caption = "Numele firmei", ; + FontName = "Arial Narrow", ; + Left = 3, ; + Name = "Ck_nume", ; + TabIndex = 4, ; + Top = 84, ; + ZOrderSet = 21 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_opext' AS ck_simplu WITH ; + Alignment = 0, ; + Caption = "Operatiune externa", ; + FontName = "Arial Narrow", ; + Left = 3, ; + Name = "Ck_opext", ; + TabIndex = 5, ; + Top = 100, ; + ZOrderSet = 23 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_scd' AS ck_filtru_text WITH ; + Alignment = 0, ; + camp_nume = scd, ; + Caption = "Cont", ; + FontName = "Arial Narrow", ; + Left = 63, ; + Name = "Ck_scd", ; + TabIndex = 6, ; + Top = 36 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ; + Left = 132, ; + Name = "Cmd_cauta1", ; + TabIndex = 8, ; + Top = 43, ; + ZOrderSet = 17 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'cmd_istoric' AS _commandbutton WITH ; + Caption = "\ + + ADD OBJECT 'cmd_notacontab' AS _commandbutton WITH ; + Caption = "\ + + ADD OBJECT 'Cmd_reset1' AS cmd_reset WITH ; + Left = 132, ; + Name = "Cmd_reset1", ; + TabIndex = 22, ; + Top = 76, ; + ZOrderSet = 18 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Lb_simplu1' AS lb_simplu WITH ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + Caption = "Total cu TVA", ; + Left = 241, ; + Name = "Lb_simplu1", ; + TabIndex = 23, ; + Top = 51, ; + ZOrderSet = 26 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_simplu2' AS lb_simplu WITH ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + Caption = "Neimpozabil", ; + Left = 331, ; + Name = "Lb_simplu2", ; + TabIndex = 24, ; + Top = 51, ; + ZOrderSet = 27 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_simplu3' AS lb_simplu WITH ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + Caption = "Baza imp. 19%", ; + Left = 416, ; + Name = "Lb_simplu3", ; + TabIndex = 25, ; + Top = 51, ; + ZOrderSet = 28 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_simplu4' AS lb_simplu WITH ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + Caption = "TVA 19%", ; + Left = 525, ; + Name = "Lb_simplu4", ; + TabIndex = 26, ; + Top = 51, ; + ZOrderSet = 29 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_simplu5' AS lb_simplu WITH ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + Caption = "Baza imp. 9%", ; + Left = 603, ; + Name = "Lb_simplu5", ; + TabIndex = 27, ; + Top = 51, ; + ZOrderSet = 30 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_simplu6' AS lb_simplu WITH ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + Caption = "TVA 9%", ; + Left = 711, ; + Name = "Lb_simplu6", ; + TabIndex = 28, ; + Top = 51, ; + ZOrderSet = 31 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'oMenuShortcut' AS menulib WITH ; + Left = 216, ; + Name = "oMenuShortcut", ; + TabIndex = 15, ; + Top = 7, ; + ZOrderSet = 10 + *< END OBJECT: ClassLib="..\comun\clase\utility.vcx" BaseClass="container" /> + + ADD OBJECT 'Text1' AS _txbase WITH ; + Alignment = 1, ; + ControlSource = "pntotctva", ; + FontName = "Arial Narrow", ; + Format = "R", ; + InputMask = (get_mask(12,gnPA)), ; + Left = 230, ; + Name = "Text1", ; + ReadOnly = .T., ; + TabIndex = 16, ; + TabStop = .F., ; + Top = 74, ; + Width = 90, ; + ZOrderSet = 11 + *< END OBJECT: ClassLib="..\comun\clase\_tx_base.vcx" BaseClass="textbox" /> + + ADD OBJECT 'Text2' AS _txbase WITH ; + Alignment = 1, ; + ControlSource = "pnneimpozab", ; + FontName = "Arial Narrow", ; + Format = "R", ; + InputMask = (get_mask(12,gnPA)), ; + Left = 321, ; + Name = "Text2", ; + ReadOnly = .T., ; + TabIndex = 17, ; + TabStop = .F., ; + Top = 74, ; + Width = 90, ; + ZOrderSet = 12 + *< END OBJECT: ClassLib="..\comun\clase\_tx_base.vcx" BaseClass="textbox" /> + + ADD OBJECT 'Text3' AS _txbase WITH ; + Alignment = 1, ; + ControlSource = "pntotftvam", ; + FontName = "Arial Narrow", ; + Format = "R", ; + InputMask = (get_mask(12,gnPA)), ; + Left = 413, ; + Name = "Text3", ; + ReadOnly = .T., ; + TabIndex = 18, ; + TabStop = .F., ; + Top = 74, ; + Width = 90, ; + ZOrderSet = 13 + *< END OBJECT: ClassLib="..\comun\clase\_tx_base.vcx" BaseClass="textbox" /> + + ADD OBJECT 'Text4' AS _txbase WITH ; + Alignment = 1, ; + ControlSource = "pntvam", ; + FontName = "Arial Narrow", ; + Format = "R", ; + InputMask = (get_mask(12,gnPA)), ; + Left = 505, ; + Name = "Text4", ; + ReadOnly = .T., ; + TabIndex = 19, ; + TabStop = .F., ; + Top = 74, ; + Width = 90, ; + ZOrderSet = 14 + *< END OBJECT: ClassLib="..\comun\clase\_tx_base.vcx" BaseClass="textbox" /> + + ADD OBJECT 'Text5' AS _txbase WITH ; + Alignment = 1, ; + ControlSource = "pntotftvai", ; + FontName = "Arial Narrow", ; + Format = "R", ; + InputMask = (get_mask(12,gnPA)), ; + Left = 596, ; + Name = "Text5", ; + ReadOnly = .T., ; + TabIndex = 20, ; + TabStop = .F., ; + Top = 74, ; + Width = 90, ; + ZOrderSet = 15 + *< END OBJECT: ClassLib="..\comun\clase\_tx_base.vcx" BaseClass="textbox" /> + + ADD OBJECT 'Text6' AS _txbase WITH ; + Alignment = 1, ; + ControlSource = "pntvai", ; + FontName = "Arial Narrow", ; + Format = "R", ; + InputMask = (get_mask(12,gnPA)), ; + Left = 688, ; + Name = "Text6", ; + ReadOnly = .T., ; + TabIndex = 21, ; + TabStop = .F., ; + Top = 74, ; + Width = 90, ; + ZOrderSet = 16 + *< END OBJECT: ClassLib="..\comun\clase\_tx_base.vcx" BaseClass="textbox" /> + + PROCEDURE Activate + tw1=Thisform.Width + tl1=Thisform.Height + Thisform.WindowState=2 + tw2=Thisform.Width + tl2=Thisform.Height + + gw1=Thisform._grdbase1.Width + gl1=Thisform._grdbase1.Height + + Thisform._grdbase1.Width=Round(gw1*tw2/tw1,0) + Thisform._grdbase1.Height=Round(gl1*tl2/tl1,0) + + ** ocont2003 + lnlung1=Thisform._shape1.Width + Thisform._shape1.Width=Round(lnlung1*tw2/tw1,0) + lndif=Thisform._shape1.Width-lnlung1 + Thisform._shape2.Left=Thisform._shape2.Left+lndif + thisform.but_excel1.left=thisform.but_excel1.left+lndif + thisform.but_listare1.left=thisform.but_listare1.left+lndif + thisform.but_modifica1.left=thisform.but_modifica1.left+lndif + thisform.but_reface1.left=thisform.but_reface1.left+lndif + thisform.but_TERMIN1.left=thisform.but_TERMIN1.left+lndif + Thisform.cmd_notacontab.Left=Thisform.cmd_notacontab.Left+lndif + Thisform.cmd_istoric.Left=Thisform.cmd_istoric.Left+lndif + ** + + Thisform.Paint + Thisform.Refresh + ENDPROC + + PROCEDURE actualizeaza_grid1 + LPARAMETERS lcFiltru + IF EMPTY(lcFiltru) + lcFiltru = povanz.ca_baza1.cfiltru + ENDIF + thisform.MousePointer= 11 + thisform.LockScreen=.t. + + save_grid_tag(thisform._grdbase1) + povanz.ca_baza1.cfiltru=lcFiltru + povanz.ca_baza1.afisare() + restore_grid_tag(thisform._grdbase1) + + thisform.LockScreen=.F. + + thisform.MousePointer= 0 + SELECT actcv + CALCULATE sum(totctva),sum(neimpozab),sum(totftvam),sum(tvam),sum(totftvai),sum(tvai) TO ; + pntotctva,pnneimpozab,pntotftvam,pntvam,pntotftvai,pntvai + GO top + *thisform.Refresh + WITH thisform + .text1.refresh + .text2.refresh + .text3.refresh + .text4.refresh + .text5.refresh + .text6.refresh + ._grdbase1.SetFocus + ENDWITH + + ENDPROC + + PROCEDURE butapend + *!* LOCAL lbMenu[4] + + *!* lbMenu="" + *!* lbMenu[1]="\1)" + + ENDIF + + IF thisform.ck_fdoc.Value=1 + lcFiltru = lcFiltru + thisform.ck_fdoc.filtru + ENDIF + + IF thisform.ck_nract.Value=1 + lcFiltru = lcFiltru + thisform.ck_nract.filtru + ENDIF + + IF thisform.ck_nume.Value=1 + lcFiltru = lcFiltru + thisform.ck_nume.filtru + ENDIF + + IF thisform.ck_opext.Value=1 + lcFiltru = lcFiltru + [ AND EXT=1] + ENDIF + + thisform.actualizeaza_grid1(lcFiltru) + IF RECCOUNT('actcv')=0 + aMESSAGEBOX("Cautarea nu a intors rezultate!",64,"Info cautare") + thisform.ck_nract.SetFocus() + ENDIF + ENDPROC + + PROCEDURE do_excel + If Used('actcv') And Reccount('actcv')>0 + Local i,xlsheet,XLApp,tmpsheet + exista_excel=.T. + p1='' + p2='' + With Thisform._grdbase1 + For nCol=1 To .ColumnCount + nColumn=.Columns(nCol).ColumnOrder + p1=p1+.Columns(nCol).ControlSource+',' + p2=p2+Strtran(.Columns(nCol).header1.Caption,Chr(32),'_')+',' + Endfor + p1=Substr(p1,1,Len(p1)-1) + p2=Substr(p2,1,Len(p2)-1) + Endwith + On Error Do exportare With thisform._grdbase1.RecordSource,p1,p2 + tmpsheet = Getobject('','excel.sheet') + On Error + + If exista_excel + Wait Window "Se transmit datele catre Excel..." Nowait + + XLApp = tmpsheet.Application + XLApp.workbooks.Close() + XLApp.workbooks.Add() + poExcel = XLApp.ActiveSheet + + Go Top + poExcel.Cells(1,1).Font.Size=16 + poExcel.Cells(1,1).Font.Bold=.T. + poExcel.Cells(1,1)=Thisform.lb_titlu_alb_b121.Caption+" Luna "+Alltrim(Str(gnLuna))+"/"+Alltrim(Str(gnAn)) + nRows = 3 + With Thisform._grdbase1 + For nCol = 1 To .ColumnCount + nColumn = .Columns(nCol).ColumnOrder + poExcel.Columns(nColumn).ColumnWidth = .Columns(nCol).Width/7.5 + poExcel.Cells(nRows,nColumn) = .Columns(nCol).header1.Caption + poExcel.Cells(nRows,nColumn).Font.Bold = .T. + poExcel.Cells(nRows,nColumn).Interior.ColorIndex = 16 + Endfor + Scan + nRows = nRows + 1 + For nCol = 1 To .ColumnCount + nColumn = .Columns(nCol).ColumnOrder + If At('CHECK',Upper(.Columns(nCol).CurrentControl))>0 + poExcel.Cells(nRows,nColumn)=Iif(Eval(.Columns(nCol).ControlSource)==0,'NU','DA') + Else + poExcel.Cells(nRows,nColumn) = Eval(.Columns(nCol).ControlSource) + Endif + Endfor + Endscan + Endwith + + XLApp.Visible = .T. + Endif + Endif + + + ENDPROC + + PROCEDURE do_listare + PRIVATE a1,a2,AI,AM + PRIVATE pctitlu + STORE '' TO pctitlu + PRIVATE pcRegistru, pcContTVA, pcListaContTVA, pcListaContBaza, pcListaContExceptii + + + x=xmenu("\ 0 + *!* SELECT cont_exceptii + *!* SCAN + *!* lcExceptii = lcExceptii + ',' + ALLTRIM(exceptie) + *!* ENDSCAN + *!* USE IN cont_exceptii + *!* ENDIF + *!* lcListaCampuri = get_lista_Act() + + *!* lcSql = [begin pack_REFACERI.REFAC_TVA('] + gcS +[', 'vanz', 1.19, 1.09, '] + lcCorespDtva +[', '] + lcCorespD +[', '] + lcCorespCtva +[', '] + lcCorespC +[','4427', '] + lcExceptii +[',] + pcan + [, ] + pcnl + [,] + ALLTRIM(STR(tnScrie_Sterge)) + [,'] + lcListaCampuri + [' ); end;] + + *!* lnSucces = goExecutor.oExecute(lcSql) + *!* IF lnSucces < 0 + *!* MESSAGEBOX(goExecutor.cEroare,0+16,'Eroare') + *!* RETURN + *!* ENDIF + + lnAn = gnAn + lnLuna = gnLuna + lnSucces = refacere([TVA],[0],[4427],lnLuna,lnAn) && IN orefaceri.prg + IF lnSucces > 0 + THISFORM.actualizeaza_grid1() + *** verificare INAINTE_DE + lcCoresp = ['4111'] + lcExceptii = ['667,622'] + do inainte WITH "VANZ",,,,lcExceptii,lcCoresp in oinainte_de.prg + + *this.LockScreen = .f. + this._grdbase1.SetFocus + aMESSAGEBOX('Refacerea s-a terminat!',0+64,"Info refacere") + ENDIF + + + + ENDPROC + + PROCEDURE do_reset + thisform.ck_scd.Value=0 + thisform.ck_dataact.Value=0 + thisform.ck_eroare.Value=0 + thisform.ck_fdoc.Value=0 + thisform.ck_nract.Value=0 + thisform.ck_nume.Value=0 + thisform.ck_opext.Value=0 + thisform.Refresh + ENDPROC + + PROCEDURE filtre + *!* STORE ".T." TO tfirma,TER,Tachitat,Tneachitat + *!* sele actcv + + *!* if Bfirma==.t. then + *!* Tfirma="UPPER(LEFT(ACTCV.nume,LEN(M.nume)))==M.nume" + *!* endif + + *!* if Bachitat==.t. then + *!* Tachitat='ACTCV.totctva=ACTCV.achitat and totctva#0' + *!* endif + + *!* if Bneachitat==.t. then + *!* Tneachitat='ACTCV.totctva#ACTCV.achitat' + *!* endif + + ENDPROC + + PROCEDURE incaspl + Private pnlunanan,pcselect,pcfiltru,pcschema,pcorder,llAfisare,poact + Store "" To poact + Store .F. To llAfisare + Store 0 To pnlunanan + + pnlunanan=gnAn*12+gnLuna + CN='4111' + Thisform.but_teRMIN1.Enabled=.F. + Thisform.AlwaysOnTop=.F. + + pcschema=['ID_ACT N(20),LUNA N(2),AN N(4),COD N(20),DATAIREG D,nract N(20),DATAACT D,'+]+; + ['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+; + ['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+; + ['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+; + ['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+; + ['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+; + ['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+; + ['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)'] + pcschema=[''] + *!* Sele ACTan + *!* Do NRORD With "ACTan" + pcselect=['select partD,dataact,nract,dataireg,suma,perecheC,util,dataora,fdoc,scc,scd,partC,explicatia '+]+; + ['from ]+gcS+[.vact where 2=2'] + pcorder=[dataact,nract] + + Select actcv + *!* Do Case + *!* Case Inlist(Upper(Thisform.lb_titlu_alb_b121.Caption),"REGISTRUL CUMPARARI","SITUATIE LUNARA FACTURI CUMPARARI")&&cumparari + &&deb + *!* pcTitlu="PLATI LA FACTURA NR. "+Alltrim(Str(nract)) + *!* pcfiltru=[partD=']+Alltrim(nume)+[' and extract(year from dataireg)*12+extract(month from dataireg)<=]+Alltrim(Str(pnlunanan))+[ ]+; + *!* [and (perecheD=]+Alltrim(Str(nract))+[ or nrord=']+Alltrim(Str(nract))+[')] + *!* gencursor("poact","acn1",pcselect,pcfiltru,pcschema,pcorder,llAfisare) + *!* poact.ca_baza1.afisare() + + *!* Select acn2 + *!* Sum suma To totsum + *!* If Thisform.lb_titlu_alb_b121.Caption#"REGISTRUL CUMPARARI" + *!* If totsum#m.achitat + *!* Do mesaj With "Totalul sumelor din notele contabile este diferit ","de suma achitata. Trebuie redeschisa luna!" + *!* Endif + *!* Endif + *!* ORC=Createobj("AFincpl") + *!* ORC.Caption="PLATI LA FACTURA NR. "+Alltrim(Str(nract)) + *!* ORC.LABELTITLU.Caption="PLATI LA FACTURA NR. "+Alltrim(Str(nract)) + + *!* Otherwise&&vanzari + &&cred + *!* Sele 0 + + &&deb + pcTitlu="INCASARI LA FACTURA NR. "+Alltrim(Str(nract)) + pcfiltru=[partC=']+Alltrim(nume)+[' and extract(year from dataireg)*12+extract(month from dataireg)<=]+Alltrim(Str(pnlunanan))+[ ]+; + [and (perecheC=]+Alltrim(Str(nract))+[ or nrord=']+Alltrim(Str(nract))+[')] + gencursor("poact","acn1",pcselect,pcfiltru,pcschema,pcorder,llAfisare) + poact.ca_baza1.afisare() + + *!* Select acn2 + *!* Sum suma To totsum + *!* If Thisform.LABEL10.Caption#"REGISTRUL VANZARI" + *!* If totsum#m.achitat + *!* Do mesaj With "Totalul sumelor din notele contabile este diferit ","de suma achitata. Trebuie redeschisa luna!" + *!* Endif + *!* Endif + *!* ORC=Createobj("AFincpl") + *!* ORC.Caption="INCASARI LA FACTURA NR. "+Alltrim(Str(nract)) + *!* ORC.LABELTITLU.Caption="INCASARI LA FACTURA NR. "+Alltrim(Str(nract)) + *!* Endcase + + *!* ORC.ali="acn2" + *!* ORC.grid1.column6.Visible=.T. + *!* ORC.Show(1) + + ORC=Createobj("frm_debcred") + orc.Lb_titlu_alb_b121.caption=pcTitlu + ORC.lb_titlu1.Caption=pcTitlu + ORC.Show(1) + + pcTitlu="" + Thisform.AlwaysOnTop=.T. + Thisform.but_teRMIN1.Enabled=.T. + If Used('acn1') + Use In acn1 + Endif + Release ORC,poact + ENDPROC + + PROCEDURE Init + DODEFAULT() + PRIVATE pntotctva,pnneimpozab,pntotftvam,pntvam,pntotftvai,pntvai + STORE 0.00 TO pntotctva,pnneimpozab,pntotftvam,pntvam,pntotftvai,pntvai + IF luna_inchisa + thisform.but_modifica1.Visible=.F. + thisform._shape2.Left=thisform._shape2.Left+thisform.but_modifica1.Width + thisform._shape2.width=thisform._shape2.width-thisform.but_modifica1.Width + ENDIF + thisform.Refresh + ENDPROC + + PROCEDURE istoric + *!* Private pcselect,pcfiltru,pcschema,pcorder,llAfisare,poacn1,poacn2,pcnume + *!* Store "" To poacn1,poacn2,pcnume + *!* Store .F. To llAfisare + *!* lunanan=gnAn*12+gnLuna + *!* CN='4111 ' + *!* Thisform.but_TERMIN1.Enabled=.F. + *!* Thisform.AlwaysOnTop=.F. + + *!* *!* Do NRORD With "ACTan" + *!* Select actcv + *!* pcnume=nume + *!* Do Case + *!* Case Inlist(Upper(Thisform.lb_titlu_alb_b121.Caption),"REGISTRUL CUMPARARI","SITUATIE FACTURI CUMPARARI")&&cumparari + *!* &&deb + *!* pcschema=[''] + *!* pcselect=['select * from ]+gcS+[.vact where 2=2'] + *!* pcfiltru=[partD=']+Alltrim(pcnume)+[' and SUBSTR(scd,1,3)='401'] + *!* pcorder=[dataact,nract] + *!* gencursor('poacn1','ACN1',pcselect,pcfiltru,pcschema,pcorder,llAfisare) + *!* poacn1.ca_baza1.afisare() + + *!* &&cred + *!* pcschema=[''] + *!* pcselect=['select nume,dataact,nract,dataireg,totctva as suma,achitat,achitat as pereche,fdoc,fdoc as scc,fdoc as scd,'+]+; + *!* ['fdoc as partC,fdoc as explicatia from ]+gcS+[.vcump where 2=2'] + *!* pcfiltru=[nume=']+Alltrim(pcnume)+[' and extract(year from dataact)*12+extract(month from dataact)<=]+Alltrim(Str(lunanan)) + *!* pcorder=[dataact,nract] + *!* gencursor('poacn2','ACN2',pcselect,pcfiltru,pcschema,pcorder,llAfisare) + *!* poacn2.ca_baza1.afisare() + + *!* ORC=Createobj("AFDEBsiCREDA") + *!* ORC.Caption="PERECHI - "+Alltrim(pcnume) + *!* ORC.grid2.SetAll("DynamicForeColor", ; + *!* "IIF(abs(suma-achitat)<1000,RGB(0,0,0),iif(suma0 + Private pcselect,pcfiltru,pcschema,pcorder,poact,pcnume + Store "" To poact,pcnume + pcschema=['DATAIREG D,DATAACT D,nract N(20),PARTD C(50),PARTC C(50),EXPLICATIA C(100),'+]+; + ['SUMA N(19,2),SCD C(4),SCC C(4),FDOC C(30),LUNA N(2),AN N(4),COD N(20)'] + pcselect=['select dataireg,dataact,nract,partd,partc,explicatia,suma,scd,scc,fdoc,luna,an,cod '+]+; + ['from ]+gcS+[.vact where 2=2'] + pcorder=[dataireg] + llAfisare=.F. + lunanan=gnLuna+gnAn*12 + Thisform.but_TERMIN1.Enabled=.F. + Thisform.AlwaysOnTop=.F. + + Sele actcv + pcnume=nume + If Inlist(Thisform.lb_titlu_alb_b121.Caption,"REGISTRUL CUMPARARI" ,"REGISTRUL VANZARI") + pcfiltru=[luna=]+Alltrim(Str(gnLuna))+[ and an=]+Alltrim(Str(gnAn))+; + [ and extract(year from dataireg)*12+extract(month from dataireg)<=]+Alltrim(Str(lunanan))+; + [ and cod=]+Alltrim(Str(cod))+[ and nract=]+Alltrim(Str(nract))+; + [ and partd=']+Alltrim(nume)+[' and dataact=to_date(']+Dtos(dataact)+[','YYYY-MM-DD')] + *!* Do NRORD With "ACT" + Else + pcfiltru=[extract(year from dataireg)*12+extract(month from dataireg)<=]+Alltrim(Str(lunanan))+; + [ and cod=]+Alltrim(Str(cod))+[ and nract=]+Alltrim(Str(nract))+; + [ and partd=']+Alltrim(nume)+[' and dataact=to_date(']+Dtos(dataact)+[','YYYY-MM-DD')] + *!* Do NRORD With "ACTAN" + Endif + gencursor('poact','ACN1',pcselect,pcfiltru,pcschema,pcorder,llAfisare) + poact.ca_baza1.afisare() + Go Top + *!* ORC=Createobj("AFDEBCRED") + *!* ORC.ali='ACN1' + *!* ORC.LABELTITLU.Caption="NOTA CONTABILA" + *!* ORC.Show(1) + + ORC=Createobj("frm_debcred") + orc.Lb_titlu_alb_b121.caption="Nota contabila "+ALLTRIM(pcnume) + ORC.lb_titlu1.Caption="NOTA CONTABILA" + orc._grdbase1.removeobject("cUtil") + orc._grdbase1.removeobject("cDataOra") + ORC.Show(1) + + Release poact,ORC + Thisform.but_TERMIN1.Enabled=.T. + Thisform.AlwaysOnTop=.T. + Else + aMessagebox("Nu aveti date in cautare!",48,"Atentie") + Thisform.ck_nract.SetFocus() + Endif + ENDPROC + + PROCEDURE plati + *!* Private pcselect,pcfiltru,pcschema,pcorder,llAfisare,poact + *!* Store "" To poact + *!* Store .F. To llAfisare + *!* Select actcv + *!* pcschema=['ID_ACT N(20),LUNA N(2),AN N(4),COD N(20),DATAIREG D,NRACT N(14),DATAACT D,'+]+; + *!* ['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+; + *!* ['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+; + *!* ['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+; + *!* ['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+; + *!* ['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+; + *!* ['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+; + *!* ['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)'] + *!* pcschema=[''] + *!* pcselect=['select * from ]+gcS+[.vact where 2=2'] + *!* pcfiltru=[luna=]+Alltrim(Str(gnLuna))+[ and an=]+Alltrim(Str(gnAn))+; + *!* [ and nume=']+Alltrim(nume)+[' and perecheC=]+Alltrim(Str(nract)) + *!* pcorder=[] + *!* gencursor("poact","act",pcselect,pcfiltru,pcschema,pcorder,llAfisare) + *!* poact.ca_baza1.afisare() + *!* Select act + *!* Do NRORD With "ACT" + *!* Go Top + *!* Thisform.but_termin1.Enabled=.F. + *!* ORC=Createobj("AFDEBCRED") + *!* ORC.LABELTITLU.Caption="Plati" + *!* ORC.Show(1) + *!* Thisform.but_termin1.Enabled=.T. + *!* RELEASE orc,poact + ENDPROC + + PROCEDURE cmd_istoric.Click + thisform.istoric() + ENDPROC + + PROCEDURE cmd_notacontab.Click + thisform.notacontab() + ENDPROC + + PROCEDURE _grdbase1.Column1.Text1.DblClick + Thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column10.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column11.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column12._checkbox1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column13.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column15._checkbox1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column2.Header1.Init + this.ForeColor =IIF(!EMPTY(this.tag),RGB(0,0,255),RGB(0,0,0)) + ENDPROC + + PROCEDURE _grdbase1.Column2.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column3.Header1.Init + this.ForeColor =IIF(!EMPTY(this.tag),RGB(0,0,255),RGB(0,0,0)) + ENDPROC + + PROCEDURE _grdbase1.Column3.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column4.Header1.Init + this.ForeColor =IIF(!EMPTY(this.tag),RGB(0,0,255),RGB(0,0,0)) + ENDPROC + + PROCEDURE _grdbase1.Column4.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column5.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column6.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column7.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column8.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column9.Text1.DblClick + thisform.butdrept() + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_regvanz2007 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_excel1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_reface1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFdoc.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFdoc.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cDataact.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cDataact.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cNract.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cNract.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cDenumire.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cDenumire.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCod_fiscal.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCod_fiscal.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTotctva.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTotctva.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo19b.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo19b.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo19t.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo19t.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo9b.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo9b.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo9t.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo9t.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRoti.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRoti.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCescdd1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCescdd1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCescdd2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCescdd2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cWrscdd.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cWrscdd.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFodd.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFodd.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFofdd.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFofdd.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cWrscfdd.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cWrscfdd.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cWrn.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cWrn.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cSerie_act.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cSerie_act.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cSucursala.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cSucursala.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cro5b.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cro5b.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cro5t.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cro5t.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cDataIreg.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cDataIreg.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="oMenuShortcut" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdfooter1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cbo_tip_jurnal_vanz" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_verifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_start_criterii1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_reset_criterii1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_shortcuts1" UniqueID="" Timestamp="" /> + + * + *m: butdrept + *m: incaspl + *m: ist_deb_cred + *m: notacontab + *a: aconditie[1,4] + * + + * + cgridsortlist = _grdbase1 + DoCreate = .T. + filtru_pretty = + filtru_pretty_ro = + Height = 500 + Name = "frm_regvanz2007" + Width = 795 + WindowState = 2 + _shape1.Anchor = 10 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 795 + _shape1.ZOrderSet = 2 + _shape2.Anchor = 8 + _shape2.Height = 29 + _shape2.Left = 672 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 121 + _shape2.ZOrderSet = 3 + Lb_titlu_alb_b121.Caption = "REGISTRUL VANZARI" + Lb_titlu_alb_b121.FontBold = .T. + Lb_titlu_alb_b121.Left = 6 + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 16 + Lb_titlu_alb_b121.Top = 0 + Lb_titlu_alb_b121.ZOrderSet = 4 + BUT_TERMIN1.Anchor = 8 + BUT_TERMIN1.Left = 765 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 10 + BUT_TERMIN1.Top = 1 + BUT_TERMIN1.ZOrderSet = 5 + Gridsort1.Left = 2 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 42 + * + + ADD OBJECT '_grdbase1' AS _grdbase WITH ; + Anchor = 15, ; + ColumnCount = 23, ; + DeleteMark = .F., ; + FontName = "Arial Narrow", ; + GridLineColor = 192,192,192, ; + HeaderHeight = 53, ; + Height = 384, ; + HighlightStyle = 2, ; + Left = 12, ; + Name = "_grdbase1", ; + Panel = 1, ; + RecordSource = "actcv", ; + TabIndex = 9, ; + Top = 72, ; + Width = 768, ; + ZOrderSet = 9, ; + Column1.ColumnOrder = 1, ; + Column1.ControlSource = "fel_document", ; + Column1.FontName = "Arial Narrow", ; + Column1.Name = "cFdoc", ; + Column1.Width = 66, ; + Column2.ColumnOrder = 2, ; + Column2.ControlSource = "dataact", ; + Column2.FontName = "Arial Narrow", ; + Column2.Name = "cDataact", ; + Column2.Width = 52, ; + Column3.ColumnOrder = 5, ; + Column3.ControlSource = "nract", ; + Column3.FontName = "Arial Narrow", ; + Column3.Name = "cNract", ; + Column4.ColumnOrder = 6, ; + Column4.ControlSource = "denumire", ; + Column4.FontName = "Arial Narrow", ; + Column4.Name = "cDenumire", ; + Column5.ColumnOrder = 7, ; + Column5.ControlSource = "cod_fiscal", ; + Column5.FontName = "Arial Narrow", ; + Column5.Name = "cCod_fiscal", ; + Column6.ColumnOrder = 8, ; + Column6.ControlSource = "totctva", ; + Column6.FontName = "Arial Narrow", ; + Column6.InputMask = (get_mask(12,gnPA)), ; + Column6.Name = "cTotctva", ; + Column7.ColumnOrder = 9, ; + Column7.ControlSource = "ro19b", ; + Column7.FontName = "Arial Narrow", ; + Column7.InputMask = (get_mask(12,gnPA)), ; + Column7.Name = "cRo19b", ; + Column7.Width = 76, ; + Column8.ColumnOrder = 10, ; + Column8.ControlSource = "ro19t", ; + Column8.FontName = "Arial Narrow", ; + Column8.InputMask = (get_mask(12,gnPA)), ; + Column8.Name = "cRo19t", ; + Column8.Width = 84, ; + Column9.ColumnOrder = 11, ; + Column9.ControlSource = "ro9b", ; + Column9.FontName = "Arial Narrow", ; + Column9.InputMask = (get_mask(12,gnPA)), ; + Column9.Name = "cRo9b", ; + Column9.Width = 89, ; + Column10.ColumnOrder = 12, ; + Column10.ControlSource = "ro9t", ; + Column10.FontName = "Arial Narrow", ; + Column10.InputMask = (get_mask(12,gnPA)), ; + Column10.Name = "cRo9t", ; + Column10.Width = 85, ; + Column11.ColumnOrder = 15, ; + Column11.ControlSource = "roti", ; + Column11.FontName = "Arial Narrow", ; + Column11.InputMask = (get_mask(12,gnPA)), ; + Column11.Name = "cRoti", ; + Column11.Width = 93, ; + Column12.ColumnOrder = 16, ; + Column12.ControlSource = "cescdd1", ; + Column12.FontName = "Arial Narrow", ; + Column12.InputMask = (get_mask(12,gnPA)), ; + Column12.Name = "cCescdd1", ; + Column12.Width = 109, ; + Column13.ColumnOrder = 17, ; + Column13.ControlSource = "cescdd2", ; + Column13.FontName = "Arial Narrow", ; + Column13.InputMask = (get_mask(12,gnPA)), ; + Column13.Name = "cCescdd2", ; + Column13.Width = 102, ; + Column14.ColumnOrder = 18, ; + Column14.ControlSource = "wrscdd", ; + Column14.FontName = "Arial Narrow", ; + Column14.InputMask = (get_mask(12,gnPA)), ; + Column14.Name = "cWrscdd", ; + Column15.ColumnOrder = 19, ; + Column15.ControlSource = "fodd", ; + Column15.FontName = "Arial Narrow", ; + Column15.InputMask = (get_mask(12,gnPA)), ; + Column15.Name = "cFodd", ; + Column15.Width = 88, ; + Column16.ColumnOrder = 20, ; + Column16.ControlSource = "fofdd", ; + Column16.FontName = "Arial Narrow", ; + Column16.InputMask = (get_mask(12,gnPA)), ; + Column16.Name = "cFofdd", ; + Column16.Width = 93, ; + Column17.ColumnOrder = 21, ; + Column17.ControlSource = "wrscfdd", ; + Column17.FontName = "Arial Narrow", ; + Column17.InputMask = (get_mask(12,gnPA)), ; + Column17.Name = "cWrscfdd", ; + Column17.Width = 77, ; + Column18.ColumnOrder = 22, ; + Column18.ControlSource = "wrn", ; + Column18.FontName = "Arial Narrow", ; + Column18.InputMask = (get_mask(12,gnPA)), ; + Column18.Name = "cWrn", ; + Column18.Width = 85, ; + Column19.ColumnOrder = 4, ; + Column19.ControlSource = "serie_act", ; + Column19.FontName = "Arial Narrow", ; + Column19.Name = "cSerie_act", ; + Column19.Width = 43, ; + Column20.ColumnOrder = 23, ; + Column20.ControlSource = "sucursala", ; + Column20.FontName = "Arial Narrow", ; + Column20.Name = "cSucursala", ; + Column21.ColumnOrder = 13, ; + Column21.ControlSource = "ro5b", ; + Column21.FontName = "Arial Narrow", ; + Column21.InputMask = (get_mask(12,gnPA)), ; + Column21.Name = "cro5b", ; + Column22.ColumnOrder = 14, ; + Column22.ControlSource = "ro5t", ; + Column22.FontName = "Arial Narrow", ; + Column22.InputMask = (get_mask(12,gnPA)), ; + Column22.Name = "cro5t", ; + Column23.ColumnOrder = 3, ; + Column23.ControlSource = "dataireg", ; + Column23.FontName = "Arial Narrow", ; + Column23.Name = "cDataIreg", ; + Column23.Width = 71 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_grdbase1.cCescdd1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Livr. intracom. scutite cu drept de ded. conf art 143, alin 2 (a si d)", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cCescdd1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cCescdd2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Livr. intracom. scutite cu drept de ded. conf art 143, alin 2 (b si c)", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cCescdd2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cCod_fiscal.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "C.I.F. / C.N.P.", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cCod_fiscal.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cDataact.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data act", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cDataact.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cDataIreg.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data inregistrare", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cDataIreg.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cDenumire.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nume", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cDenumire.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cFdoc.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Fel doc.", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cFdoc.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cFodd.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Locul livr./prest. este in afara RO cu drept de deducere", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cFodd.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cFofdd.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Locul livr./prest. este in afara RO fara drept de deducere", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cFofdd.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cNract.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. act", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cNract.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRo19b.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxabile la intern =Baza 19%=", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRo19b.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRo19t.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxabile la intern =TVA 19%=", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRo19t.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cro5b.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxabile la intern =Baza 5%=", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cro5b.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cro5t.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxabile la intern =TVA 5%=", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cro5t.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRo9b.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxabile la intern =Baza 9%=", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRo9b.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRo9t.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxabile la intern =TVA 9%=", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRo9t.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRoti.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxabile la intern - Taxare inversa", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRoti.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cSerie_act.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Serie act", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cSerie_act.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cSucursala.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sucursala", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cSucursala.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cTotctva.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Total cu TVA", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cTotctva.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cWrn.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Oper. neimpozabile /neincluse in baza de impozitare", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cWrn.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cWrscdd.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Alte livr. cu drept de deducere", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cWrscdd.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cWrscfdd.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Scutite fara drept de deducere", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cWrscfdd.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdfooter1' AS _grdfooter WITH ; + Anchor = 14, ; + ccolwithlabel = cfdoc, ; + csourcegrid = _grdbase1, ; + csumcolumns = cTotctva,cRo19b,cRo19t,cRo9b,cRo9t,cRo5b,cRo5t,cRoti,cCescdd1,cCescdd2,cWrscdd,cFodd,cFofdd,cWrscfdd,cWrn, ; + ctotallabelexpression = 'TOTAL', ; + Height = 25, ; + Left = 12, ; + Name = "_grdfooter1", ; + TabIndex = 18, ; + Top = 456, ; + Width = 768 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'But_excel1' AS but_excel WITH ; + Anchor = 8, ; + Left = 703, ; + Name = "But_excel1", ; + TabIndex = 12, ; + Top = 1, ; + ZOrderSet = 6 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_listare1' AS but_listare WITH ; + Anchor = 8, ; + Left = 734, ; + Name = "But_listare1", ; + TabIndex = 11, ; + Top = 1, ; + Visible = .T., ; + ZOrderSet = 7 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_reface1' AS but_reface WITH ; + Anchor = 8, ; + Comment = "*:OnResize=RT", ; + Left = 674, ; + Name = "But_reface1", ; + TabIndex = 13, ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_reset_criterii1' AS but_reset_criterii WITH ; + Anchor = 9, ; + Left = 584, ; + Name = "But_reset_criterii1", ; + Top = 1, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\ocriterii.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_start_criterii1' AS but_start_criterii WITH ; + Anchor = 9, ; + Left = 614, ; + Name = "But_start_criterii1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\ocriterii.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_verifica1' AS but_verifica WITH ; + Anchor = 8, ; + Left = 645, ; + Name = "But_verifica1", ; + TabIndex = 14, ; + ToolTipText = "Validare coduri fiscale", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'cbo_tip_jurnal_vanz' AS _combobox WITH ; + Alignment = 0, ; + Anchor = 3, ; + Height = 24, ; + Left = 12, ; + Name = "cbo_tip_jurnal_vanz", ; + RowSource = "Complet,Livrari taxabile la intern,Livrari cu taxare inversa,Livrari scutite cu drept de deducere,Livrari scutite fara drept de deducere,Livrari in afara Romaniei,Operatiuni neimpozabile", ; + RowSourceType = 1, ; + TabIndex = 15, ; + ToolTipText = 'Apasati "Cauta" dupa ce alegeti un tip de vizualizare', ; + Top = 41, ; + Width = 254 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" /> + + ADD OBJECT 'Gridextra1' AS gridextra WITH ; + gridexpression = Thisform._grdbase1, ; + Height = 17, ; + Left = 385, ; + Name = "Gridextra1", ; + Top = 51, ; + Width = 19 + *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> + + ADD OBJECT 'Lb_shortcuts1' AS lb_shortcuts WITH ; + Caption = "CTRL+F = Terminare; ESC = Renuntare; CTRL+Q = Cautare; CTRL+T = Resetare", ; + Left = 6, ; + Name = "Lb_shortcuts1", ; + Top = 16 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'oMenuShortcut' AS menulib WITH ; + Left = 216, ; + Name = "oMenuShortcut", ; + TabIndex = 17, ; + Top = 7, ; + ZOrderSet = 10 + *< END OBJECT: ClassLib="..\comun\clase\utility.vcx" BaseClass="container" /> + + PROCEDURE actualizeaza_grid1 + Lparameters lcFiltru + If Empty(lcFiltru) + lcFiltru = povanz.ca_baza1.cfiltru + Endif + Thisform.MousePointer= 11 + Thisform.LockScreen=.T. + + save_grid_tag(Thisform._grdbase1) + povanz.ca_baza1.cfiltru=lcFiltru + povanz.ca_baza1.afisare() + restore_grid_tag(Thisform._grdbase1) + Thisform._grdfooter1.calcTotal() + + Thisform.LockScreen=.F. + Thisform.MousePointer= 0 + ENDPROC + + PROCEDURE butdrept + *!* 16.04.2007 + x = xmenu("\= 1 AND ] + ; + *!* [ABS(RO19T) BETWEEN ROUND(0.188*ABS(RO19B),?gnPc) AND ROUND(0.193*ABS(RO19B),?gnPc) AND ] + ; + *!* [ABS(RO9T) BETWEEN ROUND(0.088*ABS(RO9B),?gnPc) AND ROUND(0.093*ABS(RO9B),?gnPc)] + *!* Endif + If Len(Thisform.filtru_pretty)>0 + filtrutext=Thisform.filtru_pretty + If At("AND",filtrutext)=1 + filtrutext=Right(filtrutext,Len(filtrutext)-4) + Endif + + lcFiltru = lcFiltru + IIF(!EMPTY(m.lcFiltru), " and ", "") + Alltrim(filtrutext) + Endif + + Do Case + Case lnOptiune = 1 + Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL VANZARI] + Case lnOptiune = 2 && Livrari taxabile intern + lcFiltru = lcFiltru+ [ and (ro19b<>0 OR ro19t<>0 OR ro9b<>0 OR ro9t<>0 OR ro5b<>0 OR ro5t<>0)] + Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL VANZARI - TAXABILE INTERN] + Case lnOptiune = 3 && Livrari cu taxare inversa + lcFiltru = lcFiltru + [ and (roti<>0)] + Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL VANZARI - TAXARE INVERSA] + Case lnOptiune = 4 && Livrari scutite cu drept de deducere + lcFiltru = lcFiltru + [ and (cescdd1<>0 or cescdd2<>0 or wrscdd<>0)] + Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL VANZARI - SCUTITE CU DREPT DE DEDUCERE] + Case lnOptiune = 5 && Livrari scutite fara drept de deducere + lcFiltru = lcFiltru + [ and (wrscfdd<>0)] + Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL VANZARI - SCUTITE FARA DREPT DE DEDUCERE] + Case lnOptiune = 6 && Livrari in afara Romaniei + lcFiltru = lcFiltru + [ and (fofdd<>0 or fodd<>0)] + Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL VANZARI - IN AFARA ROMANIEI] + Case lnOptiune = 7 && Operatiuni neimpozabile + lcFiltru = lcFiltru + [ and (wrn<>0)] + Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL VANZARI - OPERATIUNI NEIMPOZABILE] + Endcase + + If (This.filtru_pretty#"none") + Thisform.actualizeaza_grid1(lcFiltru) + If Reccount('actcv')=0 + aMESSAGEBOX("Cautarea nu a intors rezultate!",64,"Info cautare") + Else + + Endif + Endif + + ENDPROC + + PROCEDURE do_excel + do export_excel_grid WITH thisform._grdbase1,"dataact, nract", "", this.lb_titlu_alb_b121.caption IN proceduri_excel.prg + + return + + If Used('actcv') And Reccount('actcv')>0 + Local i,xlsheet,XLApp,tmpsheet + exista_excel=.T. + p1='' + p2='' + With Thisform._grdbase1 + For nCol=1 To .ColumnCount + nColumn=.Columns(nCol).ColumnOrder + p1=p1+.Columns(nCol).ControlSource+',' + p2=p2+Strtran(.Columns(nCol).header1.Caption,Chr(32),'_')+',' + Endfor + p1=Substr(p1,1,Len(p1)-1) + p2=Substr(p2,1,Len(p2)-1) + Endwith + On Error Do exportare With thisform._grdbase1.RecordSource,p1,p2 + tmpsheet = Getobject('','excel.sheet') + On Error + + If exista_excel + Wait Window "Se transmit datele catre Excel..." Nowait + + XLApp = tmpsheet.Application + XLApp.workbooks.Close() + XLApp.workbooks.Add() + poExcel = XLApp.ActiveSheet + + Go Top + poExcel.Cells(1,1).Font.Size=16 + poExcel.Cells(1,1).Font.Bold=.T. + poExcel.Cells(1,1)=Thisform.lb_titlu_alb_b121.Caption+" Luna "+Alltrim(Str(gnLuna))+"/"+Alltrim(Str(gnAn)) + nRows = 3 + With Thisform._grdbase1 + For nCol = 1 To .ColumnCount + nColumn = .Columns(nCol).ColumnOrder + poExcel.Columns(nColumn).ColumnWidth = .Columns(nCol).Width/7.5 + poExcel.Cells(nRows,nColumn) = .Columns(nCol).header1.Caption + poExcel.Cells(nRows,nColumn).Font.Bold = .T. + poExcel.Cells(nRows,nColumn).Interior.ColorIndex = 16 + Endfor + Scan + nRows = nRows + 1 + For nCol = 1 To .ColumnCount + nColumn = .Columns(nCol).ColumnOrder + If At('CHECK',Upper(.Columns(nCol).CurrentControl))>0 + poExcel.Cells(nRows,nColumn)=Iif(Eval(.Columns(nCol).ControlSource)==0,'NU','DA') + Else + poExcel.Cells(nRows,nColumn) = Eval(.Columns(nCol).ControlSource) + Endif + Endfor + Endscan + Endwith + + XLApp.Visible = .T. + Endif + Endif + + + ENDPROC + + PROCEDURE do_listare + Private pctitlu, pcSubtitlu, pcdataora + lnTipJurnal = Thisform.cbo_tip_jurnal_vanz.ListItemId - 1 + + x=xmenu("Registru Vanzari;\-;Recapitulatie - Registru Vanzari;\-;Registru Vanzari restrans") + + pctitlu = [JURNAL DE VANZARI ] + Alltrim(Substr(Thisform.lb_tITLU_ALB_B121.Caption,At([-],Thisform.lb_tITLU_ALB_B121.Caption,1))) + Store "" To pcSubtitlu + If This.filtru_traducere()#"" + lctext=" si "+This.filtru_traducere() + Else + lctext="" + Endif + + pcSubtitlu = This.filtru_pretty_ro + lctext + + + *!* pcdataora = get_ora(2) + + Do Case + Case lnTipJurnal = 1 + pcSubtitlu = "LIVRARI TAXABILE LA INTERN" + Case lnTipJurnal = 2 + pcSubtitlu = "LIVRARI CU TAXARE INVERSA" + Case lnTipJurnal = 3 + pcSubtitlu = "LIVRARI SCUTITE CU DREPT DE DEDUCERE" + Case lnTipJurnal = 4 + pcSubtitlu = "LIVRARI SCUTITE FARA DREPT DE DEDUCERE" + Case lnTipJurnal = 5 + pcSubtitlu = "LIVRARI IN AFARA ROMANIEI" + Case lnTipJurnal = 6 + pcSubtitlu = "OPERATIUNI NEIMPOZABILE" + Endcase + + If x = 1 + && REGISTRU TVA LUNA CURENTA + Select 0 As tip, * ; + FROM actcv ; + INTO Cursor cListRC ; + ORDER By dataact, nract ; + READWRITE + Endif + + && REGISTRE TVA RECAPITULATIE + If x = 3 + && REGISTRU TVA LUNA CURENTA + Select 0 As tip, * ; + FROM actcv ; + INTO Cursor cListRC ; + ORDER By dataact, nract ; + READWRITE + + Private pnAn, pnLuna + pnAn = 0 + pnLuna = 0 + locaut = Createobject('frm_caut_anluna') + locaut.Show(1) + If buton = 2 + Return + Endif + + If lnTipJurnal <> 0 + Do Case + Case lnTipJurnal = 1 && Livrari taxabile intern + lcWhere = "(ro19b<>0 OR ro19t<>0 OR ro9b<>0 OR ro9t<>0 OR ro5b<>0 OR ro5t<>0 )" + Case lnTipJurnal = 2 && Livrari cu taxare inversa + lcWhere = "(roti<>0)" + Case lnTipJurnal = 3 && Livrari scutite cu drept de deducere + lcWhere = "(cescdd1<>0 or cescdd2<>0 or wrscdd<>0 or ceoptr<>0)" + Case lnTipJurnal = 4 && Livrari scutite fara drept de deducere + lcWhere = "(wrscfdd<>0)" + Case lnTipJurnal = 5 && Livrari in afara Romaniei + lcWhere = "(fofdd<>0 or fodd<>0 or cesvdd<>0 or cesvfdd<>0 or cesvfs<>0)" + Case lnTipJurnal = 6 && Operatiuni neimpozabile + lcWhere = "(wrn<>0)" + Endcase + Else + lcWhere = '' + Endif + + + lcSelect = [select 1 as tip, an, luna, to_date('','ddmmyyyy') as dataact, 000000000 as nract,] + ; + [ (select numeluna from lunilean where nrluna = luna) as denumire,' ' as cod_fiscal, ] +; + [SUM(TOTCTVA) AS TOTCTVA, ] + ; + [SUM(CESCDD1+CEOPTR) AS CESCDD1, SUM(CESCDD2) AS CESCDD2, ] + ; + [SUM(FODD+CESVDD) AS FODD, SUM(FOFDD+CESVFDD) AS FOFDD, ] + ; + [SUM(CESVFS) AS CESVFS,] + ; + [SUM(ROTI) AS ROTI, ] + ; + [SUM(RO19B) AS RO19B, SUM(RO19T) AS RO19T, SUM(RO9B) AS RO9B, SUM(RO9T) AS RO9T, ] + ; + [SUM(RO5B) AS RO5B, SUM(RO5T) AS RO5T,]+; + [SUM(WRN) AS WRN, SUM(WRSCDD) AS WRSCDD, SUM(WRSCFDD) AS WRSCFDD ] + ; + [ FROM JV2007 ] + ; + [ WHERE (an*12+luna between ?pnAn*12 + ?pnLuna and ?gnAn*12 + ?gnLuna) ] + Iif(!Empty(lcWhere), " and " + lcWhere, "") + ; + gcCondSucursala + ; + [ GROUP BY an, luna] + + lnSucces = goExecutor.oExecute(lcSelect, "crsTotal") + If lnSucces < 0 + amessagebox(goExecutor.cEroare,0+16,"Eroare") + Else + Select cListRC + Append From Dbf('crsTotal') + Use In crsTotal + Endif + Endif && x = 3 + + If x = 5 + x = raport_regvanz2007_restrans(x,[actcv]) + Endif + + If Inlist(x,1,3,5) + *!* If Reccount('cListRC') = 0 + *!* amessagebox("Nu exista inregistrari pentru listare!",48,"Atentie") + *!* Else + *!* Thisform.AlwaysOnTop=.F. + *!* Select cListRC + *!* Report Format registru_vanzari_jtva2007 To Printer Prompt Preview + *!* Thisform.AlwaysOnTop=.T. + *!* Endif + Thisform.AlwaysOnTop = .F. + goExport.export2frx([cListRC],[registru_vanzari_jtva2007]) + + *!* registru vanzari 5% + Select cListRC + Set Filter To ro5b<>0 Or ro5t<>0 + GO TOP + If !EMPTY(denumire) + goExport.export2frx([cListRC],[registru_vanzari_jtva2007_5]) + Endif + *!* registru vanzari 5% ^ + Thisform.AlwaysOnTop = .T. + Endif + + If Used('cListRC') + Use In cListRC + Endif + + + ENDPROC + + PROCEDURE do_reface + lnAn = gnAn + lnLuna = gnLuna + lnSucces = refacere([TVA_2007],[],[JV],lnLuna,lnAn)&& IN orefaceri.prg + If lnSucces > 0 + Thisform.actualizeaza_grid1() + *** verificare INAINTE_DE + lcCoresp = ['4111'] + lcExceptii = ['667,622'] + *!* Do inainte With "VANZ2007",,,,lcExceptii,lcCoresp In oinainte_de.prg + + *this.LockScreen = .f. + This._grdbase1.SetFocus + aMESSAGEBOX("Refacerea s-a terminat!",64,"Info refacere") + Endif + + + ENDPROC + + PROCEDURE do_reset + *!* Thisform.ck_dataact.Value=0 + *!* *Thisform.ck_fel_document.Value=0 + *!* Thisform.ck_nract.Value=0 + *!* Thisform.ck_denumire.Value=0 + *!* Thisform.ck_eROARE_TVA.Value=0 + Thisform.cbo_tip_jurnal_vanz.ListItemId = 1 + + IF NOT PEMSTATUS(thisform,"filtru_pretty",5) + thisform.AddProperty("filtru_pretty") + ENDIF + IF NOT PEMSTATUS(thisform,"filtru_pretty_ro",5) + thisform.AddProperty("filtru_pretty_ro") + ENDIF + + thisform.filtru_pretty="" + thisform.filtru_pretty_ro="" + Thisform.but_start_criterii1.SetFocus + Thisform.Refresh + thisform.but_start_criterii1.pornit="nu" + thisform.do_cauta() + + ENDPROC + + PROCEDURE do_termin + THIS.BUT_STArt_criterii1.RESETstatus() + DODEFAULT() + ENDPROC + + PROCEDURE do_verifica + *!* 20.08.2009 + *!* marius.mutu + *!* imbunatatit verificarea CIF/CNP + validare atribut TVA pe site-ul VIES + + #Define CRLF Chr(13) + Chr(10) + Local lcFile, lcRun, lcSelect, llPlatitorTVA, lcCoduriEronate + Local X, llVerificarePlatitorTVA, lcWhere, lcCodFiscal, llAtributFiscalRO + Local lcXml, loPartener, lcEroare, lcKey + + lcSelect = Select() + X = XMENU('Inregistrarea curenta - verificare validitate;Inregistrarea curenta - verificare validitate + platitor TVA;\-;Toate inregistrarile - verificare validitate;Toate inregistrarile - verificare validitate + platitor TVA') + IF !BETWEEN(x,1,5) + RETURN + ENDIF + llVerificarePlatitorTVA = INLIST(x, 2, 5) + *!* aMessagebox('Se verifica si calitatea de platitor TVA?' + CRLF + ; + *!* 'Atentie verificarea se face pe internet si este posibil ca serviciul web sa functioneze incet!',4+32, _Screen.Caption) = 6 + + lcWhere = IIF(INLIST(x, 1, 2), "recno() = " + ALLTRIM(STR(RECNO())), ".T.") + Select Distinct COD_FISCAL, denumire, .T. As IsCIF, .F. As codvalid ; + FROM ACTCV ; + WHERE &lcWhere ; + INTO Cursor crsCoduriFiscale ; + ORDER By denumire, COD_FISCAL ; + READWRITE + + *!* VERIFIC CIF, CNP VALID + Local loVerificare + *!* glRCViesURL = .T. + *!* gcRCVIESURL = "http://localhost/update/verificarecod.aspx/verificarecod/verificare/CIF/|CIF|/VIES" + loVerificare = Createobject("verificarecod", glRCViesURL, glRCMfinURL, gcRCRomfastURL, gcRCMfinanteURL, gcRCMfinanteParams) && validare.prg + + + Select crsCoduriFiscale + Replace All IsCIF With loVerificare.IsCIF(COD_FISCAL) + Replace All codvalid With Iif(IsCIF, loVerificare.validare('CIF', COD_FISCAL), loVerificare.validare('CNP', COD_FISCAL)) + + lcCoduriEronate = "" + Set Textmerge On To Memvar lcCoduriEronate + + \CODURI FISCALE ERONATE + Select crsCoduriFiscale + Scan For !codvalid + \<>, <> + Endscan + + *!* VERIFIC CODURILE FISCALE VALIDE PENTRU ATRIBUTUL FISCAL IN VIES + If llVerificarePlatitorTVA + \ + \PARTENERI CU ATRIBUT TVA RO ERONAT + Select crsCoduriFiscale + Scan For codvalid AND IsCIF + + lcCodFiscal = Alltrim(Upper(COD_FISCAL)) + llAtributFiscalRO = LEFT(lcCodFiscal,2) = 'RO' + + WAIT WINDOW ALLTRIM(denumire) + ' ' + TRANSFORM(ROUND(RECNO()/RECCOUNT()*100,2)) + ' %' NOWAIT + + lcXml = loVerificare.Verificare('CIF', lcCodFiscal, 'VIES') + IF TYPE('loVerificare.oEntitate') = 'O' + loPartener = loVerificare.oEntitate + llPlatitorTva = loPartener.platitortva + lcEroare = loPartener.eroare + IF !EMPTY(lcEroare) AND aMESSAGEBOX(lcEroare + CRLF + 'Doriti sa continuati?', 4+ 32, _screen.caption) <> 6 + EXIT + ENDIF + + IF (llAtributFiscalRO AND !llPlatitorTVA) OR (!llAtributFiscalRO AND llPlatitorTVA) + \<>, <>, <> + ENDIF + ENDIF + + lcKey = INKEY(0.1) + IF lcKey = 27 && ESC + IF aMESSAGEBOX('Doriti sa intrerupeti operatia?', 4+32, _screen.Caption) = 6 + EXIT + ENDIF + ENDIF + Endscan + Endif + Set Textmerge To + + Use In Select('crsCoduriFiscale') + lcFile = gcTempPath + 'coduri_fiscale_eronate.txt' + Strtofile(lcCoduriEronate,lcFile) + lcRun = [RUN /n notepad "] + lcFile + ["] + &lcRun + + Select (lcSelect) + + ENDPROC + + PROCEDURE grid_sort_bind + *!* 09.09.2010 + *!* am folosit gridextra + *!* nu sterge + *!* 09.09.2010 ^ + ENDPROC + + PROCEDURE incaspl + Private pnlunanan,pcselect,pcfiltru,pcschema,pcorder,llAfisare,poact + Store "" To poact + Store .F. To llAfisare + Store 0 To pnlunanan + + pnlunanan=gnAn*12+gnLuna + CN='4111' + Thisform.but_teRMIN1.Enabled=.F. + Thisform.AlwaysOnTop=.F. + + pcschema=['ID_ACT N(20),LUNA N(2),AN N(4),COD N(20),DATAIREG D,nract N(20),DATAACT D,'+]+; + ['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+; + ['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+; + ['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+; + ['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+; + ['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+; + ['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+; + ['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)'] + pcschema=[''] + pcselect=['select partD,dataact,serie_act,nract,dataireg,suma,perecheC,util,dataora,fdoc,scc,scd,partC,explicatia '+]+; + ['from ]+gcS+[.vact where 2=2'] + pcorder=[dataact,serie_act,nract] + + Select actcv + pcTitlu="INCASARI LA FACTURA NR. "+Alltrim(Str(nract)) + pcfiltru=[id_partc=]+Alltrim(STR(id_part))+[ and extract(year from dataireg)*12+extract(month from dataireg)<=]+Alltrim(Str(pnlunanan))+[ ]+; + [and (perecheC=]+Alltrim(Str(nract))+[ or nract=']+Alltrim(Str(nract))+[')]+gcCondSucursala + gencursor("poact","acn1",pcselect,pcfiltru,pcschema,pcorder,llAfisare) + poact.ca_baza1.afisare() + + ORC=Createobj("frm_debcred") + ORC.Lb_titlu_alb_b121.Caption=pcTitlu + ORC.lb_titlu1.Caption=pcTitlu + ORC.Show(1) + + pcTitlu="" + Thisform.AlwaysOnTop=.T. + Thisform.but_teRMIN1.Enabled=.T. + If Used('acn1') + Use In acn1 + Endif + Release ORC,poact + ENDPROC + + PROCEDURE Init + DoDefault() + If !glEMama + Thisform._grdbase1.RemoveObject([cSucursala]) + ENDIF + + *!* 09.09.2010 + this.gridextra1.setup() + *!* 09.09.2010 ^ + ENDPROC + + PROCEDURE ist_deb_cred + PRIVATE pnlunanan,lul,pcselect,pcschema,pcfiltru,pcorder,llAfisare,poacn1,poacn2,pcdatacrt,pcnume,luna,anul,pnlunaanales,pniesire + STORE 0 TO pnlunanan,pniesire + STORE .F. TO llAfisare + STORE "" TO lul,poacn1,poacn2 + pnlunanan=gnAn*12+gnLuna + pcdatacrt=ALLTRIM(STR(gnAn))+PADL(ALLTRIM(STR(gnLuna)),2,'0')+[01] && prima zi a lunii + + THISFORM.but_termin1.ENABLED=.F. + THISFORM.ALWAYSONTOP= .F. + + lul=gnLuna && ?? + pcanul="00" + pcluna="00" + SELECT calendar + ose=CREATEOBJECT('frm_seleluna') + ose.SHOW(1) + IF pniesire=2 + THISFORM.but_termin1.ENABLED=.T. + THISFORM.ALWAYSONTOP= .T. + RETURN + ENDIF + + pnlunaanales=VAL(pcanul)*12+VAL(pcluna) + SELECT actcv + pcnume=denumire + pcschema=['ID_ACT N(20),LUNA N(2),AN N(4),COD N(20),DATAIREG D,nract N(20),DATAACT D,'+]+; + ['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+; + ['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+; + ['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+; + ['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+; + ['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+; + ['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+; + ['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)'] + pcschema=[''] + pcselect=['select * from ]+gcS+[.vact where 2=2'] + pcorder=[dataact,serie_act,nract] + + + pcfiltru=[id_partD=]+ALLTRIM(STR(id_part))+[ and TRIM(SUBSTR(scd,1,3))='4111' and TRIM(scd)!='4118' and ]+; + [extract(year from dataireg)*12+extract(month from dataireg) between ]+; + ALLTRIM(STR(pnlunaanales))+[ and ]+ALLTRIM(STR(pnlunanan))+gcCondSucursala + + gencursor("poacn1","acn1",pcselect,pcfiltru,pcschema,pcorder,llAfisare) + + + pcfiltru=[dataact0 + PRIVATE pcselect,pcfiltru,pcschema,pcorder,poact,pcnume + STORE "" TO poact,pcnume + pcschema=['DATAIREG D,DATAACT D,SERIE_ACT C(10),nract N(20),PARTD C(50),PARTC C(50),EXPLICATIA C(100),'+]+; + ['SUMA N(19,2),SCD C(4),SCC C(4),FDOC C(30),LUNA N(2),AN N(4),COD N(20)'] + pcselect=['select dataireg,dataact,serie_act,nract,partd,partc,explicatia,suma,scd,scc,fdoc,luna,an,cod '+]+; + ['from ]+gcS+[.vact where 2=2'] + pcorder=[dataact,serie_act,nract] + llAfisare=.F. + lunanan=gnLuna+gnAn*12 + THISFORM.but_TERMIN1.ENABLED=.F. + THISFORM.ALWAYSONTOP=.F. + + SELE actcv + pcnume=denumire + pcfiltru=[luna=]+ALLTRIM(STR(gnLuna))+[ and an=]+ALLTRIM(STR(gnAn))+; + [ and extract(year from dataireg)*12+extract(month from dataireg)<=]+ALLTRIM(STR(lunanan))+; + [ and cod=]+ALLTRIM(STR(cod))+[ and nract=]+ALLTRIM(STR(nract))+; + [ and (id_partc=]+ALLTRIM(STR(id_part))+[ or id_partd=]+ALLTRIM(STR(id_part))+[) ] +; + [ and dataact=to_date(']+DTOS(dataact)+[','YYYY-MM-DD')]+gcCondSucursala + gencursor('poact','ACN1',pcselect,pcfiltru,pcschema,pcorder,llAfisare) + poact.ca_baza1.afisare() + GO TOP + + ORC=CREATEOBJ("frm_debcred") + ORC.lb_titlu_alb_b121.CAPTION="Nota contabila "+ALLTRIM(pcnume) + ORC.lb_titlu1.CAPTION="NOTA CONTABILA" + ORC._grdbase1.REMOVEOBJECT("cUtil") + ORC._grdbase1.REMOVEOBJECT("cDataOra") + ORC.SHOW(1) + + RELEASE poact,ORC + THISFORM.but_TERMIN1.ENABLED=.T. + THISFORM.ALWAYSONTOP=.T. + ELSE + aMessagebox("Nu aveti date in cautare!",48,"Atentie") + THISFORM.ck_nract.SETFOCUS() + ENDIF + + ENDPROC + + PROCEDURE But_start_criterii1.loadcriterii + PARAMETERS tacriterii + EXTERNAL ARRAY tacriterii + #define crlf CHR(13)+CHR(10) + lcStringCriterii="Nume\denumire\T\ID_PART\nom_parteneri" + crlf + ; + "Serie act\serie_act\T\none\" + crlf + ; + "Nr. act\nract\N\none\"+ crlf + ; + "Data act\dataact\D\none\" + crlf + ; + "Fel document\fel_document\T\ID_FDOC\nom_feldoc" + crlf + ; + "Cod Fiscal\cod_fiscal\T\none\" + crlf + ; + "Perioada\an*12+luna\D1\none\" + crlf + ; + "EroareTVA\nofiled\E\" + ; + [ ABS(TOTCTVA - (RO19B + RO19T + RO9B + RO9T + RO5B + RO5T + ROTI + CESCDD1 + CESCDD2 +] + ; + [WRSCDD + FODD + FOFDD + WRSCFDD + WRN)) >= 1 OR ] + ; + [ABS(RO19T) BETWEEN ROUND(0.188*ABS(RO19B),?gnPc) AND ROUND(0.193*ABS(RO19B),?gnPc) OR ] + ; + [ABS(RO9T) BETWEEN ROUND(0.088*ABS(RO9B),?gnPc) AND ROUND(0.093*ABS(RO9B),?gnPc)\] + crlf + ; + IIF(glEMama,[Sucursala\sucursala\C\none\] + crlf,[]) + * "Altele\1\A\REGISTRUL VANZARI - TAXABILE INTERN,REGISTRUL VANZARI - TAXARE INVERSA#ro19b<>0 OR ro19t<>0 OR ro9b<>0 OR ro9t<>0,roti<>0\" + DODEFAULT() + + ENDPROC + + PROCEDURE cbo_tip_jurnal_vanz.Init + This.ListItemId = 1 + ENDPROC + + PROCEDURE cbo_tip_jurnal_vanz.Valid + thisform.do_cauta() + ENDPROC + + PROCEDURE Gridextra1.applyfilter + DODEFAULT() + Thisform._grdfooter1.calcTotal() + ENDPROC + + PROCEDURE Gridextra1.clearfilter + DODEFAULT() + Thisform._grdfooter1.calcTotal() + ENDPROC + + PROCEDURE _grdbase1.cCod_fiscal.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.cDataact.Header1.Init + this.ForeColor =IIF(!EMPTY(this.tag),RGB(0,0,255),RGB(0,0,0)) + ENDPROC + + PROCEDURE _grdbase1.cDataact.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.cDenumire.Header1.Init + this.ForeColor =IIF(!EMPTY(this.tag),RGB(0,0,255),RGB(0,0,0)) + ENDPROC + + PROCEDURE _grdbase1.cDenumire.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.cFdoc.Text1.DblClick + Thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.cNract.Header1.Init + this.ForeColor =IIF(!EMPTY(this.tag),RGB(0,0,255),RGB(0,0,0)) + ENDPROC + + PROCEDURE _grdbase1.cNract.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.cRo19b.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.cRo19t.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.cRo9b.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.cRo9t.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.cRoti.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.cTotctva.Text1.DblClick + thisform.butdrept() + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_regvanz2007_restrans 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="grd_feldocument" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_feldocument.cAles.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_feldocument.cAles._checkbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_feldocument.cFel_document.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_feldocument.cFel_document.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="opt_zile" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_explicatie1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_parteneri" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_parteneri.cAles.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_parteneri.cAles._checkbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_parteneri.cDenumire.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_parteneri.cDenumire.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_parteneri.cCod_fiscal.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_parteneri.cCod_fiscal.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_explicatie2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="BUT_RENUNT1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_select_adv1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_denumire" UniqueID="" Timestamp="" /> + + * + DoCreate = .T. + Height = 505 + Name = "frm_regvanz2007_restrans" + Width = 375 + _shape1.Name = "_shape1" + _shape2.Height = 29 + _shape2.Left = 312 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 67 + Lb_titlu_alb_b121.Caption = "REGISTRU VANZARI RESTRANS" + Lb_titlu_alb_b121.FontBold = .T. + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 7 + BUT_TERMIN1.Left = 344 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 5 + BUT_TERMIN1.Top = 1 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT 'BUT_RENUNT1' AS but_renunt WITH ; + Left = 314, ; + Name = "BUT_RENUNT1", ; + TabIndex = 6, ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Clb_denumire' AS clb_tx_simplu WITH ; + Left = 17, ; + Name = "Clb_denumire", ; + Top = 218, ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Denumire", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cmd_select_adv1' AS cmd_select_adv WITH ; + ccoloana = ales, ; + cgrid = thisform.grd_parteneri, ; + Left = 12, ; + Name = "Cmd_select_adv1", ; + TabIndex = 3, ; + Top = 409 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'grd_feldocument' AS _grdbase WITH ; + ColumnCount = 2, ; + DeleteMark = .F., ; + FontName = "Arial Narrow", ; + Height = 135, ; + Left = 12, ; + Name = "grd_feldocument", ; + Panel = 1, ; + RecordSource = "crsdocumente", ; + TabIndex = 1, ; + Top = 52, ; + Width = 348, ; + Column1.ControlSource = "ales", ; + Column1.FontName = "Arial Narrow", ; + Column1.Name = "cAles", ; + Column1.Sparse = .F., ; + Column1.Width = 30, ; + Column2.ControlSource = "fel_document", ; + Column2.FontName = "Arial Narrow", ; + Column2.Name = "cFel_document", ; + Column2.Width = 285 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grd_feldocument.cAles._checkbox1' AS _checkbox WITH ; + Alignment = 2, ; + AutoSize = .F., ; + Caption = "", ; + Centered = .T., ; + FontName = "Arial Narrow", ; + Left = 23, ; + Name = "_checkbox1", ; + Top = 34 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'grd_feldocument.cAles.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Ales", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_feldocument.cFel_document.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Fel document", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_feldocument.cFel_document.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_parteneri' AS _grdbase WITH ; + ColumnCount = 3, ; + DeleteMark = .F., ; + FontName = "Arial Narrow", ; + Height = 152, ; + Left = 12, ; + Name = "grd_parteneri", ; + Panel = 1, ; + RecordSource = "crsparteneri", ; + TabIndex = 2, ; + Top = 252, ; + Width = 348, ; + Column1.ControlSource = "ales", ; + Column1.FontName = "Arial Narrow", ; + Column1.Name = "cAles", ; + Column1.Sparse = .F., ; + Column1.Width = 30, ; + Column2.ControlSource = "denumire", ; + Column2.FontName = "Arial Narrow", ; + Column2.Name = "cDenumire", ; + Column2.Width = 209, ; + Column3.ControlSource = "cod_fiscal", ; + Column3.FontName = "Arial Narrow", ; + Column3.Name = "cCod_fiscal" + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grd_parteneri.cAles._checkbox1' AS _checkbox WITH ; + Alignment = 2, ; + AutoSize = .F., ; + Caption = "", ; + Centered = .T., ; + FontName = "Arial Narrow", ; + Left = 23, ; + Name = "_checkbox1", ; + Top = 34 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'grd_parteneri.cAles.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Ales", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_parteneri.cCod_fiscal.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "C.I.F./C.N.P.", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_parteneri.cCod_fiscal.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_parteneri.cDenumire.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Denumire", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_parteneri.cDenumire.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Lb_explicatie1' AS lb_simplu WITH ; + Caption = "Alegeti felurile de document care se vor cumula", ; + Left = 12, ; + Name = "Lb_explicatie1", ; + TabIndex = 8, ; + Top = 35 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_explicatie2' AS lb_simplu WITH ; + Caption = "Alegeti partenerii pentru care se vor cumula tipurile alese mai sus", ; + Left = 12, ; + Name = "Lb_explicatie2", ; + TabIndex = 9, ; + Top = 197 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'opt_zile' AS _optiongrup WITH ; + Left = 12, ; + Name = "opt_zile", ; + TabIndex = 4, ; + Top = 444, ; + Option1.AutoSize = .T., ; + Option1.Caption = "Se cumuleaza pe toata perioada", ; + Option1.Left = 5, ; + Option1.Name = "Option1", ; + Option1.Top = 5, ; + Option2.AutoSize = .T., ; + Option2.Caption = "Se cumuleaza in fiecare zi din perioada", ; + Option2.Left = 5, ; + Option2.Name = "Option2", ; + Option2.Top = 24 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="optiongroup" /> + + PROCEDURE inainte_de_do_termin + Local llReturn,lnDocAles,lnPartAles + Store .T. To llReturn + + Select crsdocumente + lnRecno = Recno() + Calculate Cnt() For ales = 1 To lnDocAles + Go (lnRecno) + + Select crsparteneri + lnRecno = Recno() + Calculate Cnt() For ales = 1 To lnPartAles + Go (lnRecno) + + pnTipZile = This.opt_zile.Value + + Do Case + Case lnDocAles = 0 + amessagebox("Nu ati ales tipul de document pentru care se va face cumularea!",48,"Atentie") + This.grd_feldocument.SetFocus() + llReturn = .F. + Case lnPartAles = 0 + amessagebox("Nu ati ales partenerii pentru care se va face cumularea!",48,"Atentie") + This.grd_parteneri.SetFocus() + llReturn = .F. + Otherwise + llReturn = .T. + Endcase + + Return llReturn + ENDPROC + + PROCEDURE Clb_denumire.Text_simplu1.KeyPress + Lparameters nKeyCode, nShiftAltCtrl + If nKeyCode = 13 And !Empty(This.Value) + Nodefault + Select crsparteneri + Locate For Like(Alltrim(This.Value)+[*],denumire) + If !Found() + Go Top + Endif + Thisform.grd_parteneri.SetFocus() + Else + DoDefault() + Endif + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_regvanz2010 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="_grdbase1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFdoc.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFdoc.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cDataact.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cDataact.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cNract.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cNract.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cDenumire.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cDenumire.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCod_fiscal.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCod_fiscal.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTotctva.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTotctva.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo24b.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo24b.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo24t.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo24t.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo9b.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo9b.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo9t.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo9t.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRoti.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRoti.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCescdd1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCescdd1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCescdd2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCescdd2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cWrscdd.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cWrscdd.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFofdd.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFofdd.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFodd.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFodd.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cWrscfdd.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cWrscfdd.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cWrn.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cWrn.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cSerieAct.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cSerieAct.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo5B.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo5B.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo5T.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo5T.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo19b.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo19b.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo19t.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo19t.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCesvfs.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCesvfs.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCeoptr.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCeoptr.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCesvdd.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCesvdd.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column27.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column27.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO24NB.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO24NB.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO24NT.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO24NT.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO9NB.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO9NB.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO9NT.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO9NT.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO5NB.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO5NB.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO5NT.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO5NT.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTotftvaTax.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTotftvaTax.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTotTVATax.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTotTVATax.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRONB.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRONB.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRONT.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRONT.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTVAIncasare.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTVAIncasare.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTVAIncasare.Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cSucursala.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cSucursala.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cAles.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cAles.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cAles._checkbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCont.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCont.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column42.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column42.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column43.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column43.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column44.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column44.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO20B.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO20B.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO20T.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO20T.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO20NB.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO20NB.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO20NT.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO20NT.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cDataIreg.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cDataIreg.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO19NB.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO19NB.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO19NT.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO19NT.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column52.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column52.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column53.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column53.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column54.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column54.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdfooter1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_reface1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="oMenuShortcut" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cbo_tip_jurnal_vanz" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_verifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_start_criterii1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_reset_criterii1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_shortcuts1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cmdTVAIncasare" UniqueID="" Timestamp="" /> + + * + *m: butdrept + *m: do_listare2013 + *m: grdfooterevent + *m: incaspl + *m: ist_deb_cred + *m: notacontab + *p: lafisaretot && Se afiseaza toate inregistrarile lal intrarea in formular + *p: lvfp9 + *a: aconditie[1,4] + * + + * + cgridsortlist = _grdbase1 + DoCreate = .T. + filtru_pretty = + filtru_pretty_ro = + Height = 500 + lafisaretot = .F. + lvfp9 = .T. + Name = "frm_regvanz2010" + Width = 795 + WindowState = 2 + _memberdata = + + + _shape1.Anchor = 10 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 795 + _shape1.ZOrderSet = 2 + _shape2.Anchor = 8 + _shape2.Height = 29 + _shape2.Left = 672 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 121 + _shape2.ZOrderSet = 3 + Lb_titlu_alb_b121.Caption = "REGISTRUL VANZARI" + Lb_titlu_alb_b121.FontBold = .T. + Lb_titlu_alb_b121.Left = 6 + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 16 + Lb_titlu_alb_b121.Top = 0 + Lb_titlu_alb_b121.ZOrderSet = 4 + BUT_TERMIN1.Anchor = 8 + BUT_TERMIN1.Left = 765 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 10 + BUT_TERMIN1.Top = 1 + BUT_TERMIN1.ZOrderSet = 5 + Gridsort1.Left = 2 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 42 + * + + ADD OBJECT '_grdbase1' AS _grdbase WITH ; + Anchor = 15, ; + ColumnCount = 54, ; + Comment = "*:OnResize=ss", ; + DeleteMark = .F., ; + FontCharSet = 238, ; + FontSize = 10, ; + GridLineColor = 192,192,192, ; + HeaderHeight = 49, ; + Height = 398, ; + Left = 11, ; + Name = "_grdbase1", ; + Panel = 1, ; + ReadOnly = .T., ; + RecordSource = "actcv", ; + RowHeight = 19, ; + TabIndex = 7, ; + Top = 70, ; + Width = 768, ; + ZOrderSet = 2, ; + Column1.ColumnOrder = 1, ; + Column1.ControlSource = "fdoc", ; + Column1.FontCharSet = 238, ; + Column1.FontName = "Arial", ; + Column1.FontSize = 10, ; + Column1.Name = "cFdoc", ; + Column1.ReadOnly = .T., ; + Column1.Width = 109, ; + Column2.ColumnOrder = 2, ; + Column2.ControlSource = "dataact", ; + Column2.FontCharSet = 238, ; + Column2.FontName = "Arial", ; + Column2.FontSize = 10, ; + Column2.Name = "cDataact", ; + Column2.ReadOnly = .T., ; + Column2.Width = 82, ; + Column3.ColumnOrder = 5, ; + Column3.ControlSource = "nract", ; + Column3.FontCharSet = 238, ; + Column3.FontName = "Arial", ; + Column3.FontSize = 10, ; + Column3.Name = "cNract", ; + Column3.ReadOnly = .T., ; + Column3.Width = 109, ; + Column4.ColumnOrder = 6, ; + Column4.ControlSource = "denumire", ; + Column4.FontCharSet = 238, ; + Column4.FontName = "Arial", ; + Column4.FontSize = 10, ; + Column4.Name = "cDenumire", ; + Column4.ReadOnly = .T., ; + Column4.Width = 212, ; + Column5.ColumnOrder = 7, ; + Column5.ControlSource = "cod_fiscal", ; + Column5.FontCharSet = 238, ; + Column5.FontName = "Arial", ; + Column5.FontSize = 10, ; + Column5.Name = "cCod_fiscal", ; + Column5.ReadOnly = .T., ; + Column5.Width = 99, ; + Column6.ColumnOrder = 8, ; + Column6.ControlSource = "totctva", ; + Column6.FontCharSet = 238, ; + Column6.FontName = "Arial", ; + Column6.FontSize = 10, ; + Column6.InputMask = (get_mask(12,gnZ)), ; + Column6.Name = "cTotctva", ; + Column6.ReadOnly = .T., ; + Column6.Width = 121, ; + Column7.ColumnOrder = 21, ; + Column7.ControlSource = "ro24b", ; + Column7.FontCharSet = 238, ; + Column7.FontName = "Arial", ; + Column7.FontSize = 10, ; + Column7.Format = "RK", ; + Column7.InputMask = (get_mask(12,gnZ)), ; + Column7.Name = "cRo24b", ; + Column7.ReadOnly = .T., ; + Column7.Width = 116, ; + Column8.ColumnOrder = 22, ; + Column8.ControlSource = "ro24t", ; + Column8.FontCharSet = 238, ; + Column8.FontName = "Arial", ; + Column8.FontSize = 10, ; + Column8.Format = "RK", ; + Column8.InputMask = (get_mask(12,gnZ)), ; + Column8.Name = "cRo24t", ; + Column8.ReadOnly = .T., ; + Column8.Width = 124, ; + Column9.ColumnOrder = 25, ; + Column9.ControlSource = "ro9b", ; + Column9.FontCharSet = 238, ; + Column9.FontName = "Arial", ; + Column9.FontSize = 10, ; + Column9.InputMask = (get_mask(12,gnZ)), ; + Column9.Name = "cRo9b", ; + Column9.ReadOnly = .T., ; + Column9.Width = 127, ; + Column10.ColumnOrder = 26, ; + Column10.ControlSource = "ro9t", ; + Column10.FontCharSet = 238, ; + Column10.FontName = "Arial", ; + Column10.FontSize = 10, ; + Column10.InputMask = (get_mask(12,gnZ)), ; + Column10.Name = "cRo9t", ; + Column10.ReadOnly = .T., ; + Column10.Width = 112, ; + Column11.ColumnOrder = 33, ; + Column11.ControlSource = "roti", ; + Column11.FontCharSet = 238, ; + Column11.FontName = "Arial", ; + Column11.FontSize = 10, ; + Column11.InputMask = (get_mask(12,gnZ)), ; + Column11.Name = "cRoti", ; + Column11.ReadOnly = .T., ; + Column11.Width = 113, ; + Column12.ColumnOrder = 34, ; + Column12.ControlSource = "cescdd1", ; + Column12.FontCharSet = 238, ; + Column12.FontName = "Arial", ; + Column12.FontSize = 10, ; + Column12.InputMask = (get_mask(12,gnZ)), ; + Column12.Name = "cCescdd1", ; + Column12.ReadOnly = .T., ; + Column12.Width = 130, ; + Column13.ColumnOrder = 36, ; + Column13.ControlSource = "cescdd2", ; + Column13.FontCharSet = 238, ; + Column13.FontName = "Arial", ; + Column13.FontSize = 10, ; + Column13.InputMask = (get_mask(12,gnZ)), ; + Column13.Name = "cCescdd2", ; + Column13.ReadOnly = .T., ; + Column13.Width = 132, ; + Column14.ColumnOrder = 37, ; + Column14.ControlSource = "wrscdd", ; + Column14.FontCharSet = 238, ; + Column14.FontName = "Arial", ; + Column14.FontSize = 10, ; + Column14.InputMask = (get_mask(12,gnZ)), ; + Column14.Name = "cWrscdd", ; + Column14.ReadOnly = .T., ; + Column14.Width = 101, ; + Column15.ColumnOrder = 40, ; + Column15.ControlSource = "fofdd", ; + Column15.FontCharSet = 238, ; + Column15.FontName = "Arial", ; + Column15.FontSize = 10, ; + Column15.InputMask = (get_mask(12,gnZ)), ; + Column15.Name = "cFofdd", ; + Column15.ReadOnly = .T., ; + Column15.Width = 121, ; + Column16.ColumnOrder = 38, ; + Column16.ControlSource = "fodd", ; + Column16.FontCharSet = 238, ; + Column16.FontName = "Arial", ; + Column16.FontSize = 10, ; + Column16.InputMask = (get_mask(12,gnZ)), ; + Column16.Name = "cFodd", ; + Column16.ReadOnly = .T., ; + Column16.Width = 108, ; + Column17.ColumnOrder = 42, ; + Column17.ControlSource = "wrscfdd", ; + Column17.FontCharSet = 238, ; + Column17.FontName = "Arial", ; + Column17.FontSize = 10, ; + Column17.InputMask = (get_mask(12,gnZ)), ; + Column17.Name = "cWrscfdd", ; + Column17.ReadOnly = .T., ; + Column17.Width = 103, ; + Column18.ColumnOrder = 43, ; + Column18.ControlSource = "wrn", ; + Column18.FontCharSet = 238, ; + Column18.FontName = "Arial", ; + Column18.FontSize = 10, ; + Column18.InputMask = (get_mask(12,gnZ)), ; + Column18.Name = "cWrn", ; + Column18.ReadOnly = .T., ; + Column18.Width = 125, ; + Column19.ColumnOrder = 4, ; + Column19.ControlSource = "serie_act", ; + Column19.FontCharSet = 238, ; + Column19.FontName = "Arial", ; + Column19.FontSize = 10, ; + Column19.Name = "cSerieAct", ; + Column19.ReadOnly = .T., ; + Column19.Width = 62, ; + Column20.ColumnOrder = 29, ; + Column20.ControlSource = "ro5b", ; + Column20.FontCharSet = 238, ; + Column20.FontName = "Arial", ; + Column20.FontSize = 10, ; + Column20.InputMask = (get_mask(12,gnZ)), ; + Column20.Name = "cRo5B", ; + Column20.ReadOnly = .T., ; + Column20.Width = 106, ; + Column21.ColumnOrder = 30, ; + Column21.ControlSource = "ro5t", ; + Column21.FontCharSet = 238, ; + Column21.FontName = "Arial", ; + Column21.FontSize = 10, ; + Column21.InputMask = (get_mask(12,gnZ)), ; + Column21.Name = "cRo5T", ; + Column21.ReadOnly = .T., ; + Column21.Width = 116, ; + Column22.ColumnOrder = 13, ; + Column22.ControlSource = "ro19b", ; + Column22.FontCharSet = 238, ; + Column22.FontName = "Arial", ; + Column22.FontSize = 10, ; + Column22.Format = "rk", ; + Column22.InputMask = (get_mask(12,gnZ)), ; + Column22.Name = "cRo19b", ; + Column22.ReadOnly = .T., ; + Column22.Width = 108, ; + Column23.ColumnOrder = 14, ; + Column23.ControlSource = "ro19t", ; + Column23.FontCharSet = 238, ; + Column23.FontName = "Arial", ; + Column23.FontSize = 10, ; + Column23.Format = "rk", ; + Column23.InputMask = (get_mask(12,gnZ)), ; + Column23.Name = "cRo19t", ; + Column23.ReadOnly = .T., ; + Column23.Width = 109, ; + Column24.ColumnOrder = 44, ; + Column24.ControlSource = "cesvfs", ; + Column24.FontCharSet = 238, ; + Column24.FontName = "Arial", ; + Column24.FontSize = 10, ; + Column24.InputMask = (get_mask(12,gnPA)), ; + Column24.Name = "cCesvfs", ; + Column24.ReadOnly = .T., ; + Column24.Width = 119, ; + Column25.ColumnOrder = 35, ; + Column25.ControlSource = "ceoptr", ; + Column25.FontCharSet = 238, ; + Column25.FontName = "Arial", ; + Column25.FontSize = 10, ; + Column25.InputMask = (get_mask(12,gnZ)), ; + Column25.Name = "cCeoptr", ; + Column25.ReadOnly = .T., ; + Column25.Width = 92, ; + Column26.ColumnOrder = 39, ; + Column26.ControlSource = "cesvdd", ; + Column26.FontCharSet = 238, ; + Column26.FontName = "Arial", ; + Column26.FontSize = 10, ; + Column26.InputMask = (get_mask(12,gnZ)), ; + Column26.Name = "cCesvdd", ; + Column26.ReadOnly = .T., ; + Column26.Width = 116, ; + Column27.ColumnOrder = 41, ; + Column27.ControlSource = "cesvfdd", ; + Column27.FontCharSet = 238, ; + Column27.FontName = "Arial", ; + Column27.FontSize = 10, ; + Column27.InputMask = (get_mask(12,gnZ)), ; + Column27.Name = "Column27", ; + Column27.ReadOnly = .T., ; + Column27.Width = 114, ; + Column28.ColumnOrder = 23, ; + Column28.ControlSource = "RO24NB", ; + Column28.FontCharSet = 238, ; + Column28.FontName = "Arial", ; + Column28.FontSize = 10, ; + Column28.Format = (get_mask(12,gnZ)), ; + Column28.InputMask = (get_mask(12,gnZ)), ; + Column28.Name = "cRO24NB", ; + Column28.ReadOnly = .T., ; + Column28.Width = 117, ; + Column29.ColumnOrder = 24, ; + Column29.ControlSource = "RO24NT", ; + Column29.FontCharSet = 238, ; + Column29.FontName = "Arial", ; + Column29.FontSize = 10, ; + Column29.Format = "RK", ; + Column29.InputMask = (get_mask(12,gnZ)), ; + Column29.Name = "cRO24NT", ; + Column29.ReadOnly = .T., ; + Column29.Width = 131, ; + Column30.ColumnOrder = 27, ; + Column30.ControlSource = "RO9NB", ; + Column30.FontCharSet = 238, ; + Column30.FontName = "Arial", ; + Column30.FontSize = 10, ; + Column30.InputMask = (get_mask(12,gnZ)), ; + Column30.Name = "cRO9NB", ; + Column30.ReadOnly = .T., ; + Column30.Width = 115, ; + Column31.ColumnOrder = 28, ; + Column31.ControlSource = "RO9NT", ; + Column31.FontCharSet = 238, ; + Column31.FontName = "Arial", ; + Column31.FontSize = 10, ; + Column31.InputMask = (get_mask(12,gnZ)), ; + Column31.Name = "cRO9NT", ; + Column31.ReadOnly = .T., ; + Column31.Width = 127, ; + Column32.ColumnOrder = 31, ; + Column32.ControlSource = "RO5NB", ; + Column32.FontCharSet = 238, ; + Column32.FontName = "Arial", ; + Column32.FontSize = 10, ; + Column32.InputMask = (get_mask(12,gnZ)), ; + Column32.Name = "cRO5NB", ; + Column32.ReadOnly = .T., ; + Column32.Width = 129, ; + Column33.ColumnOrder = 32, ; + Column33.ControlSource = "RO5NT", ; + Column33.FontCharSet = 238, ; + Column33.FontName = "Arial", ; + Column33.FontSize = 10, ; + Column33.InputMask = (get_mask(12,gnZ)), ; + Column33.Name = "cRO5NT", ; + Column33.ReadOnly = .T., ; + Column33.Width = 141, ; + Column34.ColumnOrder = 9, ; + Column34.ControlSource = "totftvatax", ; + Column34.FontCharSet = 238, ; + Column34.FontName = "Arial", ; + Column34.FontSize = 10, ; + Column34.InputMask = (get_mask(12,gnZ)), ; + Column34.Name = "cTotftvaTax", ; + Column34.ReadOnly = .T., ; + Column34.Width = 93, ; + Column35.ColumnOrder = 10, ; + Column35.ControlSource = "tottvatax", ; + Column35.FontCharSet = 238, ; + Column35.FontName = "Arial", ; + Column35.FontSize = 10, ; + Column35.InputMask = (get_mask(12,gnZ)), ; + Column35.Name = "cTotTVATax", ; + Column35.ReadOnly = .T., ; + Column35.Width = 99, ; + Column36.ColumnOrder = 11, ; + Column36.ControlSource = "RO24NB+RO20NB+RO19NB+RO9NB+RO5NB", ; + Column36.FontCharSet = 238, ; + Column36.FontName = "Arial", ; + Column36.FontSize = 10, ; + Column36.InputMask = (get_mask(12,gnZ)), ; + Column36.Name = "cRONB", ; + Column36.ReadOnly = .T., ; + Column36.Width = 94, ; + Column37.ColumnOrder = 12, ; + Column37.ControlSource = "RO24NT+RO20NT+RO19NT+RO9NT+RO5NT", ; + Column37.FontCharSet = 238, ; + Column37.FontName = "Arial", ; + Column37.FontSize = 10, ; + Column37.InputMask = (get_mask(12,gnZ)), ; + Column37.Name = "cRONT", ; + Column37.ReadOnly = .T., ; + Column37.Width = 84, ; + Column38.ColumnOrder = 45, ; + Column38.ControlSource = "tva_incasare", ; + Column38.CurrentControl = "Check1", ; + Column38.FontCharSet = 238, ; + Column38.FontName = "Arial", ; + Column38.FontSize = 10, ; + Column38.Name = "cTVAIncasare", ; + Column38.ReadOnly = .T., ; + Column38.Sparse = .F., ; + Column38.Width = 29, ; + Column39.ColumnOrder = 48, ; + Column39.ControlSource = "sucursala", ; + Column39.FontCharSet = 238, ; + Column39.FontName = "Arial", ; + Column39.FontSize = 10, ; + Column39.Name = "cSucursala", ; + Column39.ReadOnly = .T., ; + Column39.Width = 193, ; + Column40.ColumnOrder = 46, ; + Column40.ControlSource = "actcv.ales", ; + Column40.CurrentControl = "_checkbox1", ; + Column40.FontCharSet = 238, ; + Column40.FontName = "Arial", ; + Column40.FontSize = 10, ; + Column40.Name = "cAles", ; + Column40.ReadOnly = .F., ; + Column40.Sparse = .F., ; + Column40.Width = 30, ; + Column41.ColumnOrder = 47, ; + Column41.ControlSource = "cont", ; + Column41.FontCharSet = 238, ; + Column41.FontName = "Arial", ; + Column41.FontSize = 10, ; + Column41.Name = "cCont", ; + Column41.ReadOnly = .T., ; + Column41.Width = 56, ; + Column42.ColumnOrder = 49, ; + Column42.ControlSource = "soldf", ; + Column42.FontCharSet = 238, ; + Column42.FontName = "Arial", ; + Column42.FontSize = 10, ; + Column42.InputMask = (get_mask(12,gnZ)), ; + Column42.Name = "Column42", ; + Column42.ReadOnly = .T., ; + Column43.ColumnOrder = 50, ; + Column43.ControlSource = "RO24NB+RO20NB+RO19NB+RO9NB+RO5NB+RO24NT+RO20NT+RO19NT+RO9NT+RO5NT", ; + Column43.FontCharSet = 238, ; + Column43.FontName = "Arial", ; + Column43.FontSize = 10, ; + Column43.InputMask = (get_mask(12,gnZ)), ; + Column43.Name = "Column43", ; + Column43.ReadOnly = .T., ; + Column44.ColumnOrder = 51, ; + Column44.ControlSource = "solddif", ; + Column44.FontCharSet = 238, ; + Column44.FontName = "Arial", ; + Column44.FontSize = 10, ; + Column44.InputMask = (get_mask(12,gnZ)), ; + Column44.Name = "Column44", ; + Column44.ReadOnly = .T., ; + Column44.Width = 104, ; + Column45.ColumnOrder = 18, ; + Column45.ControlSource = "ro20b", ; + Column45.FontCharSet = 238, ; + Column45.FontName = "Arial", ; + Column45.FontSize = 10, ; + Column45.Format = "RK", ; + Column45.InputMask = (get_mask(12,gnZ)), ; + Column45.Name = "cRO20B", ; + Column45.ReadOnly = .T., ; + Column45.Width = 106, ; + Column46.ColumnOrder = 19, ; + Column46.ControlSource = "ro20t", ; + Column46.FontCharSet = 238, ; + Column46.FontName = "Arial", ; + Column46.FontSize = 10, ; + Column46.Format = "RK", ; + Column46.InputMask = (get_mask(12,gnZ)), ; + Column46.Name = "cRO20T", ; + Column46.ReadOnly = .T., ; + Column46.Width = 111, ; + Column47.ColumnOrder = 20, ; + Column47.ControlSource = "ro20nb", ; + Column47.FontCharSet = 238, ; + Column47.FontName = "Arial", ; + Column47.FontSize = 10, ; + Column47.Format = "RK", ; + Column47.InputMask = (get_mask(12,gnZ)), ; + Column47.Name = "cRO20NB", ; + Column47.ReadOnly = .T., ; + Column47.Width = 118, ; + Column48.ColumnOrder = 17, ; + Column48.ControlSource = "ro20nt", ; + Column48.FontCharSet = 238, ; + Column48.FontName = "Arial", ; + Column48.FontSize = 10, ; + Column48.Format = "RK", ; + Column48.InputMask = (get_mask(12,gnZ)), ; + Column48.Name = "cRO20NT", ; + Column48.ReadOnly = .T., ; + Column48.Width = 127, ; + Column49.ColumnOrder = 3, ; + Column49.ControlSource = "dataireg", ; + Column49.FontCharSet = 238, ; + Column49.FontName = "Arial", ; + Column49.FontSize = 10, ; + Column49.Name = "cDataIreg", ; + Column49.ReadOnly = .T., ; + Column49.Width = 98, ; + Column50.ColumnOrder = 15, ; + Column50.ControlSource = "RO19NB", ; + Column50.FontCharSet = 238, ; + Column50.FontName = "Arial", ; + Column50.FontSize = 10, ; + Column50.Format = "R", ; + Column50.InputMask = (get_mask(12,gnZ)), ; + Column50.Name = "cRO19NB", ; + Column50.ReadOnly = .T., ; + Column50.Width = 118, ; + Column51.ColumnOrder = 16, ; + Column51.ControlSource = "RO19NT", ; + Column51.FontCharSet = 238, ; + Column51.FontName = "Arial", ; + Column51.FontSize = 10, ; + Column51.Format = "R", ; + Column51.InputMask = (get_mask(12,gnZ)), ; + Column51.Name = "cRO19NT", ; + Column51.ReadOnly = .T., ; + Column51.Width = 119, ; + Column52.ControlSource = "incasat_tot", ; + Column52.FontCharSet = 238, ; + Column52.FontName = "Arial", ; + Column52.FontSize = 10, ; + Column52.InputMask = (get_mask(12,gnZ)), ; + Column52.Name = "Column52", ; + Column52.ReadOnly = .T., ; + Column53.ControlSource = "incasat_exigibil", ; + Column53.FontCharSet = 238, ; + Column53.FontName = "Arial", ; + Column53.FontSize = 10, ; + Column53.InputMask = (get_mask(12,gnZ)), ; + Column53.Name = "Column53", ; + Column53.ReadOnly = .T., ; + Column54.ControlSource = "diferenta_incasare_tva", ; + Column54.FontCharSet = 238, ; + Column54.FontName = "Arial", ; + Column54.FontSize = 10, ; + Column54.InputMask = (get_mask(12,gnZ)), ; + Column54.Name = "Column54", ; + Column54.ReadOnly = .T. + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_grdbase1.cAles._checkbox1' AS _checkbox WITH ; + Alignment = 2, ; + Caption = "", ; + ControlSource = "ales", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Left = 11, ; + Name = "_checkbox1", ; + ReadOnly = .F., ; + Top = 133 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT '_grdbase1.cAles.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Ales", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cAles.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cCeoptr.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Livr. intracom. bunuri op. triunghiulare", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cCeoptr.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cCescdd1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Livr. intracom. scutite cu drept de ded. conf art 143, alin 2 (a si d)", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cCescdd1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cCescdd2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Livr. intracom. scutite cu drept de ded. conf art 143, alin 2 (b si c)", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cCescdd2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cCesvdd.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Serv. intracom. cu drept de deducere", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cCesvdd.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cCesvfs.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Serv. intracom. fara scutire in statul membru", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cCesvfs.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cCod_fiscal.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "C.I.F. / C.N.P.", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cCod_fiscal.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cCont.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cCont.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cDataact.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data act", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cDataact.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cDataIreg.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data inregistrare", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cDataIreg.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cDenumire.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nume", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cDenumire.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cFdoc.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Fel doc.", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cFdoc.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cFodd.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Locul livr./prest. este in afara RO cu drept deducere", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cFodd.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cFofdd.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Locul livr./prest. este in afara RO fara drept deducere", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cFofdd.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cNract.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. act", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cNract.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column27.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Serv. intracom. fara drept de deducere", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column27.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column42.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sold factura", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column42.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column43.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sold Neexigibil", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column43.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column44.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Diferenta sold (sold fact. - sold neex.)", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column44.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column52.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Incasat in luna", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column52.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column53.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Exigibilizat (Baza+TVA)", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column53.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column54.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Diferenta incasat - exigibilizat", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column54.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRo19b.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxabile la intern =Baza 19%=", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRo19b.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRO19NB.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Neexigibile la intern =Baza 19%=", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRO19NB.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRO19NT.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Neexigibile la intern =TVA 19%=", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRO19NT.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRo19t.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxabile la intern =TVA 19%=", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRo19t.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRO20B.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxabile la intern =Baza 20%=", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRO20B.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRO20NB.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Neexigibile la intern =Baza 20%=", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRO20NB.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRO20NT.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Neexigibile la intern =TVA 20%=", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRO20NT.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRO20T.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxabile la intern =TVA 20%=", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRO20T.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRo24b.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxabile la intern =Baza 24%=", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRo24b.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRO24NB.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Neexigibile la intern =Baza 24%=", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRO24NB.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRO24NT.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Neexigibile la intern =TVA 24%=", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRO24NT.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRo24t.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxabile la intern =TVA 24%=", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRo24t.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRo5B.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxabile la intern =Baza 5%=", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRo5B.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRO5NB.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Neexigibile la intern =Baza 5%=", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRO5NB.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRO5NT.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Neexigibile la intern =TVA 5%=", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRO5NT.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRo5T.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxabile la intern =TVA 5%=", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRo5T.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRo9b.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxabile la intern =Baza 9%=", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRo9b.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRO9NB.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Neexigibile la intern =Baza 9%=", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRO9NB.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRO9NT.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Neexigibile la intern =TVA 9%=", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRO9NT.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRo9t.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxabile la intern =TVA 9%=", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRo9t.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRONB.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Neexigibil =Baza=", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRONB.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRONT.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Neexigibil =TVA=", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRONT.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRoti.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxabile la intern - Taxare inversa", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRoti.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cSerieAct.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Serie act", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cSerieAct.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cSucursala.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sucursala", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cSucursala.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cTotctva.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Total cu TVA", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cTotctva.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cTotftvaTax.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Total fara TVA la intern", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cTotftvaTax.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cTotTVATax.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Total TVA la intern", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cTotTVATax.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cTVAIncasare.Check1' AS checkbox WITH ; + Alignment = 2, ; + Caption = "", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Height = 17, ; + Left = 15, ; + Name = "Check1", ; + ReadOnly = .T., ; + Top = 123, ; + Width = 60 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT '_grdbase1.cTVAIncasare.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA Inc.", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cTVAIncasare.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cWrn.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Oper. neimpozabile /neincluse in baza de impozitare", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cWrn.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cWrscdd.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Alte livr. scutite cu drept de deducere", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cWrscdd.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cWrscfdd.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Scutite fara drept de deducere", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cWrscfdd.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdfooter1' AS _grdfooter WITH ; + Anchor = 14, ; + ccolwithlabel = cfdoc, ; + Comment = "*:OnResize=sb", ; + csourcegrid = _grdbase1, ; + csumcolumns = cTotctva,cTotfTvaTax,cTotTvaTax,cRONB,cRONT,cRo20b,cRo20t,cRo20Nb,cRo20Nt,cRo24b,cRo24t,cRo24Nb,cRo24Nt,cRo19b,cRo19t,cRo19Nb,cRo19Nt,cRo9b,cRo9t,cRo9Nb,cRo9Nt,cRo5b,cRo5t,cRo5Nb,cRo5Nt,cRoti,cCescdd1,cCescdd2,cWrscdd,cFodd,cFofdd,cWrscfdd,cWrn, ; + ctotallabelexpression = 'TOTAL', ; + Height = 25, ; + Left = 11, ; + Name = "_grdfooter1", ; + TabIndex = 18, ; + Top = 468, ; + Width = 768, ; + ZOrderSet = 3 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'But_excel1' AS but_excel WITH ; + Anchor = 8, ; + Left = 703, ; + Name = "But_excel1", ; + TabIndex = 12, ; + Top = 1, ; + ZOrderSet = 6 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_listare1' AS but_listare WITH ; + Anchor = 8, ; + Left = 734, ; + Name = "But_listare1", ; + TabIndex = 11, ; + Top = 1, ; + Visible = .T., ; + ZOrderSet = 7 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_reface1' AS but_reface WITH ; + Anchor = 8, ; + Comment = "*:OnResize=RT", ; + Left = 674, ; + Name = "But_reface1", ; + TabIndex = 13, ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_reset_criterii1' AS but_reset_criterii WITH ; + Anchor = 9, ; + Left = 584, ; + Name = "But_reset_criterii1", ; + Top = 1, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\ocriterii.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_start_criterii1' AS but_start_criterii WITH ; + Anchor = 9, ; + Left = 614, ; + Name = "But_start_criterii1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\ocriterii.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_verifica1' AS but_verifica WITH ; + Anchor = 8, ; + Left = 645, ; + Name = "But_verifica1", ; + TabIndex = 14, ; + ToolTipText = "Verificare coduri fiscale", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'cbo_tip_jurnal_vanz' AS _combobox WITH ; + Alignment = 0, ; + Anchor = 3, ; + FontCharSet = 238, ; + FontName = "Segoe UI", ; + FontSize = 10, ; + Height = 24, ; + Left = 12, ; + Name = "cbo_tip_jurnal_vanz", ; + RowSource = "Complet,Livrari taxabile la intern,Livrari cu taxare inversa,Livrari scutite cu drept de deducere,Livrari scutite fara drept de deducere,Livrari in afara Romaniei,Operatiuni neimpozabile", ; + RowSourceType = 1, ; + TabIndex = 15, ; + ToolTipText = 'Apasati "Cauta" dupa ce alegeti un tip de vizualizare', ; + Top = 41, ; + Width = 254 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" /> + + ADD OBJECT 'cmdTVAIncasare' AS cmd_executa WITH ; + Anchor = 8, ; + AutoSize = .T., ; + Caption = "\ + + ADD OBJECT 'Gridextra1' AS gridextra WITH ; + allowgridpreferences = .F., ; + gridexpression = Thisform._grdbase1, ; + Height = 17, ; + Left = 329, ; + Name = "Gridextra1", ; + Top = 41, ; + Width = 19 + *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> + + ADD OBJECT 'Lb_shortcuts1' AS lb_shortcuts WITH ; + Caption = "CTRL+F = Terminare; ESC = Renuntare; CTRL+Q = Cautare; CTRL+T = Resetare", ; + Left = 6, ; + Name = "Lb_shortcuts1", ; + Top = 16 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'oMenuShortcut' AS menulib WITH ; + Left = 216, ; + Name = "oMenuShortcut", ; + TabIndex = 17, ; + Top = 7, ; + ZOrderSet = 10 + *< END OBJECT: ClassLib="..\comun\clase\utility.vcx" BaseClass="container" /> + + PROCEDURE actualizeaza_grid1 + Lparameters lcFiltru + If Empty(lcFiltru) + lcFiltru = povanz.ca_baza1.cfiltru + Endif + Thisform.MousePointer= 11 + Thisform.LockScreen=.T. + + save_grid_tag(Thisform._grdbase1) + povanz.ca_baza1.cfiltru=lcFiltru + povanz.ca_baza1.afisare() + restore_grid_tag(Thisform._grdbase1) + Thisform._grdfooter1.calcTotal() + + Thisform.LockScreen=.F. + Thisform.MousePointer= 0 + + ENDPROC + + PROCEDURE butdrept + Local loDate As "empty" + Local lcCodFiscal, lcDenumire, lcOptiuniMeniuAnte, lnOptiune, lnRaspuns, loPartener + lcOptiuniMeniuAnte = "\ plata din Registrul Jurnal) + + *!* 25.09.2013 + *!* marius.mutu + *!* FILTRU DIFERENTA SOLD FACTURA - SOLD NEEXIGIBIL (BAZA + TVA) PENTRU FACTURILE TVA INCASARE + + *!* 16.12.2015 + *!* marius.mutu + *!* cota tva 20% + + * 10.01.2022 + * CORECTAT FILTRU DIFERENTE INCASAT - TVA EXIGIBIL PENTRU FACTURILE TVA INCASARE: INCLUSIV TVA 19% + * CORECTAT FILTRU DIFERENTA SOLD FACTURA - SOLD NEEXIGIBIL (BAZA + TVA) PENTRU FACTURILE TVA INCASARE: FARA SOLD 472 + + Local lcFiltru + lcFiltru = [luna=]+Alltrim(Str(gnLuna))+[ and an=]+Alltrim(Str(gnAn))+ gcCondSucursala + + *!* 23.07.2010 + && DACA FILTRUL NU CONTINE PERIOADA, SELECTEZ DOAR INREGISTRARILE DIN LUNA CURENTA + If !'PERIOADA'$Upper(Thisform.filtru_pretty_ro_full) + lcFiltru = [LUNA=]+Alltrim(Str(gnLuna))+[ AND AN=]+Alltrim(Str(gnAn)) + gcCondSucursala + ELSE + lcFiltru = SUBSTR(gcCondSucursala, 6) + Endif + *!* 23.07.2010 ^ + + lnOptiune = Thisform.cbo_tip_jurnal_vanz.ListItemId + + + If Len(Thisform.filtru_pretty)>0 + filtrutext=Thisform.filtru_pretty + If At("AND",filtrutext)=1 + filtrutext=Right(filtrutext,Len(filtrutext)-4) + Endif + + lcFiltru = lcFiltru + IIF(!EMPTY(m.lcFiltru), " and ", "") + Alltrim(filtrutext) + Endif + + Do Case + Case lnOptiune = 1 + Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL VANZARI] + Case lnOptiune = 2 && Livrari taxabile intern + lcFiltru = lcFiltru+ [ and (ro24b<>0 OR ro24t<>0 OR ro20b<>0 OR ro20t<>0 OR ro19b<>0 OR ro19t<>0 OR ro9b<>0 OR ro9t<>0 OR ro5b<>0 OR ro5t<>0 or ] + ; + [ro24nb<>0 OR ro24nt<>0 or ro20nb<>0 OR ro20nt<>0 or ro19nb<>0 OR ro19nt<>0 OR ro9nb<>0 OR ro9nt<>0 OR ro5nb<>0 OR ro5nt<>0)] + Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL VANZARI - TAXABILE INTERN] + Case lnOptiune = 3 && Livrari cu taxare inversa + lcFiltru = lcFiltru + [ and (roti<>0)] + Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL VANZARI - TAXARE INVERSA] + Case lnOptiune = 4 && Livrari scutite cu drept de deducere + lcFiltru = lcFiltru + [ and (cescdd1<>0 or cescdd2<>0 or wrscdd<>0 or ceoptr<>0)] + Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL VANZARI - SCUTITE CU DREPT DE DEDUCERE] + Case lnOptiune = 5 && Livrari scutite fara drept de deducere + lcFiltru = lcFiltru + [ and (wrscfdd<>0)] + Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL VANZARI - SCUTITE FARA DREPT DE DEDUCERE] + Case lnOptiune = 6 && Livrari in afara Romaniei + lcFiltru = lcFiltru + [ and (fofdd<>0 or fodd<>0 or cesvdd<>0 or cesvfdd<>0 or cesvfs<>0)] + Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL VANZARI - IN AFARA ROMANIEI] + Case lnOptiune = 7 && Operatiuni neimpozabile + lcFiltru = lcFiltru + [ and (wrn<>0)] + Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL VANZARI - OPERATIUNI NEIMPOZABILE] + Endcase + + If (This.filtru_pretty#"none") + *** daca sunt inainte de 2013 sau vreau sa vad facturile TVA Incasare cu diferenta sold inregistrari parteneri fata de sold neexigibil + *** pentru exibilizare fortata, arat facturile defalcate dupa id_fact (vjc2010), altfel arat facturile cumulate dupa nract, dataact + if(m.gnAn < 2013 or 'DIFERENTA SOLD'$Upper(Thisform.filtru_pretty_ro_full)) + povanz.ca_baza1.SELECTCMD = STRTRAN(povanz.ca_baza1.SELECTCMD, [vjv2013], [vjv2010],1,1,1) + povanz.ca_baza1.cSelect = STRTRAN(povanz.ca_baza1.cSelect, [vjv2013], [vjv2010],1,1,1) + ELSE + povanz.ca_baza1.SELECTCMD = STRTRAN(povanz.ca_baza1.SELECTCMD, [vjv2010], [vjv2013],1,1,1) + povanz.ca_baza1.cSelect = STRTRAN(povanz.ca_baza1.cSelect, [vjv2010], [vjv2013],1,1,1) + ENDIF + + Thisform.actualizeaza_grid1(lcFiltru) + If Reccount('actcv')=0 + aMESSAGEBOX("Cautarea nu a intors rezultate!",64,"Info cautare") + endif + + *** FILTRU DIFERENTE INCASAT - TVA EXIGIBIL PENTRU FACTURILE TVA INCASARE + If 'TVA INCASARE'$Upper(Thisform.filtru_pretty_ro_full) + + TEXT to lcSql noshow textmerge + select an, + luna, + min(id_fact) as id_fact, + dataact, + nract, + serie_act, + id_part, + id_fdoc, + id_sucursala, + sum(totctva) as totctva, + sum(nvl(total_incasat, 0)) as incasat_tot, + sum(nvl(tva_exigibil, 0)) as incasat_exigibil, + sum(nvl(total_incasat, 0) - tva_exigibil) as diferenta_incasare_tva + from (select a.an, + a.luna, + a.id_fact, + a.dataact, + a.nract, + a.serie_act, + a.id_fdoc, + a.id_sucursala, + a.id_part, + a.totctva, + nvl(b.total_incasat, 0) as total_incasat, + (a.ro24b + a.ro24t + a.ro20b + a.ro20t + a.ro19b + a.ro19t + a.ro9b + a.ro9t + a.ro5b + a.ro5t) as tva_exigibil + from (select an, + luna, + id_fact, + id_sucursala, + id_part, + id_fdoc, + nract, + dataact, + serie_act, + totctva, + ro24b, + ro24t, + ro20b, + ro20t, + ro19b, + ro19t, + ro9b, + ro9t, + ro5b, + ro5t + from jv2007 jc + where an = <> + and luna = <> + and (ro24nb <> 0 + or ro20nb <> 0 + or ro19nb <> 0 + or ro9nb <> 0 + or ro5nb <> 0) <>) a + left join (select an, + luna, + id_sucursala, + (case + when id_jtva_coloana in (2, 4, 14, 16, 28) then + id_fact + else + id_factc + end) as id_fact, + sum(case + when id_jtva_coloana in (2, 4, 14, 16, 28) then + suma + else + 0 + end) as ex, + sum(case + when id_jtva_coloana in (2, 4, 14, 16, 28) then + 0 + else + suma + end) as total_incasat + from act + where sters = 0 + and an = <> + and luna = <> + <> + and (id_jtva_coloana in (2, 4, 14, 16, 28) or + id_factc <> 0) + group by an, + luna, + id_sucursala, + (case + when id_jtva_coloana in + (2, 4, 14, 16, 28) then + id_fact + else + id_factc + end)) b + on a.id_fact = b.id_fact + and a.an = b.an + and a.luna = b.luna + and nvl(a.id_sucursala, 0) = nvl(b.id_sucursala, 0) + where nvl(b.total_incasat, 0.00) <> 0 and nvl(b.total_incasat, 0.00) - + (a.ro24b + a.ro24t + a.ro20b + a.ro19b + a.ro19t + a.ro20t + a.ro9b + a.ro9t + a.ro5b + a.ro5t) <> 0) + group by an, + luna, + dataact, + nract, + serie_act, + id_part, + id_fdoc, + id_sucursala + + ENDTEXT + + llSucces = goExecutor.oExecuta(m.lcSql, "crsDiferenteTVA") + If m.llSucces + Select crsDiferenteTVA + Scan + Scatter Name loDiferenta + With loDiferenta + Select actcv + Locate For nract = .nract And dataact = .dataact And id_part = .id_part And Nvl(serie_act,'') = Nvl(.serie_act,'') And Nvl(id_sucursala,0) = Nvl(.id_sucursala,0) And Nvl(id_fdoc,0) = Nvl(.id_fdoc, 0) + If Found() + Replace diferenta_incasare_tva With .diferenta_incasare_tva, incasat_tot WITH .incasat_tot, incasat_exigibil WITH .incasat_exigibil + Endif + Endwith + Endscan && crsDiferenteTVA + + Select actcv + Set Filter To Nvl(diferenta_incasare_tva, 0) <> 0 + go top in actcv + thisform._grdbase1.Refresh() + THISFORM._grdfooter1.calcTotal + Endif && m.llSucces + Endif && 'TVA INCASARE' + + *** FILTRU DIFERENTA SOLD FACTURA - SOLD NEEXIGIBIL (BAZA + TVA) PENTRU FACTURILE TVA INCASARE + If 'DIFERENTA SOLD'$Upper(Thisform.filtru_pretty_ro_full) + TEXT to lcSql noshow textmerge + select jv.id_fact, + ip.cont, + nvl(ip.sold, 0) as soldf, + (ro24nb + ro24nt + ro20nb + ro20nt + ro19nb + ro19nt + ro9nb + ro9nt + ro5nb + ro5nt) as soldn, + nvl(ip.sold, 0) - (ro24nb + ro24nt + ro20nb + ro20nt + ro19nb + ro19nt + ro9nb + ro9nt + ro5nb + ro5nt) as solddif, + jv.denumire, + jv.nract, + jv.serie_act, + jv.id_sucursala, + jv.id_fdoc, + jv.id_part, + jv.dataact, + jv.totctva, + jv.ro24nb, + jv.ro24nt, + jv.ro20nb, + jv.ro20nt, + jv.ro19nb, + jv.ro19nt, + jv.ro9nb, + jv.ro9nt, + jv.ro5nb, + jv.ro5nt + from vjv2010 jv + left join (select id_fact, + cont, + sum((precdeb + debit) - (preccred + credit)) as sold + from vireg_parteneri + where an = <> + and luna = <> + and SUBSTR(cont,1,1) = '4' and cont not in ('419', '472') + and id_fact in + (select distinct id_fact + from vjv2010 + where an = <> + and luna = <> + and (ro24nt <> 0 or ro20nt <> 0 or ro19nt <> 0 or ro9nt <> 0 or ro5nt <> 0) + and tva_incasare = 1) + group by id_fact, cont) ip + on jv.id_fact = ip.id_fact + where jv.an = <> + and jv.luna = <> + and jv.tva_incasare = 1 + and (jv.ro24nt <> 0 or jv.ro20nt <> 0 or jv.ro19nt <> 0 or jv.ro9nt <> 0 or jv.ro5nt <> 0) + and nvl(ip.sold, 0) - (ro24nb + ro24nt + ro20nb + ro20nt + ro19nb + ro19nt + ro9nb + ro9nt + ro5nb + ro5nt) <> 0 + ENDTEXT + + llSucces = goExecutor.oExecuta(m.lcSql, "crsSoldDif") + If m.llSucces + Select crsSoldDif + Scan + Scatter Name loDiferenta + With loDiferenta + Select actcv + Locate For id_fact = .id_fact && nract = .nract And dataact = .dataact And id_part = .id_part And Nvl(serie_act,'') = Nvl(.serie_act,'') And Nvl(id_sucursala,0) = Nvl(.id_sucursala,0) And Nvl(id_fdoc,0) = Nvl(.id_fdoc, 0) + If Found() + Replace cont With .cont, soldf WITH .soldf, solddif WITH .solddif + Endif + Endwith + Endscan && crsDiferenteTVA + + Select actcv + Set Filter To Nvl(solddif, 0) <> 0 + Go Top In actcv + Thisform._grdbase1.Refresh() + Thisform._grdfooter1.calcTotal + SELECT actcv + Endif && m.llSucces + Endif && DIFERENTA SOLD + + endif && (This.filtru_pretty#"none") + + ENDPROC + + PROCEDURE do_excel + SET STEP ON + do export_excel_grid WITH thisform._grdbase1,"dataact, nract", "", this.lb_titlu_alb_b121.caption IN proceduri_excel.prg + + return + + If Used('actcv') And Reccount('actcv')>0 + Local i,xlsheet,XLApp,tmpsheet + exista_excel=.T. + p1='' + p2='' + With Thisform._grdbase1 + For nCol=1 To .ColumnCount + nColumn=.Columns(nCol).ColumnOrder + p1=p1+.Columns(nCol).ControlSource+',' + p2=p2+Strtran(.Columns(nCol).header1.Caption,Chr(32),'_')+',' + Endfor + p1=Substr(p1,1,Len(p1)-1) + p2=Substr(p2,1,Len(p2)-1) + Endwith + On Error Do exportare With thisform._grdbase1.RecordSource,p1,p2 + tmpsheet = Getobject('','excel.sheet') + On Error + + If exista_excel + Wait Window "Se transmit datele catre Excel..." Nowait + + XLApp = tmpsheet.Application + XLApp.workbooks.Close() + XLApp.workbooks.Add() + poExcel = XLApp.ActiveSheet + + Go Top + poExcel.Cells(1,1).Font.Size=16 + poExcel.Cells(1,1).Font.Bold=.T. + poExcel.Cells(1,1)=Thisform.lb_titlu_alb_b121.Caption+" Luna "+Alltrim(Str(gnLuna))+"/"+Alltrim(Str(gnAn)) + nRows = 3 + With Thisform._grdbase1 + For nCol = 1 To .ColumnCount + nColumn = .Columns(nCol).ColumnOrder + poExcel.Columns(nColumn).ColumnWidth = .Columns(nCol).Width/7.5 + poExcel.Cells(nRows,nColumn) = .Columns(nCol).header1.Caption + poExcel.Cells(nRows,nColumn).Font.Bold = .T. + poExcel.Cells(nRows,nColumn).Interior.ColorIndex = 16 + Endfor + Scan + nRows = nRows + 1 + For nCol = 1 To .ColumnCount + nColumn = .Columns(nCol).ColumnOrder + If At('CHECK',Upper(.Columns(nCol).CurrentControl))>0 + poExcel.Cells(nRows,nColumn)=Iif(Eval(.Columns(nCol).ControlSource)==0,'NU','DA') + Else + poExcel.Cells(nRows,nColumn) = Eval(.Columns(nCol).ControlSource) + Endif + Endfor + Endscan + Endwith + + XLApp.Visible = .T. + Endif + Endif + + + ENDPROC + + PROCEDURE do_listare + Private pctitlu, pcSubtitlu, pcdataora + lnTipJurnal = Thisform.cbo_tip_jurnal_vanz.ListItemId - 1 + + x=xmenu("Registru Vanzari;\-;Recapitulatie - Registru Vanzari;\-;Registru Vanzari restrans") + + pctitlu = [JURNAL DE VANZARI ] + Alltrim(Substr(Thisform.lb_tITLU_ALB_B121.Caption,At([-],Thisform.lb_tITLU_ALB_B121.Caption,1))) + Store "" To pcSubtitlu + If This.filtru_traducere()#"" + lctext=" si "+This.filtru_traducere() + Else + lctext="" + Endif + + pcSubtitlu = This.filtru_pretty_ro + lctext + + + *!* pcdataora = get_ora(2) + + Do Case + Case lnTipJurnal = 1 + pcSubtitlu = "LIVRARI TAXABILE LA INTERN" + Case lnTipJurnal = 2 + pcSubtitlu = "LIVRARI CU TAXARE INVERSA" + Case lnTipJurnal = 3 + pcSubtitlu = "LIVRARI SCUTITE CU DREPT DE DEDUCERE" + Case lnTipJurnal = 4 + pcSubtitlu = "LIVRARI SCUTITE FARA DREPT DE DEDUCERE" + Case lnTipJurnal = 5 + pcSubtitlu = "LIVRARI IN AFARA ROMANIEI" + Case lnTipJurnal = 6 + pcSubtitlu = "OPERATIUNI NEIMPOZABILE" + Endcase + + If x = 1 + && REGISTRU TVA LUNA CURENTA + Select 0 As tip, * ; + FROM actcv ; + INTO Cursor cListRC ; + ORDER By dataact, nract ; + READWRITE + Endif + + && REGISTRE TVA RECAPITULATIE + If x = 3 + && REGISTRU TVA LUNA CURENTA + Select 0 As tip, * ; + FROM actcv ; + INTO Cursor cListRC ; + ORDER By dataact, nract ; + READWRITE + + Private pnAn, pnLuna + pnAn = 0 + pnLuna = 0 + locaut = Createobject('frm_caut_anluna') + locaut.Show(1) + If buton = 2 + Return + Endif + + If lnTipJurnal <> 0 + Do Case + Case lnTipJurnal = 1 && Livrari taxabile intern + lcWhere = "(ro24b<>0 OR ro24t<>0 OR ro20b<>0 OR ro20t<>0 OR ro19b<>0 or ro19t<>0 OR ro9b<>0 OR ro9t<>0 OR ro5b<>0 OR ro5t<>0 )" + Case lnTipJurnal = 2 && Livrari cu taxare inversa + lcWhere = "(roti<>0)" + Case lnTipJurnal = 3 && Livrari scutite cu drept de deducere + lcWhere = "(cescdd1<>0 or cescdd2<>0 or wrscdd<>0 or ceoptr<>0)" + Case lnTipJurnal = 4 && Livrari scutite fara drept de deducere + lcWhere = "(wrscfdd<>0)" + Case lnTipJurnal = 5 && Livrari in afara Romaniei + lcWhere = "(fofdd<>0 or fodd<>0 or cesvdd<>0 or cesvfdd<>0 or cesvfs<>0)" + Case lnTipJurnal = 6 && Operatiuni neimpozabile + lcWhere = "(wrn<>0)" + Endcase + Else + lcWhere = '' + Endif + + + lcSelect = [select 1 as tip, an, luna, to_date('','ddmmyyyy') as dataact, 000000000 as nract,] + ; + [ (select numeluna from lunilean where nrluna = luna) as denumire,' ' as cod_fiscal, ] +; + [SUM(TOTCTVA) AS TOTCTVA, ] + ; + [SUM(CESCDD1) AS CESCDD1, SUM(CESCDD2) AS CESCDD2,SUM(CEOPTR) as CEOPTR, ] + ; + [SUM(FODD) AS FODD, SUM(FOFDD) AS FOFDD,SUM(CESVDD) as CESVDD, SUM(CESVFDD) AS CESVFDD,SUM(CESVFS) AS CESVFS,] + ; + [SUM(ROTI) AS ROTI, ] + ; + [SUM(RO24B) AS RO24B, SUM(RO24T) AS RO24T, SUM(RO20B) AS RO20B, SUM(RO20T) AS RO20T, SUM(RO19B) AS RO19B, SUM(RO19T) AS RO19T, SUM(RO9B) AS RO9B, SUM(RO9T) AS RO9T, ] + ; + [SUM(RO5B) AS RO5B, SUM(RO5T) AS RO5T,]+; + [SUM(WRN) AS WRN, SUM(WRSCDD) AS WRSCDD, SUM(WRSCFDD) AS WRSCFDD ] + ; + [ FROM VJV2010 ] + ; + [ WHERE (an*12+luna between ?pnAn*12 + ?pnLuna and ?gnAn*12 + ?gnLuna) ] + Iif(!Empty(lcWhere), " and " + lcWhere, "") + ; + gcCondSucursala + ; + [ GROUP BY an, luna ] + ; + [ ORDER BY an, luna ] + + lnSucces = goExecutor.oExecute(lcSelect, "crsTotal") + If lnSucces < 0 + amessagebox(goExecutor.cEroare,0+16,"Eroare") + Else + Select cListRC + Append From Dbf('crsTotal') + Use In crsTotal + Endif + Endif && x = 3 + + If x = 5 + x = raport_regvanz2007_restrans(x,[actcv]) + Endif + + If Inlist(x,1,3,5) + *!* If Reccount('cListRC') = 0 + *!* amessagebox("Nu exista inregistrari pentru listare!",48,"Atentie") + *!* Else + *!* Thisform.AlwaysOnTop=.F. + *!* Select cListRC + *!* Report Format registru_vanzari_jtva2007 To Printer Prompt Preview + *!* Thisform.AlwaysOnTop=.T. + *!* Endif + Thisform.AlwaysOnTop = .F. + goExport.export2frx([cListRC],[registru_vanzari_jtva2010]) + + *!* registru vanzari 5% + Select cListRC + Set Filter To ro19b<>0 Or ro19t<>0 OR ro5b<>0 Or ro5t<>0 OR cesvfs <> 0 && modificare v 2.0.128 : am adaugat cesvfs + GO TOP + If !EMPTY(denumire) + goExport.export2frx([cListRC],[registru_vanzari_jtva2010_2]) + Endif + *!* registru vanzari 5% ^ + Thisform.AlwaysOnTop = .T. + Endif + + If Used('cListRC') + Use In cListRC + Endif + + + ENDPROC + + PROCEDURE do_listare2013 + *!* 14.03.2013 + *!* marius.mutu + *!* corectare mai multe facturi cu acelasi cod (nota fara predefinire) - nu aparea nume, nract, dataact in listare + + *!* 23.09.2013 + *!* marius.mutu + *!* Se includ si facturile fara TVA INCASARE cu valoare 0 + + *!* 17.10.2013 + *!* marius.mutu + *!* la facturile fara TVA Incasare cu valoare 0, aparea o linie goala + + Private pctitlu, pcSubtitlu, pcdataora + Local lcNumeAct, lcSelect, lcSql, lcWhere, lctext, lddata1, lddata2, llSucces, lnCod, lnDiferenta + Local lnIdFact, lnIncasat3, lnMeniu, lnNrCrt, lnNrCrtF, lnNrc, lnPerioada, lnSucces, lnTip, lcSerieAct + Local lnTipJurnal + *:Global pcPerioada, pnAn, pnLuna + + lnTipJurnal = Thisform.cbo_tip_jurnal_vanz.ListItemId - 1 + + pctitlu = [JURNAL DE VANZARI ] + Alltrim(Substr(Thisform.lb_tITLU_ALB_B121.Caption,At([-],Thisform.lb_tITLU_ALB_B121.Caption,1))) + pcSubtitlu = "" + If This.filtru_traducere()#"" + lctext=" si "+This.filtru_traducere() + Else + lctext="" + Endif + + pcSubtitlu = This.filtru_pretty_ro + lctext + pcPerioada = Padl(m.gnLuna,2,'0') + '/' + Alltrim(Str(m.gnAn)) + pcdataora = get_ora(2) + + lnMeniu = xmenu("Registru Vanzari lunar;Registru Vanzari - recapitulatie 3 luni;Registru Vanzari - recapitulatie an curent;Registru Vanzari lunar restrans") + If !Inlist(m.lnMeniu, 1, 2, 3, 4) + Return + Endif + + Do Case + Case lnTipJurnal = 1 + pcSubtitlu = "LIVRARI TAXABILE LA INTERN" + Case lnTipJurnal = 2 + pcSubtitlu = "LIVRARI CU TAXARE INVERSA" + Case lnTipJurnal = 3 + pcSubtitlu = "LIVRARI SCUTITE CU DREPT DE DEDUCERE" + Case lnTipJurnal = 4 + pcSubtitlu = "LIVRARI SCUTITE FARA DREPT DE DEDUCERE" + Case lnTipJurnal = 5 + pcSubtitlu = "LIVRARI IN AFARA ROMANIEI" + Case lnTipJurnal = 6 + pcSubtitlu = "OPERATIUNI NEIMPOZABILE" + Endcase + + If Inlist(m.lnMeniu,1,2,3) + && REGISTRU TVA LUNA CURENTA + Select 0 As tip, * ; + FROM actcv ; + INTO Cursor cListRC ; + ORDER By dataact, nract ; + READWRITE + Endif + + *** FILTRU PENTRU RECAPITULATIE + lcWhere = povanz.ca_baza1.cfiltru + *** STERG LUNA=XX AND AN=XXXX DIN FILTRU (in cazul in care vreau sa aduc si lunile din recapitulatie) + if left(upper(lcWhere),4) = 'LUNA' + lnPos = atc('AN=', lcWhere,1) + if m.lnPos > 0 + lcWhere = alltrim(substr(m.lcWhere, m.lnPos + 11)) + endif + endif + + && REGISTRE TVA RECAPITULATIE + If INLIST(lnMeniu, 2, 3) + Private m.pnAn, m.pnLuna + IF m.lnMeniu = 2 + * recapitulatie 3 luni + lnPerioada = Ceil(m.gnLuna / 3) + pnLuna = (m.lnPerioada - 1) * 3 + 1 + ELSE + * recapitulatie an curent + pnLuna = 1 + ENDIF + pnAn = m.gnAn + + lddata1 = Date(m.pnAn, m.pnLuna, 1) + lddata2 = Date(m.gnAn, m.gnLuna, 1) + + pcPerioada = m.pcPerioada + " * Recap. " + Padl(m.pnLuna, 2, '0') + '/' + Alltrim(Str(m.pnAn)) + ' - ' + Padl(m.gnLuna, 2, '0') + '/' + Alltrim(Str(m.gnAn)) + + + Do Case + Case lnTipJurnal = 1 && Livrari taxabile intern + lcWhere = m.lcWhere + " and (ro24b<>0 OR ro24t<>0 OR ro20b<>0 OR ro20t<>0 OR ro19b<>0 or ro19t<>0 OR ro9b<>0 OR ro9t<>0 OR ro5b<>0 OR ro5t<>0 or ro24nb<>0 OR ro24nt<>0 OR ro20nb<>0 OR ro20nt<>0 OR ro19nb<>0 OR ro19nt<>0 OR ro9nb<>0 OR ro9nt<>0 OR ro5nb<>0 OR ro5nt<>0)" + Case lnTipJurnal = 2 && Livrari cu taxare inversa + lcWhere = m.lcWhere + " and (roti<>0)" + Case lnTipJurnal = 3 && Livrari scutite cu drept de deducere + lcWhere = m.lcWhere + " and (cescdd1<>0 or cescdd2<>0 or wrscdd<>0 or ceoptr<>0)" + Case lnTipJurnal = 4 && Livrari scutite fara drept de deducere + lcWhere = m.lcWhere + " and (wrscfdd<>0)" + Case lnTipJurnal = 5 && Livrari in afara Romaniei + lcWhere = m.lcWhere + " and (fofdd<>0 or fodd<>0 or cesvdd<>0 or cesvfdd<>0 or cesvfs<>0)" + Case lnTipJurnal = 6 && Operatiuni neimpozabile + lcWhere = m.lcWhere + " and (wrn<>0)" + Endcase + + TEXT to lcSelect textmerge noshow + select 1 as tip, v.an, v.luna, cast(0 as Number(20)) as cod, to_date('','ddmmyyyy') as dataact, 000000000 as nract, + (select la.numeluna || ' ' || to_char(v.an) from lunilean la where la.nrluna = v.luna) as denumire, + SUM(v.TOTCTVA) AS TOTCTVA, + SUM(v.CESCDD1) AS CESCDD1, SUM(v.CESCDD2) AS CESCDD2,SUM(v.CEOPTR) as CEOPTR, + SUM(v.FODD) AS FODD, SUM(v.FOFDD) AS FOFDD,SUM(v.CESVDD) as CESVDD, SUM(v.CESVFDD) AS CESVFDD,SUM(v.CESVFS) AS CESVFS, + SUM(v.ROTI) AS ROTI, + SUM(v.RO24B) AS RO24B, SUM(v.RO24T) AS RO24T, SUM(v.RO20B) AS RO20B, SUM(v.RO20T) AS RO20T, SUM(v.RO19B) AS RO19B, SUM(v.RO19T) AS RO19T, SUM(v.RO9B) AS RO9B, SUM(v.RO9T) AS RO9T, + SUM(v.RO5B) AS RO5B, SUM(v.RO5T) AS RO5T, + SUM(v.WRN) AS WRN, SUM(v.WRSCDD) AS WRSCDD, SUM(v.WRSCFDD) AS WRSCFDD + FROM (select <> as an, <> + rownum - 1 as luna from dual connect by level <= <<(m.gnAn*12 + m.gnLuna) - (m.pnAn*12 + m.pnLuna ) + 1>>) l + left JOIN VJV2010 V on v.an = l.an and v.luna = l.luna + WHERE v.an*12+v.luna between ?pnAn*12 + ?pnLuna and ?gnAn*12 + ?gnLuna <> + GROUP BY v.an, v.luna + ORDER BY v.an, v.luna + ENDTEXT + + lnSucces = goExecutor.oExecute(lcSelect, "crsTotal") + If lnSucces < 0 + amessagebox(goExecutor.cEroare,0+16,"Eroare") + Else + Replace All dataact With Gomonth(Date(an, luna, 1), 120) In crsTotal + Replace All cod With Int(Val(Dtos(dataact))) In crsTotal + + Select cListRC + Append From Dbf('crsTotal') + Use In crsTotal + Endif + Endif && lnMeniu = 2 + + If m.lnMeniu = 4 + lnMeniu = raport_regvanz2007_restrans(m.lnMeniu ,[actcv]) + Endif + + *** FORMAT TVA INCASARE 2013 + Select cListRC + Index On denumire + Str(nract, 14, 0) Tag numeact + Index On cod Tag cod + + update_jtva_coloane('JV') + *** SELECTEZ FACTURILE CU TVA_INCASARE CU TOTAL BAZA, TVA, BAZAN, TVAN + SET STEP ON + Select r.cod, r.id_fact, r.tip, r.denumire, r.nract, r.SERIE_ACT, r.dataact, r.COD_FISCAL, Space(10) As COD_TVA, Space(100) As EXPLICATIE_TVA, r.TOTCTVA, r.TOTFTVATAX, r.TOTTVATAX, TVA_INCASARE, ; + (RO24B + RO20B + RO19B + RO9B + RO5B + CESCDD1 + CESCDD2 + CEOPTR + FODD + FOFDD + CESVDD + CESVFDD + CESVFS + ROTI + WRN + WRSCDD + WRSCFDD) As BAZA, ; + (RO24T + RO20T + RO19T + RO9T + RO5T) As TVA, ; + (RO24NB + RO20NB + RO19NB + RO9NB + RO5NB) As BAZAN, ; + (RO24NT + RO20NT + RO19NT + RO9NT + RO5NT) As TVAN, ; + cast(0 As N(14)) As NRACTI, Cast({} As D) As DATAACTI, Space(20) As FDOCI, Cast(0 As N(16, 4)) As INCASAT ; + FROM cListRC r ; + where tip = 0 And TVA_INCASARE = 1 ; + INTO Cursor cListRCTemp READWRITE + + *** SELECTEZ FACTURILE FARA TVA_INCASARE CU TOTAL, BAZA, TVA + goLog.Log('1', 'listare_jv') + *** SELECTEZ FACTURILE FARA TVA_INCASARE CU TOTAL, BAZA, TVA + * tratare bug se bloca la listare doar pe calculatorul Silviei la selectie din (cListRC, jtva_coloane) + * Pe un calculator statea 10 minute pana facea selectia + * Am refacut join-ul ca doua scan-uri + lnOptiuneBug = INT(VAL(NVL(citeste_optiune_utilizator('RC_REGCUMP_LISTARE_BUG'), '0'))) + + IF m.lnOptiuneBug = 1 + SELECT r.cod, r.id_fact, r.tip, r.denumire, r.nract, r.SERIE_ACT, r.dataact, r.COD_FISCAL, SPACE(20) as COD_TVA, SPACE(250) as EXPLICATIE_TVA, r.TOTCTVA, r.TOTFTVATAX, r.TOTTVATAX, TVA_INCASARE, ; + CAST(0 As N(16, 4)) As BAZA, ; + CAST(0 As N(16, 4)) As TVA ; + FROM cListRC r ; + WHERE .F. ; + INTO Cursor cListRCTemp1 Readwrite + + SELECT cListRC + lcRecc = ALLTRIM(STR(RECCOUNT())) + SCAN FOR tip = 0 AND tva_incasare = 0 + SCATTER NAME loRC + WAIT WINDOW 'Facturi fara TVA Incasare ' + ALLTRIM(STR(RECNO())) + '/'+ m.lcRecc NOWAIT + ADDPROPERTY(loRC,'cod_tva', '') + ADDPROPERTY(loRC,'explicatie_tva', '') + ADDPROPERTY(loRC,'baza',0.00) + ADDPROPERTY(loRC,'tva', 0.00) + + SELECT JTVA_COLOANE + SCAN FOR jv = 1 And INLIST(ALLTRIM(coloana_jv), 'RO24B','RO20B', 'RO19B', 'RO9B', 'RO5B', 'CESCDD1', 'CESCDD2', 'FODD', 'FOFDD', 'CESVDD', ; + 'CESVFDD', 'CESVFS', 'ROTI', 'WRN','WRSCDD','WRSCFDD') + loRC.cod_tva = ALLTRIM(coloana_jv) + loRC.explicatie_tva = ALLTRIM(denumire) + + loRC.baza =Iif(loRC.cod_tva = 'RO24B', loRC.RO24B, ; + Iif(loRC.cod_tva = 'RO20B', loRC.RO20B, ; + IIF(loRC.cod_tva = 'RO19B', loRC.RO19B, ; + IIF(loRC.cod_tva = 'RO9B', loRC.RO9B, ; + IIF(loRC.cod_tva = 'RO5B', loRC.RO5B, ; + IIF(loRC.cod_tva = 'CESCDD1', loRC.CESCDD1 , ; + IIF(loRC.cod_tva = 'CESCDD2', loRC.CESCDD2 , ; + IIF(loRC.cod_tva = 'CEOPTR', loRC.CEOPTR , ; + IIF(loRC.cod_tva = 'FODD', loRC.FODD , ; + IIF(loRC.cod_tva = 'FOFDD', loRC.FOFDD , ; + IIF(loRC.cod_tva = 'CESVDD', loRC.CESVDD , ; + IIF(loRC.cod_tva = 'CESVFDD', loRC.CESVFDD , ; + IIF(loRC.cod_tva = 'CESVFS', loRC.CESVFS , ; + IIF(loRC.cod_tva = 'ROTI', loRC.ROTI , ; + IIF(loRC.cod_tva = 'WRN', loRC.WRN , ; + IIF(loRC.cod_tva = 'WRSCDD', loRC.WRSCDD , ; + IIF(loRC.cod_tva = 'WRSCFDD', loRC.WRSCFDD, ; + 0))))))))))))))))) + + loRC.tva = Iif(loRC.cod_tva = 'RO24B', loRC.RO24T, ; + Iif(loRC.cod_tva = 'RO20B', loRC.RO20T, ; + IIF(loRC.cod_tva = 'RO19B', loRC.RO19T, ; + IIF(loRC.cod_tva = 'RO9B', loRC.RO9T, ; + IIF(loRC.cod_tva = 'RO5B', loRC.RO5T, ; + 0))))) + + *!* IF !(loRC.baza = 0 AND loRC.tva = 0) + SELECT cListRCTemp1 + APPEND BLANK + GATHER NAME loRC + *!* ENDIF + + ENDSCAN && JTVA_COLOANE JC = 1 And !Empty(Nvl(J.COLOANA_JC, '')) + ENDSCAN && cListRC tip = 0 AND tva_incasare = 0 + ELSE + + Select r.cod, r.id_fact, r.tip, r.denumire, r.nract, r.SERIE_ACT, r.dataact, r.COD_FISCAL, J.COLOANA_JV As COD_TVA, J.denumire As EXPLICATIE_TVA, r.TOTCTVA, r.TOTFTVATAX, r.TOTTVATAX, TVA_INCASARE, ; + CAST(Iif(J.COLOANA_JV = 'RO24B', r.RO24B, ; + Iif(J.COLOANA_JV = 'RO20B', r.RO20B, ; + IIF(J.COLOANA_JV = 'RO19B', r.RO19B, ; + IIF(J.COLOANA_JV = 'RO9B', r.RO9B, ; + IIF(J.COLOANA_JV = 'RO5B', r.RO5B, ; + IIF(J.COLOANA_JV = 'CESCDD1', r.CESCDD1 , ; + IIF(J.COLOANA_JV = 'CESCDD2', r.CESCDD2 , ; + IIF(J.COLOANA_JV = 'CEOPTR', r.CEOPTR , ; + IIF(J.COLOANA_JV = 'FODD', r.FODD , ; + IIF(J.COLOANA_JV = 'FOFDD', r.FOFDD , ; + IIF(J.COLOANA_JV = 'CESVDD', r.CESVDD , ; + IIF(J.COLOANA_JV = 'CESVFDD', r.CESVFDD , ; + IIF(J.COLOANA_JV = 'CESVFS', r.CESVFS , ; + IIF(J.COLOANA_JV = 'ROTI', r.ROTI , ; + IIF(J.COLOANA_JV = 'WRN', r.WRN , ; + IIF(J.COLOANA_JV = 'WRSCDD', r.WRSCDD , ; + IIF(J.COLOANA_JV = 'WRSCFDD', r.WRSCFDD, ; + 0))))))))))))))))) As N(16, 4)) As BAZA, ; + CAST(Iif(J.COLOANA_JV = 'RO24B', r.RO24T, ; + Iif(J.COLOANA_JV = 'RO20B', r.RO20T, ; + IIF(J.COLOANA_JV = 'RO19B', r.RO19T, ; + IIF(J.COLOANA_JV = 'RO9B', r.RO9T, ; + IIF(J.COLOANA_JV = 'RO5B', r.RO5T, ; + 0))))) As N(16, 4)) As TVA ; + FROM cListRC r, JTVA_COLOANE J ; + where tip = 0 And r.TVA_INCASARE = 0 And J.JV = 1 And !Empty(Nvl(J.COLOANA_JV, '')) ; + INTO Cursor cListRCTemp1 Readwrite + + ENDIF && m.lnOptiuneBug = 1 + goLog.Log('2', 'listare_jv') + *** SELECTEZ FACTURILE CU VALOARE 0 + Select distinct cod, id_fact, tip, denumire, nract, SERIE_ACT, dataact, COD_FISCAL, '' as COD_TVA, '' as EXPLICATIE_TVA, TOTCTVA, TOTFTVATAX, TOTTVATAX, TVA_INCASARE, ; + baza, tva ; + FROM cListRCTemp1 ; + WHERE BAZA = 0 And TVA = 0 ; + AND id_fact NOT in (SELECT id_fact FROM cListRCTemp1 Where !(BAZA = 0 And TVA = 0)) ; + INTO CURSOR cListRCTemp2 NOFILTER + goLog.Log('3', 'listare_jv') + Delete From cListRCTemp1 Where BAZA = 0 And TVA = 0 + Select cListRCTemp + Append From Dbf('cListRCTemp1') + Append From Dbf('cListRCTemp2') + Use In (Select('cListRCTemp1')) + Use In (Select('cListRCTemp2')) + + *** SELECTEZ EXPLICATIILE DE TVA 0% EXIGIBILE IN PERIOADA PENTRU FACTURILE CU TVA_INCASARE + Select r.cod, r.id_fact, r.tip, r.denumire, r.nract, r.SERIE_ACT, r.dataact, r.COD_FISCAL, J.COLOANA_JV As COD_TVA, J.denumire As EXPLICATIE_TVA, ; + CAST(Iif(J.COLOANA_JV = 'CESCDD1', r.CESCDD1 , ; + IIF(J.COLOANA_JV = 'CESCDD2', r.CESCDD2 , ; + IIF(J.COLOANA_JV = 'CEOPTR', r.CEOPTR , ; + IIF(J.COLOANA_JV = 'FODD', r.FODD , ; + IIF(J.COLOANA_JV = 'FOFDD', r.FOFDD , ; + IIF(J.COLOANA_JV = 'CESVDD', r.CESVDD , ; + IIF(J.COLOANA_JV = 'CESVFDD', r.CESVFDD , ; + IIF(J.COLOANA_JV = 'CESVFS', r.CESVFS , ; + IIF(J.COLOANA_JV = 'ROTI', r.ROTI , ; + IIF(J.COLOANA_JV = 'WRN', r.WRN , ; + IIF(J.COLOANA_JV = 'WRSCDD', r.WRSCDD , ; + IIF(J.COLOANA_JV = 'WRSCFDD', r.WRSCFDD, ; + 0)))))))))))) As N(16, 4)) As BAZA, ; + 0 As TVA ; + FROM cListRC r, JTVA_COLOANE J ; + WHERE tip = 0 And r.TVA_INCASARE = 1 And J.JV = 1 And !Empty(Nvl(J.COLOANA_JV, '')) And Nvl(J.COTA_TVA, 0) = 0 ; + INTO Cursor cListRCTemp1 Readwrite + goLog.Log('4', 'listare_jv') + Delete From cListRCTemp1 Where BAZA = 0 And TVA = 0 + Select cListRCTemp + Append From Dbf('cListRCTemp1') + Use In (Select('cListRCTemp1')) + + *** ADAUG TVA INCASARE (DIN INCASARI/PLATI, TVA 4427 LA 90 ZILE) + + TEXT to m.lcSql textmerge noshow + select cast(0 as Number(10)) as nrc, a.cod, 2 As tip, jv.id_fact, jv.nract As nract, jv.serie_act, jv.dataact, a.nract As NRACTI, a.dataact As DATAACTI, fdoc.fel_document as FDOCI, p.denumire As denumire, p.COD_FISCAL, + J.COTA_TVA, J2.COLOANA_JV As COD_TVA, J2.denumire As EXPLICATIE_TVA, + round(a.suma * 100 / J.COTA_TVA, 2) As BAZA, a.suma As TVA, + round(a.suma * 100 / J.COTA_TVA, 2) + a.suma As INCASAT, + (select sum(suma) from act a1 where a1.an = ?m.gnAn and a1.luna = ?m.gnLuna and a1.sters = 0 and a1.id_factc = a.id_fact and a1.cod = a.cod) as INCASAT2 + from act a left join jv2007 jv on a.id_fact = jv.id_fact + left join nom_parteneri p on jv.id_part = p.id_part + Left Join JTVA_COLOANE J On a.id_jtva_coloana = J.id_jtva_coloana + LEFT Join JTVA_COLOANE J2 On J.id_jtva_coloana = J2.id_tva + left join nom_fdoc fdoc on a.id_fdoc = fdoc.id_fdoc + where a.an = ?m.gnAn and a.luna = ?m.gnLuna and a.sters = 0 and a.scd = '4428' And a.scc = '4427' And Nvl(a.id_jtva_coloana, 0) <> 0 + and jv.an = ?m.gnAn and jv.luna = ?m.gnLuna and (jv.ro24nt <> 0 or jv.ro20nt <> 0 or jv.ro19nt <> 0 or jv.ro9nt <> 0 or jv.ro5nt <> 0) + order by a.cod, J2.COLOANA_JC + ENDTEXT + + llSucces = goExecutor.oExecuta(m.lcSql, "cListRcTemp1") + goLog.Log('5', 'listare_jv') + If m.llSucces + + *** daca am pus filtru in Registru pe Nume sau altceva + *** sterg incasarile/platile care nu apartin de facturile filtrate + *** ca sa am doar incasarile/platile care tin de filtru + if !empty(m.lcWhere) + delete from cListRcTemp1 where padl(nract,14,'0') + '|' + dtos(dataact) + '|' + padr(denumire,100,' ') not in ; + (select padl(nract,14,'0') + '|' + dtos(dataact) + '|' + padr(denumire,100,' ') from cListRcTemp) + endif + + *** ROTUNJIRE BAZA EXIGIBILA = BAZA INCASAT - TVA EXIGIBIL PENTRU FIECARE INCASARE + *** INCASAT ESTE TOATA SUMA INCASATA, TREBUIE SA CALCULEZ BAZELE AFERENTE TVA-URILOR DIN SUMA INCASATA + Select cListRCTemp1 + Go Top + lnCod = cod + lnNrAct = nract + lcSerieAct = NVL(serie_act, '') + ldDataAct = dataact + lcDenumire = denumire + lnNrc = 0 + Scan + lnNrc = m.lnNrc + 1 + If m.lnCod <> cod Or m.lnNrAct <> nract Or m.lcSerieAct <> NVL(serie_act, '') OR m.ldDataAct <> dataact Or m.lcDenumire <> denumire + lnNrc = 1 + Endif + lnCod = cod + Replace nrc With m.lnNrc + Endscan + + *** adun diferenta la prima baza + Select cod, nract, serie_act, dataact, denumire, INCASAT2, Sum(INCASAT) As INCASAT ; + from cListRCTemp1 ; + group By cod, nract, serie_act, dataact, denumire, INCASAT2 ; + into Cursor cIncasariTVA + + Select cIncasariTVA + Scan + lnCod = cod + lnNrAct = nract + lcSerieAct = NVL(serie_act, '') + ldDataAct = dataact + lcDenumire = denumire + lnIncasat = Nvl(INCASAT, 0) + lnIncasat2 = Nvl(INCASAT2,0) + lnIncasat3 = 0 && suma baza EXPLICATII DE TVA 0% EXIGIBILE + + *!* select cListRcTemp1 + *!* locate for cod = m.lnCod and nrc = 1 + *!* if found() + *!* lnIdFact = id_fact + *!* select cListRcTemp + *!* calculate sum(baza) to lnIncasat3 for id_Fact = m.lnIdFact and tip = 0 and tva = 0 in cListRcTemp && baza TVA 0% + *!* endif + Calculate Sum(BAZA) To lnIncasat3 For denumire = m.lcDenumire And nract = m.lnNrAct AND NVL(serie_act, '') = m.lcSerieAct And dataact = m.ldDataAct And tip = 0 And TVA = 0 In cListRCTemp && baza TVA 0% + lnDiferenta = Iif(m.lnIncasat2 <> 0, m.lnIncasat2 - m.lnIncasat - m.lnIncasat3, 0) + + *** exista posibilitatea ca tva-ul din suma achitata sa nu fie corespunzator intregii sume (daca am si limitare deductibilitate tva) + *** daca este prea mare diferenta dintre suma incasata si baza calculata, nu mai adun diferenta + If Abs(m.lnDiferenta) > 1 + m.lnDiferenta = 0 + Endif + If m.lnDiferenta <> 0 + Select cListRCTemp1 + Locate For cod = m.lnCod And denumire = m.lcDenumire And nract = m.lnNrAct AND NVL(serie_act, '') = m.lcSerieAct And dataact = m.ldDataAct And nrc = 1 + If Found() + Replace INCASAT With INCASAT + m.lnDiferenta, BAZA With BAZA + m.lnDiferenta + Endif + Endif + Endscan + Use In (Select('cIncasariTVA')) + + Update cListRCTemp1 Set nract = 0 Where Isnull(nract) + Update cListRCTemp1 Set denumire = '' Where Isnull(denumire) + Update cListRCTemp1 Set COD_FISCAL = '' Where Isnull(COD_FISCAL) + Update cListRCTemp1 Set FDOCI = '' Where Isnull(FDOCI) + + Select cListRCTemp + Append From Dbf('cListRcTemp1') + + *** ROTUNJIRE BAZA FACTURA - BAZE EXIGIBILE + *** bazele exigibile de pe facturile cu TVA INCASARE + Select nract, dataact, denumire, Sum(BAZA) As BAZA ; + from cListRCTemp ; + where TVA_INCASARE = 0 And tip = 0 And TOTCTVA <> 0 ; + group By nract, dataact, denumire ; + into Cursor cFacturiTVAIncasare + + Select cFacturiTVAIncasare + Scan + lnNrAct = nract + ldDataAct = dataact + lcDenumire = denumire + lnBazaFact = BAZA + *** baza exigibila din tip = 0 (tva 0%) si tip = 2 (incasari/plati) + Calculate Sum(BAZA) To lnBazaExigibila In cListRCTemp For TVA_INCASARE = 0 And Inlist(tip, 0, 2) And TOTCTVA = 0 And denumire = m.lcDenumire And nract = m.lnNrAct And dataact = m.ldDataAct + + lnDiferenta = Iif(m.lnBazaFact <> 0, m.lnBazaFact - m.lnBazaExigibila, 0) + If m.lnDiferenta <> 0 + Select cListRCTemp + Locate For BAZA <> 0 And TVA_INCASARE = 0 And tip = 2 And TOTCTVA = 0 And denumire = m.lcDenumire And nract = m.lnNrAct And dataact = m.ldDataAct + If Found() + Replace INCASAT With BAZA + m.lnDiferenta + TVA, BAZA With BAZA + m.lnDiferenta + Endif + Endif + Endscan + Use In (Select('cFacturiTVAIncasare')) + Endif + Use In (Select('cListRcTemp1')) + goLog.Log('6', 'listare_jv') + *** SELECTEZ INREGISTRARILE TIP = 1 RECAPITULATIE + IF m.lnOptiuneBug = 1 + SELECT r.cod, r.id_fact, r.tip, r.denumire, r.nract, r.SERIE_ACT, r.dataact, r.COD_FISCAL, SPACE(20) as COD_TVA, SPACE(250) as EXPLICATIE_TVA, r.TOTCTVA, r.TOTFTVATAX, r.TOTTVATAX, TVA_INCASARE, ; + CAST(0 As N(16, 4)) As BAZA, ; + CAST(0 As N(16, 4)) As TVA ; + FROM cListRC r ; + WHERE .F. ; + INTO Cursor cListRCTemp1 Readwrite + + SELECT cListRC + lcRecc = ALLTRIM(STR(RECCOUNT())) + SCAN FOR tip = 1 + SCATTER NAME loRC + WAIT WINDOW 'Recapitulatie ' + ALLTRIM(STR(RECNO())) + '/'+ m.lcRecc NOWAIT + ADDPROPERTY(loRC,'cod_tva', '') + ADDPROPERTY(loRC,'explicatie_tva', '') + ADDPROPERTY(loRC,'baza',0.00) + ADDPROPERTY(loRC,'tva', 0.00) + + SELECT JTVA_COLOANE + SCAN FOR jv = 1 And INLIST(ALLTRIM(coloana_jv), 'RO24B','RO20B', 'RO19B', 'RO9B', 'RO5B', 'CESCDD1', 'CESCDD2', 'FODD', 'FOFDD', 'CESVDD', ; + 'CESVFDD', 'CESVFS', 'ROTI', 'WRN','WRSCDD','WRSCFDD') + loRC.cod_tva = ALLTRIM(coloana_jv) + loRC.explicatie_tva = ALLTRIM(denumire) + + loRC.baza =Iif(loRC.cod_tva = 'RO24B', loRC.RO24B, ; + Iif(loRC.cod_tva = 'RO20B', loRC.RO20B, ; + IIF(loRC.cod_tva = 'RO19B', loRC.RO19B, ; + IIF(loRC.cod_tva = 'RO9B', loRC.RO9B, ; + IIF(loRC.cod_tva = 'RO5B', loRC.RO5B, ; + IIF(loRC.cod_tva = 'CESCDD1', loRC.CESCDD1 , ; + IIF(loRC.cod_tva = 'CESCDD2', loRC.CESCDD2 , ; + IIF(loRC.cod_tva = 'CEOPTR', loRC.CEOPTR , ; + IIF(loRC.cod_tva = 'FODD', loRC.FODD , ; + IIF(loRC.cod_tva = 'FOFDD', loRC.FOFDD , ; + IIF(loRC.cod_tva = 'CESVDD', loRC.CESVDD , ; + IIF(loRC.cod_tva = 'CESVFDD', loRC.CESVFDD , ; + IIF(loRC.cod_tva = 'CESVFS', loRC.CESVFS , ; + IIF(loRC.cod_tva = 'ROTI', loRC.ROTI , ; + IIF(loRC.cod_tva = 'WRN', loRC.WRN , ; + IIF(loRC.cod_tva = 'WRSCDD', loRC.WRSCDD , ; + IIF(loRC.cod_tva = 'WRSCFDD', loRC.WRSCFDD, ; + 0))))))))))))))))) + + loRC.tva = Iif(loRC.cod_tva = 'RO24B', loRC.RO24T, ; + Iif(loRC.cod_tva = 'RO20B', loRC.RO20T, ; + IIF(loRC.cod_tva = 'RO19B', loRC.RO19T, ; + IIF(loRC.cod_tva = 'RO9B', loRC.RO9T, ; + IIF(loRC.cod_tva = 'RO5B', loRC.RO5T, ; + 0))))) + + IF !(loRC.baza = 0 AND loRC.tva = 0) + SELECT cListRCTemp1 + APPEND BLANK + GATHER NAME loRC + ENDIF + + ENDSCAN && JTVA_COLOANE JC = 1 And !Empty(Nvl(J.COLOANA_JC, '')) + ENDSCAN && cListRC tip = 0 AND tva_incasare = 0 + ELSE + Select r.cod, r.id_fact, r.tip, r.denumire, r.nract, r.SERIE_ACT, r.dataact, r.COD_FISCAL, J.COLOANA_JV As COD_TVA, J.denumire As EXPLICATIE_TVA, r.TOTCTVA, r.TOTFTVATAX, r.TOTTVATAX, TVA_INCASARE, ; + CAST(Iif(J.COLOANA_JV = 'RO24B', r.RO24B, ; + Iif(J.COLOANA_JV = 'RO20B', r.RO20B, ; + IIF(J.COLOANA_JV = 'RO19B', r.RO19B, ; + IIF(J.COLOANA_JV = 'RO9B', r.RO9B, ; + IIF(J.COLOANA_JV = 'RO5B', r.RO5B, ; + IIF(J.COLOANA_JV = 'CESCDD1', r.CESCDD1 , ; + IIF(J.COLOANA_JV = 'CESCDD2', r.CESCDD2 , ; + IIF(J.COLOANA_JV = 'CEOPTR', r.CEOPTR , ; + IIF(J.COLOANA_JV = 'FODD', r.FODD , ; + IIF(J.COLOANA_JV = 'FOFDD', r.FOFDD , ; + IIF(J.COLOANA_JV = 'CESVDD', r.CESVDD , ; + IIF(J.COLOANA_JV = 'CESVFDD', r.CESVFDD , ; + IIF(J.COLOANA_JV = 'CESVFS', r.CESVFS , ; + IIF(J.COLOANA_JV = 'ROTI', r.ROTI , ; + IIF(J.COLOANA_JV = 'WRN', r.WRN , ; + IIF(J.COLOANA_JV = 'WRSCDD', r.WRSCDD , ; + IIF(J.COLOANA_JV = 'WRSCFDD', r.WRSCFDD, ; + 0))))))))))))))))) As N(16, 4)) As BAZA, ; + CAST(Iif(J.COLOANA_JV = 'RO24B', r.RO24T, ; + Iif(J.COLOANA_JV = 'RO20B', r.RO20T, ; + IIF(J.COLOANA_JV = 'RO19B', r.RO19T, ; + IIF(J.COLOANA_JV = 'RO9B', r.RO9T, ; + IIF(J.COLOANA_JV = 'RO5B', r.RO5T, ; + 0))))) As N(16, 4)) As TVA ; + FROM cListRC r, JTVA_COLOANE J ; + where tip = 1 And J.JV = 1 And !Empty(Nvl(J.COLOANA_JV, '')) ; + INTO Cursor cListRCTemp1 Readwrite + ENDIF + goLog.Log('7', 'listare_jv') + *** adaug si lunile care nu au nimic exigibil + Select Distinct r.cod, r.tip, r.denumire, r.nract, r.SERIE_ACT, r.dataact, r.COD_FISCAL ; + from cListRCTemp1 r ; + where cod Not In (Select cod From cListRCTemp1 Where !(BAZA = 0 And TVA = 0)) ; + into Cursor cListRCTemp2 + + Delete From cListRCTemp1 Where BAZA = 0 And TVA = 0 + Select cListRCTemp + Append From Dbf('cListRCTemp1') + Append From Dbf('cListRCTemp2') + Use In (Select('cListRCTemp1')) + Use In (Select('cListRCTemp2')) + + + *** completez nume, nract, dataact pentru inregistrarile TVA care nu le au completate + Select cListRCTemp + Scan For tip = 2 AND (EMPTY(dataact) OR EMPTY(nract) OR EMPTY(denumire)) + lcNumeAct = denumire + Str(nract, 14, 0) + lnCod = cod + If Seek(m.lnCod, 'cListRC', 'cod') + SELECT cListRCTemp + Replace denumire With cListRC.denumire FOR EMPTY(denumire) + Replace nract With cListRC.nract FOR EMPTY(nract) + Replace dataact With cListRC.dataact FOR EMPTY(dataact) + Else + If Seek(m.lcNumeAct, 'cListRC', 'numeact') + SELECT cListRCTemp + Replace cod With cListRC.cod, dataact With cListRC.dataact + Endif && seek + Endif && seek + Endscan + + Use In (Select('cListRC')) + Select Cast(0 As I) As nrcrt, Cast(0 As I) As nrcrtf, * From cListRCTemp Into Cursor cListRC Order By dataact, nract, denumire, tip Readwrite + + Update cListRC Set tip = 0 Where tip = 2 && incasarile pe acelasi nivel cu facturile + Use In (Select('cListRCTemp')) + + *!* Select Cast(0 As I) As nrcrt, Cast(0 As I) As nrcrtf, Min(cod) As cod, Min(id_fact) As id_fact, tip, denumire, nract, SERIE_ACT, dataact, COD_FISCAL, COD_TVA, EXPLICATIE_TVA, TVA_INCASARE, NRACTI, DATAACTI, FDOCI, ; + *!* sum(INCASAT) As INCASAT, Sum(TOTCTVA) As TOTCTVA, Sum(TOTFTVATAX) As TOTFTVATAX, Sum(TOTTVATAX) As TOTTVATAX, Sum(BAZA) As BAZA, Sum(TVA) As TVA, Sum(BAZAN) As BAZAN, Sum(TVAN) As TVAN ; + *!* from cListRCTemp ; + *!* where tip = 0 ; + *!* group By tip, denumire, nract, SERIE_ACT, dataact, COD_FISCAL, COD_TVA, EXPLICATIE_TVA, TVA_INCASARE, NRACTI, DATAACTI, FDOCI ; + *!* union All ; + *!* SELECT Cast(0 As I) As nrcrt, Cast(0 As I) As nrcrtf, cod, id_fact, tip, denumire, nract, SERIE_ACT, dataact, COD_FISCAL, COD_TVA, EXPLICATIE_TVA, TVA_INCASARE, NRACTI, DATAACTI, FDOCI, ; + *!* INCASAT, TOTCTVA, TOTFTVATAX, TOTTVATAX, BAZA, TVA, BAZAN, TVAN ; + *!* from cListRCTemp ; + *!* where tip <> 0 ; + *!* Into Cursor cListRC ; + *!* Order By 9, 7, 6, 5 Readwrite + + *** STERG NUME, NRACT... DE PE INREGISTRARILE 2..N (EXPLICATII_TVA) PENTRU ACEEASI FACTURA + Select cListRC + Go Top + lnCod = 0 + lnNract = 0 + ldDataAct = {} + lcDenumire = "" + lnNrCrt = 0 + lnNrCrtF = 0 + lcSerieAct = "" + Scan + If m.lcSerieAct <> serie_act OR m.lnNrAct <> nract or m.ldDataAct <> dataact or m.lcDenumire <> denumire && prima linie din fiecare factura + lnCod = cod + lcSerieAct = serie_act + lnNract = nract + ldDataAct = dataact + lcDenumire = denumire + lnNrCrt = m.lnNrCrt + 1 + lnNrCrtF = 1 && numar curent in cadrul fiecarei facturi + Replace nrcrt With m.lnNrCrt, nrcrtf With m.lnNrCrtF + Else && liniile 2..n din facturi + lnNrCrtF = m.lnNrCrtF + 1 + Replace nrcrt With m.lnNrCrt, nrcrtf With m.lnNrCrtF, denumire With '', nract With 0, SERIE_ACT With '', dataact With {}, COD_FISCAL With "", TOTCTVA With 0, TOTFTVATAX With 0, TOTTVATAX With 0 + Endif + Endscan + goLog.Log('8', 'listare_jv') + *** TOTALURI EXIGIBIL PE COTE TVA + *** ADUN FIE INREGISTRARILE DIN LUNA CURENTA TIP = 0, FIE INREGISTRARILE TIP RECAPITULATIE TIP = 1 + lnTip = Iif(Inlist(m.lnMeniu,1,4), 0, 1) + Insert Into cListRC (tip, COD_TVA, EXPLICATIE_TVA, INCASAT, BAZA, TVA) ; + Select 2 As tip, COD_TVA, EXPLICATIE_TVA, Sum(INCASAT) As INCASAT, Sum(BAZA) As BAZA, Sum(TVA) As TVA ; + from cListRC ; + where tip = m.lnTip And !Empty(Nvl(COD_TVA, '')) ; + ORDER By COD_TVA ; + group By COD_TVA, EXPLICATIE_TVA + Select cListRC + + Use In (Select('JTVA_COLOANE')) + *** FORMAT TVA INCASARE 2013 ^ + goLog.Log('9', 'listare_jv') + + If Reccount('cListRC') > 0 + Thisform.AlwaysOnTop = .F. + + IF AMESSAGEBOX('Doriti listare clasica?',4+32,_screen.Caption) = 6 + goExport.export2frx([cListRc], [registru_jtva2013]) + ELSE + goExport.export2frx([cListRc], [registru_jtva2013], , , , , , .T.) + ENDIF + + Thisform.AlwaysOnTop = .T. + Endif + + Use In (Select('cListRC')) + + + + + ENDPROC + + PROCEDURE do_reface + lnAn = gnAn + lnLuna = gnLuna + lnSucces = refacere([TVA_2007],[],[JV],lnLuna,lnAn)&& IN orefaceri.prg + If lnSucces > 0 + Thisform.actualizeaza_grid1() + *** verificare INAINTE_DE + lcCoresp = ['4111'] + lcExceptii = ['667,622'] + *!* Do inainte With "VANZ2007",,,,lcExceptii,lcCoresp In oinainte_de.prg + + *this.LockScreen = .f. + This._grdbase1.SetFocus + aMESSAGEBOX("Refacerea s-a terminat!",64,"Info refacere") + Endif + + + ENDPROC + + PROCEDURE do_reset + *!* Thisform.ck_dataact.Value=0 + *!* *Thisform.ck_fel_document.Value=0 + *!* Thisform.ck_nract.Value=0 + *!* Thisform.ck_denumire.Value=0 + *!* Thisform.ck_eROARE_TVA.Value=0 + Thisform.cbo_tip_jurnal_vanz.ListItemId = 1 + + IF NOT PEMSTATUS(thisform,"filtru_pretty",5) + thisform.AddProperty("filtru_pretty") + ENDIF + IF NOT PEMSTATUS(thisform,"filtru_pretty_ro",5) + thisform.AddProperty("filtru_pretty_ro") + ENDIF + + thisform.filtru_pretty="" + thisform.filtru_pretty_ro="" + Thisform.but_start_criterii1.SetFocus + Thisform.Refresh + thisform.but_start_criterii1.pornit="nu" + thisform.do_cauta() + + ENDPROC + + PROCEDURE do_termin + THIS.BUT_STArt_criterii1.RESETstatus() + DODEFAULT() + ENDPROC + + PROCEDURE do_verifica + Local loDate As "empty" + Local lcCodFiscal, lcDenumire, lcFilter, lcSelect, lcWhere, llAutoVerificare, llDontCloseCursor + Local llExperimental, llMFIN, llServiciuWebANAF, llValidare, llVerificarePlatitorTVA, lnOptiune + Local lnRaspuns, loPartener + lcSelect = SELECT() + + SELECT actcv + lcDenumire = Alltrim(Nvl(actcv.denumire, '')) + lcCodFiscal = Alltrim(Nvl(actcv.cod_fiscal, '')) + + lnOptiune = XMENU('VERIFICA... ' + m.lcDenumire + ' - ANAF; VERIFICA TOTI PARTENERII - ANAF') + + If EMPTY(m.lnOptiune) + Return + Endif + * Pot sa fac verificarea pentru un singur nume si cu formularul pentru mai multi parteneri, dar arata mai dragut informatia intr-un messagebox pentru unul singur + If INLIST(m.lnOptiune, 1, 4) && un singur nume + loPartener = Null + loDate = Createobject("empty") + + AddProperty(loDate, "denumire", m.lcDenumire) + AddProperty(loDate, "cod_fiscal", m.lcCodFiscal) + AddProperty(loDate, "tip_verificare", "ANAF_SERVICIU_WEB") + + lnRaspuns = VerificaCodFiscal(loDate, @lnOptiune, @loPartener) + Else + llDontCloseCursor = .F. + llExperimental = .F. + llVerificarePlatitorTVA = .F. && verific VIES pentru toti partenerii + llMFIN = .T. && verific MFIN pentru toata lumea + llValidare = .T. && verific algoritmul codurilor fiscale + llAutoVerificare = .T. && lanseaza verificarea automata la activate-ul formularului de verificare + llServiciuWebANAF = .T. + + lcFilter = Filter("actcv") + lcWhere = Iif(m.lnOptiune = 1, "recno() = " + Alltrim(Str(Recno())), Iif(!Empty(m.lcFilter), m.lcFilter, ".T.")) + Select Distinct cod_fiscal, denumire, Iif(Left(Upper(cod_fiscal), 2) = "RO", "RO", " ") As ATRIBUT_FISCAL, .T. As IsCIF, .F. As codvalid ; + From actcv ; + Where &lcWhere ; + Into Cursor crsCoduriFiscale ; + Order By denumire, cod_fiscal ; + Readwrite + + + Local lcXMLParteneri + lcXMLParteneri = "" + Cursortoxml('crsCoduriFiscale', "lcXMLParteneri", 1, 0, 0, "1") + + Do verificare_parteneri With m.lcXMLParteneri, m.llValidare, m.llMFIN, m.llVerificarePlatitorTVA, m.llAutoVerificare, m.llDontCloseCursor, m.llExperimental, m.llServiciuWebANAF + Endif && x = 1 + + SELECT (m.lcSelect) + ENDPROC + + PROCEDURE grdfooterevent + LPARAMETERS toObj, tcEvt + + IF TYPE('this._grdfooter1') = 'O' + IF PEMSTATUS(this._grdfooter1, "eventhandler", 5) + this._grdfooter1.eventhandler(,toObj,tcEvt) + ENDIF + ENDIF + ENDPROC + + PROCEDURE grid_sort_bind + *!* 09.09.2010 + *!* am folosit gridextra + *!* nu sterge + *!* 09.09.2010 ^ + ENDPROC + + PROCEDURE inainte_de_do_listare + If This.lactiv2 + If gnAn >= 2013 + This.do_listare2013() + Else + This.do_listare() + Endif + Endif + ENDPROC + + PROCEDURE incaspl + Private pnlunanan,pcselect,pcfiltru,pcschema,pcorder,llAfisare,poact + Store "" To poact + Store .F. To llAfisare + Store 0 To pnlunanan + + pnlunanan=gnAn*12+gnLuna + CN='4111' + Thisform.but_teRMIN1.Enabled=.F. + Thisform.AlwaysOnTop=.F. + + pcschema=['ID_ACT N(20),LUNA N(2),AN N(4),COD N(20),DATAIREG D,nract N(20),DATAACT D,'+]+; + ['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+; + ['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+; + ['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+; + ['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+; + ['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+; + ['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+; + ['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)'] + pcschema=[''] + pcselect=['select partD,dataact,serie_act,nract,dataireg,suma,perecheC,util,dataora,fdoc,scc,scd,partC,explicatia,explicatie_tva '+]+; + ['from ]+gcS+[.vact where 2=2'] + pcorder=[dataact,serie_act,nract] + + Select actcv + pcTitlu="INCASARI LA FACTURA NR. "+Alltrim(Str(nract)) + pcfiltru=[id_partc=]+Alltrim(STR(id_part))+[ and extract(year from dataireg)*12+extract(month from dataireg)<=]+Alltrim(Str(pnlunanan))+[ ]+; + [and (perecheC=]+Alltrim(Str(nract))+[ or nract=']+Alltrim(Str(nract))+[')]+gcCondSucursala + gencursor("poact","acn1",pcselect,pcfiltru,pcschema,pcorder,llAfisare) + poact.ca_baza1.afisare() + + ORC=Createobj("frm_debcred") + ORC.Lb_titlu_alb_b121.Caption=pcTitlu + ORC.lb_titlu1.Caption=pcTitlu + ORC.Show(1) + + pcTitlu="" + Thisform.AlwaysOnTop=.T. + Thisform.but_teRMIN1.Enabled=.T. + If Used('acn1') + Use In acn1 + Endif + Release ORC,poact + ENDPROC + + PROCEDURE Init + LPARAMETERS tlAfisareTot + * tlAfisareTot = .T. daca se afiseaza toate inregistrarile la intrarea in formular + + This.lAfisareTot = m.tlAfisareTot + + DoDefault() + If !glEMama + Thisform._grdbase1.RemoveObject([cSucursala]) + ENDIF + + + ENDPROC + + PROCEDURE ist_deb_cred + PRIVATE pnlunanan,lul,pcselect,pcschema,pcfiltru,pcorder,llAfisare,poacn1,poacn2,pcdatacrt,pcnume,luna,anul,pnlunaanales,pniesire + STORE 0 TO pnlunanan,pniesire + STORE .F. TO llAfisare + STORE "" TO lul,poacn1,poacn2 + pnlunanan=gnAn*12+gnLuna + pcdatacrt=ALLTRIM(STR(gnAn))+PADL(ALLTRIM(STR(gnLuna)),2,'0')+[01] && prima zi a lunii + + THISFORM.but_termin1.ENABLED=.F. + THISFORM.ALWAYSONTOP= .F. + + lul=gnLuna && ?? + pcanul="00" + pcluna="00" + SELECT calendar + ose=CREATEOBJECT('frm_seleluna') + ose.SHOW(1) + IF pniesire=2 + THISFORM.but_termin1.ENABLED=.T. + THISFORM.ALWAYSONTOP= .T. + RETURN + ENDIF + + pnlunaanales=VAL(pcanul)*12+VAL(pcluna) + SELECT actcv + pcnume=denumire + pcschema=['ID_ACT N(20),LUNA N(2),AN N(4),COD N(20),DATAIREG D,nract N(20),DATAACT D,'+]+; + ['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+; + ['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+; + ['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+; + ['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+; + ['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+; + ['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+; + ['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)'] + pcschema=[''] + pcselect=['select * from ]+gcS+[.vact where 2=2'] + pcorder=[dataact,serie_act,nract] + + + pcfiltru=[id_partD=]+ALLTRIM(STR(id_part))+[ and TRIM(SUBSTR(scd,1,3))='4111' and TRIM(scd)!='4118' and ]+; + [extract(year from dataireg)*12+extract(month from dataireg) between ]+; + ALLTRIM(STR(pnlunaanales))+[ and ]+ALLTRIM(STR(pnlunanan))+gcCondSucursala + + gencursor("poacn1","acn1",pcselect,pcfiltru,pcschema,pcorder,llAfisare) + + + pcfiltru=[dataact0 + PRIVATE pcselect,pcfiltru,pcschema,pcorder,poact,pcnume + STORE "" TO poact,pcnume + pcschema=['DATAIREG D,DATAACT D,SERIE_ACT C(10),nract N(20),PARTD C(50),PARTC C(50),EXPLICATIA C(100),'+]+; + ['SUMA N(19,2),SCD C(4),SCC C(4),FDOC C(30),LUNA N(2),AN N(4),COD N(20),EXPLICATIE_TVA C(100)'] + pcselect=['select dataireg,dataact,serie_act,nract,partd,partc,explicatia,suma,scd,scc,fdoc,luna,an,cod,explicatie_tva '+]+; + ['from ]+gcS+[.vact where 2=2'] + pcorder=[dataact,serie_act,nract] + llAfisare=.F. + lunanan=gnLuna+gnAn*12 + THISFORM.but_TERMIN1.ENABLED=.F. + THISFORM.ALWAYSONTOP=.F. + + SELE actcv + pcnume=denumire + pcfiltru=[luna=]+ALLTRIM(STR(gnLuna))+[ and an=]+ALLTRIM(STR(gnAn))+; + [ and extract(year from dataireg)*12+extract(month from dataireg)<=]+ALLTRIM(STR(lunanan))+; + [ and cod=]+ALLTRIM(STR(cod))+[ and nract=]+ALLTRIM(STR(nract))+; + [ and (id_partc=]+ALLTRIM(STR(id_part))+[ or id_partd=]+ALLTRIM(STR(id_part))+[) ] +; + [ and dataact=to_date(']+DTOS(dataact)+[','YYYY-MM-DD')]+gcCondSucursala + gencursor('poact','ACN1',pcselect,pcfiltru,pcschema,pcorder,llAfisare) + poact.ca_baza1.afisare() + GO TOP + + ORC=CREATEOBJ("frm_debcred") + ORC.lb_titlu_alb_b121.CAPTION="Nota contabila "+ALLTRIM(pcnume) + ORC.lb_titlu1.CAPTION="NOTA CONTABILA" + ORC._grdbase1.REMOVEOBJECT("cUtil") + ORC._grdbase1.REMOVEOBJECT("cDataOra") + ORC.SHOW(1) + + RELEASE poact,ORC + THISFORM.but_TERMIN1.ENABLED=.T. + THISFORM.ALWAYSONTOP=.T. + ELSE + aMessagebox("Nu aveti date in cautare!",48,"Atentie") + THISFORM.ck_nract.SETFOCUS() + ENDIF + + ENDPROC + + PROCEDURE Show + LPARAMETERS nStyle + + dodefault(nStyle) + + * Afisez toate inregistrarile cand intru pentru banca/casa. Sunt putine + IF this.lAfisareTot + This.do_reset() && afisarea tuturor inregistrarilor + ENDIF + + This.WindowState = 2 + + *!* 09.09.2010 + this.gridextra1.setup() + *!* 09.09.2010 ^ + + THIS._grdfooter1.attachtogrid(This._grdbase1) + This._grdfooter1.calcTotal + + *** Inregistrarile selectate GRI + This._grdbase1.SetAll("DynamicBackColor","iif(ales = 1, RGB(150,150,150), RGB(255,255,255))", "Column") + this._grdbase1.HeaderHeight = 53 && se face mic probabil din cauza gridextra sau grdfooter + + + ENDPROC + + PROCEDURE But_start_criterii1.loadcriterii + PARAMETERS tacriterii + EXTERNAL ARRAY tacriterii + #define crlf CHR(13)+CHR(10) + #define lf CHR(10) + #define lf2 CHR(10) + CHR(10) + + lcStringCriterii="Nume\denumire\T\ID_PART\nom_parteneri" + crlf + ; + "Serie act\serie_act\T\none\" + crlf + ; + "Nr. act\nract\N\none\"+ crlf + ; + "Data act\dataact\D\none\" + crlf + ; + "Data inreg.\dataireg\D\none\" + crlf + ; + "Fel document\fel_document\T\ID_FDOC\nom_feldoc" + crlf + ; + "Cod Fiscal\cod_fiscal\T\none\" + crlf + ; + "Sold TVA Neex.\(RO24NT + RO20NT + RO19NT + RO9NT + RO5NT)\N|get_mask(12,gnPA)\none\" + crlf + ; + "Perioada\an*12+luna\D1\none\" + crlf + ; + "Data inreg. in luna\nofiled\E\(extract(year from dataireg) * 12 + extract(month from dataireg) = an*12 + luna)\" + crlf + ; + "Data inreg. nu in luna\nofiled\E\(extract(year from dataireg) * 12 + extract(month from dataireg) <> an*12 + luna)\" + crlf + ; + "Data doc. nu in luna\nofiled\E\(extract(year from dataact) * 12 + extract(month from dataact) <> an*12 + luna)\" + crlf + ; + "EroareTVA\nofiled\E\" + ; + [ ((EXTRACT (YEAR FROM DATAACT) = AN AND EXTRACT (MONTH FROM DATAACT) = LUNA AND ABS(TOTCTVA - (RO24B+RO24T+RO20B+RO20T+RO19B+RO19T+RO9B+RO9T+RO5B+RO5T+ROTI+CESCDD1+CESCDD2+] + ; + [WRSCDD+FODD+FOFDD+WRSCFDD+WRN+CEOPTR+CESVDD+CESVFDD+CESVFS+RO24NB+RO24NT+RO20NB+RO20NT+RO19NB+RO19NT+RO9NB+RO9NT+RO5NB+RO5NT)) >= 1) OR ] + ; + [ABS(RO24T) NOT BETWEEN ROUND(0.238*ABS(RO24B),?gnPc) AND ROUND(0.243*ABS(RO24B),?gnPc) OR ] + ; + [ABS(RO20T) NOT BETWEEN ROUND(0.198*ABS(RO20B),?gnPc) AND ROUND(0.203*ABS(RO20B),?gnPc) OR ] + ; + [ABS(RO19T) NOT BETWEEN ROUND(0.188*ABS(RO19B),?gnPc) AND ROUND(0.193*ABS(RO19B),?gnPc) OR ] + ; + [ABS(RO9T) NOT BETWEEN ROUND(0.088*ABS(RO9B),?gnPc) AND ROUND(0.093*ABS(RO9B),?gnPc) OR ] + ; + [ABS(RO5T) NOT BETWEEN ROUND(0.048*ABS(RO5B),?gnPc) AND ROUND(0.053*ABS(RO5B),?gnPc) OR ] + ; + [ABS(RO24NT) NOT BETWEEN ROUND(0.238*ABS(RO24NB),?gnPc) AND ROUND(0.243*ABS(RO24NB),?gnPc) OR ] + ; + [ABS(RO20NT) NOT BETWEEN ROUND(0.198*ABS(RO20NB),?gnPc) AND ROUND(0.203*ABS(RO20NB),?gnPc) OR ] + ; + [ABS(RO19NT) NOT BETWEEN ROUND(0.188*ABS(RO19NB),?gnPc) AND ROUND(0.193*ABS(RO19NB),?gnPc) OR ] + ; + [ABS(RO9NT) NOT BETWEEN ROUND(0.088*ABS(RO9NB),?gnPc) AND ROUND(0.093*ABS(RO9NB),?gnPc) OR ] + ; + [ABS(RO5NT) NOT BETWEEN ROUND(0.048*ABS(RO5NB),?gnPc) AND ROUND(0.053*ABS(RO5NB),?gnPc))\-\] + ; + "Valoarea TVA difera cu +/- 5% fata de valoarea bazei. Verificati valorile baza si TVA în Registrul Jurnal." + crlf + ; + "Incasari fara TVA Incasare\nofiled\E\2=2\-\" + ; + "Facturi cu sold TVA neexigibil, achitate partial/integral în luna, fara TVA exigibil corespunzator." + lf2 + ; + "Se vor afisa facturile din sistemul TVA încasare pentru care suma achitata din Registrul Jurnal luna curenta " + ; + "este diferita de suma baza si TVA exigibil din Registrul de TVA." + lf2 + ; + "Identificati problema la nivelul fiecarei facturi si se corectati prin adaugarea notei TVA exigibil în Registrul Jurnal." + crlf + ; + "Diferenta sold fact. / neex.\nofiled\E\2=2\-\" + ; + "Resturi de sold TVA neexigibil care nu s-au exigibilizat odata cu achitarea integrala a facturilor." + lf2 + ; + "Se vor afisa facturile din sistemul TVA încasare pentru care soldul facturii este diferit de fata de soldul Baza + TVA neexigibile din Registrul de TVA." + lf2 + ; + "Facturile cu sold 0 si sold neexigibil diferit de 0 semnifica ca facturile au fost achitate, dar nu s-a exigibilizat complet TVA." + lf2 + ; + "Exigibilizati sumele ramase neexigibile." + crlf + ; + IIF(glEMama,[Sucursala\sucursala\C\none\] + crlf,[]) + * "Altele\1\A\REGISTRUL VANZARI - TAXABILE INTERN,REGISTRUL VANZARI - TAXARE INVERSA#ro19b<>0 OR ro19t<>0 OR ro9b<>0 OR ro9t<>0,roti<>0\" + DODEFAULT() + + ENDPROC + + PROCEDURE cbo_tip_jurnal_vanz.Init + This.ListItemId = 1 + ENDPROC + + PROCEDURE cbo_tip_jurnal_vanz.Valid + thisform.do_cauta() + ENDPROC + + PROCEDURE cmdTVAIncasare.Click + *!* 24.05.2011 + *!* marius.mutu + *!* nu se pot introduce documente de pe mama + + *!* 25.08.2014 + *!* marius.mutu + *!* se transmit si soldurile pe cote de TVA 24,9,5 pentru cazul in care soldul total este 0 + SET STEP ON + Local lcXMLFacturi + If !(luna_inchisa Or m.glEMama) + Select *, (RO24NB+RO20NB+RO19NB+RO9NB+RO5NB + RO24NT+RO20NT+RO19NT+RO9NT+RO5NT) as soldn, ; + RO24NB+RO24NT as soldn24, RO20NB+RO20NT as soldn20, RO19NB+RO19NT as soldn19, RO9NB+RO9NT as soldn9, RO5NB+RO5NT as soldn5 ; + From actcv With (Buffering = .T.) ; + Where ales = 1 ; + Into Cursor crsTVAIncasareTemp + + If _Tally > 0 + Cursortoxml('crsTVAIncasareTemp', "lcXMLFacturi", 1, 0, 0, "1") + Use In (Select('crsTVAIncasareTemp')) + + Do inchidere_tva_sold With 'JV', m.lcXMLFacturi IN oproceduri_inchidere.prg + Endif + Use In (Select('crsTVAIncasareTemp')) + Endif + + ENDPROC + + PROCEDURE Gridextra1.applyfilter + DODEFAULT() + Thisform._grdfooter1.calcTotal() + ENDPROC + + PROCEDURE Gridextra1.clearfilter + DODEFAULT() + Thisform._grdfooter1.calcTotal() + ENDPROC + + PROCEDURE _grdbase1.cCod_fiscal.Text1.DblClick + Thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.cDataact.Header1.Init + this.ForeColor =IIF(!EMPTY(this.tag),RGB(0,0,255),RGB(0,0,0)) + ENDPROC + + PROCEDURE _grdbase1.cDataact.Text1.DblClick + Thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.cDenumire.Header1.Init + this.ForeColor =IIF(!EMPTY(this.tag),RGB(0,0,255),RGB(0,0,0)) + ENDPROC + + PROCEDURE _grdbase1.cDenumire.Text1.DblClick + Thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.cFdoc.Text1.DblClick + Thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.cNract.Header1.Init + this.ForeColor =IIF(!EMPTY(this.tag),RGB(0,0,255),RGB(0,0,0)) + ENDPROC + + PROCEDURE _grdbase1.cNract.Text1.DblClick + Thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.cRo24b.Text1.DblClick + Thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.cRo24t.Text1.DblClick + Thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.cRo9b.Text1.DblClick + Thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.cRo9t.Text1.DblClick + Thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.cRoti.Text1.DblClick + Thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.cTotctva.Text1.DblClick + Thisform.butdrept() + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_regvanz2025 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="_grdbase1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFdoc.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFdoc.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cDataact.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cDataact.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cNract.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cNract.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cDenumire.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cDenumire.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCod_fiscal.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCod_fiscal.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTotctva.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTotctva.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo11b.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo11b.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo11t.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo11t.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo9b.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo9b.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo9t.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo9t.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRoti.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRoti.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCescdd1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCescdd1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCescdd2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCescdd2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cWrscdd.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cWrscdd.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFofdd.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFofdd.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFodd.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cFodd.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cWrscfdd.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cWrscfdd.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cWrn.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cWrn.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cSerieAct.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cSerieAct.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo5B.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo5B.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo5T.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo5T.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo19b.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo19b.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo19t.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRo19t.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCesvfs.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCesvfs.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCeoptr.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCeoptr.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCesvdd.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCesvdd.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column27.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column27.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO11NB.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO11NB.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO11NT.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO11NT.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO9NB.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO9NB.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO9NT.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO9NT.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO5NB.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO5NB.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO5NT.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO5NT.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTotftvaTax.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTotftvaTax.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTotTVATax.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTotTVATax.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRONB.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRONB.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRONT.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRONT.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTVAIncasare.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTVAIncasare.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cTVAIncasare.Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cSucursala.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cSucursala.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cAles.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cAles.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cAles._checkbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCont.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cCont.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column42.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column42.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column43.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column43.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column44.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column44.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO21B.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO21B.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO21T.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO21T.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO21NB.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO21NB.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO21NT.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO21NT.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cDataIreg.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cDataIreg.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO19NB.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO19NB.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO19NT.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.cRO19NT.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column52.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column52.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column53.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column53.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column54.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column54.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdfooter1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_reface1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="oMenuShortcut" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cbo_tip_jurnal_vanz" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_verifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_start_criterii1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_reset_criterii1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_shortcuts1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cmdTVAIncasare" UniqueID="" Timestamp="" /> + + * + *m: butdrept + *m: do_listare2013 + *m: grdfooterevent + *m: incaspl + *m: ist_deb_cred + *m: notacontab + *p: lafisaretot && Se afiseaza toate inregistrarile lal intrarea in formular + *p: lvfp9 + *a: aconditie[1,4] + * + + * + cgridsortlist = _grdbase1 + DoCreate = .T. + filtru_pretty = + filtru_pretty_ro = + Height = 500 + lafisaretot = .F. + lvfp9 = .T. + Name = "frm_regvanz2025" + Width = 795 + WindowState = 2 + _memberdata = + + + _shape1.Anchor = 10 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 795 + _shape1.ZOrderSet = 2 + _shape2.Anchor = 8 + _shape2.Height = 29 + _shape2.Left = 672 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 121 + _shape2.ZOrderSet = 3 + Lb_titlu_alb_b121.Caption = "REGISTRUL VANZARI" + Lb_titlu_alb_b121.FontBold = .T. + Lb_titlu_alb_b121.Left = 6 + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 16 + Lb_titlu_alb_b121.Top = 0 + Lb_titlu_alb_b121.ZOrderSet = 4 + BUT_TERMIN1.Anchor = 8 + BUT_TERMIN1.Left = 765 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 10 + BUT_TERMIN1.Top = 1 + BUT_TERMIN1.ZOrderSet = 5 + Gridsort1.Left = 2 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 42 + * + + ADD OBJECT '_grdbase1' AS _grdbase WITH ; + Anchor = 15, ; + ColumnCount = 54, ; + Comment = "*:OnResize=ss", ; + DeleteMark = .F., ; + FontCharSet = 238, ; + FontSize = 10, ; + GridLineColor = 192,192,192, ; + HeaderHeight = 49, ; + Height = 398, ; + Left = 11, ; + Name = "_grdbase1", ; + Panel = 1, ; + ReadOnly = .T., ; + RecordSource = "actcv", ; + RowHeight = 19, ; + TabIndex = 7, ; + Top = 70, ; + Width = 768, ; + ZOrderSet = 2, ; + Column1.ColumnOrder = 1, ; + Column1.ControlSource = "fdoc", ; + Column1.FontCharSet = 238, ; + Column1.FontName = "Arial", ; + Column1.FontSize = 10, ; + Column1.Name = "cFdoc", ; + Column1.ReadOnly = .T., ; + Column1.Width = 109, ; + Column2.ColumnOrder = 2, ; + Column2.ControlSource = "dataact", ; + Column2.FontCharSet = 238, ; + Column2.FontName = "Arial", ; + Column2.FontSize = 10, ; + Column2.Name = "cDataact", ; + Column2.ReadOnly = .T., ; + Column2.Width = 82, ; + Column3.ColumnOrder = 5, ; + Column3.ControlSource = "nract", ; + Column3.FontCharSet = 238, ; + Column3.FontName = "Arial", ; + Column3.FontSize = 10, ; + Column3.Name = "cNract", ; + Column3.ReadOnly = .T., ; + Column3.Width = 109, ; + Column4.ColumnOrder = 6, ; + Column4.ControlSource = "denumire", ; + Column4.FontCharSet = 238, ; + Column4.FontName = "Arial", ; + Column4.FontSize = 10, ; + Column4.Name = "cDenumire", ; + Column4.ReadOnly = .T., ; + Column4.Width = 212, ; + Column5.ColumnOrder = 7, ; + Column5.ControlSource = "cod_fiscal", ; + Column5.FontCharSet = 238, ; + Column5.FontName = "Arial", ; + Column5.FontSize = 10, ; + Column5.Name = "cCod_fiscal", ; + Column5.ReadOnly = .T., ; + Column5.Width = 99, ; + Column6.ColumnOrder = 8, ; + Column6.ControlSource = "totctva", ; + Column6.FontCharSet = 238, ; + Column6.FontName = "Arial", ; + Column6.FontSize = 10, ; + Column6.InputMask = (get_mask(12,gnZ)), ; + Column6.Name = "cTotctva", ; + Column6.ReadOnly = .T., ; + Column6.Width = 121, ; + Column7.ColumnOrder = 17, ; + Column7.ControlSource = "ro11b", ; + Column7.FontCharSet = 238, ; + Column7.FontName = "Arial", ; + Column7.FontSize = 10, ; + Column7.Format = "RK", ; + Column7.InputMask = (get_mask(12,gnZ)), ; + Column7.Name = "cRo11b", ; + Column7.ReadOnly = .T., ; + Column7.Width = 116, ; + Column8.ColumnOrder = 18, ; + Column8.ControlSource = "ro11t", ; + Column8.FontCharSet = 238, ; + Column8.FontName = "Arial", ; + Column8.FontSize = 10, ; + Column8.Format = "RK", ; + Column8.InputMask = (get_mask(12,gnZ)), ; + Column8.Name = "cRo11t", ; + Column8.ReadOnly = .T., ; + Column8.Width = 124, ; + Column9.ColumnOrder = 25, ; + Column9.ControlSource = "ro9b", ; + Column9.FontCharSet = 238, ; + Column9.FontName = "Arial", ; + Column9.FontSize = 10, ; + Column9.InputMask = (get_mask(12,gnZ)), ; + Column9.Name = "cRo9b", ; + Column9.ReadOnly = .T., ; + Column9.Width = 127, ; + Column10.ColumnOrder = 26, ; + Column10.ControlSource = "ro9t", ; + Column10.FontCharSet = 238, ; + Column10.FontName = "Arial", ; + Column10.FontSize = 10, ; + Column10.InputMask = (get_mask(12,gnZ)), ; + Column10.Name = "cRo9t", ; + Column10.ReadOnly = .T., ; + Column10.Width = 112, ; + Column11.ColumnOrder = 33, ; + Column11.ControlSource = "roti", ; + Column11.FontCharSet = 238, ; + Column11.FontName = "Arial", ; + Column11.FontSize = 10, ; + Column11.InputMask = (get_mask(12,gnZ)), ; + Column11.Name = "cRoti", ; + Column11.ReadOnly = .T., ; + Column11.Width = 113, ; + Column12.ColumnOrder = 34, ; + Column12.ControlSource = "cescdd1", ; + Column12.FontCharSet = 238, ; + Column12.FontName = "Arial", ; + Column12.FontSize = 10, ; + Column12.InputMask = (get_mask(12,gnZ)), ; + Column12.Name = "cCescdd1", ; + Column12.ReadOnly = .T., ; + Column12.Width = 130, ; + Column13.ColumnOrder = 36, ; + Column13.ControlSource = "cescdd2", ; + Column13.FontCharSet = 238, ; + Column13.FontName = "Arial", ; + Column13.FontSize = 10, ; + Column13.InputMask = (get_mask(12,gnZ)), ; + Column13.Name = "cCescdd2", ; + Column13.ReadOnly = .T., ; + Column13.Width = 132, ; + Column14.ColumnOrder = 37, ; + Column14.ControlSource = "wrscdd", ; + Column14.FontCharSet = 238, ; + Column14.FontName = "Arial", ; + Column14.FontSize = 10, ; + Column14.InputMask = (get_mask(12,gnZ)), ; + Column14.Name = "cWrscdd", ; + Column14.ReadOnly = .T., ; + Column14.Width = 101, ; + Column15.ColumnOrder = 40, ; + Column15.ControlSource = "fofdd", ; + Column15.FontCharSet = 238, ; + Column15.FontName = "Arial", ; + Column15.FontSize = 10, ; + Column15.InputMask = (get_mask(12,gnZ)), ; + Column15.Name = "cFofdd", ; + Column15.ReadOnly = .T., ; + Column15.Width = 121, ; + Column16.ColumnOrder = 38, ; + Column16.ControlSource = "fodd", ; + Column16.FontCharSet = 238, ; + Column16.FontName = "Arial", ; + Column16.FontSize = 10, ; + Column16.InputMask = (get_mask(12,gnZ)), ; + Column16.Name = "cFodd", ; + Column16.ReadOnly = .T., ; + Column16.Width = 108, ; + Column17.ColumnOrder = 42, ; + Column17.ControlSource = "wrscfdd", ; + Column17.FontCharSet = 238, ; + Column17.FontName = "Arial", ; + Column17.FontSize = 10, ; + Column17.InputMask = (get_mask(12,gnZ)), ; + Column17.Name = "cWrscfdd", ; + Column17.ReadOnly = .T., ; + Column17.Width = 103, ; + Column18.ColumnOrder = 43, ; + Column18.ControlSource = "wrn", ; + Column18.FontCharSet = 238, ; + Column18.FontName = "Arial", ; + Column18.FontSize = 10, ; + Column18.InputMask = (get_mask(12,gnZ)), ; + Column18.Name = "cWrn", ; + Column18.ReadOnly = .T., ; + Column18.Width = 125, ; + Column19.ColumnOrder = 4, ; + Column19.ControlSource = "serie_act", ; + Column19.FontCharSet = 238, ; + Column19.FontName = "Arial", ; + Column19.FontSize = 10, ; + Column19.Name = "cSerieAct", ; + Column19.ReadOnly = .T., ; + Column19.Width = 62, ; + Column20.ColumnOrder = 29, ; + Column20.ControlSource = "ro5b", ; + Column20.FontCharSet = 238, ; + Column20.FontName = "Arial", ; + Column20.FontSize = 10, ; + Column20.InputMask = (get_mask(12,gnZ)), ; + Column20.Name = "cRo5B", ; + Column20.ReadOnly = .T., ; + Column20.Width = 106, ; + Column21.ColumnOrder = 30, ; + Column21.ControlSource = "ro5t", ; + Column21.FontCharSet = 238, ; + Column21.FontName = "Arial", ; + Column21.FontSize = 10, ; + Column21.InputMask = (get_mask(12,gnZ)), ; + Column21.Name = "cRo5T", ; + Column21.ReadOnly = .T., ; + Column21.Width = 116, ; + Column22.ColumnOrder = 21, ; + Column22.ControlSource = "ro19b", ; + Column22.FontCharSet = 238, ; + Column22.FontName = "Arial", ; + Column22.FontSize = 10, ; + Column22.Format = "rk", ; + Column22.InputMask = (get_mask(12,gnZ)), ; + Column22.Name = "cRo19b", ; + Column22.ReadOnly = .T., ; + Column22.Width = 108, ; + Column23.ColumnOrder = 22, ; + Column23.ControlSource = "ro19t", ; + Column23.FontCharSet = 238, ; + Column23.FontName = "Arial", ; + Column23.FontSize = 10, ; + Column23.Format = "rk", ; + Column23.InputMask = (get_mask(12,gnZ)), ; + Column23.Name = "cRo19t", ; + Column23.ReadOnly = .T., ; + Column23.Width = 109, ; + Column24.ColumnOrder = 44, ; + Column24.ControlSource = "cesvfs", ; + Column24.FontCharSet = 238, ; + Column24.FontName = "Arial", ; + Column24.FontSize = 10, ; + Column24.InputMask = (get_mask(12,gnPA)), ; + Column24.Name = "cCesvfs", ; + Column24.ReadOnly = .T., ; + Column24.Width = 119, ; + Column25.ColumnOrder = 35, ; + Column25.ControlSource = "ceoptr", ; + Column25.FontCharSet = 238, ; + Column25.FontName = "Arial", ; + Column25.FontSize = 10, ; + Column25.InputMask = (get_mask(12,gnZ)), ; + Column25.Name = "cCeoptr", ; + Column25.ReadOnly = .T., ; + Column25.Width = 92, ; + Column26.ColumnOrder = 39, ; + Column26.ControlSource = "cesvdd", ; + Column26.FontCharSet = 238, ; + Column26.FontName = "Arial", ; + Column26.FontSize = 10, ; + Column26.InputMask = (get_mask(12,gnZ)), ; + Column26.Name = "cCesvdd", ; + Column26.ReadOnly = .T., ; + Column26.Width = 116, ; + Column27.ColumnOrder = 41, ; + Column27.ControlSource = "cesvfdd", ; + Column27.FontCharSet = 238, ; + Column27.FontName = "Arial", ; + Column27.FontSize = 10, ; + Column27.InputMask = (get_mask(12,gnZ)), ; + Column27.Name = "Column27", ; + Column27.ReadOnly = .T., ; + Column27.Width = 114, ; + Column28.ColumnOrder = 19, ; + Column28.ControlSource = "RO11NB", ; + Column28.FontCharSet = 238, ; + Column28.FontName = "Arial", ; + Column28.FontSize = 10, ; + Column28.Format = (get_mask(12,gnZ)), ; + Column28.InputMask = (get_mask(12,gnZ)), ; + Column28.Name = "cRO11NB", ; + Column28.ReadOnly = .T., ; + Column28.Width = 117, ; + Column29.ColumnOrder = 20, ; + Column29.ControlSource = "RO11NT", ; + Column29.FontCharSet = 238, ; + Column29.FontName = "Arial", ; + Column29.FontSize = 10, ; + Column29.Format = "RK", ; + Column29.InputMask = (get_mask(12,gnZ)), ; + Column29.Name = "cRO11NT", ; + Column29.ReadOnly = .T., ; + Column29.Width = 131, ; + Column30.ColumnOrder = 27, ; + Column30.ControlSource = "RO9NB", ; + Column30.FontCharSet = 238, ; + Column30.FontName = "Arial", ; + Column30.FontSize = 10, ; + Column30.InputMask = (get_mask(12,gnZ)), ; + Column30.Name = "cRO9NB", ; + Column30.ReadOnly = .T., ; + Column30.Width = 115, ; + Column31.ColumnOrder = 28, ; + Column31.ControlSource = "RO9NT", ; + Column31.FontCharSet = 238, ; + Column31.FontName = "Arial", ; + Column31.FontSize = 10, ; + Column31.InputMask = (get_mask(12,gnZ)), ; + Column31.Name = "cRO9NT", ; + Column31.ReadOnly = .T., ; + Column31.Width = 127, ; + Column32.ColumnOrder = 31, ; + Column32.ControlSource = "RO5NB", ; + Column32.FontCharSet = 238, ; + Column32.FontName = "Arial", ; + Column32.FontSize = 10, ; + Column32.InputMask = (get_mask(12,gnZ)), ; + Column32.Name = "cRO5NB", ; + Column32.ReadOnly = .T., ; + Column32.Width = 129, ; + Column33.ColumnOrder = 32, ; + Column33.ControlSource = "RO5NT", ; + Column33.FontCharSet = 238, ; + Column33.FontName = "Arial", ; + Column33.FontSize = 10, ; + Column33.InputMask = (get_mask(12,gnZ)), ; + Column33.Name = "cRO5NT", ; + Column33.ReadOnly = .T., ; + Column33.Width = 141, ; + Column34.ColumnOrder = 9, ; + Column34.ControlSource = "totftvatax", ; + Column34.FontCharSet = 238, ; + Column34.FontName = "Arial", ; + Column34.FontSize = 10, ; + Column34.InputMask = (get_mask(12,gnZ)), ; + Column34.Name = "cTotftvaTax", ; + Column34.ReadOnly = .T., ; + Column34.Width = 93, ; + Column35.ColumnOrder = 10, ; + Column35.ControlSource = "tottvatax", ; + Column35.FontCharSet = 238, ; + Column35.FontName = "Arial", ; + Column35.FontSize = 10, ; + Column35.InputMask = (get_mask(12,gnZ)), ; + Column35.Name = "cTotTVATax", ; + Column35.ReadOnly = .T., ; + Column35.Width = 99, ; + Column36.ColumnOrder = 11, ; + Column36.ControlSource = "RO21NB+RO11NB+RO19NB+RO9NB+RO5NB+RO24NB+RO20NB", ; + Column36.FontCharSet = 238, ; + Column36.FontName = "Arial", ; + Column36.FontSize = 10, ; + Column36.InputMask = (get_mask(12,gnZ)), ; + Column36.Name = "cRONB", ; + Column36.ReadOnly = .T., ; + Column36.Width = 94, ; + Column37.ColumnOrder = 12, ; + Column37.ControlSource = "RO21NT+RO11NT+RO19NT+RO9NT+RO5NT+RO24NT+RO20NT", ; + Column37.FontCharSet = 238, ; + Column37.FontName = "Arial", ; + Column37.FontSize = 10, ; + Column37.InputMask = (get_mask(12,gnZ)), ; + Column37.Name = "cRONT", ; + Column37.ReadOnly = .T., ; + Column37.Width = 84, ; + Column38.ColumnOrder = 45, ; + Column38.ControlSource = "tva_incasare", ; + Column38.CurrentControl = "Check1", ; + Column38.FontCharSet = 238, ; + Column38.FontName = "Arial", ; + Column38.FontSize = 10, ; + Column38.Name = "cTVAIncasare", ; + Column38.ReadOnly = .T., ; + Column38.Sparse = .F., ; + Column38.Width = 29, ; + Column39.ColumnOrder = 48, ; + Column39.ControlSource = "sucursala", ; + Column39.FontCharSet = 238, ; + Column39.FontName = "Arial", ; + Column39.FontSize = 10, ; + Column39.Name = "cSucursala", ; + Column39.ReadOnly = .T., ; + Column39.Width = 193, ; + Column40.ColumnOrder = 46, ; + Column40.ControlSource = "actcv.ales", ; + Column40.CurrentControl = "_checkbox1", ; + Column40.FontCharSet = 238, ; + Column40.FontName = "Arial", ; + Column40.FontSize = 10, ; + Column40.Name = "cAles", ; + Column40.ReadOnly = .F., ; + Column40.Sparse = .F., ; + Column40.Width = 30, ; + Column41.ColumnOrder = 47, ; + Column41.ControlSource = "cont", ; + Column41.FontCharSet = 238, ; + Column41.FontName = "Arial", ; + Column41.FontSize = 10, ; + Column41.Name = "cCont", ; + Column41.ReadOnly = .T., ; + Column41.Width = 56, ; + Column42.ColumnOrder = 49, ; + Column42.ControlSource = "soldf", ; + Column42.FontCharSet = 238, ; + Column42.FontName = "Arial", ; + Column42.FontSize = 10, ; + Column42.InputMask = (get_mask(12,gnZ)), ; + Column42.Name = "Column42", ; + Column42.ReadOnly = .T., ; + Column43.ColumnOrder = 50, ; + Column43.ControlSource = "RO21NB+RO11NB+RO19NB+RO9NB+RO5NB+RO21NT+RO11NT+RO19NT+RO9NT+RO5NT", ; + Column43.FontCharSet = 238, ; + Column43.FontName = "Arial", ; + Column43.FontSize = 10, ; + Column43.InputMask = (get_mask(12,gnZ)), ; + Column43.Name = "Column43", ; + Column43.ReadOnly = .T., ; + Column44.ColumnOrder = 51, ; + Column44.ControlSource = "solddif", ; + Column44.FontCharSet = 238, ; + Column44.FontName = "Arial", ; + Column44.FontSize = 10, ; + Column44.InputMask = (get_mask(12,gnZ)), ; + Column44.Name = "Column44", ; + Column44.ReadOnly = .T., ; + Column44.Width = 104, ; + Column45.ColumnOrder = 13, ; + Column45.ControlSource = "ro21b", ; + Column45.FontCharSet = 238, ; + Column45.FontName = "Arial", ; + Column45.FontSize = 10, ; + Column45.Format = "RK", ; + Column45.InputMask = (get_mask(12,gnZ)), ; + Column45.Name = "cRO21B", ; + Column45.ReadOnly = .T., ; + Column45.Width = 106, ; + Column46.ColumnOrder = 14, ; + Column46.ControlSource = "ro21t", ; + Column46.FontCharSet = 238, ; + Column46.FontName = "Arial", ; + Column46.FontSize = 10, ; + Column46.Format = "RK", ; + Column46.InputMask = (get_mask(12,gnZ)), ; + Column46.Name = "cRO21T", ; + Column46.ReadOnly = .T., ; + Column46.Width = 111, ; + Column47.ColumnOrder = 15, ; + Column47.ControlSource = "ro21nb", ; + Column47.FontCharSet = 238, ; + Column47.FontName = "Arial", ; + Column47.FontSize = 10, ; + Column47.Format = "RK", ; + Column47.InputMask = (get_mask(12,gnZ)), ; + Column47.Name = "cRO21NB", ; + Column47.ReadOnly = .T., ; + Column47.Width = 118, ; + Column48.ColumnOrder = 16, ; + Column48.ControlSource = "ro21nt", ; + Column48.FontCharSet = 238, ; + Column48.FontName = "Arial", ; + Column48.FontSize = 10, ; + Column48.Format = "RK", ; + Column48.InputMask = (get_mask(12,gnZ)), ; + Column48.Name = "cRO21NT", ; + Column48.ReadOnly = .T., ; + Column48.Width = 127, ; + Column49.ColumnOrder = 3, ; + Column49.ControlSource = "dataireg", ; + Column49.FontCharSet = 238, ; + Column49.FontName = "Arial", ; + Column49.FontSize = 10, ; + Column49.Name = "cDataIreg", ; + Column49.ReadOnly = .T., ; + Column49.Width = 98, ; + Column50.ColumnOrder = 23, ; + Column50.ControlSource = "RO19NB", ; + Column50.FontCharSet = 238, ; + Column50.FontName = "Arial", ; + Column50.FontSize = 10, ; + Column50.Format = "R", ; + Column50.InputMask = (get_mask(12,gnZ)), ; + Column50.Name = "cRO19NB", ; + Column50.ReadOnly = .T., ; + Column50.Width = 118, ; + Column51.ColumnOrder = 24, ; + Column51.ControlSource = "RO19NT", ; + Column51.FontCharSet = 238, ; + Column51.FontName = "Arial", ; + Column51.FontSize = 10, ; + Column51.Format = "R", ; + Column51.InputMask = (get_mask(12,gnZ)), ; + Column51.Name = "cRO19NT", ; + Column51.ReadOnly = .T., ; + Column51.Width = 119, ; + Column52.ControlSource = "incasat_tot", ; + Column52.FontCharSet = 238, ; + Column52.FontName = "Arial", ; + Column52.FontSize = 10, ; + Column52.InputMask = (get_mask(12,gnZ)), ; + Column52.Name = "Column52", ; + Column52.ReadOnly = .T., ; + Column53.ControlSource = "incasat_exigibil", ; + Column53.FontCharSet = 238, ; + Column53.FontName = "Arial", ; + Column53.FontSize = 10, ; + Column53.InputMask = (get_mask(12,gnZ)), ; + Column53.Name = "Column53", ; + Column53.ReadOnly = .T., ; + Column54.ControlSource = "diferenta_incasare_tva", ; + Column54.FontCharSet = 238, ; + Column54.FontName = "Arial", ; + Column54.FontSize = 10, ; + Column54.InputMask = (get_mask(12,gnZ)), ; + Column54.Name = "Column54", ; + Column54.ReadOnly = .T. + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_grdbase1.cAles._checkbox1' AS _checkbox WITH ; + Alignment = 2, ; + Caption = "", ; + ControlSource = "ales", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Left = 11, ; + Name = "_checkbox1", ; + ReadOnly = .F., ; + Top = 133 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT '_grdbase1.cAles.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Ales", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cAles.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cCeoptr.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Livr. intracom. bunuri op. triunghiulare", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cCeoptr.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cCescdd1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Livr. intracom. scutite cu drept de ded. conf art 143, alin 2 (a si d)", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cCescdd1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cCescdd2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Livr. intracom. scutite cu drept de ded. conf art 143, alin 2 (b si c)", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cCescdd2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cCesvdd.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Serv. intracom. cu drept de deducere", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cCesvdd.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cCesvfs.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Serv. intracom. fara scutire in statul membru", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cCesvfs.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cCod_fiscal.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "C.I.F. / C.N.P.", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cCod_fiscal.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cCont.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cCont.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cDataact.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data act", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cDataact.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cDataIreg.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data inregistrare", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cDataIreg.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cDenumire.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nume", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cDenumire.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cFdoc.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Fel doc.", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cFdoc.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cFodd.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Locul livr./prest. este in afara RO cu drept deducere", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cFodd.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cFofdd.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Locul livr./prest. este in afara RO fara drept deducere", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cFofdd.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cNract.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. act", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cNract.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column27.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Serv. intracom. fara drept de deducere", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column27.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column42.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sold factura", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column42.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column43.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sold Neexigibil", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column43.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column44.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Diferenta sold (sold fact. - sold neex.)", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column44.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column52.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Incasat in luna", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column52.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column53.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Exigibilizat (Baza+TVA)", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column53.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column54.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Diferenta incasat - exigibilizat", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column54.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRo11b.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxabile la intern =Baza 11%=", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRo11b.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRO11NB.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Neexigibile la intern =Baza 11%=", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRO11NB.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRO11NT.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Neexigibile la intern =TVA 11%=", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRO11NT.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRo11t.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxabile la intern =TVA 11%=", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRo11t.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRo19b.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxabile la intern =Baza 19%=", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRo19b.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRO19NB.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Neexigibile la intern =Baza 19%=", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRO19NB.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRO19NT.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Neexigibile la intern =TVA 19%=", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRO19NT.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRo19t.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxabile la intern =TVA 19%=", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRo19t.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRO21B.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxabile la intern =Baza 21%=", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRO21B.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRO21NB.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Neexigibile la intern =Baza 21%=", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRO21NB.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRO21NT.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Neexigibile la intern =TVA 21%=", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRO21NT.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRO21T.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxabile la intern =TVA 21%=", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRO21T.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRo5B.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxabile la intern =Baza 5%=", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRo5B.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRO5NB.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Neexigibile la intern =Baza 5%=", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRO5NB.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRO5NT.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Neexigibile la intern =TVA 5%=", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRO5NT.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRo5T.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxabile la intern =TVA 5%=", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRo5T.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRo9b.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxabile la intern =Baza 9%=", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRo9b.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRO9NB.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Neexigibile la intern =Baza 9%=", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRO9NB.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRO9NT.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Neexigibile la intern =TVA 9%=", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRO9NT.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRo9t.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxabile la intern =TVA 9%=", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRo9t.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRONB.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Neexigibil =Baza=", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRONB.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRONT.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Neexigibil =TVA=", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRONT.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cRoti.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxabile la intern - Taxare inversa", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cRoti.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cSerieAct.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Serie act", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cSerieAct.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cSucursala.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sucursala", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cSucursala.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cTotctva.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Total cu TVA", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cTotctva.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cTotftvaTax.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Total fara TVA la intern", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cTotftvaTax.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cTotTVATax.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Total TVA la intern", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cTotTVATax.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cTVAIncasare.Check1' AS checkbox WITH ; + Alignment = 2, ; + Caption = "", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Height = 17, ; + Left = 15, ; + Name = "Check1", ; + ReadOnly = .T., ; + Top = 123, ; + Width = 60 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT '_grdbase1.cTVAIncasare.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA Inc.", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cTVAIncasare.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cWrn.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Oper. neimpozabile /neincluse in baza de impozitare", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cWrn.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cWrscdd.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Alte livr. scutite cu drept de deducere", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cWrscdd.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.cWrscfdd.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Scutite fara drept de deducere", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.cWrscfdd.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdfooter1' AS _grdfooter WITH ; + Anchor = 14, ; + ccolwithlabel = cfdoc, ; + Comment = "*:OnResize=sb", ; + csourcegrid = _grdbase1, ; + csumcolumns = cTotctva,cTotfTvaTax,cTotTvaTax,cRONB,cRONT,cRo21b,cRo21t,cRo21Nb,cRo21Nt,cRo11b,cRo11t,cRo11Nb,cRo11Nt,cRo19b,cRo19t,cRo19Nb,cRo19Nt,cRo9b,cRo9t,cRo9Nb,cRo9Nt,cRo5b,cRo5t,cRo5Nb,cRo5Nt,cRoti,cCescdd1,cCescdd2,cWrscdd,cFodd,cFofdd,cWrscfdd,cWrn, ; + ctotallabelexpression = 'TOTAL', ; + Height = 25, ; + Left = 11, ; + Name = "_grdfooter1", ; + TabIndex = 18, ; + Top = 468, ; + Width = 768, ; + ZOrderSet = 3 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'But_excel1' AS but_excel WITH ; + Anchor = 8, ; + Left = 703, ; + Name = "But_excel1", ; + TabIndex = 12, ; + Top = 1, ; + ZOrderSet = 6 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_listare1' AS but_listare WITH ; + Anchor = 8, ; + Left = 734, ; + Name = "But_listare1", ; + TabIndex = 11, ; + Top = 1, ; + Visible = .T., ; + ZOrderSet = 7 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_reface1' AS but_reface WITH ; + Anchor = 8, ; + Comment = "*:OnResize=RT", ; + Left = 674, ; + Name = "But_reface1", ; + TabIndex = 13, ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_reset_criterii1' AS but_reset_criterii WITH ; + Anchor = 9, ; + Left = 584, ; + Name = "But_reset_criterii1", ; + Top = 1, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\ocriterii.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_start_criterii1' AS but_start_criterii WITH ; + Anchor = 9, ; + Left = 614, ; + Name = "But_start_criterii1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\ocriterii.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_verifica1' AS but_verifica WITH ; + Anchor = 8, ; + Left = 645, ; + Name = "But_verifica1", ; + TabIndex = 14, ; + ToolTipText = "Verificare coduri fiscale", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'cbo_tip_jurnal_vanz' AS _combobox WITH ; + Alignment = 0, ; + Anchor = 3, ; + FontCharSet = 238, ; + FontName = "Segoe UI", ; + FontSize = 10, ; + Height = 24, ; + Left = 12, ; + Name = "cbo_tip_jurnal_vanz", ; + RowSource = "Complet,Livrari taxabile la intern,Livrari cu taxare inversa,Livrari scutite cu drept de deducere,Livrari scutite fara drept de deducere,Livrari in afara Romaniei,Operatiuni neimpozabile", ; + RowSourceType = 1, ; + TabIndex = 15, ; + ToolTipText = 'Apasati "Cauta" dupa ce alegeti un tip de vizualizare', ; + Top = 41, ; + Width = 254 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" /> + + ADD OBJECT 'cmdTVAIncasare' AS cmd_executa WITH ; + Anchor = 8, ; + AutoSize = .T., ; + Caption = "\ + + ADD OBJECT 'Gridextra1' AS gridextra WITH ; + allowgridpreferences = .F., ; + companyname = ROA, ; + gridexpression = Thisform._grdbase1, ; + Height = 17, ; + Left = 329, ; + Name = "Gridextra1", ; + Top = 41, ; + Width = 19 + *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> + + ADD OBJECT 'Lb_shortcuts1' AS lb_shortcuts WITH ; + Caption = "CTRL+F = Terminare; ESC = Renuntare; CTRL+Q = Cautare; CTRL+T = Resetare", ; + Left = 6, ; + Name = "Lb_shortcuts1", ; + Top = 16 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'oMenuShortcut' AS menulib WITH ; + Left = 216, ; + Name = "oMenuShortcut", ; + TabIndex = 17, ; + Top = 7, ; + ZOrderSet = 10 + *< END OBJECT: ClassLib="..\comun\clase\utility.vcx" BaseClass="container" /> + + PROCEDURE actualizeaza_grid1 + Lparameters lcFiltru + If Empty(lcFiltru) + lcFiltru = povanz.ca_baza1.cfiltru + Endif + Thisform.MousePointer= 11 + Thisform.LockScreen=.T. + + save_grid_tag(Thisform._grdbase1) + povanz.ca_baza1.cfiltru=lcFiltru + povanz.ca_baza1.afisare() + restore_grid_tag(Thisform._grdbase1) + Thisform._grdfooter1.calcTotal() + + Thisform.LockScreen=.F. + Thisform.MousePointer= 0 + + ENDPROC + + PROCEDURE butdrept + Local loDate As "empty" + Local lcCodFiscal, lcDenumire, lcOptiuniMeniuAnte, lnOptiune, lnRaspuns, loPartener + lcOptiuniMeniuAnte = "\ plata din Registrul Jurnal) + + *!* 25.09.2013 + *!* marius.mutu + *!* FILTRU DIFERENTA SOLD FACTURA - SOLD NEEXIGIBIL (BAZA + TVA) PENTRU FACTURILE TVA INCASARE + + *!* 16.12.2015 + *!* marius.mutu + *!* cota tva 20% + + * 10.01.2022 + * CORECTAT FILTRU DIFERENTE INCASAT - TVA EXIGIBIL PENTRU FACTURILE TVA INCASARE: INCLUSIV TVA 19% + * CORECTAT FILTRU DIFERENTA SOLD FACTURA - SOLD NEEXIGIBIL (BAZA + TVA) PENTRU FACTURILE TVA INCASARE: FARA SOLD 472 + + Local lcFiltru + lcFiltru = [luna=]+Alltrim(Str(gnLuna))+[ and an=]+Alltrim(Str(gnAn))+ gcCondSucursala + + *!* 23.07.2010 + && DACA FILTRUL NU CONTINE PERIOADA, SELECTEZ DOAR INREGISTRARILE DIN LUNA CURENTA + If !'PERIOADA'$Upper(Thisform.filtru_pretty_ro_full) + lcFiltru = [LUNA=]+Alltrim(Str(gnLuna))+[ AND AN=]+Alltrim(Str(gnAn)) + gcCondSucursala + ELSE + lcFiltru = SUBSTR(gcCondSucursala, 6) + Endif + *!* 23.07.2010 ^ + + lnOptiune = Thisform.cbo_tip_jurnal_vanz.ListItemId + + + If Len(Thisform.filtru_pretty)>0 + filtrutext=Thisform.filtru_pretty + If At("AND",filtrutext)=1 + filtrutext=Right(filtrutext,Len(filtrutext)-4) + Endif + + lcFiltru = lcFiltru + IIF(!EMPTY(m.lcFiltru), " and ", "") + Alltrim(filtrutext) + Endif + + Do Case + Case lnOptiune = 1 + Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL VANZARI] + Case lnOptiune = 2 && Livrari taxabile intern + lcFiltru = lcFiltru+ [ and (RO11b<>0 OR RO11t<>0 OR RO21b<>0 OR RO21t<>0 OR ro19b<>0 OR ro19t<>0 OR ro9b<>0 OR ro9t<>0 OR ro5b<>0 OR ro5t<>0 or ] + ; + [RO11nb<>0 OR RO11nt<>0 or RO21nb<>0 OR RO21nt<>0 or ro19nb<>0 OR ro19nt<>0 OR ro9nb<>0 OR ro9nt<>0 OR ro5nb<>0 OR ro5nt<>0)] + Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL VANZARI - TAXABILE INTERN] + Case lnOptiune = 3 && Livrari cu taxare inversa + lcFiltru = lcFiltru + [ and (roti<>0)] + Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL VANZARI - TAXARE INVERSA] + Case lnOptiune = 4 && Livrari scutite cu drept de deducere + lcFiltru = lcFiltru + [ and (cescdd1<>0 or cescdd2<>0 or wrscdd<>0 or ceoptr<>0)] + Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL VANZARI - SCUTITE CU DREPT DE DEDUCERE] + Case lnOptiune = 5 && Livrari scutite fara drept de deducere + lcFiltru = lcFiltru + [ and (wrscfdd<>0)] + Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL VANZARI - SCUTITE FARA DREPT DE DEDUCERE] + Case lnOptiune = 6 && Livrari in afara Romaniei + lcFiltru = lcFiltru + [ and (fofdd<>0 or fodd<>0 or cesvdd<>0 or cesvfdd<>0 or cesvfs<>0)] + Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL VANZARI - IN AFARA ROMANIEI] + Case lnOptiune = 7 && Operatiuni neimpozabile + lcFiltru = lcFiltru + [ and (wrn<>0)] + Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL VANZARI - OPERATIUNI NEIMPOZABILE] + Endcase + + If (This.filtru_pretty#"none") + *** daca sunt inainte de 2013 sau vreau sa vad facturile TVA Incasare cu diferenta sold inregistrari parteneri fata de sold neexigibil + *** pentru exibilizare fortata, arat facturile defalcate dupa id_fact (vjc2010), altfel arat facturile cumulate dupa nract, dataact + if(m.gnAn < 2013 or 'DIFERENTA SOLD'$Upper(Thisform.filtru_pretty_ro_full)) + povanz.ca_baza1.SELECTCMD = STRTRAN(povanz.ca_baza1.SELECTCMD, [vjv2013], [vjv2010],1,1,1) + povanz.ca_baza1.cSelect = STRTRAN(povanz.ca_baza1.cSelect, [vjv2013], [vjv2010],1,1,1) + ELSE + povanz.ca_baza1.SELECTCMD = STRTRAN(povanz.ca_baza1.SELECTCMD, [vjv2010], [vjv2013],1,1,1) + povanz.ca_baza1.cSelect = STRTRAN(povanz.ca_baza1.cSelect, [vjv2010], [vjv2013],1,1,1) + ENDIF + + Thisform.actualizeaza_grid1(lcFiltru) + If Reccount('actcv')=0 + aMESSAGEBOX("Cautarea nu a intors rezultate!",64,"Info cautare") + endif + + *** FILTRU DIFERENTE INCASAT - TVA EXIGIBIL PENTRU FACTURILE TVA INCASARE + If 'TVA INCASARE'$Upper(Thisform.filtru_pretty_ro_full) + + TEXT to lcSql noshow textmerge + select an, + luna, + min(id_fact) as id_fact, + dataact, + nract, + serie_act, + id_part, + id_fdoc, + id_sucursala, + sum(totctva) as totctva, + sum(nvl(total_incasat, 0)) as incasat_tot, + sum(nvl(tva_exigibil, 0)) as incasat_exigibil, + sum(nvl(total_incasat, 0) - tva_exigibil) as diferenta_incasare_tva + from (select a.an, + a.luna, + a.id_fact, + a.dataact, + a.nract, + a.serie_act, + a.id_fdoc, + a.id_sucursala, + a.id_part, + a.totctva, + nvl(b.total_incasat, 0) as total_incasat, + (a.RO11b + a.RO11t + a.RO21b + a.RO21t + a.ro19b + a.ro19t + a.ro9b + a.ro9t + a.ro5b + a.ro5t) as tva_exigibil + from (select an, + luna, + id_fact, + id_sucursala, + id_part, + id_fdoc, + nract, + dataact, + serie_act, + totctva, + RO11b, + RO11t, + RO21b, + RO21t, + ro19b, + ro19t, + ro9b, + ro9t, + ro5b, + ro5t + from jv2007 jc + where an = <> + and luna = <> + and (RO11nb <> 0 + or RO21nb <> 0 + or ro19nb <> 0 + or ro9nb <> 0 + or ro5nb <> 0) <>) a + left join (select an, + luna, + id_sucursala, + (case + when id_jtva_coloana in (2, 4, 14, 16, 28) then + id_fact + else + id_factc + end) as id_fact, + sum(case + when id_jtva_coloana in (2, 4, 14, 16, 28) then + suma + else + 0 + end) as ex, + sum(case + when id_jtva_coloana in (2, 4, 14, 16, 28) then + 0 + else + suma + end) as total_incasat + from act + where sters = 0 + and an = <> + and luna = <> + <> + and (id_jtva_coloana in (2, 4, 14, 16, 28) or + id_factc <> 0) + group by an, + luna, + id_sucursala, + (case + when id_jtva_coloana in + (2, 4, 14, 16, 28) then + id_fact + else + id_factc + end)) b + on a.id_fact = b.id_fact + and a.an = b.an + and a.luna = b.luna + and nvl(a.id_sucursala, 0) = nvl(b.id_sucursala, 0) + where nvl(b.total_incasat, 0.00) <> 0 and nvl(b.total_incasat, 0.00) - + (a.RO11b + a.RO11t + a.RO21b + a.ro19b + a.ro19t + a.RO21t + a.ro9b + a.ro9t + a.ro5b + a.ro5t) <> 0) + group by an, + luna, + dataact, + nract, + serie_act, + id_part, + id_fdoc, + id_sucursala + + ENDTEXT + + llSucces = goExecutor.oExecuta(m.lcSql, "crsDiferenteTVA") + If m.llSucces + Select crsDiferenteTVA + Scan + Scatter Name loDiferenta + With loDiferenta + Select actcv + Locate For nract = .nract And dataact = .dataact And id_part = .id_part And Nvl(serie_act,'') = Nvl(.serie_act,'') And Nvl(id_sucursala,0) = Nvl(.id_sucursala,0) And Nvl(id_fdoc,0) = Nvl(.id_fdoc, 0) + If Found() + Replace diferenta_incasare_tva With .diferenta_incasare_tva, incasat_tot WITH .incasat_tot, incasat_exigibil WITH .incasat_exigibil + Endif + Endwith + Endscan && crsDiferenteTVA + + Select actcv + Set Filter To Nvl(diferenta_incasare_tva, 0) <> 0 + go top in actcv + thisform._grdbase1.Refresh() + THISFORM._grdfooter1.calcTotal + Endif && m.llSucces + Endif && 'TVA INCASARE' + + *** FILTRU DIFERENTA SOLD FACTURA - SOLD NEEXIGIBIL (BAZA + TVA) PENTRU FACTURILE TVA INCASARE + If 'DIFERENTA SOLD'$Upper(Thisform.filtru_pretty_ro_full) + TEXT to lcSql noshow textmerge + select jv.id_fact, + ip.cont, + nvl(ip.sold, 0) as soldf, + (RO11nb + RO11nt + RO21nb + RO21nt + ro19nb + ro19nt + ro9nb + ro9nt + ro5nb + ro5nt) as soldn, + nvl(ip.sold, 0) - (RO11nb + RO11nt + RO21nb + RO21nt + ro19nb + ro19nt + ro9nb + ro9nt + ro5nb + ro5nt) as solddif, + jv.denumire, + jv.nract, + jv.serie_act, + jv.id_sucursala, + jv.id_fdoc, + jv.id_part, + jv.dataact, + jv.totctva, + jv.RO11nb, + jv.RO11nt, + jv.RO21nb, + jv.RO21nt, + jv.ro19nb, + jv.ro19nt, + jv.ro9nb, + jv.ro9nt, + jv.ro5nb, + jv.ro5nt + from vjv2010 jv + left join (select id_fact, + cont, + sum((precdeb + debit) - (preccred + credit)) as sold + from vireg_parteneri + where an = <> + and luna = <> + and SUBSTR(cont,1,1) = '4' and cont not in ('419', '472') + and id_fact in + (select distinct id_fact + from vjv2010 + where an = <> + and luna = <> + and (RO11nt <> 0 or RO21nt <> 0 or ro19nt <> 0 or ro9nt <> 0 or ro5nt <> 0) + and tva_incasare = 1) + group by id_fact, cont) ip + on jv.id_fact = ip.id_fact + where jv.an = <> + and jv.luna = <> + and jv.tva_incasare = 1 + and (jv.RO11nt <> 0 or jv.RO21nt <> 0 or jv.ro19nt <> 0 or jv.ro9nt <> 0 or jv.ro5nt <> 0) + and nvl(ip.sold, 0) - (RO11nb + RO11nt + RO21nb + RO21nt + ro19nb + ro19nt + ro9nb + ro9nt + ro5nb + ro5nt) <> 0 + ENDTEXT + + llSucces = goExecutor.oExecuta(m.lcSql, "crsSoldDif") + If m.llSucces + Select crsSoldDif + Scan + Scatter Name loDiferenta + With loDiferenta + Select actcv + Locate For id_fact = .id_fact && nract = .nract And dataact = .dataact And id_part = .id_part And Nvl(serie_act,'') = Nvl(.serie_act,'') And Nvl(id_sucursala,0) = Nvl(.id_sucursala,0) And Nvl(id_fdoc,0) = Nvl(.id_fdoc, 0) + If Found() + Replace cont With .cont, soldf WITH .soldf, solddif WITH .solddif + Endif + Endwith + Endscan && crsDiferenteTVA + + Select actcv + Set Filter To Nvl(solddif, 0) <> 0 + Go Top In actcv + Thisform._grdbase1.Refresh() + Thisform._grdfooter1.calcTotal + SELECT actcv + Endif && m.llSucces + Endif && DIFERENTA SOLD + + endif && (This.filtru_pretty#"none") + + ENDPROC + + PROCEDURE do_excel + SET STEP ON + do export_excel_grid WITH thisform._grdbase1,"dataact, nract", "", this.lb_titlu_alb_b121.caption IN proceduri_excel.prg + + return + + If Used('actcv') And Reccount('actcv')>0 + Local i,xlsheet,XLApp,tmpsheet + exista_excel=.T. + p1='' + p2='' + With Thisform._grdbase1 + For nCol=1 To .ColumnCount + nColumn=.Columns(nCol).ColumnOrder + p1=p1+.Columns(nCol).ControlSource+',' + p2=p2+Strtran(.Columns(nCol).header1.Caption,Chr(32),'_')+',' + Endfor + p1=Substr(p1,1,Len(p1)-1) + p2=Substr(p2,1,Len(p2)-1) + Endwith + On Error Do exportare With thisform._grdbase1.RecordSource,p1,p2 + tmpsheet = Getobject('','excel.sheet') + On Error + + If exista_excel + Wait Window "Se transmit datele catre Excel..." Nowait + + XLApp = tmpsheet.Application + XLApp.workbooks.Close() + XLApp.workbooks.Add() + poExcel = XLApp.ActiveSheet + + Go Top + poExcel.Cells(1,1).Font.Size=16 + poExcel.Cells(1,1).Font.Bold=.T. + poExcel.Cells(1,1)=Thisform.lb_titlu_alb_b121.Caption+" Luna "+Alltrim(Str(gnLuna))+"/"+Alltrim(Str(gnAn)) + nRows = 3 + With Thisform._grdbase1 + For nCol = 1 To .ColumnCount + nColumn = .Columns(nCol).ColumnOrder + poExcel.Columns(nColumn).ColumnWidth = .Columns(nCol).Width/7.5 + poExcel.Cells(nRows,nColumn) = .Columns(nCol).header1.Caption + poExcel.Cells(nRows,nColumn).Font.Bold = .T. + poExcel.Cells(nRows,nColumn).Interior.ColorIndex = 16 + Endfor + Scan + nRows = nRows + 1 + For nCol = 1 To .ColumnCount + nColumn = .Columns(nCol).ColumnOrder + If At('CHECK',Upper(.Columns(nCol).CurrentControl))>0 + poExcel.Cells(nRows,nColumn)=Iif(Eval(.Columns(nCol).ControlSource)==0,'NU','DA') + Else + poExcel.Cells(nRows,nColumn) = Eval(.Columns(nCol).ControlSource) + Endif + Endfor + Endscan + Endwith + + XLApp.Visible = .T. + Endif + Endif + + + ENDPROC + + PROCEDURE do_listare + Private pctitlu, pcSubtitlu, pcdataora + lnTipJurnal = Thisform.cbo_tip_jurnal_vanz.ListItemId - 1 + + x=xmenu("Registru Vanzari;\-;Recapitulatie - Registru Vanzari;\-;Registru Vanzari restrans") + + pctitlu = [JURNAL DE VANZARI ] + Alltrim(Substr(Thisform.lb_tITLU_ALB_B121.Caption,At([-],Thisform.lb_tITLU_ALB_B121.Caption,1))) + Store "" To pcSubtitlu + If This.filtru_traducere()#"" + lctext=" si "+This.filtru_traducere() + Else + lctext="" + Endif + + pcSubtitlu = This.filtru_pretty_ro + lctext + + + *!* pcdataora = get_ora(2) + + Do Case + Case lnTipJurnal = 1 + pcSubtitlu = "LIVRARI TAXABILE LA INTERN" + Case lnTipJurnal = 2 + pcSubtitlu = "LIVRARI CU TAXARE INVERSA" + Case lnTipJurnal = 3 + pcSubtitlu = "LIVRARI SCUTITE CU DREPT DE DEDUCERE" + Case lnTipJurnal = 4 + pcSubtitlu = "LIVRARI SCUTITE FARA DREPT DE DEDUCERE" + Case lnTipJurnal = 5 + pcSubtitlu = "LIVRARI IN AFARA ROMANIEI" + Case lnTipJurnal = 6 + pcSubtitlu = "OPERATIUNI NEIMPOZABILE" + Endcase + + If x = 1 + && REGISTRU TVA LUNA CURENTA + Select 0 As tip, * ; + FROM actcv ; + INTO Cursor cListRC ; + ORDER By dataact, nract ; + READWRITE + Endif + + && REGISTRE TVA RECAPITULATIE + If x = 3 + && REGISTRU TVA LUNA CURENTA + Select 0 As tip, * ; + FROM actcv ; + INTO Cursor cListRC ; + ORDER By dataact, nract ; + READWRITE + + Private pnAn, pnLuna + pnAn = 0 + pnLuna = 0 + locaut = Createobject('frm_caut_anluna') + locaut.Show(1) + If buton = 2 + Return + Endif + + If lnTipJurnal <> 0 + Do Case + Case lnTipJurnal = 1 && Livrari taxabile intern + lcWhere = "(RO11b<>0 OR RO11t<>0 OR RO21b<>0 OR RO21t<>0 OR ro19b<>0 or ro19t<>0 OR ro9b<>0 OR ro9t<>0 OR ro5b<>0 OR ro5t<>0 )" + Case lnTipJurnal = 2 && Livrari cu taxare inversa + lcWhere = "(roti<>0)" + Case lnTipJurnal = 3 && Livrari scutite cu drept de deducere + lcWhere = "(cescdd1<>0 or cescdd2<>0 or wrscdd<>0 or ceoptr<>0)" + Case lnTipJurnal = 4 && Livrari scutite fara drept de deducere + lcWhere = "(wrscfdd<>0)" + Case lnTipJurnal = 5 && Livrari in afara Romaniei + lcWhere = "(fofdd<>0 or fodd<>0 or cesvdd<>0 or cesvfdd<>0 or cesvfs<>0)" + Case lnTipJurnal = 6 && Operatiuni neimpozabile + lcWhere = "(wrn<>0)" + Endcase + Else + lcWhere = '' + Endif + + + lcSelect = [select 1 as tip, an, luna, to_date('','ddmmyyyy') as dataact, 000000000 as nract,] + ; + [ (select numeluna from lunilean where nrluna = luna) as denumire,' ' as cod_fiscal, ] +; + [SUM(TOTCTVA) AS TOTCTVA, ] + ; + [SUM(CESCDD1) AS CESCDD1, SUM(CESCDD2) AS CESCDD2,SUM(CEOPTR) as CEOPTR, ] + ; + [SUM(FODD) AS FODD, SUM(FOFDD) AS FOFDD,SUM(CESVDD) as CESVDD, SUM(CESVFDD) AS CESVFDD,SUM(CESVFS) AS CESVFS,] + ; + [SUM(ROTI) AS ROTI, ] + ; + [SUM(RO11B) AS RO11B, SUM(RO11T) AS RO11T, SUM(RO21B) AS RO21B, SUM(RO21T) AS RO21T, SUM(RO19B) AS RO19B, SUM(RO19T) AS RO19T, SUM(RO9B) AS RO9B, SUM(RO9T) AS RO9T, ] + ; + [SUM(RO5B) AS RO5B, SUM(RO5T) AS RO5T,]+; + [SUM(WRN) AS WRN, SUM(WRSCDD) AS WRSCDD, SUM(WRSCFDD) AS WRSCFDD ] + ; + [ FROM VJV2010 ] + ; + [ WHERE (an*12+luna between ?pnAn*12 + ?pnLuna and ?gnAn*12 + ?gnLuna) ] + Iif(!Empty(lcWhere), " and " + lcWhere, "") + ; + gcCondSucursala + ; + [ GROUP BY an, luna ] + ; + [ ORDER BY an, luna ] + + lnSucces = goExecutor.oExecute(lcSelect, "crsTotal") + If lnSucces < 0 + amessagebox(goExecutor.cEroare,0+16,"Eroare") + Else + Select cListRC + Append From Dbf('crsTotal') + Use In crsTotal + Endif + Endif && x = 3 + + If x = 5 + x = raport_regvanz2007_restrans(x,[actcv]) + Endif + + If Inlist(x,1,3,5) + *!* If Reccount('cListRC') = 0 + *!* amessagebox("Nu exista inregistrari pentru listare!",48,"Atentie") + *!* Else + *!* Thisform.AlwaysOnTop=.F. + *!* Select cListRC + *!* Report Format registru_vanzari_jtva2007 To Printer Prompt Preview + *!* Thisform.AlwaysOnTop=.T. + *!* Endif + Thisform.AlwaysOnTop = .F. + goExport.export2frx([cListRC],[registru_vanzari_jtva2010]) + + *!* registru vanzari 5% + Select cListRC + Set Filter To ro19b<>0 Or ro19t<>0 OR ro5b<>0 Or ro5t<>0 OR cesvfs <> 0 && modificare v 2.0.128 : am adaugat cesvfs + GO TOP + If !EMPTY(denumire) + goExport.export2frx([cListRC],[registru_vanzari_jtva2010_2]) + Endif + *!* registru vanzari 5% ^ + Thisform.AlwaysOnTop = .T. + Endif + + If Used('cListRC') + Use In cListRC + Endif + + + ENDPROC + + PROCEDURE do_listare2013 + *!* 14.03.2013 + *!* marius.mutu + *!* corectare mai multe facturi cu acelasi cod (nota fara predefinire) - nu aparea nume, nract, dataact in listare + + *!* 23.09.2013 + *!* marius.mutu + *!* Se includ si facturile fara TVA INCASARE cu valoare 0 + + *!* 17.10.2013 + *!* marius.mutu + *!* la facturile fara TVA Incasare cu valoare 0, aparea o linie goala + + Private pctitlu, pcSubtitlu, pcdataora + Local lcNumeAct, lcSelect, lcSql, lcWhere, lctext, lddata1, lddata2, llSucces, lnCod, lnDiferenta + Local lnIdFact, lnIncasat3, lnMeniu, lnNrCrt, lnNrCrtF, lnNrc, lnPerioada, lnSucces, lnTip, lcSerieAct + Local lnTipJurnal + *:Global pcPerioada, pnAn, pnLuna + + lnTipJurnal = Thisform.cbo_tip_jurnal_vanz.ListItemId - 1 + + pctitlu = [JURNAL DE VANZARI ] + Alltrim(Substr(Thisform.lb_tITLU_ALB_B121.Caption,At([-],Thisform.lb_tITLU_ALB_B121.Caption,1))) + pcSubtitlu = "" + If This.filtru_traducere()#"" + lctext=" si "+This.filtru_traducere() + Else + lctext="" + Endif + + pcSubtitlu = This.filtru_pretty_ro + lctext + pcPerioada = Padl(m.gnLuna,2,'0') + '/' + Alltrim(Str(m.gnAn)) + pcdataora = get_ora(2) + + lnMeniu = xmenu("Registru Vanzari lunar;Registru Vanzari - recapitulatie 3 luni;Registru Vanzari - recapitulatie an curent;Registru Vanzari lunar restrans") + If !Inlist(m.lnMeniu, 1, 2, 3, 4) + Return + Endif + + Do Case + Case lnTipJurnal = 1 + pcSubtitlu = "LIVRARI TAXABILE LA INTERN" + Case lnTipJurnal = 2 + pcSubtitlu = "LIVRARI CU TAXARE INVERSA" + Case lnTipJurnal = 3 + pcSubtitlu = "LIVRARI SCUTITE CU DREPT DE DEDUCERE" + Case lnTipJurnal = 4 + pcSubtitlu = "LIVRARI SCUTITE FARA DREPT DE DEDUCERE" + Case lnTipJurnal = 5 + pcSubtitlu = "LIVRARI IN AFARA ROMANIEI" + Case lnTipJurnal = 6 + pcSubtitlu = "OPERATIUNI NEIMPOZABILE" + Endcase + + If Inlist(m.lnMeniu,1,2,3) + && REGISTRU TVA LUNA CURENTA + Select 0 As tip, * ; + FROM actcv ; + INTO Cursor cListRC ; + ORDER By dataact, nract ; + READWRITE + Endif + + *** FILTRU PENTRU RECAPITULATIE + lcWhere = povanz.ca_baza1.cfiltru + *** STERG LUNA=XX AND AN=XXXX DIN FILTRU (in cazul in care vreau sa aduc si lunile din recapitulatie) + if left(upper(lcWhere),4) = 'LUNA' + lnPos = atc('AN=', lcWhere,1) + if m.lnPos > 0 + lcWhere = alltrim(substr(m.lcWhere, m.lnPos + 11)) + endif + endif + + && REGISTRE TVA RECAPITULATIE + If INLIST(lnMeniu, 2, 3) + Private m.pnAn, m.pnLuna + IF m.lnMeniu = 2 + * recapitulatie 3 luni + lnPerioada = Ceil(m.gnLuna / 3) + pnLuna = (m.lnPerioada - 1) * 3 + 1 + ELSE + * recapitulatie an curent + pnLuna = 1 + ENDIF + pnAn = m.gnAn + + lddata1 = Date(m.pnAn, m.pnLuna, 1) + lddata2 = Date(m.gnAn, m.gnLuna, 1) + + pcPerioada = m.pcPerioada + " * Recap. " + Padl(m.pnLuna, 2, '0') + '/' + Alltrim(Str(m.pnAn)) + ' - ' + Padl(m.gnLuna, 2, '0') + '/' + Alltrim(Str(m.gnAn)) + + + Do Case + Case lnTipJurnal = 1 && Livrari taxabile intern + lcWhere = m.lcWhere + " and (RO11b<>0 OR RO11t<>0 OR ro21b<>0 OR ro21t<>0 OR ro19b<>0 or ro19t<>0 OR ro9b<>0 OR ro9t<>0 OR ro5b<>0 OR ro5t<>0 or RO24b<>0 OR RO24t<>0 OR ro20b<>0 OR ro20t<>0 or " + ; + "RO11nb<>0 OR RO11nt<>0 OR ro21nb<>0 OR ro21nt<>0 OR ro19nb<>0 OR ro19nt<>0 OR ro9nb<>0 OR ro9nt<>0 OR ro5nb<>0 OR ro5nt<>0 or RO24nb<>0 OR RO24nt<>0 OR ro20nb<>0 OR ro20nt<>0 )" + Case lnTipJurnal = 2 && Livrari cu taxare inversa + lcWhere = m.lcWhere + " and (roti<>0)" + Case lnTipJurnal = 3 && Livrari scutite cu drept de deducere + lcWhere = m.lcWhere + " and (cescdd1<>0 or cescdd2<>0 or wrscdd<>0 or ceoptr<>0)" + Case lnTipJurnal = 4 && Livrari scutite fara drept de deducere + lcWhere = m.lcWhere + " and (wrscfdd<>0)" + Case lnTipJurnal = 5 && Livrari in afara Romaniei + lcWhere = m.lcWhere + " and (fofdd<>0 or fodd<>0 or cesvdd<>0 or cesvfdd<>0 or cesvfs<>0)" + Case lnTipJurnal = 6 && Operatiuni neimpozabile + lcWhere = m.lcWhere + " and (wrn<>0)" + Endcase + + TEXT to lcSelect textmerge noshow + select 1 as tip, v.an, v.luna, cast(0 as Number(20)) as cod, to_date('','ddmmyyyy') as dataact, 000000000 as nract, + (select la.numeluna || ' ' || to_char(v.an) from lunilean la where la.nrluna = v.luna) as denumire, + SUM(v.TOTCTVA) AS TOTCTVA, + SUM(v.CESCDD1) AS CESCDD1, SUM(v.CESCDD2) AS CESCDD2,SUM(v.CEOPTR) as CEOPTR, + SUM(v.FODD) AS FODD, SUM(v.FOFDD) AS FOFDD,SUM(v.CESVDD) as CESVDD, SUM(v.CESVFDD) AS CESVFDD,SUM(v.CESVFS) AS CESVFS, + SUM(v.ROTI) AS ROTI, + SUM(v.RO11B) AS RO11B, SUM(v.RO11T) AS RO11T, SUM(v.ro21B) AS ro21B, SUM(v.ro21T) AS ro21T, SUM(v.RO19B) AS RO19B, SUM(v.RO19T) AS RO19T, SUM(v.RO9B) AS RO9B, SUM(v.RO9T) AS RO9T, + SUM(v.RO5B) AS RO5B, SUM(v.RO5T) AS RO5T, + SUM(v.RO24B) AS RO24B, SUM(v.RO24T) AS RO24T, SUM(v.ro20B) AS ro20B, SUM(v.ro20T) AS ro20T, + SUM(v.WRN) AS WRN, SUM(v.WRSCDD) AS WRSCDD, SUM(v.WRSCFDD) AS WRSCFDD + FROM (select <> as an, <> + rownum - 1 as luna from dual connect by level <= <<(m.gnAn*12 + m.gnLuna) - (m.pnAn*12 + m.pnLuna ) + 1>>) l + left JOIN VJV2010 V on v.an = l.an and v.luna = l.luna + WHERE v.an*12+v.luna between ?pnAn*12 + ?pnLuna and ?gnAn*12 + ?gnLuna <> + GROUP BY v.an, v.luna + ORDER BY v.an, v.luna + ENDTEXT + + lnSucces = goExecutor.oExecute(lcSelect, "crsTotal") + If lnSucces < 0 + amessagebox(goExecutor.cEroare,0+16,"Eroare") + Else + Replace All dataact With Gomonth(Date(an, luna, 1), 120) In crsTotal + Replace All cod With Int(Val(Dtos(dataact))) In crsTotal + + Select cListRC + Append From Dbf('crsTotal') + Use In crsTotal + Endif + Endif && lnMeniu = 2 + + If m.lnMeniu = 4 + lnMeniu = raport_regvanz2007_restrans(m.lnMeniu ,[actcv]) + Endif + + *** FORMAT TVA INCASARE 2013 + Select cListRC + Index On denumire + Str(nract, 14, 0) Tag numeact + Index On cod Tag cod + + update_jtva_coloane('JV') + *** SELECTEZ FACTURILE CU TVA_INCASARE CU TOTAL BAZA, TVA, BAZAN, TVAN + Select r.cod, r.id_fact, r.tip, r.denumire, r.nract, r.SERIE_ACT, r.dataact, r.COD_FISCAL, Space(10) As COD_TVA, Space(100) As EXPLICATIE_TVA, r.TOTCTVA, r.TOTFTVATAX, r.TOTTVATAX, TVA_INCASARE, ; + (RO11B + ro21B + RO19B + RO9B + RO5B + RO24B + ro20B + CESCDD1 + CESCDD2 + CEOPTR + FODD + FOFDD + CESVDD + CESVFDD + CESVFS + ROTI + WRN + WRSCDD + WRSCFDD) As BAZA, ; + (RO11T + ro21T + RO19T + RO9T + RO5T + RO24T + ro20T) As TVA, ; + (RO11NB + ro21NB + RO19NB + RO9NB + RO5NB + RO24NB + ro20NB) As BAZAN, ; + (RO11NT + ro21NT + RO19NT + RO9NT + RO5NT + RO24NT + RO20NT) As TVAN, ; + cast(0 As N(14)) As NRACTI, Cast({} As D) As DATAACTI, Space(20) As FDOCI, Cast(0 As N(16, 4)) As INCASAT ; + FROM cListRC r ; + where tip = 0 And TVA_INCASARE = 1 ; + INTO Cursor cListRCTemp READWRITE + + *** SELECTEZ FACTURILE FARA TVA_INCASARE CU TOTAL, BAZA, TVA + goLog.Log('1', 'listare_jv') + *** SELECTEZ FACTURILE FARA TVA_INCASARE CU TOTAL, BAZA, TVA + * tratare bug se bloca la listare doar pe calculatorul Silviei la selectie din (cListRC, jtva_coloane) + * Pe un calculator statea 10 minute pana facea selectia + * Am refacut join-ul ca doua scan-uri + lnOptiuneBug = INT(VAL(NVL(citeste_optiune_utilizator('RC_REGCUMP_LISTARE_BUG'), '0'))) + + + SELECT r.cod, r.id_fact, r.tip, r.denumire, r.nract, r.SERIE_ACT, r.dataact, r.COD_FISCAL, SPACE(20) as COD_TVA, SPACE(250) as EXPLICATIE_TVA, r.TOTCTVA, r.TOTFTVATAX, r.TOTTVATAX, TVA_INCASARE, ; + CAST(0 As N(16, 4)) As BAZA, ; + CAST(0 As N(16, 4)) As TVA ; + FROM cListRC r ; + WHERE .F. ; + INTO Cursor cListRCTemp1 Readwrite + + SELECT cListRC + lcRecc = ALLTRIM(STR(RECCOUNT())) + SCAN FOR tip = 0 AND tva_incasare = 0 + SCATTER NAME loRC + WAIT WINDOW 'Facturi fara TVA Incasare ' + ALLTRIM(STR(RECNO())) + '/'+ m.lcRecc NOWAIT + ADDPROPERTY(loRC,'cod_tva', '') + ADDPROPERTY(loRC,'explicatie_tva', '') + ADDPROPERTY(loRC,'baza',0.00) + ADDPROPERTY(loRC,'tva', 0.00) + + SELECT JTVA_COLOANE + SCAN FOR jv = 1 And INLIST(ALLTRIM(coloana_jv), 'RO11B','RO21B', 'RO19B', 'RO9B', 'RO5B', 'RO24B','RO20B', 'CESCDD1', 'CESCDD2', 'FODD', 'FOFDD', 'CESVDD', ; + 'CESVFDD', 'CESVFS', 'ROTI', 'WRN','WRSCDD','WRSCFDD') + loRC.cod_tva = ALLTRIM(coloana_jv) + loRC.explicatie_tva = ALLTRIM(denumire) + + loRC.baza =Iif(loRC.cod_tva = 'RO11B', loRC.RO11B, ; + Iif(loRC.cod_tva = 'RO21B', loRC.ro21B, ; + IIF(loRC.cod_tva = 'RO19B', loRC.RO19B, ; + IIF(loRC.cod_tva = 'RO9B', loRC.RO9B, ; + IIF(loRC.cod_tva = 'RO5B', loRC.RO5B, ; + IIF(loRC.cod_tva = 'RO24B', loRC.RO24B, ; + IIF(loRC.cod_tva = 'RO20B', loRC.RO20B, ; + IIF(loRC.cod_tva = 'CESCDD1', loRC.CESCDD1 , ; + IIF(loRC.cod_tva = 'CESCDD2', loRC.CESCDD2 , ; + IIF(loRC.cod_tva = 'CEOPTR', loRC.CEOPTR , ; + IIF(loRC.cod_tva = 'FODD', loRC.FODD , ; + IIF(loRC.cod_tva = 'FOFDD', loRC.FOFDD , ; + IIF(loRC.cod_tva = 'CESVDD', loRC.CESVDD , ; + IIF(loRC.cod_tva = 'CESVFDD', loRC.CESVFDD , ; + IIF(loRC.cod_tva = 'CESVFS', loRC.CESVFS , ; + IIF(loRC.cod_tva = 'ROTI', loRC.ROTI , ; + IIF(loRC.cod_tva = 'WRN', loRC.WRN , ; + IIF(loRC.cod_tva = 'WRSCDD', loRC.WRSCDD , ; + IIF(loRC.cod_tva = 'WRSCFDD', loRC.WRSCFDD, ; + 0))))))))))))))))))) + + loRC.tva = Iif(loRC.cod_tva = 'RO11B', loRC.RO11T, ; + Iif(loRC.cod_tva = 'RO21B', loRC.ro21T, ; + IIF(loRC.cod_tva = 'RO19B', loRC.RO19T, ; + IIF(loRC.cod_tva = 'RO9B', loRC.RO9T, ; + IIF(loRC.cod_tva = 'RO5B', loRC.RO5T, ; + IIF(loRC.cod_tva = 'RO24B', loRC.RO24T, ; + IIF(loRC.cod_tva = 'RO20B', loRC.RO20T, ; + 0))))))) + + *!* IF !(loRC.baza = 0 AND loRC.tva = 0) + SELECT cListRCTemp1 + APPEND BLANK + GATHER NAME loRC + *!* ENDIF + + ENDSCAN && JTVA_COLOANE JC = 1 And !Empty(Nvl(J.COLOANA_JC, '')) + ENDSCAN && cListRC tip = 0 AND tva_incasare = 0 + + goLog.Log('2', 'listare_jv') + *** SELECTEZ FACTURILE CU VALOARE 0 + Select distinct cod, id_fact, tip, denumire, nract, SERIE_ACT, dataact, COD_FISCAL, '' as COD_TVA, '' as EXPLICATIE_TVA, TOTCTVA, TOTFTVATAX, TOTTVATAX, TVA_INCASARE, ; + baza, tva ; + FROM cListRCTemp1 ; + WHERE BAZA = 0 And TVA = 0 ; + AND id_fact NOT in (SELECT id_fact FROM cListRCTemp1 Where !(BAZA = 0 And TVA = 0)) ; + INTO CURSOR cListRCTemp2 NOFILTER + goLog.Log('3', 'listare_jv') + Delete From cListRCTemp1 Where BAZA = 0 And TVA = 0 + Select cListRCTemp + Append From Dbf('cListRCTemp1') + Append From Dbf('cListRCTemp2') + Use In (Select('cListRCTemp1')) + Use In (Select('cListRCTemp2')) + + *** SELECTEZ EXPLICATIILE DE TVA 0% EXIGIBILE IN PERIOADA PENTRU FACTURILE CU TVA_INCASARE + Select r.cod, r.id_fact, r.tip, r.denumire, r.nract, r.SERIE_ACT, r.dataact, r.COD_FISCAL, J.COLOANA_JV As COD_TVA, J.denumire As EXPLICATIE_TVA, ; + CAST(Iif(J.COLOANA_JV = 'CESCDD1', r.CESCDD1 , ; + IIF(J.COLOANA_JV = 'CESCDD2', r.CESCDD2 , ; + IIF(J.COLOANA_JV = 'CEOPTR', r.CEOPTR , ; + IIF(J.COLOANA_JV = 'FODD', r.FODD , ; + IIF(J.COLOANA_JV = 'FOFDD', r.FOFDD , ; + IIF(J.COLOANA_JV = 'CESVDD', r.CESVDD , ; + IIF(J.COLOANA_JV = 'CESVFDD', r.CESVFDD , ; + IIF(J.COLOANA_JV = 'CESVFS', r.CESVFS , ; + IIF(J.COLOANA_JV = 'ROTI', r.ROTI , ; + IIF(J.COLOANA_JV = 'WRN', r.WRN , ; + IIF(J.COLOANA_JV = 'WRSCDD', r.WRSCDD , ; + IIF(J.COLOANA_JV = 'WRSCFDD', r.WRSCFDD, ; + 0)))))))))))) As N(16, 4)) As BAZA, ; + 0 As TVA ; + FROM cListRC r, JTVA_COLOANE J ; + WHERE tip = 0 And r.TVA_INCASARE = 1 And J.JV = 1 And !Empty(Nvl(J.COLOANA_JV, '')) And Nvl(J.COTA_TVA, 0) = 0 ; + INTO Cursor cListRCTemp1 Readwrite + goLog.Log('4', 'listare_jv') + Delete From cListRCTemp1 Where BAZA = 0 And TVA = 0 + Select cListRCTemp + Append From Dbf('cListRCTemp1') + Use In (Select('cListRCTemp1')) + + *** ADAUG TVA INCASARE (DIN INCASARI/PLATI, TVA 4427 LA 90 ZILE) + + TEXT to m.lcSql textmerge noshow + select cast(0 as Number(10)) as nrc, a.cod, 2 As tip, jv.id_fact, jv.nract As nract, jv.serie_act, jv.dataact, a.nract As NRACTI, a.dataact As DATAACTI, fdoc.fel_document as FDOCI, p.denumire As denumire, p.COD_FISCAL, + J.COTA_TVA, J2.COLOANA_JV As COD_TVA, J2.denumire As EXPLICATIE_TVA, + round(a.suma * 100 / J.COTA_TVA, 2) As BAZA, a.suma As TVA, + round(a.suma * 100 / J.COTA_TVA, 2) + a.suma As INCASAT, + (select sum(suma) from act a1 where a1.an = ?m.gnAn and a1.luna = ?m.gnLuna and a1.sters = 0 and a1.id_factc = a.id_fact and a1.cod = a.cod) as INCASAT2 + from act a left join jv2007 jv on a.id_fact = jv.id_fact + left join nom_parteneri p on jv.id_part = p.id_part + Left Join JTVA_COLOANE J On a.id_jtva_coloana = J.id_jtva_coloana + LEFT Join JTVA_COLOANE J2 On J.id_jtva_coloana = J2.id_tva + left join nom_fdoc fdoc on a.id_fdoc = fdoc.id_fdoc + where a.an = ?m.gnAn and a.luna = ?m.gnLuna and a.sters = 0 and a.scd = '4428' And a.scc = '4427' And Nvl(a.id_jtva_coloana, 0) <> 0 + and jv.an = ?m.gnAn and jv.luna = ?m.gnLuna and (jv.RO11nt <> 0 or jv.RO21nt <> 0 or jv.ro19nt <> 0 or jv.ro9nt <> 0 or jv.ro5nt <> 0) + order by a.cod, J2.COLOANA_JC + ENDTEXT + + llSucces = goExecutor.oExecuta(m.lcSql, "cListRcTemp1") + goLog.Log('5', 'listare_jv') + If m.llSucces + + *** daca am pus filtru in Registru pe Nume sau altceva + *** sterg incasarile/platile care nu apartin de facturile filtrate + *** ca sa am doar incasarile/platile care tin de filtru + if !empty(m.lcWhere) + delete from cListRcTemp1 where padl(nract,14,'0') + '|' + dtos(dataact) + '|' + padr(denumire,100,' ') not in ; + (select padl(nract,14,'0') + '|' + dtos(dataact) + '|' + padr(denumire,100,' ') from cListRcTemp) + endif + + *** ROTUNJIRE BAZA EXIGIBILA = BAZA INCASAT - TVA EXIGIBIL PENTRU FIECARE INCASARE + *** INCASAT ESTE TOATA SUMA INCASATA, TREBUIE SA CALCULEZ BAZELE AFERENTE TVA-URILOR DIN SUMA INCASATA + Select cListRCTemp1 + Go Top + lnCod = cod + lnNrAct = nract + lcSerieAct = NVL(serie_act, '') + ldDataAct = dataact + lcDenumire = denumire + lnNrc = 0 + Scan + lnNrc = m.lnNrc + 1 + If m.lnCod <> cod Or m.lnNrAct <> nract Or m.lcSerieAct <> NVL(serie_act, '') OR m.ldDataAct <> dataact Or m.lcDenumire <> denumire + lnNrc = 1 + Endif + lnCod = cod + Replace nrc With m.lnNrc + Endscan + + *** adun diferenta la prima baza + Select cod, nract, serie_act, dataact, denumire, INCASAT2, Sum(INCASAT) As INCASAT ; + from cListRCTemp1 ; + group By cod, nract, serie_act, dataact, denumire, INCASAT2 ; + into Cursor cIncasariTVA + + Select cIncasariTVA + Scan + lnCod = cod + lnNrAct = nract + lcSerieAct = NVL(serie_act, '') + ldDataAct = dataact + lcDenumire = denumire + lnIncasat = Nvl(INCASAT, 0) + lnIncasat2 = Nvl(INCASAT2,0) + lnIncasat3 = 0 && suma baza EXPLICATII DE TVA 0% EXIGIBILE + + *!* select cListRcTemp1 + *!* locate for cod = m.lnCod and nrc = 1 + *!* if found() + *!* lnIdFact = id_fact + *!* select cListRcTemp + *!* calculate sum(baza) to lnIncasat3 for id_Fact = m.lnIdFact and tip = 0 and tva = 0 in cListRcTemp && baza TVA 0% + *!* endif + Calculate Sum(BAZA) To lnIncasat3 For denumire = m.lcDenumire And nract = m.lnNrAct AND NVL(serie_act, '') = m.lcSerieAct And dataact = m.ldDataAct And tip = 0 And TVA = 0 In cListRCTemp && baza TVA 0% + lnDiferenta = Iif(m.lnIncasat2 <> 0, m.lnIncasat2 - m.lnIncasat - m.lnIncasat3, 0) + + *** exista posibilitatea ca tva-ul din suma achitata sa nu fie corespunzator intregii sume (daca am si limitare deductibilitate tva) + *** daca este prea mare diferenta dintre suma incasata si baza calculata, nu mai adun diferenta + If Abs(m.lnDiferenta) > 1 + m.lnDiferenta = 0 + Endif + If m.lnDiferenta <> 0 + Select cListRCTemp1 + Locate For cod = m.lnCod And denumire = m.lcDenumire And nract = m.lnNrAct AND NVL(serie_act, '') = m.lcSerieAct And dataact = m.ldDataAct And nrc = 1 + If Found() + Replace INCASAT With INCASAT + m.lnDiferenta, BAZA With BAZA + m.lnDiferenta + Endif + Endif + Endscan + Use In (Select('cIncasariTVA')) + + Update cListRCTemp1 Set nract = 0 Where Isnull(nract) + Update cListRCTemp1 Set denumire = '' Where Isnull(denumire) + Update cListRCTemp1 Set COD_FISCAL = '' Where Isnull(COD_FISCAL) + Update cListRCTemp1 Set FDOCI = '' Where Isnull(FDOCI) + + Select cListRCTemp + Append From Dbf('cListRcTemp1') + + *** ROTUNJIRE BAZA FACTURA - BAZE EXIGIBILE + *** bazele exigibile de pe facturile cu TVA INCASARE + Select nract, dataact, denumire, Sum(BAZA) As BAZA ; + from cListRCTemp ; + where TVA_INCASARE = 0 And tip = 0 And TOTCTVA <> 0 ; + group By nract, dataact, denumire ; + into Cursor cFacturiTVAIncasare + + Select cFacturiTVAIncasare + Scan + lnNrAct = nract + ldDataAct = dataact + lcDenumire = denumire + lnBazaFact = BAZA + *** baza exigibila din tip = 0 (tva 0%) si tip = 2 (incasari/plati) + Calculate Sum(BAZA) To lnBazaExigibila In cListRCTemp For TVA_INCASARE = 0 And Inlist(tip, 0, 2) And TOTCTVA = 0 And denumire = m.lcDenumire And nract = m.lnNrAct And dataact = m.ldDataAct + + lnDiferenta = Iif(m.lnBazaFact <> 0, m.lnBazaFact - m.lnBazaExigibila, 0) + If m.lnDiferenta <> 0 + Select cListRCTemp + Locate For BAZA <> 0 And TVA_INCASARE = 0 And tip = 2 And TOTCTVA = 0 And denumire = m.lcDenumire And nract = m.lnNrAct And dataact = m.ldDataAct + If Found() + Replace INCASAT With BAZA + m.lnDiferenta + TVA, BAZA With BAZA + m.lnDiferenta + Endif + Endif + Endscan + Use In (Select('cFacturiTVAIncasare')) + Endif + Use In (Select('cListRcTemp1')) + goLog.Log('6', 'listare_jv') + *** SELECTEZ INREGISTRARILE TIP = 1 RECAPITULATIE + + SELECT r.cod, r.id_fact, r.tip, r.denumire, r.nract, r.SERIE_ACT, r.dataact, r.COD_FISCAL, SPACE(20) as COD_TVA, SPACE(250) as EXPLICATIE_TVA, r.TOTCTVA, r.TOTFTVATAX, r.TOTTVATAX, TVA_INCASARE, ; + CAST(0 As N(16, 4)) As BAZA, ; + CAST(0 As N(16, 4)) As TVA ; + FROM cListRC r ; + WHERE .F. ; + INTO Cursor cListRCTemp1 Readwrite + + SELECT cListRC + lcRecc = ALLTRIM(STR(RECCOUNT())) + SCAN FOR tip = 1 + SCATTER NAME loRC + WAIT WINDOW 'Recapitulatie ' + ALLTRIM(STR(RECNO())) + '/'+ m.lcRecc NOWAIT + ADDPROPERTY(loRC,'cod_tva', '') + ADDPROPERTY(loRC,'explicatie_tva', '') + ADDPROPERTY(loRC,'baza',0.00) + ADDPROPERTY(loRC,'tva', 0.00) + + SELECT JTVA_COLOANE + SCAN FOR jv = 1 And INLIST(ALLTRIM(coloana_jv), 'RO11B','RO21B', 'RO19B', 'RO9B', 'RO5B', 'RO24B','RO20B', 'CESCDD1', 'CESCDD2', 'FODD', 'FOFDD', 'CESVDD', ; + 'CESVFDD', 'CESVFS', 'ROTI', 'WRN','WRSCDD','WRSCFDD') + loRC.cod_tva = ALLTRIM(coloana_jv) + loRC.explicatie_tva = ALLTRIM(denumire) + + loRC.baza =Iif(loRC.cod_tva = 'RO11B', loRC.RO11B, ; + Iif(loRC.cod_tva = 'RO21B', loRC.RO21B, ; + IIF(loRC.cod_tva = 'RO19B', loRC.RO19B, ; + IIF(loRC.cod_tva = 'RO9B', loRC.RO9B, ; + IIF(loRC.cod_tva = 'RO5B', loRC.RO5B, ; + IIF(loRC.cod_tva = 'RO24B', loRC.RO24B, ; + IIF(loRC.cod_tva = 'RO20B', loRC.RO20B, ; + IIF(loRC.cod_tva = 'CESCDD1', loRC.CESCDD1 , ; + IIF(loRC.cod_tva = 'CESCDD2', loRC.CESCDD2 , ; + IIF(loRC.cod_tva = 'CEOPTR', loRC.CEOPTR , ; + IIF(loRC.cod_tva = 'FODD', loRC.FODD , ; + IIF(loRC.cod_tva = 'FOFDD', loRC.FOFDD , ; + IIF(loRC.cod_tva = 'CESVDD', loRC.CESVDD , ; + IIF(loRC.cod_tva = 'CESVFDD', loRC.CESVFDD , ; + IIF(loRC.cod_tva = 'CESVFS', loRC.CESVFS , ; + IIF(loRC.cod_tva = 'ROTI', loRC.ROTI , ; + IIF(loRC.cod_tva = 'WRN', loRC.WRN , ; + IIF(loRC.cod_tva = 'WRSCDD', loRC.WRSCDD , ; + IIF(loRC.cod_tva = 'WRSCFDD', loRC.WRSCFDD, ; + 0))))))))))))))))))) + + loRC.tva = Iif(loRC.cod_tva = 'RO11B', loRC.RO11T, ; + Iif(loRC.cod_tva = 'RO21B', loRC.RO21T, ; + IIF(loRC.cod_tva = 'RO19B', loRC.RO19T, ; + IIF(loRC.cod_tva = 'RO9B', loRC.RO9T, ; + IIF(loRC.cod_tva = 'RO5B', loRC.RO5T, ; + IIF(loRC.cod_tva = 'RO24B', loRC.RO24T, ; + IIF(loRC.cod_tva = 'RO20B', loRC.RO20T, ; + 0))))))) + + IF !(loRC.baza = 0 AND loRC.tva = 0) + SELECT cListRCTemp1 + APPEND BLANK + GATHER NAME loRC + ENDIF + + ENDSCAN && JTVA_COLOANE JC = 1 And !Empty(Nvl(J.COLOANA_JC, '')) + ENDSCAN && cListRC tip = 0 AND tva_incasare = 0 + + goLog.Log('7', 'listare_jv') + *** adaug si lunile care nu au nimic exigibil + Select Distinct r.cod, r.tip, r.denumire, r.nract, r.SERIE_ACT, r.dataact, r.COD_FISCAL ; + from cListRCTemp1 r ; + where cod Not In (Select cod From cListRCTemp1 Where !(BAZA = 0 And TVA = 0)) ; + into Cursor cListRCTemp2 + + Delete From cListRCTemp1 Where BAZA = 0 And TVA = 0 + Select cListRCTemp + Append From Dbf('cListRCTemp1') + Append From Dbf('cListRCTemp2') + Use In (Select('cListRCTemp1')) + Use In (Select('cListRCTemp2')) + + + *** completez nume, nract, dataact pentru inregistrarile TVA care nu le au completate + Select cListRCTemp + Scan For tip = 2 AND (EMPTY(dataact) OR EMPTY(nract) OR EMPTY(denumire)) + lcNumeAct = denumire + Str(nract, 14, 0) + lnCod = cod + If Seek(m.lnCod, 'cListRC', 'cod') + SELECT cListRCTemp + Replace denumire With cListRC.denumire FOR EMPTY(denumire) + Replace nract With cListRC.nract FOR EMPTY(nract) + Replace dataact With cListRC.dataact FOR EMPTY(dataact) + Else + If Seek(m.lcNumeAct, 'cListRC', 'numeact') + SELECT cListRCTemp + Replace cod With cListRC.cod, dataact With cListRC.dataact + Endif && seek + Endif && seek + Endscan + + Use In (Select('cListRC')) + Select Cast(0 As I) As nrcrt, Cast(0 As I) As nrcrtf, * From cListRCTemp Into Cursor cListRC Order By dataact, nract, denumire, tip Readwrite + + Update cListRC Set tip = 0 Where tip = 2 && incasarile pe acelasi nivel cu facturile + Use In (Select('cListRCTemp')) + + *!* Select Cast(0 As I) As nrcrt, Cast(0 As I) As nrcrtf, Min(cod) As cod, Min(id_fact) As id_fact, tip, denumire, nract, SERIE_ACT, dataact, COD_FISCAL, COD_TVA, EXPLICATIE_TVA, TVA_INCASARE, NRACTI, DATAACTI, FDOCI, ; + *!* sum(INCASAT) As INCASAT, Sum(TOTCTVA) As TOTCTVA, Sum(TOTFTVATAX) As TOTFTVATAX, Sum(TOTTVATAX) As TOTTVATAX, Sum(BAZA) As BAZA, Sum(TVA) As TVA, Sum(BAZAN) As BAZAN, Sum(TVAN) As TVAN ; + *!* from cListRCTemp ; + *!* where tip = 0 ; + *!* group By tip, denumire, nract, SERIE_ACT, dataact, COD_FISCAL, COD_TVA, EXPLICATIE_TVA, TVA_INCASARE, NRACTI, DATAACTI, FDOCI ; + *!* union All ; + *!* SELECT Cast(0 As I) As nrcrt, Cast(0 As I) As nrcrtf, cod, id_fact, tip, denumire, nract, SERIE_ACT, dataact, COD_FISCAL, COD_TVA, EXPLICATIE_TVA, TVA_INCASARE, NRACTI, DATAACTI, FDOCI, ; + *!* INCASAT, TOTCTVA, TOTFTVATAX, TOTTVATAX, BAZA, TVA, BAZAN, TVAN ; + *!* from cListRCTemp ; + *!* where tip <> 0 ; + *!* Into Cursor cListRC ; + *!* Order By 9, 7, 6, 5 Readwrite + + *** STERG NUME, NRACT... DE PE INREGISTRARILE 2..N (EXPLICATII_TVA) PENTRU ACEEASI FACTURA + Select cListRC + Go Top + lnCod = 0 + lnNract = 0 + ldDataAct = {} + lcDenumire = "" + lnNrCrt = 0 + lnNrCrtF = 0 + lcSerieAct = "" + Scan + If m.lcSerieAct <> serie_act OR m.lnNrAct <> nract or m.ldDataAct <> dataact or m.lcDenumire <> denumire && prima linie din fiecare factura + lnCod = cod + lcSerieAct = serie_act + lnNract = nract + ldDataAct = dataact + lcDenumire = denumire + lnNrCrt = m.lnNrCrt + 1 + lnNrCrtF = 1 && numar curent in cadrul fiecarei facturi + Replace nrcrt With m.lnNrCrt, nrcrtf With m.lnNrCrtF + Else && liniile 2..n din facturi + lnNrCrtF = m.lnNrCrtF + 1 + Replace nrcrt With m.lnNrCrt, nrcrtf With m.lnNrCrtF, denumire With '', nract With 0, SERIE_ACT With '', dataact With {}, COD_FISCAL With "", TOTCTVA With 0, TOTFTVATAX With 0, TOTTVATAX With 0 + Endif + Endscan + goLog.Log('8', 'listare_jv') + *** TOTALURI EXIGIBIL PE COTE TVA + *** ADUN FIE INREGISTRARILE DIN LUNA CURENTA TIP = 0, FIE INREGISTRARILE TIP RECAPITULATIE TIP = 1 + lnTip = Iif(Inlist(m.lnMeniu,1,4), 0, 1) + Insert Into cListRC (tip, COD_TVA, EXPLICATIE_TVA, INCASAT, BAZA, TVA) ; + Select 2 As tip, COD_TVA, EXPLICATIE_TVA, Sum(INCASAT) As INCASAT, Sum(BAZA) As BAZA, Sum(TVA) As TVA ; + from cListRC ; + where tip = m.lnTip And !Empty(Nvl(COD_TVA, '')) ; + ORDER By COD_TVA ; + group By COD_TVA, EXPLICATIE_TVA + Select cListRC + + Use In (Select('JTVA_COLOANE')) + *** FORMAT TVA INCASARE 2013 ^ + goLog.Log('9', 'listare_jv') + + If Reccount('cListRC') > 0 + Thisform.AlwaysOnTop = .F. + + IF AMESSAGEBOX('Doriti listare clasica?',4+32,_screen.Caption) = 6 + goExport.export2frx([cListRc], [registru_jtva2013]) + ELSE + goExport.export2frx([cListRc], [registru_jtva2013], , , , , , .T.) + ENDIF + + Thisform.AlwaysOnTop = .T. + Endif + + Use In (Select('cListRC')) + + + + + ENDPROC + + PROCEDURE do_reface + lnAn = gnAn + lnLuna = gnLuna + lnSucces = refacere([TVA_2007],[],[JV],lnLuna,lnAn)&& IN orefaceri.prg + If lnSucces > 0 + Thisform.actualizeaza_grid1() + *** verificare INAINTE_DE + lcCoresp = ['4111'] + lcExceptii = ['667,622'] + *!* Do inainte With "VANZ2007",,,,lcExceptii,lcCoresp In oinainte_de.prg + + *this.LockScreen = .f. + This._grdbase1.SetFocus + aMESSAGEBOX("Refacerea s-a terminat!",64,"Info refacere") + Endif + + + ENDPROC + + PROCEDURE do_reset + *!* Thisform.ck_dataact.Value=0 + *!* *Thisform.ck_fel_document.Value=0 + *!* Thisform.ck_nract.Value=0 + *!* Thisform.ck_denumire.Value=0 + *!* Thisform.ck_eROARE_TVA.Value=0 + Thisform.cbo_tip_jurnal_vanz.ListItemId = 1 + + IF NOT PEMSTATUS(thisform,"filtru_pretty",5) + thisform.AddProperty("filtru_pretty") + ENDIF + IF NOT PEMSTATUS(thisform,"filtru_pretty_ro",5) + thisform.AddProperty("filtru_pretty_ro") + ENDIF + + thisform.filtru_pretty="" + thisform.filtru_pretty_ro="" + Thisform.but_start_criterii1.SetFocus + Thisform.Refresh + thisform.but_start_criterii1.pornit="nu" + thisform.do_cauta() + + ENDPROC + + PROCEDURE do_termin + THIS.BUT_STArt_criterii1.RESETstatus() + DODEFAULT() + ENDPROC + + PROCEDURE do_verifica + Local loDate As "empty" + Local lcCodFiscal, lcDenumire, lcFilter, lcSelect, lcWhere, llAutoVerificare, llDontCloseCursor + Local llExperimental, llMFIN, llServiciuWebANAF, llValidare, llVerificarePlatitorTVA, lnOptiune + Local lnRaspuns, loPartener + lcSelect = SELECT() + + SELECT actcv + lcDenumire = Alltrim(Nvl(actcv.denumire, '')) + lcCodFiscal = Alltrim(Nvl(actcv.cod_fiscal, '')) + + lnOptiune = XMENU('VERIFICA... ' + m.lcDenumire + ' - ANAF; VERIFICA TOTI PARTENERII - ANAF') + + If EMPTY(m.lnOptiune) + Return + Endif + * Pot sa fac verificarea pentru un singur nume si cu formularul pentru mai multi parteneri, dar arata mai dragut informatia intr-un messagebox pentru unul singur + If INLIST(m.lnOptiune, 1, 4) && un singur nume + loPartener = Null + loDate = Createobject("empty") + + AddProperty(loDate, "denumire", m.lcDenumire) + AddProperty(loDate, "cod_fiscal", m.lcCodFiscal) + AddProperty(loDate, "tip_verificare", "ANAF_SERVICIU_WEB") + + lnRaspuns = VerificaCodFiscal(loDate, @lnOptiune, @loPartener) + Else + llDontCloseCursor = .F. + llExperimental = .F. + llVerificarePlatitorTVA = .F. && verific VIES pentru toti partenerii + llMFIN = .T. && verific MFIN pentru toata lumea + llValidare = .T. && verific algoritmul codurilor fiscale + llAutoVerificare = .T. && lanseaza verificarea automata la activate-ul formularului de verificare + llServiciuWebANAF = .T. + + lcFilter = Filter("actcv") + lcWhere = Iif(m.lnOptiune = 1, "recno() = " + Alltrim(Str(Recno())), Iif(!Empty(m.lcFilter), m.lcFilter, ".T.")) + Select Distinct cod_fiscal, denumire, Iif(Left(Upper(cod_fiscal), 2) = "RO", "RO", " ") As ATRIBUT_FISCAL, .T. As IsCIF, .F. As codvalid ; + From actcv ; + Where &lcWhere ; + Into Cursor crsCoduriFiscale ; + Order By denumire, cod_fiscal ; + Readwrite + + + Local lcXMLParteneri + lcXMLParteneri = "" + Cursortoxml('crsCoduriFiscale', "lcXMLParteneri", 1, 0, 0, "1") + + Do verificare_parteneri With m.lcXMLParteneri, m.llValidare, m.llMFIN, m.llVerificarePlatitorTVA, m.llAutoVerificare, m.llDontCloseCursor, m.llExperimental, m.llServiciuWebANAF + Endif && x = 1 + + SELECT (m.lcSelect) + ENDPROC + + PROCEDURE grdfooterevent + LPARAMETERS toObj, tcEvt + + IF TYPE('this._grdfooter1') = 'O' + IF PEMSTATUS(this._grdfooter1, "eventhandler", 5) + this._grdfooter1.eventhandler(,toObj,tcEvt) + ENDIF + ENDIF + ENDPROC + + PROCEDURE grid_sort_bind + *!* 09.09.2010 + *!* am folosit gridextra + *!* nu sterge + *!* 09.09.2010 ^ + ENDPROC + + PROCEDURE inainte_de_do_listare + If This.lactiv2 + If gnAn >= 2013 + This.do_listare2013() + Else + This.do_listare() + Endif + Endif + ENDPROC + + PROCEDURE incaspl + Private pnlunanan,pcselect,pcfiltru,pcschema,pcorder,llAfisare,poact + Store "" To poact + Store .F. To llAfisare + Store 0 To pnlunanan + + pnlunanan=gnAn*12+gnLuna + CN='4111' + Thisform.but_teRMIN1.Enabled=.F. + Thisform.AlwaysOnTop=.F. + + pcschema=['ID_ACT N(20),LUNA N(2),AN N(4),COD N(20),DATAIREG D,nract N(20),DATAACT D,'+]+; + ['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+; + ['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+; + ['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+; + ['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+; + ['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+; + ['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+; + ['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)'] + pcschema=[''] + pcselect=['select partD,dataact,serie_act,nract,dataireg,suma,perecheC,util,dataora,fdoc,scc,scd,partC,explicatia,explicatie_tva '+]+; + ['from ]+gcS+[.vact where 2=2'] + pcorder=[dataact,serie_act,nract] + + Select actcv + pcTitlu="INCASARI LA FACTURA NR. "+Alltrim(Str(nract)) + pcfiltru=[id_partc=]+Alltrim(STR(id_part))+[ and extract(year from dataireg)*12+extract(month from dataireg)<=]+Alltrim(Str(pnlunanan))+[ ]+; + [and (perecheC=]+Alltrim(Str(nract))+[ or nract=']+Alltrim(Str(nract))+[')]+gcCondSucursala + gencursor("poact","acn1",pcselect,pcfiltru,pcschema,pcorder,llAfisare) + poact.ca_baza1.afisare() + + ORC=Createobj("frm_debcred") + ORC.Lb_titlu_alb_b121.Caption=pcTitlu + ORC.lb_titlu1.Caption=pcTitlu + ORC.Show(1) + + pcTitlu="" + Thisform.AlwaysOnTop=.T. + Thisform.but_teRMIN1.Enabled=.T. + If Used('acn1') + Use In acn1 + Endif + Release ORC,poact + ENDPROC + + PROCEDURE Init + LPARAMETERS tlAfisareTot + * tlAfisareTot = .T. daca se afiseaza toate inregistrarile la intrarea in formular + + This.lAfisareTot = m.tlAfisareTot + + DoDefault() + If !glEMama + Thisform._grdbase1.RemoveObject([cSucursala]) + ENDIF + + + ENDPROC + + PROCEDURE ist_deb_cred + PRIVATE pnlunanan,lul,pcselect,pcschema,pcfiltru,pcorder,llAfisare,poacn1,poacn2,pcdatacrt,pcnume,luna,anul,pnlunaanales,pniesire + STORE 0 TO pnlunanan,pniesire + STORE .F. TO llAfisare + STORE "" TO lul,poacn1,poacn2 + pnlunanan=gnAn*12+gnLuna + pcdatacrt=ALLTRIM(STR(gnAn))+PADL(ALLTRIM(STR(gnLuna)),2,'0')+[01] && prima zi a lunii + + THISFORM.but_termin1.ENABLED=.F. + THISFORM.ALWAYSONTOP= .F. + + lul=gnLuna && ?? + pcanul="00" + pcluna="00" + SELECT calendar + ose=CREATEOBJECT('frm_seleluna') + ose.SHOW(1) + IF pniesire=2 + THISFORM.but_termin1.ENABLED=.T. + THISFORM.ALWAYSONTOP= .T. + RETURN + ENDIF + + pnlunaanales=VAL(pcanul)*12+VAL(pcluna) + SELECT actcv + pcnume=denumire + pcschema=['ID_ACT N(20),LUNA N(2),AN N(4),COD N(20),DATAIREG D,nract N(20),DATAACT D,'+]+; + ['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+; + ['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+; + ['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+; + ['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+; + ['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+; + ['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+; + ['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)'] + pcschema=[''] + pcselect=['select * from ]+gcS+[.vact where 2=2'] + pcorder=[dataact,serie_act,nract] + + + pcfiltru=[id_partD=]+ALLTRIM(STR(id_part))+[ and TRIM(SUBSTR(scd,1,3))='4111' and TRIM(scd)!='4118' and ]+; + [extract(year from dataireg)*12+extract(month from dataireg) between ]+; + ALLTRIM(STR(pnlunaanales))+[ and ]+ALLTRIM(STR(pnlunanan))+gcCondSucursala + + gencursor("poacn1","acn1",pcselect,pcfiltru,pcschema,pcorder,llAfisare) + + + pcfiltru=[dataact0 + PRIVATE pcselect,pcfiltru,pcschema,pcorder,poact,pcnume + STORE "" TO poact,pcnume + pcschema=['DATAIREG D,DATAACT D,SERIE_ACT C(10),nract N(20),PARTD C(50),PARTC C(50),EXPLICATIA C(100),'+]+; + ['SUMA N(19,2),SCD C(4),SCC C(4),FDOC C(30),LUNA N(2),AN N(4),COD N(20),EXPLICATIE_TVA C(100)'] + pcselect=['select dataireg,dataact,serie_act,nract,partd,partc,explicatia,suma,scd,scc,fdoc,luna,an,cod,explicatie_tva '+]+; + ['from ]+gcS+[.vact where 2=2'] + pcorder=[dataact,serie_act,nract] + llAfisare=.F. + lunanan=gnLuna+gnAn*12 + THISFORM.but_TERMIN1.ENABLED=.F. + THISFORM.ALWAYSONTOP=.F. + + SELE actcv + pcnume=denumire + pcfiltru=[luna=]+ALLTRIM(STR(gnLuna))+[ and an=]+ALLTRIM(STR(gnAn))+; + [ and extract(year from dataireg)*12+extract(month from dataireg)<=]+ALLTRIM(STR(lunanan))+; + [ and cod=]+ALLTRIM(STR(cod))+[ and nract=]+ALLTRIM(STR(nract))+; + [ and (id_partc=]+ALLTRIM(STR(id_part))+[ or id_partd=]+ALLTRIM(STR(id_part))+[) ] +; + [ and dataact=to_date(']+DTOS(dataact)+[','YYYY-MM-DD')]+gcCondSucursala + gencursor('poact','ACN1',pcselect,pcfiltru,pcschema,pcorder,llAfisare) + poact.ca_baza1.afisare() + GO TOP + + ORC=CREATEOBJ("frm_debcred") + ORC.lb_titlu_alb_b121.CAPTION="Nota contabila "+ALLTRIM(pcnume) + ORC.lb_titlu1.CAPTION="NOTA CONTABILA" + ORC._grdbase1.REMOVEOBJECT("cUtil") + ORC._grdbase1.REMOVEOBJECT("cDataOra") + ORC.SHOW(1) + + RELEASE poact,ORC + THISFORM.but_TERMIN1.ENABLED=.T. + THISFORM.ALWAYSONTOP=.T. + ELSE + aMessagebox("Nu aveti date in cautare!",48,"Atentie") + THISFORM.ck_nract.SETFOCUS() + ENDIF + + ENDPROC + + PROCEDURE Show + LPARAMETERS nStyle + + dodefault(nStyle) + + * Afisez toate inregistrarile cand intru pentru banca/casa. Sunt putine + IF this.lAfisareTot + This.do_reset() && afisarea tuturor inregistrarilor + ENDIF + + This.WindowState = 2 + + *!* 09.09.2010 + this.gridextra1.setup() + *!* 09.09.2010 ^ + + THIS._grdfooter1.attachtogrid(This._grdbase1) + This._grdfooter1.calcTotal + + *** Inregistrarile selectate GRI + This._grdbase1.SetAll("DynamicBackColor","iif(ales = 1, RGB(150,150,150), RGB(255,255,255))", "Column") + this._grdbase1.HeaderHeight = 53 && se face mic probabil din cauza gridextra sau grdfooter + + + ENDPROC + + PROCEDURE But_start_criterii1.loadcriterii + PARAMETERS tacriterii + EXTERNAL ARRAY tacriterii + #define crlf CHR(13)+CHR(10) + #define lf CHR(10) + #define lf2 CHR(10) + CHR(10) + + lcStringCriterii="Nume\denumire\T\ID_PART\nom_parteneri" + crlf + ; + "Serie act\serie_act\T\none\" + crlf + ; + "Nr. act\nract\N\none\"+ crlf + ; + "Data act\dataact\D\none\" + crlf + ; + "Data inreg.\dataireg\D\none\" + crlf + ; + "Fel document\fel_document\T\ID_FDOC\nom_feldoc" + crlf + ; + "Cod Fiscal\cod_fiscal\T\none\" + crlf + ; + "Sold TVA Neex.\(RO11NT + RO21NT + RO19NT + RO9NT + RO5NT)\N|get_mask(12,gnPA)\none\" + crlf + ; + "Perioada\an*12+luna\D1\none\" + crlf + ; + "Data inreg. in luna\nofiled\E\(extract(year from dataireg) * 12 + extract(month from dataireg) = an*12 + luna)\" + crlf + ; + "Data inreg. nu in luna\nofiled\E\(extract(year from dataireg) * 12 + extract(month from dataireg) <> an*12 + luna)\" + crlf + ; + "Data doc. nu in luna\nofiled\E\(extract(year from dataact) * 12 + extract(month from dataact) <> an*12 + luna)\" + crlf + ; + "EroareTVA\nofiled\E\" + ; + [ ((EXTRACT (YEAR FROM DATAACT) = AN AND EXTRACT (MONTH FROM DATAACT) = LUNA AND ABS(TOTCTVA - (RO11B+RO11T+RO21B+RO21T+RO19B+RO19T+RO9B+RO9T+RO5B+RO5T+ROTI+CESCDD1+CESCDD2+] + ; + [WRSCDD+FODD+FOFDD+WRSCFDD+WRN+CEOPTR+CESVDD+CESVFDD+CESVFS+RO11NB+RO11NT+RO21NB+RO21NT+RO19NB+RO19NT+RO9NB+RO9NT+RO5NB+RO5NT)) >= 1) OR ] + ; + [ABS(RO11T) NOT BETWEEN ROUND(0.108*ABS(RO11B),?gnPc) AND ROUND(0.113*ABS(RO11B),?gnPc) OR ] + ; + [ABS(RO21T) NOT BETWEEN ROUND(0.208*ABS(RO21B),?gnPc) AND ROUND(0.213*ABS(RO21B),?gnPc) OR ] + ; + [ABS(RO19T) NOT BETWEEN ROUND(0.188*ABS(RO19B),?gnPc) AND ROUND(0.193*ABS(RO19B),?gnPc) OR ] + ; + [ABS(RO9T) NOT BETWEEN ROUND(0.088*ABS(RO9B),?gnPc) AND ROUND(0.093*ABS(RO9B),?gnPc) OR ] + ; + [ABS(RO5T) NOT BETWEEN ROUND(0.048*ABS(RO5B),?gnPc) AND ROUND(0.053*ABS(RO5B),?gnPc) OR ] + ; + [ABS(RO11NT) NOT BETWEEN ROUND(0.108*ABS(RO11NB),?gnPc) AND ROUND(0.113*ABS(RO11NB),?gnPc) OR ] + ; + [ABS(RO21NT) NOT BETWEEN ROUND(0.208*ABS(RO21NB),?gnPc) AND ROUND(0.213*ABS(RO21NB),?gnPc) OR ] + ; + [ABS(RO19NT) NOT BETWEEN ROUND(0.188*ABS(RO19NB),?gnPc) AND ROUND(0.193*ABS(RO19NB),?gnPc) OR ] + ; + [ABS(RO9NT) NOT BETWEEN ROUND(0.088*ABS(RO9NB),?gnPc) AND ROUND(0.093*ABS(RO9NB),?gnPc) OR ] + ; + [ABS(RO5NT) NOT BETWEEN ROUND(0.048*ABS(RO5NB),?gnPc) AND ROUND(0.053*ABS(RO5NB),?gnPc))\-\] + ; + "Valoarea TVA difera cu +/- 5% fata de valoarea bazei. Verificati valorile baza si TVA în Registrul Jurnal." + crlf + ; + "Incasari fara TVA Incasare\nofiled\E\2=2\-\" + ; + "Facturi cu sold TVA neexigibil, achitate partial/integral în luna, fara TVA exigibil corespunzator." + lf2 + ; + "Se vor afisa facturile din sistemul TVA încasare pentru care suma achitata din Registrul Jurnal luna curenta " + ; + "este diferita de suma baza si TVA exigibil din Registrul de TVA." + lf2 + ; + "Identificati problema la nivelul fiecarei facturi si se corectati prin adaugarea notei TVA exigibil în Registrul Jurnal." + crlf + ; + "Diferenta sold fact. / neex.\nofiled\E\2=2\-\" + ; + "Resturi de sold TVA neexigibil care nu s-au exigibilizat odata cu achitarea integrala a facturilor." + lf2 + ; + "Se vor afisa facturile din sistemul TVA încasare pentru care soldul facturii este diferit de fata de soldul Baza + TVA neexigibile din Registrul de TVA." + lf2 + ; + "Facturile cu sold 0 si sold neexigibil diferit de 0 semnifica ca facturile au fost achitate, dar nu s-a exigibilizat complet TVA." + lf2 + ; + "Exigibilizati sumele ramase neexigibile." + crlf + ; + IIF(glEMama,[Sucursala\sucursala\C\none\] + crlf,[]) + * "Altele\1\A\REGISTRUL VANZARI - TAXABILE INTERN,REGISTRUL VANZARI - TAXARE INVERSA#ro19b<>0 OR ro19t<>0 OR ro9b<>0 OR ro9t<>0,roti<>0\" + DODEFAULT() + + ENDPROC + + PROCEDURE cbo_tip_jurnal_vanz.Init + This.ListItemId = 1 + ENDPROC + + PROCEDURE cbo_tip_jurnal_vanz.Valid + thisform.do_cauta() + ENDPROC + + PROCEDURE cmdTVAIncasare.Click + *!* 24.05.2011 + *!* marius.mutu + *!* nu se pot introduce documente de pe mama + + *!* 25.08.2014 + *!* marius.mutu + *!* se transmit si soldurile pe cote de TVA 24,9,5 pentru cazul in care soldul total este 0 + SET STEP ON + Local lcXMLFacturi + If !(luna_inchisa Or m.glEMama) + Select *, (RO11NB+RO21NB+RO24NB+RO20NB+RO19NB+RO9NB+RO5NB + RO11NT+RO21NT+RO24NT+RO20NT+RO19NT+RO9NT+RO5NT) as soldn, ; + RO11NB+RO11NT as soldn11, RO21NB+RO21NT as soldn21, ; + RO24NB+RO24NT as soldn24, RO20NB+RO20NT as soldn20, ; + RO19NB+RO19NT as soldn19, RO9NB+RO9NT as soldn9, RO5NB+RO5NT as soldn5 ; + From actcv With (Buffering = .T.) ; + Where ales = 1 ; + Into Cursor crsTVAIncasareTemp + + If _Tally > 0 + Cursortoxml('crsTVAIncasareTemp', "lcXMLFacturi", 1, 0, 0, "1") + Use In (Select('crsTVAIncasareTemp')) + + Do inchidere_tva_sold With 'JV', m.lcXMLFacturi IN oproceduri_inchidere.prg + Endif + Use In (Select('crsTVAIncasareTemp')) + Endif + + ENDPROC + + PROCEDURE Gridextra1.applyfilter + DODEFAULT() + Thisform._grdfooter1.calcTotal() + ENDPROC + + PROCEDURE Gridextra1.clearfilter + DODEFAULT() + Thisform._grdfooter1.calcTotal() + ENDPROC + + PROCEDURE _grdbase1.cCod_fiscal.Text1.DblClick + Thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.cDataact.Header1.Init + this.ForeColor =IIF(!EMPTY(this.tag),RGB(0,0,255),RGB(0,0,0)) + ENDPROC + + PROCEDURE _grdbase1.cDataact.Text1.DblClick + Thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.cDenumire.Header1.Init + this.ForeColor =IIF(!EMPTY(this.tag),RGB(0,0,255),RGB(0,0,0)) + ENDPROC + + PROCEDURE _grdbase1.cDenumire.Text1.DblClick + Thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.cFdoc.Text1.DblClick + Thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.cNract.Header1.Init + this.ForeColor =IIF(!EMPTY(this.tag),RGB(0,0,255),RGB(0,0,0)) + ENDPROC + + PROCEDURE _grdbase1.cNract.Text1.DblClick + Thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.cRo11b.Text1.DblClick + Thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.cRo11t.Text1.DblClick + Thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.cRo9b.Text1.DblClick + Thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.cRo9t.Text1.DblClick + Thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.cRoti.Text1.DblClick + Thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.cTotctva.Text1.DblClick + Thisform.butdrept() + ENDPROC + +ENDDEFINE diff --git a/Clase/penalitati.vc2 b/Clase/penalitati.vc2 new file mode 100644 index 0000000..2ad52a8 --- /dev/null +++ b/Clase/penalitati.vc2 @@ -0,0 +1,1034 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="penalitati.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS frm_penalitati 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="grdPenalitati" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdPenalitati.cDataFact.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdPenalitati.cDataFact.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdPenalitati.cNrFact.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdPenalitati.cNrFact.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdPenalitati.cTotctva.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdPenalitati.cTotctva.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdPenalitati.cDataScad.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdPenalitati.cDataScad.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdPenalitati.cDataDoc.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdPenalitati.cDataDoc.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdPenalitati.cNrDoc.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdPenalitati.cNrDoc.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdPenalitati.cSuma.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdPenalitati.cSuma.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdPenalitati.cNrZile.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdPenalitati.cNrZile.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdPenalitati.cPenalitati.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdPenalitati.cPenalitati.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdPenalitati.cNume.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdPenalitati.cNume.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdPenalitati.cPpenzi.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdPenalitati.cPpenzi.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdPenalitati.cContract.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdPenalitati.cContract.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdPenalitati.cExplicatia.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdPenalitati.cExplicatia.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdPenalitati.Column14.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdPenalitati.Column14.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdPenalitati.Column15.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdPenalitati.Column15.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdPenalitati.Column16.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdPenalitati.Column16.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cboContracte" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cboClienti" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="ckNrFact" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="ckDataFact" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtTotalPen" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lblTotal" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_executa1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="ckExplicatia" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lblClienti" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_label1" UniqueID="" Timestamp="" /> + + * + *m: afisactual + *m: calculeaza_totaluri + *p: ccontractfiltru + *p: cexplicatiafiltru + *p: cnumefiltru + *p: ddatareferinta && Data de referinta pentru calculul zilelor de penalitati pentru evaluare, + *p: levaluare && Daca se evalueaza penalitatile fata de o data de referinta. + *p: nnrzile && numarul de zile penalitati din linia curenta + *p: npenalitati + * + + * + BorderStyle = 3 + ccontractfiltru = + cexplicatiafiltru = + cnumefiltru = + ddatareferinta = {} + DoCreate = .T. + Height = 483 + levaluare = .F. + Name = "frm_penalitati" + nnrzile = 0 + npenalitati = 0 + Width = 787 + WindowState = 2 + _memberdata = + + + + _SHAPE1.Anchor = 10 + _SHAPE1.Height = 29 + _SHAPE1.Left = 0 + _SHAPE1.Name = "_SHAPE1" + _SHAPE1.Top = 0 + _SHAPE1.Width = 816 + _shape2.Anchor = 8 + _shape2.Left = 744 + _shape2.Name = "_shape2" + _shape2.Top = 0 + LB_TITLU_ALB_B121.Caption = "Penalitati" + LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121" + LB_TITLU_ALB_B121.TabIndex = 12 + BUT_TERMIN1.Anchor = 9 + BUT_TERMIN1.Left = 756 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 11 + BUT_TERMIN1.Top = 0 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT '_label1' AS _label WITH ; + BackStyle = 0, ; + Caption = "Contracte", ; + Left = 312, ; + Name = "_label1", ; + Top = 32 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT 'But_excel1' AS but_excel WITH ; + Anchor = 9, ; + Left = 696, ; + Name = "But_excel1", ; + Picture = ..\comun\grafice\excel_sus.bmp, ; + TabIndex = 9, ; + Top = 0, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_listare1' AS but_listare WITH ; + Anchor = 9, ; + Left = 726, ; + Name = "But_listare1", ; + TabIndex = 10, ; + Top = 0, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge1' AS but_sterge WITH ; + Anchor = 9, ; + Left = 666, ; + Name = "But_sterge1", ; + TabIndex = 8, ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'cboClienti' AS combobox WITH ; + FontName = "Arial", ; + Format = "", ; + Height = 24, ; + Left = 12, ; + Name = "cboClienti", ; + RowSource = "cClientiTemp", ; + RowSourceType = 2, ; + Style = 2, ; + TabIndex = 1, ; + Top = 48, ; + Width = 289, ; + ZOrderSet = 6 + *< END OBJECT: BaseClass="combobox" /> + + ADD OBJECT 'cboContracte' AS combobox WITH ; + FontName = "Arial", ; + Format = "", ; + Height = 24, ; + Left = 312, ; + Name = "cboContracte", ; + RowSource = "", ; + RowSourceType = 2, ; + Style = 2, ; + TabIndex = 2, ; + Top = 48, ; + Width = 205, ; + ZOrderSet = 6 + *< END OBJECT: BaseClass="combobox" /> + + ADD OBJECT 'ckDataFact' AS checkbox WITH ; + Alignment = 0, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Data factura", ; + FontBold = .T., ; + Height = 17, ; + Left = 96, ; + Name = "ckDataFact", ; + TabIndex = 4, ; + Top = 74, ; + Width = 88 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'ckExplicatia' AS checkbox WITH ; + Alignment = 0, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Explicatia", ; + Comment = "*:OnResize=RT", ; + FontBold = .T., ; + Height = 17, ; + Left = 195, ; + Name = "ckExplicatia", ; + TabIndex = 5, ; + Top = 75, ; + Visible = .T., ; + Width = 73 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'ckNrFact' AS checkbox WITH ; + Alignment = 0, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Nr. factura", ; + FontBold = .T., ; + Height = 17, ; + Left = 12, ; + Name = "ckNrFact", ; + TabIndex = 3, ; + Top = 74, ; + Width = 78 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'Cmd_executa1' AS cmd_executa WITH ; + Anchor = 9, ; + Caption = "\ + + ADD OBJECT 'grdPenalitati' AS _grdrow WITH ; + Anchor = 15, ; + ColumnCount = 16, ; + Comment = "*:OnResize=ss", ; + DeleteMark = .F., ; + FontName = "Arial Narrow", ; + HeaderHeight = 38, ; + Height = 348, ; + HighlightBackColor = 92,107,150, ; + HighlightForeColor = 255,255,255, ; + HighlightStyle = 2, ; + Left = 12, ; + Name = "grdPenalitati", ; + Panel = 1, ; + ReadOnly = .T., ; + RecordMark = .F., ; + RecordSource = "CFIord", ; + TabIndex = 7, ; + Top = 96, ; + Width = 766, ; + Column1.ColumnOrder = 5, ; + Column1.ControlSource = "dataFact", ; + Column1.FontName = "Arial Narrow", ; + Column1.Name = "cDataFact", ; + Column1.ReadOnly = .T., ; + Column1.Width = 54, ; + Column2.ColumnOrder = 4, ; + Column2.ControlSource = "nrFact", ; + Column2.FontName = "Arial Narrow", ; + Column2.Name = "cNrFact", ; + Column2.ReadOnly = .T., ; + Column2.Width = 51, ; + Column3.ColumnOrder = 6, ; + Column3.ControlSource = "VALCTVA", ; + Column3.FontName = "Arial Narrow", ; + Column3.InputMask = (get_mask(12,gnZ)), ; + Column3.Name = "cTotctva", ; + Column3.ReadOnly = .T., ; + Column3.Width = 69, ; + Column4.ColumnOrder = 9, ; + Column4.ControlSource = "dataScad", ; + Column4.FontName = "Arial Narrow", ; + Column4.Name = "cDataScad", ; + Column4.ReadOnly = .T., ; + Column4.Width = 50, ; + Column5.ColumnOrder = 10, ; + Column5.ControlSource = "dataact", ; + Column5.FontName = "Arial Narrow", ; + Column5.Name = "cDataDoc", ; + Column5.ReadOnly = .T., ; + Column5.Width = 53, ; + Column6.ColumnOrder = 11, ; + Column6.ControlSource = "nract", ; + Column6.FontName = "Arial Narrow", ; + Column6.Name = "cNrDoc", ; + Column6.ReadOnly = .T., ; + Column6.Width = 57, ; + Column7.ColumnOrder = 12, ; + Column7.ControlSource = "suma", ; + Column7.FontName = "Arial Narrow", ; + Column7.Format = "", ; + Column7.InputMask = (get_mask(12,gnZ)), ; + Column7.Name = "cSuma", ; + Column7.ReadOnly = .T., ; + Column7.Width = 67, ; + Column8.ColumnOrder = 14, ; + Column8.ControlSource = "nr_zile", ; + Column8.DynamicBackColor = "RGB(200,250,220)", ; + Column8.FontName = "Arial Narrow", ; + Column8.Name = "cNrZile", ; + Column8.ReadOnly = .F., ; + Column8.Sparse = .F., ; + Column8.Width = 49, ; + Column9.ColumnOrder = 16, ; + Column9.ControlSource = "penalitati", ; + Column9.FontName = "Arial Narrow", ; + Column9.InputMask = (get_mask(12,gnZ)), ; + Column9.Name = "cPenalitati", ; + Column9.ReadOnly = .T., ; + Column10.ColumnOrder = 1, ; + Column10.ControlSource = "nume", ; + Column10.FontName = "Arial Narrow", ; + Column10.Name = "cNume", ; + Column10.ReadOnly = .T., ; + Column10.Width = 135, ; + Column11.ColumnOrder = 15, ; + Column11.ControlSource = "ppenzi", ; + Column11.FontName = "Arial Narrow", ; + Column11.InputMask = "99.99", ; + Column11.Name = "cPpenzi", ; + Column11.ReadOnly = .T., ; + Column11.Width = 58, ; + Column12.ColumnOrder = 2, ; + Column12.ControlSource = "contract", ; + Column12.FontName = "Arial Narrow", ; + Column12.Name = "cContract", ; + Column12.ReadOnly = .T., ; + Column13.ColumnOrder = 3, ; + Column13.ControlSource = "explicatia", ; + Column13.FontName = "Arial Narrow", ; + Column13.Name = "cExplicatia", ; + Column13.ReadOnly = .T., ; + Column13.Width = 105, ; + Column14.ColumnOrder = 7, ; + Column14.ControlSource = "totval", ; + Column14.FontName = "Arial Narrow", ; + Column14.Format = "R", ; + Column14.InputMask = (get_mask(12,gnZ)), ; + Column14.Name = "Column14", ; + Column14.ReadOnly = .T., ; + Column14.Width = 67, ; + Column15.ColumnOrder = 8, ; + Column15.ControlSource = "valuta", ; + Column15.FontName = "Arial Narrow", ; + Column15.Name = "Column15", ; + Column15.ReadOnly = .T., ; + Column15.Width = 35, ; + Column16.ColumnOrder = 13, ; + Column16.ControlSource = "sumaval", ; + Column16.FontName = "Arial Narrow", ; + Column16.Format = "R", ; + Column16.InputMask = (get_mask(12,gnZ)), ; + Column16.Name = "Column16", ; + Column16.ReadOnly = .T., ; + Column16.Width = 69 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grdPenalitati.cContract.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Contract", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdPenalitati.cContract.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdPenalitati.cDataDoc.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data incasare", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdPenalitati.cDataDoc.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdPenalitati.cDataFact.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data factura", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdPenalitati.cDataFact.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdPenalitati.cDataScad.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data scadenta", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdPenalitati.cDataScad.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdPenalitati.cExplicatia.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatia", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdPenalitati.cExplicatia.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdPenalitati.cNrDoc.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. doc. incasare", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdPenalitati.cNrDoc.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdPenalitati.cNrFact.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. factura", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdPenalitati.cNrFact.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdPenalitati.cNrZile.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. zile penalitati", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdPenalitati.cNrZile.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdPenalitati.cNume.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Client", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdPenalitati.cNume.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdPenalitati.Column14.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare factura in valuta", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdPenalitati.Column14.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdPenalitati.Column15.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valuta", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdPenalitati.Column15.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdPenalitati.Column16.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare incasare in valuta", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdPenalitati.Column16.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdPenalitati.cPenalitati.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare penalitati", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdPenalitati.cPenalitati.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdPenalitati.cPpenzi.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Procent penalitati / zi", ; + FontBold = .F., ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdPenalitati.cPpenzi.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdPenalitati.cSuma.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare incasare", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdPenalitati.cSuma.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdPenalitati.cTotctva.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare factura", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdPenalitati.cTotctva.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'lblClienti' AS _label WITH ; + BackStyle = 0, ; + Caption = "Clienti", ; + Left = 12, ; + Name = "lblClienti", ; + Top = 32 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT 'lblTotal' AS _lbbase WITH ; + Anchor = 12, ; + Caption = "TOTAL", ; + FontBold = .T., ; + Left = 604, ; + Name = "lblTotal", ; + TabIndex = 14, ; + Top = 456 + *< END OBJECT: ClassLib="..\comun\clase\_lb_base.vcx" BaseClass="label" /> + + ADD OBJECT 'txtTotalPen' AS _txbase WITH ; + Anchor = 12, ; + ControlSource = "thisform.nPenalitati", ; + Height = 23, ; + Left = 648, ; + Name = "txtTotalPen", ; + TabIndex = 13, ; + Top = 453, ; + Width = 132 + *< END OBJECT: ClassLib="..\comun\clase\_tx_base.vcx" BaseClass="textbox" /> + + PROCEDURE afisactual + Local lcCond, lcContract, lcNume, lcTabel + lcCond="" + + + If This.ckdataFact.Value=1 + lcCond=lcCond+[ and data1<=dataFact] + lcCond=lcCond+[ and data2>=dataFact] + Endif + + If This.cknrFact.Value=1 + lcCond=lcCond+[ and nr1<=nrFact] + lcCond=lcCond+[ and nr2>=nrFact] + Endif + + lcNume = Alltrim(This.cboClienti.Value) + If m.lcNume <> '' and !Empty(m.lcNume) + pcNumefiltru = m.lcNume + *!* lcCond = lcCond + [ AND Alltrim(nume) = "] + m.lcNume + ["] + lcCond = lcCond + [ AND Alltrim(nume) = m.pcNumefiltru] + Endif + + lcContract = Alltrim(This.cboContracte.Value) + If m.lcContract <> '' and !Empty(m.lcContract) + pcContractfiltru = m.lcContract + *!* lcCond = lcCond + [ AND Alltrim(contract) = "] + m.lcContract + ["] + lcCond = lcCond + [ AND Alltrim(contract) = m.pcContractfiltru] + Endif + + if thisform.ckExplicatia.value=1 + lcCond = lcCond + [ and "]+UPPE(ALLT(M.EXPLICATIA))+["]+[$UPPE(ALLT(EXPLICATIA))] + EndIf + + If !Empty(lcCond) + lcCond=Substr(lcCond,6) + Else + lcCond=".t." + Endif + + lcTabel=Thisform.GRDPenalitati.RecordSource + Select (lcTabel) + Set Filter To &lcCond + this.calculeaza_totaluri() + *!* ACTUALIZARE CBOCONTRACTE + Thisform.LockScreen = .T. + + + Thisform.cboContracte.RowSource = "" + Create Cursor cContracteTemp (contract c(100)) + Insert Into cContracteTemp (contract) Values ('') + Select Distinct contract From cFiord WHERE &lcCond Into Cursor cContracteTemp1 + If _Tally <> 0 + Select cContracteTemp + Append From Dbf('cContracteTemp1') + Endif + Thisform.cboContracte.RowSource = "cContracteTemp" + SELECT cContracteTemp + If !Empty(m.lcContract) + Locate for Alltrim(contract) = Alltrim(m.lcContract) + Else + GO TOP + EndIf + + Thisform.cboContracte.Value = cContracteTemp.contract + + + Use In (Select('cContracteTemp1')) + Thisform.LockScreen = .F. + + *!* ACTUALIZARE CBOCONTRACTE ^ + + Thisform.GRDPenalitati.SetFocus + + ENDPROC + + PROCEDURE calculeaza_totaluri + Local lnRecno, lcSelect + lcSelect = Select() + Select cFiord + lnRecno = Recno() + Calculate Sum(penalitati) To Thisform.nPenalitati + Thisform.txtTotalPen.Refresh + + If m.lnRecno > 0 AND RECCOUNT('cFiord') >= m.lnRecno + Goto m.lnRecno + Else + Go Top + Endif + + Select (lcSelect) + + ENDPROC + + PROCEDURE do_excel + Do export_excel_grid with this.grdPenalitati + ENDPROC + + PROCEDURE do_executa + *!* 14.03.2011 + *!* marius.mutu + *!* loDateAditionale.contracte - c/val penalitati conform contractelor 1,2.. + + Local lcContracte, lcFiltru + + Select cFiord + Locate for !Empty(nume) + If !Found() + Return + EndIf + + If Alltrim(this.cboClienti.Value) = '' + aMessageBox('Alegeti un client pentru facturare!',0+48,'Penalitati') + Return + EndIf + + Local loDateAditionale + loDateAditionale = CreateObject("session") + loDateAditionale.addproperty("valftva", thisform.npenalitati) + loDateAditionale.addproperty("valtva", 0) + loDateAditionale.addproperty("valctva", thisform.npenalitati) + + *!* 14.03.2011 + lcContracte = "" + lcFiltru = FILTER('cFiord') + IF EMPTY(lcFiltru) + lcFiltru = '.T.' + ENDIF + SELECT distinct contract FROM cFiord WHERE &lcFiltru INTO CURSOR cContracteTempx ORDER BY contract + SELECT cContracteTempx + SCAN + lcContracte = m.lcContracte + ',' + ALLTRIM(contract) + ENDSCAN + IF !EMPTY(m.lcContracte) + lcContracte = SUBSTR(m.lcContracte,2) + ENDIF + loDateAditionale.addproperty("contracte", m.lcContracte) + USE IN (SELECT('cContracteTempx')) + *!* 14.03.2011 ^ + + THIS.AlwaysOnBottom = .T. + THIS.AlwaysOnTop = .F. + Do modi_factura with cFiord.ctr_id, 6, loDateAditionale in proceduri_acnpro.prg + THIS.AlwaysOnTop = .T. + THIS.AlwaysOnBottom = .F. + ENDPROC + + PROCEDURE do_listare + THIS.AlwaysOnBottom = .T. + THIS.AlwaysOnTop = .F. + Private pcTitlu, FSERVICIU + pcTitlu = 'Situatia calculului penalitatilor de intarziere' + FSERVICIU = FSERVICIU6 + IF !this.lEvaluare + Do LISTAREUSERREPORT with "cfiord", "FRX", "PENALITATI" + ELSE + Do LISTAREUSERREPORT with "cfiord", "FRX", "PENALITATI_EVALUARE" + ENDIF + THIS.AlwaysOnBottom = .F. + THIS.AlwaysOnTop = .T. + ENDPROC + + PROCEDURE do_sterge + If !Empty(cFiord.nume) + If aMessageBox('Doriti sa stergeti inregistrarea?',4+32,'Penalitati') = 6 + If aMessageBox('Stergeti definitiv?' + Chr(13) + Chr(10) + 'Atentie nu se poate reveni asupra inregistrarilor sterse definitiv!',4+32,'Penalitati') = 6 + Insert Into penalitati_sters (nume, fact_id, clie_id, ctr_id, nrfact, datafact, valctva, nract, dataact, suma, dataora, utilizator) ; + values (cFiord.nume, cFiord.fact_id, cFiord.clie_id, cFiord.ctr_id, cFiord.nrfact, cFiord.datafact, cFiord.valctva, cFiord.nract, cFiord.dataact, cFiord.suma, Datetime(), utilizator) + Endif + Select cFiord + Delete + this.calculeaza_totaluri() + This.grdPenalitati.Refresh() + This.grdPenalitati.SetFocus() + Endif + Endif + + ENDPROC + + PROCEDURE Init + DoDefault() + THIS.WindowState = 2 + this.afisactual() + ENDPROC + + PROCEDURE Show + LPARAMETERS nStyle + THIS.WindowState = 2 + ENDPROC + + PROCEDURE cboClienti.Init + LOCAL lcTabel, lcNume + lcTabel = this.RowSource + SELECT (lcTabel) + GO TOP + lcNume = nume + this.Value = lcNume + + + ENDPROC + + PROCEDURE cboClienti.Valid + thisform.afisactual() + ENDPROC + + PROCEDURE cboContracte.Valid + thisform.afisactual() + ENDPROC + + PROCEDURE ckDataFact.Click + data1=date() + data2=date() + IF this.value=1 + Ointre=CREATEOBJECT("CAUTintre") + WITH Ointre + .CAPTION="Data factura" + .label1.caption="Data initiala:" + .label2.caption="Data finala:" + .text1.controlsource="data1" + .text2.controlsource="data2" + endwith + ointre.show(1) + endif + ENDPROC + + PROCEDURE ckDataFact.Valid + thisform.afisactual + ENDPROC + + PROCEDURE ckExplicatia.Click + m.explicatia='' + If This.Value = 1 + OLIT=Createobject("CAUTLITERE") + With OLIT + .Caption="Explicatia" + .text1.ControlSource="m.explicatia" + Endwith + OLIT.Show(1) + Endif + + ENDPROC + + PROCEDURE ckExplicatia.Valid + thisform.afisactual + ENDPROC + + PROCEDURE ckNrFact.Click + nr1=0 + nr2=0 + IF this.value=1 + Ointre=CREATEOBJECT("CAUTintre") + WITH Ointre + .CAPTION="Numar factura" + .label1.caption="Nr initial:" + .label2.caption="Nr final:" + .text1.controlsource="nr1" + .text2.controlsource="nr2" + endwith + ointre.show(1) + endif + + ENDPROC + + PROCEDURE ckNrFact.Valid + thisform.afisactual + ENDPROC + + PROCEDURE grdPenalitati.AfterRowColChange + LPARAMETERS nColIndex + * NU STERGE + ENDPROC + + PROCEDURE grdPenalitati.cNrZile.Text1.Valid + Local lnNrZile + lnNrZile = cFiord.nr_zile + If Thisform.nNrZile <> lnNrZile + Replace penalitati With Round(Round(ppenzi/100*SUMA, gnZ) * lnNrZile, gnZ) + thisform.calculeaza_totaluri() + Endif + + ENDPROC + + PROCEDURE grdPenalitati.cNrZile.Text1.When + Thisform.nNrZile = cFiord.nr_zile + ENDPROC + + PROCEDURE grdPenalitati.Init + * NU STERGE + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_penalitati_info AS formtermin OF "_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="Label3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtData" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + + * + *p: ddatareferinta + *p: _memberdata && XML Metadata for customizable properties + * + + * + BorderStyle = 1 + ddatareferinta = {} + DoCreate = .T. + Height = 83 + Name = "frm_penalitati_info" + Width = 225 + _memberdata = + + + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 395 + Lb_titlu_alb_b121.Caption = "PENALITATI" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 14 + BUT_TERMIN1.Left = 196 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 12 + BUT_TERMIN1.Top = 1 + * + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Left = 166, ; + Name = "But_renunt1", ; + TabIndex = 13, ; + Top = 1 + *< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Label3' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Data de referinta", ; + FontBold = .T., ; + Height = 17, ; + Left = 9, ; + Name = "Label3", ; + TabIndex = 17, ; + Top = 49, ; + Width = 97 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'txtData' AS textbox WITH ; + ControlSource = "pdDataReferinta", ; + Format = "k!", ; + Height = 23, ; + Left = 112, ; + Name = "txtData", ; + TabIndex = 2, ; + Top = 44, ; + Width = 100 + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE Init + LPARAMETERS tdDataReferinta + DODEFAULT() + + this.dDataReferinta = IIF(!EMPTY(tdDataReferinta), tdDataReferinta, DATE()) + ENDPROC + +ENDDEFINE diff --git a/Clase/saft_d406.vc2 b/Clase/saft_d406.vc2 new file mode 100644 index 0000000..cd1f6de --- /dev/null +++ b/Clase/saft_d406.vc2 @@ -0,0 +1,337 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="saft_d406.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS frm_saft_d406 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="pgfSAFT" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page1.cboTip" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page1._label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page1.cmdCitesteDate" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa" UniqueID="" Timestamp="" /> + + * + *p: ccaen + *p: ccalintoc + *p: cfpropr + *p: cjudet + *p: ctip + *p: oparent + * + + * + BorderStyle = 3 + ccaen = + ccalintoc = + cfpropr = + cjudet = + ctip = + DoCreate = .T. + Height = 465 + Name = "frm_saft_d406" + oparent = .NULL. + Width = 789 + WindowState = 2 + _memberdata = + + + _shape1.Anchor = 10 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 790 + _shape1.ZOrderSet = 1 + _shape2.Height = 29 + _shape2.Left = 758 + _shape2.Name = "_shape2" + _shape2.Top = -1 + _shape2.Width = 37 + _shape2.ZOrderSet = 2 + Lb_titlu_alb_b121.Caption = "SAFT D406" + Lb_titlu_alb_b121.FontSize = 11 + Lb_titlu_alb_b121.Left = 4 + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 3 + Lb_titlu_alb_b121.Top = 6 + Lb_titlu_alb_b121.ZOrderSet = 3 + BUT_TERMIN1.Anchor = 9 + BUT_TERMIN1.Left = 758 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 1 + BUT_TERMIN1.Top = 1 + BUT_TERMIN1.ZOrderSet = 4 + Gridsort1.Left = 216 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 8 + * + + ADD OBJECT 'pgfSAFT' AS _pageframe WITH ; + Anchor = 15, ; + ErasePage = .T., ; + Height = 440, ; + Left = 0, ; + Name = "pgfSAFT", ; + PageCount = 4, ; + TabIndex = 2, ; + Top = 27, ; + Width = 790, ; + Page1.Caption = "Antet", ; + Page1.Name = "Page1", ; + Page2.Caption = "Fisiere Master", ; + Page2.Name = "Page2", ; + Page3.Caption = "Inregistrari contabile", ; + Page3.Name = "Page3", ; + Page4.Caption = "Documente sursa", ; + Page4.Name = "pgDocumenteSursa" + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="pageframe" /> + + ADD OBJECT 'pgfSAFT.Page1._label1' AS _label WITH ; + Caption = "Tip platitor", ; + Left = 8, ; + Name = "_label1", ; + TabIndex = 24, ; + Top = 5, ; + ZOrderSet = 9 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT 'pgfSAFT.Page1.cboTip' AS combobox WITH ; + ControlSource = "poUnitate.tip", ; + Left = 8, ; + Name = "cboTip", ; + RowSource = "LUNAR,TRIMESTRIAL,SEMESTRIAL,ANUAL", ; + RowSourceType = 1, ; + Style = 2, ; + TabIndex = 1, ; + Top = 21, ; + Value = LUNAR, ; + Width = 173, ; + ZOrderSet = 5 + *< END OBJECT: BaseClass="combobox" /> + + ADD OBJECT 'pgfSAFT.Page1.cmdCitesteDate' AS cmd_executa WITH ; + Anchor = 9, ; + AutoSize = .F., ; + BackColor = 113,184,255, ; + caction = do_citeste_date, ; + Caption = "Genereaza XML", ; + Height = 29, ; + Left = 587, ; + Name = "cmdCitesteDate", ; + TabIndex = 5, ; + Top = 3, ; + Width = 112, ; + ZOrderSet = 11 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster' AS _pageframe WITH ; + Anchor = 15, ; + ErasePage = .T., ; + Height = 408, ; + Left = 0, ; + Name = "pgfMaster", ; + PageCount = 11, ; + Top = 0, ; + Width = 787, ; + Page1.Caption = "Conturi contabile", ; + Page1.Name = "Page1", ; + Page1.PageOrder = 1, ; + Page2.Caption = "Clienti", ; + Page2.Name = "Page2", ; + Page2.PageOrder = 2, ; + Page3.Caption = "Taxe", ; + Page3.Name = "pgTaxe", ; + Page3.PageOrder = 4, ; + Page4.Caption = "Unitati de Masura", ; + Page4.Name = "pgUOM", ; + Page4.PageOrder = 5, ; + Page5.Caption = "Tipuri Analiza", ; + Page5.Name = "pgTipAnalize", ; + Page5.PageOrder = 6, ; + Page6.Caption = "Tipuri Miscari", ; + Page6.Name = "pgTipMiscari", ; + Page6.PageOrder = 7, ; + Page7.Caption = "Produse", ; + Page7.Name = "pgProduse", ; + Page7.PageOrder = 8, ; + Page8.Caption = "Stocuri", ; + Page8.Name = "pgStocuri", ; + Page8.PageOrder = 9, ; + Page9.Caption = "Proprietari", ; + Page9.Name = "pgProprietari", ; + Page9.PageOrder = 10, ; + Page10.Caption = "Furnizori", ; + Page10.Name = "pgFurnizori", ; + Page10.PageOrder = 3, ; + Page11.Caption = "Active", ; + Page11.Name = "pgActive", ; + Page11.PageOrder = 11 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="pageframe" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa' AS _pageframe WITH ; + Anchor = 15, ; + ErasePage = .T., ; + Height = 408, ; + Left = 2, ; + Name = "pgfDocumenteSursa", ; + PageCount = 5, ; + Top = -1, ; + Width = 787, ; + Page1.Caption = "Facturi vanzare", ; + Page1.Name = "Page1", ; + Page1.PageOrder = 1, ; + Page2.Caption = "Facturi achizitie", ; + Page2.Name = "Page2", ; + Page2.PageOrder = 2, ; + Page3.Caption = "Miscari bunuri", ; + Page3.Name = "pgMiscariBunuri", ; + Page3.PageOrder = 4, ; + Page4.Caption = "Tranzactii cu active", ; + Page4.Name = "pgTranzactiiActive", ; + Page4.PageOrder = 5, ; + Page5.Caption = "Plati", ; + Page5.Name = "pgPlati", ; + Page5.PageOrder = 3 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="pageframe" /> + + PROCEDURE do_verifica + #Define CRLF Chr(13) + Chr(10) + Local loDate As "empty" + Local lcCodFiscal, lcDenumire, lcFilter, lcSelect, lcWhere, llAutoVerificare, llDontCloseCursor + Local llExperimental, llMFIN, llServiciuWebANAF, llValidare, llVerificarePlatitorTVA, lnOptiune + Local lnRaspuns, loPartener + lcSelect = Select() + + Select crsJTVA + lcDenumire = Alltrim(Nvl(crsJTVA.denumire, '')) + lcCodFiscal = Alltrim(Nvl(crsJTVA.cod_fiscal, '')) + + lnOptiune = XMENU('VERIFICA... ' + m.lcDenumire + ' - ANAF; VERIFICA TOTI PARTENERII - ANAF') + + If Empty(m.lnOptiune) + Return + Endif + * Pot sa fac verificarea pentru un singur nume si cu formularul pentru mai multi parteneri, dar arata mai dragut informatia intr-un messagebox pentru unul singur + If m.lnOptiune = 1 && un singur nume + loPartener = Null + loDate = Createobject("empty") + + AddProperty(loDate, "denumire", m.lcDenumire) + AddProperty(loDate, "cod_fiscal", m.lcCodFiscal) + AddProperty(loDate, "tip_verificare", "ANAF_SERVICIU_WEB") + + lnRaspuns = VerificaCodFiscal(loDate, @lnOptiune, @loPartener) + Else + llDontCloseCursor = .F. + llExperimental = .F. + llVerificarePlatitorTVA = .F. && verific VIES pentru toti partenerii + llMFIN = .T. && verific MFIN pentru toata lumea + llValidare = .T. && verific algoritmul codurilor fiscale + llAutoVerificare = .T. && lanseaza verificarea automata la activate-ul formularului de verificare + llServiciuWebANAF = .T. + + lcFilter = Filter("crsJTVA") + lcWhere = Iif(m.lnOptiune = 1, "recno() = " + Alltrim(Str(Recno())), Iif(!Empty(m.lcFilter), m.lcFilter, ".T.")) + Select Distinct id_part, cod_fiscal, denumire, Iif(Left(Upper(cod_fiscal), 2) = "RO", "RO", " ") As ATRIBUT_FISCAL, .T. As IsCIF, .F. As codvalid ; + From crsJTVA ; + Where &lcWhere ; + Into Cursor crsCoduriFiscale ; + Order By denumire, cod_fiscal ; + Readwrite + + + Local lcXMLParteneri + lcXMLParteneri = "" + Cursortoxml('crsCoduriFiscale', "lcXMLParteneri", 1, 0, 0, "1") + + Do verificare_parteneri With m.lcXMLParteneri, m.llValidare, m.llMFIN, m.llVerificarePlatitorTVA, m.llAutoVerificare, m.llDontCloseCursor, m.llExperimental, m.llServiciuWebANAF + Endif && x = 1 + + ENDPROC + + PROCEDURE Init + DODEFAULT() + this._pageframe1.page2.Enabled = .F. + this._pageframe1.page3.Enabled = .F. + this._pageframe1.page4.Enabled = .F. + this._pageframe1.page5.Enabled = .F. + + this._pageframe1.page1.optPJIntocmit.Valid() + ENDPROC + + PROCEDURE pgfSAFT.Page1.cmdCitesteDate.Click + SET STEP ON + TEXT TO lcXML TEXTMERGE NOSHOW + + + + + 1.0 + RO + RO-B + <> + <> + SAFT + 2.4.10 + + <> + <> + + <> + <> + <> + + <> + <> + RO-B + RO + PostalAddress + + + + <> + <> + <> + + + <> + <> + <> + + + <> + 100010 + <> + ANAF + 2021-07-03 + + + <> + + + RON + + Romania + <> + <> + <> + <> + <> + + Fara comentarii + 1 + 1 + A + Company + + + ENDTEXT + STRTOFILE(m.lcXML,PUTFILE('Fisier','saft_d406','xml')) + ENDPROC + +ENDDEFINE diff --git a/DATE/New Text Document.txt b/DATE/New Text Document.txt new file mode 100644 index 0000000..159e85c --- /dev/null +++ b/DATE/New Text Document.txt @@ -0,0 +1,17 @@ +*** DIRECTORUL APLICATIEI, NUMELE APLICATIEI +public pcDirApp,pcNumeApp,pcDateApp +*!* PUBLIC pinivel,pcan,pcnl +*!* STORE "" to pcan,pcnl && variabile publice pe care le initializez cu m.an si m.nl in init_optiuni.prg + + +SET procedure to wwutils.prg addi +pcdirapp=GetAppStartPath() && d:\contafin\acnnave\ +pcdirapp=STRTRAN(STRTRAN(UPPER(pcdirapp),"PROGRAME",""),"\\","\") +pcNumeApp=ALLT(UPPE(JUSTSTEM(SYS(16,0)))) && "ACNSIT" +pcDateApp=pcDirApp+"Date_"+pcNumeApp+"\" && D:\CONTAFIN\TRANS\DATE_TRANS && PT OPTIUNI , FISIERE SPECIFICE PROGRAMULUI SI CARE NU TREBUIE IN FIECARE FIRMA EX: ADRESE DE EMAIL, + +*!* wait wind pcdirapp +CD &pcdirapp +IF !DIRECTORY(pcDateApp) + MD (pcDateApp) +ENDIF diff --git a/DATE/optiuni_firma.db2 b/DATE/optiuni_firma.db2 new file mode 100644 index 0000000..99fbf4d --- /dev/null +++ b/DATE/optiuni_firma.db2 @@ -0,0 +1,107 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="optiuni_firma.dbf" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* + + + + + 1252 + + + 0x00000030 + Visual FoxPro + + + + VARNAME + C + 20 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + VARTYPE + C + 10 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + VARVALUE + M + 4 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + VARDESC + C + 30 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + + + + + + + + +
+ diff --git a/DATE/optiuni_local.db2 b/DATE/optiuni_local.db2 new file mode 100644 index 0000000..3b05f3c --- /dev/null +++ b/DATE/optiuni_local.db2 @@ -0,0 +1,107 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="optiuni_local.dbf" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* + + + + + 1252 + + + 0x00000030 + Visual FoxPro + + + + VARNAME + C + 20 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + VARTYPE + C + 10 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + VARVALUE + M + 4 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + VARDESC + C + 30 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + + + + + + + + +
+ diff --git a/DATE/optiuni_program.db2 b/DATE/optiuni_program.db2 new file mode 100644 index 0000000..0f6105e --- /dev/null +++ b/DATE/optiuni_program.db2 @@ -0,0 +1,107 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="optiuni_program.dbf" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* + + + + + 1252 + + + 0x00000030 + Visual FoxPro + + + + VARNAME + C + 20 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + VARTYPE + C + 10 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + VARVALUE + M + 4 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + VARDESC + C + 30 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + + + + + + + + +
+ diff --git a/Ferestre/datedisp542.sc2 b/Ferestre/datedisp542.sc2 new file mode 100644 index 0000000..96f86dc --- /dev/null +++ b/Ferestre/datedisp542.sc2 @@ -0,0 +1,161 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="datedisp542.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 = 0 + Left = 0 + Name = "Dataenvironment" + Top = 0 + Width = 0 + * + +ENDDEFINE + +DEFINE CLASS frm_termin_renunt1 AS frm_termin_renunt OF "..\comun\clase\_frm_child.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Clb_scop" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_explicatie" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_suma_cifre" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_functie" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ed_suma_litere" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_bi_numar" UniqueID="" Timestamp="" /> + + * + *p: ccont + *p: ccursoracont + *p: ccursorcont + *p: id_part + * + + * + BorderStyle = 1 + ccont = + ccursoracont = + ccursorcont = + DoCreate = .T. + Height = 242 + id_part = 0 + Name = "Frm_termin_renunt1" + Width = 355 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 360 + _shape2.Height = 29 + _shape2.Left = 294 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 62 + Lb_titlu_alb_b121.Caption = "DATE PRIVIND DISPOZITIA" + Lb_titlu_alb_b121.FontBold = .T. + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 11 + BUT_TERMIN1.Left = 325 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 8 + BUT_TERMIN1.Top = 1 + Gridsort1.Left = 12 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 192 + But_renunt1.Left = 296 + But_renunt1.Name = "But_renunt1" + But_renunt1.TabIndex = 9 + But_renunt1.Top = 1 + * + + ADD OBJECT 'Clb_bi_numar' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 24, ; + Name = "Clb_bi_numar", ; + TabIndex = 7, ; + Top = 205, ; + Width = 290, ; + Text_simplu1.ControlSource = "pcNumar", ; + Text_simplu1.Height = 23, ; + Text_simplu1.Left = 121, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Top = 3, ; + Text_simplu1.Width = 164, ; + Lb_simplu1.Caption = "C.I. / Reg. Comert", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_explicatie' AS clb_tx_simplu WITH ; + Left = 24, ; + Name = "Clb_explicatie", ; + TabIndex = 2, ; + Top = 64, ; + Text_simplu1.ControlSource = "pcNume", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_functie' AS clb_tx_simplu WITH ; + Left = 24, ; + Name = "Clb_functie", ; + TabIndex = 5, ; + Top = 177, ; + Width = 290, ; + Text_simplu1.ControlSource = "pcFunctie", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Functia", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_scop' AS clb_tx_simplu WITH ; + Left = 24, ; + Name = "Clb_scop", ; + TabIndex = 1, ; + Top = 36, ; + Text_simplu1.ControlSource = "pcScop", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Scopul", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_suma_cifre' AS clb_tx_simplu WITH ; + Left = 24, ; + Name = "Clb_suma_cifre", ; + TabIndex = 3, ; + TabStop = .F., ; + Top = 92, ; + Text_simplu1.ControlSource = "pnSuma", ; + Text_simplu1.InputMask = (get_mask(14,gnPa)), ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .F., ; + Lb_simplu1.Caption = "Suma ( in cifre )", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Ed_suma_litere' AS ed_tx_simplu WITH ; + Left = 24, ; + Name = "Ed_suma_litere", ; + TabIndex = 4, ; + Top = 120, ; + _edbase1.ControlSource = "pcSumaLitere", ; + _edbase1.Name = "_edbase1", ; + _lbbase1.Caption = "Suma (in litere)", ; + _lbbase1.Height = 34, ; + _lbbase1.Left = 8, ; + _lbbase1.Name = "_lbbase1", ; + _lbbase1.Top = 6, ; + _lbbase1.Width = 52, ; + _lbbase1.WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + PROCEDURE Init + DoDefault() + Thisform.clb_explicatie.lb_simplu1.Caption = pcExplicatie + ENDPROC + +ENDDEFINE diff --git a/Ferestre/fisa_cont_noua.sc2 b/Ferestre/fisa_cont_noua.sc2 new file mode 100644 index 0000000..a776c03 --- /dev/null +++ b/Ferestre/fisa_cont_noua.sc2 @@ -0,0 +1,483 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="fisa_cont_noua.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 = 0 + Left = 0 + Name = "Dataenvironment" + Top = 0 + Width = 0 + * + +ENDDEFINE + +DEFINE CLASS frm_termin_renunt1 AS frm_termin_renunt OF "..\comun\clase\_frm_child.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Op_tx_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_luna_intre1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_txbase1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="chkConturiCorespondente" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_optiongrup1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="chkDocumenteSold" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="chkLucrari" UniqueID="" Timestamp="" /> + + * + *p: acont + *p: acontexp + *p: ccont + *p: ccursoracont + *p: ccursorcont + *p: id_part + *p: tip_sold + * + + * + acont = + acontexp = + BorderStyle = 1 + ccont = + ccursoracont = + ccursorcont = + DoCreate = .T. + Height = 245 + id_part = 0 + Name = "Frm_termin_renunt1" + tip_sold = 0 + Width = 500 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 500 + _shape2.Height = 29 + _shape2.Left = 438 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 62 + Lb_titlu_alb_b121.Caption = "Fisa cont" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 13 + BUT_TERMIN1.Left = 469 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 11 + BUT_TERMIN1.Top = 1 + Gridsort1.Name = "Gridsort1" + But_renunt1.Left = 440 + But_renunt1.Name = "But_renunt1" + But_renunt1.TabIndex = 12 + But_renunt1.Top = 1 + * + + ADD OBJECT '_optiongrup1' AS _optiongrup WITH ; + AutoSize = .F., ; + ButtonCount = 2, ; + ControlSource = "pnOptiune", ; + Height = 46, ; + Left = 236, ; + Name = "_optiongrup1", ; + TabIndex = 6, ; + Top = 136, ; + Width = 256, ; + Option1.AutoSize = .T., ; + Option1.Caption = "Rulaje precedente ptr. prima luna", ; + Option1.FontSize = 10, ; + Option1.Left = 5, ; + Option1.Name = "Option1", ; + Option1.Top = 5, ; + Option2.AutoSize = .T., ; + Option2.Caption = "Sold precedent ptr. prima luna", ; + Option2.FontSize = 10, ; + Option2.Left = 5, ; + Option2.Name = "Option2", ; + Option2.Top = 24 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="optiongroup" /> + + ADD OBJECT '_txbase1' AS _txbase WITH ; + ControlSource = "thisform.acontexp", ; + Height = 23, ; + Left = 144, ; + Name = "_txbase1", ; + ReadOnly = .T., ; + TabIndex = 2, ; + Top = 38, ; + Width = 348 + *< END OBJECT: ClassLib="..\comun\clase\_tx_base.vcx" BaseClass="textbox" /> + + ADD OBJECT 'Check1' AS checkbox WITH ; + Alignment = 0, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Export in Excel", ; + ControlSource = "plExcel", ; + FontSize = 10, ; + Height = 18, ; + Left = 376, ; + Name = "Check1", ; + TabIndex = 10, ; + Top = 192, ; + Width = 108 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'chkConturiCorespondente' AS checkbox WITH ; + Alignment = 0, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Defalcare pe conturi corespondente", ; + ControlSource = "xrec.conturicorespondente", ; + FontSize = 10, ; + Height = 18, ; + Left = 12, ; + Name = "chkConturiCorespondente", ; + TabIndex = 7, ; + Top = 192, ; + Width = 223 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'chkDocumenteSold' AS checkbox WITH ; + Alignment = 0, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Se afiseaza soldul pe documente", ; + ControlSource = "xrec.documentesold", ; + FontSize = 10, ; + Height = 18, ; + Left = 12, ; + Name = "chkDocumenteSold", ; + TabIndex = 9, ; + Top = 207, ; + Visible = .F., ; + Width = 211 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'chkLucrari' AS checkbox WITH ; + Alignment = 0, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Defalcare pe lucrari", ; + ControlSource = "xrec.lucrari", ; + FontSize = 10, ; + Height = 18, ; + Left = 12, ; + Name = "chkLucrari", ; + TabIndex = 8, ; + Top = 223, ; + Width = 130 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'Clb_luna_intre1' AS clb_luna_intre WITH ; + Height = 29, ; + Left = 12, ; + Name = "Clb_luna_intre1", ; + TabIndex = 4, ; + Top = 101, ; + Width = 480, ; + tx_n1.Left = 212, ; + tx_n1.Name = "tx_n1", ; + tx_n1.SpecialEffect = 1, ; + tx_n1.Top = 3, ; + Lb_simplu1.Caption = "Perioada de referinta", ; + Lb_simplu1.Name = "Lb_simplu1", ; + tx_n2.Left = 327, ; + tx_n2.Name = "tx_n2", ; + tx_n2.SpecialEffect = 1, ; + tx_n2.Top = 3 + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 12, ; + Name = "Clb_tx_simplu1", ; + TabIndex = 1, ; + Top = 37, ; + Width = 124, ; + Text_simplu1.BorderStyle = 1, ; + Text_simplu1.ControlSource = "thisform.ccont", ; + Text_simplu1.DisabledBackColor = 255,255,255, ; + Text_simplu1.Height = 23, ; + Text_simplu1.Left = 61, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .T., ; + Text_simplu1.SpecialEffect = 1, ; + Text_simplu1.TabIndex = 2, ; + Text_simplu1.Top = 3, ; + Text_simplu1.Width = 59, ; + Lb_simplu1.Caption = "Cont", ; + Lb_simplu1.Name = "Lb_simplu1", ; + Lb_simplu1.TabIndex = 1 + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu2' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 145, ; + Name = "Clb_tx_simplu2", ; + TabIndex = 3, ; + Top = 69, ; + Width = 347, ; + Text_simplu1.DisabledBackColor = 255,255,255, ; + Text_simplu1.Height = 23, ; + Text_simplu1.Left = 71, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .T., ; + Text_simplu1.Top = 3, ; + Text_simplu1.Width = 271, ; + Lb_simplu1.Caption = "Partener", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Op_tx_simplu1' AS op_tx_simplu WITH ; + Height = 51, ; + Left = 12, ; + Name = "Op_tx_simplu1", ; + TabIndex = 5, ; + TabStop = .F., ; + Top = 134, ; + Width = 215, ; + Lb_simplu1.Caption = "Contul este considerat", ; + Lb_simplu1.Name = "Lb_simplu1", ; + _optiongrup1.Left = 142, ; + _optiongrup1.Name = "_optiongrup1", ; + _optiongrup1.Option1.Caption = "Activ", ; + _optiongrup1.Option1.Left = 5, ; + _optiongrup1.Option1.Name = "Option1", ; + _optiongrup1.Option1.Top = 5, ; + _optiongrup1.Option2.Caption = "Pasiv", ; + _optiongrup1.Option2.Left = 5, ; + _optiongrup1.Option2.Name = "Option2", ; + _optiongrup1.Option2.Top = 24, ; + _optiongrup1.Top = 3 + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + PROCEDURE Destroy + *!* lcCursorAcont = ALLTRIM(thisform.cCursorAcont) + *!* lcCursorCont = ALLTRIM(thisform.cCursorCont) + *!* modificare v 2.0.125 + *!* If thisform.check1.Value#0 + *!* plexcel = .t. + *!* EndIf + *!* modificare v 2.0.125 ^ + *!* IF USED(lcCursorCont) + *!* USE IN (lcCursorCont) + *!* ENDIF + + *!* IF USED(lcCursorAcont) + *!* USE IN (lcCursorAcont) + *!* ENDIF + ENDPROC + + PROCEDURE chkConturiCorespondente.Valid + Local llVisible + llVisible = (This.Value = .F.) + + xrec.DocumenteSold = .F. + Thisform.chkDocumenteSold.Refresh() + Thisform.chkDocumenteSold.Visible = m.llVisible + ENDPROC + + PROCEDURE Clb_luna_intre1.LostFocus + + lcdatai = this.tx_n1.Value + lcdataf = this.tx_n2.Value + + IF !EMPTY(lcdatai) AND !EMPTY(lcdataf) + xrec.lunai = ALLTRIM(STR(VAL(LEFT(lcdatai,2)))) + xrec.lunaf = ALLTRIM(STR(VAL(LEFT(lcdataf,2)))) + xrec.ani = RIGHT(lcdatai,4) + xrec.anf = RIGHT(lcdataf,4) + IF VAL(xrec.ani)*12+VAL(xrec.lunai)>VAL(xrec.anf)*12+VAL(xrec.lunaf) + aMESSAGEBOX('Luna initiala nu poate fi mai mare decat cea finala!',16,'Atentie!') + RETURN + ENDIF + IF VAL(xrec.anf)*12+VAL(xrec.lunaf)>gnan*12+gnluna + aMESSAGEBOX('Nu puteti selecta ca perioada finala o luna mai mare decat luna curenta!',16,'Atentie!') + RETURN + ENDIF + ENDIF + + ENDPROC + + PROCEDURE Clb_tx_simplu1.Text_simplu1.GotFocus + *!* 28.02.2012 + *!* marius.mutu + *!* la alegerea contului, nu mai apar toate inregistrarile. + *!* daca doresc toate conturile apas renunt sau terminat fara cautare + + *!* 11.07.2018 + *!* marius.mutu + *!* salvez denumirea contului + + oCont = caut_cont(,,.F.) && fara toate inregistrarile + This.Value = oCont.Cont + Thisform.cCont = oCont.Cont + xrec.cont=thisform.ccont + xrec.acont=NVL(thisform.acont,'') + xrec.dencont = Alltrim(oCont.explicatie) + + Thisform.tip_sold=oCont.tip_sold + Thisform.acont=Nvl(oCont.acont,'') + If Thisform.acont<>'' + Thisform.acontexp=Alltrim(Thisform.acont) +'-'+ Alltrim(oCont.explicatie) + Else + Thisform.acontexp=''+ Alltrim(oCont.explicatie) + Endif + Thisform._txbase1.Refresh + If !Empty(Thisform.cCont) + Do Case + Case Upper(Alltrim(Thisform.tip_sold))='A' + Thisform.op_tx_simplu1._optiongrup1.Value=1 + xrec.Activ = 'A' + Case Upper(Alltrim(Thisform.tip_sold))='P' + Thisform.op_tx_simplu1._optiongrup1.Value=2 + xrec.Activ = 'P' + Otherwise + Thisform.op_tx_simplu1._optiongrup1.Value=1 + xrec.Activ = 'A' + Endcase + Endif + Thisform.op_tx_simplu1.Refresh + + ENDPROC + + PROCEDURE Clb_tx_simplu1.Text_simplu1.Valid + If !Empty(Thisform.acont) + xrec.acont = Alltrim(Thisform.acont) + Endif + + + + *!* Local lcCont, lnSucces, lcCursorCont, lcCursorAcont + *!* lcCursorCont = "" + *!* lcCursorAcont = "" + *!* lnSucces = 1 + *!* If Alltrim(This.Value) = "" + *!* lcCont = "" + *!* Else + *!* lcCont = Alltrim(This.Value) + *!* Endif + + *!* *!* IF EMPTY(lcCont) + *!* *!* lnSucces = -1 + *!* *!* ELSE + *!* lcCursorCont = update_plcont(lcCont, gnAn) && updateserver.prg + *!* If Empty(lcCursorCont) + *!* lnSucces = -1 + *!* Else + *!* Thisform.cCursorcont = Alltrim(lcCursorCont) + + *!* Select (lcCursorCont) + *!* If Reccount() = 0 + *!* aMESSAGEBOX('Contul ' + lcCont + ' nu este introdus in planul de conturi!',16,'Atentie!') + *!* lnSucces = -1 + *!* Endif + + *!* Thisform.cb_tx_simplu1._cbbase1.RowSource='' + *!* lcCursorAcont = update_plAcont(lcCont, gnAn) && updateserver.prg + *!* Thisform.cCursorAcont = Alltrim(lcCursorAcont) + *!* Endif + *!* *!* ENDIF + + *!* If lnSucces = -1 + *!* Return + *!* Endif + + *!* xrec.Cont = lcCont + *!* If !Empty(lcCont) + *!* Select (lcCursorCont) + *!* Go Top + + + + *!* Do Case + *!* Case Upper(Alltrim(thisform.tip_sold))='A' + *!* Thisform.op_tx_simplu1._optiongrup1.Value=1 + *!* xrec.Activ = 'A' + *!* Case Upper(Alltrim(tip_sold))='P' + *!* Thisform.op_tx_simplu1._optiongrup1.Value=2 + *!* xrec.Activ = 'P' + *!* Otherwise + *!* Thisform.op_tx_simplu1._optiongrup1.Value=1 + *!* xrec.Activ = 'A' + *!* Endcase + ******************** 25.02.09 + + ********************* 25.02.09 + + + + *!* Thisform.op_tx_simplu1.Visible= .T. + *!* Thisform.op_tx_simplu1.Refresh + *!* Else + *!* Thisform.op_tx_simplu1.Visible= .F. + *!* Endif + + *!* With Thisform.cb_tx_simplu1._cbbase1 + *!* .RowSourceType= 2 + *!* .RowSource = lcCursorAcont + '.denumire,acont' + *!* .BoundColumn=2 + *!* .BoundTo = .T. + *!* Select (lcCursorAcont) + *!* Locate For Alltrim(acont) = '-1' + *!* If Found() + *!* .Value = acont + *!* .Refresh + *!* Endif + + *!* Endwith + + + + ENDPROC + + PROCEDURE Clb_tx_simplu2.Text_simplu1.GotFocus + * 10.01.2022 + * nu mai arat partenerii inactivi + + LOCAL lcCont, llToate , llInactiv, llNou + llToate = .F. + llNou = .F. + llInactiv = .F. && arat si partenerii inactivi (pote sunt proveniti din parteneri unificati) + + If Thisform.cCont = "" + lcCont = "" + llToate = .F. + Else + lcCont = Thisform.cCont + llToate = .T. + ENDIF + + oPart = caut_parteneri(lcCont, "Caut partener", m.llToate, m.llNou, m.llInactiv) + + This.Value = oPart.denumire + Thisform.id_part=oPart.id_part + If !Empty(Thisform.id_part) + xrec.id_part = Alltrim(Str(Thisform.id_part)) + xrec.numepart = Upper(Alltrim(oPart.denumire)) + Endif + + ENDPROC + + PROCEDURE Op_tx_simplu1.LostFocus + IF this._optiongrup1.Value = 1 + xrec.activ = 'A' + ELSE + xrec.activ = 'P' + ENDIF + ENDPROC + + PROCEDURE _txbase1.Valid + + + ENDPROC + +ENDDEFINE diff --git a/Ferestre/frm_config_note_contabile2007.sc2 b/Ferestre/frm_config_note_contabile2007.sc2 new file mode 100644 index 0000000..d21af49 --- /dev/null +++ b/Ferestre/frm_config_note_contabile2007.sc2 @@ -0,0 +1,265 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="frm_config_note_contabile2007.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 = 0 + Left = 0 + Name = "Dataenvironment" + Top = 0 + Width = 0 + * + +ENDDEFINE + +DEFINE CLASS frm_config_note_contabile20071 AS frm_config_note_contabile2007 OF "..\comun\clase\onote_contabile.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" /> + + * + DoCreate = .T. + Name = "Frm_config_note_contabile20071" + _shape1.Name = "_shape1" + _shape2.Name = "_shape2" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + BUT_TERMIN1.Name = "BUT_TERMIN1" + Gridsort1.Name = "Gridsort1" + _pageframe1.ErasePage = .T. + _pageframe1.Name = "_pageframe1" + _pageframe1.Page1.But_modifica1.Name = "But_modifica1" + _pageframe1.Page1.But_modifica2.Name = "But_modifica2" + _pageframe1.Page1.But_nou1.Name = "But_nou1" + _pageframe1.Page1.But_nou2.Name = "But_nou2" + _pageframe1.Page1.But_sterge1.Name = "But_sterge1" + _pageframe1.Page1.But_sterge2.Name = "But_sterge2" + _pageframe1.Page1.gridInregistrari.cAscc.HEADER1.Name = "HEADER1" + _pageframe1.Page1.gridInregistrari.cAscc.Name = "cAscc" + _pageframe1.Page1.gridInregistrari.cAscc.Text1.Name = "Text1" + _pageframe1.Page1.gridInregistrari.cAscd.HEADER1.Name = "HEADER1" + _pageframe1.Page1.gridInregistrari.cAscd.Name = "cAscd" + _pageframe1.Page1.gridInregistrari.cAscd.Text1.Name = "Text1" + _pageframe1.Page1.gridInregistrari.cCu_tva.Check1.Alignment = 2 + _pageframe1.Page1.gridInregistrari.cCu_tva.Check1.Name = "Check1" + _pageframe1.Page1.gridInregistrari.cCu_tva.HEADER1.Name = "HEADER1" + _pageframe1.Page1.gridInregistrari.cCu_tva.Name = "cCu_tva" + _pageframe1.Page1.gridInregistrari.cExplicatie.HEADER1.Name = "HEADER1" + _pageframe1.Page1.gridInregistrari.cExplicatie.Name = "cExplicatie" + _pageframe1.Page1.gridInregistrari.cExplicatie.Text1.Name = "Text1" + _pageframe1.Page1.gridInregistrari.cExplicatieTVA.HEADER1.Name = "HEADER1" + _pageframe1.Page1.gridInregistrari.cExplicatieTVA.Name = "cExplicatieTVA" + _pageframe1.Page1.gridInregistrari.cExplicatieTVA.Text1.Name = "Text1" + _pageframe1.Page1.gridInregistrari.cin_valuta.Check1.Alignment = 2 + _pageframe1.Page1.gridInregistrari.cin_valuta.Check1.Name = "Check1" + _pageframe1.Page1.gridInregistrari.cin_valuta.HEADER1.Name = "HEADER1" + _pageframe1.Page1.gridInregistrari.cin_valuta.Name = "cin_valuta" + _pageframe1.Page1.gridInregistrari.cOrdine.HEADER1.Name = "HEADER1" + _pageframe1.Page1.gridInregistrari.cOrdine.Name = "cOrdine" + _pageframe1.Page1.gridInregistrari.cOrdine.Text1.Name = "Text1" + _pageframe1.Page1.gridInregistrari.cPartc.HEADER1.Name = "HEADER1" + _pageframe1.Page1.gridInregistrari.cPartc.Name = "cPartc" + _pageframe1.Page1.gridInregistrari.cPartc.Text1.Name = "Text1" + _pageframe1.Page1.gridInregistrari.cPartd.HEADER1.Name = "HEADER1" + _pageframe1.Page1.gridInregistrari.cPartd.Name = "cPartd" + _pageframe1.Page1.gridInregistrari.cPartd.Text1.Name = "Text1" + _pageframe1.Page1.gridInregistrari.cptva.HEADER1.Name = "HEADER1" + _pageframe1.Page1.gridInregistrari.cptva.Name = "cptva" + _pageframe1.Page1.gridInregistrari.cptva.Text1.Name = "Text1" + _pageframe1.Page1.gridInregistrari.cScc.HEADER1.Name = "HEADER1" + _pageframe1.Page1.gridInregistrari.cScc.Name = "cScc" + _pageframe1.Page1.gridInregistrari.cScc.Text1.Name = "Text1" + _pageframe1.Page1.gridInregistrari.cScd.HEADER1.Name = "HEADER1" + _pageframe1.Page1.gridInregistrari.cScd.Name = "cScd" + _pageframe1.Page1.gridInregistrari.cScd.Text1.Name = "Text1" + _pageframe1.Page1.gridInregistrari.Name = "gridInregistrari" + _pageframe1.Page1.gridNote.COLUMN1.HEADER1.Name = "HEADER1" + _pageframe1.Page1.gridNote.COLUMN1.Name = "COLUMN1" + _pageframe1.Page1.gridNote.COLUMN1.Text1.Name = "Text1" + _pageframe1.Page1.gridNote.COLUMN2.HEADER1.Name = "HEADER1" + _pageframe1.Page1.gridNote.COLUMN2.Name = "COLUMN2" + _pageframe1.Page1.gridNote.COLUMN2.Text1.Name = "Text1" + _pageframe1.Page1.gridNote.COLUMN3.HEADER1.Name = "HEADER1" + _pageframe1.Page1.gridNote.COLUMN3.Name = "COLUMN3" + _pageframe1.Page1.gridNote.COLUMN3.Text1.Name = "Text1" + _pageframe1.Page1.gridNote.COLUMN4.HEADER1.Name = "HEADER1" + _pageframe1.Page1.gridNote.COLUMN4.Name = "COLUMN4" + _pageframe1.Page1.gridNote.COLUMN4.Text1.Name = "Text1" + _pageframe1.Page1.gridNote.Name = "gridNote" + _pageframe1.Page1.Name = "Page1" + _pageframe1.Page2.But_copiaza2.Name = "But_copiaza2" + _pageframe1.Page2.But_editeazaset.Name = "But_editeazaset" + _pageframe1.Page2.But_modifica1.Name = "But_modifica1" + _pageframe1.Page2.But_modifica2.Name = "But_modifica2" + _pageframe1.Page2.But_nou1.Name = "But_nou1" + _pageframe1.Page2.But_nou2.Name = "But_nou2" + _pageframe1.Page2.But_renunt3.Name = "But_renunt3" + _pageframe1.Page2.But_salveaza1.Name = "But_salveaza1" + _pageframe1.Page2.But_sterge1.Name = "But_sterge1" + _pageframe1.Page2.But_sterge2.Name = "But_sterge2" + _pageframe1.Page2.grdNote.CALES.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdNote.CALES.Name = "CALES" + _pageframe1.Page2.grdNote.CALES.Text1.Name = "Text1" + _pageframe1.Page2.grdNote.CALES._CHECKBOX1.Alignment = 2 + _pageframe1.Page2.grdNote.CALES._CHECKBOX1.Name = "_CHECKBOX1" + _pageframe1.Page2.grdNote.COLUMN1.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdNote.COLUMN1.Name = "COLUMN1" + _pageframe1.Page2.grdNote.COLUMN1.Text1.Name = "Text1" + _pageframe1.Page2.grdNote.COLUMN10.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdNote.COLUMN10.Name = "COLUMN10" + _pageframe1.Page2.grdNote.COLUMN10.Text1.Name = "Text1" + _pageframe1.Page2.grdNote.COLUMN11.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdNote.COLUMN11.Name = "COLUMN11" + _pageframe1.Page2.grdNote.COLUMN11.Text1.Name = "Text1" + _pageframe1.Page2.grdNote.COLUMN12.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdNote.COLUMN12.Name = "COLUMN12" + _pageframe1.Page2.grdNote.COLUMN12.Text1.Name = "Text1" + _pageframe1.Page2.grdNote.COLUMN13.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdNote.COLUMN13.Name = "COLUMN13" + _pageframe1.Page2.grdNote.COLUMN13.Text1.Name = "Text1" + _pageframe1.Page2.grdNote.COLUMN14.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdNote.COLUMN14.Name = "COLUMN14" + _pageframe1.Page2.grdNote.COLUMN14.Text1.Name = "Text1" + _pageframe1.Page2.grdNote.COLUMN15.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdNote.COLUMN15.Name = "COLUMN15" + _pageframe1.Page2.grdNote.COLUMN15.Text1.Name = "Text1" + _pageframe1.Page2.grdNote.COLUMN16.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdNote.COLUMN16.Name = "COLUMN16" + _pageframe1.Page2.grdNote.COLUMN16.Text1.Name = "Text1" + _pageframe1.Page2.grdNote.COLUMN17.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdNote.COLUMN17.Name = "COLUMN17" + _pageframe1.Page2.grdNote.COLUMN17.Text1.Name = "Text1" + _pageframe1.Page2.grdNote.COLUMN18.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdNote.COLUMN18.Name = "COLUMN18" + _pageframe1.Page2.grdNote.COLUMN18.Text1.Name = "Text1" + _pageframe1.Page2.grdNote.COLUMN19.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdNote.COLUMN19.Name = "COLUMN19" + _pageframe1.Page2.grdNote.COLUMN19.Text1.Name = "Text1" + _pageframe1.Page2.grdNote.COLUMN2.Header2.Name = "Header2" + _pageframe1.Page2.grdNote.COLUMN2.Name = "COLUMN2" + _pageframe1.Page2.grdNote.COLUMN2.Text1.Name = "Text1" + _pageframe1.Page2.grdNote.COLUMN20.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdNote.COLUMN20.Name = "COLUMN20" + _pageframe1.Page2.grdNote.COLUMN20.Text1.Name = "Text1" + _pageframe1.Page2.grdNote.COLUMN21.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdNote.COLUMN21.Name = "COLUMN21" + _pageframe1.Page2.grdNote.COLUMN21.Text1.Name = "Text1" + _pageframe1.Page2.grdNote.COLUMN22.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdNote.COLUMN22.Name = "COLUMN22" + _pageframe1.Page2.grdNote.COLUMN22.Text1.Name = "Text1" + _pageframe1.Page2.grdNote.COLUMN23.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdNote.COLUMN23.Name = "COLUMN23" + _pageframe1.Page2.grdNote.COLUMN23.Text1.Name = "Text1" + _pageframe1.Page2.grdNote.COLUMN24.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdNote.COLUMN24.Name = "COLUMN24" + _pageframe1.Page2.grdNote.COLUMN24.Text1.Name = "Text1" + _pageframe1.Page2.grdNote.COLUMN25.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdNote.COLUMN25.Name = "COLUMN25" + _pageframe1.Page2.grdNote.COLUMN25.Text1.Name = "Text1" + _pageframe1.Page2.grdNote.COLUMN26.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdNote.COLUMN26.Name = "COLUMN26" + _pageframe1.Page2.grdNote.COLUMN26.Text1.Name = "Text1" + _pageframe1.Page2.grdNote.COLUMN27.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdNote.COLUMN27.Name = "COLUMN27" + _pageframe1.Page2.grdNote.COLUMN27.Text1.Name = "Text1" + _pageframe1.Page2.grdNote.COLUMN28.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdNote.COLUMN28.Name = "COLUMN28" + _pageframe1.Page2.grdNote.COLUMN28.Text1.Name = "Text1" + _pageframe1.Page2.grdNote.COLUMN29.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdNote.COLUMN29.Name = "COLUMN29" + _pageframe1.Page2.grdNote.COLUMN29.Text1.Name = "Text1" + _pageframe1.Page2.grdNote.COLUMN3.Header3.Name = "Header3" + _pageframe1.Page2.grdNote.COLUMN3.Name = "COLUMN3" + _pageframe1.Page2.grdNote.COLUMN3.Text1.Name = "Text1" + _pageframe1.Page2.grdNote.COLUMN30.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdNote.COLUMN30.Name = "COLUMN30" + _pageframe1.Page2.grdNote.COLUMN30.Text1.Name = "Text1" + _pageframe1.Page2.grdNote.COLUMN31.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdNote.COLUMN31.Name = "COLUMN31" + _pageframe1.Page2.grdNote.COLUMN31.Text1.Name = "Text1" + _pageframe1.Page2.grdNote.COLUMN32.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdNote.COLUMN32.Name = "COLUMN32" + _pageframe1.Page2.grdNote.COLUMN32.Text1.Name = "Text1" + _pageframe1.Page2.grdNote.Column33.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdNote.Column33.Name = "Column33" + _pageframe1.Page2.grdNote.Column33.Text1.Name = "Text1" + _pageframe1.Page2.grdNote.Column34.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdNote.Column34.Name = "Column34" + _pageframe1.Page2.grdNote.Column34.Text1.Name = "Text1" + _pageframe1.Page2.grdNote.Column35.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdNote.Column35.Name = "Column35" + _pageframe1.Page2.grdNote.Column35.Text1.Name = "Text1" + _pageframe1.Page2.grdNote.Column36.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdNote.Column36.Name = "Column36" + _pageframe1.Page2.grdNote.Column36._CHECKBOX1.Alignment = 2 + _pageframe1.Page2.grdNote.Column36._CHECKBOX1.Name = "_CHECKBOX1" + _pageframe1.Page2.grdNote.COLUMN37.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdNote.COLUMN37.Name = "COLUMN37" + _pageframe1.Page2.grdNote.COLUMN37.Text1.Name = "Text1" + _pageframe1.Page2.grdNote.COLUMN38.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdNote.COLUMN38.Name = "COLUMN38" + _pageframe1.Page2.grdNote.COLUMN38.Text1.Name = "Text1" + _pageframe1.Page2.grdNote.COLUMN39.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdNote.COLUMN39.Name = "COLUMN39" + _pageframe1.Page2.grdNote.COLUMN39.Text1.Name = "Text1" + _pageframe1.Page2.grdNote.COLUMN4.Header4.Name = "Header4" + _pageframe1.Page2.grdNote.COLUMN4.Name = "COLUMN4" + _pageframe1.Page2.grdNote.COLUMN4.Text1.Name = "Text1" + _pageframe1.Page2.grdNote.COLUMN40.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdNote.COLUMN40.Name = "COLUMN40" + _pageframe1.Page2.grdNote.COLUMN40.Text1.Name = "Text1" + _pageframe1.Page2.grdNote.COLUMN5.Header5.Name = "Header5" + _pageframe1.Page2.grdNote.COLUMN5.Name = "COLUMN5" + _pageframe1.Page2.grdNote.COLUMN5.Text1.Name = "Text1" + _pageframe1.Page2.grdNote.COLUMN6.Header6.Name = "Header6" + _pageframe1.Page2.grdNote.COLUMN6.Name = "COLUMN6" + _pageframe1.Page2.grdNote.COLUMN6.Text1.Name = "Text1" + _pageframe1.Page2.grdNote.COLUMN7.Header7.Name = "Header7" + _pageframe1.Page2.grdNote.COLUMN7.Name = "COLUMN7" + _pageframe1.Page2.grdNote.COLUMN7.Text1.Name = "Text1" + _pageframe1.Page2.grdNote.COLUMN8.Header8.Name = "Header8" + _pageframe1.Page2.grdNote.COLUMN8.Name = "COLUMN8" + _pageframe1.Page2.grdNote.COLUMN8.Text1.Name = "Text1" + _pageframe1.Page2.grdNote.COLUMN9.Header9.Name = "Header9" + _pageframe1.Page2.grdNote.COLUMN9.Name = "COLUMN9" + _pageframe1.Page2.grdNote.COLUMN9.Text1.Name = "Text1" + _pageframe1.Page2.grdNote.Name = "grdNote" + _pageframe1.Page2.grdRequest.COLUMN1.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdRequest.COLUMN1.Name = "COLUMN1" + _pageframe1.Page2.grdRequest.COLUMN1.Text1.Name = "Text1" + _pageframe1.Page2.grdRequest.COLUMN2.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdRequest.COLUMN2.Name = "COLUMN2" + _pageframe1.Page2.grdRequest.COLUMN2.Text1.Name = "Text1" + _pageframe1.Page2.grdRequest.Name = "grdRequest" + _pageframe1.Page2.grdUCategorii.cCategorie.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdUCategorii.cCategorie.Name = "cCategorie" + _pageframe1.Page2.grdUCategorii.cCategorie.Text1.Name = "Text1" + _pageframe1.Page2.grdUCategorii.cIdCategorie.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdUCategorii.cIdCategorie.Name = "cIdCategorie" + _pageframe1.Page2.grdUCategorii.cIdCategorie.Text1.Name = "Text1" + _pageframe1.Page2.grdUCategorii.cOrdine.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdUCategorii.cOrdine.Name = "cOrdine" + _pageframe1.Page2.grdUCategorii.cOrdine.Text1.Name = "Text1" + _pageframe1.Page2.grdUCategorii.Name = "grdUCategorii" + _pageframe1.Page2.grdUSets.cIdSet.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdUSets.cIdSet.Name = "cIdSet" + _pageframe1.Page2.grdUSets.cIdSet.Text1.Name = "Text1" + _pageframe1.Page2.grdUSets.cNumeSet.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdUSets.cNumeSet.Name = "cNumeSet" + _pageframe1.Page2.grdUSets.cNumeSet.Text1.Name = "Text1" + _pageframe1.Page2.grdUSets.Name = "grdUSets" + _pageframe1.Page2.lblCategorie.Name = "lblCategorie" + _pageframe1.Page2.lblCategorii.Name = "lblCategorii" + _pageframe1.Page2.lblNote.Name = "lblNote" + _pageframe1.Page2.lblOrdine.Name = "lblOrdine" + _pageframe1.Page2.lblRequest.Name = "lblRequest" + _pageframe1.Page2.lblSets.Name = "lblSets" + _pageframe1.Page2.Name = "Page2" + _pageframe1.Page2.spnOrdine.Name = "spnOrdine" + _pageframe1.Page2.txtCategorie.Name = "txtCategorie" + * + +ENDDEFINE diff --git a/Ferestre/frm_decl394_2016.sc2 b/Ferestre/frm_decl394_2016.sc2 new file mode 100644 index 0000000..e77bfad --- /dev/null +++ b/Ferestre/frm_decl394_2016.sc2 @@ -0,0 +1,418 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="frm_decl394_2016.scx" CPID="1250" /> (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 = 0 + Left = 0 + Name = "Dataenvironment" + Top = 0 + Width = 0 + * + +ENDDEFINE + +DEFINE CLASS frm_decl394_20161 AS frm_decl394_2016 OF "..\clase\ovanzcump.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" /> + + * + DoCreate = .T. + Name = "Frm_decl394_20161" + _SHAPE1.Name = "_SHAPE1" + _SHAPE2.Name = "_SHAPE2" + LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121" + GRIDSORT1.Name = "GRIDSORT1" + BUT_TERMIN1.Name = "BUT_TERMIN1" + _pageframe1.ErasePage = .T. + _pageframe1.Name = "_pageframe1" + _pageframe1.Page1.cboTip.Name = "cboTip" + _pageframe1.Page1.chkOperatiuni.Alignment = 0 + _pageframe1.Page1.chkOperatiuni.Name = "chkOperatiuni" + _pageframe1.Page1.chkTVAIncasare.Alignment = 0 + _pageframe1.Page1.chkTVAIncasare.Name = "chkTVAIncasare" + _pageframe1.Page1.chkTvaNedeductibil.Alignment = 0 + _pageframe1.Page1.chkTvaNedeductibil.Name = "chkTvaNedeductibil" + _pageframe1.Page1.cmdCitesteDate.Name = "cmdCitesteDate" + _pageframe1.Page1.grdSeriiFacturi.COLUMN1.HEADER1.Name = "HEADER1" + _pageframe1.Page1.grdSeriiFacturi.COLUMN1.Name = "COLUMN1" + _pageframe1.Page1.grdSeriiFacturi.COLUMN1.Text1.Name = "Text1" + _pageframe1.Page1.grdSeriiFacturi.COLUMN2.HEADER1.Name = "HEADER1" + _pageframe1.Page1.grdSeriiFacturi.COLUMN2.Name = "COLUMN2" + _pageframe1.Page1.grdSeriiFacturi.COLUMN2.Text1.Name = "Text1" + _pageframe1.Page1.grdSeriiFacturi.COLUMN3.HEADER1.Name = "HEADER1" + _pageframe1.Page1.grdSeriiFacturi.COLUMN3.Name = "COLUMN3" + _pageframe1.Page1.grdSeriiFacturi.COLUMN3.Text1.Name = "Text1" + _pageframe1.Page1.grdSeriiFacturi.Name = "grdSeriiFacturi" + _pageframe1.Page1.grdTipDoc.COLUMN1.HEADER1.Name = "HEADER1" + _pageframe1.Page1.grdTipDoc.COLUMN1.Name = "COLUMN1" + _pageframe1.Page1.grdTipDoc.COLUMN1.Text1.Name = "Text1" + _pageframe1.Page1.grdTipDoc.COLUMN2.HEADER1.Name = "HEADER1" + _pageframe1.Page1.grdTipDoc.COLUMN2.Name = "COLUMN2" + _pageframe1.Page1.grdTipDoc.COLUMN2.Text1.Name = "Text1" + _pageframe1.Page1.grdTipDoc.Name = "grdTipDoc" + _pageframe1.Page1.Name = "Page1" + _pageframe1.Page1._label1.Name = "_label1" + _pageframe1.Page1._label2.Name = "_label2" + _pageframe1.Page1._label3.Name = "_label3" + _pageframe1.Page2.grdAutoFacturi.COLUMN1.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdAutoFacturi.COLUMN1.Name = "COLUMN1" + _pageframe1.Page2.grdAutoFacturi.COLUMN1.Text1.Name = "Text1" + _pageframe1.Page2.grdAutoFacturi.COLUMN10.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdAutoFacturi.COLUMN10.Name = "COLUMN10" + _pageframe1.Page2.grdAutoFacturi.COLUMN10.Text1.Name = "Text1" + _pageframe1.Page2.grdAutoFacturi.COLUMN2.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdAutoFacturi.COLUMN2.Name = "COLUMN2" + _pageframe1.Page2.grdAutoFacturi.COLUMN2.Text1.Name = "Text1" + _pageframe1.Page2.grdAutoFacturi.COLUMN3.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdAutoFacturi.COLUMN3.Name = "COLUMN3" + _pageframe1.Page2.grdAutoFacturi.COLUMN3.Text1.Name = "Text1" + _pageframe1.Page2.grdAutoFacturi.COLUMN4.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdAutoFacturi.COLUMN4.Name = "COLUMN4" + _pageframe1.Page2.grdAutoFacturi.COLUMN4.Text1.Name = "Text1" + _pageframe1.Page2.grdAutoFacturi.COLUMN5.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdAutoFacturi.COLUMN5.Name = "COLUMN5" + _pageframe1.Page2.grdAutoFacturi.COLUMN5.Text1.Name = "Text1" + _pageframe1.Page2.grdAutoFacturi.COLUMN6.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdAutoFacturi.COLUMN6.Name = "COLUMN6" + _pageframe1.Page2.grdAutoFacturi.COLUMN6.Text1.Name = "Text1" + _pageframe1.Page2.grdAutoFacturi.COLUMN7.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdAutoFacturi.COLUMN7.Name = "COLUMN7" + _pageframe1.Page2.grdAutoFacturi.COLUMN7.Text1.Name = "Text1" + _pageframe1.Page2.grdAutoFacturi.COLUMN8.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdAutoFacturi.COLUMN8.Name = "COLUMN8" + _pageframe1.Page2.grdAutoFacturi.COLUMN8.Text1.Name = "Text1" + _pageframe1.Page2.grdAutoFacturi.COLUMN9.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdAutoFacturi.COLUMN9.Name = "COLUMN9" + _pageframe1.Page2.grdAutoFacturi.COLUMN9.Text1.Name = "Text1" + _pageframe1.Page2.grdAutoFacturi.Name = "grdAutoFacturi" + _pageframe1.Page2.grdFacturiAlocate.COLUMN1.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdFacturiAlocate.COLUMN1.Name = "COLUMN1" + _pageframe1.Page2.grdFacturiAlocate.COLUMN1.Text1.Name = "Text1" + _pageframe1.Page2.grdFacturiAlocate.COLUMN2.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdFacturiAlocate.COLUMN2.Name = "COLUMN2" + _pageframe1.Page2.grdFacturiAlocate.COLUMN2.Text1.Name = "Text1" + _pageframe1.Page2.grdFacturiAlocate.COLUMN3.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdFacturiAlocate.COLUMN3.Name = "COLUMN3" + _pageframe1.Page2.grdFacturiAlocate.COLUMN3.Text1.Name = "Text1" + _pageframe1.Page2.grdFacturiAlocate.Name = "grdFacturiAlocate" + _pageframe1.Page2.grdFacturiEmise.COLUMN1.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdFacturiEmise.COLUMN1.Name = "COLUMN1" + _pageframe1.Page2.grdFacturiEmise.COLUMN1.Text1.Name = "Text1" + _pageframe1.Page2.grdFacturiEmise.COLUMN2.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdFacturiEmise.COLUMN2.Name = "COLUMN2" + _pageframe1.Page2.grdFacturiEmise.COLUMN2.Text1.Name = "Text1" + _pageframe1.Page2.grdFacturiEmise.COLUMN3.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdFacturiEmise.COLUMN3.Name = "COLUMN3" + _pageframe1.Page2.grdFacturiEmise.COLUMN3.Text1.Name = "Text1" + _pageframe1.Page2.grdFacturiEmise.Name = "grdFacturiEmise" + _pageframe1.Page2.grdFacturiEmiseTip.COLUMN1.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdFacturiEmiseTip.COLUMN1.Name = "COLUMN1" + _pageframe1.Page2.grdFacturiEmiseTip.COLUMN1.Text1.Name = "Text1" + _pageframe1.Page2.grdFacturiEmiseTip.COLUMN2.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdFacturiEmiseTip.COLUMN2.Name = "COLUMN2" + _pageframe1.Page2.grdFacturiEmiseTip.COLUMN2.Text1.Name = "Text1" + _pageframe1.Page2.grdFacturiEmiseTip.COLUMN3.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdFacturiEmiseTip.COLUMN3.Name = "COLUMN3" + _pageframe1.Page2.grdFacturiEmiseTip.COLUMN3.Text1.Name = "Text1" + _pageframe1.Page2.grdFacturiEmiseTip.Name = "grdFacturiEmiseTip" + _pageframe1.Page2.grdSectiuneaI.COLUMN1.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdSectiuneaI.COLUMN1.Name = "COLUMN1" + _pageframe1.Page2.grdSectiuneaI.COLUMN1.Text1.Name = "Text1" + _pageframe1.Page2.grdSectiuneaI.COLUMN2.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdSectiuneaI.COLUMN2.Name = "COLUMN2" + _pageframe1.Page2.grdSectiuneaI.COLUMN2.Text1.Name = "Text1" + _pageframe1.Page2.grdSectiuneaI.COLUMN3.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdSectiuneaI.COLUMN3.Name = "COLUMN3" + _pageframe1.Page2.grdSectiuneaI.COLUMN3.Text1.Name = "Text1" + _pageframe1.Page2.grdSectiuneaI.COLUMN4.HEADER1.Name = "HEADER1" + _pageframe1.Page2.grdSectiuneaI.COLUMN4.Name = "COLUMN4" + _pageframe1.Page2.grdSectiuneaI.COLUMN4.Text1.Name = "Text1" + _pageframe1.Page2.grdSectiuneaI.Name = "grdSectiuneaI" + _pageframe1.Page2.lblAutofacturi.Name = "lblAutofacturi" + _pageframe1.Page2.Name = "Page2" + _pageframe1.Page2.txtNrFacturiEmise.Name = "txtNrFacturiEmise" + _pageframe1.Page2._grdbase1.COLUMN1.HEADER1.Name = "HEADER1" + _pageframe1.Page2._grdbase1.COLUMN1.Name = "COLUMN1" + _pageframe1.Page2._grdbase1.COLUMN1.Text1.Name = "Text1" + _pageframe1.Page2._grdbase1.COLUMN2.HEADER1.Name = "HEADER1" + _pageframe1.Page2._grdbase1.COLUMN2.Name = "COLUMN2" + _pageframe1.Page2._grdbase1.COLUMN2.Text1.Name = "Text1" + _pageframe1.Page2._grdbase1.COLUMN3.HEADER1.Name = "HEADER1" + _pageframe1.Page2._grdbase1.COLUMN3.Name = "COLUMN3" + _pageframe1.Page2._grdbase1.COLUMN3.Text1.Name = "Text1" + _pageframe1.Page2._grdbase1.COLUMN4.HEADER1.Name = "HEADER1" + _pageframe1.Page2._grdbase1.COLUMN4.Name = "COLUMN4" + _pageframe1.Page2._grdbase1.COLUMN4.Text1.Name = "Text1" + _pageframe1.Page2._grdbase1.COLUMN5.HEADER1.Name = "HEADER1" + _pageframe1.Page2._grdbase1.COLUMN5.Name = "COLUMN5" + _pageframe1.Page2._grdbase1.COLUMN5.Text1.Name = "Text1" + _pageframe1.Page2._grdbase1.COLUMN6.HEADER1.Name = "HEADER1" + _pageframe1.Page2._grdbase1.COLUMN6.Name = "COLUMN6" + _pageframe1.Page2._grdbase1.COLUMN6.Text1.Name = "Text1" + _pageframe1.Page2._grdbase1.Name = "_grdbase1" + _pageframe1.Page2._label1.Name = "_label1" + _pageframe1.Page2._label2.Name = "_label2" + _pageframe1.Page2._label3.Name = "_label3" + _pageframe1.Page2._label4.Name = "_label4" + _pageframe1.Page2._label5.Name = "_label5" + _pageframe1.Page3.grdSectiuneaI4.COLUMN1.HEADER1.Name = "HEADER1" + _pageframe1.Page3.grdSectiuneaI4.COLUMN1.Name = "COLUMN1" + _pageframe1.Page3.grdSectiuneaI4.COLUMN1.Text1.Name = "Text1" + _pageframe1.Page3.grdSectiuneaI4.COLUMN2.HEADER1.Name = "HEADER1" + _pageframe1.Page3.grdSectiuneaI4.COLUMN2.Name = "COLUMN2" + _pageframe1.Page3.grdSectiuneaI4.COLUMN2.Text1.Name = "Text1" + _pageframe1.Page3.grdSectiuneaI4.COLUMN3.HEADER1.Name = "HEADER1" + _pageframe1.Page3.grdSectiuneaI4.COLUMN3.Name = "COLUMN3" + _pageframe1.Page3.grdSectiuneaI4.COLUMN3.Text1.Name = "Text1" + _pageframe1.Page3.grdSectiuneaI4.COLUMN4.HEADER1.Name = "HEADER1" + _pageframe1.Page3.grdSectiuneaI4.COLUMN4.Name = "COLUMN4" + _pageframe1.Page3.grdSectiuneaI4.COLUMN4.Text1.Name = "Text1" + _pageframe1.Page3.grdSectiuneaI4.COLUMN5.HEADER1.Name = "HEADER1" + _pageframe1.Page3.grdSectiuneaI4.COLUMN5.Name = "COLUMN5" + _pageframe1.Page3.grdSectiuneaI4.COLUMN5.Text1.Name = "Text1" + _pageframe1.Page3.grdSectiuneaI4.COLUMN6.HEADER1.Name = "HEADER1" + _pageframe1.Page3.grdSectiuneaI4.COLUMN6.Name = "COLUMN6" + _pageframe1.Page3.grdSectiuneaI4.COLUMN6.Text1.Name = "Text1" + _pageframe1.Page3.grdSectiuneaI4.Name = "grdSectiuneaI4" + _pageframe1.Page3.grdSectiuneaI6.COLUMN1.HEADER1.Name = "HEADER1" + _pageframe1.Page3.grdSectiuneaI6.COLUMN1.Name = "COLUMN1" + _pageframe1.Page3.grdSectiuneaI6.COLUMN1.Text1.Name = "Text1" + _pageframe1.Page3.grdSectiuneaI6.COLUMN2.HEADER1.Name = "HEADER1" + _pageframe1.Page3.grdSectiuneaI6.COLUMN2.Name = "COLUMN2" + _pageframe1.Page3.grdSectiuneaI6.COLUMN2.Text1.Name = "Text1" + _pageframe1.Page3.grdSectiuneaI6.COLUMN3.HEADER1.Name = "HEADER1" + _pageframe1.Page3.grdSectiuneaI6.COLUMN3.Name = "COLUMN3" + _pageframe1.Page3.grdSectiuneaI6.COLUMN3.Text1.Name = "Text1" + _pageframe1.Page3.grdSectiuneaI6.COLUMN4.HEADER1.Name = "HEADER1" + _pageframe1.Page3.grdSectiuneaI6.COLUMN4.Name = "COLUMN4" + _pageframe1.Page3.grdSectiuneaI6.COLUMN4.Text1.Name = "Text1" + _pageframe1.Page3.grdSectiuneaI6.COLUMN5.HEADER1.Name = "HEADER1" + _pageframe1.Page3.grdSectiuneaI6.COLUMN5.Name = "COLUMN5" + _pageframe1.Page3.grdSectiuneaI6.COLUMN5.Text1.Name = "Text1" + _pageframe1.Page3.grdSectiuneaI6.Name = "grdSectiuneaI6" + _pageframe1.Page3.Name = "Page3" + _pageframe1.Page3._label1.Name = "_label1" + _pageframe1.Page3._label10.Name = "_label10" + _pageframe1.Page3._label11.Name = "_label11" + _pageframe1.Page3._label2.Name = "_label2" + _pageframe1.Page3._label3.Name = "_label3" + _pageframe1.Page3._label4.Name = "_label4" + _pageframe1.Page3._label5.Name = "_label5" + _pageframe1.Page3._label6.Name = "_label6" + _pageframe1.Page3._label7.Name = "_label7" + _pageframe1.Page3._label8.Name = "_label8" + _pageframe1.Page3._label9.Name = "_label9" + _pageframe1.Page4.grdJTVA.COLUMN1.HEADER1.Name = "HEADER1" + _pageframe1.Page4.grdJTVA.COLUMN1.Name = "COLUMN1" + _pageframe1.Page4.grdJTVA.COLUMN1.Text1.Name = "Text1" + _pageframe1.Page4.grdJTVA.COLUMN10.HEADER1.Name = "HEADER1" + _pageframe1.Page4.grdJTVA.COLUMN10.Name = "COLUMN10" + _pageframe1.Page4.grdJTVA.COLUMN10.Text1.Name = "Text1" + _pageframe1.Page4.grdJTVA.COLUMN11.HEADER1.Name = "HEADER1" + _pageframe1.Page4.grdJTVA.COLUMN11.Name = "COLUMN11" + _pageframe1.Page4.grdJTVA.COLUMN11.Text1.Name = "Text1" + _pageframe1.Page4.grdJTVA.COLUMN12.HEADER1.Name = "HEADER1" + _pageframe1.Page4.grdJTVA.COLUMN12.Name = "COLUMN12" + _pageframe1.Page4.grdJTVA.COLUMN12.Text1.Name = "Text1" + _pageframe1.Page4.grdJTVA.COLUMN13.HEADER1.Name = "HEADER1" + _pageframe1.Page4.grdJTVA.COLUMN13.Name = "COLUMN13" + _pageframe1.Page4.grdJTVA.COLUMN13.Text1.Name = "Text1" + _pageframe1.Page4.grdJTVA.COLUMN14.HEADER1.Name = "HEADER1" + _pageframe1.Page4.grdJTVA.COLUMN14.Name = "COLUMN14" + _pageframe1.Page4.grdJTVA.COLUMN14.Text1.Name = "Text1" + _pageframe1.Page4.grdJTVA.COLUMN15.HEADER1.Name = "HEADER1" + _pageframe1.Page4.grdJTVA.COLUMN15.Name = "COLUMN15" + _pageframe1.Page4.grdJTVA.COLUMN15.Text1.Name = "Text1" + _pageframe1.Page4.grdJTVA.COLUMN16.HEADER1.Name = "HEADER1" + _pageframe1.Page4.grdJTVA.COLUMN16.Name = "COLUMN16" + _pageframe1.Page4.grdJTVA.COLUMN16.Text1.Name = "Text1" + _pageframe1.Page4.grdJTVA.COLUMN17.HEADER1.Name = "HEADER1" + _pageframe1.Page4.grdJTVA.COLUMN17.Name = "COLUMN17" + _pageframe1.Page4.grdJTVA.COLUMN17.Text1.Name = "Text1" + _pageframe1.Page4.grdJTVA.COLUMN18.HEADER1.Name = "HEADER1" + _pageframe1.Page4.grdJTVA.COLUMN18.Name = "COLUMN18" + _pageframe1.Page4.grdJTVA.COLUMN18.Text1.Name = "Text1" + _pageframe1.Page4.grdJTVA.COLUMN19.HEADER1.Name = "HEADER1" + _pageframe1.Page4.grdJTVA.COLUMN19.Name = "COLUMN19" + _pageframe1.Page4.grdJTVA.COLUMN19.Text1.Name = "Text1" + _pageframe1.Page4.grdJTVA.COLUMN2.HEADER1.Name = "HEADER1" + _pageframe1.Page4.grdJTVA.COLUMN2.Name = "COLUMN2" + _pageframe1.Page4.grdJTVA.COLUMN2.Text1.Name = "Text1" + _pageframe1.Page4.grdJTVA.COLUMN20.HEADER1.Name = "HEADER1" + _pageframe1.Page4.grdJTVA.COLUMN20.Name = "COLUMN20" + _pageframe1.Page4.grdJTVA.COLUMN20.Text1.Name = "Text1" + _pageframe1.Page4.grdJTVA.COLUMN21.HEADER1.Name = "HEADER1" + _pageframe1.Page4.grdJTVA.COLUMN21.Name = "COLUMN21" + _pageframe1.Page4.grdJTVA.COLUMN21.Text1.Name = "Text1" + _pageframe1.Page4.grdJTVA.COLUMN22.HEADER1.Name = "HEADER1" + _pageframe1.Page4.grdJTVA.COLUMN22.Name = "COLUMN22" + _pageframe1.Page4.grdJTVA.COLUMN22.Text1.Name = "Text1" + _pageframe1.Page4.grdJTVA.COLUMN23.HEADER1.Name = "HEADER1" + _pageframe1.Page4.grdJTVA.COLUMN23.Name = "COLUMN23" + _pageframe1.Page4.grdJTVA.COLUMN23.Text1.Name = "Text1" + _pageframe1.Page4.grdJTVA.COLUMN24.HEADER1.Name = "HEADER1" + _pageframe1.Page4.grdJTVA.COLUMN24.Name = "COLUMN24" + _pageframe1.Page4.grdJTVA.COLUMN24.Text1.Name = "Text1" + _pageframe1.Page4.grdJTVA.COLUMN25.HEADER1.Name = "HEADER1" + _pageframe1.Page4.grdJTVA.COLUMN25.Name = "COLUMN25" + _pageframe1.Page4.grdJTVA.COLUMN25.Text1.Name = "Text1" + _pageframe1.Page4.grdJTVA.COLUMN26.HEADER1.Name = "HEADER1" + _pageframe1.Page4.grdJTVA.COLUMN26.Name = "COLUMN26" + _pageframe1.Page4.grdJTVA.COLUMN26.Text1.Name = "Text1" + _pageframe1.Page4.grdJTVA.COLUMN27.HEADER1.Name = "HEADER1" + _pageframe1.Page4.grdJTVA.COLUMN27.Name = "COLUMN27" + _pageframe1.Page4.grdJTVA.COLUMN27.Text1.Name = "Text1" + _pageframe1.Page4.grdJTVA.COLUMN28.HEADER1.Name = "HEADER1" + _pageframe1.Page4.grdJTVA.COLUMN28.Name = "COLUMN28" + _pageframe1.Page4.grdJTVA.COLUMN28.Text1.Name = "Text1" + _pageframe1.Page4.grdJTVA.COLUMN29.HEADER1.Name = "HEADER1" + _pageframe1.Page4.grdJTVA.COLUMN29.Name = "COLUMN29" + _pageframe1.Page4.grdJTVA.COLUMN29.Text1.Name = "Text1" + _pageframe1.Page4.grdJTVA.COLUMN3.HEADER1.Name = "HEADER1" + _pageframe1.Page4.grdJTVA.COLUMN3.Name = "COLUMN3" + _pageframe1.Page4.grdJTVA.COLUMN3.Text1.Name = "Text1" + _pageframe1.Page4.grdJTVA.COLUMN30.HEADER1.Name = "HEADER1" + _pageframe1.Page4.grdJTVA.COLUMN30.Name = "COLUMN30" + _pageframe1.Page4.grdJTVA.COLUMN30.Text1.Name = "Text1" + _pageframe1.Page4.grdJTVA.COLUMN31.HEADER1.Name = "HEADER1" + _pageframe1.Page4.grdJTVA.COLUMN31.Name = "COLUMN31" + _pageframe1.Page4.grdJTVA.COLUMN31.Text1.Name = "Text1" + _pageframe1.Page4.grdJTVA.COLUMN32.HEADER1.Name = "HEADER1" + _pageframe1.Page4.grdJTVA.COLUMN32.Name = "COLUMN32" + _pageframe1.Page4.grdJTVA.COLUMN32.Text1.Name = "Text1" + _pageframe1.Page4.grdJTVA.COLUMN33.HEADER1.Name = "HEADER1" + _pageframe1.Page4.grdJTVA.COLUMN33.Name = "COLUMN33" + _pageframe1.Page4.grdJTVA.COLUMN33.Text1.Name = "Text1" + _pageframe1.Page4.grdJTVA.COLUMN34.HEADER1.Name = "HEADER1" + _pageframe1.Page4.grdJTVA.COLUMN34.Name = "COLUMN34" + _pageframe1.Page4.grdJTVA.COLUMN34.Text1.Name = "Text1" + _pageframe1.Page4.grdJTVA.COLUMN35.HEADER1.Name = "HEADER1" + _pageframe1.Page4.grdJTVA.COLUMN35.Name = "COLUMN35" + _pageframe1.Page4.grdJTVA.COLUMN35.Text1.Name = "Text1" + _pageframe1.Page4.grdJTVA.COLUMN36.HEADER1.Name = "HEADER1" + _pageframe1.Page4.grdJTVA.COLUMN36.Name = "COLUMN36" + _pageframe1.Page4.grdJTVA.COLUMN36.Text1.Name = "Text1" + _pageframe1.Page4.grdJTVA.COLUMN37.HEADER1.Name = "HEADER1" + _pageframe1.Page4.grdJTVA.COLUMN37.Name = "COLUMN37" + _pageframe1.Page4.grdJTVA.COLUMN37.Text1.Name = "Text1" + _pageframe1.Page4.grdJTVA.COLUMN38.HEADER1.Name = "HEADER1" + _pageframe1.Page4.grdJTVA.COLUMN38.Name = "COLUMN38" + _pageframe1.Page4.grdJTVA.COLUMN38.Text1.Name = "Text1" + _pageframe1.Page4.grdJTVA.COLUMN39.HEADER1.Name = "HEADER1" + _pageframe1.Page4.grdJTVA.COLUMN39.Name = "COLUMN39" + _pageframe1.Page4.grdJTVA.COLUMN39.Text1.Name = "Text1" + _pageframe1.Page4.grdJTVA.COLUMN4.HEADER1.Name = "HEADER1" + _pageframe1.Page4.grdJTVA.COLUMN4.Name = "COLUMN4" + _pageframe1.Page4.grdJTVA.COLUMN4.Text1.Name = "Text1" + _pageframe1.Page4.grdJTVA.COLUMN40.HEADER1.Name = "HEADER1" + _pageframe1.Page4.grdJTVA.COLUMN40.Name = "COLUMN40" + _pageframe1.Page4.grdJTVA.COLUMN40.Text1.Name = "Text1" + _pageframe1.Page4.grdJTVA.COLUMN41.HEADER1.Name = "HEADER1" + _pageframe1.Page4.grdJTVA.COLUMN41.Name = "COLUMN41" + _pageframe1.Page4.grdJTVA.COLUMN41.Text1.Name = "Text1" + _pageframe1.Page4.grdJTVA.COLUMN42.HEADER1.Name = "HEADER1" + _pageframe1.Page4.grdJTVA.COLUMN42.Name = "COLUMN42" + _pageframe1.Page4.grdJTVA.COLUMN42.Text1.Name = "Text1" + _pageframe1.Page4.grdJTVA.COLUMN5.HEADER1.Name = "HEADER1" + _pageframe1.Page4.grdJTVA.COLUMN5.Name = "COLUMN5" + _pageframe1.Page4.grdJTVA.COLUMN5.Text1.Name = "Text1" + _pageframe1.Page4.grdJTVA.COLUMN6.HEADER1.Name = "HEADER1" + _pageframe1.Page4.grdJTVA.COLUMN6.Name = "COLUMN6" + _pageframe1.Page4.grdJTVA.COLUMN6.Text1.Name = "Text1" + _pageframe1.Page4.grdJTVA.COLUMN7.HEADER1.Name = "HEADER1" + _pageframe1.Page4.grdJTVA.COLUMN7.Name = "COLUMN7" + _pageframe1.Page4.grdJTVA.COLUMN7.Text1.Name = "Text1" + _pageframe1.Page4.grdJTVA.COLUMN8.HEADER1.Name = "HEADER1" + _pageframe1.Page4.grdJTVA.COLUMN8.Name = "COLUMN8" + _pageframe1.Page4.grdJTVA.COLUMN8.Text1.Name = "Text1" + _pageframe1.Page4.grdJTVA.COLUMN9.HEADER1.Name = "HEADER1" + _pageframe1.Page4.grdJTVA.COLUMN9.Name = "COLUMN9" + _pageframe1.Page4.grdJTVA.COLUMN9.Text1.Name = "Text1" + _pageframe1.Page4.grdJTVA.Name = "grdJTVA" + _pageframe1.Page4.Name = "Page4" + _pageframe1.Page4._label7.Name = "_label7" + _pageframe1.Page5.cmdCitesteDate.Name = "cmdCitesteDate" + _pageframe1.Page5.grdCrsamef.COLUMN1.HEADER1.Name = "HEADER1" + _pageframe1.Page5.grdCrsamef.COLUMN1.Name = "COLUMN1" + _pageframe1.Page5.grdCrsamef.COLUMN1.Text1.Name = "Text1" + _pageframe1.Page5.grdCrsamef.COLUMN10.HEADER1.Name = "HEADER1" + _pageframe1.Page5.grdCrsamef.COLUMN10.Name = "COLUMN10" + _pageframe1.Page5.grdCrsamef.COLUMN10.Text1.Name = "Text1" + _pageframe1.Page5.grdCrsamef.COLUMN11.HEADER1.Name = "HEADER1" + _pageframe1.Page5.grdCrsamef.COLUMN11.Name = "COLUMN11" + _pageframe1.Page5.grdCrsamef.COLUMN11.Text1.Name = "Text1" + _pageframe1.Page5.grdCrsamef.COLUMN12.HEADER1.Name = "HEADER1" + _pageframe1.Page5.grdCrsamef.COLUMN12.Name = "COLUMN12" + _pageframe1.Page5.grdCrsamef.COLUMN12.Text1.Name = "Text1" + _pageframe1.Page5.grdCrsamef.COLUMN13.HEADER1.Name = "HEADER1" + _pageframe1.Page5.grdCrsamef.COLUMN13.Name = "COLUMN13" + _pageframe1.Page5.grdCrsamef.COLUMN13.Text1.Name = "Text1" + _pageframe1.Page5.grdCrsamef.COLUMN2.HEADER1.Name = "HEADER1" + _pageframe1.Page5.grdCrsamef.COLUMN2.Name = "COLUMN2" + _pageframe1.Page5.grdCrsamef.COLUMN2.Text1.Name = "Text1" + _pageframe1.Page5.grdCrsamef.COLUMN3.HEADER1.Name = "HEADER1" + _pageframe1.Page5.grdCrsamef.COLUMN3.Name = "COLUMN3" + _pageframe1.Page5.grdCrsamef.COLUMN3.Text1.Name = "Text1" + _pageframe1.Page5.grdCrsamef.COLUMN4.HEADER1.Name = "HEADER1" + _pageframe1.Page5.grdCrsamef.COLUMN4.Name = "COLUMN4" + _pageframe1.Page5.grdCrsamef.COLUMN4.Text1.Name = "Text1" + _pageframe1.Page5.grdCrsamef.COLUMN5.HEADER1.Name = "HEADER1" + _pageframe1.Page5.grdCrsamef.COLUMN5.Name = "COLUMN5" + _pageframe1.Page5.grdCrsamef.COLUMN5.Text1.Name = "Text1" + _pageframe1.Page5.grdCrsamef.COLUMN6.HEADER1.Name = "HEADER1" + _pageframe1.Page5.grdCrsamef.COLUMN6.Name = "COLUMN6" + _pageframe1.Page5.grdCrsamef.COLUMN6.Text1.Name = "Text1" + _pageframe1.Page5.grdCrsamef.COLUMN7.HEADER1.Name = "HEADER1" + _pageframe1.Page5.grdCrsamef.COLUMN7.Name = "COLUMN7" + _pageframe1.Page5.grdCrsamef.COLUMN7.Text1.Name = "Text1" + _pageframe1.Page5.grdCrsamef.COLUMN8.HEADER1.Name = "HEADER1" + _pageframe1.Page5.grdCrsamef.COLUMN8.Name = "COLUMN8" + _pageframe1.Page5.grdCrsamef.COLUMN8.Text1.Name = "Text1" + _pageframe1.Page5.grdCrsamef.COLUMN9.HEADER1.Name = "HEADER1" + _pageframe1.Page5.grdCrsamef.COLUMN9.Name = "COLUMN9" + _pageframe1.Page5.grdCrsamef.COLUMN9.Text1.Name = "Text1" + _pageframe1.Page5.grdCrsamef.Name = "grdCrsamef" + _pageframe1.Page5.grdPersFizice.COLUMN1.HEADER1.Name = "HEADER1" + _pageframe1.Page5.grdPersFizice.COLUMN1.Name = "COLUMN1" + _pageframe1.Page5.grdPersFizice.COLUMN1.Text1.Name = "Text1" + _pageframe1.Page5.grdPersFizice.COLUMN10.HEADER1.Name = "HEADER1" + _pageframe1.Page5.grdPersFizice.COLUMN10.Name = "COLUMN10" + _pageframe1.Page5.grdPersFizice.COLUMN10.Text1.Name = "Text1" + _pageframe1.Page5.grdPersFizice.COLUMN11.HEADER1.Name = "HEADER1" + _pageframe1.Page5.grdPersFizice.COLUMN11.Name = "COLUMN11" + _pageframe1.Page5.grdPersFizice.COLUMN11.Text1.Name = "Text1" + _pageframe1.Page5.grdPersFizice.COLUMN12.HEADER1.Name = "HEADER1" + _pageframe1.Page5.grdPersFizice.COLUMN12.Name = "COLUMN12" + _pageframe1.Page5.grdPersFizice.COLUMN12.Text1.Name = "Text1" + _pageframe1.Page5.grdPersFizice.COLUMN13.HEADER1.Name = "HEADER1" + _pageframe1.Page5.grdPersFizice.COLUMN13.Name = "COLUMN13" + _pageframe1.Page5.grdPersFizice.COLUMN13.Text1.Name = "Text1" + _pageframe1.Page5.grdPersFizice.COLUMN5.HEADER1.Name = "HEADER1" + _pageframe1.Page5.grdPersFizice.COLUMN5.Name = "COLUMN5" + _pageframe1.Page5.grdPersFizice.COLUMN5.Text1.Name = "Text1" + _pageframe1.Page5.grdPersFizice.COLUMN6.HEADER1.Name = "HEADER1" + _pageframe1.Page5.grdPersFizice.COLUMN6.Name = "COLUMN6" + _pageframe1.Page5.grdPersFizice.COLUMN6.Text1.Name = "Text1" + _pageframe1.Page5.grdPersFizice.COLUMN7.HEADER1.Name = "HEADER1" + _pageframe1.Page5.grdPersFizice.COLUMN7.Name = "COLUMN7" + _pageframe1.Page5.grdPersFizice.COLUMN7.Text1.Name = "Text1" + _pageframe1.Page5.grdPersFizice.COLUMN8.HEADER1.Name = "HEADER1" + _pageframe1.Page5.grdPersFizice.COLUMN8.Name = "COLUMN8" + _pageframe1.Page5.grdPersFizice.COLUMN8.Text1.Name = "Text1" + _pageframe1.Page5.grdPersFizice.COLUMN9.HEADER1.Name = "HEADER1" + _pageframe1.Page5.grdPersFizice.COLUMN9.Name = "COLUMN9" + _pageframe1.Page5.grdPersFizice.COLUMN9.Text1.Name = "Text1" + _pageframe1.Page5.grdPersFizice.Name = "grdPersFizice" + _pageframe1.Page5.Name = "Page5" + _pageframe1.Page5._label1.Name = "_label1" + _pageframe1.Page5._label7.Name = "_label7" + But_renunt1.Name = "But_renunt1" + * + +ENDDEFINE diff --git a/Ferestre/frm_decl406_saft.sc2 b/Ferestre/frm_decl406_saft.sc2 new file mode 100644 index 0000000..6391334 --- /dev/null +++ b/Ferestre/frm_decl406_saft.sc2 @@ -0,0 +1,16743 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="frm_decl406_saft.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS _frmbase1 AS _frmbase OF "..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="pgfSAFT" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page1._shape1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page1._shape2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page1._shape3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page1.chkMasterFiles" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page1.chkGeneralLedgerEntries" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page1.chkSourceDocuments" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page1.chkTaxTable" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page1.cboTip" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page1.chkGeneralLedgerAccounts" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page1.chkPhysicalStock" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page1.chkUOMTable" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page1._label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page1.chkCustomers" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page1.chkAssets" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page1.chkProducts" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page1.chkMovementTypeTable" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page1.chkSuppliers" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page1.chkOwners" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page1.chkAnalysisTypeTable" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page1.chkMovementofGoods" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page1.chkSalesInvoices" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page1.chkAssetTransactions" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page1.chkPurchaseInvoices" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page1.chkPayments" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page1.Caut_anluna1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page1.Caut_anluna2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page1._label3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page1._label2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page1.cboCustSup" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.Page1.gGeneralLedgerAccounts" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.Page1.gGeneralLedgerAccounts.cCont.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.Page1.gGeneralLedgerAccounts.cCont.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.Page1.gGeneralLedgerAccounts.cDenumire.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.Page1.gGeneralLedgerAccounts.cDenumire.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.Page1.gGeneralLedgerAccounts.cTip.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.Page1.gGeneralLedgerAccounts.cTip.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.Page1.gGeneralLedgerAccounts.cSoldiDeb.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.Page1.gGeneralLedgerAccounts.cSoldiDeb.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.Page1.gGeneralLedgerAccounts.cSoldiCred.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.Page1.gGeneralLedgerAccounts.cSoldiCred.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.Page1.gGeneralLedgerAccounts.cSoldfDeb.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.Page1.gGeneralLedgerAccounts.cSoldfDeb.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.Page1.gGeneralLedgerAccounts.cSoldfCred.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.Page1.gGeneralLedgerAccounts.cSoldfCred.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.Page1.Gridextra1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.Page1._grdfooter1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.Page2.gCustomers" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column11.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column11.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column12.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column12.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column13.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column13.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column14.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column14.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column15.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column15.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column16.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column16.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column17.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column17.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column18.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column18.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column19.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column19.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column19._checkbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.Page2.Gridextra1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.Page2.But_verifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.Page2.But_modifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgTaxe.gTaxTable" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgTaxe.gTaxTable.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgTaxe.gTaxTable.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgTaxe.gTaxTable.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgTaxe.gTaxTable.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgTaxe.gTaxTable.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgTaxe.gTaxTable.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgTaxe.gTaxTable.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgTaxe.gTaxTable.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgTaxe.gTaxTable.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgTaxe.gTaxTable.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgTaxe.gTaxTable.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgTaxe.gTaxTable.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgTaxe.gTaxTable.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgTaxe.gTaxTable.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgTaxe.gTaxTable.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgTaxe.gTaxTable.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgTaxe.gTaxTable.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgTaxe.gTaxTable.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgTaxe.gTaxTable.Column11.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgTaxe.gTaxTable.Column11.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgTaxe.gTaxTable.Column12.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgTaxe.gTaxTable.Column12.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgTaxe.gTaxTable.Column13.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgTaxe.gTaxTable.Column13.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgTaxe.gTaxTable.Column14.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgTaxe.gTaxTable.Column14.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgTaxe.gTaxTable.Column15.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgTaxe.gTaxTable.Column15.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgTaxe.Gridextra1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgUOM.Gridextra1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgUOM.gUOMTable" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgUOM.gUOMTable.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgUOM.gUOMTable.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgUOM.gUOMTable.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgUOM.gUOMTable.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgUOM.gUOMTable.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgUOM.gUOMTable.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgTipAnalize.gAnalysisTypeTable" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgTipAnalize.gAnalysisTypeTable.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgTipAnalize.gAnalysisTypeTable.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgTipAnalize.gAnalysisTypeTable.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgTipAnalize.gAnalysisTypeTable.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgTipAnalize.gAnalysisTypeTable.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgTipAnalize.gAnalysisTypeTable.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgTipAnalize.gAnalysisTypeTable.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgTipAnalize.gAnalysisTypeTable.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgTipAnalize.Gridextra1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgTipMiscari.gMovementTypeTable" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgTipMiscari.gMovementTypeTable.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgTipMiscari.gMovementTypeTable.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgTipMiscari.gMovementTypeTable.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgTipMiscari.gMovementTypeTable.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgTipMiscari.gMovementTypeTable.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgTipMiscari.gMovementTypeTable.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgTipMiscari.Gridextra1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgProduse.gProducts" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgProduse.gProducts.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgProduse.gProducts.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgProduse.gProducts.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgProduse.gProducts.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgProduse.gProducts.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgProduse.gProducts.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgProduse.gProducts.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgProduse.gProducts.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgProduse.gProducts.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgProduse.gProducts.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgProduse.gProducts.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgProduse.gProducts.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgProduse.gProducts.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgProduse.gProducts.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgProduse.gProducts.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgProduse.gProducts.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgProduse.gProducts.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgProduse.gProducts.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgProduse.Gridextra1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cIdGestiune.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cIdGestiune.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cIdArticol.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cIdArticol.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cPret.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cPret.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cCont.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cCont.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cIdPartener.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cIdPartener.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cCanti.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cCanti.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cVali.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cVali.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cCantf.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cCantf.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cValf.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cValf.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cCodNC8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cCodNC8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cPartener.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cPartener.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cCodUMISO.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cCodUMISO.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cSaftpartid.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cSaftpartid.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cNrCrt.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cNrCrt.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cGest.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cGest.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cArticol.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cArticol.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgStocuri.Gridextra1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgStocuri._grdfooter1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgProprietari.gOwners" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgProprietari.gOwners.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgProprietari.gOwners.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgProprietari.gOwners.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgProprietari.gOwners.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgProprietari.gOwners.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgProprietari.gOwners.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgProprietari.gOwners.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgProprietari.gOwners.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgProprietari.gOwners.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgProprietari.gOwners.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgProprietari.gOwners.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgProprietari.gOwners.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgProprietari.gOwners.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgProprietari.gOwners.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgProprietari.gOwners.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgProprietari.gOwners.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgProprietari.gOwners.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgProprietari.gOwners.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgProprietari.gOwners.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgProprietari.gOwners.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgProprietari.Gridextra1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column11.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column11.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column12.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column12.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column13.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column13.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column14.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column14.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column15.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column15.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column16.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column16.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column17.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column17.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column18.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column18.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column19.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column19.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column19._checkbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgFurnizori.Gridextra1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgFurnizori.But_verifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgFurnizori.But_modifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssets" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cIdMf.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cIdMf.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cAssetId.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cAssetId.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cAccountId.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cAccountId.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cDateOfAquisition.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cDateOfAquisition.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cStartupDate.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cStartupDate.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cAssetValuationType.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cAssetValuationType.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cDescription.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cDescription.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cValuationClass.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cValuationClass.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cAcquisitionandproductioncostsbegin.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cAcquisitionandproductioncostsbegin.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cAcquisitionandproductioncostsEnd.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cAcquisitionandproductioncostsEnd.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cAssetlifemonth.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cAssetlifemonth.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cDepreciationmethod.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cDepreciationmethod.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cDepreciationpercentage.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cDepreciationpercentage.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cAssetaddition.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cAssetaddition.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cTransfers.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cTransfers.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cAssetdisposal.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cAssetdisposal.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cBookvaluebegin.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cBookvaluebegin.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cDepreciationforperiod.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cDepreciationforperiod.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cAppreciationforperiod.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cAppreciationforperiod.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cExtraordinarydepreciationmethod.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cExtraordinarydepreciationmethod.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cExtraordinarydepreciationamountforperiod.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cExtraordinarydepreciationamountforperiod.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cAccumulateddepreciation.cAccumulateddepreciation" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cAccumulateddepreciation.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cBookvalueend.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cBookvalueend.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cNrCrt.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cNrCrt.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cTipImobilizare.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cTipImobilizare.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.Gridextra1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive._grdfooter1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssetTransactions" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssetTransactions.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssetTransactions.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssetTransactions.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssetTransactions.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssetTransactions.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssetTransactions.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssetTransactions.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssetTransactions.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssetTransactions.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssetTransactions.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssetTransactions.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssetTransactions.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssetTransactions.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssetTransactions.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssetTransactions.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssetTransactions.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssetTransactions.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssetTransactions.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssetTransactions.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssetTransactions.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssetTransactions.Column11.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssetTransactions.Column11.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssetTransactions.Column12.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssetTransactions.Column12.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssetTransactions.Column13.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.gAssetTransactions.Column13.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster.pgActive.Gridextra2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column11.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column11.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column12.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column12.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column13.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column13.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column14.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column14.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column15.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column15.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column16.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column16.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column17.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column17.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column18.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column18.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column19.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column19.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column20.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column20.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column21.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column21.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column22.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column22.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column23.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column23.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column24.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column24.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column25.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column25.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column26.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column26.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column27.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column27.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column28.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column28.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column29.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column29.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column30.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column30.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column31.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.gGeneralLedgerEntries.Column31.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.Gridextra1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.cScd.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.cScd.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.cAscd.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.cAscd.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.cScc.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.cScc.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.cAscc.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.cAscc.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column13.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column13.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column14.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column14.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column15.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column15.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column16.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column16.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column17.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column17.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column18.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column18.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column19.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column19.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column20.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column20.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column21.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column21.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column22.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column22.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column23.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column23.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column25.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column25.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column26.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column26.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column27.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column27.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column28.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column28.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column29.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column29.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column30.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column30.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column31.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column31.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column32.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column32.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column33.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column33.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column34.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column34.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column35.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column35.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column36.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column36.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column37.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column37.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column24.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column24.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column38.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.Column38.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.cSerie_act.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.cSerie_act.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.cIdFact.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.cIdFact.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.cIdFactD.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.cIdFactD.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.cIdFactC.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.cIdFactC.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.cTaxName.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.cTaxName.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.cSaftProcent.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.cSaftProcent.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.cPaymentName.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.Page3.grdAct.cPaymentName.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column10._checkbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column11.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column11.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column12.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column12.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column13.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column13.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column14.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column14.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column15.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column15.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column16.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column16.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column11.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column11.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column12.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column12.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column13.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column13.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column14.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column14.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column15.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column15.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column16.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column16.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column17.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column17.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column18.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column18.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column19.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column19.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column20.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column20.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.Gridextra1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.cScd.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.cScd.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.cAscd.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.cAscd.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.cScc.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.cScc.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.cAscc.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.cAscc.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column13.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column13.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column14.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column14.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column15.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column15.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column16.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column16.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column17.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column17.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column18.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column18.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column19.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column19.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column20.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column20.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column21.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column21.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column22.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column22.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column23.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column23.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column25.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column25.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column26.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column26.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column27.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column27.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column28.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column28.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column29.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column29.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column30.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column30.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column31.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column31.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column32.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column32.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column33.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column33.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column34.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column34.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column35.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column35.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column36.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column36.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column37.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column37.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column24.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column24.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column38.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column38.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.cSerie_act.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.cSerie_act.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.cIdFact.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.cIdFact.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.cIdFactD.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.cIdFactD.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.cIdFactC.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.cIdFactC.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.cTaxName.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.cTaxName.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.cSaftProcent.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.cSaftProcent.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.cPaymentName.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.cPaymentName.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.But_modifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column10._checkbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column11.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column11.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column12.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column12.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column13.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column13.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column14.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column14.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column15.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column15.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column16.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column16.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column11.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column11.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column12.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column12.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column13.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column13.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column14.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column14.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column15.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column15.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column16.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column16.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column17.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column17.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column18.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column18.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column19.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column19.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column20.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column20.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.Gridextra1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.cScd.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.cScd.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.cAscd.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.cAscd.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.cScc.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.cScc.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.cAscc.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.cAscc.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column13.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column13.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column14.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column14.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column15.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column15.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column16.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column16.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column17.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column17.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column18.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column18.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column19.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column19.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column20.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column20.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column21.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column21.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column22.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column22.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column23.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column23.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column25.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column25.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column26.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column26.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column27.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column27.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column28.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column28.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column29.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column29.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column30.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column30.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column31.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column31.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column32.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column32.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column33.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column33.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column34.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column34.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column35.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column35.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column36.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column36.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column37.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column37.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column24.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column24.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column38.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column38.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.cSerie_act.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.cSerie_act.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.cIdFact.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.cIdFact.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.cIdFactD.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.cIdFactD.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.cIdFactC.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.cIdFactC.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.cTaxName.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.cTaxName.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.cSaftProcent.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.cSaftProcent.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.cPaymentName.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.cPaymentName.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.But_modifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column11.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column11.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column12.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column12.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column13.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column13.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column14.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column14.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column15.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column15.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column16.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column16.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column17.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column17.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column18.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column18.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column19.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column19.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column20.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column20.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column21.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column21.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column22.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column22.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column23.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column23.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column24.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column24.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column25.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column25.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column26.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column26.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column27.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column27.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column28.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column28.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column29.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column29.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column30.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column30.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column31.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column31.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.Gridextra1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.cScd.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.cScd.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.cAscd.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.cAscd.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.cScc.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.cScc.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.cAscc.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.cAscc.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column13.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column13.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column14.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column14.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column15.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column15.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column16.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column16.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column17.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column17.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column18.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column18.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column19.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column19.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column20.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column20.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column21.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column21.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column22.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column22.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column23.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column23.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column25.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column25.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column26.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column26.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column27.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column27.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column28.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column28.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column29.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column29.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column30.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column30.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column31.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column31.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column32.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column32.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column33.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column33.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column34.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column34.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column35.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column35.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column36.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column36.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column37.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column37.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column24.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column24.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column38.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column38.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.cSerie_act.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.cSerie_act.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.cIdFact.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.cIdFact.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.cIdFactD.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.cIdFactD.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.cIdFactC.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.cIdFactC.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.cTaxName.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.cTaxName.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.cSaftProcent.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.cSaftProcent.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.cPaymentName.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.cPaymentName.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions.Column11.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions.Column11.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions.Column12.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions.Column12.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions.Column13.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions.Column13.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions.Column14.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions.Column14.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.Gridextra1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column11.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column11.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column12.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column12.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column13.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column13.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column14.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column14.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column15.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column15.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column16.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column16.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column17.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column17.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column18.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column18.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column19.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column19.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.But_verifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.Gridextra1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.cScd.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.cScd.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.cAscd.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.cAscd.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.cScc.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.cScc.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.cAscc.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.cAscc.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column13.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column13.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column14.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column14.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column15.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column15.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column16.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column16.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column17.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column17.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column18.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column18.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column19.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column19.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column20.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column20.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column21.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column21.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column22.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column22.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column23.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column23.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column25.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column25.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column26.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column26.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column27.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column27.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column28.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column28.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column29.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column29.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column30.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column30.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column31.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column31.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column32.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column32.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column33.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column33.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column34.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column34.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column35.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column35.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column36.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column36.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column37.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column37.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column24.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column24.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column38.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column38.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.cSerie_act.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.cSerie_act.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.cIdFact.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.cIdFact.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.cIdFactD.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.cIdFactD.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.cIdFactC.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.cIdFactC.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.cTaxName.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.cTaxName.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.cSaftProcent.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.cSaftProcent.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.cPaymentName.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.cPaymentName.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cmdGenerareXml" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cmdVerificare" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cmdCitesteDate" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_help1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cmdCompletareCodTaxaPlata" UniqueID="" Timestamp="" /> + + * + *m: creeazacursoare + *m: do_verifica_balanta + *m: do_verifica_cui + *m: do_verifica_plati + *m: refreshact + *m: refreshmodules + *m: refreshperioada + *m: restaureazagriduri + *m: salveazagriduri + *p: ctipdecl && Tip declaratie xml d406t/d406 + *p: ncod && Act.cod curent + *p: nidmf + *p: oparent + * + + * + BorderStyle = 3 + Caption = "Form" + ctipdecl = d406t + DoCreate = .T. + Height = 460 + Name = "_frmbase1" + ncod = 0 + nidmf = 0 + oparent = .NULL. + Width = 835 + WindowState = 2 + _memberdata = + + + + + + + + + + + + _shape1.Anchor = 10 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 837 + _shape2.Left = 784 + _shape2.Name = "_shape2" + _shape2.Top = -1 + Lb_titlu_alb_b121.Caption = "SAFT D406" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + BUT_TERMIN1.Anchor = 8 + BUT_TERMIN1.Left = 806 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 0 + Gridsort1.Left = 9 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 20 + * + + ADD OBJECT 'But_excel1' AS but_excel WITH ; + Anchor = 8, ; + Left = 776, ; + Name = "But_excel1", ; + Top = 0 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_help1' AS but_help WITH ; + Anchor = 8, ; + Left = 746, ; + Name = "But_help1", ; + Top = 0 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'cmdCitesteDate' AS cmd_executa WITH ; + Anchor = 9, ; + BackColor = 113,184,255, ; + caction = do_citeste_date, ; + Caption = "1. \ + + ADD OBJECT 'cmdCompletareCodTaxaPlata' AS cmd_executa WITH ; + Anchor = 8, ; + Caption = "\ + + ADD OBJECT 'cmdGenerareXml' AS cmd_executa WITH ; + Anchor = 9, ; + BackColor = 113,184,255, ; + caction = do_citeste_date, ; + Caption = "3. Export \ + + ADD OBJECT 'cmdVerificare' AS cmd_executa WITH ; + Anchor = 9, ; + BackColor = 113,184,255, ; + caction = do_citeste_date, ; + Caption = "2. \ + + ADD OBJECT 'pgfSAFT' AS _pageframe WITH ; + Anchor = 15, ; + ErasePage = .T., ; + Height = 397, ; + Left = 0, ; + Name = "pgfSAFT", ; + PageCount = 4, ; + TabIndex = 2, ; + Top = 64, ; + Width = 837, ; + Page1.Caption = "Antet", ; + Page1.FontSize = 10, ; + Page1.Name = "Page1", ; + Page2.Caption = "Fisiere Master", ; + Page2.Name = "Page2", ; + Page3.Caption = "Inregistrari contabile", ; + Page3.Name = "Page3", ; + Page4.Caption = "Documente sursa", ; + Page4.Name = "pgDocumenteSursa" + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="pageframe" /> + + ADD OBJECT 'pgfSAFT.Page1._label1' AS _label WITH ; + Caption = "Tip declaratie", ; + FontBold = .T., ; + Left = 8, ; + Name = "_label1", ; + TabIndex = 10, ; + Top = 5, ; + ZOrderSet = 11 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT 'pgfSAFT.Page1._label2' AS _label WITH ; + Caption = "Perioada de raportare", ; + FontBold = .T., ; + Left = 198, ; + Name = "_label2", ; + TabIndex = 25, ; + Top = 5, ; + ZOrderSet = 27 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT 'pgfSAFT.Page1._label3' AS _label WITH ; + Caption = "-", ; + FontBold = .T., ; + FontSize = 12, ; + Left = 353, ; + Name = "_label3", ; + TabIndex = 25, ; + Top = 25, ; + ZOrderSet = 27 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT 'pgfSAFT.Page1._shape1' AS _shape WITH ; + Anchor = 14, ; + BackStyle = 0, ; + Height = 91, ; + Left = 5, ; + Name = "_shape1", ; + Top = 172, ; + Width = 824, ; + ZOrderSet = 0 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" /> + + ADD OBJECT 'pgfSAFT.Page1._shape2' AS _shape WITH ; + Anchor = 14, ; + BackStyle = 0, ; + Height = 35, ; + Left = 5, ; + Name = "_shape2", ; + Top = 262, ; + Width = 824, ; + ZOrderSet = 1 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" /> + + ADD OBJECT 'pgfSAFT.Page1._shape3' AS _shape WITH ; + Anchor = 14, ; + BackStyle = 0, ; + Height = 61, ; + Left = 5, ; + Name = "_shape3", ; + Top = 296, ; + Width = 824, ; + ZOrderSet = 2 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" /> + + ADD OBJECT 'pgfSAFT.Page1.Caut_anluna1' AS caut_anluna WITH ; + ccursorluni = cursor_luni1, ; + Left = 198, ; + Name = "Caut_anluna1", ; + TabIndex = 23, ; + Top = 25, ; + ZOrderSet = 25, ; + cboan.Name = "cboan", ; + cboluna.Name = "cboluna" + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" /> + + ADD OBJECT 'pgfSAFT.Page1.Caut_anluna2' AS caut_anluna WITH ; + ccursorluni = cursor_luni2, ; + Left = 362, ; + Name = "Caut_anluna2", ; + TabIndex = 24, ; + Top = 25, ; + ZOrderSet = 26, ; + cboan.Name = "cboan", ; + cboluna.Name = "cboluna" + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" /> + + ADD OBJECT 'pgfSAFT.Page1.cboCustSup' AS _combobox WITH ; + BoundColumn = 2, ; + BoundTo = .T., ; + ColumnCount = 2, ; + ColumnLines = .F., ; + ColumnWidths = "300,0", ; + ControlSource = "poUnitate.CustSupType", ; + Height = 24, ; + Left = 8, ; + Name = "cboCustSup", ; + RowSource = "select descriere, id from cCustSupType into cursor cCustSupTypeX", ; + RowSourceType = 3, ; + Top = 51, ; + Width = 342 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" /> + + ADD OBJECT 'pgfSAFT.Page1.cboTip' AS combobox WITH ; + ControlSource = "poUnitate.TipDescriere", ; + FontSize = 10, ; + Left = 8, ; + Name = "cboTip", ; + RowSource = "LUNAR,TRIMESTRIAL,ANUAL,CERERE", ; + RowSourceType = 1, ; + Style = 2, ; + TabIndex = 1, ; + Top = 24, ; + Value = LUNAR, ; + Width = 173, ; + ZOrderSet = 7 + *< END OBJECT: BaseClass="combobox" /> + + ADD OBJECT 'pgfSAFT.Page1.chkAnalysisTypeTable' AS _checkbox WITH ; + Alignment = 0, ; + Anchor = 6, ; + Caption = "Tabela Tipuri Analiza", ; + ControlSource = "poUnitate.AnalysisTypeTable", ; + Left = 408, ; + Name = "chkAnalysisTypeTable", ; + TabIndex = 17, ; + Top = 209, ; + Value = .F., ; + ZOrderSet = 19 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'pgfSAFT.Page1.chkAssets' AS _checkbox WITH ; + Alignment = 0, ; + Anchor = 6, ; + Caption = "Active", ; + ControlSource = "poUnitate.Assets", ; + Left = 566, ; + Name = "chkAssets", ; + TabIndex = 12, ; + Top = 239, ; + Value = .F., ; + ZOrderSet = 14 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'pgfSAFT.Page1.chkAssetTransactions' AS _checkbox WITH ; + Alignment = 0, ; + Anchor = 6, ; + Caption = "Tranzactii cu Active", ; + ControlSource = "poUnitate.AssetTransactions", ; + Left = 158, ; + Name = "chkAssetTransactions", ; + TabIndex = 20, ; + Top = 334, ; + Value = .F., ; + ZOrderSet = 22 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'pgfSAFT.Page1.chkCustomers' AS _checkbox WITH ; + Alignment = 0, ; + Anchor = 6, ; + Caption = "Clienti", ; + ControlSource = "poUnitate.Customers", ; + Left = 408, ; + Name = "chkCustomers", ; + TabIndex = 11, ; + Top = 182, ; + Value = .F., ; + ZOrderSet = 12 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'pgfSAFT.Page1.chkGeneralLedgerAccounts' AS _checkbox WITH ; + Alignment = 0, ; + Anchor = 6, ; + Caption = "Conturi contabile Registrul Jurnal", ; + ControlSource = "poUnitate.GeneralLedgerAccounts", ; + Left = 158, ; + Name = "chkGeneralLedgerAccounts", ; + TabIndex = 7, ; + Top = 182, ; + Value = .F., ; + ZOrderSet = 8 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'pgfSAFT.Page1.chkGeneralLedgerEntries' AS _checkbox WITH ; + Alignment = 0, ; + Anchor = 6, ; + Caption = "Inregistrari contabile - Registrul Jurnal", ; + ControlSource = "poUnitate.GeneralLedgerEntries", ; + FontBold = .F., ; + Left = 15, ; + Name = "chkGeneralLedgerEntries", ; + TabIndex = 4, ; + Top = 270, ; + Value = .F., ; + ZOrderSet = 4 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'pgfSAFT.Page1.chkMasterFiles' AS _checkbox WITH ; + Alignment = 0, ; + Anchor = 6, ; + Caption = "Fisierele Master", ; + ControlSource = "poUnitate.MasterFiles", ; + FontBold = .F., ; + Left = 15, ; + Name = "chkMasterFiles", ; + TabIndex = 3, ; + Top = 182, ; + Value = .F., ; + ZOrderSet = 3 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'pgfSAFT.Page1.chkMovementofGoods' AS _checkbox WITH ; + Alignment = 0, ; + Anchor = 6, ; + Caption = "Miscari de Bunuri", ; + ControlSource = "poUnitate.MovementofGoods", ; + Left = 639, ; + Name = "chkMovementofGoods", ; + TabIndex = 18, ; + Top = 306, ; + Value = .F., ; + ZOrderSet = 20 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'pgfSAFT.Page1.chkMovementTypeTable' AS _checkbox WITH ; + Alignment = 0, ; + Anchor = 6, ; + Caption = "Tabela Tipuri Miscari", ; + ControlSource = "poUnitate.MovementTypeTable", ; + Left = 566, ; + Name = "chkMovementTypeTable", ; + TabIndex = 14, ; + Top = 209, ; + Value = .F., ; + ZOrderSet = 16 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'pgfSAFT.Page1.chkOwners' AS _checkbox WITH ; + Alignment = 0, ; + Anchor = 6, ; + Caption = "Proprietari", ; + ControlSource = "poUnitate.Owners", ; + Left = 408, ; + Name = "chkOwners", ; + TabIndex = 16, ; + Top = 239, ; + Value = .F., ; + ZOrderSet = 18 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'pgfSAFT.Page1.chkPayments' AS _checkbox WITH ; + Alignment = 0, ; + Anchor = 6, ; + Caption = "Plati", ; + ControlSource = "poUnitate.Payments", ; + Left = 566, ; + Name = "chkPayments", ; + TabIndex = 22, ; + Top = 306, ; + Value = .F., ; + ZOrderSet = 24 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'pgfSAFT.Page1.chkPhysicalStock' AS _checkbox WITH ; + Alignment = 0, ; + Anchor = 6, ; + Caption = "Stocuri", ; + ControlSource = "poUnitate.PhysicalStock", ; + Left = 158, ; + Name = "chkPhysicalStock", ; + TabIndex = 8, ; + Top = 239, ; + Value = .F., ; + ZOrderSet = 9 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'pgfSAFT.Page1.chkProducts' AS _checkbox WITH ; + Alignment = 0, ; + Anchor = 6, ; + Caption = "Produse", ; + ControlSource = "poUnitate.Products", ; + Left = 731, ; + Name = "chkProducts", ; + TabIndex = 13, ; + Top = 209, ; + Value = .F., ; + ZOrderSet = 15 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'pgfSAFT.Page1.chkPurchaseInvoices' AS _checkbox WITH ; + Alignment = 0, ; + Anchor = 6, ; + Caption = "Facturi de Achizitie", ; + ControlSource = "poUnitate.PurchaseInvoices", ; + Left = 408, ; + Name = "chkPurchaseInvoices", ; + TabIndex = 21, ; + Top = 306, ; + Value = .F., ; + ZOrderSet = 23 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'pgfSAFT.Page1.chkSalesInvoices' AS _checkbox WITH ; + Alignment = 0, ; + Anchor = 6, ; + Caption = "Facturi de Vanzare", ; + ControlSource = "poUnitate.SalesInvoices", ; + Left = 158, ; + Name = "chkSalesInvoices", ; + TabIndex = 19, ; + Top = 306, ; + Value = .F., ; + ZOrderSet = 21 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'pgfSAFT.Page1.chkSourceDocuments' AS _checkbox WITH ; + Alignment = 0, ; + Anchor = 6, ; + Caption = "Documente Sursa", ; + ControlSource = "poUnitate.SourceDocuments", ; + FontBold = .F., ; + Left = 15, ; + Name = "chkSourceDocuments", ; + TabIndex = 5, ; + Top = 306, ; + Value = .F., ; + ZOrderSet = 5 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'pgfSAFT.Page1.chkSuppliers' AS _checkbox WITH ; + Alignment = 0, ; + Anchor = 6, ; + Caption = "Furnizori", ; + ControlSource = "poUnitate.Suppliers", ; + Left = 566, ; + Name = "chkSuppliers", ; + TabIndex = 15, ; + Top = 182, ; + Value = .F., ; + ZOrderSet = 17 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'pgfSAFT.Page1.chkTaxTable' AS _checkbox WITH ; + Alignment = 0, ; + Anchor = 6, ; + Caption = "Tabela Taxe", ; + ControlSource = "poUnitate.TaxTable", ; + Left = 731, ; + Name = "chkTaxTable", ; + TabIndex = 6, ; + Top = 182, ; + Value = .F., ; + ZOrderSet = 6 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'pgfSAFT.Page1.chkUOMTable' AS _checkbox WITH ; + Alignment = 0, ; + Anchor = 6, ; + Caption = "Tabela Unitatilor de Masura - UOM", ; + ControlSource = "poUnitate.UOMTable", ; + Left = 158, ; + Name = "chkUOMTable", ; + TabIndex = 9, ; + Top = 209, ; + Value = .F., ; + ZOrderSet = 10 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster' AS _pageframe WITH ; + Anchor = 15, ; + ErasePage = .T., ; + Height = 367, ; + Left = 0, ; + Name = "pgfMaster", ; + PageCount = 11, ; + Top = 0, ; + Width = 837, ; + ZOrderSet = 1, ; + Page1.Caption = "Conturi contabile", ; + Page1.Name = "Page1", ; + Page1.PageOrder = 1, ; + Page2.Caption = "Clienti", ; + Page2.Name = "Page2", ; + Page2.PageOrder = 2, ; + Page3.Caption = "Taxe", ; + Page3.Name = "pgTaxe", ; + Page3.PageOrder = 4, ; + Page4.Caption = "Unitati de Masura", ; + Page4.Name = "pgUOM", ; + Page4.PageOrder = 5, ; + Page5.Caption = "Tipuri Analiza", ; + Page5.Name = "pgTipAnalize", ; + Page5.PageOrder = 6, ; + Page6.Caption = "Tipuri Miscari", ; + Page6.Name = "pgTipMiscari", ; + Page6.PageOrder = 7, ; + Page7.Caption = "Produse", ; + Page7.Name = "pgProduse", ; + Page7.PageOrder = 8, ; + Page8.Caption = "Stocuri", ; + Page8.Name = "pgStocuri", ; + Page8.PageOrder = 9, ; + Page9.Caption = "Proprietari", ; + Page9.Name = "pgProprietari", ; + Page9.PageOrder = 10, ; + Page10.Caption = "Furnizori", ; + Page10.FontSize = 10, ; + Page10.Name = "pgFurnizori", ; + Page10.PageOrder = 3, ; + Page11.Caption = "Active", ; + Page11.Name = "pgActive", ; + Page11.PageOrder = 11 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="pageframe" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.Page1._grdfooter1' AS _grdfooter WITH ; + ccolwithlabel = cDenumire, ; + csourcegrid = gGeneralLedgerAccounts, ; + csumcolumns = cSoldiDeb,cSoldiCred,cSoldfDeb,cSoldfCred, ; + ctotallabelexpression = 'TOTAL', ; + Left = 4, ; + Name = "_grdfooter1", ; + Top = 296, ; + Width = 823 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.Page1.gGeneralLedgerAccounts' AS _grdbase WITH ; + Anchor = 15, ; + ColumnCount = 7, ; + DeleteMark = .F., ; + FontSize = 10, ; + Height = 286, ; + Left = 4, ; + Name = "gGeneralLedgerAccounts", ; + Panel = 1, ; + ReadOnly = .T., ; + RecordSource = "cgeneralledgeraccounts", ; + RowHeight = 19, ; + Top = 8, ; + Width = 823, ; + Column1.ControlSource = "cgeneralledgeraccounts.cont", ; + Column1.FontSize = 10, ; + Column1.Name = "cCont", ; + Column1.ReadOnly = .T., ; + Column1.Width = 75, ; + Column2.ControlSource = "cgeneralledgeraccounts.denumire", ; + Column2.FontSize = 10, ; + Column2.Name = "cDenumire", ; + Column2.ReadOnly = .T., ; + Column2.Width = 209, ; + Column3.ControlSource = "cgeneralledgeraccounts.tip", ; + Column3.FontSize = 10, ; + Column3.Name = "cTip", ; + Column3.ReadOnly = .T., ; + Column3.Width = 75, ; + Column4.ControlSource = "cgeneralledgeraccounts.soldideb", ; + Column4.FontSize = 10, ; + Column4.InputMask = "999 999 999 999.99", ; + Column4.Name = "cSoldiDeb", ; + Column4.ReadOnly = .T., ; + Column4.Width = 86, ; + Column5.ControlSource = "cgeneralledgeraccounts.soldicred", ; + Column5.FontSize = 10, ; + Column5.InputMask = "999 999 999 999.99", ; + Column5.Name = "cSoldiCred", ; + Column5.ReadOnly = .T., ; + Column5.Width = 99, ; + Column6.ColumnOrder = 7, ; + Column6.ControlSource = "cgeneralledgeraccounts.soldfdeb", ; + Column6.FontSize = 10, ; + Column6.InputMask = "999 999 999 999.99", ; + Column6.Name = "cSoldfDeb", ; + Column6.ReadOnly = .T., ; + Column6.Width = 90, ; + Column7.ColumnOrder = 6, ; + Column7.ControlSource = "cgeneralledgeraccounts.soldfcred", ; + Column7.FontSize = 10, ; + Column7.InputMask = "999 999 999 999.99", ; + Column7.Name = "cSoldfCred", ; + Column7.ReadOnly = .T., ; + Column7.Width = 86 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.Page1.gGeneralLedgerAccounts.cCont.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.Page1.gGeneralLedgerAccounts.cCont.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.Page1.gGeneralLedgerAccounts.cDenumire.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Denumire", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.Page1.gGeneralLedgerAccounts.cDenumire.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.Page1.gGeneralLedgerAccounts.cSoldfCred.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Soldfcred", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.Page1.gGeneralLedgerAccounts.cSoldfCred.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.Page1.gGeneralLedgerAccounts.cSoldfDeb.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Soldfdeb", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.Page1.gGeneralLedgerAccounts.cSoldfDeb.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.Page1.gGeneralLedgerAccounts.cSoldiCred.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Soldicred", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.Page1.gGeneralLedgerAccounts.cSoldiCred.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.Page1.gGeneralLedgerAccounts.cSoldiDeb.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Soldideb", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.Page1.gGeneralLedgerAccounts.cSoldiDeb.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.Page1.gGeneralLedgerAccounts.cTip.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.Page1.gGeneralLedgerAccounts.cTip.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.Page1.Gridextra1' AS gridextra WITH ; + gridexpression = thisform.pgfSAFT.page2.pgfMaster.page1.gGeneralLedgerAccounts, ; + Left = 321, ; + Name = "Gridextra1", ; + productname = ROA, ; + Top = 29 + *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.Page2.But_modifica1' AS but_modifica WITH ; + Anchor = 8, ; + clistaparametri = "cCustomers", ; + Comment = "*:OnResize=RT", ; + Left = 768, ; + Name = "But_modifica1", ; + TabIndex = 11, ; + Tag = "L", ; + ToolTipText = "Modificare (CTRL+M) Atentie! Apasati 1. Citeste date pentru a actualiza informatiile din Clienti/Furnizori", ; + Top = 5, ; + Visible = .T., ; + ZOrderSet = 8 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.Page2.But_verifica1' AS but_verifica WITH ; + Anchor = 8, ; + caction = do_verifica_cui, ; + clistaparametri = "cCustomers", ; + Left = 797, ; + Name = "But_verifica1", ; + TabIndex = 14, ; + ToolTipText = "Verificare coduri fiscale", ; + Top = 5 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.Page2.gCustomers' AS _grdrow WITH ; + Anchor = 15, ; + ColumnCount = 19, ; + DeleteMark = .F., ; + FontSize = 10, ; + Height = 290, ; + Left = 4, ; + Name = "gCustomers", ; + Panel = 1, ; + ReadOnly = .T., ; + RecordSource = "ccustomers", ; + RowHeight = 19, ; + Top = 33, ; + Width = 823, ; + Column1.ColumnOrder = 2, ; + Column1.ControlSource = "ccustomers.id_part", ; + Column1.FontSize = 10, ; + Column1.Name = "Column1", ; + Column1.ReadOnly = .T., ; + Column1.Width = 75, ; + Column2.ColumnOrder = 3, ; + Column2.ControlSource = "ccustomers.denumire", ; + Column2.FontSize = 10, ; + Column2.Name = "Column2", ; + Column2.ReadOnly = .T., ; + Column2.Width = 151, ; + Column3.ColumnOrder = 4, ; + Column3.ControlSource = "ccustomers.cod_fiscal", ; + Column3.FontSize = 10, ; + Column3.Name = "Column3", ; + Column3.ReadOnly = .T., ; + Column3.Width = 75, ; + Column4.ColumnOrder = 5, ; + Column4.ControlSource = "IIF(nvl(ccustomers.tip_persoana,1) = 1, 'PJ', 'PF')", ; + Column4.FontSize = 10, ; + Column4.Name = "Column4", ; + Column4.ReadOnly = .T., ; + Column4.Width = 81, ; + Column5.ColumnOrder = 6, ; + Column5.ControlSource = "ccustomers.strada", ; + Column5.FontSize = 10, ; + Column5.Name = "Column5", ; + Column5.ReadOnly = .T., ; + Column5.Width = 108, ; + Column6.ColumnOrder = 7, ; + Column6.ControlSource = "ccustomers.numar", ; + Column6.FontSize = 10, ; + Column6.Name = "Column6", ; + Column6.ReadOnly = .T., ; + Column6.Width = 75, ; + Column7.ColumnOrder = 8, ; + Column7.ControlSource = "ccustomers.localitate", ; + Column7.FontSize = 10, ; + Column7.Name = "Column7", ; + Column7.ReadOnly = .T., ; + Column7.Width = 75, ; + Column8.ColumnOrder = 9, ; + Column8.ControlSource = "ccustomers.indicativ_judet", ; + Column8.FontSize = 10, ; + Column8.Name = "Column8", ; + Column8.ReadOnly = .T., ; + Column8.Width = 57, ; + Column9.ColumnOrder = 10, ; + Column9.ControlSource = "ccustomers.codpostal", ; + Column9.FontSize = 10, ; + Column9.Name = "Column9", ; + Column9.ReadOnly = .T., ; + Column9.Width = 64, ; + Column10.ColumnOrder = 11, ; + Column10.ControlSource = "ccustomers.cod_tara", ; + Column10.FontSize = 10, ; + Column10.Name = "Column10", ; + Column10.ReadOnly = .T., ; + Column10.Width = 51, ; + Column11.ColumnOrder = 13, ; + Column11.ControlSource = "ccustomers.cont", ; + Column11.FontSize = 10, ; + Column11.Name = "Column11", ; + Column11.ReadOnly = .T., ; + Column11.Width = 59, ; + Column12.ColumnOrder = 14, ; + Column12.ControlSource = "ccustomers.tip", ; + Column12.FontSize = 10, ; + Column12.Name = "Column12", ; + Column12.ReadOnly = .T., ; + Column12.Width = 73, ; + Column13.ColumnOrder = 15, ; + Column13.ControlSource = "ccustomers.soldideb", ; + Column13.FontSize = 10, ; + Column13.Name = "Column13", ; + Column13.ReadOnly = .T., ; + Column13.Width = 94, ; + Column14.ColumnOrder = 16, ; + Column14.ControlSource = "ccustomers.soldicred", ; + Column14.FontSize = 10, ; + Column14.Name = "Column14", ; + Column14.ReadOnly = .T., ; + Column14.Width = 94, ; + Column15.ColumnOrder = 17, ; + Column15.ControlSource = "ccustomers.soldfdeb", ; + Column15.FontSize = 10, ; + Column15.Name = "Column15", ; + Column15.ReadOnly = .T., ; + Column15.Width = 92, ; + Column16.ColumnOrder = 18, ; + Column16.ControlSource = "ccustomers.soldfcred", ; + Column16.FontSize = 10, ; + Column16.Name = "Column16", ; + Column16.ReadOnly = .T., ; + Column16.Width = 90, ; + Column17.ColumnOrder = 1, ; + Column17.ControlSource = "recno('ccustomers')", ; + Column17.FontSize = 10, ; + Column17.Name = "Column17", ; + Column17.ReadOnly = .T., ; + Column17.Width = 39, ; + Column18.ColumnOrder = 12, ; + Column18.ControlSource = "saftpartid", ; + Column18.FontSize = 10, ; + Column18.Name = "Column18", ; + Column18.ReadOnly = .T., ; + Column18.Sparse = .F., ; + Column18.Width = 117, ; + Column19.ControlSource = "is_activ", ; + Column19.CurrentControl = "Text1", ; + Column19.FontSize = 10, ; + Column19.Name = "Column19", ; + Column19.ReadOnly = .T., ; + Column19.Sparse = .F., ; + Column19.Width = 65 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id Partener", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column10.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod tara", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column10.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column11.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column11.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column12.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column12.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column13.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sold init. deb.", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column13.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column14.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sold init. cred.", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column14.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column15.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sold fin. deb.", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column15.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column16.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sold fin. cred", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column16.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column17.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. crt.", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column17.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column18.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod Partener SAFT", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column18.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column19._checkbox1' AS _checkbox WITH ; + Alignment = 2, ; + Caption = "", ; + Left = 13, ; + Name = "_checkbox1", ; + Top = 59 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column19.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Activ in per.", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column19.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Denumire", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod fiscal", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip persoana", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Strada", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Numar", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column6.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column7.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Localitate", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column7.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column8.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod judet", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column8.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column9.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod postal", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.Page2.gCustomers.Column9.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.Page2.Gridextra1' AS gridextra WITH ; + gridexpression = thisform.pgfSAFT.page2.pgfMaster.page2.gCustomers, ; + Left = 432, ; + Name = "Gridextra1", ; + productname = ROA, ; + Top = 19 + *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive._grdfooter1' AS _grdfooter WITH ; + ccolwithlabel = cDescription, ; + csourcegrid = gAssets, ; + csumcolumns = cAcquisitionandproductioncostsbegin,cAcquisitionandproductioncostsend,cAssetaddition,cTransfers,cAssetdisposal,cBookvaluebegin,cBookvalueend,cDepreciationforperiod,cAppreciationforperiod,cExtraordinarydepreciationamountforperiod,cAccumulateddepreciation,, ; + ctotallabelexpression = 'TOTAL', ; + Left = 4, ; + Name = "_grdfooter1", ; + Top = 101, ; + Width = 823 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssets' AS _grdbase WITH ; + Anchor = 15, ; + ColumnCount = 25, ; + DeleteMark = .F., ; + FontSize = 10, ; + HeaderHeight = 54, ; + Height = 92, ; + Left = 4, ; + Name = "gAssets", ; + Panel = 1, ; + ReadOnly = .T., ; + RecordSource = "cassets", ; + RowHeight = 19, ; + Top = 8, ; + Width = 823, ; + Column1.ColumnOrder = 2, ; + Column1.ControlSource = "cAssets.id_mf", ; + Column1.FontSize = 10, ; + Column1.Name = "cIdMf", ; + Column1.ReadOnly = .T., ; + Column1.Width = 75, ; + Column2.ColumnOrder = 3, ; + Column2.ControlSource = "cAssets.assetid", ; + Column2.FontSize = 10, ; + Column2.Name = "cAssetId", ; + Column2.ReadOnly = .T., ; + Column2.Width = 117, ; + Column3.ColumnOrder = 5, ; + Column3.ControlSource = "cAssets.accountid", ; + Column3.FontSize = 10, ; + Column3.Name = "cAccountId", ; + Column3.ReadOnly = .T., ; + Column3.Width = 52, ; + Column4.ColumnOrder = 6, ; + Column4.ControlSource = "cAssets.DateOfAcquisition", ; + Column4.FontSize = 10, ; + Column4.Name = "cDateOfAquisition", ; + Column4.ReadOnly = .T., ; + Column4.Width = 83, ; + Column5.ColumnOrder = 7, ; + Column5.ControlSource = "cAssets.startupdate", ; + Column5.FontSize = 10, ; + Column5.Name = "cStartupDate", ; + Column5.ReadOnly = .T., ; + Column5.Width = 84, ; + Column6.ColumnOrder = 8, ; + Column6.ControlSource = "cAssets.assetvaluationtype", ; + Column6.FontSize = 10, ; + Column6.InputMask = "", ; + Column6.Name = "cAssetValuationType", ; + Column6.ReadOnly = .T., ; + Column6.Width = 90, ; + Column7.ColumnOrder = 4, ; + Column7.ControlSource = "cAssets.description", ; + Column7.FontSize = 10, ; + Column7.Name = "cDescription", ; + Column7.ReadOnly = .T., ; + Column7.Width = 180, ; + Column8.ColumnOrder = 9, ; + Column8.ControlSource = "cAssets.valuationclass", ; + Column8.FontSize = 10, ; + Column8.Name = "cValuationClass", ; + Column8.ReadOnly = .T., ; + Column8.Width = 75, ; + Column9.ColumnOrder = 10, ; + Column9.ControlSource = "acquisitionandproductioncostsbegin", ; + Column9.FontSize = 10, ; + Column9.InputMask = "99 999 999 999.99", ; + Column9.Name = "cAcquisitionandproductioncostsbegin", ; + Column9.ReadOnly = .T., ; + Column9.Width = 105, ; + Column10.ColumnOrder = 11, ; + Column10.ControlSource = "acquisitionandproductioncostsend", ; + Column10.FontSize = 10, ; + Column10.InputMask = "99 999 999 999.99", ; + Column10.Name = "cAcquisitionandproductioncostsEnd", ; + Column10.ReadOnly = .T., ; + Column10.Width = 103, ; + Column11.ColumnOrder = 12, ; + Column11.ControlSource = "assetlifeyear", ; + Column11.FontSize = 10, ; + Column11.Name = "cAssetlifemonth", ; + Column11.ReadOnly = .T., ; + Column11.Width = 81, ; + Column12.ColumnOrder = 13, ; + Column12.ControlSource = "cAssets.DepreciationMethod", ; + Column12.FontSize = 10, ; + Column12.Name = "cDepreciationmethod", ; + Column12.ReadOnly = .T., ; + Column12.Width = 82, ; + Column13.ColumnOrder = 14, ; + Column13.ControlSource = "depreciationpercentage", ; + Column13.FontSize = 10, ; + Column13.InputMask = "9999 999.9999", ; + Column13.Name = "cDepreciationpercentage", ; + Column13.ReadOnly = .T., ; + Column13.Width = 62, ; + Column14.ColumnOrder = 15, ; + Column14.ControlSource = "assetaddition", ; + Column14.FontSize = 10, ; + Column14.InputMask = "99 999 999 999.99", ; + Column14.Name = "cAssetaddition", ; + Column14.ReadOnly = .T., ; + Column14.Width = 100, ; + Column15.ColumnOrder = 16, ; + Column15.ControlSource = "transfers", ; + Column15.FontSize = 10, ; + Column15.InputMask = "99 999 999 999.99", ; + Column15.Name = "cTransfers", ; + Column15.ReadOnly = .T., ; + Column15.Width = 90, ; + Column16.ColumnOrder = 17, ; + Column16.ControlSource = "assetdisposal", ; + Column16.FontSize = 10, ; + Column16.InputMask = "99 999 999 999.99", ; + Column16.Name = "cAssetdisposal", ; + Column16.ReadOnly = .T., ; + Column16.Width = 75, ; + Column17.ColumnOrder = 18, ; + Column17.ControlSource = "bookvaluebegin", ; + Column17.FontSize = 10, ; + Column17.InputMask = "99 999 999 999.99", ; + Column17.Name = "cBookvaluebegin", ; + Column17.ReadOnly = .T., ; + Column17.Width = 100, ; + Column18.ColumnOrder = 19, ; + Column18.ControlSource = "depreciationforperiod", ; + Column18.FontSize = 10, ; + Column18.InputMask = "99 999 999 999.99", ; + Column18.Name = "cDepreciationforperiod", ; + Column18.ReadOnly = .T., ; + Column18.Width = 107, ; + Column19.ColumnOrder = 20, ; + Column19.ControlSource = "appreciationforperiod", ; + Column19.FontSize = 10, ; + Column19.InputMask = "99 999 999 999.99", ; + Column19.Name = "cAppreciationforperiod", ; + Column19.ReadOnly = .T., ; + Column19.Width = 94, ; + Column20.ColumnOrder = 21, ; + Column20.ControlSource = "extraordinarydepreciationmethod", ; + Column20.FontSize = 10, ; + Column20.Name = "cExtraordinarydepreciationmethod", ; + Column20.ReadOnly = .T., ; + Column20.Width = 126, ; + Column21.ColumnOrder = 22, ; + Column21.ControlSource = "extraordinarydepreciationamountforperiod", ; + Column21.FontSize = 10, ; + Column21.InputMask = "99 999 999 999.99", ; + Column21.Name = "cExtraordinarydepreciationamountforperiod", ; + Column21.ReadOnly = .T., ; + Column21.Width = 108, ; + Column22.ColumnOrder = 23, ; + Column22.ControlSource = "accumulateddepreciation", ; + Column22.FontSize = 10, ; + Column22.InputMask = "99 999 999 999.99", ; + Column22.Name = "cAccumulateddepreciation", ; + Column22.ReadOnly = .T., ; + Column22.Width = 85, ; + Column23.ColumnOrder = 24, ; + Column23.ControlSource = "bookvalueend", ; + Column23.FontSize = 10, ; + Column23.InputMask = "99 999 999 999.99", ; + Column23.Name = "cBookvalueend", ; + Column23.ReadOnly = .T., ; + Column23.Width = 103, ; + Column24.ColumnOrder = 1, ; + Column24.ControlSource = "recno('cAssets')", ; + Column24.FontSize = 10, ; + Column24.Name = "cNrCrt", ; + Column24.ReadOnly = .T., ; + Column24.Width = 42, ; + Column25.ControlSource = "cAssets.tip_imobilizare", ; + Column25.FontSize = 10, ; + Column25.Name = "cTipImobilizare", ; + Column25.ReadOnly = .T., ; + Column25.Width = 97 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cAccountId.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cAccountId.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cAccumulateddepreciation.cAccumulateddepreciation' AS header WITH ; + Alignment = 2, ; + Caption = "Amortizare totala", ; + FontSize = 10, ; + Name = "cAccumulateddepreciation", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cAccumulateddepreciation.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cAcquisitionandproductioncostsbegin.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cost achizitie initial (valoare inventar)", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cAcquisitionandproductioncostsbegin.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cAcquisitionandproductioncostsEnd.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cost achizitie final (valoare inventar)", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cAcquisitionandproductioncostsEnd.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cAppreciationforperiod.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Reevaluari pozitive", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cAppreciationforperiod.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cAssetaddition.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Intrare", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cAssetaddition.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cAssetdisposal.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Iesire", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cAssetdisposal.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cAssetId.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. inventar", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cAssetId.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cAssetlifemonth.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "DNS (ani)", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cAssetlifemonth.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cAssetValuationType.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip raportare", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cAssetValuationType.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cBookvaluebegin.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare contabila initial (valoare neta)", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cBookvaluebegin.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cBookvalueend.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare contabila final (valoare neta)", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cBookvalueend.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cDateOfAquisition.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data achizitie", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cDateOfAquisition.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cDepreciationforperiod.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Amortizare perioada", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cDepreciationforperiod.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cDepreciationmethod.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip amortizare", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cDepreciationmethod.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cDepreciationpercentage.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cota anuala", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cDepreciationpercentage.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cDescription.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Denumire", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cDescription.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cExtraordinarydepreciationamountforperiod.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Amortizare extraordinara in perioada", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cExtraordinarydepreciationamountforperiod.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cExtraordinarydepreciationmethod.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Metoda amortizare extraordinara", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cExtraordinarydepreciationmethod.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cIdMf.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id MF", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cIdMf.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cNrCrt.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. Crt.", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cNrCrt.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cStartupDate.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data PIF", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cStartupDate.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cTipImobilizare.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip imobilizare", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cTipImobilizare.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cTransfers.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Transfer", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cTransfers.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cValuationClass.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Clasificare", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssets.cValuationClass.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssetTransactions' AS _grid WITH ; + Anchor = 14, ; + ColumnCount = 13, ; + DeleteMark = .F., ; + FontSize = 10, ; + HeaderHeight = 38, ; + Height = 193, ; + Left = 4, ; + Name = "gAssetTransactions", ; + Panel = 1, ; + ReadOnly = .T., ; + RecordSource = "cassettransactions", ; + RowHeight = 19, ; + Top = 140, ; + Width = 823, ; + Column1.ColumnOrder = 3, ; + Column1.ControlSource = "cassettransactions.assettransactionid", ; + Column1.FontSize = 10, ; + Column1.Name = "Column1", ; + Column1.ReadOnly = .T., ; + Column1.Width = 101, ; + Column2.ColumnOrder = 2, ; + Column2.ControlSource = "cassettransactions.assetid", ; + Column2.FontSize = 10, ; + Column2.Name = "Column2", ; + Column2.ReadOnly = .T., ; + Column2.Width = 104, ; + Column3.ColumnOrder = 4, ; + Column3.ControlSource = "cassettransactions.assettransactiontype", ; + Column3.FontSize = 10, ; + Column3.Name = "Column3", ; + Column3.ReadOnly = .T., ; + Column3.Width = 81, ; + Column4.ColumnOrder = 6, ; + Column4.ControlSource = "cassettransactions.description", ; + Column4.FontSize = 10, ; + Column4.Name = "Column4", ; + Column4.ReadOnly = .T., ; + Column4.Width = 97, ; + Column5.ColumnOrder = 7, ; + Column5.ControlSource = "cassettransactions.assettransactiondate", ; + Column5.FontSize = 10, ; + Column5.Name = "Column5", ; + Column5.ReadOnly = .T., ; + Column5.Width = 86, ; + Column6.ColumnOrder = 8, ; + Column6.ControlSource = "cassettransactions.transactionid", ; + Column6.FontSize = 10, ; + Column6.Name = "Column6", ; + Column6.ReadOnly = .T., ; + Column6.Width = 75, ; + Column7.ColumnOrder = 9, ; + Column7.ControlSource = "cassettransactions.assetvaluationtype", ; + Column7.FontSize = 10, ; + Column7.Name = "Column7", ; + Column7.ReadOnly = .T., ; + Column7.Width = 75, ; + Column8.ColumnOrder = 10, ; + Column8.ControlSource = "cassettransactions.acquisitionandproductioncostsontransaction", ; + Column8.FontSize = 10, ; + Column8.InputMask = "99 999 999 999.99", ; + Column8.Name = "Column8", ; + Column8.ReadOnly = .T., ; + Column8.Width = 98, ; + Column9.ColumnOrder = 11, ; + Column9.ControlSource = "cassettransactions.bookvalueontransaction", ; + Column9.FontSize = 10, ; + Column9.InputMask = "99 999 999 999.99", ; + Column9.Name = "Column9", ; + Column9.ReadOnly = .T., ; + Column9.Width = 99, ; + Column10.ColumnOrder = 12, ; + Column10.ControlSource = "cassettransactions.assettransactionamount", ; + Column10.FontSize = 10, ; + Column10.InputMask = "99 999 999 999.99", ; + Column10.Name = "Column10", ; + Column10.ReadOnly = .T., ; + Column10.Width = 101, ; + Column11.ColumnOrder = 5, ; + Column11.ControlSource = "cassettransactions.denumire", ; + Column11.FontSize = 10, ; + Column11.Name = "Column11", ; + Column11.ReadOnly = .T., ; + Column11.Width = 165, ; + Column12.ColumnOrder = 13, ; + Column12.ControlSource = "cassettransactions.tip_imobilizare", ; + Column12.FontSize = 10, ; + Column12.Name = "Column12", ; + Column12.ReadOnly = .T., ; + Column12.Width = 84, ; + Column13.ColumnOrder = 1, ; + Column13.ControlSource = "cassettransactions.id_mf", ; + Column13.FontSize = 10, ; + Column13.Name = "Column13", ; + Column13.ReadOnly = .T. + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="grid" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssetTransactions.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id tranzactie", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssetTransactions.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssetTransactions.Column10.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare neta tranzactie", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssetTransactions.Column10.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssetTransactions.Column11.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Denumire", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssetTransactions.Column11.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssetTransactions.Column12.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip imobilizare", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssetTransactions.Column12.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssetTransactions.Column13.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id MF", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssetTransactions.Column13.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssetTransactions.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. inventar", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssetTransactions.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssetTransactions.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip tranzactie", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssetTransactions.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssetTransactions.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Descriere", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssetTransactions.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssetTransactions.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssetTransactions.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssetTransactions.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id jurnal", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssetTransactions.Column6.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssetTransactions.Column7.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip evaluare", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssetTransactions.Column7.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssetTransactions.Column8.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cost achizitie si productie", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssetTransactions.Column8.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssetTransactions.Column9.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare contabila", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.gAssetTransactions.Column9.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.Gridextra1' AS gridextra WITH ; + gridexpression = thisform.pgfSAFT.page2.pgfMaster.pgActive.gAssets, ; + Left = 318, ; + Name = "Gridextra1", ; + productname = ROA, ; + Top = 26 + *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgActive.Gridextra2' AS gridextra WITH ; + gridexpression = thisform.pgfSAFT.page2.pgfMaster.pgActive.gAssetTransactions, ; + Height = 17, ; + Left = 58, ; + Name = "Gridextra2", ; + productname = ROA, ; + Top = 176, ; + Width = 20 + *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgFurnizori.But_modifica1' AS but_modifica WITH ; + Anchor = 8, ; + clistaparametri = "cSuppliers", ; + Comment = "*:OnResize=RT", ; + Left = 768, ; + Name = "But_modifica1", ; + TabIndex = 11, ; + Tag = "L", ; + ToolTipText = "Modificare (CTRL+M) Atentie! Apasati 1. Citeste date pentru a actualiza informatiile din Clienti/Furnizori", ; + Top = 5, ; + Visible = .T., ; + ZOrderSet = 8 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgFurnizori.But_verifica1' AS but_verifica WITH ; + Anchor = 8, ; + caction = do_verifica_cui, ; + clistaparametri = "cSuppliers", ; + Left = 797, ; + Name = "But_verifica1", ; + TabIndex = 14, ; + ToolTipText = "Verificare coduri fiscale", ; + Top = 5 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgFurnizori.Gridextra1' AS gridextra WITH ; + gridexpression = thisform.pgfSAFT.page2.pgfMaster.pgfurnizori.gSuppliers, ; + Left = 334, ; + Name = "Gridextra1", ; + productname = ROA, ; + Top = 9 + *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers' AS _grdrow WITH ; + Anchor = 15, ; + ColumnCount = 19, ; + DeleteMark = .F., ; + FontSize = 10, ; + Height = 290, ; + Left = 4, ; + Name = "gSuppliers", ; + Panel = 1, ; + ReadOnly = .T., ; + RecordSource = "csuppliers", ; + RowHeight = 19, ; + Top = 33, ; + Width = 823, ; + Column1.ColumnOrder = 2, ; + Column1.ControlSource = "csuppliers.id_part", ; + Column1.FontSize = 10, ; + Column1.Name = "Column1", ; + Column1.ReadOnly = .T., ; + Column1.Width = 75, ; + Column2.ColumnOrder = 3, ; + Column2.ControlSource = "csuppliers.denumire", ; + Column2.FontSize = 10, ; + Column2.Name = "Column2", ; + Column2.ReadOnly = .T., ; + Column2.Width = 161, ; + Column3.ColumnOrder = 4, ; + Column3.ControlSource = "csuppliers.cod_fiscal", ; + Column3.FontSize = 10, ; + Column3.Name = "Column3", ; + Column3.ReadOnly = .T., ; + Column3.Width = 92, ; + Column4.ColumnOrder = 5, ; + Column4.ControlSource = "IIF(nvl(csuppliers.tip_persoana,1) = 1, 'PJ', 'PF')", ; + Column4.FontSize = 10, ; + Column4.Name = "Column4", ; + Column4.ReadOnly = .T., ; + Column4.Width = 77, ; + Column5.ColumnOrder = 6, ; + Column5.ControlSource = "csuppliers.strada", ; + Column5.FontSize = 10, ; + Column5.Name = "Column5", ; + Column5.ReadOnly = .T., ; + Column5.Width = 99, ; + Column6.ColumnOrder = 7, ; + Column6.ControlSource = "csuppliers.numar", ; + Column6.FontSize = 10, ; + Column6.Name = "Column6", ; + Column6.ReadOnly = .T., ; + Column6.Width = 75, ; + Column7.ColumnOrder = 8, ; + Column7.ControlSource = "csuppliers.localitate", ; + Column7.FontSize = 10, ; + Column7.Name = "Column7", ; + Column7.ReadOnly = .T., ; + Column7.Width = 75, ; + Column8.ColumnOrder = 9, ; + Column8.ControlSource = "csuppliers.indicativ_judet", ; + Column8.FontSize = 10, ; + Column8.Name = "Column8", ; + Column8.ReadOnly = .T., ; + Column8.Width = 57, ; + Column9.ColumnOrder = 10, ; + Column9.ControlSource = "csuppliers.codpostal", ; + Column9.FontSize = 10, ; + Column9.Name = "Column9", ; + Column9.ReadOnly = .T., ; + Column9.Width = 64, ; + Column10.ColumnOrder = 11, ; + Column10.ControlSource = "csuppliers.cod_tara", ; + Column10.FontSize = 10, ; + Column10.Name = "Column10", ; + Column10.ReadOnly = .T., ; + Column10.Width = 75, ; + Column11.ColumnOrder = 13, ; + Column11.ControlSource = "csuppliers.cont", ; + Column11.FontSize = 10, ; + Column11.Name = "Column11", ; + Column11.ReadOnly = .T., ; + Column11.Width = 75, ; + Column12.ColumnOrder = 14, ; + Column12.ControlSource = "csuppliers.tip", ; + Column12.FontSize = 10, ; + Column12.Name = "Column12", ; + Column12.ReadOnly = .T., ; + Column12.Width = 59, ; + Column13.ColumnOrder = 15, ; + Column13.ControlSource = "csuppliers.soldideb", ; + Column13.FontSize = 10, ; + Column13.Name = "Column13", ; + Column13.ReadOnly = .T., ; + Column13.Width = 92, ; + Column14.ColumnOrder = 16, ; + Column14.ControlSource = "csuppliers.soldicred", ; + Column14.FontSize = 10, ; + Column14.Name = "Column14", ; + Column14.ReadOnly = .T., ; + Column14.Width = 92, ; + Column15.ColumnOrder = 17, ; + Column15.ControlSource = "csuppliers.soldfdeb", ; + Column15.FontSize = 10, ; + Column15.Name = "Column15", ; + Column15.ReadOnly = .T., ; + Column15.Width = 89, ; + Column16.ColumnOrder = 18, ; + Column16.ControlSource = "csuppliers.soldfcred", ; + Column16.FontSize = 10, ; + Column16.Name = "Column16", ; + Column16.ReadOnly = .T., ; + Column16.Width = 90, ; + Column17.ColumnOrder = 1, ; + Column17.ControlSource = "recno('csuppliers')", ; + Column17.FontSize = 10, ; + Column17.Name = "Column17", ; + Column17.ReadOnly = .T., ; + Column17.Width = 39, ; + Column18.ColumnOrder = 12, ; + Column18.ControlSource = "saftpartid", ; + Column18.FontSize = 10, ; + Column18.Name = "Column18", ; + Column18.ReadOnly = .T., ; + Column18.Sparse = .F., ; + Column18.Width = 115, ; + Column19.ControlSource = "is_activ", ; + Column19.CurrentControl = "Text1", ; + Column19.FontSize = 10, ; + Column19.Name = "Column19", ; + Column19.ReadOnly = .T., ; + Column19.Sparse = .F., ; + Column19.Width = 65 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id Partener", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column10.Header1' AS header WITH ; + Caption = "Cod_tara", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column10.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column11.Header1' AS header WITH ; + Caption = "Cont", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column11.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column12.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column12.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column13.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sold init. deb.", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column13.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column14.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sold init. cred.", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column14.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column15.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sold fin. deb.", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column15.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column16.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sold fin. cred.", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column16.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column17.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. crt.", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column17.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column18.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod partener SAFT", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column18.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column19._checkbox1' AS _checkbox WITH ; + Alignment = 2, ; + Caption = "", ; + ControlSource = "is_activ", ; + Left = 32, ; + Name = "_checkbox1", ; + ReadOnly = .T., ; + Top = 59 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column19.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Activ in per.", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column19.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Denumire", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod fiscal", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip persoana", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Strada", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Numar", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column6.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column7.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Localitate", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column7.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column8.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod judet", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column8.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column9.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod postal", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgFurnizori.gSuppliers.Column9.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgProduse.gProducts' AS _grdrow WITH ; + Anchor = 15, ; + ColumnCount = 9, ; + DeleteMark = .F., ; + FontSize = 10, ; + Height = 320, ; + Left = 4, ; + Name = "gProducts", ; + Panel = 1, ; + ReadOnly = .T., ; + RecordSource = "cproducts", ; + RowHeight = 19, ; + Top = 8, ; + Width = 823, ; + Column1.ColumnOrder = 2, ; + Column1.ControlSource = "cproducts.id_articol", ; + Column1.FontSize = 10, ; + Column1.Name = "Column1", ; + Column1.ReadOnly = .T., ; + Column1.Visible = .T., ; + Column1.Width = 75, ; + Column2.ColumnOrder = 3, ; + Column2.ControlSource = "cproducts.denumire", ; + Column2.FontSize = 10, ; + Column2.Name = "Column2", ; + Column2.ReadOnly = .T., ; + Column2.Width = 162, ; + Column3.ColumnOrder = 4, ; + Column3.ControlSource = "cproducts.codnc8", ; + Column3.FontSize = 10, ; + Column3.Name = "Column3", ; + Column3.ReadOnly = .T., ; + Column3.Width = 74, ; + Column4.ColumnOrder = 5, ; + Column4.ControlSource = "cproducts.um", ; + Column4.FontSize = 10, ; + Column4.Name = "Column4", ; + Column4.ReadOnly = .T., ; + Column4.Width = 54, ; + Column5.ColumnOrder = 6, ; + Column5.ControlSource = "cproducts.cod_um_iso", ; + Column5.FontSize = 10, ; + Column5.Name = "Column5", ; + Column5.ReadOnly = .T., ; + Column5.Width = 105, ; + Column6.ColumnOrder = 8, ; + Column6.ControlSource = "cproducts.codbare", ; + Column6.FontSize = 10, ; + Column6.Name = "Column6", ; + Column6.ReadOnly = .T., ; + Column6.Width = 181, ; + Column7.ColumnOrder = 9, ; + Column7.ControlSource = "cproducts.goodsorservicesid", ; + Column7.FontSize = 10, ; + Column7.Name = "Column7", ; + Column7.ReadOnly = .T., ; + Column7.Width = 75, ; + Column8.ColumnOrder = 1, ; + Column8.ControlSource = "recno('cProducts')", ; + Column8.FontSize = 10, ; + Column8.Name = "Column8", ; + Column8.ReadOnly = .T., ; + Column8.Width = 42, ; + Column9.ColumnOrder = 7, ; + Column9.ControlSource = "cproducts.um_iso", ; + Column9.FontSize = 10, ; + Column9.Name = "Column9", ; + Column9.ReadOnly = .T., ; + Column9.Width = 150 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgProduse.gProducts.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id articol", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgProduse.gProducts.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgProduse.gProducts.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Denumire", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgProduse.gProducts.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgProduse.gProducts.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod NC8", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgProduse.gProducts.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgProduse.gProducts.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "UM", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgProduse.gProducts.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgProduse.gProducts.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod UM standard", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgProduse.gProducts.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgProduse.gProducts.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod bare", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgProduse.gProducts.Column6.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgProduse.gProducts.Column7.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Bun/serviciu", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgProduse.gProducts.Column7.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgProduse.gProducts.Column8.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. Crt.", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgProduse.gProducts.Column8.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgProduse.gProducts.Column9.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "UM standard", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgProduse.gProducts.Column9.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgProduse.Gridextra1' AS gridextra WITH ; + gridexpression = thisform.pgfSAFT.page2.pgfMaster.pgProduse.gProducts, ; + Left = 353, ; + Name = "Gridextra1", ; + productname = ROA, ; + Top = 61 + *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgProprietari.gOwners' AS _grdrow WITH ; + Anchor = 15, ; + ColumnCount = 10, ; + DeleteMark = .F., ; + FontSize = 10, ; + Height = 320, ; + Left = 4, ; + Name = "gOwners", ; + Panel = 1, ; + RecordSource = "cowners", ; + RowHeight = 19, ; + Top = 8, ; + Width = 823, ; + Column1.ControlSource = "cowners.id_part", ; + Column1.FontSize = 10, ; + Column1.Name = "Column1", ; + Column1.ReadOnly = .T., ; + Column1.Visible = .T., ; + Column1.Width = 75, ; + Column2.ControlSource = "cowners.denumire", ; + Column2.FontSize = 10, ; + Column2.Name = "Column2", ; + Column2.ReadOnly = .T., ; + Column2.Visible = .T., ; + Column2.Width = 178, ; + Column3.ControlSource = "cowners.cod_fiscal", ; + Column3.FontSize = 10, ; + Column3.Name = "Column3", ; + Column3.ReadOnly = .T., ; + Column3.Visible = .T., ; + Column3.Width = 89, ; + Column4.ControlSource = "IIF(nvl(cOwners.tip_persoana,1) = 1, 'PJ', 'PF')", ; + Column4.FontSize = 10, ; + Column4.Name = "Column4", ; + Column4.ReadOnly = .T., ; + Column4.Visible = .T., ; + Column4.Width = 78, ; + Column5.ControlSource = "cowners.strada", ; + Column5.FontSize = 10, ; + Column5.Name = "Column5", ; + Column5.Width = 75, ; + Column6.ControlSource = "cowners.numar", ; + Column6.FontSize = 10, ; + Column6.Name = "Column6", ; + Column6.Width = 75, ; + Column7.ControlSource = "cowners.localitate", ; + Column7.FontSize = 10, ; + Column7.Name = "Column7", ; + Column7.Width = 75, ; + Column8.ControlSource = "cowners.indicativ_judet", ; + Column8.FontSize = 10, ; + Column8.Name = "Column8", ; + Column8.Width = 75, ; + Column9.ControlSource = "cowners.cod_tara", ; + Column9.FontSize = 10, ; + Column9.Name = "Column9", ; + Column9.Width = 75, ; + Column10.ControlSource = "cowners.saftpartid", ; + Column10.FontSize = 10, ; + Column10.Name = "Column10", ; + Column10.Width = 108 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgProprietari.gOwners.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id partener", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgProprietari.gOwners.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgProprietari.gOwners.Column10.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod partener SAFT", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgProprietari.gOwners.Column10.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgProprietari.gOwners.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Denumire", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgProprietari.gOwners.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgProprietari.gOwners.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod fiscal", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgProprietari.gOwners.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgProprietari.gOwners.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip persoana", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgProprietari.gOwners.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgProprietari.gOwners.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Strada", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgProprietari.gOwners.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgProprietari.gOwners.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Numar", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgProprietari.gOwners.Column6.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgProprietari.gOwners.Column7.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Localitate", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgProprietari.gOwners.Column7.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgProprietari.gOwners.Column8.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Indicativ Jud.", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgProprietari.gOwners.Column8.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgProprietari.gOwners.Column9.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod tara", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgProprietari.gOwners.Column9.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgProprietari.Gridextra1' AS gridextra WITH ; + gridexpression = thisform.pgfSAFT.page2.pgfMaster.pgProprietari.gOwners, ; + Left = 361, ; + Name = "Gridextra1", ; + productname = ROA, ; + Top = 69 + *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgStocuri._grdfooter1' AS _grdfooter WITH ; + ccolwithlabel = cArticol, ; + csourcegrid = gPhysicalStock, ; + csumcolumns = cCanti,cVali,cCantf,cValf, ; + ctotallabelexpression = 'TOTAL', ; + Left = 9, ; + Name = "_grdfooter1", ; + Top = 296, ; + Width = 823 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock' AS _grdrow WITH ; + Anchor = 15, ; + ColumnCount = 16, ; + DeleteMark = .F., ; + FontSize = 10, ; + Height = 286, ; + Left = 4, ; + Name = "gPhysicalStock", ; + Panel = 1, ; + RecordSource = "cphysicalstock", ; + RowHeight = 19, ; + Top = 8, ; + Width = 823, ; + Column1.ColumnOrder = 2, ; + Column1.ControlSource = "cphysicalstock.id_gestiune", ; + Column1.FontSize = 10, ; + Column1.Name = "cIdGestiune", ; + Column1.ReadOnly = .T., ; + Column1.Visible = .T., ; + Column1.Width = 75, ; + Column2.ColumnOrder = 4, ; + Column2.ControlSource = "cphysicalstock.id_articol", ; + Column2.FontSize = 10, ; + Column2.Name = "cIdArticol", ; + Column2.ReadOnly = .T., ; + Column2.Visible = .T., ; + Column2.Width = 75, ; + Column3.ColumnOrder = 6, ; + Column3.ControlSource = "cphysicalstock.pret", ; + Column3.FontSize = 10, ; + Column3.Name = "cPret", ; + Column3.ReadOnly = .T., ; + Column3.Visible = .T., ; + Column3.Width = 64, ; + Column4.ColumnOrder = 7, ; + Column4.ControlSource = "cphysicalstock.cont", ; + Column4.FontSize = 10, ; + Column4.Name = "cCont", ; + Column4.ReadOnly = .T., ; + Column4.Visible = .T., ; + Column4.Width = 51, ; + Column5.ColumnOrder = 14, ; + Column5.ControlSource = "cphysicalstock.id_part", ; + Column5.FontSize = 10, ; + Column5.Name = "cIdPartener", ; + Column5.Width = 75, ; + Column6.ColumnOrder = 8, ; + Column6.ControlSource = "cphysicalstock.canti", ; + Column6.FontSize = 10, ; + Column6.Format = "RK", ; + Column6.InputMask = "999 999 999 999.9999", ; + Column6.Name = "cCanti", ; + Column6.Width = 75, ; + Column7.ColumnOrder = 9, ; + Column7.ControlSource = "cphysicalstock.vali", ; + Column7.FontSize = 10, ; + Column7.Format = "RK", ; + Column7.InputMask = "999 999 999 999.99", ; + Column7.Name = "cVali", ; + Column7.Width = 85, ; + Column8.ColumnOrder = 10, ; + Column8.ControlSource = "cphysicalstock.cantf", ; + Column8.FontSize = 10, ; + Column8.Format = "RK", ; + Column8.InputMask = "999 999 999 999.9999", ; + Column8.Name = "cCantf", ; + Column8.Width = 75, ; + Column9.ColumnOrder = 11, ; + Column9.ControlSource = "cphysicalstock.valf", ; + Column9.FontSize = 10, ; + Column9.Format = "RK", ; + Column9.InputMask = "999 999 999 999.99", ; + Column9.Name = "cValf", ; + Column9.Width = 85, ; + Column10.ColumnOrder = 12, ; + Column10.ControlSource = "cphysicalstock.codnc8", ; + Column10.FontSize = 10, ; + Column10.Name = "cCodNC8", ; + Column10.Width = 89, ; + Column11.ColumnOrder = 15, ; + Column11.ControlSource = "cphysicalstock.partener", ; + Column11.FontSize = 10, ; + Column11.Name = "cPartener", ; + Column11.Width = 165, ; + Column12.ColumnOrder = 13, ; + Column12.ControlSource = "cphysicalstock.cod_um_iso", ; + Column12.FontSize = 10, ; + Column12.Name = "cCodUMISO", ; + Column12.Width = 75, ; + Column13.ColumnOrder = 16, ; + Column13.ControlSource = "cphysicalstock.saftpartid", ; + Column13.FontSize = 10, ; + Column13.Name = "cSaftpartid", ; + Column13.Width = 108, ; + Column14.ColumnOrder = 1, ; + Column14.ControlSource = "recno('cPhysicalStock')", ; + Column14.CurrentControl = "Text1", ; + Column14.FontSize = 10, ; + Column14.Name = "cNrCrt", ; + Column14.Width = 42, ; + Column15.ColumnOrder = 3, ; + Column15.ControlSource = "cphysicalstock.cgest", ; + Column15.FontSize = 10, ; + Column15.Name = "cGest", ; + Column16.ColumnOrder = 5, ; + Column16.ControlSource = "cphysicalstock.denumire", ; + Column16.FontSize = 10, ; + Column16.Name = "cArticol", ; + Column16.Width = 139 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cArticol.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Articol", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cArticol.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cCantf.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Stoc final", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cCantf.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cCanti.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Stoc initial", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cCanti.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cCodNC8.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod NC8", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cCodNC8.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cCodUMISO.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "UM standard", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cCodUMISO.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cCont.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cCont.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cGest.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Gestiune", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cGest.Text1' AS textbox WITH ; + Alignment = 3, ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cIdArticol.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id_articol", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cIdArticol.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cIdGestiune.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id gestiune", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cIdGestiune.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cIdPartener.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id partener", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cIdPartener.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cNrCrt.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. Crt.", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cNrCrt.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cPartener.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Partener", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cPartener.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cPret.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Pret", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cPret.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cSaftpartid.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod partener SAFT", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cSaftpartid.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cValf.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare finala", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cValf.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cVali.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare initiala", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgStocuri.gPhysicalStock.cVali.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgStocuri.Gridextra1' AS gridextra WITH ; + gridexpression = thisform.pgfSAFT.page2.pgfMaster.pgStocuri.gPhysicalStock, ; + Left = 353, ; + Name = "Gridextra1", ; + productname = ROA, ; + Top = 61 + *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgTaxe.Gridextra1' AS gridextra WITH ; + gridexpression = thisform.pgfSAFT.page2.pgfMaster.pgTaxe.gTaxTable, ; + Left = 335, ; + Name = "Gridextra1", ; + productname = ROA, ; + Top = 44 + *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgTaxe.gTaxTable' AS _grdrow WITH ; + Anchor = 15, ; + ColumnCount = 14, ; + DeleteMark = .F., ; + FontSize = 10, ; + Height = 320, ; + Left = 2, ; + Name = "gTaxTable", ; + Panel = 1, ; + RecordSource = "ctaxtable", ; + RowHeight = 19, ; + TabIndex = 1, ; + Top = 8, ; + Width = 823, ; + Column1.ControlSource = "ctaxtable.taxcode", ; + Column1.FontSize = 10, ; + Column1.Name = "Column1", ; + Column1.ReadOnly = .T., ; + Column1.Visible = .T., ; + Column1.Width = 75, ; + Column2.ControlSource = "ctaxtable.taxtype", ; + Column2.FontSize = 10, ; + Column2.Name = "Column2", ; + Column2.ReadOnly = .T., ; + Column2.Visible = .T., ; + Column2.Width = 75, ; + Column3.ControlSource = "ctaxtable.typename", ; + Column3.FontSize = 10, ; + Column3.Name = "Column3", ; + Column3.ReadOnly = .T., ; + Column3.Visible = .T., ; + Column3.Width = 89, ; + Column4.ControlSource = "ctaxtable.descriere", ; + Column4.FontSize = 10, ; + Column4.Name = "Column4", ; + Column4.ReadOnly = .T., ; + Column4.Visible = .T., ; + Column4.Width = 202, ; + Column5.ColumnOrder = 5, ; + Column5.ControlSource = "ctaxtable.procent_taxa", ; + Column5.FontSize = 10, ; + Column5.Name = "Column6", ; + Column5.Width = 75, ; + Column6.ColumnOrder = 6, ; + Column6.ControlSource = "ctaxtable.procent_prorata", ; + Column6.FontSize = 10, ; + Column6.Name = "Column7", ; + Column6.Width = 89, ; + Column7.ColumnOrder = 14, ; + Column7.ControlSource = "ctaxtable.inactiv", ; + Column7.FontSize = 10, ; + Column7.Name = "Column8", ; + Column7.Width = 38, ; + Column8.ColumnOrder = 7, ; + Column8.ControlSource = "ctaxtable.tip", ; + Column8.FontSize = 10, ; + Column8.Name = "Column9", ; + Column8.Width = 75, ; + Column9.ColumnOrder = 13, ; + Column9.ControlSource = "ctaxtable.ordine", ; + Column9.FontSize = 10, ; + Column9.Name = "Column10", ; + Column9.Width = 41, ; + Column10.ColumnOrder = 8, ; + Column10.ControlSource = "ctaxtable.descriere_tip", ; + Column10.FontSize = 10, ; + Column10.Name = "Column11", ; + Column10.Width = 153, ; + Column11.ColumnOrder = 9, ; + Column11.ControlSource = "ctaxtable.tva", ; + Column11.FontSize = 10, ; + Column11.Name = "Column12", ; + Column11.Width = 23, ; + Column12.ColumnOrder = 10, ; + Column12.ControlSource = "ctaxtable.wht", ; + Column12.FontSize = 10, ; + Column12.Name = "Column13", ; + Column12.Width = 25, ; + Column13.ColumnOrder = 11, ; + Column13.ControlSource = "ctaxtable.tva_livrari", ; + Column13.FontSize = 10, ; + Column13.Name = "Column14", ; + Column13.Width = 59, ; + Column14.ColumnOrder = 12, ; + Column14.ControlSource = "ctaxtable.tva_achizitii", ; + Column14.FontSize = 10, ; + Column14.Name = "Column15", ; + Column14.Width = 66 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgTaxe.gTaxTable.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxcode", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgTaxe.gTaxTable.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgTaxe.gTaxTable.Column10.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Ordine", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgTaxe.gTaxTable.Column10.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgTaxe.gTaxTable.Column11.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Descriere Tip", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgTaxe.gTaxTable.Column11.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgTaxe.gTaxTable.Column12.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tva", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgTaxe.gTaxTable.Column12.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgTaxe.gTaxTable.Column13.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Wht", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgTaxe.gTaxTable.Column13.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgTaxe.gTaxTable.Column14.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tva Livrari", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgTaxe.gTaxTable.Column14.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgTaxe.gTaxTable.Column15.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tva Achizitii", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgTaxe.gTaxTable.Column15.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgTaxe.gTaxTable.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxtype", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgTaxe.gTaxTable.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgTaxe.gTaxTable.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Typename", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgTaxe.gTaxTable.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgTaxe.gTaxTable.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Descriere", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgTaxe.gTaxTable.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgTaxe.gTaxTable.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Procent Taxa", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgTaxe.gTaxTable.Column6.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgTaxe.gTaxTable.Column7.Header1' AS header WITH ; + Caption = "Procent Prorata", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgTaxe.gTaxTable.Column7.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgTaxe.gTaxTable.Column8.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Inactiv", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgTaxe.gTaxTable.Column8.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgTaxe.gTaxTable.Column9.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgTaxe.gTaxTable.Column9.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgTipAnalize.gAnalysisTypeTable' AS _grdrow WITH ; + Anchor = 15, ; + ColumnCount = 4, ; + DeleteMark = .F., ; + FontSize = 10, ; + Height = 320, ; + Left = 4, ; + Name = "gAnalysisTypeTable", ; + Panel = 1, ; + RecordSource = "canalysistypetable", ; + RowHeight = 19, ; + Top = 8, ; + Width = 823, ; + Column1.ControlSource = "canalysistypetable.id_sectie", ; + Column1.FontSize = 10, ; + Column1.Name = "Column1", ; + Column1.ReadOnly = .T., ; + Column1.Width = 75, ; + Column2.ControlSource = "canalysistypetable.id_sucursala", ; + Column2.FontSize = 10, ; + Column2.Name = "Column2", ; + Column2.ReadOnly = .T., ; + Column2.Width = 75, ; + Column3.ControlSource = "canalysistypetable.cod", ; + Column3.FontSize = 10, ; + Column3.Name = "Column3", ; + Column3.ReadOnly = .T., ; + Column3.Width = 89, ; + Column4.ControlSource = "canalysistypetable.descriere", ; + Column4.FontSize = 10, ; + Column4.Name = "Column4", ; + Column4.ReadOnly = .T., ; + Column4.Width = 330 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgTipAnalize.gAnalysisTypeTable.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id sectie", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgTipAnalize.gAnalysisTypeTable.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgTipAnalize.gAnalysisTypeTable.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id sucursala", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgTipAnalize.gAnalysisTypeTable.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgTipAnalize.gAnalysisTypeTable.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgTipAnalize.gAnalysisTypeTable.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgTipAnalize.gAnalysisTypeTable.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Descriere", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgTipAnalize.gAnalysisTypeTable.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgTipAnalize.Gridextra1' AS gridextra WITH ; + gridexpression = thisform.pgfSAFT.page2.pgfMaster.pgTipAnalize.gAnalysisTypeTable, ; + Left = 337, ; + Name = "Gridextra1", ; + productname = ROA, ; + Top = 45 + *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgTipMiscari.gMovementTypeTable' AS _grdrow WITH ; + Anchor = 15, ; + ColumnCount = 3, ; + DeleteMark = .F., ; + FontSize = 10, ; + Height = 320, ; + Left = 4, ; + Name = "gMovementTypeTable", ; + Panel = 1, ; + RecordSource = "cmovementtypetable", ; + RowHeight = 19, ; + Top = 8, ; + Width = 823, ; + Column1.ColumnOrder = 2, ; + Column1.ControlSource = "cmovementtypetable.movementtype", ; + Column1.FontSize = 10, ; + Column1.Name = "Column1", ; + Column1.ReadOnly = .T., ; + Column1.Visible = .T., ; + Column1.Width = 61, ; + Column2.ColumnOrder = 3, ; + Column2.ControlSource = "cmovementtypetable.description", ; + Column2.FontSize = 10, ; + Column2.Name = "Column2", ; + Column2.ReadOnly = .T., ; + Column2.Visible = .T., ; + Column2.Width = 148, ; + Column3.ColumnOrder = 1, ; + Column3.ControlSource = "recno('cmovementtypetable')", ; + Column3.FontSize = 10, ; + Column3.Name = "Column3", ; + Column3.Width = 39 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgTipMiscari.gMovementTypeTable.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgTipMiscari.gMovementTypeTable.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgTipMiscari.gMovementTypeTable.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Descriere", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgTipMiscari.gMovementTypeTable.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgTipMiscari.gMovementTypeTable.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. crt.", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgTipMiscari.gMovementTypeTable.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgTipMiscari.Gridextra1' AS gridextra WITH ; + gridexpression = thisform.pgfSAFT.page2.pgfMaster.pgTipMiscari.gMovementTypeTable, ; + Left = 345, ; + Name = "Gridextra1", ; + productname = ROA, ; + Top = 53 + *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgUOM.Gridextra1' AS gridextra WITH ; + gridexpression = thisform.pgfSAFT.page2.pgfMaster.pgUOM.gUOMTable, ; + Left = 345, ; + Name = "Gridextra1", ; + productname = ROA, ; + Top = 53 + *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgUOM.gUOMTable' AS _grdrow WITH ; + Anchor = 15, ; + ColumnCount = 3, ; + DeleteMark = .F., ; + FontSize = 10, ; + Height = 320, ; + Left = 4, ; + Name = "gUOMTable", ; + Panel = 1, ; + RecordSource = "cuomtable", ; + RowHeight = 19, ; + Top = 8, ; + Width = 823, ; + Column1.ColumnOrder = 2, ; + Column1.ControlSource = "cuomtable.unitofmeasure", ; + Column1.FontSize = 10, ; + Column1.Name = "Column1", ; + Column1.ReadOnly = .T., ; + Column1.Visible = .T., ; + Column1.Width = 80, ; + Column2.ColumnOrder = 3, ; + Column2.ControlSource = "cuomtable.description", ; + Column2.FontSize = 10, ; + Column2.Name = "Column2", ; + Column2.Width = 290, ; + Column3.ColumnOrder = 1, ; + Column3.ControlSource = "recno('cUOMTable')", ; + Column3.FontSize = 10, ; + Column3.Name = "Column3", ; + Column3.Width = 39 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgUOM.gUOMTable.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "UM standard", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgUOM.gUOMTable.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgUOM.gUOMTable.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Descriere", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgUOM.gUOMTable.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgUOM.gUOMTable.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr .crt.", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page2.pgfMaster.pgUOM.gUOMTable.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries' AS _grdrow WITH ; + Anchor = 15, ; + ColumnCount = 31, ; + DeleteMark = .F., ; + FontSize = 10, ; + Height = 127, ; + Left = 4, ; + Name = "gGeneralLedgerEntries", ; + Panel = 1, ; + ReadOnly = .T., ; + RecordSource = "cgeneralledgerentries", ; + RowHeight = 19, ; + Top = 8, ; + Width = 823, ; + Column1.ColumnOrder = 2, ; + Column1.ControlSource = "cgeneralledgerentries.an", ; + Column1.FontSize = 10, ; + Column1.InputMask = "9999", ; + Column1.Name = "Column1", ; + Column1.ReadOnly = .T., ; + Column1.Width = 53, ; + Column2.ColumnOrder = 3, ; + Column2.ControlSource = "cgeneralledgerentries.luna", ; + Column2.FontSize = 10, ; + Column2.InputMask = "999", ; + Column2.Name = "Column2", ; + Column2.ReadOnly = .T., ; + Column2.Width = 55, ; + Column3.ColumnOrder = 4, ; + Column3.ControlSource = "cgeneralledgerentries.cod", ; + Column3.FontSize = 10, ; + Column3.InputMask = "99999999999", ; + Column3.Name = "Column3", ; + Column3.ReadOnly = .T., ; + Column3.Width = 75, ; + Column4.ColumnOrder = 5, ; + Column4.ControlSource = "cgeneralledgerentries.id_fact", ; + Column4.FontSize = 10, ; + Column4.InputMask = "99999999999", ; + Column4.Name = "Column4", ; + Column4.ReadOnly = .T., ; + Column4.Width = 75, ; + Column5.ColumnOrder = 6, ; + Column5.ControlSource = "cgeneralledgerentries.nract", ; + Column5.FontSize = 10, ; + Column5.InputMask = "99999999999999999999", ; + Column5.Name = "Column5", ; + Column5.ReadOnly = .T., ; + Column5.Width = 78, ; + Column6.ColumnOrder = 7, ; + Column6.ControlSource = "cgeneralledgerentries.dataact", ; + Column6.FontSize = 10, ; + Column6.Name = "Column6", ; + Column6.ReadOnly = .T., ; + Column6.Width = 88, ; + Column7.ColumnOrder = 8, ; + Column7.ControlSource = "cgeneralledgerentries.dataireg", ; + Column7.FontSize = 10, ; + Column7.Name = "Column7", ; + Column7.ReadOnly = .T., ; + Column7.Width = 96, ; + Column8.ColumnOrder = 9, ; + Column8.ControlSource = "cgeneralledgerentries.cont", ; + Column8.FontSize = 10, ; + Column8.Name = "Column8", ; + Column8.ReadOnly = .T., ; + Column8.Width = 68, ; + Column9.ColumnOrder = 10, ; + Column9.ControlSource = "cgeneralledgerentries.tipdc", ; + Column9.FontSize = 10, ; + Column9.Name = "Column9", ; + Column9.ReadOnly = .T., ; + Column9.Width = 75, ; + Column10.ColumnOrder = 11, ; + Column10.ControlSource = "cgeneralledgerentries.id_part", ; + Column10.FontSize = 10, ; + Column10.InputMask = "999999999999", ; + Column10.Name = "Column10", ; + Column10.ReadOnly = .T., ; + Column10.Width = 75, ; + Column11.ColumnOrder = 15, ; + Column11.ControlSource = "cgeneralledgerentries.explicatie_tva", ; + Column11.FontSize = 10, ; + Column11.Name = "Column11", ; + Column11.ReadOnly = .T., ; + Column11.Width = 151, ; + Column12.ColumnOrder = 16, ; + Column12.ControlSource = "cgeneralledgerentries.cota_taxa", ; + Column12.FontSize = 10, ; + Column12.Name = "Column12", ; + Column12.ReadOnly = .T., ; + Column12.Width = 55, ; + Column13.ColumnOrder = 17, ; + Column13.ControlSource = "cgeneralledgerentries.tiptaxa", ; + Column13.FontSize = 10, ; + Column13.Name = "Column13", ; + Column13.ReadOnly = .T., ; + Column13.Width = 78, ; + Column14.ColumnOrder = 18, ; + Column14.ControlSource = "cgeneralledgerentries.taxtype", ; + Column14.FontSize = 10, ; + Column14.InputMask = "999", ; + Column14.Name = "Column14", ; + Column14.ReadOnly = .T., ; + Column14.Width = 75, ; + Column15.ColumnOrder = 19, ; + Column15.ControlSource = "cgeneralledgerentries.taxname", ; + Column15.FontSize = 10, ; + Column15.Name = "Column15", ; + Column15.ReadOnly = .T., ; + Column15.Width = 109, ; + Column16.ColumnOrder = 29, ; + Column16.ControlSource = "cgeneralledgerentries.id_sectie", ; + Column16.FontSize = 10, ; + Column16.InputMask = "999999999", ; + Column16.Name = "Column16", ; + Column16.ReadOnly = .T., ; + Column16.Width = 50, ; + Column17.ColumnOrder = 28, ; + Column17.ControlSource = "cgeneralledgerentries.id_valuta", ; + Column17.FontSize = 10, ; + Column17.Name = "Column17", ; + Column17.ReadOnly = .T., ; + Column17.Width = 49, ; + Column18.ColumnOrder = 30, ; + Column18.ControlSource = "cgeneralledgerentries.n50", ; + Column18.FontSize = 10, ; + Column18.InputMask = "9", ; + Column18.Name = "Column18", ; + Column18.ReadOnly = .T., ; + Column18.Width = 90, ; + Column19.ColumnOrder = 31, ; + Column19.ControlSource = "cgeneralledgerentries.n100", ; + Column19.FontSize = 10, ; + Column19.InputMask = "9", ; + Column19.Name = "Column19", ; + Column19.ReadOnly = .T., ; + Column19.Width = 97, ; + Column20.ColumnOrder = 21, ; + Column20.ControlSource = "cgeneralledgerentries.curs", ; + Column20.FontSize = 10, ; + Column20.InputMask = "999 999.9999", ; + Column20.Name = "Column20", ; + Column20.ReadOnly = .T., ; + Column20.Width = 75, ; + Column21.ColumnOrder = 20, ; + Column21.ControlSource = "cgeneralledgerentries.suma", ; + Column21.FontSize = 10, ; + Column21.InputMask = "999 999 999 999.99", ; + Column21.Name = "Column21", ; + Column21.ReadOnly = .T., ; + Column21.Width = 75, ; + Column22.ColumnOrder = 22, ; + Column22.ControlSource = "cgeneralledgerentries.suma_val", ; + Column22.FontSize = 10, ; + Column22.InputMask = "999 999 999 999.99", ; + Column22.Name = "Column22", ; + Column22.ReadOnly = .T., ; + Column22.Width = 75, ; + Column23.ColumnOrder = 23, ; + Column23.ControlSource = "cgeneralledgerentries.taxa", ; + Column23.FontSize = 10, ; + Column23.InputMask = "999 999 999 999.99", ; + Column23.Name = "Column23", ; + Column23.ReadOnly = .T., ; + Column23.Width = 75, ; + Column24.ColumnOrder = 24, ; + Column24.ControlSource = "cgeneralledgerentries.taxa_val", ; + Column24.FontSize = 10, ; + Column24.InputMask = "999 999 999 999.99", ; + Column24.Name = "Column24", ; + Column24.ReadOnly = .T., ; + Column24.Width = 75, ; + Column25.ColumnOrder = 13, ; + Column25.ControlSource = "cgeneralledgerentries.cod_fiscal", ; + Column25.FontSize = 10, ; + Column25.Name = "Column25", ; + Column25.ReadOnly = .T., ; + Column25.Width = 83, ; + Column26.ColumnOrder = 25, ; + Column26.ControlSource = "IIF(nvl(cgeneralledgerentries.tip_persoana,1) = 1, 'PJ', 'PF')", ; + Column26.FontSize = 10, ; + Column26.Name = "Column26", ; + Column26.ReadOnly = .T., ; + Column26.Width = 77, ; + Column27.ColumnOrder = 26, ; + Column27.ControlSource = "cgeneralledgerentries.cod_tara", ; + Column27.FontSize = 10, ; + Column27.Name = "Column27", ; + Column27.ReadOnly = .T., ; + Column27.Width = 51, ; + Column28.ColumnOrder = 27, ; + Column28.ControlSource = "cgeneralledgerentries.cod_valuta", ; + Column28.FontSize = 10, ; + Column28.Name = "Column28", ; + Column28.ReadOnly = .T., ; + Column28.Width = 62, ; + Column29.ColumnOrder = 12, ; + Column29.ControlSource = "cgeneralledgerentries.denumire", ; + Column29.FontSize = 10, ; + Column29.Name = "Column29", ; + Column29.ReadOnly = .T., ; + Column29.Width = 135, ; + Column30.ColumnOrder = 1, ; + Column30.ControlSource = "recno('cgeneralledgerentries')", ; + Column30.FontSize = 10, ; + Column30.Name = "Column30", ; + Column30.ReadOnly = .T., ; + Column30.Width = 39, ; + Column31.ColumnOrder = 14, ; + Column31.ControlSource = "saftpartid", ; + Column31.FontSize = 10, ; + Column31.Name = "Column31", ; + Column31.ReadOnly = .T., ; + Column31.Sparse = .F., ; + Column31.Width = 115 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "An", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column10.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id Partener", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column10.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column11.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatie TVA", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column11.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column12.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cota taxa", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column12.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column13.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip taxa SAFT", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column13.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column14.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TaxType", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column14.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column15.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TaxCode", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column15.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column16.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id sectie", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column16.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column17.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id valuta", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column17.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column18.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nedeductibil 50", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column18.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column19.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nedeductibil 100", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column19.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Luna", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column20.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Curs", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column20.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column21.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Suma", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column21.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column22.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Suma valuta", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column22.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column23.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxa", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column23.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column24.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxa valuta", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column24.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column25.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod fiscal", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column25.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column26.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip persoana", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column26.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column27.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod tara", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column27.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column28.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod valuta", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column28.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column29.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Partener", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column29.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column30.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. crt.", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column30.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column31.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod partener SAFT", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column31.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id document", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. document", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data document", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column6.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column7.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data inregistrare", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column7.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column8.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column8.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column9.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip deb/cred", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.gGeneralLedgerEntries.Column9.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct' AS _grid WITH ; + Anchor = 14, ; + ColumnCount = 45, ; + DeleteMark = .F., ; + Height = 224, ; + HighlightStyle = 2, ; + Left = 4, ; + Name = "grdAct", ; + Panel = 1, ; + RecordSource = "actactan", ; + RowHeight = 19, ; + TabIndex = 1, ; + Top = 139, ; + Width = 823, ; + ZOrderSet = 6, ; + Column1.ControlSource = "recno('actactan')", ; + Column1.FontName = "Arial", ; + Column1.FontSize = 10, ; + Column1.ForeColor = 0,0,0, ; + Column1.Name = "Column1", ; + Column1.Width = 30, ; + Column2.ControlSource = "fdoc", ; + Column2.FontName = "Arial", ; + Column2.FontSize = 10, ; + Column2.ForeColor = 0,0,0, ; + Column2.Name = "Column2", ; + Column2.Width = 38, ; + Column3.ControlSource = "dataireg", ; + Column3.FontName = "Arial", ; + Column3.FontSize = 10, ; + Column3.ForeColor = 0,0,0, ; + Column3.Name = "Column3", ; + Column3.Width = 54, ; + Column4.ColumnOrder = 4, ; + Column4.ControlSource = "dataact", ; + Column4.FontName = "Arial", ; + Column4.FontSize = 10, ; + Column4.ForeColor = 0,0,0, ; + Column4.Name = "Column4", ; + Column4.Width = 54, ; + Column5.ColumnOrder = 6, ; + Column5.ControlSource = "nract", ; + Column5.FontName = "Arial", ; + Column5.FontSize = 10, ; + Column5.ForeColor = 0,0,0, ; + Column5.Name = "Column5", ; + Column5.Width = 48, ; + Column6.ColumnOrder = 7, ; + Column6.ControlSource = "partD", ; + Column6.FontName = "Arial", ; + Column6.FontSize = 10, ; + Column6.ForeColor = 0,0,0, ; + Column6.Name = "Column6", ; + Column6.Width = 125, ; + Column7.ColumnOrder = 8, ; + Column7.ControlSource = "partC", ; + Column7.FontName = "Arial", ; + Column7.FontSize = 10, ; + Column7.ForeColor = 0,0,0, ; + Column7.Name = "Column7", ; + Column7.Width = 116, ; + Column8.ColumnOrder = 9, ; + Column8.ControlSource = "explicatia", ; + Column8.FontName = "Arial", ; + Column8.FontSize = 10, ; + Column8.ForeColor = 0,0,0, ; + Column8.Name = "Column8", ; + Column8.Width = 90, ; + Column9.ColumnOrder = 10, ; + Column9.ControlSource = "scd", ; + Column9.FontBold = .T., ; + Column9.FontName = "Arial", ; + Column9.FontSize = 10, ; + Column9.ForeColor = 0,0,0, ; + Column9.Name = "cScd", ; + Column9.Width = 32, ; + Column10.ColumnOrder = 11, ; + Column10.ControlSource = "ascd", ; + Column10.FontName = "Arial", ; + Column10.FontSize = 10, ; + Column10.ForeColor = 0,0,0, ; + Column10.Name = "cAscd", ; + Column10.Width = 35, ; + Column11.ColumnOrder = 12, ; + Column11.ControlSource = "scc", ; + Column11.FontBold = .T., ; + Column11.FontName = "Arial", ; + Column11.FontSize = 10, ; + Column11.ForeColor = 0,0,0, ; + Column11.Name = "cScc", ; + Column11.Width = 33, ; + Column12.ColumnOrder = 13, ; + Column12.ControlSource = "ascc", ; + Column12.FontName = "Arial", ; + Column12.FontSize = 10, ; + Column12.ForeColor = 0,0,0, ; + Column12.Name = "cAscc", ; + Column12.Width = 35, ; + Column13.ColumnOrder = 14, ; + Column13.ControlSource = "suma", ; + Column13.FontName = "Arial", ; + Column13.FontSize = 10, ; + Column13.ForeColor = 0,0,0, ; + Column13.Format = "R", ; + Column13.InputMask = (get_mask(12,gnPA)), ; + Column13.Name = "Column13", ; + Column13.Width = 85, ; + Column14.ColumnOrder = 15, ; + Column14.ControlSource = "nrord", ; + Column14.FontName = "Arial", ; + Column14.FontSize = 10, ; + Column14.ForeColor = 0,0,0, ; + Column14.Name = "Column14", ; + Column14.Width = 93, ; + Column15.ColumnOrder = 17, ; + Column15.ControlSource = "perecheD", ; + Column15.FontName = "Arial", ; + Column15.FontSize = 10, ; + Column15.ForeColor = 0,0,0, ; + Column15.Name = "Column15", ; + Column15.Width = 55, ; + Column16.ColumnOrder = 18, ; + Column16.ControlSource = "perecheC", ; + Column16.FontName = "Arial", ; + Column16.FontSize = 10, ; + Column16.ForeColor = 0,0,0, ; + Column16.Name = "Column16", ; + Column16.Width = 55, ; + Column17.ColumnOrder = 24, ; + Column17.ControlSource = "datascad", ; + Column17.FontName = "Arial", ; + Column17.FontSize = 10, ; + Column17.ForeColor = 0,0,0, ; + Column17.Name = "Column17", ; + Column17.Width = 88, ; + Column18.ColumnOrder = 25, ; + Column18.ControlSource = "nnir", ; + Column18.FontName = "Arial", ; + Column18.FontSize = 10, ; + Column18.ForeColor = 0,0,0, ; + Column18.Name = "Column18", ; + Column18.Width = 75, ; + Column19.ColumnOrder = 26, ; + Column19.ControlSource = "nresp", ; + Column19.FontName = "Arial", ; + Column19.FontSize = 10, ; + Column19.ForeColor = 0,0,0, ; + Column19.Name = "Column19", ; + Column20.ColumnOrder = 27, ; + Column20.ControlSource = "dst_chlt", ; + Column20.FontName = "Arial", ; + Column20.FontSize = 10, ; + Column20.ForeColor = 0,0,0, ; + Column20.Name = "Column20", ; + Column21.ColumnOrder = 28, ; + Column21.ControlSource = "suma_val", ; + Column21.FontName = "Arial", ; + Column21.FontSize = 10, ; + Column21.ForeColor = 0,0,0, ; + Column21.Format = "R", ; + Column21.InputMask = (get_mask(12,gnPVal)), ; + Column21.Name = "Column21", ; + Column22.ColumnOrder = 29, ; + Column22.ControlSource = "nume_val", ; + Column22.FontName = "Arial", ; + Column22.FontSize = 10, ; + Column22.ForeColor = 0,0,0, ; + Column22.Name = "Column22", ; + Column22.Width = 31, ; + Column23.ColumnOrder = 30, ; + Column23.ControlSource = "curs", ; + Column23.FontName = "Arial", ; + Column23.FontSize = 10, ; + Column23.ForeColor = 0,0,0, ; + Column23.InputMask = (get_mask(12,gnPcurs)), ; + Column23.Name = "Column23", ; + Column23.Width = 51, ; + Column24.ColumnOrder = 35, ; + Column24.ControlSource = "sectie", ; + Column24.FontName = "Arial", ; + Column24.FontSize = 10, ; + Column24.ForeColor = 0,0,0, ; + Column24.Name = "Column25", ; + Column25.ColumnOrder = 19, ; + Column25.ControlSource = "proc_tva", ; + Column25.FontName = "Arial", ; + Column25.FontSize = 10, ; + Column25.ForeColor = 0,0,0, ; + Column25.InputMask = "99.99", ; + Column25.Name = "Column26", ; + Column25.Width = 45, ; + Column26.ColumnOrder = 42, ; + Column26.ControlSource = "cod", ; + Column26.FontName = "Arial", ; + Column26.FontSize = 10, ; + Column26.ForeColor = 0,0,0, ; + Column26.Name = "Column27", ; + Column26.Width = 51, ; + Column27.ColumnOrder = 37, ; + Column27.ControlSource = "util", ; + Column27.FontName = "Arial", ; + Column27.FontSize = 10, ; + Column27.ForeColor = 0,0,0, ; + Column27.Name = "Column28", ; + Column27.Width = 84, ; + Column28.ColumnOrder = 38, ; + Column28.ControlSource = "dataora", ; + Column28.FontName = "Arial", ; + Column28.FontSize = 10, ; + Column28.ForeColor = 0,0,0, ; + Column28.Name = "Column29", ; + Column28.Width = 96, ; + Column29.ColumnOrder = 39, ; + Column29.ControlSource = "utils", ; + Column29.FontName = "Arial", ; + Column29.FontSize = 10, ; + Column29.ForeColor = 0,0,0, ; + Column29.Name = "Column30", ; + Column30.ColumnOrder = 40, ; + Column30.ControlSource = "dataoras", ; + Column30.FontName = "Arial", ; + Column30.FontSize = 10, ; + Column30.ForeColor = 0,0,0, ; + Column30.Name = "Column31", ; + Column30.Width = 83, ; + Column31.ColumnOrder = 41, ; + Column31.ControlSource = "id_set", ; + Column31.FontName = "Arial", ; + Column31.FontSize = 10, ; + Column31.ForeColor = 0,0,0, ; + Column31.Name = "Column32", ; + Column32.ColumnOrder = 36, ; + Column32.ControlSource = "sucursala", ; + Column32.FontName = "Arial", ; + Column32.FontSize = 10, ; + Column32.ForeColor = 0,0,0, ; + Column32.Name = "Column33", ; + Column33.ColumnOrder = 31, ; + Column33.ControlSource = "explicatia4", ; + Column33.FontName = "Arial", ; + Column33.FontSize = 10, ; + Column33.ForeColor = 0,0,0, ; + Column33.Name = "Column34", ; + Column34.ColumnOrder = 32, ; + Column34.ControlSource = "explicatia5", ; + Column34.FontName = "Arial", ; + Column34.FontSize = 10, ; + Column34.ForeColor = 0,0,0, ; + Column34.Name = "Column35", ; + Column35.ColumnOrder = 33, ; + Column35.ControlSource = "GESTIN", ; + Column35.FontName = "Arial", ; + Column35.FontSize = 10, ; + Column35.ForeColor = 0,0,0, ; + Column35.Name = "Column36", ; + Column36.ColumnOrder = 34, ; + Column36.ControlSource = "GESTOUT", ; + Column36.FontName = "Arial", ; + Column36.FontSize = 10, ; + Column36.ForeColor = 0,0,0, ; + Column36.Name = "Column37", ; + Column37.ColumnOrder = 16, ; + Column37.ControlSource = "contract", ; + Column37.FontName = "Arial", ; + Column37.FontSize = 10, ; + Column37.ForeColor = 0,0,0, ; + Column37.Name = "Column24", ; + Column37.Width = 58, ; + Column38.ColumnOrder = 20, ; + Column38.ControlSource = "explicatie_tva", ; + Column38.FontName = "Arial", ; + Column38.FontSize = 10, ; + Column38.ForeColor = 0,0,0, ; + Column38.Name = "Column38", ; + Column39.ColumnOrder = 5, ; + Column39.ControlSource = "serie_act", ; + Column39.FontName = "Arial", ; + Column39.FontSize = 10, ; + Column39.ForeColor = 0,0,0, ; + Column39.Name = "cSerie_act", ; + Column39.Width = 51, ; + Column40.ColumnOrder = 43, ; + Column40.ControlSource = "id_Fact", ; + Column40.FontName = "Arial", ; + Column40.FontSize = 10, ; + Column40.Name = "cIdFact", ; + Column41.ColumnOrder = 44, ; + Column41.ControlSource = "id_factd", ; + Column41.FontName = "Arial", ; + Column41.FontSize = 10, ; + Column41.Name = "cIdFactD", ; + Column42.ColumnOrder = 45, ; + Column42.ControlSource = "id_factc", ; + Column42.FontName = "Arial", ; + Column42.FontSize = 10, ; + Column42.Name = "cIdFactC", ; + Column43.ColumnOrder = 21, ; + Column43.ControlSource = "left(taxname,250)", ; + Column43.Name = "cTaxName", ; + Column43.ReadOnly = .T., ; + Column43.Width = 84, ; + Column44.ColumnOrder = 22, ; + Column44.ControlSource = "saft_procent", ; + Column44.Name = "cSaftProcent", ; + Column44.ReadOnly = .T., ; + Column45.ColumnOrder = 23, ; + Column45.ControlSource = "left(paymentname,250)", ; + Column45.Name = "cPaymentName", ; + Column45.ReadOnly = .T., ; + Column45.Width = 90 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="grid" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.cAscc.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "A Cred", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.cAscc.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.cAscd.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "A Deb", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.cAscd.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.cIdFact.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id fact", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.cIdFact.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.cIdFactC.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id FactC", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.cIdFactC.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.cIdFactD.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id FactD", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.cIdFactD.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr.Crt.", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column13.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Suma", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column13.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column14.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Lucrare/Comanda", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column14.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column15.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Doc.platit", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column15.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column16.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Doc.incasat", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column16.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column17.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data scadenta", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column17.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column18.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "NIR/Bon", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column18.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column19.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Responsabil", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column19.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Fel document", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column20.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Chelt/Venituri", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column20.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontItalic = .F., ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column21.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Suma in valuta", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column21.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column22.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valuta", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column22.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column23.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Curs", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column23.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column24.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Contract", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column24.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column25.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sectie", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column25.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column26.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cota TVA", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column26.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column27.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column27.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column28.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Operator introducere", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column28.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column29.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Dataora introducerii", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column29.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data inreg.", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column30.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Operator stergere", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column30.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column31.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Dataora stergerii", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column31.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column32.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip operatie", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column32.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column33.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sucursala", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column33.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column34.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatia 4", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column34.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column35.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatia 5", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column35.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column36.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Gestiune destinatie", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column36.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column37.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Gestiune sursa", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column37.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column38.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatie TVA", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column38.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data Act", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr.Doc.", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatie D", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column6.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column7.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatie C", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column7.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column8.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatie", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.Column8.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.cPaymentName.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod Plata SAFT", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.cPaymentName.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.cSaftProcent.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Procent Taxa", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.cSaftProcent.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.cScc.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "C Cred", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.cScc.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontBold = .T., ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.cScd.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "C Deb", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.cScd.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontBold = .T., ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.cSerie_act.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Serie Doc.", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.cSerie_act.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.cTaxName.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod taxa SAFT", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.Page3.grdAct.cTaxName.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.Page3.Gridextra1' AS gridextra WITH ; + gridexpression = thisform.pgfSAFT.page3.gGeneralLedgerEntries, ; + Left = 447, ; + Name = "Gridextra1", ; + productname = ROA, ; + Top = 3 + *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa' AS _pageframe WITH ; + Anchor = 15, ; + ErasePage = .T., ; + Height = 408, ; + Left = 2, ; + Name = "pgfDocumenteSursa", ; + PageCount = 5, ; + Top = -1, ; + Width = 837, ; + Page1.Caption = "Facturi vanzare", ; + Page1.Name = "Page1", ; + Page1.PageOrder = 1, ; + Page2.Caption = "Facturi achizitie", ; + Page2.Name = "Page2", ; + Page2.PageOrder = 2, ; + Page3.Caption = "Miscari bunuri", ; + Page3.Name = "pgMiscariBunuri", ; + Page3.PageOrder = 4, ; + Page4.Caption = "Tranzactii cu active", ; + Page4.Name = "pgTranzactiiActive", ; + Page4.PageOrder = 5, ; + Page5.Caption = "Plati", ; + Page5.Name = "pgPlati", ; + Page5.PageOrder = 3 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="pageframe" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.But_modifica1' AS but_modifica WITH ; + Anchor = 12, ; + clistaparametri = "cSalesInvoicesLines", ; + Comment = "*:OnResize=RT", ; + Left = 764, ; + Name = "But_modifica1", ; + TabIndex = 11, ; + Tag = "L", ; + ToolTipText = "Modificare (CTRL+M) ", ; + Top = 59, ; + Visible = .T., ; + ZOrderSet = 8 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.But_sterge1' AS but_sterge WITH ; + Anchor = 12, ; + clistaparametri = "cSalesInvoicesLines", ; + Left = 794, ; + Name = "But_sterge1", ; + Top = 59 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct' AS _grid WITH ; + Anchor = 14, ; + ColumnCount = 45, ; + DeleteMark = .F., ; + Height = 114, ; + HighlightStyle = 2, ; + Left = 7, ; + Name = "grdAct", ; + Panel = 1, ; + RecordSource = "actactan_facturiv", ; + RowHeight = 19, ; + TabIndex = 1, ; + Top = 221, ; + Width = 818, ; + ZOrderSet = 6, ; + Column1.ControlSource = "recno('actactan_facturiv')", ; + Column1.FontName = "Arial", ; + Column1.FontSize = 10, ; + Column1.ForeColor = 0,0,0, ; + Column1.Name = "Column1", ; + Column1.Width = 30, ; + Column2.ControlSource = "fdoc", ; + Column2.FontName = "Arial", ; + Column2.FontSize = 10, ; + Column2.ForeColor = 0,0,0, ; + Column2.Name = "Column2", ; + Column2.Width = 38, ; + Column3.ControlSource = "dataireg", ; + Column3.FontName = "Arial", ; + Column3.FontSize = 10, ; + Column3.ForeColor = 0,0,0, ; + Column3.Name = "Column3", ; + Column3.Width = 54, ; + Column4.ColumnOrder = 4, ; + Column4.ControlSource = "dataact", ; + Column4.FontName = "Arial", ; + Column4.FontSize = 10, ; + Column4.ForeColor = 0,0,0, ; + Column4.Name = "Column4", ; + Column4.Width = 54, ; + Column5.ColumnOrder = 6, ; + Column5.ControlSource = "nract", ; + Column5.FontName = "Arial", ; + Column5.FontSize = 10, ; + Column5.ForeColor = 0,0,0, ; + Column5.Name = "Column5", ; + Column5.Width = 48, ; + Column6.ColumnOrder = 7, ; + Column6.ControlSource = "partD", ; + Column6.FontName = "Arial", ; + Column6.FontSize = 10, ; + Column6.ForeColor = 0,0,0, ; + Column6.Name = "Column6", ; + Column6.Width = 125, ; + Column7.ColumnOrder = 8, ; + Column7.ControlSource = "partC", ; + Column7.FontName = "Arial", ; + Column7.FontSize = 10, ; + Column7.ForeColor = 0,0,0, ; + Column7.Name = "Column7", ; + Column7.Width = 116, ; + Column8.ColumnOrder = 9, ; + Column8.ControlSource = "explicatia", ; + Column8.FontName = "Arial", ; + Column8.FontSize = 10, ; + Column8.ForeColor = 0,0,0, ; + Column8.Name = "Column8", ; + Column8.Width = 90, ; + Column9.ColumnOrder = 10, ; + Column9.ControlSource = "scd", ; + Column9.FontBold = .T., ; + Column9.FontName = "Arial", ; + Column9.FontSize = 10, ; + Column9.ForeColor = 0,0,0, ; + Column9.Name = "cScd", ; + Column9.Width = 32, ; + Column10.ColumnOrder = 11, ; + Column10.ControlSource = "ascd", ; + Column10.FontName = "Arial", ; + Column10.FontSize = 10, ; + Column10.ForeColor = 0,0,0, ; + Column10.Name = "cAscd", ; + Column10.Width = 35, ; + Column11.ColumnOrder = 12, ; + Column11.ControlSource = "scc", ; + Column11.FontBold = .T., ; + Column11.FontName = "Arial", ; + Column11.FontSize = 10, ; + Column11.ForeColor = 0,0,0, ; + Column11.Name = "cScc", ; + Column11.Width = 33, ; + Column12.ColumnOrder = 13, ; + Column12.ControlSource = "ascc", ; + Column12.FontName = "Arial", ; + Column12.FontSize = 10, ; + Column12.ForeColor = 0,0,0, ; + Column12.Name = "cAscc", ; + Column12.Width = 35, ; + Column13.ColumnOrder = 14, ; + Column13.ControlSource = "suma", ; + Column13.FontName = "Arial", ; + Column13.FontSize = 10, ; + Column13.ForeColor = 0,0,0, ; + Column13.Format = "R", ; + Column13.InputMask = (get_mask(12,gnPA)), ; + Column13.Name = "Column13", ; + Column13.Width = 85, ; + Column14.ColumnOrder = 15, ; + Column14.ControlSource = "nrord", ; + Column14.FontName = "Arial", ; + Column14.FontSize = 10, ; + Column14.ForeColor = 0,0,0, ; + Column14.Name = "Column14", ; + Column14.Width = 93, ; + Column15.ColumnOrder = 17, ; + Column15.ControlSource = "perecheD", ; + Column15.FontName = "Arial", ; + Column15.FontSize = 10, ; + Column15.ForeColor = 0,0,0, ; + Column15.Name = "Column15", ; + Column15.Width = 55, ; + Column16.ColumnOrder = 18, ; + Column16.ControlSource = "perecheC", ; + Column16.FontName = "Arial", ; + Column16.FontSize = 10, ; + Column16.ForeColor = 0,0,0, ; + Column16.Name = "Column16", ; + Column16.Width = 55, ; + Column17.ColumnOrder = 24, ; + Column17.ControlSource = "datascad", ; + Column17.FontName = "Arial", ; + Column17.FontSize = 10, ; + Column17.ForeColor = 0,0,0, ; + Column17.Name = "Column17", ; + Column17.Width = 88, ; + Column18.ColumnOrder = 25, ; + Column18.ControlSource = "nnir", ; + Column18.FontName = "Arial", ; + Column18.FontSize = 10, ; + Column18.ForeColor = 0,0,0, ; + Column18.Name = "Column18", ; + Column18.Width = 75, ; + Column19.ColumnOrder = 26, ; + Column19.ControlSource = "nresp", ; + Column19.FontName = "Arial", ; + Column19.FontSize = 10, ; + Column19.ForeColor = 0,0,0, ; + Column19.Name = "Column19", ; + Column20.ColumnOrder = 27, ; + Column20.ControlSource = "dst_chlt", ; + Column20.FontName = "Arial", ; + Column20.FontSize = 10, ; + Column20.ForeColor = 0,0,0, ; + Column20.Name = "Column20", ; + Column21.ColumnOrder = 28, ; + Column21.ControlSource = "suma_val", ; + Column21.FontName = "Arial", ; + Column21.FontSize = 10, ; + Column21.ForeColor = 0,0,0, ; + Column21.Format = "R", ; + Column21.InputMask = (get_mask(12,gnPVal)), ; + Column21.Name = "Column21", ; + Column22.ColumnOrder = 29, ; + Column22.ControlSource = "nume_val", ; + Column22.FontName = "Arial", ; + Column22.FontSize = 10, ; + Column22.ForeColor = 0,0,0, ; + Column22.Name = "Column22", ; + Column22.Width = 31, ; + Column23.ColumnOrder = 30, ; + Column23.ControlSource = "curs", ; + Column23.FontName = "Arial", ; + Column23.FontSize = 10, ; + Column23.ForeColor = 0,0,0, ; + Column23.InputMask = (get_mask(12,gnPcurs)), ; + Column23.Name = "Column23", ; + Column23.Width = 51, ; + Column24.ColumnOrder = 35, ; + Column24.ControlSource = "sectie", ; + Column24.FontName = "Arial", ; + Column24.FontSize = 10, ; + Column24.ForeColor = 0,0,0, ; + Column24.Name = "Column25", ; + Column25.ColumnOrder = 19, ; + Column25.ControlSource = "proc_tva", ; + Column25.FontName = "Arial", ; + Column25.FontSize = 10, ; + Column25.ForeColor = 0,0,0, ; + Column25.InputMask = "99.99", ; + Column25.Name = "Column26", ; + Column25.Width = 45, ; + Column26.ColumnOrder = 42, ; + Column26.ControlSource = "cod", ; + Column26.FontName = "Arial", ; + Column26.FontSize = 10, ; + Column26.ForeColor = 0,0,0, ; + Column26.Name = "Column27", ; + Column26.Width = 51, ; + Column27.ColumnOrder = 37, ; + Column27.ControlSource = "util", ; + Column27.FontName = "Arial", ; + Column27.FontSize = 10, ; + Column27.ForeColor = 0,0,0, ; + Column27.Name = "Column28", ; + Column27.Width = 84, ; + Column28.ColumnOrder = 38, ; + Column28.ControlSource = "dataora", ; + Column28.FontName = "Arial", ; + Column28.FontSize = 10, ; + Column28.ForeColor = 0,0,0, ; + Column28.Name = "Column29", ; + Column28.Width = 96, ; + Column29.ColumnOrder = 39, ; + Column29.ControlSource = "utils", ; + Column29.FontName = "Arial", ; + Column29.FontSize = 10, ; + Column29.ForeColor = 0,0,0, ; + Column29.Name = "Column30", ; + Column30.ColumnOrder = 40, ; + Column30.ControlSource = "dataoras", ; + Column30.FontName = "Arial", ; + Column30.FontSize = 10, ; + Column30.ForeColor = 0,0,0, ; + Column30.Name = "Column31", ; + Column30.Width = 83, ; + Column31.ColumnOrder = 41, ; + Column31.ControlSource = "id_set", ; + Column31.FontName = "Arial", ; + Column31.FontSize = 10, ; + Column31.ForeColor = 0,0,0, ; + Column31.Name = "Column32", ; + Column32.ColumnOrder = 36, ; + Column32.ControlSource = "sucursala", ; + Column32.FontName = "Arial", ; + Column32.FontSize = 10, ; + Column32.ForeColor = 0,0,0, ; + Column32.Name = "Column33", ; + Column33.ColumnOrder = 31, ; + Column33.ControlSource = "explicatia4", ; + Column33.FontName = "Arial", ; + Column33.FontSize = 10, ; + Column33.ForeColor = 0,0,0, ; + Column33.Name = "Column34", ; + Column34.ColumnOrder = 32, ; + Column34.ControlSource = "explicatia5", ; + Column34.FontName = "Arial", ; + Column34.FontSize = 10, ; + Column34.ForeColor = 0,0,0, ; + Column34.Name = "Column35", ; + Column35.ColumnOrder = 33, ; + Column35.ControlSource = "GESTIN", ; + Column35.FontName = "Arial", ; + Column35.FontSize = 10, ; + Column35.ForeColor = 0,0,0, ; + Column35.Name = "Column36", ; + Column36.ColumnOrder = 34, ; + Column36.ControlSource = "GESTOUT", ; + Column36.FontName = "Arial", ; + Column36.FontSize = 10, ; + Column36.ForeColor = 0,0,0, ; + Column36.Name = "Column37", ; + Column37.ColumnOrder = 16, ; + Column37.ControlSource = "contract", ; + Column37.FontName = "Arial", ; + Column37.FontSize = 10, ; + Column37.ForeColor = 0,0,0, ; + Column37.Name = "Column24", ; + Column37.Width = 58, ; + Column38.ColumnOrder = 20, ; + Column38.ControlSource = "explicatie_tva", ; + Column38.FontName = "Arial", ; + Column38.FontSize = 10, ; + Column38.ForeColor = 0,0,0, ; + Column38.Name = "Column38", ; + Column39.ColumnOrder = 5, ; + Column39.ControlSource = "serie_act", ; + Column39.FontName = "Arial", ; + Column39.FontSize = 10, ; + Column39.ForeColor = 0,0,0, ; + Column39.Name = "cSerie_act", ; + Column39.Width = 51, ; + Column40.ColumnOrder = 43, ; + Column40.ControlSource = "id_Fact", ; + Column40.FontName = "Arial", ; + Column40.FontSize = 10, ; + Column40.Name = "cIdFact", ; + Column41.ColumnOrder = 44, ; + Column41.ControlSource = "id_factd", ; + Column41.FontName = "Arial", ; + Column41.FontSize = 10, ; + Column41.Name = "cIdFactD", ; + Column42.ColumnOrder = 45, ; + Column42.ControlSource = "id_factc", ; + Column42.FontName = "Arial", ; + Column42.FontSize = 10, ; + Column42.Name = "cIdFactC", ; + Column43.ColumnOrder = 21, ; + Column43.ControlSource = "left(taxname,250)", ; + Column43.Name = "cTaxName", ; + Column43.ReadOnly = .T., ; + Column43.Width = 84, ; + Column44.ColumnOrder = 22, ; + Column44.ControlSource = "saft_procent", ; + Column44.Name = "cSaftProcent", ; + Column44.ReadOnly = .T., ; + Column45.ColumnOrder = 23, ; + Column45.ControlSource = "left(paymentname,250)", ; + Column45.Name = "cPaymentName", ; + Column45.ReadOnly = .T., ; + Column45.Width = 90 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="grid" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.cAscc.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "A Cred", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.cAscc.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.cAscd.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "A Deb", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.cAscd.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.cIdFact.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id fact", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.cIdFact.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.cIdFactC.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id FactC", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.cIdFactC.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.cIdFactD.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id FactD", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.cIdFactD.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr.Crt.", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column13.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Suma", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column13.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column14.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Lucrare/Comanda", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column14.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column15.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Doc.platit", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column15.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column16.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Doc.incasat", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column16.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column17.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data scadenta", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column17.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column18.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "NIR/Bon", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column18.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column19.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Responsabil", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column19.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Fel document", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column20.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Chelt/Venituri", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column20.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontItalic = .F., ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column21.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Suma in valuta", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column21.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column22.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valuta", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column22.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column23.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Curs", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column23.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column24.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Contract", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column24.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column25.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sectie", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column25.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column26.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cota TVA", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column26.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column27.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column27.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column28.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Operator introducere", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column28.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column29.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Dataora introducerii", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column29.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data inreg.", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column30.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Operator stergere", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column30.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column31.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Dataora stergerii", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column31.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column32.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip operatie", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column32.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column33.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sucursala", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column33.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column34.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatia 4", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column34.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column35.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatia 5", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column35.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column36.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Gestiune destinatie", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column36.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column37.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Gestiune sursa", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column37.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column38.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatie TVA", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column38.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data Act", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr.Doc.", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatie D", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column6.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column7.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatie C", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column7.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column8.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatie", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.Column8.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.cPaymentName.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod Plata SAFT", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.cPaymentName.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.cSaftProcent.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Procent Taxa", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.cSaftProcent.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.cScc.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "C Cred", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.cScc.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontBold = .T., ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.cScd.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "C Deb", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.cScd.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontBold = .T., ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.cSerie_act.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Serie Doc.", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.cSerie_act.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.cTaxName.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod taxa SAFT", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.grdAct.cTaxName.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.Gridextra1' AS gridextra WITH ; + gridexpression = thisform.pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.page1.gSalesInvoices, ; + Left = 151, ; + Name = "Gridextra1", ; + productname = ROA, ; + Top = -9 + *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices' AS _grdbase WITH ; + Anchor = 15, ; + ColumnCount = 16, ; + DeleteMark = .F., ; + FontSize = 10, ; + Height = 57, ; + Left = 7, ; + Name = "gSalesInvoices", ; + Panel = 1, ; + ReadOnly = .T., ; + RecordSource = "csalesinvoices", ; + RowHeight = 19, ; + Top = 1, ; + Width = 816, ; + Column1.ColumnOrder = 2, ; + Column1.ControlSource = "csalesinvoices.an", ; + Column1.FontSize = 10, ; + Column1.Name = "Column1", ; + Column1.ReadOnly = .T., ; + Column1.Width = 46, ; + Column2.ColumnOrder = 3, ; + Column2.ControlSource = "csalesinvoices.luna", ; + Column2.FontSize = 10, ; + Column2.Name = "Column2", ; + Column2.ReadOnly = .T., ; + Column2.Width = 40, ; + Column3.ColumnOrder = 4, ; + Column3.ControlSource = "csalesinvoices.id_fact", ; + Column3.FontSize = 10, ; + Column3.Name = "Column3", ; + Column3.ReadOnly = .T., ; + Column3.Width = 75, ; + Column4.ColumnOrder = 13, ; + Column4.ControlSource = "csalesinvoices.cod", ; + Column4.FontSize = 10, ; + Column4.Name = "Column4", ; + Column4.ReadOnly = .T., ; + Column4.Width = 93, ; + Column5.ColumnOrder = 5, ; + Column5.ControlSource = "csalesinvoices.nract", ; + Column5.FontSize = 10, ; + Column5.Name = "Column5", ; + Column5.ReadOnly = .T., ; + Column5.Width = 75, ; + Column6.ColumnOrder = 6, ; + Column6.ControlSource = "csalesinvoices.dataact", ; + Column6.FontSize = 10, ; + Column6.Name = "Column6", ; + Column6.ReadOnly = .T., ; + Column6.Width = 75, ; + Column7.ColumnOrder = 8, ; + Column7.ControlSource = "csalesinvoices.id_part", ; + Column7.FontSize = 10, ; + Column7.Name = "Column7", ; + Column7.ReadOnly = .T., ; + Column7.Width = 75, ; + Column8.ColumnOrder = 9, ; + Column8.ControlSource = "csalesinvoices.saftpartid", ; + Column8.FontSize = 10, ; + Column8.Name = "Column8", ; + Column8.ReadOnly = .T., ; + Column8.Sparse = .F., ; + Column8.Width = 115, ; + Column9.ColumnOrder = 10, ; + Column9.ControlSource = "csalesinvoices.invoicetypet", ; + Column9.FontSize = 10, ; + Column9.Name = "Column9", ; + Column9.ReadOnly = .T., ; + Column9.Width = 107, ; + Column10.ColumnOrder = 11, ; + Column10.ControlSource = "csalesinvoices.autofactura", ; + Column10.CurrentControl = "Text1", ; + Column10.FontSize = 10, ; + Column10.Name = "Column10", ; + Column10.ReadOnly = .T., ; + Column10.Sparse = .F., ; + Column10.Width = 75, ; + Column11.ColumnOrder = 12, ; + Column11.ControlSource = "csalesinvoices.cont", ; + Column11.FontSize = 10, ; + Column11.Name = "Column11", ; + Column11.ReadOnly = .T., ; + Column11.Width = 48, ; + Column12.ColumnOrder = 1, ; + Column12.ControlSource = "recno('cSalesInvoices')", ; + Column12.FontSize = 10, ; + Column12.Name = "Column12", ; + Column12.ReadOnly = .T., ; + Column12.Width = 42, ; + Column13.ColumnOrder = 14, ; + Column13.ControlSource = "csalesinvoices.localitate", ; + Column13.FontSize = 10, ; + Column13.Name = "Column13", ; + Column13.ReadOnly = .T., ; + Column13.Width = 102, ; + Column14.ColumnOrder = 15, ; + Column14.ControlSource = "csalesinvoices.cod_tara", ; + Column14.FontSize = 10, ; + Column14.Name = "Column14", ; + Column14.ReadOnly = .T., ; + Column15.ColumnOrder = 7, ; + Column15.ControlSource = "csalesinvoices.denumire", ; + Column15.FontSize = 10, ; + Column15.Name = "Column15", ; + Column15.ReadOnly = .T., ; + Column15.Width = 138, ; + Column16.ControlSource = "csalesInvoices.totctva", ; + Column16.FontSize = 10, ; + Column16.Format = "rk", ; + Column16.InputMask = "999 999 999 999.99", ; + Column16.Name = "Column16", ; + Column16.ReadOnly = .T., ; + Column16.Width = 86 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "An", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column10._checkbox1' AS _checkbox WITH ; + Alignment = 2, ; + Caption = "", ; + Centered = .T., ; + FontSize = 10, ; + Left = 25, ; + Name = "_checkbox1", ; + Top = 35 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column10.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Autofactura", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column10.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column11.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column11.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column12.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. Crt.", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column12.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column13.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Localitate", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column13.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column14.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod Tara", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column14.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column15.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Denumire partener", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column15.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column16.Header1' AS header WITH ; + Caption = "Valoare cu TVA", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column16.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Luna", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id factura", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod Reg. Jurnal", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. act", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data act", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column6.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column7.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id partener", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column7.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column8.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod partener SAFT", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column8.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column9.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip factura", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoices.Column9.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines' AS _grdbase WITH ; + Anchor = 14, ; + ColumnCount = 20, ; + DeleteMark = .F., ; + FontSize = 10, ; + Height = 132, ; + Left = 7, ; + Name = "gSalesInvoicesLines", ; + Panel = 1, ; + ReadOnly = .T., ; + RecordSource = "csalesinvoiceslines", ; + RowHeight = 19, ; + Top = 88, ; + Width = 816, ; + Column1.ColumnOrder = 18, ; + Column1.ControlSource = "IIF(csalesinvoiceslines.tip = 1, 'FACTURARE', IIF(csalesinvoiceslines.tip = 2, 'GESTIUNE', 'CONTABILITATE'))", ; + Column1.FontSize = 10, ; + Column1.Name = "Column1", ; + Column1.ReadOnly = .T., ; + Column1.Width = 21, ; + Column2.ColumnOrder = 19, ; + Column2.ControlSource = "csalesinvoiceslines.id_fact", ; + Column2.FontSize = 10, ; + Column2.Name = "Column2", ; + Column2.ReadOnly = .T., ; + Column2.Width = 75, ; + Column3.ColumnOrder = 20, ; + Column3.ControlSource = "csalesinvoiceslines.cod", ; + Column3.FontSize = 10, ; + Column3.Name = "Column3", ; + Column3.ReadOnly = .T., ; + Column3.Width = 96, ; + Column4.ColumnOrder = 3, ; + Column4.ControlSource = "csalesinvoiceslines.cantitate", ; + Column4.FontSize = 10, ; + Column4.Name = "Column4", ; + Column4.ReadOnly = .T., ; + Column4.Width = 75, ; + Column5.ColumnOrder = 4, ; + Column5.ControlSource = "csalesinvoiceslines.pret", ; + Column5.FontSize = 10, ; + Column5.Name = "Column5", ; + Column5.ReadOnly = .T., ; + Column5.Width = 75, ; + Column6.ColumnOrder = 1, ; + Column6.ControlSource = "csalesinvoiceslines.nrcrt", ; + Column6.FontSize = 10, ; + Column6.Format = "RK", ; + Column6.InputMask = "9999", ; + Column6.Name = "Column6", ; + Column6.ReadOnly = .T., ; + Column6.Width = 39, ; + Column7.ColumnOrder = 16, ; + Column7.ControlSource = "csalesinvoiceslines.curs", ; + Column7.FontSize = 10, ; + Column7.Name = "Column7", ; + Column7.ReadOnly = .T., ; + Column7.Width = 69, ; + Column8.ColumnOrder = 6, ; + Column8.ControlSource = "csalesinvoiceslines.taxname", ; + Column8.FontSize = 10, ; + Column8.Name = "Column8", ; + Column8.ReadOnly = .T., ; + Column8.Width = 97, ; + Column9.ColumnOrder = 7, ; + Column9.ControlSource = "csalesinvoiceslines.taxtype", ; + Column9.FontSize = 10, ; + Column9.Name = "Column9", ; + Column9.ReadOnly = .T., ; + Column9.Width = 87, ; + Column10.ColumnOrder = 14, ; + Column10.ControlSource = "csalesinvoiceslines.proc_tva", ; + Column10.FontSize = 10, ; + Column10.Name = "Column10", ; + Column10.ReadOnly = .T., ; + Column10.Width = 64, ; + Column11.ColumnOrder = 15, ; + Column11.ControlSource = "csalesinvoiceslines.cod_valuta", ; + Column11.FontSize = 10, ; + Column11.Name = "Column11", ; + Column11.ReadOnly = .T., ; + Column11.Width = 64, ; + Column12.ColumnOrder = 17, ; + Column12.ControlSource = "csalesinvoiceslines.cont", ; + Column12.FontSize = 10, ; + Column12.Name = "Column12", ; + Column12.ReadOnly = .T., ; + Column12.Width = 44, ; + Column13.ColumnOrder = 2, ; + Column13.ControlSource = "csalesinvoiceslines.descriere", ; + Column13.FontSize = 10, ; + Column13.Name = "Column13", ; + Column13.ReadOnly = .T., ; + Column13.Width = 119, ; + Column14.ColumnOrder = 5, ; + Column14.ControlSource = "csalesinvoiceslines.pretv", ; + Column14.FontSize = 10, ; + Column14.Name = "Column14", ; + Column14.ReadOnly = .T., ; + Column15.ColumnOrder = 9, ; + Column15.ControlSource = "csalesinvoiceslines.taxa", ; + Column15.FontSize = 10, ; + Column15.Format = "R", ; + Column15.InputMask = (get_mask(12,gnPA)), ; + Column15.Name = "Column15", ; + Column15.ReadOnly = .T., ; + Column16.ColumnOrder = 12, ; + Column16.ControlSource = "csalesinvoiceslines.taxav", ; + Column16.FontSize = 10, ; + Column16.Format = "R", ; + Column16.InputMask = (get_mask(12,gnPVal)), ; + Column16.Name = "Column16", ; + Column16.ReadOnly = .T., ; + Column17.ColumnOrder = 8, ; + Column17.ControlSource = "csalesinvoiceslines.valoare", ; + Column17.FontSize = 10, ; + Column17.Format = "R", ; + Column17.InputMask = (get_mask(12,gnPA)), ; + Column17.Name = "Column17", ; + Column17.ReadOnly = .T., ; + Column18.ColumnOrder = 11, ; + Column18.ControlSource = "csalesinvoiceslines.valoarev", ; + Column18.FontSize = 10, ; + Column18.Format = "R", ; + Column18.InputMask = (get_mask(12,gnPVal)), ; + Column18.Name = "Column18", ; + Column18.ReadOnly = .T., ; + Column19.ColumnOrder = 13, ; + Column19.ControlSource = "csalesinvoiceslines.valoarev+csalesinvoiceslines.taxav", ; + Column19.FontSize = 10, ; + Column19.Format = "R", ; + Column19.InputMask = (get_mask(12,gnPVal)), ; + Column19.Name = "Column19", ; + Column19.ReadOnly = .T., ; + Column19.Width = 108, ; + Column20.ColumnOrder = 10, ; + Column20.ControlSource = "csalesinvoiceslines.valoare+csalesinvoiceslines.taxa", ; + Column20.FontSize = 10, ; + Column20.InputMask = (get_mask(12,gnPA)), ; + Column20.Name = "Column20", ; + Column20.ReadOnly = .T., ; + Column20.Width = 87 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column10.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Proc. Taxa", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column10.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column11.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod valuta", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column11.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column12.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column12.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column13.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Descriere", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column13.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column14.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Pret val.", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column14.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column15.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxa", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column15.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column16.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxa val.", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column16.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column17.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column17.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column18.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare val.", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column18.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column19.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare val. cu taxa", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column19.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id factura", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column20.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare cu taxa", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column20.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod Reg. Jurnal", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cantitate", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Pret", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. crt.", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column6.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column7.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Curs", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column7.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column8.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxcode", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column8.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column9.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxtype", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page1.gSalesInvoicesLines.Column9.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.But_modifica1' AS but_modifica WITH ; + Anchor = 12, ; + clistaparametri = "cPurchaseInvoicesLines", ; + Comment = "*:OnResize=RT", ; + Left = 764, ; + Name = "But_modifica1", ; + TabIndex = 11, ; + Tag = "L", ; + ToolTipText = "Modificare (CTRL+M) ", ; + Top = 59, ; + Visible = .T., ; + ZOrderSet = 8 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.But_sterge1' AS but_sterge WITH ; + Anchor = 12, ; + clistaparametri = "cPurchaseInvoicesLines", ; + Left = 794, ; + Name = "But_sterge1", ; + Top = 59 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices' AS _grdbase WITH ; + Anchor = 15, ; + ColumnCount = 16, ; + DeleteMark = .F., ; + FontSize = 10, ; + Height = 57, ; + Left = 7, ; + Name = "gPurchaseInvoices", ; + Panel = 1, ; + ReadOnly = .T., ; + RecordSource = "cpurchaseinvoices", ; + RowHeight = 19, ; + Top = 1, ; + Width = 818, ; + Column1.ColumnOrder = 2, ; + Column1.ControlSource = "cpurchaseinvoices.an", ; + Column1.FontSize = 10, ; + Column1.Name = "Column1", ; + Column1.ReadOnly = .T., ; + Column1.Width = 46, ; + Column2.ColumnOrder = 3, ; + Column2.ControlSource = "cpurchaseinvoices.luna", ; + Column2.FontSize = 10, ; + Column2.Name = "Column2", ; + Column2.ReadOnly = .T., ; + Column2.Width = 40, ; + Column3.ColumnOrder = 4, ; + Column3.ControlSource = "cpurchaseinvoices.id_fact", ; + Column3.FontSize = 10, ; + Column3.Name = "Column3", ; + Column3.ReadOnly = .T., ; + Column3.Width = 75, ; + Column4.ColumnOrder = 13, ; + Column4.ControlSource = "cpurchaseinvoices.cod", ; + Column4.FontSize = 10, ; + Column4.Name = "Column4", ; + Column4.ReadOnly = .T., ; + Column4.Width = 93, ; + Column5.ColumnOrder = 5, ; + Column5.ControlSource = "cpurchaseinvoices.nract", ; + Column5.FontSize = 10, ; + Column5.Name = "Column5", ; + Column5.ReadOnly = .T., ; + Column5.Width = 75, ; + Column6.ColumnOrder = 6, ; + Column6.ControlSource = "cpurchaseinvoices.dataact", ; + Column6.FontSize = 10, ; + Column6.Name = "Column6", ; + Column6.ReadOnly = .T., ; + Column6.Width = 75, ; + Column7.ColumnOrder = 8, ; + Column7.ControlSource = "cpurchaseinvoices.id_part", ; + Column7.FontSize = 10, ; + Column7.Name = "Column7", ; + Column7.ReadOnly = .T., ; + Column7.Width = 75, ; + Column8.ColumnOrder = 9, ; + Column8.ControlSource = "cpurchaseinvoices.saftpartid", ; + Column8.FontSize = 10, ; + Column8.Name = "Column8", ; + Column8.ReadOnly = .T., ; + Column8.Sparse = .F., ; + Column8.Width = 115, ; + Column9.ColumnOrder = 10, ; + Column9.ControlSource = "cpurchaseinvoices.invoicetypet", ; + Column9.FontSize = 10, ; + Column9.Name = "Column9", ; + Column9.ReadOnly = .T., ; + Column9.Width = 107, ; + Column10.ColumnOrder = 11, ; + Column10.ControlSource = "cpurchaseinvoices.autofactura", ; + Column10.CurrentControl = "Text1", ; + Column10.FontSize = 10, ; + Column10.Name = "Column10", ; + Column10.ReadOnly = .T., ; + Column10.Sparse = .F., ; + Column10.Width = 75, ; + Column11.ColumnOrder = 12, ; + Column11.ControlSource = "cpurchaseinvoices.cont", ; + Column11.FontSize = 10, ; + Column11.Name = "Column11", ; + Column11.ReadOnly = .T., ; + Column11.Width = 48, ; + Column12.ColumnOrder = 1, ; + Column12.ControlSource = "recno('cpurchaseinvoices')", ; + Column12.FontSize = 10, ; + Column12.Name = "Column12", ; + Column12.ReadOnly = .T., ; + Column12.Width = 42, ; + Column13.ColumnOrder = 14, ; + Column13.ControlSource = "cpurchaseinvoices.localitate", ; + Column13.FontSize = 10, ; + Column13.Name = "Column13", ; + Column13.ReadOnly = .T., ; + Column13.Width = 102, ; + Column14.ColumnOrder = 15, ; + Column14.ControlSource = "cpurchaseinvoices.cod_tara", ; + Column14.FontSize = 10, ; + Column14.Name = "Column14", ; + Column14.ReadOnly = .T., ; + Column15.ColumnOrder = 7, ; + Column15.ControlSource = "cpurchaseinvoices.denumire", ; + Column15.FontSize = 10, ; + Column15.Name = "Column15", ; + Column15.ReadOnly = .T., ; + Column15.Width = 138, ; + Column16.ControlSource = "cpurchaseinvoices.totctva", ; + Column16.FontSize = 10, ; + Column16.Format = "RK", ; + Column16.InputMask = "999 999 999 999.99", ; + Column16.Name = "Column16", ; + Column16.ReadOnly = .T., ; + Column16.Width = 86 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "An", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column10._checkbox1' AS _checkbox WITH ; + Alignment = 2, ; + Caption = "", ; + Centered = .T., ; + FontSize = 10, ; + Left = 25, ; + Name = "_checkbox1", ; + Top = 35 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column10.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Autofactura", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column10.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column11.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column11.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column12.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. Crt.", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column12.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column13.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Localitate", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column13.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column14.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod Tara", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column14.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column15.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Denumire partener", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column15.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column16.Header1' AS header WITH ; + Caption = "Valoare cu TVA", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column16.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Luna", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id factura", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod Reg. Jurnal", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. act", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data act", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column6.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column7.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id partener", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column7.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column8.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod partener SAFT", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column8.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column9.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip factura", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoices.Column9.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines' AS _grdbase WITH ; + Anchor = 14, ; + ColumnCount = 20, ; + DeleteMark = .F., ; + FontSize = 10, ; + Height = 132, ; + Left = 7, ; + Name = "gPurchaseInvoicesLines", ; + Panel = 1, ; + ReadOnly = .T., ; + RecordSource = "cpurchaseinvoiceslines", ; + RowHeight = 19, ; + Top = 88, ; + Width = 818, ; + Column1.ColumnOrder = 18, ; + Column1.ControlSource = "IIF(cpurchaseinvoiceslines.tip = 1, 'FACTURARE', IIF(cpurchaseinvoiceslines.tip = 2, 'GESTIUNE', 'CONTABILITATE'))", ; + Column1.FontSize = 10, ; + Column1.Name = "Column1", ; + Column1.ReadOnly = .T., ; + Column1.Width = 21, ; + Column2.ColumnOrder = 19, ; + Column2.ControlSource = "cpurchaseinvoiceslines.id_fact", ; + Column2.FontSize = 10, ; + Column2.Name = "Column2", ; + Column2.ReadOnly = .T., ; + Column2.Width = 75, ; + Column3.ColumnOrder = 20, ; + Column3.ControlSource = "cpurchaseinvoiceslines.cod", ; + Column3.FontSize = 10, ; + Column3.Name = "Column3", ; + Column3.ReadOnly = .T., ; + Column3.Width = 96, ; + Column4.ColumnOrder = 3, ; + Column4.ControlSource = "cpurchaseinvoiceslines.cantitate", ; + Column4.FontSize = 10, ; + Column4.Name = "Column4", ; + Column4.ReadOnly = .T., ; + Column4.Width = 75, ; + Column5.ColumnOrder = 4, ; + Column5.ControlSource = "cpurchaseinvoiceslines.pret", ; + Column5.FontSize = 10, ; + Column5.Name = "Column5", ; + Column5.ReadOnly = .T., ; + Column5.Width = 75, ; + Column6.ColumnOrder = 1, ; + Column6.ControlSource = "cpurchaseinvoiceslines.nrcrt", ; + Column6.FontSize = 10, ; + Column6.Format = "RK", ; + Column6.InputMask = "9999", ; + Column6.Name = "Column6", ; + Column6.ReadOnly = .T., ; + Column6.Width = 39, ; + Column7.ColumnOrder = 16, ; + Column7.ControlSource = "cpurchaseinvoiceslines.curs", ; + Column7.FontSize = 10, ; + Column7.Name = "Column7", ; + Column7.ReadOnly = .T., ; + Column7.Width = 69, ; + Column8.ColumnOrder = 6, ; + Column8.ControlSource = "cpurchaseinvoiceslines.taxname", ; + Column8.FontSize = 10, ; + Column8.Name = "Column8", ; + Column8.ReadOnly = .T., ; + Column8.Width = 97, ; + Column9.ColumnOrder = 7, ; + Column9.ControlSource = "cpurchaseinvoiceslines.taxtype", ; + Column9.FontSize = 10, ; + Column9.Name = "Column9", ; + Column9.ReadOnly = .T., ; + Column9.Width = 87, ; + Column10.ColumnOrder = 14, ; + Column10.ControlSource = "cpurchaseinvoiceslines.proc_tva", ; + Column10.FontSize = 10, ; + Column10.Name = "Column10", ; + Column10.ReadOnly = .T., ; + Column10.Width = 64, ; + Column11.ColumnOrder = 15, ; + Column11.ControlSource = "cpurchaseinvoiceslines.cod_valuta", ; + Column11.FontSize = 10, ; + Column11.Name = "Column11", ; + Column11.ReadOnly = .T., ; + Column11.Width = 64, ; + Column12.ColumnOrder = 17, ; + Column12.ControlSource = "cpurchaseinvoiceslines.cont", ; + Column12.FontSize = 10, ; + Column12.Name = "Column12", ; + Column12.ReadOnly = .T., ; + Column12.Width = 44, ; + Column13.ColumnOrder = 2, ; + Column13.ControlSource = "cpurchaseinvoiceslines.descriere", ; + Column13.FontSize = 10, ; + Column13.Name = "Column13", ; + Column13.ReadOnly = .T., ; + Column13.Width = 119, ; + Column14.ColumnOrder = 5, ; + Column14.ControlSource = "cpurchaseinvoiceslines.pretv", ; + Column14.FontSize = 10, ; + Column14.Name = "Column14", ; + Column14.ReadOnly = .T., ; + Column15.ColumnOrder = 9, ; + Column15.ControlSource = "cpurchaseinvoiceslines.taxa", ; + Column15.FontSize = 10, ; + Column15.Format = "RK", ; + Column15.InputMask = (get_mask(12,gnPA)), ; + Column15.Name = "Column15", ; + Column15.ReadOnly = .T., ; + Column16.ColumnOrder = 12, ; + Column16.ControlSource = "cpurchaseinvoiceslines.taxav", ; + Column16.FontSize = 10, ; + Column16.Format = "R", ; + Column16.InputMask = (get_mask(12,gnPVal)), ; + Column16.Name = "Column16", ; + Column16.ReadOnly = .T., ; + Column17.ColumnOrder = 8, ; + Column17.ControlSource = "cpurchaseinvoiceslines.valoare", ; + Column17.FontSize = 10, ; + Column17.Format = "RK", ; + Column17.InputMask = (get_mask(12,gnPA)), ; + Column17.Name = "Column17", ; + Column17.ReadOnly = .T., ; + Column18.ColumnOrder = 11, ; + Column18.ControlSource = "cpurchaseinvoiceslines.valoarev", ; + Column18.FontSize = 10, ; + Column18.Format = "R", ; + Column18.InputMask = (get_mask(12,gnPVal)), ; + Column18.Name = "Column18", ; + Column18.ReadOnly = .T., ; + Column19.ColumnOrder = 10, ; + Column19.ControlSource = "cpurchaseinvoiceslines.valoare+cpurchaseinvoiceslines.taxa", ; + Column19.FontSize = 10, ; + Column19.Format = "R", ; + Column19.InputMask = (get_mask(12,gnPA)), ; + Column19.Name = "Column19", ; + Column19.ReadOnly = .T., ; + Column19.Width = 87, ; + Column20.ColumnOrder = 13, ; + Column20.ControlSource = "cpurchaseinvoiceslines.valoarev+cpurchaseinvoiceslines.taxav", ; + Column20.FontSize = 10, ; + Column20.Format = "R", ; + Column20.InputMask = (get_mask(12,gnPVal)), ; + Column20.Name = "Column20", ; + Column20.ReadOnly = .T., ; + Column20.Width = 108 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column10.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Proc. taxa", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column10.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column11.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod valuta", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column11.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column12.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column12.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column13.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Descriere", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column13.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column14.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Pret val.", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column14.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column15.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxa", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column15.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column16.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxa val.", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column16.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column17.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column17.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column18.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare val.", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column18.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column19.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare cu taxa", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column19.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id factura", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column20.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare val. cu taxa", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column20.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod Reg. Jurnal", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cantitate", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Pret", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. crt.", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column6.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column7.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Curs", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column7.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column8.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxcode", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column8.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column9.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxtype", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.gPurchaseInvoicesLines.Column9.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct' AS _grid WITH ; + Anchor = 14, ; + ColumnCount = 45, ; + DeleteMark = .F., ; + Height = 114, ; + HighlightStyle = 2, ; + Left = 7, ; + Name = "grdAct", ; + Panel = 1, ; + RecordSource = "actactan_facturia", ; + RowHeight = 19, ; + TabIndex = 1, ; + Top = 221, ; + Width = 818, ; + ZOrderSet = 6, ; + Column1.ControlSource = "recno('actactan_facturia')", ; + Column1.FontName = "Arial", ; + Column1.FontSize = 10, ; + Column1.ForeColor = 0,0,0, ; + Column1.Name = "Column1", ; + Column1.Width = 30, ; + Column2.ControlSource = "fdoc", ; + Column2.FontName = "Arial", ; + Column2.FontSize = 10, ; + Column2.ForeColor = 0,0,0, ; + Column2.Name = "Column2", ; + Column2.Width = 38, ; + Column3.ControlSource = "dataireg", ; + Column3.FontName = "Arial", ; + Column3.FontSize = 10, ; + Column3.ForeColor = 0,0,0, ; + Column3.Name = "Column3", ; + Column3.Width = 54, ; + Column4.ColumnOrder = 4, ; + Column4.ControlSource = "dataact", ; + Column4.FontName = "Arial", ; + Column4.FontSize = 10, ; + Column4.ForeColor = 0,0,0, ; + Column4.Name = "Column4", ; + Column4.Width = 54, ; + Column5.ColumnOrder = 6, ; + Column5.ControlSource = "nract", ; + Column5.FontName = "Arial", ; + Column5.FontSize = 10, ; + Column5.ForeColor = 0,0,0, ; + Column5.Name = "Column5", ; + Column5.Width = 48, ; + Column6.ColumnOrder = 7, ; + Column6.ControlSource = "partD", ; + Column6.FontName = "Arial", ; + Column6.FontSize = 10, ; + Column6.ForeColor = 0,0,0, ; + Column6.Name = "Column6", ; + Column6.Width = 125, ; + Column7.ColumnOrder = 8, ; + Column7.ControlSource = "partC", ; + Column7.FontName = "Arial", ; + Column7.FontSize = 10, ; + Column7.ForeColor = 0,0,0, ; + Column7.Name = "Column7", ; + Column7.Width = 116, ; + Column8.ColumnOrder = 9, ; + Column8.ControlSource = "explicatia", ; + Column8.FontName = "Arial", ; + Column8.FontSize = 10, ; + Column8.ForeColor = 0,0,0, ; + Column8.Name = "Column8", ; + Column8.Width = 90, ; + Column9.ColumnOrder = 10, ; + Column9.ControlSource = "scd", ; + Column9.FontBold = .T., ; + Column9.FontName = "Arial", ; + Column9.FontSize = 10, ; + Column9.ForeColor = 0,0,0, ; + Column9.Name = "cScd", ; + Column9.Width = 32, ; + Column10.ColumnOrder = 11, ; + Column10.ControlSource = "ascd", ; + Column10.FontName = "Arial", ; + Column10.FontSize = 10, ; + Column10.ForeColor = 0,0,0, ; + Column10.Name = "cAscd", ; + Column10.Width = 35, ; + Column11.ColumnOrder = 12, ; + Column11.ControlSource = "scc", ; + Column11.FontBold = .T., ; + Column11.FontName = "Arial", ; + Column11.FontSize = 10, ; + Column11.ForeColor = 0,0,0, ; + Column11.Name = "cScc", ; + Column11.Width = 33, ; + Column12.ColumnOrder = 13, ; + Column12.ControlSource = "ascc", ; + Column12.FontName = "Arial", ; + Column12.FontSize = 10, ; + Column12.ForeColor = 0,0,0, ; + Column12.Name = "cAscc", ; + Column12.Width = 35, ; + Column13.ColumnOrder = 14, ; + Column13.ControlSource = "suma", ; + Column13.FontName = "Arial", ; + Column13.FontSize = 10, ; + Column13.ForeColor = 0,0,0, ; + Column13.Format = "R", ; + Column13.InputMask = (get_mask(12,gnPA)), ; + Column13.Name = "Column13", ; + Column13.Width = 85, ; + Column14.ColumnOrder = 15, ; + Column14.ControlSource = "nrord", ; + Column14.FontName = "Arial", ; + Column14.FontSize = 10, ; + Column14.ForeColor = 0,0,0, ; + Column14.Name = "Column14", ; + Column14.Width = 93, ; + Column15.ColumnOrder = 17, ; + Column15.ControlSource = "perecheD", ; + Column15.FontName = "Arial", ; + Column15.FontSize = 10, ; + Column15.ForeColor = 0,0,0, ; + Column15.Name = "Column15", ; + Column15.Width = 55, ; + Column16.ColumnOrder = 18, ; + Column16.ControlSource = "perecheC", ; + Column16.FontName = "Arial", ; + Column16.FontSize = 10, ; + Column16.ForeColor = 0,0,0, ; + Column16.Name = "Column16", ; + Column16.Width = 55, ; + Column17.ColumnOrder = 24, ; + Column17.ControlSource = "datascad", ; + Column17.FontName = "Arial", ; + Column17.FontSize = 10, ; + Column17.ForeColor = 0,0,0, ; + Column17.Name = "Column17", ; + Column17.Width = 88, ; + Column18.ColumnOrder = 25, ; + Column18.ControlSource = "nnir", ; + Column18.FontName = "Arial", ; + Column18.FontSize = 10, ; + Column18.ForeColor = 0,0,0, ; + Column18.Name = "Column18", ; + Column18.Width = 75, ; + Column19.ColumnOrder = 26, ; + Column19.ControlSource = "nresp", ; + Column19.FontName = "Arial", ; + Column19.FontSize = 10, ; + Column19.ForeColor = 0,0,0, ; + Column19.Name = "Column19", ; + Column20.ColumnOrder = 27, ; + Column20.ControlSource = "dst_chlt", ; + Column20.FontName = "Arial", ; + Column20.FontSize = 10, ; + Column20.ForeColor = 0,0,0, ; + Column20.Name = "Column20", ; + Column21.ColumnOrder = 28, ; + Column21.ControlSource = "suma_val", ; + Column21.FontName = "Arial", ; + Column21.FontSize = 10, ; + Column21.ForeColor = 0,0,0, ; + Column21.Format = "R", ; + Column21.InputMask = (get_mask(12,gnPVal)), ; + Column21.Name = "Column21", ; + Column22.ColumnOrder = 29, ; + Column22.ControlSource = "nume_val", ; + Column22.FontName = "Arial", ; + Column22.FontSize = 10, ; + Column22.ForeColor = 0,0,0, ; + Column22.Name = "Column22", ; + Column22.Width = 31, ; + Column23.ColumnOrder = 30, ; + Column23.ControlSource = "curs", ; + Column23.FontName = "Arial", ; + Column23.FontSize = 10, ; + Column23.ForeColor = 0,0,0, ; + Column23.InputMask = (get_mask(12,gnPcurs)), ; + Column23.Name = "Column23", ; + Column23.Width = 51, ; + Column24.ColumnOrder = 35, ; + Column24.ControlSource = "sectie", ; + Column24.FontName = "Arial", ; + Column24.FontSize = 10, ; + Column24.ForeColor = 0,0,0, ; + Column24.Name = "Column25", ; + Column25.ColumnOrder = 19, ; + Column25.ControlSource = "proc_tva", ; + Column25.FontName = "Arial", ; + Column25.FontSize = 10, ; + Column25.ForeColor = 0,0,0, ; + Column25.InputMask = "99.99", ; + Column25.Name = "Column26", ; + Column25.Width = 45, ; + Column26.ColumnOrder = 42, ; + Column26.ControlSource = "cod", ; + Column26.FontName = "Arial", ; + Column26.FontSize = 10, ; + Column26.ForeColor = 0,0,0, ; + Column26.Name = "Column27", ; + Column26.Width = 51, ; + Column27.ColumnOrder = 37, ; + Column27.ControlSource = "util", ; + Column27.FontName = "Arial", ; + Column27.FontSize = 10, ; + Column27.ForeColor = 0,0,0, ; + Column27.Name = "Column28", ; + Column27.Width = 84, ; + Column28.ColumnOrder = 38, ; + Column28.ControlSource = "dataora", ; + Column28.FontName = "Arial", ; + Column28.FontSize = 10, ; + Column28.ForeColor = 0,0,0, ; + Column28.Name = "Column29", ; + Column28.Width = 96, ; + Column29.ColumnOrder = 39, ; + Column29.ControlSource = "utils", ; + Column29.FontName = "Arial", ; + Column29.FontSize = 10, ; + Column29.ForeColor = 0,0,0, ; + Column29.Name = "Column30", ; + Column30.ColumnOrder = 40, ; + Column30.ControlSource = "dataoras", ; + Column30.FontName = "Arial", ; + Column30.FontSize = 10, ; + Column30.ForeColor = 0,0,0, ; + Column30.Name = "Column31", ; + Column30.Width = 83, ; + Column31.ColumnOrder = 41, ; + Column31.ControlSource = "id_set", ; + Column31.FontName = "Arial", ; + Column31.FontSize = 10, ; + Column31.ForeColor = 0,0,0, ; + Column31.Name = "Column32", ; + Column32.ColumnOrder = 36, ; + Column32.ControlSource = "sucursala", ; + Column32.FontName = "Arial", ; + Column32.FontSize = 10, ; + Column32.ForeColor = 0,0,0, ; + Column32.Name = "Column33", ; + Column33.ColumnOrder = 31, ; + Column33.ControlSource = "explicatia4", ; + Column33.FontName = "Arial", ; + Column33.FontSize = 10, ; + Column33.ForeColor = 0,0,0, ; + Column33.Name = "Column34", ; + Column34.ColumnOrder = 32, ; + Column34.ControlSource = "explicatia5", ; + Column34.FontName = "Arial", ; + Column34.FontSize = 10, ; + Column34.ForeColor = 0,0,0, ; + Column34.Name = "Column35", ; + Column35.ColumnOrder = 33, ; + Column35.ControlSource = "GESTIN", ; + Column35.FontName = "Arial", ; + Column35.FontSize = 10, ; + Column35.ForeColor = 0,0,0, ; + Column35.Name = "Column36", ; + Column36.ColumnOrder = 34, ; + Column36.ControlSource = "GESTOUT", ; + Column36.FontName = "Arial", ; + Column36.FontSize = 10, ; + Column36.ForeColor = 0,0,0, ; + Column36.Name = "Column37", ; + Column37.ColumnOrder = 16, ; + Column37.ControlSource = "contract", ; + Column37.FontName = "Arial", ; + Column37.FontSize = 10, ; + Column37.ForeColor = 0,0,0, ; + Column37.Name = "Column24", ; + Column37.Width = 58, ; + Column38.ColumnOrder = 20, ; + Column38.ControlSource = "explicatie_tva", ; + Column38.FontName = "Arial", ; + Column38.FontSize = 10, ; + Column38.ForeColor = 0,0,0, ; + Column38.Name = "Column38", ; + Column39.ColumnOrder = 5, ; + Column39.ControlSource = "serie_act", ; + Column39.FontName = "Arial", ; + Column39.FontSize = 10, ; + Column39.ForeColor = 0,0,0, ; + Column39.Name = "cSerie_act", ; + Column39.Width = 51, ; + Column40.ColumnOrder = 43, ; + Column40.ControlSource = "id_Fact", ; + Column40.FontName = "Arial", ; + Column40.FontSize = 10, ; + Column40.Name = "cIdFact", ; + Column41.ColumnOrder = 44, ; + Column41.ControlSource = "id_factd", ; + Column41.FontName = "Arial", ; + Column41.FontSize = 10, ; + Column41.Name = "cIdFactD", ; + Column42.ColumnOrder = 45, ; + Column42.ControlSource = "id_factc", ; + Column42.FontName = "Arial", ; + Column42.FontSize = 10, ; + Column42.Name = "cIdFactC", ; + Column43.ColumnOrder = 21, ; + Column43.ControlSource = "left(taxname,250)", ; + Column43.Name = "cTaxName", ; + Column43.ReadOnly = .T., ; + Column43.Width = 84, ; + Column44.ColumnOrder = 22, ; + Column44.ControlSource = "saft_procent", ; + Column44.Name = "cSaftProcent", ; + Column44.ReadOnly = .T., ; + Column45.ColumnOrder = 23, ; + Column45.ControlSource = "left(paymentname,250)", ; + Column45.Name = "cPaymentName", ; + Column45.ReadOnly = .T., ; + Column45.Width = 90 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="grid" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.cAscc.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "A Cred", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.cAscc.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.cAscd.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "A Deb", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.cAscd.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.cIdFact.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id fact", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.cIdFact.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.cIdFactC.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id FactC", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.cIdFactC.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.cIdFactD.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id FactD", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.cIdFactD.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr.Crt.", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column13.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Suma", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column13.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column14.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Lucrare/Comanda", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column14.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column15.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Doc.platit", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column15.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column16.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Doc.incasat", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column16.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column17.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data scadenta", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column17.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column18.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "NIR/Bon", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column18.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column19.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Responsabil", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column19.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Fel document", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column20.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Chelt/Venituri", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column20.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontItalic = .F., ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column21.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Suma in valuta", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column21.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column22.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valuta", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column22.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column23.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Curs", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column23.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column24.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Contract", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column24.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column25.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sectie", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column25.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column26.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cota TVA", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column26.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column27.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column27.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column28.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Operator introducere", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column28.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column29.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Dataora introducerii", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column29.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data inreg.", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column30.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Operator stergere", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column30.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column31.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Dataora stergerii", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column31.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column32.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip operatie", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column32.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column33.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sucursala", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column33.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column34.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatia 4", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column34.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column35.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatia 5", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column35.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column36.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Gestiune destinatie", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column36.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column37.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Gestiune sursa", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column37.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column38.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatie TVA", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column38.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data Act", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr.Doc.", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatie D", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column6.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column7.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatie C", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column7.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column8.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatie", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.Column8.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.cPaymentName.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod Plata SAFT", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.cPaymentName.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.cSaftProcent.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Procent Taxa", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.cSaftProcent.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.cScc.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "C Cred", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.cScc.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontBold = .T., ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.cScd.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "C Deb", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.cScd.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontBold = .T., ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.cSerie_act.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Serie Doc.", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.cSerie_act.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.cTaxName.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod taxa SAFT", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.grdAct.cTaxName.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.Page2.Gridextra1' AS gridextra WITH ; + gridexpression = thisform.pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.page2.gPurchaseInvoices, ; + Left = 151, ; + Name = "Gridextra1", ; + productname = ROA, ; + Top = -9 + *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods' AS _grdrow WITH ; + Anchor = 15, ; + ColumnCount = 31, ; + DeleteMark = .F., ; + FontSize = 10, ; + Height = 225, ; + Left = 4, ; + Name = "gMovementOfGoods", ; + Panel = 1, ; + RecordSource = "cMovementOfGoods", ; + RowHeight = 19, ; + Top = 8, ; + Width = 823, ; + Column1.ColumnOrder = 25, ; + Column1.ControlSource = "cMovementOfGoods.denumireS", ; + Column1.FontSize = 10, ; + Column1.Name = "Column1", ; + Column1.ReadOnly = .T., ; + Column1.Visible = .T., ; + Column1.Width = 118, ; + Column2.ColumnOrder = 3, ; + Column2.ControlSource = "cMovementOfGoods.id_fact", ; + Column2.FontSize = 10, ; + Column2.Name = "Column2", ; + Column2.ReadOnly = .T., ; + Column2.Visible = .T., ; + Column2.Width = 75, ; + Column3.ColumnOrder = 4, ; + Column3.ControlSource = "cMovementOfGoods.dataact", ; + Column3.FontSize = 10, ; + Column3.Name = "Column3", ; + Column3.ReadOnly = .T., ; + Column3.Visible = .T., ; + Column3.Width = 80, ; + Column4.ColumnOrder = 5, ; + Column4.ControlSource = "cMovementOfGoods.nract", ; + Column4.FontSize = 10, ; + Column4.Name = "Column4", ; + Column4.ReadOnly = .T., ; + Column4.Visible = .T., ; + Column4.Width = 95, ; + Column5.ColumnOrder = 6, ; + Column5.ControlSource = "cMovementOfGoods.nnir", ; + Column5.FontSize = 10, ; + Column5.Name = "Column5", ; + Column5.Width = 75, ; + Column6.ColumnOrder = 7, ; + Column6.ControlSource = "cMovementOfGoods.id_tip_rulaj", ; + Column6.FontSize = 10, ; + Column6.Name = "Column6", ; + Column6.Width = 75, ; + Column7.ColumnOrder = 8, ; + Column7.ControlSource = "cMovementOfGoods.cont", ; + Column7.FontSize = 10, ; + Column7.Name = "Column7", ; + Column7.Width = 76, ; + Column8.ColumnOrder = 2, ; + Column8.ControlSource = "cMovementOfGoods.cod", ; + Column8.FontSize = 10, ; + Column8.Name = "Column8", ; + Column8.Width = 75, ; + Column9.ColumnOrder = 9, ; + Column9.ControlSource = "cMovementOfGoods.denumire", ; + Column9.FontSize = 10, ; + Column9.Name = "Column9", ; + Column9.Width = 134, ; + Column10.ColumnOrder = 10, ; + Column10.ControlSource = "cMovementOfGoods.cant", ; + Column10.FontSize = 10, ; + Column10.Format = "RK", ; + Column10.InputMask = "999 999 999 999.9999", ; + Column10.Name = "Column10", ; + Column10.Width = 75, ; + Column11.ColumnOrder = 11, ; + Column11.ControlSource = "cMovementOfGoods.cante", ; + Column11.FontSize = 10, ; + Column11.Format = "RK", ; + Column11.InputMask = "999 999 999 999.9999", ; + Column11.Name = "Column11", ; + Column11.Width = 70, ; + Column12.ColumnOrder = 12, ; + Column12.ControlSource = "cMovementOfGoods.pret", ; + Column12.FontSize = 10, ; + Column12.Format = "RK", ; + Column12.InputMask = "999 999 999 999.9999", ; + Column12.Name = "Column12", ; + Column12.Width = 80, ; + Column13.ColumnOrder = 13, ; + Column13.ControlSource = "valoare", ; + Column13.FontSize = 10, ; + Column13.Format = "RK", ; + Column13.InputMask = "999 999 999 999.99", ; + Column13.Name = "Column13", ; + Column13.Width = 75, ; + Column14.ColumnOrder = 19, ; + Column14.ControlSource = "cMovementOfGoods.denumirec", ; + Column14.FontSize = 10, ; + Column14.Name = "Column14", ; + Column14.Width = 150, ; + Column15.ColumnOrder = 14, ; + Column15.ControlSource = "cMovementOfGoods.cod_um_iso", ; + Column15.FontSize = 10, ; + Column15.Name = "Column15", ; + Column15.Width = 75, ; + Column16.ColumnOrder = 15, ; + Column16.ControlSource = "cMovementOfGoods.taxcode", ; + Column16.FontSize = 10, ; + Column16.Name = "Column16", ; + Column16.Width = 75, ; + Column17.ColumnOrder = 16, ; + Column17.ControlSource = "cMovementOfGoods.taxtype", ; + Column17.FontSize = 10, ; + Column17.Name = "Column17", ; + Column17.Width = 75, ; + Column18.ColumnOrder = 17, ; + Column18.ControlSource = "cMovementOfGoods.procent_taxa", ; + Column18.FontSize = 10, ; + Column18.Name = "Column18", ; + Column18.Width = 75, ; + Column19.ColumnOrder = 18, ; + Column19.ControlSource = "cMovementOfGoods.movementtypename", ; + Column19.FontSize = 10, ; + Column19.Name = "Column19", ; + Column19.Width = 144, ; + Column20.ColumnOrder = 20, ; + Column20.ControlSource = "cMovementOfGoods.customerId", ; + Column20.FontSize = 10, ; + Column20.Name = "Column20", ; + Column20.Width = 75, ; + Column21.ColumnOrder = 26, ; + Column21.ControlSource = "cMovementOfGoods.supplierId", ; + Column21.FontSize = 10, ; + Column21.Name = "Column21", ; + Column21.Width = 75, ; + Column22.ColumnOrder = 21, ; + Column22.ControlSource = "cMovementOfGoods.saftpartIdC", ; + Column22.FontSize = 10, ; + Column22.Name = "Column22", ; + Column22.Width = 99, ; + Column23.ColumnOrder = 27, ; + Column23.ControlSource = "cMovementOfGoods.saftpartIdS", ; + Column23.FontSize = 10, ; + Column23.Name = "Column23", ; + Column23.Width = 110, ; + Column24.ColumnOrder = 24, ; + Column24.ControlSource = "cMovementOfGoods.cod_taraC", ; + Column24.FontSize = 10, ; + Column24.Name = "Column24", ; + Column24.Width = 83, ; + Column25.ColumnOrder = 28, ; + Column25.ControlSource = "cMovementOfGoods.cod_taraS", ; + Column25.FontSize = 10, ; + Column25.Name = "Column25", ; + Column25.Width = 99, ; + Column26.ColumnOrder = 22, ; + Column26.ControlSource = "cMovementOfGoods.cod_fiscalC", ; + Column26.FontSize = 10, ; + Column26.Name = "Column26", ; + Column26.Width = 96, ; + Column27.ColumnOrder = 29, ; + Column27.ControlSource = "cMovementOfGoods.cod_fiscalS", ; + Column27.FontSize = 10, ; + Column27.Name = "Column27", ; + Column27.Width = 102, ; + Column28.ColumnOrder = 23, ; + Column28.ControlSource = "IIF(nvl(cMovementOfGoods.tip_persoanaC,1) = 1, 'PJ', 'PF')", ; + Column28.FontSize = 10, ; + Column28.Name = "Column28", ; + Column28.Width = 56, ; + Column29.ColumnOrder = 30, ; + Column29.ControlSource = "IIF(nvl(cMovementOfGoods.tip_persoanaS,1) = 1, 'PJ', 'PF')", ; + Column29.FontSize = 10, ; + Column29.Name = "Column29", ; + Column29.Width = 64, ; + Column30.ColumnOrder = 1, ; + Column30.ControlSource = "recno('cMovementOfGoods')", ; + Column30.FontSize = 10, ; + Column30.Name = "Column30", ; + Column30.Width = 42, ; + Column31.ControlSource = "cMovementOfGoods.fdoc", ; + Column31.FontSize = 10, ; + Column31.Name = "Column31", ; + Column31.ReadOnly = .T. + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Furnizor", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column10.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cant. intrata", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column10.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column11.Header1' AS header WITH ; + Alignment = 2, ; + BackColor = 240,240,240, ; + Caption = "Cant. iesita", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column11.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column12.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Pret achizitie", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column12.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column13.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column13.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column14.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Client", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column14.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column15.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "UM standard", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column15.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column16.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxcode", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column16.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column17.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Taxtype", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column17.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column18.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Procent taxa", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column18.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column19.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip miscare", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column19.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id Fact", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column20.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id client", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column20.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column21.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "ID furnizor", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column21.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column22.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod client SAFT", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column22.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column23.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod furnizor SAFT", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column23.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column24.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod tara client", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column24.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column25.Header1' AS header WITH ; + Caption = "Cod tara furnizor", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column25.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column26.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod fiscal client", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column26.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column27.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod fiscal furnizor", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column27.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column28.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip client", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column28.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column29.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip furnizor", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column29.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data doc.", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column30.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. Crt.", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column30.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column31.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Fel doc.", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column31.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. doc.", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. NIR", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip Rulaj", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column6.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column7.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column7.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column8.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column8.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column9.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Articol", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.Column9.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct' AS _grid WITH ; + Anchor = 14, ; + ColumnCount = 45, ; + DeleteMark = .F., ; + Height = 95, ; + HighlightStyle = 2, ; + Left = 4, ; + Name = "grdAct", ; + Panel = 1, ; + RecordSource = "actactan_rulaje", ; + RowHeight = 19, ; + TabIndex = 1, ; + Top = 238, ; + Width = 823, ; + ZOrderSet = 6, ; + Column1.ControlSource = "recno('actactan_rulaje')", ; + Column1.FontName = "Arial", ; + Column1.FontSize = 10, ; + Column1.ForeColor = 0,0,0, ; + Column1.Name = "Column1", ; + Column1.Width = 30, ; + Column2.ControlSource = "fdoc", ; + Column2.FontName = "Arial", ; + Column2.FontSize = 10, ; + Column2.ForeColor = 0,0,0, ; + Column2.Name = "Column2", ; + Column2.Width = 38, ; + Column3.ControlSource = "dataireg", ; + Column3.FontName = "Arial", ; + Column3.FontSize = 10, ; + Column3.ForeColor = 0,0,0, ; + Column3.Name = "Column3", ; + Column3.Width = 54, ; + Column4.ColumnOrder = 4, ; + Column4.ControlSource = "dataact", ; + Column4.FontName = "Arial", ; + Column4.FontSize = 10, ; + Column4.ForeColor = 0,0,0, ; + Column4.Name = "Column4", ; + Column4.Width = 54, ; + Column5.ColumnOrder = 6, ; + Column5.ControlSource = "nract", ; + Column5.FontName = "Arial", ; + Column5.FontSize = 10, ; + Column5.ForeColor = 0,0,0, ; + Column5.Name = "Column5", ; + Column5.Width = 48, ; + Column6.ColumnOrder = 7, ; + Column6.ControlSource = "partD", ; + Column6.FontName = "Arial", ; + Column6.FontSize = 10, ; + Column6.ForeColor = 0,0,0, ; + Column6.Name = "Column6", ; + Column6.Width = 125, ; + Column7.ColumnOrder = 8, ; + Column7.ControlSource = "partC", ; + Column7.FontName = "Arial", ; + Column7.FontSize = 10, ; + Column7.ForeColor = 0,0,0, ; + Column7.Name = "Column7", ; + Column7.Width = 116, ; + Column8.ColumnOrder = 9, ; + Column8.ControlSource = "explicatia", ; + Column8.FontName = "Arial", ; + Column8.FontSize = 10, ; + Column8.ForeColor = 0,0,0, ; + Column8.Name = "Column8", ; + Column8.Width = 90, ; + Column9.ColumnOrder = 10, ; + Column9.ControlSource = "scd", ; + Column9.FontBold = .T., ; + Column9.FontName = "Arial", ; + Column9.FontSize = 10, ; + Column9.ForeColor = 0,0,0, ; + Column9.Name = "cScd", ; + Column9.Width = 32, ; + Column10.ColumnOrder = 11, ; + Column10.ControlSource = "ascd", ; + Column10.FontName = "Arial", ; + Column10.FontSize = 10, ; + Column10.ForeColor = 0,0,0, ; + Column10.Name = "cAscd", ; + Column10.Width = 35, ; + Column11.ColumnOrder = 12, ; + Column11.ControlSource = "scc", ; + Column11.FontBold = .T., ; + Column11.FontName = "Arial", ; + Column11.FontSize = 10, ; + Column11.ForeColor = 0,0,0, ; + Column11.Name = "cScc", ; + Column11.Width = 33, ; + Column12.ColumnOrder = 13, ; + Column12.ControlSource = "ascc", ; + Column12.FontName = "Arial", ; + Column12.FontSize = 10, ; + Column12.ForeColor = 0,0,0, ; + Column12.Name = "cAscc", ; + Column12.Width = 35, ; + Column13.ColumnOrder = 14, ; + Column13.ControlSource = "suma", ; + Column13.FontName = "Arial", ; + Column13.FontSize = 10, ; + Column13.ForeColor = 0,0,0, ; + Column13.Format = "R", ; + Column13.InputMask = (get_mask(12,gnPA)), ; + Column13.Name = "Column13", ; + Column13.Width = 85, ; + Column14.ColumnOrder = 15, ; + Column14.ControlSource = "nrord", ; + Column14.FontName = "Arial", ; + Column14.FontSize = 10, ; + Column14.ForeColor = 0,0,0, ; + Column14.Name = "Column14", ; + Column14.Width = 93, ; + Column15.ColumnOrder = 17, ; + Column15.ControlSource = "perecheD", ; + Column15.FontName = "Arial", ; + Column15.FontSize = 10, ; + Column15.ForeColor = 0,0,0, ; + Column15.Name = "Column15", ; + Column15.Width = 55, ; + Column16.ColumnOrder = 18, ; + Column16.ControlSource = "perecheC", ; + Column16.FontName = "Arial", ; + Column16.FontSize = 10, ; + Column16.ForeColor = 0,0,0, ; + Column16.Name = "Column16", ; + Column16.Width = 55, ; + Column17.ColumnOrder = 24, ; + Column17.ControlSource = "datascad", ; + Column17.FontName = "Arial", ; + Column17.FontSize = 10, ; + Column17.ForeColor = 0,0,0, ; + Column17.Name = "Column17", ; + Column17.Width = 88, ; + Column18.ColumnOrder = 25, ; + Column18.ControlSource = "nnir", ; + Column18.FontName = "Arial", ; + Column18.FontSize = 10, ; + Column18.ForeColor = 0,0,0, ; + Column18.Name = "Column18", ; + Column18.Width = 75, ; + Column19.ColumnOrder = 26, ; + Column19.ControlSource = "nresp", ; + Column19.FontName = "Arial", ; + Column19.FontSize = 10, ; + Column19.ForeColor = 0,0,0, ; + Column19.Name = "Column19", ; + Column20.ColumnOrder = 27, ; + Column20.ControlSource = "dst_chlt", ; + Column20.FontName = "Arial", ; + Column20.FontSize = 10, ; + Column20.ForeColor = 0,0,0, ; + Column20.Name = "Column20", ; + Column21.ColumnOrder = 28, ; + Column21.ControlSource = "suma_val", ; + Column21.FontName = "Arial", ; + Column21.FontSize = 10, ; + Column21.ForeColor = 0,0,0, ; + Column21.Format = "R", ; + Column21.InputMask = (get_mask(12,gnPVal)), ; + Column21.Name = "Column21", ; + Column22.ColumnOrder = 29, ; + Column22.ControlSource = "nume_val", ; + Column22.FontName = "Arial", ; + Column22.FontSize = 10, ; + Column22.ForeColor = 0,0,0, ; + Column22.Name = "Column22", ; + Column22.Width = 31, ; + Column23.ColumnOrder = 30, ; + Column23.ControlSource = "curs", ; + Column23.FontName = "Arial", ; + Column23.FontSize = 10, ; + Column23.ForeColor = 0,0,0, ; + Column23.InputMask = (get_mask(12,gnPcurs)), ; + Column23.Name = "Column23", ; + Column23.Width = 51, ; + Column24.ColumnOrder = 35, ; + Column24.ControlSource = "sectie", ; + Column24.FontName = "Arial", ; + Column24.FontSize = 10, ; + Column24.ForeColor = 0,0,0, ; + Column24.Name = "Column25", ; + Column25.ColumnOrder = 19, ; + Column25.ControlSource = "proc_tva", ; + Column25.FontName = "Arial", ; + Column25.FontSize = 10, ; + Column25.ForeColor = 0,0,0, ; + Column25.InputMask = "99.99", ; + Column25.Name = "Column26", ; + Column25.Width = 45, ; + Column26.ColumnOrder = 42, ; + Column26.ControlSource = "cod", ; + Column26.FontName = "Arial", ; + Column26.FontSize = 10, ; + Column26.ForeColor = 0,0,0, ; + Column26.Name = "Column27", ; + Column26.Width = 51, ; + Column27.ColumnOrder = 37, ; + Column27.ControlSource = "util", ; + Column27.FontName = "Arial", ; + Column27.FontSize = 10, ; + Column27.ForeColor = 0,0,0, ; + Column27.Name = "Column28", ; + Column27.Width = 84, ; + Column28.ColumnOrder = 38, ; + Column28.ControlSource = "dataora", ; + Column28.FontName = "Arial", ; + Column28.FontSize = 10, ; + Column28.ForeColor = 0,0,0, ; + Column28.Name = "Column29", ; + Column28.Width = 96, ; + Column29.ColumnOrder = 39, ; + Column29.ControlSource = "utils", ; + Column29.FontName = "Arial", ; + Column29.FontSize = 10, ; + Column29.ForeColor = 0,0,0, ; + Column29.Name = "Column30", ; + Column30.ColumnOrder = 40, ; + Column30.ControlSource = "dataoras", ; + Column30.FontName = "Arial", ; + Column30.FontSize = 10, ; + Column30.ForeColor = 0,0,0, ; + Column30.Name = "Column31", ; + Column30.Width = 83, ; + Column31.ColumnOrder = 41, ; + Column31.ControlSource = "id_set", ; + Column31.FontName = "Arial", ; + Column31.FontSize = 10, ; + Column31.ForeColor = 0,0,0, ; + Column31.Name = "Column32", ; + Column32.ColumnOrder = 36, ; + Column32.ControlSource = "sucursala", ; + Column32.FontName = "Arial", ; + Column32.FontSize = 10, ; + Column32.ForeColor = 0,0,0, ; + Column32.Name = "Column33", ; + Column33.ColumnOrder = 31, ; + Column33.ControlSource = "explicatia4", ; + Column33.FontName = "Arial", ; + Column33.FontSize = 10, ; + Column33.ForeColor = 0,0,0, ; + Column33.Name = "Column34", ; + Column34.ColumnOrder = 32, ; + Column34.ControlSource = "explicatia5", ; + Column34.FontName = "Arial", ; + Column34.FontSize = 10, ; + Column34.ForeColor = 0,0,0, ; + Column34.Name = "Column35", ; + Column35.ColumnOrder = 33, ; + Column35.ControlSource = "GESTIN", ; + Column35.FontName = "Arial", ; + Column35.FontSize = 10, ; + Column35.ForeColor = 0,0,0, ; + Column35.Name = "Column36", ; + Column36.ColumnOrder = 34, ; + Column36.ControlSource = "GESTOUT", ; + Column36.FontName = "Arial", ; + Column36.FontSize = 10, ; + Column36.ForeColor = 0,0,0, ; + Column36.Name = "Column37", ; + Column37.ColumnOrder = 16, ; + Column37.ControlSource = "contract", ; + Column37.FontName = "Arial", ; + Column37.FontSize = 10, ; + Column37.ForeColor = 0,0,0, ; + Column37.Name = "Column24", ; + Column37.Width = 58, ; + Column38.ColumnOrder = 20, ; + Column38.ControlSource = "explicatie_tva", ; + Column38.FontName = "Arial", ; + Column38.FontSize = 10, ; + Column38.ForeColor = 0,0,0, ; + Column38.Name = "Column38", ; + Column39.ColumnOrder = 5, ; + Column39.ControlSource = "serie_act", ; + Column39.FontName = "Arial", ; + Column39.FontSize = 10, ; + Column39.ForeColor = 0,0,0, ; + Column39.Name = "cSerie_act", ; + Column39.Width = 51, ; + Column40.ColumnOrder = 43, ; + Column40.ControlSource = "id_Fact", ; + Column40.FontName = "Arial", ; + Column40.FontSize = 10, ; + Column40.Name = "cIdFact", ; + Column41.ColumnOrder = 44, ; + Column41.ControlSource = "id_factd", ; + Column41.FontName = "Arial", ; + Column41.FontSize = 10, ; + Column41.Name = "cIdFactD", ; + Column42.ColumnOrder = 45, ; + Column42.ControlSource = "id_factc", ; + Column42.FontName = "Arial", ; + Column42.FontSize = 10, ; + Column42.Name = "cIdFactC", ; + Column43.ColumnOrder = 21, ; + Column43.ControlSource = "taxname", ; + Column43.Name = "cTaxName", ; + Column43.ReadOnly = .T., ; + Column43.Width = 84, ; + Column44.ColumnOrder = 22, ; + Column44.ControlSource = "saft_procent", ; + Column44.Name = "cSaftProcent", ; + Column44.ReadOnly = .T., ; + Column45.ColumnOrder = 23, ; + Column45.ControlSource = "paymentname", ; + Column45.Name = "cPaymentName", ; + Column45.ReadOnly = .T., ; + Column45.Width = 90 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="grid" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.cAscc.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "A Cred", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.cAscc.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.cAscd.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "A Deb", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.cAscd.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.cIdFact.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id fact", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.cIdFact.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.cIdFactC.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id FactC", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.cIdFactC.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.cIdFactD.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id FactD", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.cIdFactD.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr.Crt.", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column13.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Suma", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column13.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column14.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Lucrare/Comanda", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column14.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column15.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Doc.platit", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column15.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column16.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Doc.incasat", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column16.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column17.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data scadenta", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column17.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column18.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "NIR/Bon", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column18.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column19.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Responsabil", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column19.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Fel document", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column20.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Chelt/Venituri", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column20.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontItalic = .F., ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column21.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Suma in valuta", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column21.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column22.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valuta", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column22.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column23.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Curs", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column23.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column24.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Contract", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column24.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column25.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sectie", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column25.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column26.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cota TVA", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column26.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column27.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column27.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column28.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Operator introducere", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column28.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column29.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Dataora introducerii", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column29.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data inreg.", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column30.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Operator stergere", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column30.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column31.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Dataora stergerii", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column31.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column32.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip operatie", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column32.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column33.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sucursala", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column33.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column34.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatia 4", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column34.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column35.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatia 5", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column35.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column36.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Gestiune destinatie", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column36.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column37.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Gestiune sursa", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column37.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column38.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatie TVA", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column38.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data Act", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr.Doc.", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatie D", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column6.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column7.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatie C", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column7.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column8.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatie", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Column8.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.cPaymentName.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod Plata SAFT", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.cPaymentName.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.cSaftProcent.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Procent Taxa", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.cSaftProcent.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.cScc.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "C Cred", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.cScc.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontBold = .T., ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.cScd.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "C Deb", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.cScd.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontBold = .T., ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.cSerie_act.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Serie Doc.", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.cSerie_act.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.cTaxName.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod taxa SAFT", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.cTaxName.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.Gridextra1' AS gridextra WITH ; + gridexpression = thisform.pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods, ; + Left = 463, ; + Name = "Gridextra1", ; + productname = ROA, ; + Top = 19 + *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.But_verifica1' AS but_verifica WITH ; + Anchor = 8, ; + caction = do_verifica_plati, ; + clistaparametri = , ; + Left = 797, ; + Name = "But_verifica1", ; + TabIndex = 14, ; + ToolTipText = "Verificare coduri fiscale", ; + Top = 5 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments' AS _grdbase WITH ; + Anchor = 15, ; + ColumnCount = 19, ; + DeleteMark = .F., ; + FontSize = 10, ; + Height = 198, ; + Left = 4, ; + Name = "gPayments", ; + Panel = 1, ; + ReadOnly = .T., ; + RecordSource = "cpayments", ; + RowHeight = 19, ; + Top = 34, ; + Width = 823, ; + Column1.ColumnOrder = 2, ; + Column1.ControlSource = "cpayments.id_fact", ; + Column1.FontSize = 10, ; + Column1.InputMask = "99999999999999", ; + Column1.Name = "Column1", ; + Column1.ReadOnly = .T., ; + Column1.Width = 75, ; + Column2.ColumnOrder = 3, ; + Column2.ControlSource = "cpayments.dataact", ; + Column2.FontSize = 10, ; + Column2.Name = "Column2", ; + Column2.ReadOnly = .T., ; + Column2.Width = 86, ; + Column3.ColumnOrder = 4, ; + Column3.ControlSource = "cpayments.cont", ; + Column3.FontSize = 10, ; + Column3.Name = "Column3", ; + Column3.ReadOnly = .T., ; + Column3.Width = 69, ; + Column4.ColumnOrder = 5, ; + Column4.ControlSource = "cpayments.tipdc", ; + Column4.FontSize = 10, ; + Column4.Name = "Column4", ; + Column4.ReadOnly = .T., ; + Column4.Width = 72, ; + Column5.ColumnOrder = 6, ; + Column5.ControlSource = "cpayments.id_part", ; + Column5.FontSize = 10, ; + Column5.InputMask = "999999999999999", ; + Column5.Name = "Column5", ; + Column5.ReadOnly = .T., ; + Column5.Width = 86, ; + Column6.ColumnOrder = 11, ; + Column6.ControlSource = "cpayments.taxtype", ; + Column6.FontSize = 10, ; + Column6.InputMask = "999", ; + Column6.Name = "Column6", ; + Column6.ReadOnly = .T., ; + Column6.Width = 75, ; + Column7.ColumnOrder = 12, ; + Column7.ControlSource = "cpayments.taxname", ; + Column7.FontSize = 10, ; + Column7.Name = "Column7", ; + Column7.ReadOnly = .T., ; + Column7.Width = 75, ; + Column8.ColumnOrder = 13, ; + Column8.ControlSource = "cpayments.paymentname", ; + Column8.FontSize = 10, ; + Column8.Name = "Column8", ; + Column8.ReadOnly = .T., ; + Column8.Width = 85, ; + Column9.ColumnOrder = 19, ; + Column9.ControlSource = "cpayments.id_valuta", ; + Column9.FontSize = 10, ; + Column9.InputMask = "999999999", ; + Column9.Name = "Column9", ; + Column9.ReadOnly = .T., ; + Column9.Width = 75, ; + Column10.ColumnOrder = 14, ; + Column10.ControlSource = "cpayments.curs", ; + Column10.FontSize = 10, ; + Column10.InputMask = "999 999.9999", ; + Column10.Name = "Column10", ; + Column10.ReadOnly = .T., ; + Column10.Width = 75, ; + Column11.ColumnOrder = 15, ; + Column11.ControlSource = "cpayments.suma", ; + Column11.FontSize = 10, ; + Column11.InputMask = "999 999 999 999.99", ; + Column11.Name = "Column11", ; + Column11.ReadOnly = .T., ; + Column11.Width = 75, ; + Column12.ColumnOrder = 16, ; + Column12.ControlSource = "cpayments.suma_val", ; + Column12.FontSize = 10, ; + Column12.InputMask = "999 999 999 999.99", ; + Column12.Name = "Column12", ; + Column12.ReadOnly = .T., ; + Column12.Width = 75, ; + Column13.ColumnOrder = 8, ; + Column13.ControlSource = "cpayments.cod_fiscal", ; + Column13.FontSize = 10, ; + Column13.Name = "Column13", ; + Column13.ReadOnly = .T., ; + Column13.Width = 100, ; + Column14.ColumnOrder = 9, ; + Column14.ControlSource = "IIF(nvl(cpayments.tip_persoana,1) = 1, 'PJ', 'PF')", ; + Column14.FontSize = 10, ; + Column14.Name = "Column14", ; + Column14.ReadOnly = .T., ; + Column14.Width = 75, ; + Column15.ColumnOrder = 18, ; + Column15.ControlSource = "cpayments.cod_tara", ; + Column15.FontSize = 10, ; + Column15.Name = "Column15", ; + Column15.ReadOnly = .T., ; + Column15.Width = 51, ; + Column16.ColumnOrder = 17, ; + Column16.ControlSource = "cpayments.cod_valuta", ; + Column16.FontSize = 10, ; + Column16.Name = "Column16", ; + Column16.ReadOnly = .T., ; + Column16.Width = 62, ; + Column17.ColumnOrder = 7, ; + Column17.ControlSource = "cpayments.denumire", ; + Column17.FontSize = 10, ; + Column17.Name = "Column17", ; + Column17.ReadOnly = .T., ; + Column17.Width = 163, ; + Column18.ColumnOrder = 1, ; + Column18.ControlSource = "recno('cpayments')", ; + Column18.FontSize = 10, ; + Column18.Name = "Column18", ; + Column18.ReadOnly = .T., ; + Column18.Width = 44, ; + Column19.ColumnOrder = 10, ; + Column19.ControlSource = "saftpartid", ; + Column19.FontSize = 10, ; + Column19.Name = "Column19", ; + Column19.ReadOnly = .T., ; + Column19.Sparse = .F., ; + Column19.Width = 115 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id factura", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column10.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Curs", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column10.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column11.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Suma", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column11.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column12.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Suma valuta", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column12.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column13.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod fiscal", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column13.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column14.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip persoana", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column14.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column15.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod tara", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column15.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column16.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod valuta", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column16.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column17.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Partener", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column17.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column18.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. crt.", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column18.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column19.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod partener SAFT", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column19.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data act", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip deb/cred", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id Partener", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tax Type", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column6.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column7.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tax Code", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column7.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column8.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Payment Code", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column8.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column9.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id Valuta", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments.Column9.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct' AS _grid WITH ; + Anchor = 14, ; + ColumnCount = 45, ; + DeleteMark = .F., ; + Height = 95, ; + HighlightStyle = 2, ; + Left = 4, ; + Name = "grdAct", ; + Panel = 1, ; + RecordSource = "actactan_plati", ; + RowHeight = 19, ; + TabIndex = 1, ; + Top = 238, ; + Width = 823, ; + ZOrderSet = 6, ; + Column1.ControlSource = "recno('actactan_plati')", ; + Column1.FontName = "Arial", ; + Column1.FontSize = 10, ; + Column1.ForeColor = 0,0,0, ; + Column1.Name = "Column1", ; + Column1.Width = 30, ; + Column2.ControlSource = "fdoc", ; + Column2.FontName = "Arial", ; + Column2.FontSize = 10, ; + Column2.ForeColor = 0,0,0, ; + Column2.Name = "Column2", ; + Column2.Width = 38, ; + Column3.ControlSource = "dataireg", ; + Column3.FontName = "Arial", ; + Column3.FontSize = 10, ; + Column3.ForeColor = 0,0,0, ; + Column3.Name = "Column3", ; + Column3.Width = 54, ; + Column4.ColumnOrder = 4, ; + Column4.ControlSource = "dataact", ; + Column4.FontName = "Arial", ; + Column4.FontSize = 10, ; + Column4.ForeColor = 0,0,0, ; + Column4.Name = "Column4", ; + Column4.Width = 54, ; + Column5.ColumnOrder = 6, ; + Column5.ControlSource = "nract", ; + Column5.FontName = "Arial", ; + Column5.FontSize = 10, ; + Column5.ForeColor = 0,0,0, ; + Column5.Name = "Column5", ; + Column5.Width = 48, ; + Column6.ColumnOrder = 7, ; + Column6.ControlSource = "partD", ; + Column6.FontName = "Arial", ; + Column6.FontSize = 10, ; + Column6.ForeColor = 0,0,0, ; + Column6.Name = "Column6", ; + Column6.Width = 125, ; + Column7.ColumnOrder = 8, ; + Column7.ControlSource = "partC", ; + Column7.FontName = "Arial", ; + Column7.FontSize = 10, ; + Column7.ForeColor = 0,0,0, ; + Column7.Name = "Column7", ; + Column7.Width = 116, ; + Column8.ColumnOrder = 9, ; + Column8.ControlSource = "explicatia", ; + Column8.FontName = "Arial", ; + Column8.FontSize = 10, ; + Column8.ForeColor = 0,0,0, ; + Column8.Name = "Column8", ; + Column8.Width = 90, ; + Column9.ColumnOrder = 10, ; + Column9.ControlSource = "scd", ; + Column9.FontBold = .T., ; + Column9.FontName = "Arial", ; + Column9.FontSize = 10, ; + Column9.ForeColor = 0,0,0, ; + Column9.Name = "cScd", ; + Column9.Width = 32, ; + Column10.ColumnOrder = 11, ; + Column10.ControlSource = "ascd", ; + Column10.FontName = "Arial", ; + Column10.FontSize = 10, ; + Column10.ForeColor = 0,0,0, ; + Column10.Name = "cAscd", ; + Column10.Width = 35, ; + Column11.ColumnOrder = 12, ; + Column11.ControlSource = "scc", ; + Column11.FontBold = .T., ; + Column11.FontName = "Arial", ; + Column11.FontSize = 10, ; + Column11.ForeColor = 0,0,0, ; + Column11.Name = "cScc", ; + Column11.Width = 33, ; + Column12.ColumnOrder = 13, ; + Column12.ControlSource = "ascc", ; + Column12.FontName = "Arial", ; + Column12.FontSize = 10, ; + Column12.ForeColor = 0,0,0, ; + Column12.Name = "cAscc", ; + Column12.Width = 35, ; + Column13.ColumnOrder = 14, ; + Column13.ControlSource = "suma", ; + Column13.FontName = "Arial", ; + Column13.FontSize = 10, ; + Column13.ForeColor = 0,0,0, ; + Column13.Format = "R", ; + Column13.InputMask = (get_mask(12,gnPA)), ; + Column13.Name = "Column13", ; + Column13.Width = 85, ; + Column14.ColumnOrder = 15, ; + Column14.ControlSource = "nrord", ; + Column14.FontName = "Arial", ; + Column14.FontSize = 10, ; + Column14.ForeColor = 0,0,0, ; + Column14.Name = "Column14", ; + Column14.Width = 93, ; + Column15.ColumnOrder = 17, ; + Column15.ControlSource = "perecheD", ; + Column15.FontName = "Arial", ; + Column15.FontSize = 10, ; + Column15.ForeColor = 0,0,0, ; + Column15.Name = "Column15", ; + Column15.Width = 55, ; + Column16.ColumnOrder = 18, ; + Column16.ControlSource = "perecheC", ; + Column16.FontName = "Arial", ; + Column16.FontSize = 10, ; + Column16.ForeColor = 0,0,0, ; + Column16.Name = "Column16", ; + Column16.Width = 55, ; + Column17.ColumnOrder = 24, ; + Column17.ControlSource = "datascad", ; + Column17.FontName = "Arial", ; + Column17.FontSize = 10, ; + Column17.ForeColor = 0,0,0, ; + Column17.Name = "Column17", ; + Column17.Width = 88, ; + Column18.ColumnOrder = 25, ; + Column18.ControlSource = "nnir", ; + Column18.FontName = "Arial", ; + Column18.FontSize = 10, ; + Column18.ForeColor = 0,0,0, ; + Column18.Name = "Column18", ; + Column18.Width = 75, ; + Column19.ColumnOrder = 26, ; + Column19.ControlSource = "nresp", ; + Column19.FontName = "Arial", ; + Column19.FontSize = 10, ; + Column19.ForeColor = 0,0,0, ; + Column19.Name = "Column19", ; + Column20.ColumnOrder = 27, ; + Column20.ControlSource = "dst_chlt", ; + Column20.FontName = "Arial", ; + Column20.FontSize = 10, ; + Column20.ForeColor = 0,0,0, ; + Column20.Name = "Column20", ; + Column21.ColumnOrder = 28, ; + Column21.ControlSource = "suma_val", ; + Column21.FontName = "Arial", ; + Column21.FontSize = 10, ; + Column21.ForeColor = 0,0,0, ; + Column21.Format = "R", ; + Column21.InputMask = (get_mask(12,gnPVal)), ; + Column21.Name = "Column21", ; + Column22.ColumnOrder = 29, ; + Column22.ControlSource = "nume_val", ; + Column22.FontName = "Arial", ; + Column22.FontSize = 10, ; + Column22.ForeColor = 0,0,0, ; + Column22.Name = "Column22", ; + Column22.Width = 31, ; + Column23.ColumnOrder = 30, ; + Column23.ControlSource = "curs", ; + Column23.FontName = "Arial", ; + Column23.FontSize = 10, ; + Column23.ForeColor = 0,0,0, ; + Column23.InputMask = (get_mask(12,gnPcurs)), ; + Column23.Name = "Column23", ; + Column23.Width = 51, ; + Column24.ColumnOrder = 35, ; + Column24.ControlSource = "sectie", ; + Column24.FontName = "Arial", ; + Column24.FontSize = 10, ; + Column24.ForeColor = 0,0,0, ; + Column24.Name = "Column25", ; + Column25.ColumnOrder = 19, ; + Column25.ControlSource = "proc_tva", ; + Column25.FontName = "Arial", ; + Column25.FontSize = 10, ; + Column25.ForeColor = 0,0,0, ; + Column25.InputMask = "99.99", ; + Column25.Name = "Column26", ; + Column25.Width = 45, ; + Column26.ColumnOrder = 42, ; + Column26.ControlSource = "cod", ; + Column26.FontName = "Arial", ; + Column26.FontSize = 10, ; + Column26.ForeColor = 0,0,0, ; + Column26.Name = "Column27", ; + Column26.Width = 51, ; + Column27.ColumnOrder = 37, ; + Column27.ControlSource = "util", ; + Column27.FontName = "Arial", ; + Column27.FontSize = 10, ; + Column27.ForeColor = 0,0,0, ; + Column27.Name = "Column28", ; + Column27.Width = 84, ; + Column28.ColumnOrder = 38, ; + Column28.ControlSource = "dataora", ; + Column28.FontName = "Arial", ; + Column28.FontSize = 10, ; + Column28.ForeColor = 0,0,0, ; + Column28.Name = "Column29", ; + Column28.Width = 96, ; + Column29.ColumnOrder = 39, ; + Column29.ControlSource = "utils", ; + Column29.FontName = "Arial", ; + Column29.FontSize = 10, ; + Column29.ForeColor = 0,0,0, ; + Column29.Name = "Column30", ; + Column30.ColumnOrder = 40, ; + Column30.ControlSource = "dataoras", ; + Column30.FontName = "Arial", ; + Column30.FontSize = 10, ; + Column30.ForeColor = 0,0,0, ; + Column30.Name = "Column31", ; + Column30.Width = 83, ; + Column31.ColumnOrder = 41, ; + Column31.ControlSource = "id_set", ; + Column31.FontName = "Arial", ; + Column31.FontSize = 10, ; + Column31.ForeColor = 0,0,0, ; + Column31.Name = "Column32", ; + Column32.ColumnOrder = 36, ; + Column32.ControlSource = "sucursala", ; + Column32.FontName = "Arial", ; + Column32.FontSize = 10, ; + Column32.ForeColor = 0,0,0, ; + Column32.Name = "Column33", ; + Column33.ColumnOrder = 31, ; + Column33.ControlSource = "explicatia4", ; + Column33.FontName = "Arial", ; + Column33.FontSize = 10, ; + Column33.ForeColor = 0,0,0, ; + Column33.Name = "Column34", ; + Column34.ColumnOrder = 32, ; + Column34.ControlSource = "explicatia5", ; + Column34.FontName = "Arial", ; + Column34.FontSize = 10, ; + Column34.ForeColor = 0,0,0, ; + Column34.Name = "Column35", ; + Column35.ColumnOrder = 33, ; + Column35.ControlSource = "GESTIN", ; + Column35.FontName = "Arial", ; + Column35.FontSize = 10, ; + Column35.ForeColor = 0,0,0, ; + Column35.Name = "Column36", ; + Column36.ColumnOrder = 34, ; + Column36.ControlSource = "GESTOUT", ; + Column36.FontName = "Arial", ; + Column36.FontSize = 10, ; + Column36.ForeColor = 0,0,0, ; + Column36.Name = "Column37", ; + Column37.ColumnOrder = 16, ; + Column37.ControlSource = "contract", ; + Column37.FontName = "Arial", ; + Column37.FontSize = 10, ; + Column37.ForeColor = 0,0,0, ; + Column37.Name = "Column24", ; + Column37.Width = 58, ; + Column38.ColumnOrder = 20, ; + Column38.ControlSource = "explicatie_tva", ; + Column38.FontName = "Arial", ; + Column38.FontSize = 10, ; + Column38.ForeColor = 0,0,0, ; + Column38.Name = "Column38", ; + Column39.ColumnOrder = 5, ; + Column39.ControlSource = "serie_act", ; + Column39.FontName = "Arial", ; + Column39.FontSize = 10, ; + Column39.ForeColor = 0,0,0, ; + Column39.Name = "cSerie_act", ; + Column39.Width = 51, ; + Column40.ColumnOrder = 43, ; + Column40.ControlSource = "id_Fact", ; + Column40.FontName = "Arial", ; + Column40.FontSize = 10, ; + Column40.Name = "cIdFact", ; + Column41.ColumnOrder = 44, ; + Column41.ControlSource = "id_factd", ; + Column41.FontName = "Arial", ; + Column41.FontSize = 10, ; + Column41.Name = "cIdFactD", ; + Column42.ColumnOrder = 45, ; + Column42.ControlSource = "id_factc", ; + Column42.FontName = "Arial", ; + Column42.FontSize = 10, ; + Column42.Name = "cIdFactC", ; + Column43.ColumnOrder = 21, ; + Column43.ControlSource = "left(taxname,250)", ; + Column43.Name = "cTaxName", ; + Column43.ReadOnly = .T., ; + Column43.Width = 84, ; + Column44.ColumnOrder = 22, ; + Column44.ControlSource = "saft_procent", ; + Column44.Name = "cSaftProcent", ; + Column44.ReadOnly = .T., ; + Column45.ColumnOrder = 23, ; + Column45.ControlSource = "left(paymentname,250)", ; + Column45.Name = "cPaymentName", ; + Column45.ReadOnly = .T., ; + Column45.Width = 90 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="grid" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.cAscc.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "A Cred", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.cAscc.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.cAscd.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "A Deb", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.cAscd.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.cIdFact.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id fact", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.cIdFact.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.cIdFactC.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id FactC", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.cIdFactC.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.cIdFactD.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id FactD", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.cIdFactD.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr.Crt.", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column13.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Suma", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column13.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column14.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Lucrare/Comanda", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column14.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column15.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Doc.platit", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column15.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column16.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Doc.incasat", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column16.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column17.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data scadenta", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column17.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column18.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "NIR/Bon", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column18.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column19.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Responsabil", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column19.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Fel document", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column20.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Chelt/Venituri", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column20.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontItalic = .F., ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column21.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Suma in valuta", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column21.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column22.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valuta", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column22.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column23.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Curs", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column23.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column24.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Contract", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column24.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column25.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sectie", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column25.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column26.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cota TVA", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column26.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column27.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column27.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column28.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Operator introducere", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column28.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column29.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Dataora introducerii", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column29.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data inreg.", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column30.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Operator stergere", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column30.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column31.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Dataora stergerii", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column31.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column32.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip operatie", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column32.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column33.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sucursala", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column33.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column34.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatia 4", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column34.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column35.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatia 5", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column35.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column36.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Gestiune destinatie", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column36.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column37.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Gestiune sursa", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column37.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column38.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatie TVA", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column38.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data Act", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr.Doc.", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatie D", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column6.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column7.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatie C", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column7.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column8.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatie", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Column8.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.cPaymentName.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod Plata SAFT", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.cPaymentName.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.cSaftProcent.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Procent Taxa", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.cSaftProcent.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.cScc.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "C Cred", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.cScc.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontBold = .T., ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.cScd.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "C Deb", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.cScd.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontBold = .T., ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.cSerie_act.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Serie Doc.", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.cSerie_act.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.cTaxName.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod taxa SAFT", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.cTaxName.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.Gridextra1' AS gridextra WITH ; + gridexpression = thisform.pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments, ; + Left = 455, ; + Name = "Gridextra1", ; + productname = ROA, ; + Top = 11 + *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions' AS _grid WITH ; + Anchor = 15, ; + ColumnCount = 14, ; + DeleteMark = .F., ; + FontSize = 10, ; + HeaderHeight = 38, ; + Height = 325, ; + Left = 4, ; + Name = "gAssetTransactions", ; + Panel = 1, ; + ReadOnly = .T., ; + RecordSource = "cassettransactions", ; + RowHeight = 19, ; + Top = 8, ; + Width = 823, ; + Column1.ColumnOrder = 4, ; + Column1.ControlSource = "cassettransactions.assettransactionid", ; + Column1.FontSize = 10, ; + Column1.Name = "Column1", ; + Column1.ReadOnly = .T., ; + Column1.Width = 128, ; + Column2.ColumnOrder = 3, ; + Column2.ControlSource = "cassettransactions.assetid", ; + Column2.FontSize = 10, ; + Column2.Name = "Column2", ; + Column2.ReadOnly = .T., ; + Column2.Width = 92, ; + Column3.ColumnOrder = 5, ; + Column3.ControlSource = "cassettransactions.assettransactiontype", ; + Column3.FontSize = 10, ; + Column3.Name = "Column3", ; + Column3.ReadOnly = .T., ; + Column3.Width = 81, ; + Column4.ColumnOrder = 7, ; + Column4.ControlSource = "cassettransactions.description", ; + Column4.FontSize = 10, ; + Column4.Name = "Column4", ; + Column4.ReadOnly = .T., ; + Column4.Width = 201, ; + Column5.ColumnOrder = 8, ; + Column5.ControlSource = "cassettransactions.assettransactiondate", ; + Column5.FontSize = 10, ; + Column5.Name = "Column5", ; + Column5.ReadOnly = .T., ; + Column5.Width = 75, ; + Column6.ColumnOrder = 9, ; + Column6.ControlSource = "cassettransactions.transactionid", ; + Column6.FontSize = 10, ; + Column6.Name = "Column6", ; + Column6.ReadOnly = .T., ; + Column6.Width = 75, ; + Column7.ColumnOrder = 10, ; + Column7.ControlSource = "cassettransactions.assetvaluationtype", ; + Column7.FontSize = 10, ; + Column7.Name = "Column7", ; + Column7.ReadOnly = .T., ; + Column7.Width = 75, ; + Column8.ColumnOrder = 11, ; + Column8.ControlSource = "cassettransactions.acquisitionandproductioncostsontransaction", ; + Column8.FontSize = 10, ; + Column8.InputMask = "99 999 999 999.99", ; + Column8.Name = "Column8", ; + Column8.ReadOnly = .T., ; + Column8.Width = 98, ; + Column9.ColumnOrder = 12, ; + Column9.ControlSource = "cassettransactions.bookvalueontransaction", ; + Column9.FontSize = 10, ; + Column9.InputMask = "99 999 999 999.99", ; + Column9.Name = "Column9", ; + Column9.ReadOnly = .T., ; + Column9.Width = 99, ; + Column10.ColumnOrder = 13, ; + Column10.ControlSource = "cassettransactions.assettransactionamount", ; + Column10.FontSize = 10, ; + Column10.InputMask = "99 999 999 999.99", ; + Column10.Name = "Column10", ; + Column10.ReadOnly = .T., ; + Column10.Width = 101, ; + Column11.ColumnOrder = 6, ; + Column11.ControlSource = "cassettransactions.denumire", ; + Column11.FontSize = 10, ; + Column11.Name = "Column11", ; + Column11.ReadOnly = .T., ; + Column11.Width = 165, ; + Column12.ColumnOrder = 14, ; + Column12.ControlSource = "cassettransactions.tip_imobilizare", ; + Column12.FontSize = 10, ; + Column12.Name = "Column12", ; + Column12.ReadOnly = .T., ; + Column12.Width = 84, ; + Column13.ColumnOrder = 2, ; + Column13.ControlSource = "cassettransactions.id_mf", ; + Column13.FontSize = 10, ; + Column13.Name = "Column13", ; + Column13.ReadOnly = .T., ; + Column14.ColumnOrder = 1, ; + Column14.ControlSource = "recno('cAssetTransactions')", ; + Column14.FontSize = 10, ; + Column14.Name = "Column14", ; + Column14.ReadOnly = .T., ; + Column14.Width = 42 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="grid" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id tranzactie", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions.Column10.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare neta tranzactie", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions.Column10.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions.Column11.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Denumire", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions.Column11.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions.Column12.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip imobilizare", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions.Column12.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions.Column13.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id MF", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions.Column13.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions.Column14.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. Crt.", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions.Column14.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. inventar", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip tranzactie", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Descriere", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id jurnal", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions.Column6.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions.Column7.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip evaluare", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions.Column7.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions.Column8.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cost achizitie si productie", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions.Column8.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions.Column9.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare contabila", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions.Column9.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.Gridextra1' AS gridextra WITH ; + gridexpression = thisform.pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions, ; + Left = 471, ; + Name = "Gridextra1", ; + productname = ROA, ; + Top = 27 + *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> + + PROCEDURE creeazacursoare + Create Cursor cGeneralLedgerAccounts(; + cont C(4) null,; + denumire C(100) null,; + tip C(12) null,; + soldideb N(20,4) null,; + soldicred N(20,4) null,; + soldfdeb N(20,4) null,; + soldfcred N(20,4) null) + + + Create Cursor cGeneralLedgerEntries(; + an N(6) null,; + luna N(4) null,; + cod N(20) null,; + id_fact N(20) null,; + nract N(16) null,; + dataact D null,; + dataireg D null,; + cont C(4) null,; + tipdc C(1) null,; + id_part N(20) null,; + saftpartid C(30) null,; + denumire C(250) null,; + id_jtva_coloana N(20) null,; + cota_taxa N(7,2) null,; + explicatie_tva C(100) null,; + tiptaxa C(20) null,; + taxtype N(3) null,; + taxcode N(6) null,; + taxname C(250) null,; + id_sectie I null,; + id_valuta I null,; + n50 N(1) null,; + n100 N(1) null,; + curs N(14,6) null,; + suma N(20,4) null,; + suma_val N(20,4) null,; + taxa N(20,4) null,; + taxa_val N(20,4) null,; + cod_fiscal C(30) null,; + tip_persoana N(1) null,; + cod_tara C(5) null,; + cod_valuta C(5) null) + + Create Cursor cCustomers(; + id_part N(20) null,; + denumire C(100) null,; + cod_fiscal C(30) null,; + saftpartid C(30) null,; + tip_persoana N(1) null,; + strada C(150) null,; + numar C(20) null,; + localitate C(100) null,; + indicativ_judet C(2) null,; + codpostal N(20) null,; + cod_tara C(5) null,; + is_activ N(1) null,; + cont C(4) null,; + tip C(20) null,; + soldideb N(20,4) null,; + soldicred N(20,4) null,; + soldfdeb N(20,4) null,; + soldfcred N(20,4) null) + + Create Cursor cSuppliers(; + id_part N(20) null,; + denumire C(100) null,; + cod_fiscal C(30) null,; + saftpartid C(30) null,; + tip_persoana N(1) null,; + strada C(150) null,; + numar C(20) null,; + localitate C(100) null,; + indicativ_judet C(2) null,; + codpostal N(20) null,; + cod_tara C(5) null,; + is_activ N(1) null,; + cont C(4) null,; + tip C(20) null,; + soldideb N(20,4) null,; + soldicred N(20,4) null,; + soldfdeb N(20,4) null,; + soldfcred N(20,4) null) + + + Create Cursor cAnalysisTypeTable(; + id_sectie I,; + id_sucursala I,; + cod C(100),; + descriere C(150)) + + Create Cursor cPayments(; + an N(6) null,; + luna N(4) null,; + cod N(20) null,; + id_fact N(20) null,; + dataact T(8) null,; + cont C(4) null,; + tipdc C(4) null,; + id_part N(20) null,; + saftpartid C(30) null,; + taxtype N(3) null,; + taxcode N(6) null,; + taxname C(250) null,; + paymentcode C(9) null,; + paymentname C(250) null,; + methodcode C(10) NULL, ; + id_valuta N(7) null,; + curs N(14,6) null,; + explicatia C(250) null, ; + suma N(20,4) null,; + suma_val N(20,4) null,; + denumire C(250) null, ; + cod_fiscal C(30) null,; + tip_persoana N(1) null,; + cod_tara C(5) null,; + cod_valuta C(3) null) + + Create Cursor cSalesInvoices(; + an N(6) null,; + luna N(4) null,; + id_fact N(20) null,; + cod N(20) null,; + nract N(16) null,; + dataact D null,; + id_part N(20) null,; + denumire C(100) null,; + totctva N(20,4) null,; + saftpartid C(30) null,; + invoicetype N(5) null,; + invoicetypet C(50) null, ; + autofactura N(1) null,; + cont C(4) null,; + localitate C(50) null,; + cod_tara C(10) null) + + Create Cursor cSalesInvoicesLines(; + tip N(1) null,; + id_fact N(20) null,; + nrcrt N(10) null,; + cod N(20) null,; + descriere C(100) null,; + cantitate N(20,6) null,; + pret_cu_tva N(1) null,; + pret N(20,4) null,; + pretv N(20,4) null,; + valoare N(20,4) null,; + valoarev N(20,4) null,; + taxa N(20,4) null,; + taxav N(20,4) null,; + id_valuta N(5) null,; + curs N(14,4) null,; + taxcode N(6) null,; + taxtype N(3) null,; + taxname C(250) null,; + proc_tva N(5) null,; + cod_valuta C(5) null,; + cont C(4) null) + + Create Cursor cPurchaseInvoices(; + an N(6) null,; + luna N(4) null,; + id_fact N(20) null,; + cod N(20) null,; + nract N(16) null,; + dataact D null,; + id_part N(20) null,; + denumire C(100) null,; + totctva N(20,4) null,; + saftpartid C(30) null,; + invoicetype N(5) null,; + invoicetypet C(50) null, ; + autofactura N(1) null,; + cont C(4) null,; + localitate C(50) null,; + cod_tara C(10) null) + + Create Cursor cPurchaseInvoicesLines(; + tip N(1) null,; + id_fact N(20) null,; + nrcrt N(10) null,; + cod N(20) null,; + descriere C(100) null,; + cantitate N(20,6) null,; + pret_cu_tva N(1) null,; + pret N(20,4) null,; + pretv N(20,4) null,; + valoare N(20,4) null,; + valoarev N(20,4) null,; + taxa N(20,4) null,; + taxav N(20,4) null,; + id_valuta N(5) null,; + curs N(14,4) null,; + taxcode N(6) null,; + taxtype N(3) null,; + taxname C(250) null,; + proc_tva N(5) null,; + cod_valuta C(5) null,; + cont C(4) null) + + create cursor cMovementOfGoods ; + (AN N(4) NULL, ; + LUNA N(2) NULL, ; + ID_RUL N(20) NULL , ; + ID_FACT N(20) NULL, ; + DATAACT D NULL, ; + NRACT N(16) NULL, ; + NNIR N(16) NULL, ; + ID_TIP_RULAJ I NULL, ; + CONT C(4) NULL, ; + COD N(20) NULL, ; + ID_ARTICOL N(20) NULL, ; + DENUMIRE C(250) NULL, ; + CANT N(16,3) NULL, ; + CANTE N(16,3) NULL, ; + PRET N(18,4) NULL, ; + VALOARE N(18,4) NULL, ; + TAXA N(18,4) NULL, ; + COD_UM_ISO C(5) NULL, ; + TAXCODE N(6) NULL, ; + TAXTYPE N(3) NULL, ; + PROCENT_TAXA N(7,2) NULL, ; + MOVEMENTTYPE C(9) NULL, ; + MOVEMENTTYPENAME C(200) NULL, ; + CUSTOMERID N(10) NULL, ; + SUPPLIERID N(10) NULL, ; + SAFTPARTIDC C(20) NULL, ; + SAFTPARTIDS C(20) NULL, ; + COD_TARAC C(5) NULL, ; + COD_TARAS C(5) NULL, ; + COD_FISCALC C(30) NULL, ; + COD_FISCALS C(30) NULL, ; + TIP_PERSOANAC N(1) NULL, ; + TIP_PERSOANAS N(1) NULL, ; + DENUMIREC C(200) NULL, ; + DENUMIRES C(200) NULL, ; + FDOC C(18) NULL) + + Create Cursor cTaxTable(; + taxcode N(6) null,; + taxtype N(3) null,; + typename C(250) null,; + descriere C(250) null,; + taxname C(250) null,; + procent_taxa N(7,2) null,; + procent_prorata N(7,2) null,; + inactiv N(1) null,; + tip C(50) null,; + ordine N(20) null,; + descriere_tip C(250) null,; + tva N(1) null,; + wht N(1) null,; + tva_livrari N(1) null,; + tva_achizitii N(1) null) + + create cursor cUOMTable ; + (unitofmeasure C(9) null, ; + description C(250) null) + + create cursor cMovementTypeTable ; + (MOVEMENTTYPE C(9) NULL, ; + DESCRIPTION C(254) NULL) + + create cursor cProducts ; + (ID_ARTICOL N(12,0) null, ; + DENUMIRE C(100) null, ; + CODNC8 C(20) null, ; + UM C(20) null, ; + COD_UM_ISO C(5) null, ; + UM_ISO C(250) null, ; + CODBARE C(50) null, ; + GOODSORSERVICESID C(2) null) + + create cursor cPhysicalStock ; + (ID_GESTIUNE N(7,0) null, ; + CGEST C(20) NULL, ; + ID_ARTICOL N(12,0) null, ; + DENUMIRE C(100) null, ; + PRET N(20,2) null, ; + CONT C(4) null, ; + ID_PART N(12,0) null, ; + PARTENER C(100) null, ; + CANTI N(20,6) null, ; + VALI N(18,2) null, ; + CANTF N(20,6) null, ; + VALF N(18,2) null, ; + CODNC8 C(20) null, ; + UM C(20) null, ; + COD_UM_ISO C(9) null, ; + SAFTPARTID C(20) null) + + create cursor cOwners ; + (ID_PART N(12,0) null, ; + DENUMIRE C(100) null, ; + COD_FISCAL C(30) null, ; + TIP_PERSOANA N(1) null, ; + STRADA C(150) null, ; + NUMAR C(10) null, ; + LOCALITATE C(100) null, ; + INDICATIV_JUDET C(2) null, ; + COD_TARA C(5) null, ; + SAFTPARTID C(20) null) + + CREATE CURSOR cAssets (id_mf I, AssetId C(30) null, AccountId C(20) null, DateOfAcquisition D null, StartUpDate D null, Description C(100) null, ; + AssetValuationType C(20) null, ValuationClass C(20) null, AcquisitionAndProductionCostsBegin N(18,2) null, AcquisitionAndProductionCostsEnd N(18,2) null, InvestmentSupport N(18,2) null, ; + AssetLifeYear N(18,4) null, DepreciationMethod C(20) null, DepreciationPercentage N(18,4) null, ; + AssetAddition N(18,2) null, Transfers N(18,2) null, AssetDisposal N(18,2) null, BookValueBegin N(18,2) null,DepreciationForPeriod N(18,2) null, AppreciationForPeriod N(18,2) null, AppreciationForPeriodMinus N(18,2) null, ; + ExtraordinaryDepreciationMethod C(35) null, ExtraordinaryDepreciationAmountForPeriod N(18,2) null,; + AccumulatedDepreciation N(18,2) null, AccumulatedDepreciationBegin N(18,2) null, BookValueEnd N(18,2) null, tip_imobilizare C(30) null) + + CREATE CURSOR cAssetTransactions (AssetTransactionID C(70) null, AssetID C(35) null, AssetTransactionType C(9) null, Description C(250) NULL, ; + AssetTransactionDate D null, TransactionID C(70) null, AssetValuationType C(18) null, ; + AcquisitionAndProductionCostsOnTransaction N(18,2) null, BookValueOnTransaction N(18,2) null, AssetTransactionAmount N(18,2) null, ; + Denumire C(100) null, Tip_imobilizare C(30) null, id_mf I null) + + *!* llSucces = goExecutor.oExecuta([select * from vact_tot where 1=2], [actactan]) + *!* llSucces = goExecutor.oExecuta([select * from vact_tot where 1=2], [actactan_plati]) + *!* llSucces = goExecutor.oExecuta([select * from vact_tot where 1=2], [actactan_facturia]) + *!* llSucces = goExecutor.oExecuta([select * from vact_tot where 1=2], [actactan_facturiv]) + *!* llSucces = goExecutor.oExecuta([select * from vact_tot where 1=2], [actactan_rulaje]) + + ENDPROC + + PROCEDURE DblClick + This.cmdCompletareCodTaxaPlata.Visible = .T. + ENDPROC + + PROCEDURE do_verifica_balanta + Thisform.oParent.do_verifica_balanta() + ENDPROC + + PROCEDURE do_verifica_cui + LPARAMETERS tcCursor + + Thisform.oParent.do_verifica_cui(m.tcCursor) + ENDPROC + + PROCEDURE do_verifica_plati + Thisform.oParent.do_verifica_plati() + ENDPROC + + PROCEDURE inainte_de_do_modifica + LPARAMETERS tcTip + SET STEP ON + lcTip = LOWER(m.tcTip) + DO case + CASE m.lcTip = 'ccustomers' + IF !EMPTY(NVL(ccustomers.id_part,0)) + loRec = nom_parteneri_modifica(ccustomers.id_part) + ENDIF + CASE m.lcTip = 'csuppliers' + IF !EMPTY(NVL(csuppliers.id_part,0)) + loRec = nom_parteneri_modifica(csuppliers.id_part) + ENDIF + CASE m.lcTip = 'cgeneralledgerentries' + IF !EMPTY(NVL(cgeneralledgerentries.id_part,0)) + loRec = nom_parteneri_modifica(cgeneralledgerentries.id_part) + ENDIF + CASE m.lcTip = 'csalesinvoices' + IF !EMPTY(NVL(csalesinvoices.id_part,0)) + loRec = nom_parteneri_modifica(csalesinvoices.id_part) + ENDIF + CASE m.lcTip = 'cpurchaseinvoices' + IF !EMPTY(NVL(cpurchaseinvoices.id_part,0)) + loRec = nom_parteneri_modifica(cpurchaseinvoices.id_part) + ENDIF + CASE m.lcTip = 'cpayments' + IF !EMPTY(NVL(cpayments.id_part,0)) + loRec = nom_parteneri_modifica(cpayments.id_part) + ENDIF + CASE m.lcTip = 'csalesinvoiceslines' + IF !EMPTY(NVL(csalesinvoices.id_fact,0)) + this.pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.page1.gSalesInvoicesLines.ReadOnly = .F. + this.pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.page1.but_sterge1.Visible = .T. + this.pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.page1.gSalesInvoicesLines.SetFocus() + AMESSAGEBOX('Puteti modifica sau sterge linii din factura curenta',0+64,_Screen.Caption) + ENDIF + CASE m.lcTip = 'cpurchaseinvoiceslines' + IF !EMPTY(NVL(cpurchaseinvoices.id_fact,0)) + this.pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.page2.gPurchaseInvoicesLines.ReadOnly = .F. + this.pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.page2.but_sterge1.Visible = .T. + this.pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.page2.gPurchaseInvoicesLines.SetFocus() + AMESSAGEBOX('Puteti modifica sau sterge linii din factura curenta',0+64,_Screen.Caption) + ENDIF + CASE m.lcTip = 'cproducts' + IF !EMPTY(NVL(cproducts.id_articol,0)) + loRec = nom_articole_modifica(cproducts.id_articol) + ENDIF + ENDCASE + + ENDPROC + + PROCEDURE inainte_de_do_sterge + LPARAMETERS tcTip + + lcTip = LOWER(m.tcTip) + DO case + CASE m.lcTip = 'csalesinvoiceslines' + IF !EMPTY(NVL(csalesinvoiceslines.id_fact,0)) + SELECT csalesinvoiceslines + DELETE + TRY + SKIP + ENDTRY + this.pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.page1.gsalesInvoicesLines.Refresh() + ENDIF + CASE m.lcTip = 'cpurchaseinvoiceslines' + IF !EMPTY(NVL(cpurchaseinvoiceslines.id_fact,0)) + SELECT cpurchaseinvoiceslines + DELETE + TRY + SKIP + ENDTRY + this.pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.page2.gPurchaseInvoicesLines.Refresh() + ENDIF + ENDCASE + + ENDPROC + + PROCEDURE Init + + This.RefreshModules(.T.) + Thisform.RefreshPerioada() + + thisform.pgfSAFT.page2.pgfMaster.page1.gridextra1.setup() && Accounts + thisform.pgfSAFT.page2.pgfMaster.page2.gridextra1.setup() && Customers + thisform.pgfSAFT.page2.pgfMaster.pgfurnizori.gridextra1.setup() && Suppliers + thisform.pgfSAFT.page2.pgfMaster.pgTipAnalize.gridextra1.setup() && AnalysisType + thisform.pgfSAFT.page2.pgfMaster.pgTaxe.gridextra1.setup() && TaxTable + thisform.pgfSAFT.page2.pgfMaster.pgTipMiscari.gridextra1.setup() + thisform.pgfSAFT.page2.pgfMaster.pgUOM.gridextra1.setup() + thisform.pgfSAFT.page2.pgfMaster.pgProduse.gridextra1.setup() + thisform.pgfSAFT.page2.pgfMaster.pgProprietari.gridextra1.setup() + thisform.pgfSAFT.page2.pgfMaster.pgStocuri.gridextra1.setup() + thisform.pgfSAFT.page2.pgfMaster.pgActive.gridextra1.setup() + thisform.pgfSAFT.page2.pgfMaster.pgActive.gridextra2.setup() + + thisform.pgfSAFT.page3.gridextra1.setup() && GeneralLedgerEntries + + thisform.pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gridextra1.setup() && Payments + thisform.pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.page1.gridextra1.setup() && SalesInvoices + thisform.pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.page2.gridextra1.setup() && PurchaseInvoices + thisform.pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gridextra1.setup() && MovementOfGoods + thisform.pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gridextra1.setup() && AssetTransactions + + + *GeneralEntriesLedger + thisform.pgfSAFT.page3.gGeneralLedgerEntries.SetAll("DynamicBackColor","IIF(cgeneralledgerentries.cod=Thisform.nCod, RGB(200,200,225), RGB(255,255,255))", "Column") + + * MovementOfGoods + thisform.pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods.SetAll("DynamicBackColor","IIF(cMovementOfGoods.cod=Thisform.nCod, RGB(200,200,225), RGB(255,255,255))", "Column") + + + * AssetTransactions + thisform.pgfSAFT.page2.pgfMaster.pgActive.gAssetTransactions.SetAll("DynamicBackColor","IIF(cAssetTransactions.id_mf=Thisform.nIdMf, RGB(200,200,225), RGB(255,255,255))", "Column") + + DODEFAULT() + ENDPROC + + PROCEDURE Load + This.CreeazaCursoare() + + CREATE CURSOR cCustSupType (; + descriere C(50), ; + id N(4)) + INSERT INTO cCustSupType (descriere, id) VALUES ('Toti clientii si furnizorii', 9999) + IF m.gnAn >= 2022 + INSERT INTO cCustSupType (descriere, id) VALUES ('Clientii si furnizorii incepand cu anul 2020', 2020) + INSERT INTO cCustSupType (descriere, id) VALUES ('Clientii si furnizorii incepand cu anul 2021', 2021) + INSERT INTO cCustSupType (descriere, id) VALUES ('Clientii si furnizorii incepand cu anul 2022', 2022) + ENDIF + IF m.gnAn >= 2023 + INSERT INTO cCustSupType (descriere, id) VALUES ('Clientii si furnizorii incepand cu anul 2023', 2023) + ENDIF + IF m.gnAn >= 2024 + INSERT INTO cCustSupType (descriere, id) VALUES ('Clientii si furnizorii incepand cu anul 2024', 2024) + ENDIF + IF m.gnAn >= 2025 + INSERT INTO cCustSupType (descriere, id) VALUES ('Clientii si furnizorii incepand cu anul 2025', 2025) + ENDIF + ENDPROC + + PROCEDURE refreshact + Lparameters tcTip + * Actualizez notele contabile asociate inregistrarii din cGeneralLedgerEntries + + Local lcSql, lcTip, llSucces, lnAn, lnCod, lnLuna + lcTip = Alltrim(Lower(m.tcTip)) + + Do Case + Case m.lcTip = 'cgeneralledgerentries' + Select cGeneralLedgerEntries + lnCod = cod + lnAn = an + lnLuna = luna + lcCursor = 'actactan' + Case m.lcTip = 'cpayments' + Select cPayments + lnCod = Nvl(cod,0) + lnAn = an + lnLuna = luna + lcCursor = 'actactan_plati' + Case m.lcTip = 'csalesinvoices' + Select csalesinvoices + lnCod = cod + lnAn = an + lnLuna = luna + lcCursor = 'actactan_facturiv' + Case m.lcTip = 'cpurchaseinvoices' + Select cpurchaseinvoices + lnCod = cod + lnAn = an + lnLuna = luna + lcCursor = 'actactan_facturia' + Case m.lcTip = 'cmovementofgoods' + Select cMovementOfGoods + lnCod = Nvl(cod,0) + lnAn = an + lnLuna = luna + lcCursor = 'actactan_rulaje' + + Endcase + + If Empty(m.lnCod) + Return + Endif + + TEXT To lcSql Textmerge Noshow + select * from vact_tot where sters = 0 AND an = <> and luna = <> and cod = <> order by id_act + ENDTEXT + + Do Case + Case m.lcTip = 'cgeneralledgerentries' + save_grid_tag(Thisform.pgfSAFT.page3.grdAct) + Case m.lcTip = 'cpayments' + save_grid_tag(Thisform.pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct) + Case m.lcTip = 'csalesinvoices' + save_grid_tag(Thisform.pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.page1.grdAct) + Case m.lcTip = 'cpurchaseinvoices' + save_grid_tag(Thisform.pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.page2.grdAct) + Case m.lcTip = 'cmovementofgoods' + save_grid_tag(Thisform.pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct) + Endcase + + + llSucces = goExecutor.oExecuta(lcSql, lcCursor) + + Do Case + Case m.lcTip = 'cgeneralledgerentries' + restore_grid_tag(Thisform.pgfSAFT.page3.grdAct) + Thisform.pgfSAFT.page3.grdAct.Refresh() + Case m.lcTip = 'cpayments' + restore_grid_tag(Thisform.pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct) + Thisform.pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct.Refresh() + Case m.lcTip = 'csalesinvoices' + restore_grid_tag(Thisform.pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.page1.grdAct) + Thisform.pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.page1.grdAct.Refresh() + Case m.lcTip = 'cpurchaseinvoices' + restore_grid_tag(Thisform.pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.page2.grdAct) + Thisform.pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.page2.grdAct.Refresh() + Case m.lcTip = 'cmovementofgoods' + restore_grid_tag(Thisform.pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct) + Thisform.pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct.Refresh() + Endcase + + ENDPROC + + PROCEDURE refreshmodules + LPARAMETERS tlTip + * tlTip - .T. daca se alege tipul declaratiei, sa se bifeze si sectiunile + + Local llGeneralLedgerEntries, llMasterFiles, llSourceDocuments + Local lcTipDescriere, llAnual, llCerere + + lcTipDescriere = poUnitate.TipDescriere + llAnual = (m.lcTipDescriere = 'ANUAL') + llCerere = (m.lcTipDescriere = 'CERERE') + llLunar = !(m.llAnual or m.llCerere) + + poUnitate.Tip = Iif(lcTipDescriere = 'LUNAR', 'L', Iif(lcTipDescriere = 'TRIMESTRIAL', 'T', Iif(lcTipDescriere = 'ANUAL', 'A', Iif(lcTipDescriere = 'CERERE', 'C', 'L')))) + IF TYPE('Thisform.oParent.Tip') = 'C' + Thisform.oParent.Tip = poUnitate.Tip + ENDIF + + With This.pgfSAFT.page1 + IF m.tlTip + .chkMasterFiles.Value = m.llLunar or m.llAnual or m.llCerere + .chkGeneralLedgerEntries.Value = m.llLunar + .chkSourceDocuments.Value = m.llLunar or m.llAnual or m.llCerere + ENDIF + + llMasterFiles = .chkMasterFiles.Value + llGeneralLedgerEntries = .chkGeneralLedgerEntries.Value + llSourceDocuments = .chkSourceDocuments.Value + + * Bifa + .chkGeneralLedgerAccounts.Value = m.llMasterFiles and (m.llCerere or m.llLunar or m.llAnual) + .chkCustomers.Value = m.llMasterFiles and (m.llLunar) + .chkSuppliers.Value = m.llMasterFiles and (m.llLunar) + .chkTaxTable.Value = m.llMasterFiles and (m.llCerere or m.llLunar) + .chkUOMTable.Value = m.llMasterFiles and (m.llCerere or m.llLunar) + .chkAnalysisTypeTable.Value = m.llMasterFiles and (m.llCerere or m.llLunar or m.llAnual) + .chkMovementTypeTable.Value = m.llMasterFiles and (m.llCerere) + .chkProducts.Value = m.llMasterFiles and (m.llCerere or m.llLunar) + .chkPhysicalStock.Value = m.llMasterFiles and m.llCerere + .chkOwners.Value = m.llMasterFiles and m.llCerere + .chkAssets.Value = m.llMasterFiles and m.llAnual + + .chkSalesInvoices.Value = m.llSourceDocuments and m.llLunar + .chkPurchaseInvoices.Value = m.llSourceDocuments and m.llLunar + .chkPayments.Value = m.llSourceDocuments and m.llLunar + .chkMovementofGoods.Value = m.llSourceDocuments And m.llCerere + .chkAssetTransactions.Value = m.llSourceDocuments And m.llAnual + + * FontBold + .chkMasterFiles.FontBold = .chkMasterFiles.value + .chkGeneralLedgerEntries.FontBold = .chkGeneralLedgerEntries.Value + .chkSourceDocuments.FontBold = .chkSourceDocuments.Value + + .chkGeneralLedgerAccounts.FontBold = .chkGeneralLedgerAccounts.Value + .chkCustomers.FontBold = .chkCustomers.Value + .chkSuppliers.FontBold = .chkSuppliers.Value + .chkTaxTable.FontBold = .chkTaxTable.Value + .chkUOMTable.FontBold = .chkUOMTable.Value + .chkAnalysisTypeTable.FontBold = .chkAnalysisTypeTable.Value + .chkMovementTypeTable.FontBold = .chkMovementTypeTable.Value + .chkProducts.FontBold = .chkProducts.Value + .chkPhysicalStock.FontBold = .chkPhysicalStock.Value + .chkOwners.FontBold = .chkOwners.Value + .chkAssets.FontBold = .chkAssets.Value + + .chkSalesInvoices.FontBold = .chkSalesInvoices.Value + .chkPurchaseInvoices.FontBold = .chkPurchaseInvoices.Value + .chkPayments.FontBold = .chkPayments.Value + .chkMovementofGoods.FontBold = .chkMovementofGoods.Value + .chkAssetTransactions.FontBold = .chkAssetTransactions.Value + + Endwith + + * Dezactivez butoanele Verificare si Generare XML. Se activeaza dupa ce se citesc din nou datele + Thisform.cmdVerificare.Enabled = .F. + Thisform.cmdGenerareXml.Enabled = .F. + + This.pgfSAFT.page1.Refresh() + ENDPROC + + PROCEDURE refreshperioada + Local lcTipDescriere, lnAn1, lnAn2, lnLuna1, lnLuna2, lnNumarLuni, lnPerioada + lcTipDescriere = poUnitate.TipDescriere + lnNumarLuni = Iif(m.lcTipDescriere = "TRIMESTRIAL", 3, Iif(m.lcTipDescriere = "ANUAL", 12, 1)) + * Luna de inceput a perioadei + * 1 = gnLuna + * 3 = 1,4,7,10 + * 6 = 1,7 + * 12 = 1 + lnAn1 = m.gnAn + lnAn2 = m.gnAn + lnPerioada = Ceil(m.gnLuna / m.lnNumarLuni) + lnLuna1 = (lnPerioada - 1) * lnNumarLuni + 1 + lnLuna2 = lnPerioada * lnNumarLuni + IF m.lnLuna2 > m.gnLuna + lnLuna2 = m.gnLuna + ENDIF + This.pgfSAFT.page1.caut_anluna1.initializare_anluna(m.lnAn1, m.lnLuna1) + This.pgfSAFT.page1.caut_anluna2.initializare_anluna(m.lnAn2, m.lnLuna2) + + ENDPROC + + PROCEDURE restaureazagriduri + restore_grid_tag(thisform.pgfSAFT.page2.pgfMaster.page1.gGeneralLedgerAccounts) && cLedgerAccounts + restore_grid_tag(thisform.pgfSAFT.page3.gGeneralLedgerEntries) + *restore_grid_tag(thisform.pgfSAFT.page3.grdAct) + restore_grid_tag(thisform.pgfSAFT.page2.pgfMaster.page2.gCustomers) + restore_grid_tag(thisform.pgfSAFT.page2.pgfMaster.pgfurnizori.gSuppliers) + restore_grid_tag(thisform.pgfSAFT.page2.pgfMaster.pgTipAnalize.gAnalysisTypeTable) + restore_grid_tag(thisform.pgfSAFT.page2.pgfMaster.pgTaxe.gTaxTable) + restore_grid_tag(thisform.pgfSAFT.page2.pgfMaster.pgTipMiscari.gMovementTypeTable) + restore_grid_tag(thisform.pgfSAFT.page2.pgfMaster.pgUOM.gUOMTable) + restore_grid_tag(thisform.pgfSAFT.page2.pgfMaster.pgProduse.gProducts) + restore_grid_tag(thisform.pgfSAFT.page2.pgfMaster.pgProprietari.gOwners) + restore_grid_tag(thisform.pgfSAFT.page2.pgfMaster.pgStocuri.gPhysicalStock) + restore_grid_tag(thisform.pgfSAFT.page2.pgfMaster.pgActive.gAssets) + restore_grid_tag(thisform.pgfSAFT.page2.pgfMaster.pgActive.gAssetTransactions) + + restore_grid_tag(thisform.pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments) + *restore_grid_tag(thisform.pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct) + restore_grid_tag(thisform.pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.page1.gSalesInvoices) + *restore_grid_tag(thisform.pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.page1.grdAct) + restore_grid_tag(thisform.pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.page1.gSalesInvoicesLines) + restore_grid_tag(thisform.pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.page2.gPurchaseInvoices) + *restore_grid_tag(thisform.pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.page2.grdAct) + restore_grid_tag(thisform.pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.page2.gPurchaseInvoicesLines) + restore_grid_tag(thisform.pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods) + restore_grid_tag(thisform.pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions) + + *restore_grid_tag(thisform.pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct) + ENDPROC + + PROCEDURE salveazagriduri + save_grid_tag(thisform.pgfSAFT.page2.pgfMaster.page1.gGeneralLedgerAccounts) && cLedgerAccounts + save_grid_tag(thisform.pgfSAFT.page3.gGeneralLedgerEntries) + *save_grid_tag(thisform.pgfSAFT.page3.grdAct) + save_grid_tag(thisform.pgfSAFT.page2.pgfMaster.page2.gCustomers) + save_grid_tag(thisform.pgfSAFT.page2.pgfMaster.pgfurnizori.gSuppliers) + save_grid_tag(thisform.pgfSAFT.page2.pgfMaster.pgTipAnalize.gAnalysisTypeTable) + save_grid_tag(thisform.pgfSAFT.page2.pgfMaster.pgTaxe.gTaxTable) + save_grid_tag(thisform.pgfSAFT.page2.pgfMaster.pgTipMiscari.gMovementTypeTable) + save_grid_tag(thisform.pgfSAFT.page2.pgfMaster.pgUOM.gUOMTable) + save_grid_tag(thisform.pgfSAFT.page2.pgfMaster.pgProduse.gProducts) + save_grid_tag(thisform.pgfSAFT.page2.pgfMaster.pgProprietari.gOwners) + save_grid_tag(thisform.pgfSAFT.page2.pgfMaster.pgStocuri.gPhysicalStock) + save_grid_tag(thisform.pgfSAFT.page2.pgfMaster.pgActive.gAssets) + save_grid_tag(thisform.pgfSAFT.page2.pgfMaster.pgActive.gAssetTransactions) + + save_grid_tag(thisform.pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.gPayments) + *save_grid_tag(thisform.pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgPlati.grdAct) + save_grid_tag(thisform.pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.page1.gSalesInvoices) + *save_grid_tag(thisform.pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.page1.grdAct) + save_grid_tag(thisform.pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.page1.gSalesInvoicesLines) + save_grid_tag(thisform.pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.page2.gPurchaseInvoices) + *save_grid_tag(thisform.pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.page2.grdAct) + save_grid_tag(thisform.pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.page2.gPurchaseInvoicesLines) + save_grid_tag(thisform.pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.gMovementOfGoods) + save_grid_tag(thisform.pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions) + *save_grid_tag(thisform.pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgMiscariBunuri.grdAct) + ENDPROC + + PROCEDURE Show + LPARAMETERS nStyle + + * Assets + thisform.pgfSAFT.page2.pgfMaster.pgActive.gAssets.HeaderHeight = 54 + thisform.pgfSAFT.page2.pgfMaster.pgActive.GAssetTransactions.HeaderHeight = 38 + thisform.pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.pgTranzactiiActive.gAssetTransactions.HeaderHeight = 38 + + DODEFAULT(nStyle) + ENDPROC + + PROCEDURE But_excel1.Click + LOCAL laFisiere[30] + Local lcAlias, lcDirector, lcFilter, lcFisier, lcListaColoane, lcSelect, llHead, llMemoAsComment + Local llOpen, lnCodePage, lnFisier, lnMaxIndexLen + lcSelect = SELECT() + lcDirector = GETDIR('c:\', 'Director','Director export', 64) + If Empty(lcDirector) && Esc pressed + Return + ENDIF + lcDirector = ADDBS(m.lcDirector) + + llHead = .T. + lnMaxIndexLen = 60 + llMemoAsComment = .F. + lnCodePage = 0 + llOpen = .F. + lcListaColoane = .F. + + laFisiere[1] = 'cGeneralLedgerAccounts' + laFisiere[2] = 'cGeneralLedgerEntries' + laFisiere[3] = 'cCustomers' + laFisiere[4] = 'cSuppliers' + laFisiere[5] = 'cAnalysisTypeTable' + laFisiere[6] = 'cPayments' + laFisiere[7] = 'cSalesInvoices' + laFisiere[8] = 'cSalesInvoicesLines' + laFisiere[9] = 'cSalesInvoicesLinesFull' + laFisiere[10] = 'cPurchaseInvoices' + laFisiere[11] = 'cPurchaseInvoicesLines' + laFisiere[12] = 'cPurchaseInvoicesLinesFull' + laFisiere[13] = 'cTaxTable' + laFisiere[14] = 'cMovementTypeTable' + laFisiere[15] = 'cUOMTable' + laFisiere[16] = 'cProducts' + laFisiere[17] = 'cPhysicalStock' + laFisiere[18] = 'cMovementOfGoods' + laFisiere[18] = 'cAssets' + + SELECT i.*, l.* FROM cSalesInvoices i JOIN cSalesInvoicesLines l ON i.id_fact = l.id_fact INTO CURSOR cSalesInvoicesLinesFull + SELECT i.*, l.* FROM cPurchaseInvoices i JOIN cPurchaseInvoicesLines l ON i.id_fact = l.id_fact INTO CURSOR cPurchaseInvoicesLinesFull + + FOR lnFisier = 1 TO ALEN(laFisiere) + lcAlias = laFisiere[m.lnFisier] + + IF EMPTY(m.lcAlias) + LOOP + ENDIF + + WAIT WINDOW ALLTRIM(STR(m.lnFisier)) + '/' + ALLTRIM(STR(ALEN(laFisiere))) + ' ' + m.lcAlias + ' ...' NOWAIT + + lcFisier = m.lcDirector + 'saft_export_' + ALLTRIM(STR(m.gnAn)) + '_' + PADL(m.gnLuna,2,'0') + '_' + m.lcAlias + '.xlsx' + + lcFilter = FILTER(m.lcAlias) + SET FILTER TO IN (m.lcAlias) + copytoxlsx (m.lcAlias, m.lcFisier, m.llHead, m.lnMaxIndexLen, m.lcListaColoane, m.llMemoAsComment, m.lnCodePage, m.llOpen) + SET FILTER TO &lcFilter IN (m.lcAlias) + ENDFOR + + USE IN (SELECT('cSalesInvoicesLinesFull')) + USE IN (SELECT('cPurchaseInvoicesLinesFull')) + + AMESSAGEBOX('Exportul s-a incheiat',0+64,_Screen.Caption) + OPEN_DEFAULT_APP(m.lcDirector) + SELECT (m.lcSelect) + ENDPROC + + PROCEDURE But_help1.Click + Local lcURL, lnOptiune + lnOptiune = xmenu('Descarca ghid ROA SAFT;Descarca nomenclator coduri ANAF;Descarca Intrebari si raspunsuri ANAF') + IF EMPTY(m.lnOptiune) + RETURN + ENDIF + DO case + CASE m.lnOptiune = 1 + lcURL = 'https://www.romfast.ro/romfastsuport/files/ghid_roa_saft.pdf' + CASE m.lnOptiune = 2 + lcURL = 'https://www.romfast.ro/romfastsuport/files/schema_saft.xlsx' + CASE m.lnOptiune = 3 + lcURL = 'https://www.romfast.ro/romfastsuport/files/intrebari_raspunsuri_saft.pdf' + ENDCASE + open_default_app(m.lcURL) + ENDPROC + + PROCEDURE cmdCitesteDate.Click + Local llSucces + poUnitate.luna1 = thisform.pgfSAFT.page1.caut_anluna1.nluna + poUnitate.an1 = thisform.pgfSAFT.page1.caut_anluna1.nan + poUnitate.luna2 = thisform.pgfSAFT.page1.caut_anluna2.nluna + poUnitate.an2 = thisform.pgfSAFT.page1.caut_anluna2.nan + + ThisForm.SalveazaGriduri() + + * Recreez toate cursoarele, in caza ca a mai fost apasat butonul Citeste date, sa nu ramana cu date din alte sesiuni + ThisForm.CreeazaCursoare() + + llSucces = Thisform.oParent.CitesteDate() + + ThisForm.RestaureazaGriduri() + + Thisform.cmdVerificare.Enabled = .T. + Thisform.cmdGenerareXml.Enabled = .T. + + + * Conturi contabile + thisform.pgfSAFT.page2.pgfMaster.page1._grdfooter1.attachtogrid(thisform.pgfSAFT.page2.pgfMaster.page1.gGeneralLedgerAccounts) && Conturi contabile (balanta verificare) + thisform.pgfSAFT.page2.pgfMaster.page1._grdfooter1.calctotal() + thisform.pgfSAFT.page2.pgfMaster.page1.gGeneralLedgerAccounts.AutoFit() + + * Stocuri + thisform.pgfSAFT.page2.pgfMaster.pgStocuri._grdfooter1.attachtogrid(thisform.pgfSAFT.page2.pgfMaster.pgStocuri.gPhysicalStock) && Stocuri + thisform.pgfSAFT.page2.pgfMaster.pgStocuri._grdfooter1.calctotal() + thisform.pgfSAFT.page2.pgfMaster.pgStocuri.gPhysicalStock.AutoFit() + + * Invoices + SET FILTER TO id_fact = cSalesInvoices.id_fact IN cSalesInvoicesLines + SET FILTER TO id_fact = cPurchaseInvoices.id_fact IN cPurchaseInvoicesLines + + * Assets + thisform.pgfSAFT.page2.pgfMaster.pgactive._grdfooter1.attachtogrid(thisform.pgfSAFT.page2.pgfMaster.pgActive.gAssets) && Conturi contabile (balanta verificare) + thisform.pgfSAFT.page2.pgfMaster.pgactive._grdfooter1.calctotal() + thisform.pgfSAFT.page2.pgfMaster.pgActive.gAssets.AutoFit() + + GO TOP IN cGeneralLedgerAccounts + GO TOP IN cGeneralLedgerEntries + GO TOP IN cCustomers + GO TOP IN cSuppliers + GO TOP IN cPayments + GO TOP IN cSalesInvoices + GO TOP IN cPurchaseInvoices + GO TOP IN cSalesInvoicesLines + GO TOP IN cPurchaseInvoicesLines + + thisform.pgfSAFT.page2.pgfMaster.page2.Refresh() + thisform.pgfSAFT.page2.pgfMaster.pgFurnizori.Refresh() + + thisform.pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.page1.gSalesInvoices.AutoFit + thisform.pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.page1.gSalesInvoicesLines.AutoFit + thisform.pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.page2.gPurchaseInvoices.AutoFit + thisform.pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa.page2.gPurchaseInvoicesLines.AutoFit + ENDPROC + + PROCEDURE cmdCompletareCodTaxaPlata.Click + poUnitate.luna1 = thisform.pgfSAFT.page1.caut_anluna1.nluna + poUnitate.an1 = thisform.pgfSAFT.page1.caut_anluna1.nan + poUnitate.luna2 = thisform.pgfSAFT.page1.caut_anluna2.nluna + poUnitate.an2 = thisform.pgfSAFT.page1.caut_anluna2.nan + + llSucces = Thisform.oParent.CompletareCodTaxaPlata() + + ENDPROC + + PROCEDURE cmdGenerareXml.Click + LOCAL lnOptiune, llTest + lnOptiune = xmenu('\ + + * + DataSource = .NULL. + Height = 519 + Left = 1 + Name = "Dataenvironment" + Top = 220 + Width = 934 + * + +ENDDEFINE diff --git a/Ferestre/frm_import_extrase_banca.sc2 b/Ferestre/frm_import_extrase_banca.sc2 new file mode 100644 index 0000000..bb2375b --- /dev/null +++ b/Ferestre/frm_import_extrase_banca.sc2 @@ -0,0 +1,2802 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="frm_import_extrase_banca.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +#INCLUDE "comun.h" + +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="Shape3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Shape4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConturi" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConturi.cIBAN.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConturi.cIBAN.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConturi.cCodFiscal.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConturi.cCodFiscal.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConturi.cTip.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConturi.cTip.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConturi.cCont.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConturi.cCont.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConturi.cAcont.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConturi.cAcont.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConturi.cExtensie.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConturi.cExtensie.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConturi.cCreeazaParteneri.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConturi.cCreeazaParteneri.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConturi.cCreeazaParteneri._checkbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConturi.cFactura.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConturi.cFactura.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConturi.cFactura._checkbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConturi.cComanda.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConturi.cComanda.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConturi.cComanda._checkbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConturi.cAles.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConturi.cAles.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConturi.cAles._checkbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConturi.cDenumire.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConturi.cDenumire.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConturi.cDataOra.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConturi.cDataOra.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConfigurareConturi" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConfigurareConturi.cCodFiscal.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConfigurareConturi.cCodFiscal.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConfigurareConturi.cCont.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConfigurareConturi.cCont.Text1a" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConfigurareConturi.cAcont.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConfigurareConturi.cAcont.Text1a" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConfigurareConturi.cDenumire.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConfigurareConturi.cDenumire.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cmdImport" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cmdGenereazaNote" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cmdSterge" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdExtrase" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdExtrase.cData.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdExtrase.cData.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdExtrase.cCodFiscal.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdExtrase.cCodFiscal.Text1a" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdExtrase.cNr.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdExtrase.cNr.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdExtrase.cDenumire.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdExtrase.cDenumire.Text1a" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdExtrase.cIBAN.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdExtrase.cIBAN.Text1a" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdExtrase.cDocumente.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdExtrase.cDocumente.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdExtrase.cExplicatie.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdExtrase.cExplicatie.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdExtrase.cSuma.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdExtrase.cSuma.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdExtrase.cTip.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdExtrase.cTip.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdExtrase.cTip2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdExtrase.cTip2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdExtrase.cComenzi.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdExtrase.cComenzi.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtData1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtData2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_help1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridextra2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridextra3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtIncasari" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtPlati" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lblIncasari" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lblPlati" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtExtras" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtOP" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConfigurareExplicatii" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConfigurareExplicatii.cCodFiscal.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConfigurareExplicatii.cCodFiscal.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConfigurareExplicatii.cCont.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConfigurareExplicatii.cCont.Text1a" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConfigurareExplicatii.cAcont.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConfigurareExplicatii.cAcont.Text1a" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConfigurareExplicatii.cDenumire.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConfigurareExplicatii.cDenumire.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConfigurareExplicatii.cExplicatie.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConfigurareExplicatii.cExplicatie.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtData" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" /> + + * + *m: cauta_fdoc + *m: completeazaclientiroa + *m: connectroa + *m: creeazanote + *m: disconnectroa + *m: exportdate + *m: getidpart + *m: loadsettings + *m: modificanote + *m: prelucreazafisierebreeze + *m: refreshconfigurari + *m: savesettings + *m: scrienote + *m: sql_temp_insert + *m: sql_temp_insert_values + *m: sterge_import + *m: templatexlsx + *m: trace + *m: verificaimport + *p: cfdocextras + *p: cfdocop + *p: lcontafin && Formularul se apeleaza din Contafin sau din ROA + *p: nidfdocextras + *p: nidfdocop + *p: _memberdata && XML Metadata for customizable properties + * + + * + Caption = "Import extrase bancare, deconturi curieri, procesatori plati" + cfdocextras = + cfdocop = + DoCreate = .T. + Height = 457 + Icon = ..\comun\grafice\note.ico + lcontafin = .F. + Left = 0 + MaxButton = .T. + MinButton = .F. + Name = "Form1" + nidfdocextras = 0 + nidfdocop = 0 + ShowWindow = 0 + Top = 0 + Width = 890 + WindowState = 2 + WindowType = 1 + _memberdata = + + + + + + + + + + + + + * + + ADD OBJECT 'But_help1' AS but_help WITH ; + Anchor = 0, ; + Left = 361, ; + Name = "But_help1", ; + TabIndex = 26, ; + Top = 22 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_nou1' AS but_nou WITH ; + Anchor = 8, ; + Left = 810, ; + Name = "But_nou1", ; + TabIndex = 18, ; + ToolTipText = "Alegeti contul care se completeaza la import pe un partener/cod fiscal", ; + Top = 66 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_nou2' AS but_nou WITH ; + Anchor = 8, ; + Left = 809, ; + Name = "But_nou2", ; + TabIndex = 19, ; + ToolTipText = "Alegeti partenerul si contul care se completeaza la import pe o explicatie", ; + Top = 191 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge1' AS but_sterge WITH ; + Anchor = 8, ; + Left = 438, ; + Name = "But_sterge1", ; + TabIndex = 12, ; + Top = 66, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge2' AS but_sterge WITH ; + Anchor = 8, ; + Left = 842, ; + Name = "But_sterge2", ; + TabIndex = 20, ; + Top = 65, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge3' AS but_sterge WITH ; + Anchor = 8, ; + Left = 841, ; + Name = "But_sterge3", ; + TabIndex = 21, ; + Top = 190, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'cmdGenereazaNote' AS commandbutton WITH ; + Anchor = 8, ; + AutoSize = .F., ; + Caption = "\ + + ADD OBJECT 'cmdImport' AS commandbutton WITH ; + Anchor = 8, ; + AutoSize = .F., ; + Caption = "\ + + ADD OBJECT 'cmdSterge' AS commandbutton WITH ; + Anchor = 8, ; + AutoSize = .F., ; + Caption = "\ + + ADD OBJECT 'grdConfigurareConturi' AS grid WITH ; + Anchor = 8, ; + ColumnCount = 4, ; + DeleteMark = .F., ; + Height = 92, ; + HighlightStyle = 2, ; + Left = 480, ; + Name = "grdConfigurareConturi", ; + Panel = 1, ; + RecordSource = "cConfigConturi", ; + TabIndex = 16, ; + Top = 94, ; + Width = 392, ; + Column1.ColumnOrder = 2, ; + Column1.ControlSource = "cod_fiscal", ; + Column1.Name = "cCodFiscal", ; + Column1.ReadOnly = .T., ; + Column1.Width = 97, ; + Column2.BackColor = 190,225,255, ; + Column2.ColumnOrder = 3, ; + Column2.ControlSource = "cont", ; + Column2.Name = "cCont", ; + Column2.ToolTipText = "DblClick pentru modificare", ; + Column2.Width = 55, ; + Column3.BackColor = 190,225,255, ; + Column3.ColumnOrder = 4, ; + Column3.ControlSource = "acont", ; + Column3.Name = "cAcont", ; + Column3.ToolTipText = "DblCLick pentru modificare", ; + Column3.Width = 51, ; + Column4.ColumnOrder = 1, ; + Column4.ControlSource = "denumire", ; + Column4.Name = "cDenumire", ; + Column4.ReadOnly = .T., ; + Column4.ToolTipText = "Dublu click pentru editare", ; + Column4.Width = 152 + *< END OBJECT: BaseClass="grid" /> + + ADD OBJECT 'grdConfigurareConturi.cAcont.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Acont", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdConfigurareConturi.cAcont.Text1a' AS textbox WITH ; + BackColor = 190,225,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1a" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdConfigurareConturi.cCodFiscal.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod fiscal", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdConfigurareConturi.cCodFiscal.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdConfigurareConturi.cCont.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdConfigurareConturi.cCont.Text1a' AS textbox WITH ; + BackColor = 190,225,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1a" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdConfigurareConturi.cDenumire.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Partener", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdConfigurareConturi.cDenumire.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdConfigurareExplicatii' AS grid WITH ; + Anchor = 8, ; + ColumnCount = 5, ; + DeleteMark = .F., ; + Height = 92, ; + HighlightStyle = 2, ; + Left = 479, ; + Name = "grdConfigurareExplicatii", ; + Panel = 1, ; + RecordSource = "cConfigExplicatii", ; + TabIndex = 17, ; + Top = 219, ; + Width = 392, ; + Column1.ColumnOrder = 3, ; + Column1.ControlSource = "cod_fiscal", ; + Column1.Name = "cCodFiscal", ; + Column1.ReadOnly = .T., ; + Column1.Width = 73, ; + Column2.BackColor = 190,225,255, ; + Column2.ColumnOrder = 4, ; + Column2.ControlSource = "cont", ; + Column2.Name = "cCont", ; + Column2.ToolTipText = "DblClick pentru modificare", ; + Column2.Width = 55, ; + Column3.BackColor = 190,225,255, ; + Column3.ColumnOrder = 5, ; + Column3.ControlSource = "acont", ; + Column3.Name = "cAcont", ; + Column3.ToolTipText = "DblCLick pentru modificare", ; + Column3.Width = 51, ; + Column4.BackColor = 190,225,255, ; + Column4.ColumnOrder = 2, ; + Column4.ControlSource = "denumire", ; + Column4.Name = "cDenumire", ; + Column4.ReadOnly = .T., ; + Column4.Width = 117, ; + Column5.ColumnOrder = 1, ; + Column5.ControlSource = "explicatie", ; + Column5.Name = "cExplicatie", ; + Column5.ReadOnly = .T., ; + Column5.ToolTipText = "Dublu click pentru editare", ; + Column5.Width = 121 + *< END OBJECT: BaseClass="grid" /> + + ADD OBJECT 'grdConfigurareExplicatii.cAcont.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Acont", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdConfigurareExplicatii.cAcont.Text1a' AS textbox WITH ; + BackColor = 190,225,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1a" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdConfigurareExplicatii.cCodFiscal.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod fiscal", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdConfigurareExplicatii.cCodFiscal.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdConfigurareExplicatii.cCont.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdConfigurareExplicatii.cCont.Text1a' AS textbox WITH ; + BackColor = 190,225,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1a" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdConfigurareExplicatii.cDenumire.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Partener", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdConfigurareExplicatii.cDenumire.Text1' AS textbox WITH ; + BackColor = 190,225,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdConfigurareExplicatii.cExplicatie.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatie", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdConfigurareExplicatii.cExplicatie.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdConturi' AS grid WITH ; + Anchor = 11, ; + ColumnCount = 12, ; + DeleteMark = .F., ; + HeaderHeight = 30, ; + Height = 226, ; + HighlightStyle = 2, ; + Left = 9, ; + Name = "grdConturi", ; + Panel = 1, ; + RecordSource = "cConturi", ; + TabIndex = 11, ; + Top = 94, ; + Width = 459, ; + Column1.ColumnOrder = 3, ; + Column1.ControlSource = "iban", ; + Column1.Name = "cIBAN", ; + Column1.Width = 164, ; + Column2.ColumnOrder = 2, ; + Column2.ControlSource = "banca", ; + Column2.Name = "cCodFiscal", ; + Column2.Width = 159, ; + Column3.ColumnOrder = 5, ; + Column3.ControlSource = "tip", ; + Column3.Name = "cTip", ; + Column3.Width = 59, ; + Column4.BackColor = 190,225,255, ; + Column4.ColumnOrder = 7, ; + Column4.ControlSource = "cont", ; + Column4.Name = "cCont", ; + Column4.ToolTipText = "DblClick pentru modificare", ; + Column4.Width = 66, ; + Column5.BackColor = 190,225,255, ; + Column5.ColumnOrder = 8, ; + Column5.ControlSource = "acont", ; + Column5.Name = "cAcont", ; + Column5.ToolTipText = "DblClick pentru modificare", ; + Column5.Width = 63, ; + Column6.ColumnOrder = 6, ; + Column6.ControlSource = "extensie", ; + Column6.Name = "cExtensie", ; + Column6.Width = 51, ; + Column7.BackColor = 190,225,255, ; + Column7.ColumnOrder = 9, ; + Column7.ControlSource = "part_nou", ; + Column7.CurrentControl = "_checkbox1", ; + Column7.Name = "cCreeazaParteneri", ; + Column7.ReadOnly = .F., ; + Column7.Sparse = .F., ; + Column7.Width = 56, ; + Column8.BackColor = 190,225,255, ; + Column8.ColumnOrder = 10, ; + Column8.ControlSource = "factura", ; + Column8.CurrentControl = "_checkbox1", ; + Column8.Name = "cFactura", ; + Column8.Sparse = .F., ; + Column8.Width = 58, ; + Column9.BackColor = 190,225,255, ; + Column9.ColumnOrder = 11, ; + Column9.ControlSource = "comanda", ; + Column9.CurrentControl = "_checkbox1", ; + Column9.Name = "cComanda", ; + Column9.Sparse = .F., ; + Column9.Width = 58, ; + Column10.BackColor = 190,225,255, ; + Column10.ColumnOrder = 1, ; + Column10.ControlSource = "ales", ; + Column10.CurrentControl = "_checkbox1", ; + Column10.Name = "cAles", ; + Column10.Sparse = .F., ; + Column10.Width = 28, ; + Column11.BackColor = 190,225,255, ; + Column11.ColumnOrder = 4, ; + Column11.ControlSource = "denumire", ; + Column11.Name = "cDenumire", ; + Column11.ReadOnly = .T., ; + Column11.ToolTipText = "Dublu click pentru alegerea unui cont bancar", ; + Column11.Width = 153, ; + Column12.ControlSource = "dataora", ; + Column12.Name = "cDataOra", ; + Column12.ReadOnly = .T., ; + Column12.Width = 108 + *< END OBJECT: BaseClass="grid" /> + + ADD OBJECT 'grdConturi.cAcont.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Acont", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdConturi.cAcont.Text1' AS textbox WITH ; + BackColor = 190,225,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdConturi.cAles._checkbox1' AS _checkbox WITH ; + Alignment = 2, ; + Caption = "", ; + ControlSource = "ales", ; + Left = 16, ; + Name = "_checkbox1", ; + Top = 85 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'grdConturi.cAles.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Ales", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdConturi.cAles.Text1' AS textbox WITH ; + BackColor = 190,225,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdConturi.cCodFiscal.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Banca / Curier / Procesator plati", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdConturi.cCodFiscal.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdConturi.cComanda._checkbox1' AS _checkbox WITH ; + Alignment = 2, ; + Caption = "", ; + Left = 53, ; + Name = "_checkbox1", ; + Top = 73 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'grdConturi.cComanda.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Asociaza comenzi", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdConturi.cComanda.Text1' AS textbox WITH ; + BackColor = 190,225,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdConturi.cCont.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdConturi.cCont.Text1' AS textbox WITH ; + BackColor = 190,225,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdConturi.cCreeazaParteneri._checkbox1' AS _checkbox WITH ; + Alignment = 2, ; + Caption = "", ; + ControlSource = "part_nou", ; + Left = 13, ; + Name = "_checkbox1", ; + Top = 61 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'grdConturi.cCreeazaParteneri.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Creeaza parteneri", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdConturi.cCreeazaParteneri.Text1' AS textbox WITH ; + BackColor = 190,225,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdConturi.cDataOra.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data operare", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdConturi.cDataOra.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdConturi.cDenumire.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Partener ROA / Cont bancar", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdConturi.cDenumire.Text1' AS textbox WITH ; + BackColor = 190,225,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdConturi.cExtensie.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Extensie", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdConturi.cExtensie.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdConturi.cFactura._checkbox1' AS _checkbox WITH ; + Alignment = 2, ; + Caption = "", ; + Height = 12, ; + Left = 28, ; + Name = "_checkbox1", ; + Top = 49 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'grdConturi.cFactura.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Asociaza facturi", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdConturi.cFactura.Text1' AS textbox WITH ; + BackColor = 190,225,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdConturi.cIBAN.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "IBAN", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdConturi.cIBAN.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdConturi.cTip.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdConturi.cTip.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdExtrase' AS grid WITH ; + Anchor = 15, ; + ColumnCount = 11, ; + DeleteMark = .F., ; + Height = 68, ; + HighlightStyle = 2, ; + Left = 12, ; + Name = "grdExtrase", ; + Panel = 1, ; + ReadOnly = .T., ; + RecordSource = "cExtrase", ; + TabIndex = 10, ; + Top = 384, ; + Width = 862, ; + Column1.ColumnOrder = 2, ; + Column1.ControlSource = "data", ; + Column1.Name = "cData", ; + Column1.ReadOnly = .T., ; + Column1.Width = 73, ; + Column2.ColumnOrder = 6, ; + Column2.ControlSource = "cod_fiscal", ; + Column2.CurrentControl = "Text1a", ; + Column2.Format = "K", ; + Column2.Name = "cCodFiscal", ; + Column2.ReadOnly = .T., ; + Column2.Width = 143, ; + Column3.ColumnOrder = 1, ; + Column3.ControlSource = "nr", ; + Column3.Name = "cNr", ; + Column3.ReadOnly = .T., ; + Column3.Width = 98, ; + Column4.ColumnOrder = 5, ; + Column4.ControlSource = "denumire", ; + Column4.Name = "cDenumire", ; + Column4.ReadOnly = .T., ; + Column4.ToolTipText = "DblClick pentru modificare", ; + Column4.Width = 156, ; + Column5.ColumnOrder = 7, ; + Column5.ControlSource = "iban", ; + Column5.Format = "K", ; + Column5.Name = "cIBAN", ; + Column5.ReadOnly = .T., ; + Column5.Width = 196, ; + Column6.ColumnOrder = 8, ; + Column6.ControlSource = "documente", ; + Column6.Name = "cDocumente", ; + Column6.ReadOnly = .T., ; + Column6.Width = 129, ; + Column7.ColumnOrder = 10, ; + Column7.ControlSource = "explicatie", ; + Column7.Name = "cExplicatie", ; + Column7.ReadOnly = .T., ; + Column7.Width = 101, ; + Column8.ColumnOrder = 3, ; + Column8.ControlSource = "suma", ; + Column8.Format = "RK", ; + Column8.InputMask = "999 999 999.99", ; + Column8.Name = "cSuma", ; + Column8.ReadOnly = .T., ; + Column8.Width = 106, ; + Column9.ColumnOrder = 4, ; + Column9.ControlSource = "iif(tip = 'C', 'Incasare', 'Plata')", ; + Column9.Name = "cTip", ; + Column9.ReadOnly = .T., ; + Column9.Width = 79, ; + Column10.ColumnOrder = 11, ; + Column10.ControlSource = "tip_2", ; + Column10.Name = "cTip2", ; + Column10.ReadOnly = .T., ; + Column11.ColumnOrder = 9, ; + Column11.ControlSource = "comenzi", ; + Column11.Name = "cComenzi", ; + Column11.ReadOnly = .T., ; + Column11.Width = 114 + *< END OBJECT: BaseClass="grid" /> + + ADD OBJECT 'grdExtrase.cCodFiscal.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod fiscal", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdExtrase.cCodFiscal.Text1a' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1a", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdExtrase.cComenzi.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Comenzi", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdExtrase.cComenzi.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdExtrase.cData.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdExtrase.cData.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdExtrase.cDenumire.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Denumire", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdExtrase.cDenumire.Text1a' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1a", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdExtrase.cDocumente.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Documente", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdExtrase.cDocumente.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdExtrase.cExplicatie.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatie", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdExtrase.cExplicatie.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdExtrase.cIBAN.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "IBAN", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdExtrase.cIBAN.Text1a' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1a", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdExtrase.cNr.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdExtrase.cNr.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdExtrase.cSuma.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Suma", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdExtrase.cSuma.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdExtrase.cTip.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdExtrase.cTip.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdExtrase.cTip2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip trz.", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdExtrase.cTip2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridextra1' AS gridextra WITH ; + gridexpression = Thisform.grdConturi, ; + Left = 267, ; + Name = "Gridextra1", ; + productname = ROA, ; + Top = 70 + *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> + + ADD OBJECT 'Gridextra2' AS gridextra WITH ; + gridexpression = Thisform.grdConfigurareConturi, ; + Left = 744, ; + Name = "Gridextra2", ; + productname = ROA, ; + Top = 79 + *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> + + ADD OBJECT 'Gridextra3' AS gridextra WITH ; + gridexpression = Thisform.grdExtrase, ; + Left = 870, ; + Name = "Gridextra3", ; + productname = ROA, ; + Top = 361 + *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> + + ADD OBJECT 'Label1' AS label WITH ; + Anchor = 8, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Fdoc. Extras:", ; + FontBold = .T., ; + Height = 17, ; + Left = 477, ; + Name = "Label1", ; + TabIndex = 15, ; + ToolTipText = 'Fel document "Extras cont" (DblClick pentru a modifica)', ; + Top = 323, ; + Width = 75 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label2' AS label WITH ; + Anchor = 8, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Configurare conturi import pe parteneri", ; + FontBold = .T., ; + Height = 17, ; + Left = 480, ; + Name = "Label2", ; + TabIndex = 22, ; + ToolTipText = "Alegeti contul care se completeaza la import pe un partener/cod fiscal", ; + Top = 74, ; + Width = 224 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label3' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Conturi bancare / deconturi", ; + FontBold = .T., ; + Height = 17, ; + Left = 12, ; + Name = "Label3", ; + TabIndex = 24, ; + Top = 76, ; + Width = 156 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label4' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Detalii extrase / deconturi", ; + FontBold = .T., ; + Height = 17, ; + Left = 24, ; + Name = "Label4", ; + TabIndex = 25, ; + Top = 361, ; + Width = 147 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label5' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Perioada import", ; + FontBold = .T., ; + Height = 17, ; + Left = 11, ; + Name = "Label5", ; + TabIndex = 13, ; + Top = 8, ; + Width = 93 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label6' AS label WITH ; + Anchor = 8, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Fdoc. OP:", ; + FontBold = .T., ; + Height = 17, ; + Left = 694, ; + Name = "Label6", ; + TabIndex = 14, ; + ToolTipText = 'Fel document "OP" (DblClick pentru a modifica)', ; + Top = 323, ; + Width = 55 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label7' AS label WITH ; + Anchor = 8, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Configurare parteneri si conturi import pe explicatii", ; + FontBold = .T., ; + Height = 17, ; + Left = 479, ; + Name = "Label7", ; + TabIndex = 23, ; + ToolTipText = "Alegeti partenerul si contul care se completeaza la import pe o explicatie", ; + Top = 199, ; + Width = 291 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label8' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Data extras", ; + FontBold = .T., ; + Height = 17, ; + Left = 228, ; + Name = "Label8", ; + TabIndex = 3, ; + ToolTipText = "Se importa toate inregistrarile din fisier, indiferent de data lor. Se completeaza cu data extras. Se foloseste la importul deconturilor de la curieri.", ; + Top = 8, ; + Width = 68 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'lblIncasari' AS _label WITH ; + Anchor = 8, ; + Caption = "Incasari", ; + FontBold = .T., ; + Height = 18, ; + Left = 518, ; + Name = "lblIncasari", ; + TabIndex = 29, ; + Top = 360 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT 'lblPlati' AS _label WITH ; + Anchor = 8, ; + Caption = "Plati", ; + FontBold = .T., ; + Left = 710, ; + Name = "lblPlati", ; + TabIndex = 30, ; + Top = 360 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT 'Shape1' AS shape WITH ; + Anchor = 8, ; + BackStyle = 0, ; + Height = 287, ; + Left = 473, ; + Name = "Shape1", ; + SpecialEffect = 0, ; + Style = 3, ; + Top = 63, ; + Width = 405 + *< END OBJECT: BaseClass="shape" /> + + ADD OBJECT 'Shape2' AS shape WITH ; + Anchor = 11, ; + BackStyle = 0, ; + Height = 287, ; + Left = 5, ; + Name = "Shape2", ; + SpecialEffect = 0, ; + Style = 3, ; + Top = 63, ; + Width = 469 + *< END OBJECT: BaseClass="shape" /> + + ADD OBJECT 'Shape3' AS shape WITH ; + BackStyle = 0, ; + BorderColor = 150,150,150, ; + Height = 54, ; + Left = 9, ; + Name = "Shape3", ; + Top = 6, ; + Width = 213 + *< END OBJECT: BaseClass="shape" /> + + ADD OBJECT 'Shape4' AS shape WITH ; + BackStyle = 0, ; + BorderColor = 150,150,150, ; + Height = 54, ; + Left = 221, ; + Name = "Shape4", ; + Top = 6, ; + Width = 110 + *< END OBJECT: BaseClass="shape" /> + + ADD OBJECT 'txtData' AS textbox WITH ; + Format = "!K", ; + Height = 23, ; + Left = 228, ; + Name = "txtData", ; + TabIndex = 4, ; + ToolTipText = "Se importa toate inregistrarile din fisier, indiferent de data lor. Se completeaza cu data extras. Se foloseste la importul deconturilor de la curieri.", ; + Top = 26, ; + Width = 100 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtData1' AS textbox WITH ; + Format = "!K", ; + Height = 23, ; + Left = 13, ; + Name = "txtData1", ; + TabIndex = 1, ; + Top = 26, ; + Width = 100 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtData2' AS textbox WITH ; + Format = "!K", ; + Height = 23, ; + Left = 119, ; + Name = "txtData2", ; + TabIndex = 2, ; + Top = 26, ; + Width = 100 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtExtras' AS textbox WITH ; + Anchor = 8, ; + ControlSource = "Thisform.cFdocExtras", ; + Format = "!K", ; + Height = 23, ; + Left = 555, ; + Name = "txtExtras", ; + ReadOnly = .T., ; + TabIndex = 8, ; + ToolTipText = 'Fel document "Extras cont" (DblClick pentru a modifica)', ; + Top = 320, ; + Width = 120 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtIncasari' AS _textbox WITH ; + Anchor = 8, ; + Format = "RK", ; + Height = 23, ; + InputMask = "999 999 999.99", ; + Left = 578, ; + Name = "txtIncasari", ; + ReadOnly = .T., ; + TabIndex = 27, ; + Top = 358, ; + Width = 124 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'txtOP' AS textbox WITH ; + Anchor = 8, ; + ControlSource = "Thisform.cFdocOP", ; + Format = "!K", ; + Height = 23, ; + Left = 753, ; + Name = "txtOP", ; + ReadOnly = .T., ; + TabIndex = 9, ; + ToolTipText = 'Fel document "OP" (DblClick pentru a modifica)', ; + Top = 320, ; + Width = 120 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtPlati' AS _textbox WITH ; + Anchor = 8, ; + Format = "RK", ; + Height = 23, ; + InputMask = "999 999 999.99", ; + Left = 749, ; + Name = "txtPlati", ; + ReadOnly = .T., ; + TabIndex = 28, ; + Top = 358, ; + Width = 124 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + PROCEDURE cauta_fdoc + Lparameters tcTipDoc + + Local loCauta, lcTipDoc + lcTipDoc = Lower(m.tcTipDoc) + loCauta = caut_fdoc() + If !Isnull(loCauta) + Do Case + Case lcTipDoc = 'extras' + lnSucces = scrie_optiune('ID_FDOC_EXTRASCONT', INT(NVL(loCauta.id_fdoc,0))) + IF m.lnSucces > 0 + Thisform.nIdFdocExtras = loCauta.id_fdoc + Thisform.cFdocExtras = loCauta.fel_document + gnID_FDOC_EXTRASCONT = Thisform.nIdFdocExtras + ENDIF + thisform.txtExtras.Refresh() + Case lcTipDoc = 'op' + lnSucces = scrie_optiune('ID_FDOC_OP', INT(NVL(loCauta.id_fdoc,0))) + IF m.lnSucces > 0 + Thisform.nIdFdocOP = loCauta.id_fdoc + Thisform.cFdocOP = loCauta.fel_document + gnID_FDOC_OP = Thisform.nIdFdocOP + Thisform.txtOP.Refresh() + ENDIF + Endcase + Endif + + ENDPROC + + PROCEDURE completeazaclientiroa + ENDPROC + + PROCEDURE connectroa + ENDPROC + + PROCEDURE creeazanote + Local loImport As "ImportNote" + Local lcAcontBanca, lcClass, lcClassType, lcContBanca, lcFile, lcFileExt, lcFileType, lcParam + Local llCreeazaNote, llSucces, ldData1, ldData2, ldData + Select cConturi + lcClass = Alltrim(clasa) + lcFileExt = Alltrim(extensie) + lcClassType = Alltrim(tipclasa) + lcFileType = Alltrim(tip) + lcContBanca = Alltrim(Cont) + lcAcontBanca = Alltrim(acont) + lcFile = Alltrim(fisier) + + * Parcurg fisierul si determin IBAN-ul si inregistrarile din extras + ldData1 = thisform.txtData1.Value + ldData2 = thisform.txtData2.Value + ldData = thisform.txtData2.Value + + lcParam = Iif(!Empty(m.lcContBanca), "cContBanca=>" + m.lcContBanca, "") + Iif(!Empty(m.lcAcontBanca), "??cAcontBanca=>" + m.lcAcontBanca, "") + loImport = Createobject("ImportNote", m.lcFile, m.ldData1, m.ldData2, m.lcClass, m.lcClassType, m.lcFileType, m.lcFileExt, m.lcParam, m.ldData) && oproceduri_import.prg + llCreeazaNote = .T. + llSucces = loImport.Import(m.llCreeazaNote) && rezulta cursorul cActTemp + + Return m.llSucces + + ENDPROC + + PROCEDURE Destroy + Thisform.SaveSettings() + + USE IN (SELECT('cConturi')) + + ENDPROC + + PROCEDURE disconnectroa + ENDPROC + + PROCEDURE exportdate + ENDPROC + + PROCEDURE getidpart + LPARAMETERS tcDenumire + LOCAL lcDenumire, lnId + lnId = 0 + lcDenumire = ALLTRIM(m.tcDenumire) + IF USED('cParteneri') + IF SEEK(m.lcDenumire, 'cParteneri','denumire') + lnId = cParteneri.id_part + ENDIF + ENDIF + RETURN m.lnId + ENDPROC + + PROCEDURE Init + this.txtData1.Value = DATE(m.gnAn, m.gnLuna, 1) + This.txtData2.Value = GOMONTH(DATE(m.gnAn, m.gnLuna, 1),1)-1 + this.txtData.Value = {} + + Thisform.nIdFdocOP = m.gnID_FDOC_OP + Thisform.cFdocOP = GetFdocById(m.gnID_FDOC_OP) + Thisform.nIdFdocExtras = m.gnID_FDOC_EXTRASCONT + Thisform.cFdocExtras = GetFdocById(m.gnID_FDOC_EXTRASCONT) + + * Colorez cu albastru inregistrarile pentru import + this.grdConturi.SetAll("DynamicForeColor", "IIF(cConturi.note = 1, RGB(0,128,0), IIF(cConturi.import = 1, RGB(0,0,128), RGB(0,0,0)))","Column") + + this.gridextra1.setup() + this.gridextra2.setup() + this.gridextra3.setup() + DODEFAULT() + + + ENDPROC + + PROCEDURE Load + CREATE CURSOR cConturi (ales N(1), note N(1), import N(1), banca C(100), iban C(100), clasa C(100), fisier C(250), ; + tip C(20), extensie C(4), tipclasa C(100), cont C(4), acont C(4), part_nou L, factura L, comanda L, denumire C(100), id_part N(10), dataora T) + + * Trebuie sa citesc configurarile pentru fiecare IBAN + CREATE CURSOR cConfigConturi(iban C(100), id_part N(10), denumire C(200), cod_fiscal C(50), cont C(4), acont C(4)) + + * Explicatii - cont, partener configurate de utilizator + CREATE CURSOR cConfigExplicatii(iban C(100), id_part N(10), denumire C(200), cod_fiscal C(50), cont C(4), acont C(4), explicatie V(250)) + + CREATE CURSOR cExtrase (eiban C(100), nr N(14), Data D, suma N(15, 2), suma_val N(15, 2), ; + explicatie c (100), iban c (24), denumire c (60), cod_fiscal c (13), tip c (2), tip_2 c (3), documente c(250), comenzi C(250)) + + This.LoadSettings() + + Select cConfigConturi + Set Filter To iban = cConturi.iban + + Select cConfigExplicatii + Set Filter To iban = cConturi.iban + + SELECT cExtrase + SET FILTER TO eiban = cConturi.iban + + SELECT cConturi + ENDPROC + + PROCEDURE loadsettings + * Incarc setarile pe fiecare IBAN + + Local lcConfig, lcConturi, lcConfigExplicatii + lcConturi = citeste_optiune('EXTRASEB_CONTURI', .T.) + lcConfigConturi = citeste_optiune('EXTRASEB_CONFIG', .T.) + lcConfigExplicatii = citeste_optiune('EXTRASEB_CONFIG_EXPL', .T.) + + + If !Empty(m.lcConturi) + Xmltocursor(m.lcConturi, 'cConturiTemp') + Select cConturi + Append From Dbf('cConturiTemp') + Use In (Select('cConturiTemp')) + UPDATE cConturi SET import = 0, ales = 0, note = 0 + + * Completez numele partenerilor tip BANCA + * Caut si pentru conturile care au denumirea partenerului completata, in cazul in care s-a modificat intre timp + * Doar informativ. Se mai face o cautare si la generare note + SELECT cConturi + SCAN FOR !EMPTY(NVL(iban, '')) AND (EMPTY(NVL(id_part,0)) OR EMPTY(NVL(denumire, ''))) + lcIBAN = ALLTRIM(iban) + loPartener = GetPartenerByContBanca(m.lcIBAN) + IF !ISNULL(loPartener) + REPLACE id_part WITH NVL(loPartener.id_part, 0), denumire WITH NVL(loPartener.denumire,'') IN cConturi + ENDIF + ENDSCAN + + Go Top In cConturi + Endif + + If !Empty(m.lcConfigConturi) + Xmltocursor(m.lcConfigConturi, 'cConfigConturiTemp') + Select cConfigConturi + Append From Dbf('cConfigConturiTemp') + Use In (Select('cConfigConturiTemp')) + Go Top In cConfigConturi + ENDIF + + If !Empty(m.lcConfigExplicatii) + Xmltocursor(m.lcConfigExplicatii, 'cConfigExplicatiiTemp') + Select cConfigExplicatii + Append From Dbf('cConfigExplicatiiTemp') + Use In (Select('cConfigExplicatiiTemp')) + Go Top In cConfigExplicatii + Endif + ENDPROC + + PROCEDURE modificanote + LPARAMETERS tlIncarcaBackup + + * 10.02.2026 + * completez taxcode plati buget salarii, impozit venit/profit, tva de plata + + * tlIncarcaBackup (optional): daca se incarca notele din backup.xml + + Local loForm As [frm_modific2007] + Local llMaximize, llNotaNoua, lnIdSet, llSucces, lcSelect + Local lcSql, lnSucces, lnTaxCode + Local ldDataAct, llFurnizorTVAI, lnIdJtva + Local loBackupXML As "backupxml" + Local lcXMLFileName, llRestoredBackupSet, llSuces, lnNract, lnNractNegativ, lnRec + + *:Global gcAcces + Private pnCod + + llSucces = .T. + lnIdSet = 90023 + lcSelect = Select() + + * cursor cActTemp (denumire, iban, nr, data, suma, explicatie, scd, scc, id_partd, id_partc, partd, partc, id_fdoc, fdoc) + update_jtva_coloane("JV", 'crsExplicatiiTVATemp', 1) + + SELECT * FROM crsExplicatiiTVATemp INTO CURSOR crsJTVATemp READWRITE + *!* 15.07.2026 marius.mutu - index necesar pentru Seek-ul din frm_modific2024.grdRulaje.cExplicatieTVA + SELECT crsJTVATemp + INDEX ON id_jtva_coloana TAG id_jtva + + llSuces = .T. + lcXMLFileName = 'nota_' + Alltrim(Str(m.lnIdSet)) && Iif(m.tnIdSet = 99998, 'notafarapredefinire2', Iif(m.tnIdSet = 99999, 'notafarapredefinire', 'nota')) + loBackupXML = Createobject("backupxml", m.lcXMLFileName) && oproceduri_comune.prg + IF m.tlIncarcaBackup + llExistaBackupSet = loBackupXML.ExistsBackupSet() + IF !m.llExistaBackupSet + AMESSAGEBOX('Nu exista o nota salvata anterior!',0+48,_Screen.Caption) + RETURN m.llSucces + ENDIF + ENDIF + + IF !m.tlIncarcaBackup + lcSql = [SELECT * FROM vact WHERE 1=2] + llSucces = goExecutor.oExecuta(m.lcSql, 'actactan_temp') + + + * Creez cursoare trul, trul_obinv + lcSql = [select * from vrul_tot where 1=2] + lcCursor = [v_rul] + + llSucces = goExecutor.oExecuta(lcSql,lcCursor) + + If m.llSucces + Select *, ; + valoare + valtva As valoarectva, ; + valoarev + valtvav As valoarevctva ; + From v_rul ; + Into Cursor trul READWRITE + + Use In (SELECT('v_rul')) + + lcSql = [select * from vrul_obinv_tot where 1=2] + lcCursor = [v_rul_obinv] + + llSucces = goExecutor.oExecuta(lcSql,lcCursor) + Endif + + If m.llSucces + Select *, ; + valoare + valtva As valoarectva, ; + valoarev + valtvav As valoarevctva ; + From v_rul_obinv ; + Into Cursor trul_obinv READWRITE + + Use In (SELECT('v_rul_obinv')) + Endif + + ELSE + llRestoredBackupSet = loBackupXML.RestoreBackupSet() + IF USED('tAct') + UPDATE tAct SET explicatia5 = 'IMPORT ' + STRTRAN(TTOC(DATETIME(),3), 'T', ' ') + ENDIF + ENDIF + + If m.llSucces AND !m.tlIncarcaBackup + Select actactan_temp + IF USED('actactan') + Append From Dbf('actactan') + ENDIF + + Select .F. As ales, a.explicatia4 As iban, Iif(!Empty(Nvl(a.id_jtva_coloana, 0)), 1, 0) As Cu_tva, Cast(0 As N(2)) As tipnota, a.*, b.denumire As explicatie_tva_2 ; + From actactan_temp a Left Join crsExplicatiiTVATemp b On a.id_jtva_coloana = b.id_jtva_coloana ; + Into Cursor tact Readwrite + + Update tact Set explicatie_tva = explicatie_tva_2, explicatia4 = '', id_Set = m.lnIdSet, explicatia5 = 'IMPORT ' + STRTRAN(TTOC(DATETIME(),3), 'T', ' ') + UPDATE tAct SET nract = INT(VAL(DTOS(dataact) + ALLTRIM(STR(RECNO())))) WHERE EMPTY(NVL(nract,0)) + + + * Completare nract pentru notele retragere de numerar 5311 = 581 adaugate suplimentar, la fel ca in notele 581 = 5121 + SELECT nract FROM tAct WHERE nract < 0 INTO CURSOR cNrActNegativ + SELECT cNrActNegativ + SCAN + lnNractNegativ = nract + lnRec = -1*m.lnNractNegativ + SELECT tAct + LOCATE FOR RECNO() = m.lnRec + IF FOUND() + lnNract = nract + LOCATE FOR nract = m.lnNrActNegativ + IF FOUND() + REPLACE nract WITH m.lnNract + ENDIF + ENDIF + ENDSCAN + USE IN (SELECT('cNrActNegativ')) + + * Actualizez taxcode SAFT in functie de furnizori RTVAI + IF m.gl406 + SELECT tact + SCAN FOR !EMPTY(id_jtva_coloana) + lnIdJtva = id_jtva_coloana + ldDataAct = dataact + llFurnizorTVAI = .F. + lnTaxCode = GetTaxCode(m.gnAn, m.gnLuna, m.ldDataAct, m.lnIdJtva, m.llFurnizorTVAI) + SELECT tact + REPLACE taxcode WITH m.lnTaxCode + ENDSCAN + + UPDATE tact SET paymentcode = '42' WHERE LEFT(scd,3) = '512' OR LEFT(scc,3) = '512' && plata in contul bancar + ENDIF + Endif && llSucces + + If m.llSucces + gcAcces = "1;2;3;4;" + Select tact + Go Top + llNotaNoua = .T. + llMaximize = .T. + loForm = Createobject([frm_modific2024], m.lnIdSet, m.llNotaNoua) + loForm.lb_titlu_alb_b121.Caption = 'Import extrase bancare, deconturi curieri, procesatori plati' + Select tact + loForm.Show(1, m.llMaximize) + + *** SALVEZ NOTELE FARA PREDEFINIRE INAINTE DE SCRIEREA IN BAZA DE DATE + If Type('loBackupXML') = 'O' And Used('tact') + loBackupXML.SaveBackupSet("tact") + loBackupXML.SaveBackupSet("trul") + loBackupXML.SaveBackupSet("trul_obinv") + ENDIF + + If buton = 1 + Use In (Select('actactan')) + + Update tact Set id_jtva_coloana = Null, PROC_TVA = 0 Where Cu_tva = 0 + + * completez taxcode plati buget salarii, impozit venit/profit, tva de plata + UPDATE tact SET taxcode = 412000 WHERE scd = '4315' or scc = '4315' + UPDATE tact SET taxcode = 432000 WHERE scd = '4316' or scc = '4316' + UPDATE tact SET taxcode = 480000 WHERE scd = '436' or scc = '436' + UPDATE tact SET taxcode = 602000 WHERE scd = '444' or scc = '444' + UPDATE tact SET taxcode = 301000 WHERE scd = '4423' or scc = '4423' + UPDATE tact SET taxcode = 100000 WHERE scd = '4411' or scc = '4411' + UPDATE tact SET taxcode = 120000 WHERE scd = '4418' or scc = '4418' + + lnSucces = SQLSetprop(m.gnhandle, "Transactions", 2) + llSucces = (m.lnSucces > 0) + If m.llSucces + * Generez coduri distinct pentru fiecare document. + * La vizualizare note este de preferat sa nu vad incasari si plati in acelasi document!!?? + + lcSql = [SELECT seq_cod.nextval FROM dual] + Select distinct dataact, nract From tact Into Cursor cCodTemp + Select cCodTemp + Scan + Wait Window 'Salvare nota ' + Transform(Recno()) + '/' + Transform(Reccount()) Nowait + pnCod = 0 + llSucces = goExecutor.oSelecteaza2Value(m.lcSql, @pnCod) + If m.llSucces + Update tact Set cod = m.pnCod Where EMPTY(NVL(cod,0)) AND NVL(nract,0) = NVL(cCodTemp.nract,0) AND NVL(dataact, DATE()) = NVL(cCodTemp.dataact, DATE()) + + Select * From tact Where cod = m.pnCod Into Cursor actactan Readwrite + + Select actactan + lnSucces = OSCRIE_IN_FISIERE(0, .F., .F., .T.) + llSucces = (m.lnSucces > 0) + Use In (Select('actactan')) + If !m.llSucces + Exit + Endif + Else + Exit + Endif + Endscan && cCodTemp + Use In (Select('cCodTemp')) + Endif && llSucces + + + If !m.llSucces + lcSql = "ROLLBACK" + Else + lcSql = "COMMIT" + Endif + lnSucces = goExecutor.oExecute(m.lcSql) + llSucces = (m.lnSucces > 0) + If !m.llSucces + AMESSAGEBOX(lcSql + Chr(13) + goExecutor.cEroare, 0 + 16, "Eroare") + Endif + + lnSucces = SQLSetprop(gnhandle, "Transactions", 1) + llSucces = (m.lnSucces > 0) + If !m.llSucces + AMESSAGEBOX('Programul nu a reusit sa treaca pe tranzactie automata. Iesiti din program si intrati din nou!', 0 + 48, 'Atentie!') + Endif + Else + llSucces = .F. + Endif && buton = 1 + Endif && llSucces + + Use In (Select('crsExplicatiiTVATemp')) + Use In (Select('crsJTVATemp')) + Use In (Select('tact')) + Use In (Select('trul')) + Use In (Select('trul_obinv')) + Select (m.lcSelect) + Return m.llSucces + + ENDPROC + + PROCEDURE prelucreazafisierebreeze + ENDPROC + + PROCEDURE refreshconfigurari + LOCAL lcSelect + lcSelect = SELECT() + + SELECT cExtrase + CALCULATE SUM(suma) FOR tip = 'C' TO This.txtIncasari.Value + CALCULATE SUM(suma) FOR tip = 'D' TO This.txtPlati.Value + GO TOP + Thisform.grdExtrase.Refresh() + This.txtIncasari.Refresh() + This.txtPlati.Refresh() + + SELECT cConfigConturi + GO TOP + Thisform.grdConfigurareConturi.Refresh() + + SELECT cConfigExplicatii + GO TOP + Thisform.grdConfigurareExplicatii.Refresh() + + + SELECT (m.lcSelect) + ENDPROC + + PROCEDURE savesettings + * Salvez setarile pe fiecare AMEF + Local lcFilter, lcConturi, lcConfigConturi, lcConfigExplicatii, lcSelect + lcSelect = SELECT() + lcConturi = '' + lcConfigConturi = '' + lcConfigExplicatii = '' + lcFilter = '' + + Cursortoxml('cConturi', "lcConturi", 1, 1 + 2, 0, "1") + + Select cConfigConturi + lcFilter = Filter() + Set Filter To + Cursortoxml('cConfigConturi', "lcConfigConturi", 1, 1 + 2, 0, "1") + Set Filter To &lcFilter + + Select cConfigExplicatii + lcFilter = Filter() + Set Filter To + Cursortoxml('cConfigExplicatii', "lcConfigExplicatii", 1, 1 + 2, 0, "1") + Set Filter To &lcFilter + + = scrie_optiune('EXTRASEB_CONTURI', m.lcConturi, "EXTRASE BANCARE CONTURI", .T.) + = scrie_optiune('EXTRASEB_CONFIG', m.lcConfigConturi, "EXTRASE BANCARE CONFIGURARE CONTURI", .T.) + = scrie_optiune('EXTRASEB_CONFIG_EXPL', m.lcConfigExplicatii, "EXTRASE BANCARE CONFIGURARE EXPLICATII", .T.) + + SELECT (m.lcSelect) + ENDPROC + + PROCEDURE scrienote + Local lcMesaj, lcSql, lnHandle, lnSucces, lnSucces2 + Private gnAn, gnIdSucursala, gnIdUtil, gnLuna + lnSucces = SQLSetprop(m.lnHandle, "Transactions", 2) + + if lnSucces > 0 + && Creez note pentru fiecare luna/an + Select Distinct an, luna From actactan Order By an, luna Into Cursor cAnLuna + Select cAnLuna + Scan + *gnAn = an + *gnLuna = luna + *gnIdUtil = - 3 + *gnIdSucursala = Null + + if m.lnSucces > 0 + lcSql = [begin pack_contafin.init_scriere_act_rul_local(?gnIdUtil,?gnAn,?gnLuna, 1,0,?gnIdSucursala); end;] + lnSucces = goExecutor.oExecute(m.lcSql) + Endif + + if lnSucces > 0 + SELECT * FROM actactan WHERE an = m.gnAn AND luna = m.gnLuna INTO CURSOR cAct NOFILTER + lnSucces = This.sql_temp_insert('cAct', 'ACT_TEMP') + USE IN (SELECT('cAct')) + Endif + + if lnSucces > 0 + Private pcMesajRefacereNota + pcMesajRefacereNota = "" + lcSql = [begin pack_contafin.final_scriere_act_rul_local(?gnIdUtil, ?gnAn, ?gnLuna, NULL, 0, 1, ?@pcMesajRefacereNota); end;] + lnSucces = goExecutor.oExecute(m.lcSql) + If !Empty(Nvl(pcMesajRefacereNota, '')) + This.trace(m.pcMesajRefacereNota) + AMESSAGEBOX(m.pcMesajRefacereNota, 0 + 48, 'Atentie') + Endif + Release pcMesajRefacereNota + ELSE + lcMesaj = goExecutor.cEroare + This.Trace(m.lcMesaj) + AMESSAGEBOX(m.lcMesaj,0+48, _screen.Caption ) + EXIT + ENDIF && lnSucces + Endscan && cAnLuna + + Use In (Select('cAnLuna')) + + if lnSucces > 0 + lnSucces2 = goExecutor.oExecute('COMMIT') + IF lnSucces2 <> 1 + lnSucces = 0 + ENDIF + Else + lnSucces2 = goExecutor.oExecute('ROLLBACK') + Endif + + If lnSucces2 <> 1 + This.trace(goExecutor.cEroare) + AMESSAGEBOX(lcSql + Chr(13) + goExecutor.cEroare, 0 + 16, "Eroare") + ELSE + This.trace('Import realizat cu succes!') + Endif + + lnSucces3 = SQLSetprop(m.lnHandle, "Transactions", 1) + + If lnSucces3 <> 1 + lcMesaj = 'Programul nu a reusit sa treaca pe tranzactie automata. Iesiti din program si intrati din nou!' + This.trace(m.lcMesaj) + AMESSAGEBOX(m.lcMesaj, 0 + 48, 'Atentie!') + Endif + Endif && lnSucces + + Return m.lnSucces + + ENDPROC + + PROCEDURE sql_temp_insert + Lparameters tcAlias, tcTableName + + Local lcAlias, lcCursor, lnSucces + Local lcDate, lcFieldName, lcFieldType, lcFieldValue, lcFields, lcInsert, lcMesaj, lcNumber, lcSql + Local lcString, lcTableName, lcValues, lnCount + Local lnField + + Private poIreg, pcTableName + Local lcVariable + + If Empty(tcAlias) + lcAlias = 'ACTACTAN' + Else + lcAlias = Upper(Alltrim(tcAlias)) + Endif + If Empty(tcTableName) + pcTableName = 'ACT_TEMP' + Else + pcTableName = Upper(Alltrim(tcTableName)) + Endif + + lcCursor = 'crs_Coloane' + lcSql = [SELECT COLUMN_NAME AS COLOANA from user_tab_columns WHERE table_name = ?pcTableName] + lnSucces = goExecutor.oExecute(m.lcSql, m.lcCursor) + If m.lnSucces <> 1 + lcMesaj = 'Eroare la selectare coloane din ' + m.lcTableName + Chr(13) + goExecutor.cEroare + This.trace(m.lcMesaj) + AMESSAGEBOX(m.lcMesaj, 0 + 16, 'Eroare') + Endif + + If m.lnSucces = 1 + Select (lcAlias) + lnCount = Fcount() + lcFields = [] + lcValues = [] + lcInsert = [] + For lnField = 1 To lnCount + Select (lcAlias) + lcFieldName = Upper(Alltrim(Field(lnField))) + lcFieldType = Type(lcFieldName) + lcFieldValue = Evaluate(lcFieldName) + If lcFieldType = 'C' + lcVariable = '?ALLTRIM(poIreg.' + lcFieldName + ')' + Else + lcVariable = '?poIreg.' + lcFieldName + Endif + + Select CRS_COLOANE + Locate For Upper(Alltrim(COLOANA)) == lcFieldName + If !Found() + Loop + Endif + lcFields = lcFields + [,] + lcFieldName + lcValues = lcValues + [,] + lcVariable + Endfor + + lcFields = Substr(lcFields, 2) + lcValues = Substr(lcValues, 2) + + && INSERT INTO ACT_TEMP + lcInsert = [INSERT INTO ] + m.pcTableName + [ (] + m.lcFields + [) VALUES (] + m.lcValues + [)] + + Select (lcAlias) + Scan + Scatter Name poIreg + IF MOD(RECNO(), 100) = 0 + This.trace(' Inregistrare ' + TRANSFORM(RECNO()) + ' / ' + TRANSFORM(RECCOUNT()) + ' ...') + ENDIF + && FAC NULL ID-URILE CU VALOARE 0 + If TYPE('poReg.id_sucursala') = 'N' AND poIreg.id_sucursala = 0 + poIreg.id_sucursala = Null + Endif + + lnSucces = goExecutor.oExecute(m.lcInsert) + If lnSucces <> 1 + This.trace(goExecutor.cEroare) + AMESSAGEBOX(goExecutor.cEroare, 0 + 16, 'Eroare') + Exit + Endif + + Endscan + Endif + + Use In (Select('crs_coloane')) + + Return m.lnSucces + + ENDPROC + + PROCEDURE sql_temp_insert_values + * daca se doreste insert into act_temp cu valori in loc de ? + * trebuie decomentata sectiunea cu valori + Lparameters tcAlias, tcTableName + + Local lcAlias, lcCursor, lnSucces + Local lcDate, lcFieldName, lcFieldType, lcFieldValue, lcFields, lcInsert, lcMesaj, lcNumber, lcSql + Local lcString, lcTableName, lcValues, lnCount + Local lnField + + Private poIreg, pcTableName + Local lcVariable + + If Empty(tcAlias) + lcAlias = 'ACTACTAN' + Else + lcAlias = Upper(Alltrim(tcAlias)) + Endif + If Empty(tcTableName) + pcTableName = 'ACT_TEMP' + Else + pcTableName = Upper(Alltrim(tcTableName)) + Endif + + lcCursor = 'crs_Coloane' + lcSql = [SELECT COLUMN_NAME AS COLOANA from user_tab_columns WHERE table_name = ?pcTableName] + lnSucces = goExecutor.oExecute(m.lcSql, m.lcCursor) + If m.lnSucces <> 1 + lcMesaj = 'Eroare la selectare coloane din ' + m.pcTableName + Chr(13) + goExecutor.cEroare + This.trace(m.lcMesaj) + AMESSAGEBOX(m.lcMesaj, 0 + 16, 'Eroare') + Endif + + If m.lnSucces = 1 + Select (lcAlias) + lnCount = Fcount() + Scan + lcFields = [] + lcValues = [] + lcInsert = [] + Scatter Name poIreg + + For lnField = 1 To lnCount + Select (lcAlias) + lcFieldName = Upper(Alltrim(Field(lnField))) + lcFieldType = Type(lcFieldName) + lcFieldValue = Evaluate(lcFieldName) + If lcFieldType = 'C' + lcVariable = '?ALLTRIM(poIreg.' + lcFieldName + ')' + Else + lcVariable = '?poIreg.' + lcFieldName + Endif + + Select CRS_COLOANE + Locate For Upper(Alltrim(COLOANA)) == lcFieldName + If !Found() + Loop + Endif + lcFields = lcFields + [,] + lcFieldName + lcNumber = '0' + lcDate = '' + lcString = '' + + && FAC NULL ID-URILE CU VALOARE 0 + If Inlist(lcFieldName, 'ID_SUCURSALA') + If poIreg.id_sucursala = 0 + poIreg.id_sucursala = Null + Endif + Endif + lcValues = lcValues + [,] + lcVariable + + *!* DO CASE + *!* CASE lcFieldType = 'N' + *!* IF EMPTY(lcFieldValue) OR ISNULL(lcFieldValue) + *!* lcNumber = '0' + *!* ELSE + *!* lcNumber = ALLTRIM(STR(lcFieldValue,24,4)) + *!* ENDIF + + *!* lcValues = lcValues + [,] + lcNumber + *!* CASE lcFieldType = 'C' + *!* IF EMPTY(lcFieldValue) OR ISNULL(lcFieldValue) + *!* lcString = '' + *!* ELSE + *!* lcString = ALLTRIM(lcFieldValue) + *!* ENDIF + + *!* lcValues = lcValues + [,] + ['] + lcString + ['] + *!* CASE INLIST(lcFieldType,'D','T') + *!* IF EMPTY(lcFieldValue) OR ISNULL(lcFieldValue) + *!* lcDate = '' + *!* ELSE + *!* lcDate = DTOS(lcFieldValue) + *!* ENDIF + *!* lcValues = lcValues + [,] + [TO_DATE('] + lcDate + [','YYYY-MM-DD')] + *!* ENDCASE + + Endfor + + lcFields = Substr(lcFields, 2) + lcValues = Substr(lcValues, 2) + + && INSERT INTO ACT_TEMP + lcInsert = [INSERT INTO ] + m.pcTableName + [ (] + lcFields + [) VALUES (] + lcValues + [)] + lnSucces = goExecutor.oExecute(m.lcInsert) + If lnSucces <> 1 + This.Trace(goExecutor.cEroare) + AMESSAGEBOX(goExecutor.cEroare, 0 + 16, 'Eroare') + Exit + Endif + + Endscan + Endif + + Use In (SELECT('crs_coloane')) + + Return m.lnSucces + + + + ENDPROC + + PROCEDURE sterge_import + Local lcExplicatia5, lcMenu, lcSql, llContinuare, llSucces, lnInregistrari, lnOptiune, lcSeparator + + lcSql = [select explicatia5, util, COUNT(explicatia5) as nr from vact_tot where an=?gnAn and Luna=?gnLuna and id_set = 90023 and sters = 0 and explicatia5 is not null ] + m.gcCondSucursala + [ group by explicatia5, util order by explicatia5 DESC] + llSucces = goExecutor.oExecuta(m.lcSql, 'crsStergeri') + IF !m.llSucces + RETURN + ENDIF + + If Reccount("crsstergeri") = 0 + amessagebox("Nu au fost gasite importuri in luna curenta") + RETURN + Endif + SET STEP ON + lcMenu = '' + SELECT crsStergeri + SCAN + lcSeparator = IIF(RECNO() < RECCOUNT(), ';', '') + lcMenu = m.lcMenu + ALLTRIM(explicatia5) + ' ' + ALLTRIM(STR(nr)) + ' intregistrari, utilizator: ' + ALLTRIM(util) + m.lcSeparator + ENDSCAN + lnOptiune = xmenu(m.lcMenu) + IF EMPTY(m.lnOptiune) + USE IN (SELECT('crsStergeri')) + RETURN + ENDIF + SELECT crsStergeri + GOTO (m.lnOptiune) + lcExplicatia5 = ALLTRIM(explicatia5) + lnInregistrari = nr + USE IN (SELECT('crsStergeri')) + llContinuare = (AMessagebox('Doriti sa stergeti ' + Alltrim(Str(m.lnInregistrari)) + ' inregistrari, tip operatie 90023, explicatia ' + m.lcExplicatia5 + ', din luna ' + Padl(m.gnLuna, 2, '0') + '/' + Alltrim(Str(m.gnAn)) + '?', 4 + 32, _Screen.Caption) = 6) + + IF !m.llContinuare + RETURN + ENDIF + + llSucces = stergere_import_note_contabile(m.lcExplicatia5, 0, "explicatia5") && oscrie_in_fisiere.prg + AMESSAGEBOX('Stergerea s-a incheiat cu ' + IIF(m.llSucces, 'succes', 'eroare'),0+48, _screen.Caption) + Return m.llSucces + + ENDPROC + + PROCEDURE templatexlsx + ENDPROC + + PROCEDURE trace + LPARAMETERS tcMessage + AMESSAGEBOX(tcMessage) + *!* This.edtInfo.Value = This.edtInfo.Value + TRANSFORM(NVL(tcMessage,'')) + CHR(13) + CHR(10) + *!* this.edtInfo.SelStart = LEN(this.edtInfo.Value) + *!* This.edtInfo.Refresh() + ENDPROC + + PROCEDURE verificaimport + * Verifica daca mai exista inregistrari 90023 in luna curenta + Local llExista, lcSelect, lcSql, llSucces + Private pnReturnValue, pnSuma, pdDataAct, pcScd, pcScc + pnReturnValue = 0 + lcSelect = SELECT() + + lcSql = [select COUNT(*) as nr from act where an=?gnAn and luna = ?gnLuna and id_set=90023 and sters=0 and suma = ?pnSuma and dataact = ?pdDataAct and scd = ?pcScd and scc = ?pcScc] + SELECT actactan + SCAN + pnSuma = suma + pdDataAct = dataact + pcScd = ALLTRIM(scd) + pcScc = ALLTRIM(scc) + llSucces = goExecutor.oSelecteaza2Value(m.lcSql, @pnReturnValue) + If !m.llSucces + IF m.pnReturnValue > 0 + EXIT + ENDIF + ELSE + EXIT + Endif + ENDSCAN && actactan + + llExista = (m.pnReturnValue > 0) + + Select (m.lcSelect) + Return m.llExista + + + ENDPROC + + PROCEDURE But_help1.Click + LOCAL lcInfo + TEXT TO lcInfo noshow + [Optional] + Inainte de import, completati codul "IBAN" in Entitati pe entitatea asociata contului bancar (Ex: "RAIFFEISEN CONT CURENT LEI") pentru ca Importul sa determine automat entitatea. + Alternativ, partenerul "cont bancar" se poate alege la import. + + 1. Modificati (daca este cazul) perioada de import sau Completati "Data extras" pentru deconturile de la curieri + + 2. Apasati butonul [Import] + + 3. Configurari + 3.1 Modificati (daca este cazul) contul sintetic si analitic aferent extrasului bancar / decontului importat + + Ex: pentru incasari din deconturi curieri sau procesatori plati se poate configura contul 5125. + Nota generata va fi 5125 = 4111 + + 3.2. Bifati optiunile: + - "Creeaza parteneri": daca importul genereaza automat parteneri noi (daca nu exista in baza de date). + - "Asociaza facturi": daca importul cauta numerele de facturi din detalii si incearca completarea documentului pereche. + + 3.3 Configurati (daca este cazul) conturi pe anumiti parteneri + + Ex: Pentru un virament (incasare) de la FanCourier/Netopia/Emag se poate configura contul 5125. + Nota generata va fi 5121 = 5125 (FanCourier/Netopia/Emag), in loc de 5121 = 4111 + + 4. Apasati butonul [Genereaza note] + Notele generate se verifica in fereastra urmatoare: "Note fara predefinire". + ENDTEXT + + AMESSAGEBOX(m.lcInfo) + ENDPROC + + PROCEDURE But_nou1.Click + Local locauta + Local lcCont, lcTitlu, llNou, llToateIreg + lcCont = '' + lcTitlu = '' + llToateIreg = .F. + llNou = .T. + locauta = caut_parteneri(lcCont, lcTitlu, llToateIreg, llNou) + + Select cConfigConturi + Append Blank + Replace iban With cConturi.iban, id_part With locauta.id_part, denumire With locauta.denumire, cod_fiscal WITH loCauta.cod_fiscal + Thisform.grdConfigurareConturi.SetFocus() + + ENDPROC + + PROCEDURE But_nou2.Click + LOCAL lcText, lcValue, lcCaption + lcCaption = "Explicatie" + lcValue = "" + lnLeft = 10 + lnTop = 10 + lcText = INPUTBOX(m.lcCaption, m.lcCaption, m.lcValue) + IF EMPTY(m.lcText) + RETURN + ENDIF + + SELECT cConfigExplicatii + LOCATE FOR UPPER(ALLTRIM(NVL(explicatie,''))) == UPPER(ALLTRIM(NVL(m.lcText,''))) + IF FOUND() + AMESSAGEBOX('Exista deja o configurare pentru Explicatia: "' + m.lcText + '"!',0+48,_screen.Caption) + ELSE + Select cConfigExplicatii + Append Blank + Replace iban With cConturi.iban, explicatie WITH m.lcText + ENDIF + + Thisform.grdConfigurareExplicatii.SetFocus() + + ENDPROC + + PROCEDURE But_sterge1.Click + Local lcBanca, lcIBAN + Select cConturi + lcIBAN = Alltrim(Nvl(iban, '')) + lcBanca = Alltrim(Nvl(banca, '')) + If Empty(m.lcIBAN) And Empty(m.lcBanca) + Return + Endif + If AMESSAGEBOX('Doriti sa stergeti configurarea pentru ' + m.lcBanca + ' / ' + m.lcIBAN + '?', 4 + 32, _Screen.Caption) = 6 + Delete From cConfigConturi Where iban = m.lcIBAN + Delete From cConfigExplicatii Where iban = m.lcIBAN + Delete From cExtrase Where eiban = m.lcIBAN + Delete From cConturi Where iban = m.lcIBAN + Endif + Thisform.grdConturi.SetFocus() + Thisform.Refresh() + ENDPROC + + PROCEDURE But_sterge2.Click + SELECT cConfigConturi + lnIdPart = NVL(id_part,0) + lcPartener = NVL(denumire,'') + IF EMPTY(m.lnIdPart) + RETURN + ENDIF + IF AMESSAGEBOX('Doriti sa stergeti configurarea pentru partenerul ' + m.lcPartener + '?', 4+32, _screen.caption) = 6 + DELETE FROM cConfigConturi WHERE id_part = m.lnIdPart + ENDIF + Thisform.grdConfigurareConturi.SetFocus() + thisform.Refresh() + ENDPROC + + PROCEDURE But_sterge3.Click + SELECT cConfigExplicatii + lcExplicatie = ALLTRIM(NVL(explicatie, '')) + IF EMPTY(m.lcExplicatie) + RETURN + ENDIF + IF AMESSAGEBOX('Doriti sa stergeti configurarea pentru explicatia: ' + m.lcExplicatie+ '?', 4+32, _screen.caption) = 6 + DELETE FROM cConfigExplicatii WHERE ALLTRIM(explicatie) = m.lcExplicatie + ENDIF + Thisform.grdConfigurareExplicatii.SetFocus() + thisform.Refresh() + ENDPROC + + PROCEDURE cmdGenereazaNote.Click + Local llSucces, lnSucces, lnButon, llContafin, lnIdSet + Local lcCodAMEF, llExistaNote + Local lcAcont, lcCont, lcIBAN, lnIdPart + Local llPartNou + Local lcExplicatie, lcPart, ldData, llComanda, llFactura + + + Local loImport As "ImportNote" + Local lcAcontBanca, lcClass, lcClassType, lcContBanca, lcFile, lcFileExt, lcFileType, lcParam + Local llCreeazaNote, llSucces, ldData1, ldData2, lcSelect + + lcSelect = SELECT() + llSucces = .T. + lnIdSet = 90023 + ldData1 = Thisform.txtData1.Value + ldData2 = Thisform.txtData2.Value + ldData = thisform.txtData.Value + + USE IN (SELECT('actactan')) + Thisform.SaveSettings() + + IF (m.glLunaInchisa) + AMESSAGEBOX("Luna contabil este blocata!",0+48,_Screen.Caption) + ENDIF + IF m.llSucces AND (m.glEMama) + AMESSAGEBOX("Se pot face operatii doar pe sucursala!",0+48,_Screen.Caption) + llSucces = .F. + ENDIF + If m.llSucces + Select cConturi + LOCATE FOR ales = 1 AND Import = 1 AND note = 0 + llSucces = FOUND() + IF !m.llSucces + AMESSAGEBOX('Alegeti un cont/decont incarcat pentru care nu s-au generat note!',0+48,_scren.caption) + ENDIF + ENDIF + + IF m.llSucces + Select cConturi + Scan For ales = 1 AND Import = 1 AND note = 0 + lcClass = Alltrim(clasa) + lcFileExt = Alltrim(extensie) + lcClassType = Alltrim(tipclasa) + lcFileType = Alltrim(tip) + lcContBanca = Alltrim(Cont) + lcAcontBanca = Alltrim(acont) + lcFile = Alltrim(fisier) + lcIBAN = Alltrim(Nvl(iban, '')) + lcBanca = ALLTRIM(NVL(denumire, '')) + lnIdPartenerBanca = NVL(id_part, 0) + llPartNou = part_nou && se creeaza parteneri noi daca nu exista codul fiscal in baza de date + llFactura = factura + llComanda = comanda + + * Parcurg fisierul si determin IBAN-ul si inregistrarile din extras + lcParam = Iif(!Empty(m.lcContBanca), "cContBanca=>" + m.lcContBanca, "") + ; + Iif(!Empty(m.lcAcontBanca), "??cAcontBanca=>" + m.lcAcontBanca, "") + ; + "??lCreeazaParteneri=>" + TRANSFORM(m.llPartNou) + ; + "??lFactura=>" + TRANSFORM(m.llFactura) + ; + "??lComanda=>" + TRANSFORM(m.llComanda) + ; + Iif(!Empty(m.lcBanca), "??cBanca=>" + m.lcBanca, "") + ; + Iif(!Empty(m.lnIdPartenerBanca), "??nIdPartenerBanca=>" + ALLTRIM(STR(m.lnIdPartenerBanca)), "") + + loImport = Createobject("ImportNote", m.lcFile, m.ldData1, m.ldData2, m.lcClass, m.lcClassType, m.lcFileType, m.lcFileExt, m.lcParam, m.ldData) && oproceduri_import.prg + llCreeazaNote = .T. + Wait Window 'Generare note ' + Transform(Recno('cConturi')) + '/' + Transform(Reccount('cConturi')) Nowait + + llSucces = loImport.Import(m.llCreeazaNote) && rezulta cursorul cActTemp + If !m.llSucces + Exit + Endif + + * Completez cont, acont, parteneri pe explicatiile din din cConfigExplicatii + Select explicatie, id_part, denumire, Cont, acont From cConfigExplicatii Where iban = m.lcIBAN And !Empty(Nvl(explicatie, '')) Into Cursor cContTemp + Select cContTemp + Scan + lcExplicatie = UPPER(ALLTRIM(explicatie)) + lcCont = ALLTRIM(NVL(Cont, '')) + lcAcont = ALLTRIM(NVL(acont, '')) + lnIdPart = id_part + lcPart = ALLTRIM(NVL(denumire, '')) + + IF !EMPTY(NVL(m.lnIdPart, 0)) + Update cActTemp Set id_partd = m.lnIdPart, partd = m.lcPart Where m.lcExplicatie$UPPER(ALLTRIM(explicatia)) AND scc = m.lcContBanca AND EMPTY(NVL(id_partd, 0)) + Update cActTemp Set id_partc = m.lnIdPart, partc = m.lcPart Where m.lcExplicatie$UPPER(ALLTRIM(explicatia)) AND scd = m.lcContBanca AND EMPTY(NVL(id_partc, 0)) + ENDIF + IF !EMPTY(m.lcCont) + Update cActTemp Set scd = m.lcCont, ascd = m.lcAcont Where m.lcExplicatie$UPPER(ALLTRIM(explicatia)) AND scc = m.lcContBanca + Update cActTemp Set scc = m.lcCont, ascc = m.lcAcont Where m.lcExplicatie$UPPER(ALLTRIM(explicatia)) AND scd = m.lcContBanca + ENDIF + Endscan + Use In (Select('cContTemp')) + + * Completez cont, acont pe parteneri din cConfigConturi + Select id_part, Cont, acont From cConfigConturi Where iban = m.lcIBAN And !Empty(Nvl(Cont, '')) Into Cursor cContTemp + Select cContTemp + Scan + lcCont = Cont + lcAcont = acont + lnIdPart = id_part + Update cActTemp Set scd = m.lcCont, ascd = m.lcAcont Where id_partd = m.lnIdPart + Update cActTemp Set scc = m.lcCont, ascc = m.lcAcont Where id_partc = m.lnIdPart + Endscan + Use In (Select('cContTemp')) + + If !Used('actactan') + Select * From cActTemp Into Cursor actactan Readwrite + Else + Select actactan + Append From Dbf('cActTemp') + Endif + Use In (Select('cActTemp')) + Release loImport + Endscan + Endif && llSucces + + llSucces = llSucces and USED('actactan') + + * verific daca mai exista import 90023 + IF m.llSucces + llExistaNote = Thisform.VerificaImport() + If m.llExistaNote + If AMESSAGEBOX('Atentie! Exista deja note contabile generate dintr-un import anterior [tip operatie 90023]!' + Chr(13) + ; + 'Doriti sa continuati?', 4 + 32, _Screen.Caption) <> 6 + llSucces = .F. + Endif + ENDIF + ENDIF + + If m.llSucces + llSucces = Thisform.ModificaNote() + Endif + + If m.llSucces + UPDATE cConturi SET ales = 0, note = 1, dataora = DATETIME() WHERE ales = 1 AND import = 1 AND note = 0 + Thisform.cmdGenereazaNote.Enabled = .F. + AMESSAGEBOX('S-au inregistrat notele!', 0 + 64, _Screen.Caption) + Else + AMESSAGEBOX('Nu s-au inregistrat notele!', 0 + 64, _Screen.Caption) + Endif + + USE IN (SELECT('actactan')) + + Thisform.SaveSettings() + SELECT (m.lcSelect) + Return m.llSucces + + ENDPROC + + PROCEDURE cmdImport.Click + Local loImport As "ImportNote" + Local lcClass, lcClassType, lcContBanca, lcFile, lcFileExt, lcFileType, lcParam, llCreeazaNote, llCreeazaParteneri + Local llSucces, lnOptiune, ldData1, ldData2, ldData + Local lcAcontBanca, lcIBAN, lcValuta + lcIBAN = '' + lnOptiune = xmenu('\" + m.lcContBanca, "") + ; + Iif(!Empty(m.lcAcontBanca), "??cAcontBanca=>" + m.lcAcontBanca, "") + + loImport = Createobject("ImportNote", m.lcFile, m.ldData1, m.ldData2, m.lcClass, m.lcClassType, m.lcFileType, m.lcFileExt, m.lcParam, m.ldData) && oproceduri_import.prg + llCreeazaNote = .F. + + llSucces = loImport.Import(m.llCreeazaNote) + If m.llSucces + lcValuta = loImport.oImport.cValuta && RON/EUR/USD/GBP + lcIBAN = Alltrim(Upper(loImport.oImport.cIBAN)) && contul bancar din extras + IF EMPTY(m.lcClassType) + lcClassType = m.lcIBAN + ENDIF + Select cConturi + Locate For iban = m.lcIBAN + If !Found() + Append Blank + Replace iban With m.lcIBAN, banca With m.lcClassType, clasa With 'ExtrasBanca', fisier With m.lcFile, extensie With m.lcFileExt, tip With m.lcFileType, tipclasa With m.lcClassType, ; + Cont With m.lcContBanca, Import With 1, ales WITH 1, note WITH 0, factura WITH .T. + Else + Replace banca With m.lcClassType, clasa With 'ExtrasBanca', fisier With m.lcFile, extensie With m.lcFileExt, tipclasa With m.lcClassType, Import With 1, ales WITH 1, note WITH 0 + If Empty(Cont) + Replace Cont With m.lcContBanca + Endif + Endif + + DELETE FROM cExtrase WHERE eiban = m.lcIBAN + + Select m.lcIBAN As eiban, i.* From c_import_temp i ORDER BY data Into Cursor cExtraseTemp + Select cExtrase + Append From Dbf('cExtraseTemp') + Go Top + Use In (Select('cExtraseTemp')) + ELSE + IF !EMPTY(loImport.cErrorMessage) + AMESSAGEBOX(loImport.cErrorMessage,0+48,_screen.Caption) + ELSE + AMESSAGEBOX('Eroare la import!',0+48,_screen.Caption) + ENDIF + ENDIF && llSucces + + Thisform.cmdGenereazaNote.Enabled = (Reccount('cExtrase') > 0) + + Select cConturi + + Thisform.RefreshConfigurari() + + Thisform.SaveSettings() + Select cConturi + Locate For iban = m.lcIBAN + If !Found() + Go Top + Endif + Thisform.grdConturi.Refresh() + + *Thisform.Refresh + ENDPROC + + PROCEDURE cmdSterge.Click + Thisform.Sterge_import() + ENDPROC + + PROCEDURE grdConfigurareConturi.cAcont.Text1a.DblClick + LOCAL lcText, lcCaption, lcAlias, lcControlSource + lcAlias = this.Parent.Parent.RecordSource + lcControlSource = This.ControlSource + lcText = alltrim(EVALUATE(m.lcControlSource)) + lcCaption = this.Parent.Header1.Caption + lcText = INPUTBOX(m.lcCaption, m.lcCaption, m.lcText) + SELECT (lcAlias) + REPLACE &lcControlSource WITH m.lcText + + ENDPROC + + PROCEDURE grdConfigurareConturi.cCont.Text1a.DblClick + LOCAL lcText, lcCaption, lcAlias, lcControlSource + lcAlias = this.Parent.Parent.RecordSource + lcControlSource = This.ControlSource + lcText = alltrim(EVALUATE(m.lcControlSource)) + lcCaption = this.Parent.Header1.Caption + lcText = INPUTBOX(m.lcCaption, m.lcCaption, m.lcText) + SELECT (lcAlias) + REPLACE &lcControlSource WITH m.lcText + + ENDPROC + + PROCEDURE grdConfigurareConturi.Init + * + ENDPROC + + PROCEDURE grdConfigurareExplicatii.cAcont.Text1a.DblClick + LOCAL lcText, lcCaption, lcAlias, lcControlSource + lcAlias = this.Parent.Parent.RecordSource + lcControlSource = This.ControlSource + lcText = alltrim(EVALUATE(m.lcControlSource)) + lcCaption = this.Parent.Header1.Caption + lcText = INPUTBOX(m.lcCaption, m.lcCaption, m.lcText) + SELECT (lcAlias) + REPLACE &lcControlSource WITH m.lcText + + ENDPROC + + PROCEDURE grdConfigurareExplicatii.cCont.Text1a.DblClick + LOCAL lcText, lcCaption, lcAlias, lcControlSource + lcAlias = this.Parent.Parent.RecordSource + lcControlSource = This.ControlSource + lcText = alltrim(EVALUATE(m.lcControlSource)) + lcCaption = this.Parent.Header1.Caption + lcText = INPUTBOX(m.lcCaption, m.lcCaption, m.lcText) + SELECT (lcAlias) + REPLACE &lcControlSource WITH m.lcText + + ENDPROC + + PROCEDURE grdConfigurareExplicatii.cDenumire.Text1.DblClick + Local locauta + Local lcCont, lcTitlu, llNou, llToateIreg + lcCont = '' + lcTitlu = '' + llToateIreg = .F. + llNou = .T. + locauta = caut_parteneri(lcCont, lcTitlu, llToateIreg, llNou) + + Select cConfigExplicatii + Replace id_part With locauta.id_part, denumire With locauta.denumire, cod_fiscal WITH loCauta.cod_fiscal + Thisform.grdConfigurareExplicatii.SetFocus() + + ENDPROC + + PROCEDURE grdConfigurareExplicatii.Init + * + ENDPROC + + PROCEDURE grdConturi.AfterRowColChange + LPARAMETERS nColIndex + + + IF INLIST(this.RowColChange, 1, 3) + Thisform.RefreshConfigurari() + ENDIF + SELECT cConturi + + + ENDPROC + + PROCEDURE grdConturi.cAcont.Text1.DblClick + LOCAL lcText, lcCaption, lcAlias, lcControlSource + lcAlias = this.Parent.Parent.RecordSource + lcControlSource = This.ControlSource + lcText = alltrim(EVALUATE(m.lcControlSource)) + lcCaption = this.Parent.Header1.Caption + lcText = INPUTBOX(m.lcCaption, m.lcCaption, m.lcText) + SELECT (lcAlias) + REPLACE &lcControlSource WITH m.lcText + + ENDPROC + + PROCEDURE grdConturi.cCont.Text1.DblClick + LOCAL lcText, lcCaption, lcAlias, lcControlSource + lcAlias = this.Parent.Parent.RecordSource + lcControlSource = This.ControlSource + lcText = alltrim(EVALUATE(m.lcControlSource)) + lcCaption = this.Parent.Header1.Caption + lcText = INPUTBOX(m.lcCaption, m.lcCaption, m.lcText) + SELECT (lcAlias) + REPLACE &lcControlSource WITH m.lcText + + ENDPROC + + PROCEDURE grdConturi.cDenumire.Text1.DblClick + Local lcContBanca, lcPartenerBanca, lnIdPartenerBanca, loCauta + + lcContBanca = ALLTRIM(NVL(cConturi.cont,'')) + lcContBanca = IIF(!EMPTY(m.lcContBanca), m.lcContBanca, '5121') + + loCauta = CautPartenerContabilitate(GetHash([cTitlu=>Banca??cCont=>] + m.lcContBanca)) + lnIdPartenerBanca = Nvl(loCauta.id_part, 0) + lcPartenerBanca = Alltrim(m.loCauta.denumire) + + If !Empty(m.lnIdPartenerBanca) And AMESSAGEBOX('Doriti sa salvati banca pe acest fisier?',4+32,_Screen.Caption) = 6 + REPLACE denumire WITH m.lcPartenerBanca, id_part WITH m.lnIdPartenerBanca IN cConturi + Endif + + ENDPROC + + PROCEDURE grdConturi.Init + * + ENDPROC + + PROCEDURE grdExtrase.cDocumente.Text1.DblClick + Local loCauta + If Thisform.lContafin + Local lcText, lcCaption, lcAlias, lcControlSource + lcAlias = This.Parent.Parent.RecordSource + lcControlSource = This.ControlSource + lcText = Alltrim(Evaluate(m.lcControlSource)) + lcCaption = This.Parent.Header1.Caption + lcText = Inputbox(m.lcCaption, m.lcCaption, m.lcText) + Select (lcAlias) + Replace &lcControlSource With m.lcText + Else + loCauta = caut_sectie() + If !Empty(Nvl(loCauta.id_sectie, 0)) + Select cAMEF + Replace id_sectie With loCauta.id_sectie, sectie With loCauta.sectie + Endif + Endif + ENDPROC + + PROCEDURE grdExtrase.cExplicatie.Text1.DblClick + Local loCauta + If Thisform.lContafin + Local lcText, lcCaption, lcAlias, lcControlSource + lcAlias = This.Parent.Parent.RecordSource + lcControlSource = This.ControlSource + lcText = Alltrim(Evaluate(m.lcControlSource)) + lcCaption = This.Parent.Header1.Caption + lcText = Inputbox(m.lcCaption, m.lcCaption, m.lcText) + Select (lcAlias) + Replace &lcControlSource With m.lcText + Else + loCauta = caut_venchelt() + If !Empty(Nvl(loCauta.id_venchelt, 0)) + Select cAMEF + Replace id_venchelt With loCauta.id_venchelt, dst_chlt With loCauta.explicatie + Endif + Endif + ENDPROC + + PROCEDURE grdExtrase.cIBAN.Text1a.DblClick + IF thisform.lContafin + LOCAL lcText, lcCaption, lcAlias, lcControlSource + lcAlias = this.Parent.Parent.RecordSource + lcControlSource = This.ControlSource + lcText = alltrim(EVALUATE(m.lcControlSource)) + lcCaption = this.Parent.Header1.Caption + lcText = INPUTBOX(m.lcCaption, m.lcCaption, m.lcText) + SELECT (lcAlias) + REPLACE &lcControlSource WITH m.lcText + ELSE + LOCAL loCauta + + loCauta = CautPartenerContabilitate(GetHash([cTitlu=>Client??lAdaugCorespondente=>1??cTipuriParteneri=>24])) + SELECT cAMEF + REPLACE id_banca WITH locauta.id_part, banca WITH locauta.nume + ENDIF + ENDPROC + + PROCEDURE grdExtrase.cIBAN.Text1a.When + this.ReadOnly = .F. + ENDPROC + + PROCEDURE grdExtrase.cSuma.Text1.DblClick + IF thisform.lContafin + LOCAL lcText, lcCaption, lcAlias, lcControlSource + lcAlias = this.Parent.Parent.RecordSource + lcControlSource = This.ControlSource + lcText = alltrim(EVALUATE(m.lcControlSource)) + lcCaption = this.Parent.Header1.Caption + lcText = INPUTBOX(m.lcCaption, m.lcCaption, m.lcText) + SELECT (lcAlias) + REPLACE &lcControlSource WITH m.lcText + ELSE + LOCAL loCauta + + loCauta = CautPartenerContabilitate(GetHash([cTitlu=>Client??lAdaugCorespondente=>1??cTipuriParteneri=>22])) + SELECT cAMEF + REPLACE id_casac WITH locauta.id_part, casac WITH locauta.nume + ENDIF + + ENDPROC + + PROCEDURE grdExtrase.Init + * + ENDPROC + + PROCEDURE txtData.Valid + Local ldData, ldData1, ldData2 + + ldData = Nvl(This.Value, {}) + ldData1 = Date(m.gnAn, m.gnLuna, 1) + ldData2 = Gomonth(m.ldData1, 1) - 1 + + If !Empty(m.ldData) + If !Between(m.ldData, m.ldData1, m.ldData2) + ldData = m.ldData1 + AMESSAGEBOX('Data trebuie sa fie din luna curenta!',0+48,_Screen.Caption) + Return .F. + Else + AMESSAGEBOX('Atentie!' + Chr(13) + Chr(10) + ; + 'Se importa toate inregistrarile din fisier, cu ' + Dtoc(m.ldData) + ', indiferent de perioada de import si de data inregistrarilor din fisier.'+ Chr(13) + Chr(10) + ; + 'Se foloseste la importul deconturilor de la curieri, pentru o anumita data.',0+48,_Screen.Caption) + Endif + Endif + + + + ENDPROC + + PROCEDURE txtExtras.DblClick + Thisform.cauta_fdoc('extras') + ENDPROC + + PROCEDURE txtOP.DblClick + Thisform.cauta_fdoc('op') + ENDPROC + +ENDDEFINE diff --git a/Ferestre/frm_import_note_a4200.sc2 b/Ferestre/frm_import_note_a4200.sc2 new file mode 100644 index 0000000..5b1e63f --- /dev/null +++ b/Ferestre/frm_import_note_a4200.sc2 @@ -0,0 +1,3011 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="frm_import_note_a4200.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +#INCLUDE "comun.h" + +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="lblInfo" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdAMEF" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdAMEF.cCodAMEF.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdAMEF.cCodAMEF.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdAMEF.cCasa.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdAMEF.cCasa.Text1a" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdAMEF.cCodFiscal.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdAMEF.cCodFiscal.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdAMEF.cTipAMEF.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdAMEF.cTipAMEF.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdAMEF.cClient.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdAMEF.cClient.Text1a" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdAMEF.cAcont4111.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdAMEF.cAcont4111.Text1a" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdAMEF.cAcont442x.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdAMEF.cAcont442x.Text1a" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdAMEF.cBanca.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdAMEF.cBanca.Text1a" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdAMEF.cSectie.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdAMEF.cSectie.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdAMEF.cDstChlt.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdAMEF.cDstChlt.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdAMEF.cCasaC.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdAMEF.cCasaC.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdZ" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdZ.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdZ.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdZ.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdZ.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdZ.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdZ.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdZ.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdZ.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdZ.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdZ.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdZ.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdZ.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdZ.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdZ.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdZ.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdZ.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdZ.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdZ.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdZ.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdZ.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdZ.Column11.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdZ.Column11.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdTVA" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdTVA.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdTVA.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdTVA.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdTVA.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdTVA.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdTVA.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConfigurareConturi" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConfigurareConturi.cCota.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConfigurareConturi.cCota.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConfigurareConturi.cCont.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConfigurareConturi.cCont.Text1a" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConfigurareConturi.cAcont.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConfigurareConturi.cAcont.Text1a" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConfigurareConturi.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConfigurareConturi.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConfigurareIncasari" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConfigurareIncasari.cTip.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConfigurareIncasari.cTip.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConfigurareIncasari.cCont.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConfigurareIncasari.cCont.Text1a" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConfigurareIncasari.cAcont.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConfigurareIncasari.cAcont.Text1a" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConfigurareIncasari.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdConfigurareIncasari.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cmdImport" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cmdGenereazaNote" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Check2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cmdSterge" UniqueID="" Timestamp="" /> + + * + *m: completeazaclientiroa + *m: connectroa + *m: creeazanote + *m: disconnectroa + *m: exportdate + *m: getidpart + *m: loadsettings + *m: modificanote + *m: prelucreazafisierebreeze + *m: refreshamef + *m: savesettings + *m: scrienote + *m: sql_temp_insert + *m: sql_temp_insert_values + *m: sterge_import + *m: templatexlsx + *m: trace + *m: verificaimport + *p: lcontafin && Formularul se apeleaza din Contafin sau din ROA + *p: _memberdata && XML Metadata for customizable properties + * + + * + Caption = "Import fisiere Z A4200" + DoCreate = .T. + Height = 418 + Icon = ..\comun\grafice\note.ico + lcontafin = .F. + Left = 0 + MaxButton = .F. + MinButton = .F. + Name = "Form1" + ShowWindow = 0 + Top = 0 + Width = 824 + WindowState = 2 + WindowType = 1 + _memberdata = + + + + + + + + * + + ADD OBJECT '_label1' AS _label WITH ; + Caption = "Documente Z", ; + FontBold = .T., ; + Left = 344, ; + Name = "_label1", ; + TabIndex = 5, ; + Top = 43 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT 'But_sterge1' AS but_sterge WITH ; + Anchor = 0, ; + Left = 298, ; + Name = "But_sterge1", ; + Top = 33, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Check1' AS checkbox WITH ; + Alignment = 0, ; + Anchor = 4, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Configurare conturi venit / AMEF", ; + Height = 17, ; + Left = 344, ; + Name = "Check1", ; + Top = 279, ; + Value = .T., ; + Width = 191 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'Check2' AS checkbox WITH ; + Alignment = 0, ; + Anchor = 12, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Configurare conturi incasari / AMEF", ; + Height = 17, ; + Left = 557, ; + Name = "Check2", ; + Top = 278, ; + Value = .T., ; + Width = 210 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'cmdGenereazaNote' AS commandbutton WITH ; + Anchor = 9, ; + AutoSize = .F., ; + Caption = "Genereaza note", ; + Enabled = .F., ; + FontBold = .T., ; + Height = 52, ; + Left = 619, ; + Name = "cmdGenereazaNote", ; + Picture = ..\comun\grafice\note16.ico, ; + PicturePosition = 7, ; + TabIndex = 2, ; + Top = 7, ; + Width = 98 + *< END OBJECT: BaseClass="commandbutton" /> + + ADD OBJECT 'cmdImport' AS commandbutton WITH ; + Anchor = 9, ; + AutoSize = .F., ; + Caption = "Import Z-uri", ; + FontBold = .T., ; + Height = 52, ; + Left = 520, ; + Name = "cmdImport", ; + Picture = ..\comun\grafice\inbox.ico, ; + PicturePosition = 7, ; + TabIndex = 1, ; + Top = 8, ; + Width = 98 + *< END OBJECT: BaseClass="commandbutton" /> + + ADD OBJECT 'cmdSterge' AS commandbutton WITH ; + Anchor = 9, ; + AutoSize = .F., ; + Caption = "Sterge import", ; + Enabled = .T., ; + FontBold = .T., ; + Height = 52, ; + Left = 718, ; + Name = "cmdSterge", ; + Picture = ..\comun\grafice\erase01.ico, ; + PicturePosition = 7, ; + TabIndex = 2, ; + Top = 6, ; + Width = 98 + *< END OBJECT: BaseClass="commandbutton" /> + + ADD OBJECT 'grdAMEF' AS grid WITH ; + Anchor = 7, ; + ColumnCount = 11, ; + DeleteMark = .F., ; + Height = 348, ; + HighlightStyle = 2, ; + Left = 9, ; + Name = "grdAMEF", ; + Panel = 1, ; + RecordSource = "cAMEF", ; + TabIndex = 4, ; + Top = 62, ; + Width = 317, ; + Column1.ControlSource = "codamef", ; + Column1.Name = "cCodAMEF", ; + Column2.BackColor = 190,225,255, ; + Column2.ColumnOrder = 4, ; + Column2.ControlSource = "casa", ; + Column2.CurrentControl = "Text1a", ; + Column2.Format = "K", ; + Column2.InputMask = "", ; + Column2.Name = "cCasa", ; + Column2.ToolTipText = "DblClick pentru modificare", ; + Column2.Width = 143, ; + Column3.ColumnOrder = 2, ; + Column3.ControlSource = "cod_fiscal", ; + Column3.Name = "cCodFiscal", ; + Column4.ColumnOrder = 11, ; + Column4.ControlSource = "tipamef", ; + Column4.Name = "cTipAMEF", ; + Column5.BackColor = 190,225,255, ; + Column5.ColumnOrder = 3, ; + Column5.ControlSource = "client", ; + Column5.Name = "cClient", ; + Column5.ToolTipText = "DblClick pentru modificare", ; + Column5.Width = 156, ; + Column6.BackColor = 190,225,255, ; + Column6.ColumnOrder = 9, ; + Column6.ControlSource = "acont4111", ; + Column6.Name = "cAcont4111", ; + Column6.ToolTipText = "DblClick pentru modificare", ; + Column7.BackColor = 190,225,255, ; + Column7.ColumnOrder = 10, ; + Column7.ControlSource = "acont442x", ; + Column7.Name = "cAcont442x", ; + Column7.ToolTipText = "DblClick pentru modificare", ; + Column8.BackColor = 190,225,255, ; + Column8.ColumnOrder = 6, ; + Column8.ControlSource = "banca", ; + Column8.Format = "K", ; + Column8.Name = "cBanca", ; + Column8.ToolTipText = "DblClick pentru modificare", ; + Column8.Width = 196, ; + Column9.BackColor = 190,225,255, ; + Column9.ColumnOrder = 7, ; + Column9.ControlSource = "sectie", ; + Column9.Name = "cSectie", ; + Column9.Width = 129, ; + Column10.BackColor = 190,225,255, ; + Column10.ColumnOrder = 8, ; + Column10.ControlSource = "dst_chlt", ; + Column10.Name = "cDstChlt", ; + Column10.Width = 101, ; + Column11.BackColor = 190,225,255, ; + Column11.ColumnOrder = 5, ; + Column11.ControlSource = "casac", ; + Column11.Format = "K", ; + Column11.Name = "cCasaC", ; + Column11.Width = 106 + *< END OBJECT: BaseClass="grid" /> + + ADD OBJECT 'grdAMEF.cAcont4111.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Analitic 4111", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdAMEF.cAcont4111.Text1a' AS textbox WITH ; + BackColor = 190,225,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1a" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdAMEF.cAcont442x.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Analitic 4427", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdAMEF.cAcont442x.Text1a' AS textbox WITH ; + BackColor = 190,225,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1a" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdAMEF.cBanca.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Banca", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdAMEF.cBanca.Text1a' AS textbox WITH ; + BackColor = 190,225,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1a" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdAMEF.cCasa.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Casa", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdAMEF.cCasa.Text1a' AS textbox WITH ; + BackColor = 190,225,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1a" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdAMEF.cCasaC.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Casa centrala", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdAMEF.cCasaC.Text1' AS textbox WITH ; + BackColor = 190,225,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdAMEF.cClient.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Client", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdAMEF.cClient.Text1a' AS textbox WITH ; + BackColor = 190,225,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1a" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdAMEF.cCodAMEF.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod AMEF", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdAMEF.cCodAMEF.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdAMEF.cCodFiscal.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod fiscal", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdAMEF.cCodFiscal.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdAMEF.cDstChlt.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip venit", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdAMEF.cDstChlt.Text1' AS textbox WITH ; + BackColor = 190,225,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdAMEF.cSectie.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sectie", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdAMEF.cSectie.Text1' AS textbox WITH ; + BackColor = 190,225,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdAMEF.cTipAMEF.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip AMEF", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdAMEF.cTipAMEF.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdConfigurareConturi' AS grid WITH ; + Anchor = 14, ; + ColumnCount = 4, ; + DeleteMark = .F., ; + Height = 111, ; + HighlightStyle = 2, ; + Left = 342, ; + Name = "grdConfigurareConturi", ; + Panel = 1, ; + RecordSource = "cConfigConturiVenit", ; + TabIndex = 9, ; + Top = 299, ; + Width = 194, ; + Column1.ControlSource = "cota", ; + Column1.Name = "cCota", ; + Column1.Width = 65, ; + Column2.BackColor = 190,225,255, ; + Column2.ColumnOrder = 2, ; + Column2.ControlSource = "cont", ; + Column2.Name = "cCont", ; + Column2.ToolTipText = "DblClick pentru modificare", ; + Column2.Width = 48, ; + Column3.BackColor = 190,225,255, ; + Column3.ColumnOrder = 3, ; + Column3.ControlSource = "acont", ; + Column3.Name = "cAcont", ; + Column3.Width = 45, ; + Column4.ControlSource = "codamef", ; + Column4.Name = "Column1", ; + Column4.Width = 118 + *< END OBJECT: BaseClass="grid" /> + + ADD OBJECT 'grdConfigurareConturi.cAcont.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Acont", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdConfigurareConturi.cAcont.Text1a' AS textbox WITH ; + BackColor = 190,225,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1a" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdConfigurareConturi.cCont.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdConfigurareConturi.cCont.Text1a' AS textbox WITH ; + BackColor = 190,225,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1a" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdConfigurareConturi.cCota.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cota TVA", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdConfigurareConturi.cCota.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdConfigurareConturi.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod AMEF", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdConfigurareConturi.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdConfigurareIncasari' AS grid WITH ; + Anchor = 12, ; + ColumnCount = 4, ; + DeleteMark = .F., ; + Height = 111, ; + HighlightStyle = 2, ; + Left = 554, ; + Name = "grdConfigurareIncasari", ; + Panel = 1, ; + RecordSource = "cConfigConturiIncasari", ; + TabIndex = 10, ; + Top = 299, ; + Width = 263, ; + Column1.ControlSource = "tip", ; + Column1.Name = "cTip", ; + Column1.Width = 121, ; + Column2.BackColor = 190,225,255, ; + Column2.ControlSource = "cont", ; + Column2.Name = "cCont", ; + Column2.ToolTipText = "DblClick pentru modificare", ; + Column2.Width = 55, ; + Column3.BackColor = 190,225,255, ; + Column3.ControlSource = "acont", ; + Column3.Name = "cAcont", ; + Column3.ToolTipText = "DblCLick pentru modificare", ; + Column3.Width = 51, ; + Column4.ControlSource = "codamef", ; + Column4.Name = "Column1", ; + Column4.Width = 119 + *< END OBJECT: BaseClass="grid" /> + + ADD OBJECT 'grdConfigurareIncasari.cAcont.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Acont", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdConfigurareIncasari.cAcont.Text1a' AS textbox WITH ; + BackColor = 190,225,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1a" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdConfigurareIncasari.cCont.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdConfigurareIncasari.cCont.Text1a' AS textbox WITH ; + BackColor = 190,225,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1a" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdConfigurareIncasari.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod AMEF", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdConfigurareIncasari.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdConfigurareIncasari.cTip.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip incasare", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdConfigurareIncasari.cTip.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdTVA' AS grid WITH ; + Anchor = 8, ; + ColumnCount = 3, ; + DeleteMark = .F., ; + Height = 111, ; + HighlightStyle = 2, ; + Left = 554, ; + Name = "grdTVA", ; + RecordSource = "cZetTVA", ; + TabIndex = 4, ; + Top = 62, ; + Width = 263, ; + Column1.ControlSource = "cota", ; + Column1.Name = "Column1", ; + Column2.ControlSource = "valtva", ; + Column2.Format = "RK", ; + Column2.InputMask = "999 999 999.99", ; + Column2.Name = "Column2", ; + Column3.ControlSource = "valctva", ; + Column3.Format = "RK", ; + Column3.InputMask = "999 999 999.99", ; + Column3.Name = "Column3" + *< END OBJECT: BaseClass="grid" /> + + ADD OBJECT 'grdTVA.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cota TVA", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdTVA.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdTVA.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdTVA.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdTVA.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TOTAL", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdTVA.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdZ' AS grid WITH ; + Anchor = 15, ; + ColumnCount = 11, ; + DeleteMark = .F., ; + HeaderHeight = 48, ; + Height = 193, ; + HighlightStyle = 2, ; + Left = 332, ; + Name = "grdZ", ; + Panel = 1, ; + RecordSource = "cZet", ; + TabIndex = 3, ; + Top = 62, ; + Width = 221, ; + Column1.ControlSource = "nract", ; + Column1.Name = "Column1", ; + Column2.ColumnOrder = 2, ; + Column2.ControlSource = "dataact", ; + Column2.Name = "Column2", ; + Column3.ColumnOrder = 3, ; + Column3.ControlSource = "nrb", ; + Column3.Name = "Column3", ; + Column3.Width = 62, ; + Column4.ColumnOrder = 5, ; + Column4.ControlSource = "valctva-valtva", ; + Column4.Format = "RK", ; + Column4.InputMask = "999 999 999.99", ; + Column4.Name = "Column4", ; + Column5.ColumnOrder = 6, ; + Column5.ControlSource = "valtva", ; + Column5.Format = "RK", ; + Column5.InputMask = "999 999 999.99", ; + Column5.Name = "Column5", ; + Column6.ColumnOrder = 7, ; + Column6.ControlSource = "valctva", ; + Column6.Format = "RK", ; + Column6.InputMask = "999 999 999.99", ; + Column6.Name = "Column6", ; + Column6.Width = 78, ; + Column7.ColumnOrder = 8, ; + Column7.ControlSource = "vnumerar", ; + Column7.Format = "RK", ; + Column7.InputMask = "999 999 999.99", ; + Column7.Name = "Column7", ; + Column8.ColumnOrder = 9, ; + Column8.ControlSource = "vcard", ; + Column8.Format = "RK", ; + Column8.InputMask = "999 999 999.99", ; + Column8.Name = "Column8", ; + Column9.ColumnOrder = 10, ; + Column9.ControlSource = "vtichete", ; + Column9.Format = "RK", ; + Column9.InputMask = "999 999 999.99", ; + Column9.Name = "Column9", ; + Column10.ColumnOrder = 11, ; + Column10.ControlSource = "vbon", ; + Column10.Format = "RK", ; + Column10.InputMask = "999 999 999.99", ; + Column10.Name = "Column10", ; + Column10.Width = 93, ; + Column11.ColumnOrder = 4, ; + Column11.ControlSource = "nrbc", ; + Column11.Name = "Column11", ; + Column11.ReadOnly = .T., ; + Column11.Width = 68 + *< END OBJECT: BaseClass="grid" /> + + ADD OBJECT 'grdZ.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. doc.", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdZ.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdZ.Column10.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Incasat bonuri/tichete valorice", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdZ.Column10.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdZ.Column11.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Numar bonuri cu CIF", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdZ.Column11.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdZ.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdZ.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdZ.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Numar bonuri", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdZ.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdZ.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare fara TVA", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdZ.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdZ.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdZ.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdZ.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare cu TVA", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdZ.Column6.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdZ.Column7.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Incasat numerar", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdZ.Column7.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdZ.Column8.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Incasat card", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdZ.Column8.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdZ.Column9.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Incasat tichete de masa", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdZ.Column9.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Label1' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Dublu click pe coloane pentru editare", ; + ForeColor = 0,64,128, ; + Height = 17, ; + Left = 11, ; + Name = "Label1", ; + Top = 43, ; + Width = 205 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'lblInfo' AS _label WITH ; + Caption = "Case marcat", ; + FontBold = .T., ; + Left = 12, ; + Name = "lblInfo", ; + TabIndex = 5, ; + Top = 23 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + PROCEDURE completeazaclientiroa + ENDPROC + + PROCEDURE connectroa + ENDPROC + + PROCEDURE creeazanote + * 17.02.2022 + * cZetTVA join dupa nract si dataact + + * Creeaza actactan cu note contabile vanzari + Local lnIdPartCasa, llSucces, lnIdSet, llTVAIncasare, llContafin + Local lcContTVA, lcSql, ldDataCurenta, ldDataIreg, ldLastData, lnCota, lnIdBaza, lnIdTVA, lnProcTVA + Local lcCasa, lcCasaDefault, lcClient, lcCont4111, lcContBonuri, lcContCard, lcContNumerar + Local lcContTichete, lnIdBaza1, lnIdBaza2, lnIdTVA1, lnIdTVA2, lnRaspuns + Local lcBanca, lcCodAMEF, lcContBanca + Local lnRn + Private pnTVAIncasare, pnIdFdoc, pcFdoc, pcDenumire, pnIdPart + + If Type('gnIdSucursala') = 'U' + Local gnIdSucursala + gnIdSucursala = 0 + Endif + If Type('gcSucursala') = 'U' + Local gcSucursala + gcSucursala = Iif(!Empty(Nvl(m.gnIdSucursala, 0)), m.gcFirma, '') + Endif + + llContafin = This.lContafin + pnTVAIncasare = 0 + pnIdFdoc = 0 + pcFdoc = 'BON CASA' + lnIdSet = 50100 + pnIdPart = 0 + pcDenumire = '' + llSucces = .F. + llTVAIncasare = .F. + lcCont4111 = Iif(m.llContafin, '411', '4111') + lcContNumerar = '5311' + lcContCard = '5125' + lcContTichete = '5328' + lcContBonuri = '5328' + lcContBanca = '5121' + + If m.llContafin + * FDOC + If Used('fdoc') + Select fdoc + Locate For tip_doc = 'B' && B - BON CASA FARA COD FISCAL + If Found() + pcFdoc = Alltrim(fdoc) + Else + AMESSAGEBOX("Nu exista nici un fel document cu [TIP DOC 394 = 'B']", 0 + 48, _Screen.Caption) + Endif + Endif + Else + lcSql = [SELECT id_fdoc, fel_document from nom_fdoc where tip_doc = 'B'] + llSucces = goExecutor.oExecuta(m.lcSql, 'cFdocTemp') + If m.llSucces + If Reccount('cFdocTemp') > 0 + Select cFdocTemp + Go Top + pnIdFdoc = id_fdoc + pcFdoc = Alltrim(Nvl(fel_document, '')) + Else + AMESSAGEBOX("Nu exista nici un fel document cu [TIP DOC 394 = 'B']", 0 + 48, _Screen.Caption) + Endif + Endif && llSucces + Use In (Select('cFdocTemp')) + Endif && llContafin + + ************************** + * CASE + ************************** + Select cAMEF + Locate For Empty(Nvl(casa, '')) + If Found() + lnRaspuns = AMESSAGEBOX('Completati numele casei 5311 la toate AMEF!' + Chr(13) + Chr(13) + ; + 'Doriti sa completati numele casei 5311 la AMEF care nu au numele casei?', 3 + 32, _Screen.Caption) + If m.lnRaspuns = 6 + lcCasaDefault = 'CENTRALA' + If m.llContafin + If Used('casanume') + Select casanume + Locate For 'CENTRALA' $ casa + If !Found() + Locate For !Empty(casa) + Endif + lcCasaDefault = Iif(!Empty(casa), Alltrim(casa), m.lcCasaDefault) + Endif + lcCasa = Upper(Alltrim(Inputbox('Numele casei', 'Numele casei (ex: "CENTRALA" sau "CASA [CODAMEF]")', m.lcCasaDefault))) + If Empty(m.lcCasa) + Return + Endif + Update cAMEF Set casa = Strtran(m.lcCasa, '[CODAMEF]', Alltrim(codamef), 1, 1, 1) Where Empty(casa) + + Else + Local loCauta + loCauta = CautPartenerContabilitate(GetHash([cTitlu=>Casa??lAdaugCorespondente=>1??cTipuriParteneri=>22])) + If Empty(Nvl(loCauta.id_part, 0)) + Return + Endif + Update cAMEF Set casa = loCauta.nume, id_casa = loCauta.id_part + Endif + Else + If m.lnRaspuns = 2 && cancel + Return + Endif + Endif + Endif + Update cAMEF Set casa = Upper(Nvl(casa, '')) + + + ************************** + * CLIENTI + ************************** + Select cAMEF + Locate For Empty(Nvl(client, '')) + If Found() + lnRaspuns = AMESSAGEBOX('Completati numele clientului la toate AMEF!' + Chr(13) + Chr(13) + ; + 'Doriti sa completati numele clientului la AMEF care nu au numele clientului?', 3 + 32, _Screen.Caption) + If m.lnRaspuns = 6 + If m.llContafin + lcClient = Upper(Alltrim(Inputbox('Nume client', 'Nume client (ex: "CLIENTI DIVERSI" sau "CLIENTI [CODAMEF]")', 'CLIENTI [CODAMEF]'))) + If Empty(m.lcClient) + Return + Endif + Update cAMEF Set client = Strtran(m.lcClient, '[CODAMEF]', Alltrim(codamef), 1, 1, 1) Where Empty(client) + Else + Local loCauta + loCauta = CautPartenerContabilitate(GetHash([cTitlu=>Client??lAdaugCorespondente=>1??cTipuriParteneri=>16])) + If Empty(Nvl(loCauta.id_part, 0)) + Return + Endif + Update cAMEF Set client = loCauta.nume, id_client = loCauta.id_part + Endif + Else + If m.lnRaspuns = 2 && cancel + Return + Endif + Endif + Endif + Update cAMEF Set client = Upper(Nvl(client, '')) + + + ************************** + * BANCA + ************************** + Select Distinct a.codamef From cAMEF a Join cConfigConturiIncasari i On a.codamef = i.codamef Where Empty(Nvl(a.banca, '')) And i.tipp = 1 And i.Cont = '5121' Into Cursor cBancaTemp + If _Tally > 0 + lnRaspuns = AMESSAGEBOX('Completati numele bancii la toate AMEF pentru incasarile cu card!' + Chr(13) + Chr(13) + ; + 'Doriti sa completati numele bancii la AMEF care nu au numele bancii?', 3 + 32, _Screen.Caption) + If m.lnRaspuns = 6 + If m.llContafin + lcBanca = Upper(Alltrim(Inputbox('Nume banca', 'Nume banca', 'CONT CARD LEI'))) + If Empty(m.lcBanca) + Return + Endif + Select cBancaTemp + Scan + lcCodAMEF = Alltrim(codamef) + Update cAMEF Set banca = m.lcBanca Where codamef = m.lcCodAMEF And Empty(banca) + Endscan + Else + Local loCauta + loCauta = CautPartenerContabilitate(GetHash([cTitlu=>Banca??lAdaugCorespondente=>1??cTipuriParteneri=>24])) + If Empty(Nvl(loCauta.id_part, 0)) + Return + Endif + Update cAMEF Set banca = loCauta.nume, id_banca = loCauta.id_part + Endif + Else + If m.lnRaspuns = 2 && cancel + Use In (Select('cBancaTemp')) + Return + Endif + Endif + Endif + Use In (Select('cBancaTemp')) + Update cAMEF Set banca = Upper(Nvl(banca, '')) + + + *** CONTURI VENIT + Select * From cConfigConturiVenit Where Empty(Nvl(Cont, '')) Into Cursor cVerifContTemp + If _Tally > 0 + AMESSAGEBOX('Completati contul de venit 7xx pe toate cotele TVA la fiecare AMEF!', 0 + 48, _Screen.Caption) + Use In (Select('cVerifContTemp')) + Return + Endif + Use In (Select('cVerifContTemp')) + + + *** CONTURI INCASARI + Select * From cConfigConturiIncasari Where Empty(Nvl(Cont, '')) Into Cursor cVerifContTemp + If _Tally > 0 + AMESSAGEBOX('Completati contul incasare 5xx la fiecare AMEF!', 0 + 48, _Screen.Caption) + Use In (Select('cVerifContTemp')) + Return + Endif + Use In (Select('cVerifContTemp')) + + *!* ******************************* + *!* * ID_PART + *!* ******************************* + *!* Select Distinct 1 as tip, casa As denumire, id_casa as id_part ; + *!* From cAMEF ; + *!* Where !Empty(Nvl(casa, '')) ; + *!* Union ; + *!* Select Distinct 2 as tip, banca As denumire, id_banca as id_part ; + *!* From cAMEF ; + *!* Where !Empty(Nvl(casa, '')) ; + *!* Union ; + *!* Select Distinct 3 as tip, client As denumire, id_client As id_part ; + *!* From cAMEF ; + *!* Where !Empty(Nvl(client, '')) ; + *!* Into Cursor cParteneri Readwrite + + *!* Select cParteneri + *!* Locate For Inlist(denumire, 'CENTRALA', 'CASA LEI') + *!* If !Found() + *!* Insert Into cParteneri (denumire, id_part) Values ('CENTRALA', 0) + *!* Insert Into cParteneri (denumire, id_part) Values ('CASA LEI', 0) + *!* Endif + *!* Select cParteneri + *!* Index On denumire Tag denumire + + + *!* Select cParteneri + *!* SCAN FOR !EMPTY(NVL(id_part, 0)) + *!* If m.llContafin + *!* && CONTAFIN + *!* Select cParteneri + *!* Replace id_part With Recno() + *!* llSucces = .T. + *!* Else + *!* && ROA + *!* pcDenumire = Alltrim(denumire) + *!* lcSql = [SELECT MAX(ID_PART) AS ID_PART FROM nom_parteneri WHERE STERS = 0 AND INACTIV = 0 AND denumire = ?pcDenumire] + *!* pnIdPart = 0 + *!* llSucces = goExecutor.oSelecteaza2Value(m.lcSql, @pnIdPart) + *!* If m.llSucces AND !EMPTY(NVL(m.pnIdPart,0)) + *!* Replace id_part With Nvl(m.pnIdPart, 0) In cParteneri + *!* ELSE + *!* IF m.llSucces AND EMPTY(NVL(m.pnIdPart,0)) + *!* AMESSAGEBOX('Nu s-a gasit partenerul ' + m.pcDenumire + '!',0+16,_screen.Caption) + *!* llSucces = .F. + *!* ENDIF + *!* *Thisform.trace('Eroare la selectia partener casa/banca ROA ' + m.pcDenumire + " " + goExecutor.oPrelucrareEroare()) + *!* Exit + *!* Endif + *!* Endif && .T. + *!* Endscan + + If m.llSucces + + * Selectez monetarele facturat defalcate pe cote TVA + Select 1 As tip, a.codamef, z.nract, z.dataact, ; + a.acont4111, a.acont442x, a.id_client, a.client, ; + a.id_casa, a.casa, a.id_casac, a.casac, a.id_banca, a.banca, ; + a.id_sectie, a.sectie, a.id_venchelt, a.dst_chlt, z.nrb, ; + T.cota As proctva, ; + Max(v.Cont) As cont7xx, Max(v.acont) As acont7xx, ; + Sum(T.valtva) As valtva, Sum(T.valctva - T.valtva) As valftva, Sum(T.valctva) As valctva, ; + Cast(0 As N(16, 2)) As vnumerar, ; + Cast(0 As N(16, 2)) As vcard, ; + Cast(0 As N(16, 2)) As vtichete, ; + Cast(0 As N(16, 2)) As vbon, ; + Space(4) As contNumerar, Space(4) As acontNumerar, ; + Space(4) As contCard, Space(4) As acontCard, ; + Space(4) As contTichete, Space(4) As acontTichete, ; + Space(4) As contBonuri, Space(4) As acontBonuri ; + From cAMEF a Join cZet z On a.codamef = z.codamef ; + Join cZetTVA T On z.codamef = T.codamef And z.filename = T.filename AND z.nract = t.nract AND z.dataact = t.dataact ; + Left Join cConfigConturiVenit v On T.codamef = v.codamef And T.cota = v.cota ; + Group By a.codamef, z.nract, z.dataact, a.acont4111, a.acont442x, a.id_client, a.client, ; + a.id_casa, a.casa, a.id_casac, a.casac, a.id_banca, a.banca, ; + a.id_sectie, a.sectie, a.id_venchelt, a.dst_chlt, z.nrb, T.cota ; + Into Cursor cIesiri Readwrite + + * Selectez monetarele incasat + Select 2 As tip, a.codamef, z.nract, z.dataact, ; + a.acont4111, a.acont442x, a.id_client, a.client, ; + a.id_casa, a.casa, a.id_casac, a.casac, a.id_banca, a.banca, ; + a.id_sectie, a.sectie, a.id_venchelt, a.dst_chlt, z.nrb, ; + Max(z.vnumerar) As vnumerar, Max(z.vcard) As vcard, Max(z.vtichete) As vtichete, Max(z.vbon) As bon, ; + Cast(Max(Iif(i.tipp = 3, i.Cont, "")) As C(4)) As contNumerar, Cast(Max(Iif(i.tipp = 3, i.acont, "")) As C(4)) As acontNumerar, ; + Cast(Max(Iif(i.tipp = 1, i.Cont, "")) As C(4)) As contCard, Cast(Max(Iif(i.tipp = 1, i.acont, "")) As C(4)) As acontCard, ; + Cast(Max(Iif(i.tipp = 4, i.Cont, "")) As C(4)) As contTichete, Cast(Max(Iif(i.tipp = 4, i.acont, "")) As C(4)) As acontTichete, ; + Cast(Max(Iif(i.tipp = 5, i.Cont, "")) As C(4)) As contBonuri, Cast(Max(Iif(i.tipp = 5, i.acont, "")) As C(4)) As acontBonuri ; + From cAMEF a Join cZet z On a.codamef = z.codamef ; + Left Join cConfigConturiIncasari i On z.codamef = i.codamef ; + Group By a.codamef, z.nract, z.dataact, a.acont4111, a.acont442x, a.id_client, a.client, ; + a.id_casa, a.casa, a.id_casac, a.casac, a.id_banca, a.banca, ; + a.id_sectie, a.sectie, a.id_venchelt, a.dst_chlt, z.nrb ; + Into Cursor cZetTemp + + Select cIesiri + Append From Dbf('cZetTemp') + Use In (Select('cZetTemp')) + + * Selectez monetarele transfer in casa centrala, daca este completata casa centrala si este diferita de casa AMEF + Select 3 As tip, a.codamef, z.nract, z.dataact, ; + a.acont4111, a.acont442x, a.id_client, a.client, ; + a.id_casa, a.casa, a.id_casac, a.casac, a.id_banca, a.banca, ; + a.id_sectie, a.sectie, a.id_venchelt, a.dst_chlt, z.nrb, ; + Max(z.vnumerar) As vnumerar, ; + Cast(Max(Iif(i.tipp = 3, i.Cont, "")) As C(4)) As contNumerar, Cast(Max(Iif(i.tipp = 3, i.acont, "")) As C(4)) As acontNumerar ; + From cAMEF a Join cZet z On a.codamef = z.codamef ; + Left Join cConfigConturiIncasari i On z.codamef = i.codamef ; + Where !Empty(Nvl(a.casac, '')) And Nvl(a.casac, '') <> Nvl(a.casa, '') ; + Group By a.codamef, z.nract, z.dataact, ; + a.acont4111, a.acont442x, a.id_client, a.client, ; + a.id_casa, a.casa, a.id_casac, a.casac, a.id_banca, a.banca, ; + a.id_sectie, a.sectie, a.id_venchelt, a.dst_chlt, z.nrb ; + Into Cursor cZetTemp + + Select cIesiri + Append From Dbf('cZetTemp') + Use In (Select('cZetTemp')) + + Endif && llSucces + + If m.llSucces + lcContTVA = Iif(m.llTVAIncasare, '4428', '4427') + Create Cursor cNote (Id N(1), scd C(4), scc C(4), proctva N(2), id_jtva1 N(4) Null, id_jtva2 N(4) Null) + For lnCota = 1 To 8 + Do Case + Case lnCota = 1 + lnProcTVA = 24 + lnIdBaza1 = 15 && fara TVA Incsare + lnIdTVA1 = 16 + lnIdBaza2 = 21 && cu TVA Incasare + lnIdTVA2 = 22 + + Case lnCota = 2 + lnProcTVA = 20 + lnIdBaza1 = 27 && fara TVA Incsare + lnIdTVA1 = 28 + lnIdBaza2 = 29 && cu TVA Incasare + lnIdTVA2 = 30 + Case lnCota = 3 + lnProcTVA = 19 + lnIdBaza1 = 1 && fara TVA Incsare + lnIdTVA1 = 2 + lnIdBaza2 = 31 && cu TVA Incasare + lnIdTVA2 = 32 + Case lnCota = 4 + lnProcTVA = 9 + lnIdBaza1 = 3 && fara TVA Incsare + lnIdTVA1 = 4 + lnIdBaza2 = 23 && cu TVA Incasare + lnIdTVA2 = 24 + Case lnCota = 5 + lnProcTVA = 5 + lnIdBaza1 = 13 && fara TVA Incsare + lnIdTVA1 = 14 + lnIdBaza2 = 25 && cu TVA Incasare + lnIdTVA2 = 26 + Case lnCota = 6 + lnProcTVA = 21 + lnIdBaza1 = 35 && fara TVA Incsare + lnIdTVA1 = 36 + lnIdBaza2 = 37 && cu TVA Incasare + lnIdTVA2 = 38 + Case lnCota = 7 + lnProcTVA = 11 + lnIdBaza1 = 39 && fara TVA Incsare + lnIdTVA1 = 40 + lnIdBaza2 = 41 && cu TVA Incasare + lnIdTVA2 = 42 + Case lnCota = 8 + lnProcTVA = 0 + lnIdBaza1 = 11 && fara TVA Incsare + lnIdTVA1 = 0 + lnIdBaza2 = 11 && cu TVA Incasare + lnIdTVA2 = 0 + Endcase + * Baza + Insert Into cNote (Id, scd, scc, proctva, id_jtva1, id_jtva2) Values (1, m.lcCont4111, '707', m.lnProcTVA, m.lnIdBaza1, m.lnIdBaza2) + + * TVA + If lnProcTVA <> 0 + Insert Into cNote (Id, scd, scc, proctva, id_jtva1, id_jtva2) Values (2, m.lcCont4111, m.lcContTVA, m.lnProcTVA, m.lnIdTVA1, m.lnIdTVA2) + Endif + Endfor + + * Note incasari + Insert Into cNote (Id, scd, scc, proctva, id_jtva1, id_jtva2) Values (3, m.lcContCard, m.lcCont4111, 0, Null, Null) && card + Insert Into cNote (Id, scd, scc, proctva, id_jtva1, id_jtva2) Values (4, m.lcContNumerar, m.lcCont4111, 0, Null, Null) && numerar + Insert Into cNote (Id, scd, scc, proctva, id_jtva1, id_jtva2) Values (5, m.lcContTichete, m.lcCont4111, 0, Null, Null) && tichete de masa + Insert Into cNote (Id, scd, scc, proctva, id_jtva1, id_jtva2) Values (6, m.lcContBonuri, m.lcCont4111, 0, Null, Null) && bonuri valorice + + * Note transfer casa centrala + Insert Into cNote (Id, scd, scc, proctva, id_jtva1, id_jtva2) Values (7, "581", m.lcContNumerar, 0, Null, Null) && transfer 581 = 5311 casa AMEF + Insert Into cNote (Id, scd, scc, proctva, id_jtva1, id_jtva2) Values (8, m.lcContNumerar, "581", 0, Null, Null) && transfer 5311 = 581 casa Centrala + + ldLastData = Gomonth(Date(m.gnAn, m.gnLuna, 1), 1) - 1 + ldDataCurenta = Date() + ldDataIreg = Iif(Year(m.ldDataCurenta) <> m.gnAn Or Month(m.ldDataCurenta) <> m.gnLuna, m.ldLastData, m.ldDataCurenta) + + Select i.codamef, i.nrb, N.Id As nrcrt, lnIdSet As id_set, m.gnAn As an, m.gnLuna As luna, ; + Cast(Iif(N.Id = 1, Iif(i.cont7xx = '667', i.cont7xx, N.scd), ; + Iif(N.Id = 2, N.scd, ; + Iif(N.Id = 3, Iif(!Empty(i.vcard), i.contCard, m.lcContCard), ; + Iif(N.Id = 4, Iif(!Empty(i.vnumerar), i.contNumerar, m.lcContNumerar), ; + Iif(N.Id = 5, Iif(!Empty(i.vtichete), i.contTichete, m.lcContTichete), ; + Iif(N.Id = 6, Iif(!Empty(i.vbon), i.contBonuri, m.lcContBonuri), ; + Iif(N.Id = 7, N.scd, ; + Iif(N.Id = 8, N.scd, m.lcContNumerar)))))))) As C(4)) As scd, ; + Cast(Iif(N.Id = 1, Iif(i.cont7xx = '667', i.acont7xx, i.acont4111), ; + Iif(N.Id = 2, i.acont4111, ; + Iif(N.Id = 3, Iif(!Empty(i.vcard), i.acontCard, ''), ; + Iif(N.Id = 4, Iif(!Empty(i.vnumerar), i.acontNumerar, ''), ; + Iif(N.Id = 5, Iif(!Empty(i.vtichete), i.acontTichete, ''), ; + Iif(N.Id = 6, Iif(!Empty(i.vbon), i.acontBonuri, ''), ; + Iif(N.Id = 7, '', ; + Iif(N.Id = 8, '', '')))))))) As C(4)) As ascd, ; + Cast(Iif(N.Id = 1, Iif(i.cont7xx = '667', N.scd, i.cont7xx), ; + Iif(N.Id = 2, m.lcContTVA, N.scc)) As C(4)) As scc, ; + Cast(Iif(N.Id = 1, Iif(i.cont7xx = '667', i.acont4111, i.acont7xx), ; + Iif(N.Id = 2, i.acont442x, ; + Iif(Between(N.Id, 3, 6), i.acont4111, ''))) As C(4)) As ascc, ; + i.dataact, 1 + Round(i.proctva / 100, 2) As proc_tva, ; + Iif(!m.llTVAIncasare, N.id_jtva1, N.id_jtva2) As id_jtva_coloana, ; + i.nract, '' As serie_act, i.dataact As datascad, i.dataact As dataireg, ; + i.client As client, ; + Cast(Iif(Inlist(N.Id, 4, 7), i.casa, ; + Iif(N.Id = 8, i.casac, '')) As C(30)) As casa, ; + Cast(Iif(N.Id = 3 And i.contCard = m.lcContBanca, i.banca, '') As C(30)) As banca, ; + Cast(Iif(N.Id = 1, Iif(i.cont7xx = '667', 0, i.id_client), ; + Iif(N.Id = 2, i.id_client, ; + Iif(N.Id = 3, i.id_banca, ; + Iif(N.Id = 4, i.id_casa, ; + Iif(N.Id = 8, i.id_casac, 0))))) As N(10)) As id_partd, ; + Cast(Iif(N.Id = 1, Iif(i.cont7xx = '667', '', i.client), ; + Iif(N.Id = 2, i.client, ; + Iif(N.Id = 3, i.banca, ; + Iif(N.Id = 4, i.casa, ; + Iif(N.Id = 8, i.casac, ''))))) As C(100)) As partd, ; + Cast(Iif(N.Id = 1, Iif(Inlist(i.cont7xx, '667', '419'), i.id_client, 0), ; + Iif(N.Id = 2, 0, ; + Iif(Between(N.Id, 3, 6), i.id_client, ; + Iif(N.Id = 7, i.id_casa, 0)))) As N(10)) As id_partc, ; + Cast(Iif(N.Id = 1, Iif(Inlist(i.cont7xx, '667', '419'), i.client, ''), ; + Iif(N.Id = 2, '', ; + Iif(Between(N.Id, 3, 6), i.client, ; + Iif(N.Id = 7, i.casa, '')))) As C(100)) As partc, ; + Cast(0 As N(14)) As pereche, Cast(Iif(N.Id >= 3, i.nract, 0) As N(14)) As pereche2, ; + Cast(0 As N(14)) As pereched, Cast(Iif(N.Id >= 3, i.nract, 0) As N(14)) As perechec, ; + Cast(Iif(N.Id = 1, Iif(i.cont7xx = '667', - i.valftva, i.valftva), ; + Iif(N.Id = 2, valtva, ; + Iif(N.Id = 3, vcard, ; + Iif(N.Id = 4, vnumerar, ; + Iif(N.Id = 5, vtichete, ; + Iif(N.Id = 6, vbon, ; + Iif(Inlist(N.Id, 7, 8), vnumerar, 0))))))) As N(20, 2)) As suma, ; + Cast(Null As i) As id_sucursala, Space(100) As sucursala, ; + Cast(m.pnIdFdoc As N(5)) As id_fdoc, pcFdoc As fdoc, ; + i.id_sectie, i.sectie, i.id_venchelt, i.dst_chlt, ; + Cast(0 As i) As id_factd, Cast(Iif(Between(N.Id, 3, 6), -1, 0) As i) As id_factc, Cast(0 As i) As id_fact, pnTVAIncasare As tva_incasare, Cast(0 As i) As cod ; + From cIesiri i Left Join cNote N On ((i.tip = 1 And i.proctva = N.proctva And N.Id <= 2) Or ; + (i.tip = 2 And N.proctva = 0 And Between(N.Id, 3, 6)) Or ; + (i.tip = 3 And N.proctva = 0 And Between(N.Id, 7, 8))) ; + Into Cursor actactanTemp Readwrite + + Use In (Select('cNote')) + + Select CAST(0 as I) as rn, nrcrt, id_set, an, luna, dataact, datascad, dataireg, serie_act, nract, proc_tva, id_jtva_coloana As id_jtva, id_jtva_coloana, scd, ascd, scc, ascc, ; + id_partd, partd, id_partc, partc, client As nume, banca As nume_2, casa As nume_3, Padr(codamef, 100, ' ') as explicatia, Padr(codamef, 100, ' ') As explicatia4, nrb, pereche, pereche2, pereched, perechec, ; + id_sucursala, sucursala, id_fdoc, fdoc, id_factd, id_factc, id_fact, tva_incasare, cod, ; + id_sectie, sectie, id_venchelt, dst_chlt, ; + Sum(suma) As suma ; + From actactanTemp ; + Group By nrcrt, id_set, an, luna, dataact, datascad, dataireg, serie_act, nract, proc_tva, id_jtva_coloana, scd, ascd, scc, ascc, ; + id_partd, partd, id_partc, partc, client, banca, casa, codamef, nrb, pereche, pereche2, pereched, perechec, ; + id_sucursala, sucursala, id_fdoc, fdoc, id_factd, id_factc, id_fact, tva_incasare, cod, ; + id_sectie, sectie, id_venchelt, dst_chlt ; + Order By id_set, an, luna, codamef, dataact, datascad, dataireg, serie_act, nract, nrcrt, proc_tva ; + Into Cursor actactan Readwrite + + Use In (Select('cActTemp')) + + * Dadea eroare cand puneam cast(m.gnIdSucursala as I) + Update actactan Set id_sucursala = m.gnIdSucursala, sucursala = m.gcSucursala + SELECT actactan + REPLACE ALL rn WITH RECNO() + + * Completez nr bonuri pe prima inregistrare de la fiecare monetar + Select explicatia, dataact, nract, Min(rn) As rn From actactan Group By explicatia, dataact, nract Into Cursor cActTemp + Select cActTemp + Scan + lnRn = rn + Update actactan Set explicatia = ALLTRIM(explicatia) + ' *BON=' + Alltrim(Str(nrb)) + '*' Where rn = m.lnRn + Endscan + USE IN (SELECT('cActTemp')) + + + Delete From actactan Where suma = 0 + If m.llContafin + Update actactan Set id_jtva = Nvl(id_jtva, 0), id_partd = 0, id_partc = 0 + Endif + + Use In (Select('actactantemp')) + + llSucces = .T. + Endif + + Return m.llSucces + + ENDPROC + + PROCEDURE Destroy + USE IN (SELECT('cConfigConturiVenit')) + USE IN (SELECT('cConfigConturiIncasari')) + + USE IN (SELECT('cZetTVA')) + USE IN (SELECT('cZet')) + USE IN (SELECT('cAMEF')) + + ENDPROC + + PROCEDURE disconnectroa + ENDPROC + + PROCEDURE exportdate + ENDPROC + + PROCEDURE getidpart + LPARAMETERS tcDenumire + LOCAL lcDenumire, lnId + lnId = 0 + lcDenumire = ALLTRIM(m.tcDenumire) + IF USED('cParteneri') + IF SEEK(m.lcDenumire, 'cParteneri','denumire') + lnId = cParteneri.id_part + ENDIF + ENDIF + RETURN m.lnId + ENDPROC + + PROCEDURE Init + LPARAMETERS tlContafin + + IF PCOUNT() > 0 + this.lContafin = m.tlContafin + ENDIF + + DODEFAULT() + + *!* This.grdAMEF.ReadOnly = .F. + *!* WITH this.grdAMEF + *!* .cCodAMEF.ReadOnly = .T. + *!* .cCodFiscal.ReadOnly = .T. + *!* .cTipAMEF.ReadOnly = .T. + *!* .cClient.ReadOnly = .F. + *!* .cClient.text1a.ReadOnly = .F. + *!* .cCasa.ReadOnly = .F. + *!* .cBanca.ReadOnly = .F. + *!* .cAcont4111.ReadOnly = .F. + *!* .cAcont442x.ReadOnly = .F. + *!* ENDWITH + + *!* this.grdConfigurareConturi.ReadOnly = .F. + *!* this.grdConfigurareConturi.cCota.ReadOnly = .T. + *!* this.grdConfigurareConturi.cCont.ReadOnly = .F. + *!* this.grdConfigurareConturi.cAcont.ReadOnly = .F. + + *!* this.grdConfigurareIncasari.ReadOnly = .F. + *!* this.grdConfigurareIncasari.cTip.ReadOnly = .T. + *!* this.grdConfigurareIncasari.cCont.ReadOnly = .F. + *!* this.grdConfigurareIncasari.cAcont.ReadOnly = .F. + ENDPROC + + PROCEDURE Load + CREATE CURSOR cAMEF (codamef C(20), cod_fiscal C(20), tipamef C(20), casa C(30), casac C(30), banca C(30), client C(70), acont4111 C(4), acont442x C(4), id_casa I, id_casac I, id_banca I, id_client I, sectie C(30), dst_chlt C(30), id_sectie I, id_venchelt I) + CREATE CURSOR cZet (codamef C(20), filename C(250), ctext M, nract N(20), dataact D, nrb N(10), nrbc N(10), valctva N(16,2), valtva N(16,2), vcard N(16,2), vnumerar N(16,2), vtichete N(16,2), vbon N(16,2)) && cursor Z-uri + CREATE CURSOR cZetTVA (codamef C(20), filename C(250), nract N(20), dataact D, cota N(5,2), valtva N(16,2), valctva N(16,2)) && cursor cu sume defalcate pe cote TVA pentru fiecare Z + + * Trebuie sa citesc configurarile pentru fiecare AMEF + CREATE CURSOR cConfigConturiVenit(codamef C(20), cota N(5,2), cont C(4), acont C(4)) + CREATE CURSOR cConfigConturiIncasari(codamef C(20), tipp N(1), tip C(50), cont C(4), acont C(4)) + + This.LoadSettings() + + Select cConfigConturiVenit + Set Filter To codamef = cAMEF.codamef + + Select cConfigConturiIncasari + Set Filter To codamef = cAMEF.codamef + + + SELECT cZet + + ENDPROC + + PROCEDURE loadsettings + * Incarc setarile pe fiecare AMEF + + Local lcAMEF, lcConturiIncasari, lcConturiVenit, llContafin + lcAMEF = '' + lcCOnturiIncasari = '' + lcConturiVenit = '' + llContafin = This.lContafin + If m.llContafin + lcAMEF = citeste_optiune("OPTIUNI_FIRMA", 'A4200_AMEF', "CHARACTER", "", "A4200 setari AMEF") + lcConturiVenit = citeste_optiune("OPTIUNI_FIRMA", 'A4200_VENITURI', "CHARACTER", "", "A4200 setari venituri") + lcConturiIncasari = citeste_optiune("OPTIUNI_FIRMA", 'A4200_INCASARI', "CHARACTER", "", "A4200 setari incasari") + ELSE + lcAMEF = citeste_optiune('A4200_AMEF', .T.) + lcConturiVenit = citeste_optiune('A4200_VENITURI', .T.) + lcConturiIncasari = citeste_optiune('A4200_INCASARI', .T.) + Endif + + If !Empty(m.lcAMEF) + XMLTOCURSOR(m.lcAMEF, 'cAMEFTemp') + SELECT cAMEF + APPEND FROM DBF('cAMEFTemp') + USE IN (SELECT('cAMEFTemp')) + GO TOP IN cAMEF + ENDIF + + If !Empty(m.lcConturiVenit) + XMLTOCURSOR(m.lcConturiVenit, 'cConfigConturiVenitTemp') + SELECT cConfigConturiVenit + APPEND FROM DBF('cConfigConturiVenitTemp') + USE IN (SELECT('cConfigConturiVenitTemp')) + GO TOP IN cConfigConturiVenit + ENDIF + + If !Empty(m.lcConturiIncasari) + XMLTOCURSOR(m.lcConturiIncasari, 'cConfigConturiIncasariTemp') + SELECT cConfigConturiIncasari + APPEND FROM DBF('cConfigConturiIncasariTemp') + USE IN (SELECT('cConfigConturiIncasariTemp')) + GO TOP IN cConfigConturiIncasari + Endif + ENDPROC + + PROCEDURE modificanote + Local loForm As [frm_modific2007] + Local llMaximize, llNotaNoua, lnIdSet, llSucces, lcSelect + Local lcSql, lnSucces + Local ldDataAct, llFurnizorTVAI, lnIdJtva, lnTaxCode + Private pnCod + + llSucces = .T. + lnIdSet = 50100 + lcSelect = Select() + + update_jtva_coloane("JV", 'crsExplicatiiTVATemp', 1) + + lcSql = [SELECT * FROM vact WHERE 1=2] + llSucces = goExecutor.oExecuta(m.lcSql, 'actactan_temp') + If m.llSucces + Select actactan_temp + Append From Dbf('actactan') + Use In (Select('actactan')) + + Select .F. As ales, a.explicatia4 As amef, Iif(!Empty(Nvl(a.id_jtva_coloana, 0)), 1, 0) As Cu_tva, Cast(0 As N(2)) As tipnota, a.*, b.denumire As explicatie_tva_2 ; + From actactan_temp a Left Join crsExplicatiiTVATemp b On a.id_jtva_coloana = b.id_jtva_coloana ; + Into Cursor tact Readwrite + + Update tact Set explicatie_tva = explicatie_tva_2, explicatia4 = '' + + * Actualizez taxcode SAFT in functie de furnizori RTVAI + IF m.gl406 + SELECT tact + SCAN FOR !EMPTY(id_jtva_coloana) + lnIdJtva = id_jtva_coloana + ldDataAct = dataact + llFurnizorTVAI = .F. + lnTaxCode = GetTaxCode(m.gnAn, m.gnLuna, m.ldDataAct, m.lnIdJtva, m.llFurnizorTVAI) + SELECT tact + REPLACE taxcode WITH m.lnTaxCode + ENDSCAN + + UPDATE tact SET paymentcode = '42' WHERE LEFT(scd,3) = '512' OR LEFT(scc,3) = '512' && plata in contul bancar + UPDATE tact SET paymentcode = '10' WHERE scd = '5311' && plata numerar + ENDIF + Endif && llSucces + + If m.llSucces + Select tact + Go Top + llNotaNoua = .T. + llMaximize = .T. + loForm = Createobject([frm_modific2007], m.lnIdSet, m.llNotaNoua) + loForm.lb_titlu_alb_b121.Caption = 'Import monetare fisiere casa marcat A4200' + Select tact + loForm.Show(1, m.llMaximize) + + If buton = 1 + Use In (Select('actactan')) + + Update tact Set id_jtva_coloana = Null, PROC_TVA = 0 Where Cu_tva = 0 + + lnSucces = SQLSetprop(m.gnhandle, "Transactions", 2) + llSucces = (m.lnSucces > 0) + If m.llSucces + * Generez coduri pentru fiecare AMEF (explicatie = CODAMEF) + * Generez coduri pentru fiecare Z. Daca se doreste modificarea unui Z, sa se poata face individual, nu pe tot importul. + + lcSql = [SELECT seq_cod.nextval FROM dual] + Select Distinct amef, nract From tact Into Cursor cCodTemp + Select cCodTemp + Scan + Wait Window 'Salvare nota AMEF ' + Transform(Recno()) + '/' + Transform(Reccount()) Nowait + pnCod = 0 + llSucces = goExecutor.oSelecteaza2Value(m.lcSql, @pnCod) + If m.llSucces + Update tact Set cod = m.pnCod Where amef = cCodTemp.amef AND nract = cCodTemp.nract + + Select * From tact Where cod = m.pnCod Into Cursor actactan Readwrite + + Select actactan + lnSucces = OSCRIE_IN_FISIERE(0, .F., .F., .T.) + llSucces = (m.lnSucces > 0) + Use In (Select('actactan')) + If !m.llSucces + Exit + Endif + Else + Exit + Endif + Endscan && cCodTemp + Use In (Select('cCodTemp')) + Endif && llSucces + + + If !m.llSucces + lcSql = "ROLLBACK" + Else + lcSql = "COMMIT" + Endif + lnSucces = goExecutor.oExecute(m.lcSql) + llSucces = (m.lnSucces > 0) + If !m.llSucces + AMESSAGEBOX(lcSql + Chr(13) + goExecutor.cEroare, 0 + 16, "Eroare") + Endif + + lnSucces = SQLSetprop(gnhandle, "Transactions", 1) + llSucces = (m.lnSucces > 0) + If !m.llSucces + AMESSAGEBOX('Programul nu a reusit sa treaca pe tranzactie automata. Iesiti din program si intrati din nou!', 0 + 48, 'Atentie!') + Endif + Else + llSucces = .F. + Endif && buton = 1 + Endif && llSucces + + Use In (Select('crsExplicatiiTVATemp')) + Select (m.lcSelect) + Return m.llSucces + + ENDPROC + + PROCEDURE prelucreazafisierebreeze + ENDPROC + + PROCEDURE refreshamef + Go Top In cZet + Thisform.grdZ.Refresh + + Go Top In cZetTVA + Thisform.grdTVA.Refresh + + Go Top In cConfigConturiVenit + Thisform.grdConfigurareConturi.Refresh + + Go Top In cConfigConturiIncasari + Thisform.grdConfigurareIncasari.Refresh + + ENDPROC + + PROCEDURE savesettings + * Salvez setarile pe fiecare AMEF + + Local lcAMEF, lcConturiIncasari, lcConturiVenit, llContafin, lcFilter + lcAMEF = '' + lcConturiIncasari = '' + lcConturiVenit = '' + llContafin = This.lContafin + + Cursortoxml('cAMEF', "lcAMEF", 1, 1 + 2, 0, "1") + + SELECT cConfigConturiVenit + lcFilter = FILTER() + SET FILTER TO + Cursortoxml('cConfigConturiVenit', "lcConturiVenit", 1, 1 + 2, 0, "1") + SET FILTER TO &lcFilter + + SELECT cConfigConturiIncasari + lcFilter = FILTER() + SET FILTER TO + Cursortoxml('cConfigConturiIncasari', "lcConturiIncasari", 1, 1 + 2, 0, "1") + SET FILTER TO &lcFilter + + If m.llContafin + = citeste_optiune("OPTIUNI_FIRMA", 'A4200_AMEF', "CHARACTER", m.lcAMEF, "A4200 setari AMEF", .T.) + = citeste_optiune("OPTIUNI_FIRMA", 'A4200_VENITURI', "CHARACTER", m.lcConturiVenit, "A4200 setari venituri", .T.) + = citeste_optiune("OPTIUNI_FIRMA", 'A4200_INCASARI', "CHARACTER", m.lcConturiIncasari, "A4200 setari incasari", .T.) + ELSE + = scrie_optiune('A4200_AMEF', m.lcAMEF, "A4200 setari AMEF", .T.) + = scrie_optiune('A4200_VENITURI', m.lcConturiVenit, "A4200 setari venituri", .T.) + = scrie_optiune('A4200_INCASARI', m.lcConturiIncasari, "A4200 setari incasari", .T.) + Endif + ENDPROC + + PROCEDURE scrienote + Local lcMesaj, lcSql, lnHandle, lnSucces, lnSucces2 + Private gnAn, gnIdSucursala, gnIdUtil, gnLuna + lnSucces = SQLSetprop(m.lnHandle, "Transactions", 2) + + if lnSucces > 0 + && Creez note pentru fiecare luna/an + Select Distinct an, luna From actactan Order By an, luna Into Cursor cAnLuna + Select cAnLuna + Scan + *gnAn = an + *gnLuna = luna + *gnIdUtil = - 3 + *gnIdSucursala = Null + + if m.lnSucces > 0 + lcSql = [begin pack_contafin.init_scriere_act_rul_local(?gnIdUtil,?gnAn,?gnLuna, 1,0,?gnIdSucursala); end;] + lnSucces = goExecutor.oExecute(m.lcSql) + Endif + + if lnSucces > 0 + SELECT * FROM actactan WHERE an = m.gnAn AND luna = m.gnLuna INTO CURSOR cAct NOFILTER + lnSucces = This.sql_temp_insert('cAct', 'ACT_TEMP') + USE IN (SELECT('cAct')) + Endif + + if lnSucces > 0 + Private pcMesajRefacereNota + pcMesajRefacereNota = "" + lcSql = [begin pack_contafin.final_scriere_act_rul_local(?gnIdUtil, ?gnAn, ?gnLuna, NULL, 0, 1, ?@pcMesajRefacereNota); end;] + lnSucces = goExecutor.oExecute(m.lcSql) + If !Empty(Nvl(pcMesajRefacereNota, '')) + This.trace(m.pcMesajRefacereNota) + AMESSAGEBOX(m.pcMesajRefacereNota, 0 + 48, 'Atentie') + Endif + Release pcMesajRefacereNota + ELSE + lcMesaj = goExecutor.cEroare + This.Trace(m.lcMesaj) + AMESSAGEBOX(m.lcMesaj,0+48, _screen.Caption ) + EXIT + ENDIF && lnSucces + Endscan && cAnLuna + + Use In (Select('cAnLuna')) + + if lnSucces > 0 + lnSucces2 = goExecutor.oExecute('COMMIT') + IF lnSucces2 <> 1 + lnSucces = 0 + ENDIF + Else + lnSucces2 = goExecutor.oExecute('ROLLBACK') + Endif + + If lnSucces2 <> 1 + This.trace(goExecutor.cEroare) + AMESSAGEBOX(lcSql + Chr(13) + goExecutor.cEroare, 0 + 16, "Eroare") + ELSE + This.trace('Import realizat cu succes!') + Endif + + lnSucces3 = SQLSetprop(m.lnHandle, "Transactions", 1) + + If lnSucces3 <> 1 + lcMesaj = 'Programul nu a reusit sa treaca pe tranzactie automata. Iesiti din program si intrati din nou!' + This.trace(m.lcMesaj) + AMESSAGEBOX(m.lcMesaj, 0 + 48, 'Atentie!') + Endif + Endif && lnSucces + + Return m.lnSucces + + ENDPROC + + PROCEDURE sql_temp_insert + Lparameters tcAlias, tcTableName + + Local lcAlias, lcCursor, lnSucces + Local lcDate, lcFieldName, lcFieldType, lcFieldValue, lcFields, lcInsert, lcMesaj, lcNumber, lcSql + Local lcString, lcTableName, lcValues, lnCount + Local lnField + + Private poIreg, pcTableName + Local lcVariable + + If Empty(tcAlias) + lcAlias = 'ACTACTAN' + Else + lcAlias = Upper(Alltrim(tcAlias)) + Endif + If Empty(tcTableName) + pcTableName = 'ACT_TEMP' + Else + pcTableName = Upper(Alltrim(tcTableName)) + Endif + + lcCursor = 'crs_Coloane' + lcSql = [SELECT COLUMN_NAME AS COLOANA from user_tab_columns WHERE table_name = ?pcTableName] + lnSucces = goExecutor.oExecute(m.lcSql, m.lcCursor) + If m.lnSucces <> 1 + lcMesaj = 'Eroare la selectare coloane din ' + m.lcTableName + Chr(13) + goExecutor.cEroare + This.trace(m.lcMesaj) + AMESSAGEBOX(m.lcMesaj, 0 + 16, 'Eroare') + Endif + + If m.lnSucces = 1 + Select (lcAlias) + lnCount = Fcount() + lcFields = [] + lcValues = [] + lcInsert = [] + For lnField = 1 To lnCount + Select (lcAlias) + lcFieldName = Upper(Alltrim(Field(lnField))) + lcFieldType = Type(lcFieldName) + lcFieldValue = Evaluate(lcFieldName) + If lcFieldType = 'C' + lcVariable = '?ALLTRIM(poIreg.' + lcFieldName + ')' + Else + lcVariable = '?poIreg.' + lcFieldName + Endif + + Select CRS_COLOANE + Locate For Upper(Alltrim(COLOANA)) == lcFieldName + If !Found() + Loop + Endif + lcFields = lcFields + [,] + lcFieldName + lcValues = lcValues + [,] + lcVariable + Endfor + + lcFields = Substr(lcFields, 2) + lcValues = Substr(lcValues, 2) + + && INSERT INTO ACT_TEMP + lcInsert = [INSERT INTO ] + m.pcTableName + [ (] + m.lcFields + [) VALUES (] + m.lcValues + [)] + + Select (lcAlias) + Scan + Scatter Name poIreg + IF MOD(RECNO(), 100) = 0 + This.trace(' Inregistrare ' + TRANSFORM(RECNO()) + ' / ' + TRANSFORM(RECCOUNT()) + ' ...') + ENDIF + && FAC NULL ID-URILE CU VALOARE 0 + If TYPE('poReg.id_sucursala') = 'N' AND poIreg.id_sucursala = 0 + poIreg.id_sucursala = Null + Endif + + lnSucces = goExecutor.oExecute(m.lcInsert) + If lnSucces <> 1 + This.trace(goExecutor.cEroare) + AMESSAGEBOX(goExecutor.cEroare, 0 + 16, 'Eroare') + Exit + Endif + + Endscan + Endif + + Use In (Select('crs_coloane')) + + Return m.lnSucces + + ENDPROC + + PROCEDURE sql_temp_insert_values + * daca se doreste insert into act_temp cu valori in loc de ? + * trebuie decomentata sectiunea cu valori + Lparameters tcAlias, tcTableName + + Local lcAlias, lcCursor, lnSucces + Local lcDate, lcFieldName, lcFieldType, lcFieldValue, lcFields, lcInsert, lcMesaj, lcNumber, lcSql + Local lcString, lcTableName, lcValues, lnCount + Local lnField + + Private poIreg, pcTableName + Local lcVariable + + If Empty(tcAlias) + lcAlias = 'ACTACTAN' + Else + lcAlias = Upper(Alltrim(tcAlias)) + Endif + If Empty(tcTableName) + pcTableName = 'ACT_TEMP' + Else + pcTableName = Upper(Alltrim(tcTableName)) + Endif + + lcCursor = 'crs_Coloane' + lcSql = [SELECT COLUMN_NAME AS COLOANA from user_tab_columns WHERE table_name = ?pcTableName] + lnSucces = goExecutor.oExecute(m.lcSql, m.lcCursor) + If m.lnSucces <> 1 + lcMesaj = 'Eroare la selectare coloane din ' + m.pcTableName + Chr(13) + goExecutor.cEroare + This.trace(m.lcMesaj) + AMESSAGEBOX(m.lcMesaj, 0 + 16, 'Eroare') + Endif + + If m.lnSucces = 1 + Select (lcAlias) + lnCount = Fcount() + Scan + lcFields = [] + lcValues = [] + lcInsert = [] + Scatter Name poIreg + + For lnField = 1 To lnCount + Select (lcAlias) + lcFieldName = Upper(Alltrim(Field(lnField))) + lcFieldType = Type(lcFieldName) + lcFieldValue = Evaluate(lcFieldName) + If lcFieldType = 'C' + lcVariable = '?ALLTRIM(poIreg.' + lcFieldName + ')' + Else + lcVariable = '?poIreg.' + lcFieldName + Endif + + Select CRS_COLOANE + Locate For Upper(Alltrim(COLOANA)) == lcFieldName + If !Found() + Loop + Endif + lcFields = lcFields + [,] + lcFieldName + lcNumber = '0' + lcDate = '' + lcString = '' + + && FAC NULL ID-URILE CU VALOARE 0 + If Inlist(lcFieldName, 'ID_SUCURSALA') + If poIreg.id_sucursala = 0 + poIreg.id_sucursala = Null + Endif + Endif + lcValues = lcValues + [,] + lcVariable + + *!* DO CASE + *!* CASE lcFieldType = 'N' + *!* IF EMPTY(lcFieldValue) OR ISNULL(lcFieldValue) + *!* lcNumber = '0' + *!* ELSE + *!* lcNumber = ALLTRIM(STR(lcFieldValue,24,4)) + *!* ENDIF + + *!* lcValues = lcValues + [,] + lcNumber + *!* CASE lcFieldType = 'C' + *!* IF EMPTY(lcFieldValue) OR ISNULL(lcFieldValue) + *!* lcString = '' + *!* ELSE + *!* lcString = ALLTRIM(lcFieldValue) + *!* ENDIF + + *!* lcValues = lcValues + [,] + ['] + lcString + ['] + *!* CASE INLIST(lcFieldType,'D','T') + *!* IF EMPTY(lcFieldValue) OR ISNULL(lcFieldValue) + *!* lcDate = '' + *!* ELSE + *!* lcDate = DTOS(lcFieldValue) + *!* ENDIF + *!* lcValues = lcValues + [,] + [TO_DATE('] + lcDate + [','YYYY-MM-DD')] + *!* ENDCASE + + Endfor + + lcFields = Substr(lcFields, 2) + lcValues = Substr(lcValues, 2) + + && INSERT INTO ACT_TEMP + lcInsert = [INSERT INTO ] + m.pcTableName + [ (] + lcFields + [) VALUES (] + lcValues + [)] + lnSucces = goExecutor.oExecute(m.lcInsert) + If lnSucces <> 1 + This.Trace(goExecutor.cEroare) + AMESSAGEBOX(goExecutor.cEroare, 0 + 16, 'Eroare') + Exit + Endif + + Endscan + Endif + + Use In (SELECT('crs_coloane')) + + Return m.lnSucces + + + + ENDPROC + + PROCEDURE sterge_import + Local lcCursor, lcMesaj, lcSql, llContinuare, lnDocumente, lnPercent, lnSucces + PRIVATE pnCod + llContinuare = .F. + lcSql = [select distinct cod from act where an=?gnAn and Luna=?gnLuna and id_set=50100 and sters=0] + lcCursor = [cCoduri] + lnSucces = goExecutor.oExecute(m.lcSql, m.lcCursor) + If m.lnSucces > 0 + Select(m.lcCursor) + lnDocumente = Reccount() + If m.lnDocumente > 0 + llContinuare = (AMessagebox('Doriti sa stergeti ' + Alltrim(Str(m.lnDocumente)) + ' document(e), tip operatie 50100, din luna ' + Padl(m.gnLuna, 2, '0') + '/' + Alltrim(Str(m.gnAn)) + '?', 4 + 32, _Screen.Caption) = 6) + Else + AMessagebox('Nu sunt inregistrari in luna ' + Padl(m.gnLuna, 2, '0') + '/' + Alltrim(Str(m.gnAn)), 0 + 64, _Screen.Caption) + llContinuare = .F. + Endif + Else + AMessagebox(goExector.cEroare, 0 + 48, _Screen.Caption ) + This.Trace(goExecutor.cEroare) + llContinuare = .F. + Endif + + If !m.llContinuare + lnSucces = -1 + Use In (Select(m.lcCursor)) + RETURN (m.lnSucces > 0) + Endif + + lnSucces = SQLSetprop(m.gnhandle, "Transactions", 2) + + If lnSucces > 0 + lcSql = [begin pack_contafin.init_scriere_act_rul_local(?gnIdUtil,?gnAn,?gnLuna, 1,0,?gnIdSucursala); end;] + lnSucces = goExecutor.oExecute(lcSql) + If lnSucces > 0 + Select cCoduri + Scan + pnCod = cod + If Mod(Recno(), 10) = 0 + lnPercent = Round(Recno() / Reccount() * 100, 0) + WAIT WINDOW 'Stergere ' + Alltrim(Str(m.lnPercent)) + '%' NOWAIT + *This.Trace('Stergere ' + Alltrim(Str(m.lnPercent)) + '%') + Endif + + + lcSql = [begin pack_contafin.sterge_document(?pnCod); end;] + lnSucces = goExecutor.oExecute(lcSql) + If lnSucces < 0 + This.Trace(goExecutor.cEroare) + Exit + Endif + Endscan + Else + This.Trace(goExecutor.cEroare) + Endif + Else + This.Trace(goExecutor.cEroare) + Endif + + If lnSucces < 0 + goExecutor.oExecute('ROLLBACK') + lcMesaj = 'Stergerea nu s-a efectuat!' + Else + goExecutor.oExecute('COMMIT') + lcMesaj = 'Stergerea s-a efectuat cu succes' + Endif + + SQLSetprop(m.gnhandle, "Transactions", 1) + + *This.Trace(m.lcMesaj) + AMessagebox(m.lcMesaj, 0 + 48, _Screen.Caption) + + RETURN (m.lnSucces > 0) + + ENDPROC + + PROCEDURE templatexlsx + ENDPROC + + PROCEDURE trace + LPARAMETERS tcMessage + AMESSAGEBOX(tcMessage) + *!* This.edtInfo.Value = This.edtInfo.Value + TRANSFORM(NVL(tcMessage,'')) + CHR(13) + CHR(10) + *!* this.edtInfo.SelStart = LEN(this.edtInfo.Value) + *!* This.edtInfo.Refresh() + ENDPROC + + PROCEDURE verificaimport + * Verifica daca mai exista inregistrari 50100 in luna curenta + Local llExista, lcSelect, lcSql, llSucces + Private pnReturnValue + pnReturnValue = 0 + lcSelect = SELECT() + llContafin = Thisform.lContafin + If m.llContafin + Select act + Locate For id_set = m.lnIdSet + llExista = Found() + Else + + lcSql = [select COUNT(*) as nr from act where an=?gnAn and luna = ?gnLuna and id_set=50100 and sters=0] + llSucces = goExecutor.oSelecteaza2Value(m.lcSql, @pnReturnValue) + If !m.llSucces + pnReturnValue = 1 && ca sa nu mai continue importul + Endif + llExista = (m.pnReturnValue > 0) + Endif + + Select (m.lcSelect) + Return m.llExista + + + ENDPROC + + PROCEDURE But_sterge1.Click + SELECT cAMEF + lcCodAMEF = ALLTRIM(NVL(codamef,'')) + IF EMPTY(m.lcCodAMEF) + RETURN + ENDIF + IF AMESSAGEBOX('Doriti sa stergeti AMEF ' + m.lcCodAMEF + '?', 4+32, _screen.caption) = 6 + DELETE FROM cConfigConturiVenit WHERE codamef = m.lcCodAMEF + DELETE FROM cConfigConturiIncasari WHERE codamef = m.lcCodAMEF + DELETE FROM cZetTVA WHERE codamef = m.lcCodAMEF + DELETE FROM cZet WHERE codamef = m.lcCodAMEF + DELETE FROM cAMEF WHERE codamef = m.lcCodAMEF + ENDIF + Thisform.grdAMEF.SetFocus() + thisform.Refresh() + ENDPROC + + PROCEDURE Check1.Valid + SELECT cconfigconturivenit + IF this.Value = .T. + Set Filter To codamef = cAMEF.codamef + ELSE + SET FILTER TO + ENDIF + thisform.grdConfigurareConturi.Refresh + ENDPROC + + PROCEDURE Check2.Valid + SELECT cConfigConturiIncasari + IF this.Value = .T. + Set Filter To codamef = cAMEF.codamef + ELSE + SET FILTER TO + ENDIF + thisform.grdConfigurareIncasari.Refresh + ENDPROC + + PROCEDURE cmdGenereazaNote.Click + Local llSucces, lnSucces, lnButon, llContafin, lnIdSet + Local lcCodAMEF, llExistaNote + llSucces = .T. + lnIdSet = 50100 + llContafin = Thisform.lContafin + + Thisform.SaveSettings() + + * verific daca mai exista import 50100 + llExistaNote = Thisform.VerificaImport() + If m.llExistaNote + If AMESSAGEBOX('Atentie! Exista deja note contabile generate dintr-un import anterior [tip operatie 50100]!' + Chr(13) + ; + 'Doriti sa continuati?', 4 + 32, _Screen.Caption) <> 6 + llSucces = .F. + Endif + Endif + If m.llSucces + llSucces = Thisform.Creeazanote() + Endif + + If m.llSucces + If m.llContafin + lnButon = viz_verificare_note_contabile() && proceduri_comune.prg + llSucces = (m.buton = 1) + If m.llSucces + If Used('act') + * optional, dau coduri la fiecare grup de note de la aceeasi casa de marcat + Select cAMEF + Scan + lcCodAMEF = Alltrim(codamef) + Do CODARE + Update actactan Set cod = m.cod Where Alltrim(explicatia) = m.lcCodAMEF + Endscan + + lnSucces = scrie_in_fisiere('') + llSucces = (m.lnSucces > 0) + ELSE + llSucces = .F. + Endif && used + Endif && m.llSucces + Else + llSucces = Thisform.ModificaNote() + Endif + Endif + + If m.llSucces + Thisform.cmdGenereazaNote.Enabled = .F. + AMessagebox('S-au inregistrat monetarele!', 0 + 64, _Screen.Caption) + Else + AMessagebox('Nu s-au inregistrat monetarele!', 0 + 64, _Screen.Caption) + Endif + + Thisform.SaveSettings() + + Return m.llSucces + + ENDPROC + + PROCEDURE cmdImport.Click + *!* 03.02.2021 + *!* tratare conversie xmltocursor tipp = .T. in loc de tipp = 1 + + Local lcCIF, lcCodAMEF, lcDataZ, lcDirector, lcFile, lcFileName, lcIdM, lcIdR, lcNrB, lcNrBC + Local lcNrRapF, lcNrRapI, lcText, lcTipA, lcTipAMEF, lcTotB, lcTotTVA, lcXml, ldDataZ, llParsed + Local lnAn, lnCota, lnFile, lnFiles, lnLuna, lnNrB, lnNrBC, lnNrZ, lnRecords, lnValTva, lnValcTva, lnZi, loZ + Local lcAcont, lcCont, lcContAcont, lcCota, lnRaspuns, lnOptiune + + lnOptiune = xmenu('Fisiere A4200;Fisiere *.xlsx') + If Empty(m.lnOptiune) + Return + Endif + If m.lnOptiune = 1 && A4200 + + lcDirector = Getdir("", "Alegeti directorul cu fisiere A4200", "Fisiere A4200", 64) + If Empty(m.lcDirector) + Return + Endif + lcDirector = Addbs(m.lcDirector) + *!* lcScheleton = m.lcDirector + "*.*" + *!* lnFiles = ADIR(laFiles, lcScheleton) + Local Array laFiles[1] + lnFiles = xdir(@laFiles, m.lcDirector, '*') + + lcCIF = "" + lcIdM = "" + lcCodAMEF = "" + lcNrRapI = "" + lcNrRapF = "" + lcTipAMEF = "" + lcTipA = "UZUAL" + + * Scanez fisierele + * Daca gasesc fisierul OPIS () citesc datele dar nu il introduc in cZet + * Alte fisiere, verific daca exista sectiunea + For lnFile = 1 To m.lnFiles + lcFile = laFiles[m.lnFile] + lcFileName = Justfname(m.lcFile) + Wait Window Alltrim(Str(m.lnFile)) + '/' + Alltrim(Str(m.lnFiles)) + ' ' + m.lcFileName Nowait + If !File(m.lcFile) + AMESSAGEBOX('Nu exista fisierul ' + m.lcFile,0+48,_Screen.Caption) + Loop + Endif + lcText = Filetostr(m.lcFile) + llParsed = .F. + + * FISIER Z + lcXml = Strextract(m.lcText, '", 1, 1 + 4) + + If !Empty(m.lcXml) + *!* + *!* + *!* + *!* + * Valori totale + lcIdR = Strextract(m.lcXml, [idr="], ["], 1, 1) && numar identificare raport fiscal, + * NNNNNNNNNNAAAALLZZHHMMSSRRRR: 10 caractere = numarul de identificare AMEF, 14 caractere = dataora Z, 4 caractere = numarul Z + lcCodAMEF = Left(m.lcIdR, 10) + + lcDataZ = Substr(m.lcIdR, 11, 14) + lnAn = Int(Val(Substr(m.lcDataZ, 1, 4))) + lnLuna = Int(Val(Substr(m.lcDataZ, 5, 2))) + lnZi = Int(Val(Substr(m.lcDataZ, 7, 2))) + ldDataZ = Date(m.lnAn, m.lnLuna, m.lnZi) + lnNrZ = Int(Val(Substr(m.lcIdR, 25, 4))) + + lcNrB = Strextract(m.lcXml, [nrb="], ["], 1, 1) && numar bonuri + lnNrB = Int(Val(m.lcNrB)) + lcNrBC = Strextract(m.lcXml, [nrbc="], ["], 1, 1) && numar bonuri cu CIF + lnNrBC = Int(Val(m.lcNrBC)) + lcTotB = Strextract(m.lcXml, [totb="], ["], 1, 1) && valoare totala bonuri + lnValcTva = Val(m.lcTotB) + lcTotTVA = Strextract(m.lcXml, [tottva="], ["], 1, 1) && valoare TVA bonuri + lnValTva = Val(m.lcTotTVA) + + Select cZet + Locate For codamef = m.lcCodAMEF And nract = m.lnNrZ And dataact = m.ldDataZ + If !Found() + Append Blank + Replace codamef With m.lcCodAMEF, filename With m.lcFileName, ctext With m.lcXml, nract With m.lnNrZ, dataact With m.ldDataZ, nrb With m.lnNrB, nrbc With m.lnNrBC, valctva With m.lnValcTva, valtva With m.lnValTva + + + * * Pentru fiecare fisier Z, extrag valorile totale, valorile pe cote TVA, valorile incasate pe tipuri de plata + lnRecords = Xmltocursor(m.lcXml, 'crsZ') + If _Tally > 0 + Select crsZ + Scan + Scatter Name loZ + * Valori incasate pe tipuri de plata + If Type('loZ.valpl') <> 'U' And !Empty(loZ.valpl) + * tip plata 1=CARD;2=AVANS NUMERAR;3=NUMERAR;4=TICHETE MASA;5=BONURI VALORICE;6=VOUCHER;7=CREDIT;8=METODE MODERNE;9=ALTE + + * Cateodata, Tipp este convertit in .T. daca valoarea este "1" + If Type('loZ.tipp') = 'L' + loZ.tipp = Iif(loZ.tipp, 1, 0) + Endif + + If Type('loZ.tipp') = 'C' + loZ.tipp = Int(Val(loZ.tipp)) + Endif + + Do Case + Case loZ.tipp = 1 + Replace vcard With loZ.valpl In cZet + Case Inlist(loZ.tipp, 0, 2, 3) + Replace vnumerar With loZ.valpl In cZet + Case loZ.tipp = 4 + Replace vtichete With loZ.valpl In cZet + Otherwise && tipp = 5 + Replace vbon With loZ.valpl In cZet + Endcase + Endif + + * Valori pe cote TVA + If !Empty(loZ.valop) + lnCota = Iif(Type('loZ.cota') = 'N', loZ.cota, 0) + Insert Into cZetTVA (codamef, filename, nract, dataact, cota, valtva, valctva) Values (m.lcCodAMEF, m.lcFileName, m.lnNrZ, m.ldDataZ, m.lnCota, loZ.tva, loZ.valop) + Endif + Endscan && crsZ + Endif && _tally + Use In (Select('crsZ')) + Endif && found() + + llParsed = .T. + Endif && !Empty(m.lcXml) + + * OPIS. introduc in cAMEF + If !m.llParsed + lcXml = Strextract(m.lcText, '", 1, 1 + 4) + If Empty(m.lcXml) + lcXml = Strextract(m.lcText, '", 1, 1 + 4) + Endif + If !Empty(m.lcXml) + * + lcCIF = Strextract(m.lcXml, [cif="], ["], 1, 1) + lcIdM = Strextract(m.lcXml, [idm="], ["], 1, 1) && NNNNNNNNNNAAAALLZZHHMMSS 10 caractere = numarul de identificare AMEF, 14 caractere = dataora + lcCodAMEF = Left(m.lcIdM, 10) + lcNrRapI = Strextract(m.lcXml, [nrrapi="], ["], 1, 1) + lcNrRapF = Strextract(m.lcXml, [nrrapf="], ["], 1, 1) + lcTipAMEF = Strextract(m.lcXml, [tip_amef="], ["], 1, 1) && U + lcTipAMEF = Upper(m.lcTipAMEF) + lcTipA = Iif(m.lcTipAMEF = 'U', 'UZUAL', Iif(m.lcTipAMEF = 'S', 'VALUTAR', Iif(m.lcTipAMEF = 'A', 'AEROPORT', Iif(m.lcTipAMEF = 'T', 'TAXIMETRIE', 'UZUAL')))) + + If !m.lcCIF$gofirma.cod_fiscal + If AMESSAGEBOX('AMEF ' + m.lcCodAMEF + ' (' + m.lcFileName + ') are CIF (' + m.lcCIF + ') diferit fata de cel al firmei (' + Alltrim(gofirma.cod_fiscal) + ')!' + Chr(13) + ; + 'Doriti sa continuati?',4+32,_Screen.Caption) <> 6 + Exit + Endif + Endif + + Select cAMEF + Locate For codamef = m.lcCodAMEF + If !Found() + Append Blank + Replace codamef With m.lcCodAMEF + Endif + Select cAMEF + Replace codamef With m.lcCodAMEF, cod_fiscal With m.lcCIF, tipamef With m.lcTipA + Endif + Endif + Endfor + + Else && xlsx + + AMESSAGEBOX('Alegeti fisierul xlsx completat cu incasarile de la casa de marcat pentru import.' + Chr(13) + Chr(10) + ; + 'Atentie! Pagina cu facturi din fisierul xlsx trebuie sa se numeasca "Sheet1"!' + Chr(13) + Chr(10) + Chr(13) + Chr(10) + ; + 'Tabelul poate fi de forma: ' + Chr(13) + Chr(10) + ; + 'codamef,dataz,nrb,numerar,card,valoare_cu_tva_0,valoare_cu_tva_5,valoare_tva_5,valoare_cu_tva_9,valoare_tva_9,valoare_cu_tva_19,valoare_tva_19' + Chr(13) + Chr(10) + ; + 'sau de forma:' + Chr(13) + Chr(10) + ; + 'cif,codamef,dataz,nrz,nrb,nrbc,totb,tottva,tipamef,tipp1,valpl1,tip2,valpl2,tipp3,valpl3,tipp4,valpl4,cota1,valop1,tva1,cota2,valop2,tva2,cota3,valop3,tva3,cota4,valop4,tva4', ; + 0+64,_Screen.Caption) + + lcFile=Getfile('xlsx','Fisier xlsx','Alege', 0,'Fisier xlsx cu facturi') + If Empty(m.lcFile) + lnSucces = -1 + Return m.lnSucces + Endif + + * Import first sheet + importfromxlsx(m.lcFile,2,'Sheet1',.T.,.T.,1,'cIncasari') + + If Used('cIncasari') + Create Cursor cIncasariTemp (codamef C(100), dataz C(10), nrb C(10), nrbc C(10), totb C(30), tottva C(30), tipamef C(10), ; + numerar C(30), card C(30), tichete C(30), bonuri C(30), ; + tipp1 C(10), valpl1 C(30), tipp2 C(10), valpl2 C(30), tipp3 C(10), valpl3 C(30), tipp4 C(10), valpl4 C(30), ; + valoare_cu_tva_0 C(30), valoare_cu_tva_5 C(30), valoare_cu_tva_9 C(30), valoare_cu_tva_19 C(30), ; + valoare_tva_5 C(30), valoare_tva_9 C(30), valoare_tva_19 C(30), ; + cota1 C(5), valop1 C(30), tva1 C(30), ; + cota2 C(5), valop2 C(30), tva2 C(30), ; + cota3 C(5), valop3 C(30), tva3 C(30), ; + cota4 C(5), valop4 C(30), tva4 C(30)) + + Select cIncasariTemp + Append From Dbf('cIncasari') + + Select Upper(Alltrim(codamef)) As codamef, ; + Ctod(dataz) As dataz, ; + CAST(Int(Val(nrb)) As N(10,0)) As nrb, ; + CAST(Int(Val(nrbc)) As N(10,0)) As nrbc, ; + CAST(Round(Val(totb),2) As N(18,2)) As totb, ; + CAST(Round(Val(tottva),2) As N(18,2)) As tottva, ; + CAST(Iif(Empty(tipamef), 'U', tipamef) As C(1)) As tipamef, ; + CAST(Round(Val(numerar),2) As N(18,2)) As numerar, ; + CAST(Round(Val(card),2) As N(18,2)) As card, ; + CAST(Round(Val(tichete),2) As N(18,2)) As tichete, ; + CAST(Round(Val(bonuri),2) As N(18,2)) As bonuri, ; + CAST(Int(Val(tipp1)) As N(1)) As tipp1, ; + CAST(Round(Val(valpl1),2) As N(18,2)) As valpl1, ; + CAST(Int(Val(tipp2)) As N(1)) As tipp2, ; + CAST(Round(Val(valpl2),2) As N(18,2)) As valpl2, ; + CAST(Int(Val(tipp3)) As N(1)) As tipp3, ; + CAST(Round(Val(valpl3),2) As N(18,2)) As valpl3, ; + CAST(Int(Val(tipp4)) As N(1)) As tipp4, ; + CAST(Round(Val(valpl4),2) As N(18,2)) As valpl4, ; + CAST(0 As N(1)) As tipp, ; + CAST(0 As N(18,2)) As valpl, ; + CAST(Round(Val(valoare_cu_tva_0),2) As N(18,2)) As valoare_cu_tva_0, ; + CAST(Round(Val(valoare_cu_tva_5),2) As N(18,2)) As valoare_cu_tva_5, ; + CAST(Round(Val(valoare_tva_5),2) As N(18,2)) As valoare_tva_5, ; + CAST(Round(Val(valoare_cu_tva_9),2) As N(18,2)) As valoare_cu_tva_9, ; + CAST(Round(Val(valoare_tva_9),2) As N(18,2)) As valoare_tva_9, ; + CAST(Round(Val(valoare_cu_tva_19),2) As N(18,2)) As valoare_cu_tva_19, ; + CAST(Round(Val(valoare_tva_19),2) As N(18,2)) As valoare_tva_19, ; + CAST(Int(Val(cota1)) As N(5)) As cota1, ; + CAST(Round(Val(valop1),2) As N(18,2)) As valop1, ; + CAST(Round(Val(tva1),2) As N(18,2)) As tva1, ; + CAST(Int(Val(cota2)) As N(5)) As cota2, ; + CAST(Round(Val(valop2),2) As N(18,2)) As valop2, ; + CAST(Round(Val(tva2),2) As N(18,2)) As tva2, ; + CAST(Int(Val(cota3)) As N(5)) As cota3, ; + CAST(Round(Val(valop3),2) As N(18,2)) As valop3, ; + CAST(Round(Val(tva3),2) As N(18,2)) As tva3, ; + CAST(Int(Val(cota4)) As N(5)) As cota4, ; + CAST(Round(Val(valop4),2) As N(18,2)) As valop4, ; + CAST(Round(Val(tva4),2) As N(18,2)) As tva4, ; + CAST(0 As N(5)) As cota, ; + CAST(0 As N(18,2)) As valop, ; + CAST(0 As N(18,2)) As tva ; + From cIncasariTemp Into Cursor cIncasari2 Readwrite + + Use In (Select('cIncasariTemp')) + + * Completez coloanele detaliate ca sa ajung la aceleasi informatii ca in fisierele A4200 + Select cIncasari2 + Locate For valpl1 <> 0 Or valpl2 <> 0 Or valpl3 <> 0 Or valpl4 <> 0 + llPlatiSimple = !Found() + Locate For valop1 <> 0 Or valop2 <> 0 Or valop3 <> 0 Or valop4 <> 0 + llTVASimple = !Found() + + + If m.llPlatiSimple + * tip plata 1=CARD;2=AVANS NUMERAR;3=NUMERAR;4=TICHETE MASA;5=BONURI VALORICE;6=VOUCHER;7=CREDIT;8=METODE MODERNE;9=ALTE + Update cIncasari2 Set totb = numerar+card+tichete+bonuri, tottva = valoare_tva_5 + valoare_tva_9 + valoare_tva_19 + Update cIncasari2 Set tipp1 = 1, valpl1 = card Where card <> 0 + Update cIncasari2 Set tipp2 = 3, valpl2 = numerar Where numerar <> 0 + Update cIncasari2 Set tipp3 = 4, valpl3 = tichete Where tichete <> 0 + Update cIncasari2 Set tipp4 = 5, valpl4 = bonuri Where bonuri <> 0 + Endif + If m.llTVASimple + Update cIncasari2 Set cota1 = 0, valop1 = valoare_cu_tva_0, tva1 = 0 Where valoare_cu_tva_0 <> 0 + Update cIncasari2 Set cota2 = 5, valop2 = valoare_cu_tva_5, tva2 = valoare_tva_5 Where valoare_cu_tva_5 <> 0 + Update cIncasari2 Set cota3 = 9, valop3 = valoare_cu_tva_9, tva3 = valoare_tva_9 Where valoare_cu_tva_9 <> 0 + Update cIncasari2 Set cota4 = 19, valop4 = valoare_cu_tva_19, tva4 = valoare_tva_19 Where valoare_cu_tva_19 <> 0 + Endif + Select * From cIncasari2 Where totb <> valop1 + valop2 + valop3 + valop4 Into Cursor cDiferente + If _Tally = 0 + + Select codamef, Max(tipamef) As tipamef From cIncasari2 Where !Empty(dataz) Group By codamef Into Cursor cCodAMEF + Select cCodAMEF + Scan + lcCIF = Alltrim(gofirma.cod_fiscal) + lcCodAMEF = codamef + lcNrRapI = '' + lcNrRapF = '' + lcTipAMEF = Upper(Alltrim(tipamef)) + lcTipA = Iif(m.lcTipAMEF = 'U', 'UZUAL', Iif(m.lcTipAMEF = 'S', 'VALUTAR', Iif(m.lcTipAMEF = 'A', 'AEROPORT', Iif(m.lcTipAMEF = 'T', 'TAXIMETRIE', 'UZUAL')))) + lcFileName = '' + + Select cAMEF + Locate For codamef = m.lcCodAMEF + If !Found() + Append Blank + Replace codamef With m.lcCodAMEF + Endif + Select cAMEF + Replace codamef With m.lcCodAMEF, cod_fiscal With m.lcCIF, tipamef With m.lcTipA + + Select * From cIncasari2 Where codamef = m.lcCodAMEF Order By dataz Into Cursor cIncasariAMEF + Select cIncasariAMEF + Scan + Scatter Name loZ + ldDataZ = dataz + lnNrZ = Int(Val(Dtos(dataz))) + lnNrB = nrb + lnNrBC = nrbc + lnValcTva = totb + lnValTva = tottva + + Select cZet + Locate For codamef = m.lcCodAMEF And nract = m.lnNrZ And dataact = m.ldDataZ + If !Found() + Append Blank + Replace codamef With m.lcCodAMEF, filename With '', ctext With '', nract With m.lnNrZ, dataact With m.ldDataZ, nrb With m.lnNrB, nrbc With m.lnNrBC, valctva With m.lnValcTva, valtva With m.lnValTva + + + * Valori incasate pe tipuri de plata + For lnTipPlata = 1 To 4 + lcTipPlata = Alltrim(Str(m.lnTipPlata)) + loZ.valpl = Evaluate('loZ.valpl' + m.lcTipPlata) + loZ.tipp = Evaluate('loZ.tipp' + m.lcTipPlata) + + loZ.valop = Evaluate('loZ.valop' + m.lcTipPlata) + loZ.tva = Evaluate('loZ.tva' + m.lcTipPlata) + + If !Empty(loZ.valpl) + * tip plata 1=CARD;2=AVANS NUMERAR;3=NUMERAR;4=TICHETE MASA;5=BONURI VALORICE;6=VOUCHER;7=CREDIT;8=METODE MODERNE;9=ALTE + Do Case + Case loZ.tipp = 1 + Replace vcard With loZ.valpl In cZet + Case Inlist(loZ.tipp, 2, 3) + Replace vnumerar With loZ.valpl In cZet + Case loZ.tipp = 4 + Replace vtichete With loZ.valpl In cZet + Otherwise && tipp = 5 + Replace vbon With loZ.valpl In cZet + Endcase + Endif + + * Valori pe cote TVA + If !Empty(loZ.valop) + lnCota = Iif(Type('loZ.cota') = 'N', loZ.cota, 0) + Insert Into cZetTVA (codamef, filename, nract, dataact, cota, valtva, valctva) Values (m.lcCodAMEF, m.lcFileName, m.lnNrZ, m.ldDataZ, m.lnCota, loZ.tva, loZ.valop) + Endif + Endfor && lnTipPlata + Endif && found() + Endscan && cIncasariAMEF + + Use In (Select('cIncasariAMEF')) + Endscan && cCodAMEF + Else + lcMesaj = 'Diferente intre valoarea totala a Z-urilor si valorile pe cote TVA' + Select cDiferente + Scan + lcMesaj = lcMesaj + Chr(13) + Chr(10) + 'AMEF: ' + Alltrim(codamef) + ' - valoare totala: ' + Transform(totb) + ' ; valoare pe cote TVA ' + Transform(valop1 + valop2 + valop3 + valop4) + Endscan + AMESSAGEBOX(m.lcMesaj,0+48,_Screen.Caption) + Endif && _tally + Use In (Select('cDiferente')) + + Use In (Select('cCodAMEF')) + Use In (Select('cIncasari2')) + Endif && used('cIncasari2') + + Use In (Select('cIncasari')) + Endif && lnOptiune + + * Sterg inregistrarile daca nu am importat un codamef pentru ca are alt cod fiscal decat CUI-ul firmei + Delete From cZet Where codamef Not In (Select codamef From cAMEF) + Delete From cZetTVA Where codamef Not In (Select codamef From cAMEF) + + * Adaug cote TVA in cConfigConturiVenit + Select cConfigConturiVenit + lcFilter = Filter() + Set Filter To + Select Distinct codamef, cota From cZetTVA Into Cursor cCoteTemp + Select cCoteTemp + Scan + lcCodAMEF = codamef + lnCota = cota + Select cConfigConturiVenit + Locate For codamef = m.lcCodAMEF And cota = m.lnCota + If !Found() + Insert Into cConfigConturiVenit(codamef, cota) Values (m.lcCodAMEF, m.lnCota) + Endif + Endscan + + Use In (Select('cCoteTemp')) + Select cConfigConturiVenit + Set Filter To &lcFilter + + * Completez conturi 7xx in cConfigConturiVenit + Select Distinct cota From cConfigConturiVenit Where Empty(Cont) Into Cursor cConturiTemp + If _Tally > 0 + lnRaspuns = AMESSAGEBOX('Doriti sa completati contul de venituri pentru toate cotele TVA (Yes) sau pe fiecare cota in parte (No)', 3 + 32, _Screen.Caption) + Do Case + Case lnRaspuns = 6 + lcContAcont = Inputbox('Cont 7xx.xxx', 'Cont venituri', '707') + lcCont = Getwordnum(m.lcContAcont, 1, '.') + lcAcont = Getwordnum(m.lcContAcont, 2, '.') + Update cConfigConturiVenit Set Cont = m.lcCont, acont = m.lcAcont Where Empty(Cont) + Case lnRaspuns = 7 + Select cConturiTemp + Scan + lnCota = cota + lcCota = Alltrim(Str(m.lnCota)) + '%' + lcContAcont = Inputbox('Cont 7xx.xxx ' + m.lcCota, 'Cont venituri', '707') + lcCont = Getwordnum(m.lcContAcont, 1, '.') + lcAcont = Getwordnum(m.lcContAcont, 2, '.') + Update cConfigConturiVenit Set Cont = m.lcCont, acont = m.lcAcont Where cota = m.lnCota And Empty(Cont) + Endscan + Endcase + Endif && _tally + Use In (Select('cConturiTemp')) + + Go Top In cConfigConturiVenit + + * Completez conturi incasari pentru fiecare casa + Select cConfigConturiIncasari + lcFilter = Filter() + Set Filter To + + Select cAMEF + Scan + lcCodAMEF = codamef + + Select cConfigConturiIncasari + Locate For codamef = m.lcCodAMEF And tipp = 1 + If !Found() + Insert Into cConfigConturiIncasari (codamef, tipp, tip, Cont) Values (m.lcCodAMEF, 1, 'Card', '') + Endif + Locate For codamef = m.lcCodAMEF And tipp = 3 + If !Found() + Insert Into cConfigConturiIncasari (codamef, tipp, tip, Cont) Values (m.lcCodAMEF, 3, 'Numerar', '5311') + Endif + Locate For codamef = m.lcCodAMEF And tipp = 4 + If !Found() + Insert Into cConfigConturiIncasari (codamef, tipp, tip, Cont) Values (m.lcCodAMEF, 4, 'Tichete', '5328') + Endif + Locate For codamef = m.lcCodAMEF And tipp = 5 + If !Found() + Insert Into cConfigConturiIncasari (codamef, tipp, tip, Cont) Values (m.lcCodAMEF, 5, 'Bonuri', '5328') + Endif + Endscan + + Select cConfigConturiIncasari + Set Filter To &lcFilter + + * Completez conturi 5125 / 5121 pentru incasarile cu card + Select Distinct codamef From cConfigConturiIncasari Where tipp = 1 And Empty(Cont) Into Cursor cConturiTemp + If _Tally > 0 + lnRaspuns = AMESSAGEBOX('Doriti sa completati contul pentru incasari CARD?', 4 + 32, _Screen.Caption) + If m.lnRaspuns = 6 + lcContAcont = Inputbox('Cont 5125.xxx/5121.xxx', 'Cont incasari CARD', '5121') + lcCont = Getwordnum(m.lcContAcont, 1, '.') + lcAcont = Getwordnum(m.lcContAcont, 2, '.') + Update cConfigConturiIncasari Set Cont = m.lcCont, acont = m.lcAcont Where tipp = 1 And Empty(Cont) + Endif + Endif && _tally + Use In (Select('cConturiTemp')) + + Go Top In cConfigConturiIncasari + + Go Top In cAMEF + Go Top In cZet + Go Top In cZetTVA + + Select cZet + Set Filter To codamef = cAMEF.codamef + + Select cZetTVA + Set Filter To codamef = cZet.codamef And filename = cZet.filename + + Thisform.cmdGenereazaNote.Enabled = .T. + + Thisform.RefreshAMEF() + + Thisform.SaveSettings() + + Thisform.Refresh + + ENDPROC + + PROCEDURE cmdSterge.Click + Thisform.Sterge_import() + ENDPROC + + PROCEDURE grdAMEF.AfterRowColChange + LPARAMETERS nColIndex + + + IF INLIST(this.RowColChange, 1, 3) + Thisform.RefreshAMEF() + ENDIF + SELECT cAMEF + + ENDPROC + + PROCEDURE grdAMEF.cAcont4111.Text1a.DblClick + LOCAL lcText, lcCaption, lcAlias, lcControlSource + lcAlias = this.Parent.Parent.RecordSource + lcControlSource = This.ControlSource + lcText = alltrim(EVALUATE(m.lcControlSource)) + lcCaption = this.Parent.Header1.Caption + lcText = INPUTBOX(m.lcCaption, m.lcCaption, m.lcText) + SELECT (lcAlias) + IF AMESSAGEBOX('Doriti sa completati contul analitic pentru toate AMEF care nu au cont analitic 4111?',4+32,_screen.Caption) = 6 + REPLACE &lcControlSource WITH m.lcText FOR EMPTY(&lcControlSource) + ELSE + REPLACE &lcControlSource WITH m.lcText + ENDIF + ENDPROC + + PROCEDURE grdAMEF.cAcont4111.Text1a.When + this.ReadOnly = .F. + ENDPROC + + PROCEDURE grdAMEF.cAcont442x.Text1a.DblClick + LOCAL lcText, lcCaption, lcAlias, lcControlSource + lcAlias = this.Parent.Parent.RecordSource + lcControlSource = This.ControlSource + lcText = alltrim(EVALUATE(m.lcControlSource)) + lcCaption = this.Parent.Header1.Caption + lcText = INPUTBOX(m.lcCaption, m.lcCaption, m.lcText) + SELECT (lcAlias) + IF AMESSAGEBOX('Doriti sa completati contul analitic pentru toate AMEF care nu au cont analitic 4427?',4+32,_screen.Caption) = 6 + REPLACE &lcControlSource WITH m.lcText FOR EMPTY(&lcControlSource) + ELSE + REPLACE &lcControlSource WITH m.lcText + ENDIF + ENDPROC + + PROCEDURE grdAMEF.cAcont442x.Text1a.When + this.ReadOnly = .F. + ENDPROC + + PROCEDURE grdAMEF.cBanca.Text1a.DblClick + IF thisform.lContafin + LOCAL lcText, lcCaption, lcAlias, lcControlSource + lcAlias = this.Parent.Parent.RecordSource + lcControlSource = This.ControlSource + lcText = alltrim(EVALUATE(m.lcControlSource)) + lcCaption = this.Parent.Header1.Caption + lcText = INPUTBOX(m.lcCaption, m.lcCaption, m.lcText) + SELECT (lcAlias) + REPLACE &lcControlSource WITH m.lcText + ELSE + LOCAL loCauta + + loCauta = CautPartenerContabilitate(GetHash([cTitlu=>Client??lAdaugCorespondente=>1??cTipuriParteneri=>24])) + SELECT cAMEF + REPLACE id_banca WITH locauta.id_part, banca WITH locauta.nume + ENDIF + ENDPROC + + PROCEDURE grdAMEF.cBanca.Text1a.When + this.ReadOnly = .F. + ENDPROC + + PROCEDURE grdAMEF.cCasa.Text1a.DblClick + IF thisform.lContafin + LOCAL lcText, lcCaption, lcAlias, lcControlSource + lcAlias = this.Parent.Parent.RecordSource + lcControlSource = This.ControlSource + lcText = alltrim(EVALUATE(m.lcControlSource)) + lcCaption = this.Parent.Header1.Caption + lcText = INPUTBOX(m.lcCaption, m.lcCaption, m.lcText) + SELECT (lcAlias) + REPLACE &lcControlSource WITH m.lcText + ELSE + LOCAL loCauta + + loCauta = CautPartenerContabilitate(GetHash([cTitlu=>Client??lAdaugCorespondente=>1??cTipuriParteneri=>22])) + SELECT cAMEF + REPLACE id_casa WITH locauta.id_part, casa WITH locauta.nume + ENDIF + + ENDPROC + + PROCEDURE grdAMEF.cCasa.Text1a.When + this.ReadOnly = .F. + ENDPROC + + PROCEDURE grdAMEF.cCasaC.Text1.DblClick + IF thisform.lContafin + LOCAL lcText, lcCaption, lcAlias, lcControlSource + lcAlias = this.Parent.Parent.RecordSource + lcControlSource = This.ControlSource + lcText = alltrim(EVALUATE(m.lcControlSource)) + lcCaption = this.Parent.Header1.Caption + lcText = INPUTBOX(m.lcCaption, m.lcCaption, m.lcText) + SELECT (lcAlias) + REPLACE &lcControlSource WITH m.lcText + ELSE + LOCAL loCauta + + loCauta = CautPartenerContabilitate(GetHash([cTitlu=>Client??lAdaugCorespondente=>1??cTipuriParteneri=>22])) + SELECT cAMEF + REPLACE id_casac WITH locauta.id_part, casac WITH locauta.nume + ENDIF + + ENDPROC + + PROCEDURE grdAMEF.cClient.Text1a.DblClick + IF thisform.lContafin + LOCAL lcText, lcCaption, lcAlias, lcControlSource + lcAlias = this.Parent.Parent.RecordSource + lcControlSource = This.ControlSource + lcText = alltrim(EVALUATE(m.lcControlSource)) + lcCaption = this.Parent.Header1.Caption + lcText = INPUTBOX(m.lcCaption, m.lcCaption, m.lcText) + SELECT (lcAlias) + REPLACE &lcControlSource WITH m.lcText + ELSE + LOCAL loCauta + + loCauta = CautPartenerContabilitate(GetHash([cTitlu=>Client??lAdaugCorespondente=>1??cTipuriParteneri=>16])) + SELECT cAMEF + REPLACE id_client WITH locauta.id_part, client WITH locauta.nume + ENDIF + ENDPROC + + PROCEDURE grdAMEF.cClient.Text1a.When + this.ReadOnly = .F. + ENDPROC + + PROCEDURE grdAMEF.cDstChlt.Text1.DblClick + Local loCauta + If Thisform.lContafin + Local lcText, lcCaption, lcAlias, lcControlSource + lcAlias = This.Parent.Parent.RecordSource + lcControlSource = This.ControlSource + lcText = Alltrim(Evaluate(m.lcControlSource)) + lcCaption = This.Parent.Header1.Caption + lcText = Inputbox(m.lcCaption, m.lcCaption, m.lcText) + Select (lcAlias) + Replace &lcControlSource With m.lcText + Else + loCauta = caut_venchelt() + If !Empty(Nvl(loCauta.id_venchelt, 0)) + Select cAMEF + Replace id_venchelt With loCauta.id_venchelt, dst_chlt With loCauta.explicatie + Endif + Endif + ENDPROC + + PROCEDURE grdAMEF.cSectie.Text1.DblClick + Local loCauta + If Thisform.lContafin + Local lcText, lcCaption, lcAlias, lcControlSource + lcAlias = This.Parent.Parent.RecordSource + lcControlSource = This.ControlSource + lcText = Alltrim(Evaluate(m.lcControlSource)) + lcCaption = This.Parent.Header1.Caption + lcText = Inputbox(m.lcCaption, m.lcCaption, m.lcText) + Select (lcAlias) + Replace &lcControlSource With m.lcText + Else + loCauta = caut_sectie() + If !Empty(Nvl(loCauta.id_sectie, 0)) + Select cAMEF + Replace id_sectie With loCauta.id_sectie, sectie With loCauta.sectie + Endif + Endif + ENDPROC + + PROCEDURE grdAMEF.Init + * + ENDPROC + + PROCEDURE grdConfigurareConturi.cAcont.Text1a.DblClick + LOCAL lcText, lcCaption, lcAlias, lcControlSource + lcAlias = this.Parent.Parent.RecordSource + lcControlSource = This.ControlSource + lcText = alltrim(EVALUATE(m.lcControlSource)) + lcCaption = this.Parent.Header1.Caption + lcText = INPUTBOX(m.lcCaption, m.lcCaption, m.lcText) + SELECT (lcAlias) + IF AMESSAGEBOX('Doriti sa completati contul analitic pentru toate inregistrarile care nu au cont analitic?',4+32,_screen.Caption) = 6 + REPLACE &lcControlSource WITH m.lcText FOR EMPTY(&lcControlSource) + ELSE + REPLACE &lcControlSource WITH m.lcText + ENDIF + + ENDPROC + + PROCEDURE grdConfigurareConturi.cCont.Text1a.DblClick + LOCAL lcText, lcCaption, lcAlias, lcControlSource + lcAlias = this.Parent.Parent.RecordSource + lcControlSource = This.ControlSource + lcText = alltrim(EVALUATE(m.lcControlSource)) + lcCaption = this.Parent.Header1.Caption + lcText = INPUTBOX(m.lcCaption, m.lcCaption, m.lcText) + SELECT (lcAlias) + IF AMESSAGEBOX('Doriti sa completati contul 7xx pentru toate AMEF care nu au cont?',4+32,_screen.Caption) = 6 + REPLACE &lcControlSource WITH m.lcText FOR EMPTY(&lcControlSource) + ELSE + REPLACE &lcControlSource WITH m.lcText + ENDIF + + ENDPROC + + PROCEDURE grdConfigurareConturi.Init + * + ENDPROC + + PROCEDURE grdConfigurareIncasari.cAcont.Text1a.DblClick + LOCAL lcText, lcCaption, lcAlias, lcControlSource + lcAlias = this.Parent.Parent.RecordSource + lcControlSource = This.ControlSource + lcText = alltrim(EVALUATE(m.lcControlSource)) + lcCaption = this.Parent.Header1.Caption + lcText = INPUTBOX(m.lcCaption, m.lcCaption, m.lcText) + SELECT (lcAlias) + REPLACE &lcControlSource WITH m.lcText + + ENDPROC + + PROCEDURE grdConfigurareIncasari.cCont.Text1a.DblClick + LOCAL lcText, lcCaption, lcAlias, lcControlSource + lcAlias = this.Parent.Parent.RecordSource + lcControlSource = This.ControlSource + lcText = alltrim(EVALUATE(m.lcControlSource)) + lcCaption = this.Parent.Header1.Caption + lcText = INPUTBOX(m.lcCaption, m.lcCaption, m.lcText) + SELECT (lcAlias) + REPLACE &lcControlSource WITH m.lcText + + ENDPROC + + PROCEDURE grdConfigurareIncasari.Init + * + ENDPROC + + PROCEDURE grdTVA.Init + * + ENDPROC + + PROCEDURE grdZ.AfterRowColChange + LPARAMETERS nColIndex + + + IF INLIST(this.RowColChange, 1, 3) + GO TOP IN cZetTVA + Thisform.grdTVA.Refresh + ENDIF + ENDPROC + + PROCEDURE grdZ.Init + * + ENDPROC + +ENDDEFINE diff --git a/Ferestre/frm_list_balana.sc2 b/Ferestre/frm_list_balana.sc2 new file mode 100644 index 0000000..99ba750 --- /dev/null +++ b/Ferestre/frm_list_balana.sc2 @@ -0,0 +1,113 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="frm_list_balana.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 = 0 + Left = 0 + Name = "Dataenvironment" + Top = 0 + Width = 0 + * + +ENDDEFINE + +DEFINE CLASS formtermin12 AS formtermin OF "..\comun\clase\baza.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="GRIDB1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="GRIDB1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="GRIDB1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="GRIDB1.Column2.Check1" UniqueID="" Timestamp="" /> + + * + BorderStyle = 1 + DataSession = 1 + DoCreate = .T. + Height = 310 + Name = "FormTERMIN12" + Width = 195 + Shape1.Height = 36 + Shape1.Left = 0 + Shape1.Name = "Shape1" + Shape1.Top = 0 + Shape1.Width = 157 + Terminat1.Command1.Name = "Command1" + Terminat1.Imbuton1.Height = 27 + Terminat1.Imbuton1.Name = "Imbuton1" + Terminat1.Imbuton1.Width = 30 + Terminat1.Left = 159 + Terminat1.Name = "Terminat1" + Terminat1.Top = 2 + Titlufrumos1.AutoSize = .T. + Titlufrumos1.Caption = "Bifati conturile care nu se listeaza cu analitice:" + Titlufrumos1.ForeColor = 0,64,128 + Titlufrumos1.Height = 38 + Titlufrumos1.Left = 12 + Titlufrumos1.Name = "Titlufrumos1" + Titlufrumos1.Top = 36 + Titlufrumos1.Width = 161 + Titlufrumos1.WordWrap = .T. + * + + ADD OBJECT 'GRIDB1' AS gridb WITH ; + ColumnCount = 2, ; + FontName = "Arial Narrow", ; + Height = 218, ; + Left = 10, ; + Name = "GRIDB1", ; + Panel = 1, ; + Top = 75, ; + Width = 169, ; + Column1.ControlSource = "cont", ; + Column1.FontName = "Arial Narrow", ; + Column1.Header1.Alignment = 2, ; + Column1.Header1.Caption = "Cont", ; + Column1.Header1.FontName = "Arial Narrow", ; + Column1.Header1.Name = "Header1", ; + Column1.Name = "Column1", ; + Column1.Text1.FontName = "Arial Narrow", ; + Column1.Text1.Name = "Text1", ; + Column1.Width = 76, ; + Column2.ControlSource = "bifa", ; + Column2.CurrentControl = "Check1", ; + Column2.FontName = "Arial Narrow", ; + Column2.Name = "Column2", ; + Column2.Sparse = .F., ; + Column2.Width = 62 + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="grid" /> + + ADD OBJECT 'GRIDB1.Column2.Check1' AS checkbox WITH ; + Alignment = 0, ; + Caption = "", ; + Height = 17, ; + Left = 22, ; + Name = "Check1", ; + SpecialEffect = 1, ; + Top = 30, ; + Width = 60 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'GRIDB1.Column2.Header1' AS header WITH ; + Caption = "Nu se listeaza", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'GRIDB1.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + +ENDDEFINE diff --git a/Ferestre/frm_stornare_plinc.sc2 b/Ferestre/frm_stornare_plinc.sc2 new file mode 100644 index 0000000..91b78e3 --- /dev/null +++ b/Ferestre/frm_stornare_plinc.sc2 @@ -0,0 +1,422 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="frm_stornare_plinc.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 = 0 + Left = 0 + Name = "Dataenvironment" + Top = 0 + Width = 0 + * + +ENDDEFINE + +DEFINE CLASS frm_termin_renunt1 AS frm_termin_renunt OF "..\comun\clase\_frm_child.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Ct_clb_fdoc" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_nract" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_clb_cont" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_clb_partener" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_perioadaref" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_documente" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_documente.cSerie_act.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_documente.cSerie_act.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_documente.cNract.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_documente.cNract.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_documente.cDataact.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_documente.cDataact.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_documente.cFdoc.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_documente.cFdoc.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_documente.cCod.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_documente.cCod.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_dataireg" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_dataact" UniqueID="" Timestamp="" /> + + * + *m: do_cauta_cont + *m: do_cauta_document + *m: do_cauta_partener + * + + * + DoCreate = .T. + Height = 560 + Name = "Frm_termin_renunt1" + Width = 731 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 732 + _shape2.Height = 29 + _shape2.Left = 669 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 62 + Lb_titlu_alb_b121.Caption = "Stornare platã / încasare" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 11 + BUT_TERMIN1.Left = 700 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 9 + BUT_TERMIN1.Top = 1 + Gridsort1.Left = 334 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 38 + But_renunt1.Left = 671 + But_renunt1.Name = "But_renunt1" + But_renunt1.TabIndex = 10 + But_renunt1.Top = 1 + * + + ADD OBJECT 'Clb_dataact' AS clb_tx_data WITH ; + Height = 29, ; + Left = 12, ; + Name = "Clb_dataact", ; + TabIndex = 3, ; + Top = 94, ; + Width = 312, ; + Text_simplu1.ControlSource = "poRec.dataact", ; + Text_simplu1.Left = 125, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Top = 3, ; + Text_simplu1.Width = 148, ; + Lb_simplu1.Caption = "Data documentului", ; + Lb_simplu1.Name = "Lb_simplu1", ; + Cmd_buton1.Left = 277, ; + Cmd_buton1.Name = "Cmd_buton1", ; + Cmd_buton1.Top = 2 + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_dataireg' AS clb_tx_data WITH ; + Height = 29, ; + Left = 12, ; + Name = "Clb_dataireg", ; + TabIndex = 1, ; + Top = 38, ; + Width = 312, ; + Text_simplu1.ControlSource = "poRec.dataireg", ; + Text_simplu1.Height = 23, ; + Text_simplu1.Left = 125, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Top = 3, ; + Text_simplu1.Width = 148, ; + Lb_simplu1.Caption = "Datã înregistrare", ; + Lb_simplu1.Name = "Lb_simplu1", ; + Cmd_buton1.Left = 277, ; + Cmd_buton1.Name = "Cmd_buton1", ; + Cmd_buton1.Top = 2 + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_nract' AS clb_tx_simplu WITH ; + Left = 12, ; + Name = "Clb_nract", ; + TabIndex = 4, ; + Top = 122, ; + Width = 312, ; + Text_simplu1.ControlSource = "poRec.nract", ; + Text_simplu1.Left = 123, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Top = 3, ; + Lb_simplu1.Caption = "Nr. documentului", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_perioadaref' AS clb_nr_intre WITH ; + Height = 29, ; + Left = 370, ; + Name = "Clb_perioadaref", ; + TabIndex = 7, ; + Top = 107, ; + Width = 312, ; + tx_n1.ControlSource = "poRec.datai", ; + tx_n1.Height = 23, ; + tx_n1.Left = 124, ; + tx_n1.Name = "tx_n1", ; + tx_n1.Top = 3, ; + tx_n1.Width = 79, ; + Lb_simplu1.Caption = "Perioada de referinþã", ; + Lb_simplu1.Name = "Lb_simplu1", ; + tx_n2.ControlSource = "poRec.dataf", ; + tx_n2.Height = 23, ; + tx_n2.Left = 228, ; + tx_n2.Name = "tx_n2", ; + tx_n2.Top = 3, ; + tx_n2.Width = 80 + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_clb_cont' AS ct_clb_cautare_var WITH ; + cconditie = EMPTY(NVL(poRec.cont,'')), ; + cprocedura = Thisform.do_cauta_cont, ; + ctooltip = Alegeti contul, ; + cvar_afisata = poRec.cont, ; + Left = 369, ; + Name = "Ct_clb_cont", ; + TabIndex = 5, ; + Top = 50, ; + shape_cautare.Name = "shape_cautare", ; + img_cautare.Name = "img_cautare", ; + lb_cautare.Caption = "Cont", ; + lb_cautare.Left = 9, ; + lb_cautare.Name = "lb_cautare", ; + lb_cautare.Top = 8, ; + tx_cautare.Name = "tx_cautare" + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_clb_fdoc' AS ct_clb_cautare_var WITH ; + cconditie = EMPTY(NVL(poRec.id_fdoc,0)), ; + cprocedura = Thisform.do_cauta_document, ; + ctooltip = Alegeti felul documentului, ; + cvar_afisata = poRec.fdoc, ; + Left = 11, ; + Name = "Ct_clb_fdoc", ; + TabIndex = 2, ; + Top = 65, ; + shape_cautare.Name = "shape_cautare", ; + img_cautare.Name = "img_cautare", ; + lb_cautare.Caption = "Felul documentului", ; + lb_cautare.Left = 9, ; + lb_cautare.Name = "lb_cautare", ; + lb_cautare.Top = 8, ; + tx_cautare.Name = "tx_cautare" + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_clb_partener' AS ct_clb_cautare_var WITH ; + cconditie = EMPTY(NVL(poRec.id_part,0)), ; + cprocedura = Thisform.do_cauta_partener, ; + ctooltip = Alegeti partenerul, ; + cvar_afisata = poRec.denumire, ; + Left = 369, ; + Name = "Ct_clb_partener", ; + TabIndex = 6, ; + Top = 78, ; + shape_cautare.Name = "shape_cautare", ; + img_cautare.Name = "img_cautare", ; + lb_cautare.Caption = "Partener", ; + lb_cautare.Left = 9, ; + lb_cautare.Name = "lb_cautare", ; + lb_cautare.Top = 8, ; + tx_cautare.Name = "tx_cautare" + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" /> + + ADD OBJECT 'grd_documente' AS _grdrow WITH ; + ColumnCount = 5, ; + DeleteMark = .F., ; + Height = 360, ; + Left = 12, ; + Name = "grd_documente", ; + Panel = 1, ; + RecordSource = "crsDocumenteStorno", ; + TabIndex = 8, ; + Top = 192, ; + Width = 708, ; + Column1.ControlSource = "serie_act", ; + Column1.Name = "cSerie_act", ; + Column2.ControlSource = "nract", ; + Column2.Name = "cNract", ; + Column2.Width = 96, ; + Column3.ControlSource = "TTOD(dataact)", ; + Column3.Name = "cDataact", ; + Column4.ControlSource = "fdoc", ; + Column4.Name = "cFdoc", ; + Column5.ControlSource = "cod", ; + Column5.Name = "cCod" + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grd_documente.cCod.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_documente.cCod.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_documente.cDataact.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data doc.", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_documente.cDataact.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_documente.cFdoc.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Fel document", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_documente.cFdoc.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_documente.cNract.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. doc.", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_documente.cNract.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_documente.cSerie_act.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Serie doc.", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_documente.cSerie_act.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Lb_simplu1' AS lb_simplu WITH ; + Caption = "Faceþi click pe linia corespunzãtoare documentului pe care doriþi sã-l stornaþi :", ; + Left = 12, ; + Name = "Lb_simplu1", ; + TabIndex = 12, ; + Top = 169 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + PROCEDURE Destroy + Unbindevents(poRec,"cont",Thisform,"do_cauta") + Unbindevents(poRec,"id_part",Thisform,"do_cauta") + Unbindevents(poRec,"datai",Thisform,"do_cauta") + Unbindevents(poRec,"dataf",Thisform,"do_cauta") + ENDPROC + + PROCEDURE do_cauta + If !Empty(Nvl(poRec.Cont,'')) And !Empty(Nvl(poRec.tip_sold,'')) And !Empty(Nvl(poRec.id_part,0)) ; + And !Empty(Nvl(poRec.datai,{})) And !Empty(Nvl(poRec.dataf,{})) + With Thisform.grd_documente + lcCursor = .RecordSource + .salveaza_grid() + lcSql = [select distinct serie_act, nract, dataact, fdoc, cod from vact ] + ; + [where ] + ; + IIF(poRec.tip_sold = 'P', [scd = '] + ALLTRIM(NVL(poRec.Cont, '')) + [' and id_partd = ] + ALLTRIM(STR(poRec.id_part)),[scc = '] + ALLTRIM(NVL(poRec.Cont, '')) + [' and id_partc = ] + ALLTRIM(STR(poRec.id_part))) + ; + [ and dataact between to_date('] + DTOS(poRec.datai)+ [','yyyymmdd') and to_date('] + DTOS(poRec.dataf)+ [','yyyymmdd')] + ; + [order by dataact] + If goExecutor.oExecuta(lcSql,lcCursor) + If Reccount(lcCursor) = 0 + amessagebox("Cautarea nu a intors rezultate!",64,"Atentie") + Endif + Endif + .incarca_grid() + .AutoFit() + Endwith + Endif + ENDPROC + + PROCEDURE do_cauta_cont + Local loCauta + loCauta = caut_cont(,,,.T.) + If !Isnull(loCauta) And !Empty(loCauta.Cont) + poRec.Cont = Alltrim(loCauta.Cont) + poRec.tip_sold = Alltrim(loCauta.tip_sold) + + This.ct_clb_cont.Refresh() + This.ct_clb_partener.SetFocus() + Endif + + ENDPROC + + PROCEDURE do_cauta_document + Local loCauta + loCauta = caut_fdoc() + If !Isnull(loCauta) And !Empty(loCauta.fel_document) + poRec.id_fdoc = loCauta.id_fdoc + poRec.fdoc = loCauta.fel_document + + This.ct_clb_fdoc.Refresh() + This.clb_dataact.SetFocus() + Endif + ENDPROC + + PROCEDURE do_cauta_partener + Local loCauta + loCauta = CautPartenerContabilitate(GetHash([cCont=>]+Alltrim(poRec.Cont))) + If !Empty(Nvl(loCauta.id_part,0)) And !Empty(loCauta.denumire) + poRec.id_part = loCauta.id_part + poRec.denumire = loCauta.denumire + + This.ct_clb_partener.Refresh() + This.clb_perioadaref.SetFocus() + Endif + ENDPROC + + PROCEDURE inainte_de_do_termin + Local llReturn + llReturn = .F. + + Do Case + Case Empty(Nvl(poRec.dataireg,{})) + amessagebox("Nu ati completat data inregistrarii!",48,"Atentie") + Thisform.clb_dataireg.SetFocus() + Case Empty(Nvl(poRec.id_fdoc,0)) + amessagebox("Nu ati ales felul documentului!",48,"Atentie") + Thisform.ct_clb_fdoc.SetFocus() + Case Empty(Nvl(poRec.dataact,{})) + amessagebox("Nu ati completat data documentului!",48,"Atentie") + Thisform.clb_dataact.SetFocus() + Case Empty(Nvl(poRec.nract,0)) + amessagebox("Numarul documentului trebuie sa fie diferit de 0!",48,"Atentie") + Thisform.clb_nract.SetFocus() + Case Reccount(Thisform.grd_documente.RecordSource) = 0 + amessagebox("Nu ati ales documentul pentru care se face stornarea!",48,"Atentie") + Thisform.grd_documente.SetFocus() + Otherwise + poRec.cursor = Thisform.grd_documente.RecordSource + llReturn = .T. + Endcase + + Return llReturn + ENDPROC + + PROCEDURE Init + DoDefault() + Bindevent(poRec,"cont",Thisform,"do_cauta",1) + Bindevent(poRec,"id_part",Thisform,"do_cauta",1) + Bindevent(poRec,"datai",Thisform,"do_cauta",1) + Bindevent(poRec,"dataf",Thisform,"do_cauta",1) + + ENDPROC + + PROCEDURE Clb_dataireg.Text_simplu1.LostFocus + poRec.dataact = poRec.dataireg + Thisform.clb_dataact.Refresh() + ENDPROC + +ENDDEFINE diff --git a/Ferestre/fundal.sc2 b/Ferestre/fundal.sc2 new file mode 100644 index 0000000..50424d1 --- /dev/null +++ b/Ferestre/fundal.sc2 @@ -0,0 +1,103 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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="" /> + + * + *m: jurnal + *m: statusbarclick + *p: ostatusbar + * + + * + AutoCenter = .T. + BackColor = 255,255,255 + BorderStyle = 2 + Caption = "" + Closable = .F. + ControlBox = .F. + DoCreate = .T. + Enabled = .T. + FillColor = 0,0,0 + HalfHeightCaption = .F. + Height = 595 + MaxButton = .F. + MinButton = .F. + Movable = .F. + Name = "Form1" + ostatusbar = .F. + Picture = ..\..\ + Width = 795 + WindowState = 2 + * + + PROCEDURE jurnal + ENDPROC + + PROCEDURE KeyPress + LPARAMETERS nKeyCode, nShiftAltCtrl + if nkeycode==-1 &&F2 + DO IESIRE + endif + ENDPROC + + PROCEDURE Show + Lparameters nStyle + DoDefault(nStyle) + + *!* 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 + *!* + + + Do start_firma In ostartfirma.prg + primadata = .F. + This.AlwaysOnBottom = .T. + Do lansare_toolbar In oproceduri_comune.prg + DO lansare_help IN oproceduri_comune.prg + oprinc=Createobject('princ') + oprinc.Show() + *!* oprinc.pagefr1.p1.click() + + + ENDPROC + + PROCEDURE statusbarclick + *MESSAGEBOX(_Screen.ActiveForm.name) + Thisform.oStatusBar.newtooltip() + + ENDPROC + +ENDDEFINE diff --git a/Ferestre/sesizare.sc2 b/Ferestre/sesizare.sc2 new file mode 100644 index 0000000..13b3035 --- /dev/null +++ b/Ferestre/sesizare.sc2 @@ -0,0 +1,1085 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="sesizare.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 = 0 + Left = 0 + Name = "Dataenvironment" + Top = 0 + Width = 0 + * + +ENDDEFINE + +DEFINE CLASS ffergen12 AS ffergen OF "..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Shape12" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Shape11" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Shape10" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Shape6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Shape7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Shape4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Shape3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Edit1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Edit2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Edit4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Edit5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Shape5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Edit3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Shape8" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label11" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label12" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label24" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label20" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label13" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label14" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Check2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Check3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Check4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Check5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Check6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Check7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label15" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label16" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label17" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label18" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text8" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Shape9" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label21" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label22" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label23" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label25" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_termin1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_renunt1" UniqueID="" Timestamp="" /> + + * + AlwaysOnTop = .F. + BackColor = 255,255,255 + BorderStyle = 1 + DataSession = 1 + DoCreate = .T. + FontName = "Comic Sans MS" + Height = 486 + Name = "Ffergen12" + Width = 794 + * + + ADD OBJECT 'Check1' AS checkbox WITH ; + Alignment = 0, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "imediat", ; + ControlSource = "M.IM", ; + FontName = "Comic Sans MS", ; + FontSize = 10, ; + Height = 20, ; + Left = 228, ; + Name = "Check1", ; + SpecialEffect = 0, ; + TabIndex = 7, ; + Top = 101, ; + Width = 63, ; + ZOrderSet = 34 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'Check2' AS checkbox WITH ; + Alignment = 0, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "o zi", ; + ControlSource = "M.OZ", ; + FontName = "Comic Sans MS", ; + FontSize = 10, ; + Height = 20, ; + Left = 304, ; + Name = "Check2", ; + SpecialEffect = 0, ; + TabIndex = 8, ; + Top = 101, ; + Width = 41, ; + ZOrderSet = 35 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'Check3' AS checkbox WITH ; + Alignment = 0, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "o sapt", ; + ControlSource = "M.OS", ; + FontName = "Comic Sans MS", ; + FontSize = 10, ; + Height = 20, ; + Left = 363, ; + Name = "Check3", ; + SpecialEffect = 0, ; + TabIndex = 9, ; + Top = 101, ; + Width = 55, ; + ZOrderSet = 36 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'Check4' AS checkbox WITH ; + Alignment = 0, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "o luna", ; + ControlSource = "M.OL", ; + FontName = "Comic Sans MS", ; + FontSize = 10, ; + Height = 20, ; + Left = 434, ; + Name = "Check4", ; + SpecialEffect = 0, ; + TabIndex = 10, ; + Top = 101, ; + Width = 55, ; + ZOrderSet = 37 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'Check5' AS checkbox WITH ; + Alignment = 0, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "eroare de program", ; + ControlSource = "M.ER", ; + FontName = "Comic Sans MS", ; + FontSize = 10, ; + Height = 20, ; + Left = 120, ; + Name = "Check5", ; + SpecialEffect = 0, ; + TabIndex = 11, ; + Top = 132, ; + Width = 131, ; + ZOrderSet = 38 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'Check6' AS checkbox WITH ; + Alignment = 0, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "modificare", ; + ControlSource = "M.MOD", ; + FontName = "Comic Sans MS", ; + FontSize = 10, ; + Height = 20, ; + Left = 269, ; + Name = "Check6", ; + SpecialEffect = 0, ; + TabIndex = 12, ; + Top = 132, ; + Width = 85, ; + ZOrderSet = 39 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'Check7' AS checkbox WITH ; + Alignment = 0, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "adaugare elemente noi", ; + ControlSource = "M.AD", ; + FontName = "Comic Sans MS", ; + FontSize = 10, ; + Height = 20, ; + Left = 379, ; + Name = "Check7", ; + SpecialEffect = 0, ; + TabIndex = 13, ; + Top = 132, ; + Value = 0, ; + Width = 154, ; + ZOrderSet = 40 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'Cmd_renunt1' AS cmd_renunt WITH ; + Caption = "\ + + ADD OBJECT 'Cmd_termin1' AS cmd_termin WITH ; + Caption = "\ + + ADD OBJECT 'Command1' AS commandbutton WITH ; + Caption = "\ + + ADD OBJECT 'Edit1' AS editbox WITH ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + BorderStyle = 1, ; + ControlSource = "M.EXPLIC1", ; + DisabledBackColor = 255,255,255, ; + DisabledForeColor = 0,0,0, ; + FontItalic = .F., ; + FontName = "Times New Roman", ; + FontSize = 12, ; + Height = 72, ; + Left = 12, ; + Name = "Edit1", ; + ReadOnly = .F., ; + ScrollBars = 2, ; + SpecialEffect = 1, ; + TabIndex = 14, ; + Top = 204, ; + Width = 384, ; + ZOrderSet = 9 + *< END OBJECT: BaseClass="editbox" /> + + ADD OBJECT 'Edit2' AS editbox WITH ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + BorderStyle = 1, ; + ControlSource = "M.EXPLIC2", ; + DisabledBackColor = 255,255,255, ; + DisabledForeColor = 0,0,0, ; + FontItalic = .F., ; + FontName = "Times New Roman", ; + FontSize = 12, ; + Height = 73, ; + Left = 12, ; + Name = "Edit2", ; + ReadOnly = .F., ; + ScrollBars = 2, ; + SpecialEffect = 1, ; + TabIndex = 15, ; + Top = 301, ; + Width = 382, ; + ZOrderSet = 10 + *< END OBJECT: BaseClass="editbox" /> + + ADD OBJECT 'Edit3' AS editbox WITH ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + BorderStyle = 1, ; + ControlSource = "M.EXPLIC3", ; + DisabledBackColor = 255,255,255, ; + FontItalic = .F., ; + FontName = "Times New Roman", ; + FontSize = 12, ; + Height = 71, ; + Left = 13, ; + Name = "Edit3", ; + ReadOnly = .F., ; + SpecialEffect = 1, ; + TabIndex = 16, ; + Top = 402, ; + Width = 382, ; + ZOrderSet = 19 + *< END OBJECT: BaseClass="editbox" /> + + ADD OBJECT 'Edit4' AS editbox WITH ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + BorderStyle = 1, ; + ControlSource = "M.EXPLIC4", ; + DisabledBackColor = 255,255,255, ; + FontItalic = .F., ; + FontName = "Times New Roman", ; + FontSize = 12, ; + Height = 73, ; + Left = 414, ; + Name = "Edit4", ; + ReadOnly = .F., ; + SpecialEffect = 1, ; + TabIndex = 17, ; + Top = 204, ; + Width = 366, ; + ZOrderSet = 11 + *< END OBJECT: BaseClass="editbox" /> + + ADD OBJECT 'Edit5' AS editbox WITH ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + BorderStyle = 1, ; + ControlSource = "M.EXPLIC5", ; + DisabledBackColor = 255,255,255, ; + FontItalic = .F., ; + FontName = "Times New Roman", ; + FontSize = 12, ; + Height = 72, ; + Left = 414, ; + Name = "Edit5", ; + ReadOnly = .F., ; + SpecialEffect = 1, ; + TabIndex = 18, ; + Top = 302, ; + Width = 366, ; + ZOrderSet = 12 + *< END OBJECT: BaseClass="editbox" /> + + ADD OBJECT 'Label1' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "D. Grad de urgenta considerat:", ; + FontBold = .T., ; + FontName = "Comic Sans MS", ; + FontSize = 10, ; + Height = 21, ; + Left = 12, ; + Name = "Label1", ; + TabIndex = 24, ; + Top = 100, ; + Width = 204, ; + ZOrderSet = 23 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label10' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Intocmita de(numele complet):", ; + FontBold = .T., ; + FontItalic = .F., ; + FontName = "Comic Sans MS", ; + FontSize = 10, ; + Height = 21, ; + Left = 432, ; + Name = "Label10", ; + TabIndex = 33, ; + Top = 389, ; + Width = 196, ; + ZOrderSet = 21 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label11' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "SESIZARE Nr.", ; + FontBold = .T., ; + FontName = "Comic Sans MS", ; + FontSize = 11, ; + Height = 23, ; + Left = 51, ; + Name = "Label11", ; + TabIndex = 36, ; + Top = 9, ; + Width = 112, ; + ZOrderSet = 29 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label12' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "programului:", ; + FontBold = .T., ; + FontName = "Comic Sans MS", ; + FontSize = 10, ; + Height = 21, ; + Left = 34, ; + Name = "Label12", ; + TabIndex = 38, ; + Top = 68, ; + Width = 78, ; + WordWrap = .T., ; + ZOrderSet = 31 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label13' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "B.", ; + FontBold = .T., ; + FontName = "Comic Sans MS", ; + FontSize = 10, ; + Height = 21, ; + Left = 241, ; + Name = "Label13", ; + TabIndex = 40, ; + Top = 64, ; + Width = 16, ; + ZOrderSet = 32 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label14' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "C.", ; + FontBold = .T., ; + FontName = "Comic Sans MS", ; + FontSize = 10, ; + Height = 21, ; + Left = 517, ; + Name = "Label14", ; + TabIndex = 42, ; + Top = 64, ; + Width = 16, ; + ZOrderSet = 33 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label15' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "a.", ; + FontBold = .T., ; + FontName = "Comic Sans MS", ; + FontSize = 10, ; + Height = 21, ; + Left = 108, ; + Name = "Label15", ; + TabIndex = 29, ; + Top = 132, ; + Width = 15, ; + ZOrderSet = 41 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label16' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "b.", ; + FontBold = .T., ; + FontName = "Comic Sans MS", ; + FontSize = 10, ; + Height = 21, ; + Left = 255, ; + Name = "Label16", ; + TabIndex = 28, ; + Top = 132, ; + Width = 16, ; + ZOrderSet = 42 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label17' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "c.", ; + FontBold = .T., ; + FontName = "Comic Sans MS", ; + FontSize = 10, ; + Height = 21, ; + Left = 365, ; + Name = "Label17", ; + TabIndex = 26, ; + Top = 132, ; + Width = 15, ; + ZOrderSet = 43 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label18' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "F. Specificatii:", ; + FontBold = .T., ; + FontName = "Comic Sans MS", ; + FontSize = 10, ; + Height = 21, ; + Left = 12, ; + Name = "Label18", ; + TabIndex = 30, ; + Top = 163, ; + Width = 101, ; + ZOrderSet = 44 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label2' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "1) Localizarea operatiei in meniu: (cazurile E a,b,c) ", ; + FontItalic = .T., ; + FontName = "Arial", ; + FontSize = 10, ; + Height = 18, ; + Left = 23, ; + Name = "Label2", ; + TabIndex = 22, ; + Top = 186, ; + Width = 305, ; + ZOrderSet = 13 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label20' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Numele", ; + FontBold = .T., ; + FontName = "Comic Sans MS", ; + FontSize = 10, ; + Height = 21, ; + Left = 34, ; + Name = "Label20", ; + TabIndex = 39, ; + Top = 54, ; + Width = 46, ; + WordWrap = .T., ; + ZOrderSet = 31 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label21' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "firmei:", ; + FontBold = .T., ; + FontName = "Comic Sans MS", ; + FontSize = 10, ; + Height = 21, ; + Left = 260, ; + Name = "Label21", ; + TabIndex = 43, ; + Top = 68, ; + Width = 44, ; + WordWrap = .T., ; + ZOrderSet = 31 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label22' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Numele", ; + FontBold = .T., ; + FontName = "Comic Sans MS", ; + FontSize = 10, ; + Height = 21, ; + Left = 260, ; + Name = "Label22", ; + TabIndex = 37, ; + Top = 54, ; + Width = 46, ; + WordWrap = .T., ; + ZOrderSet = 31 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label23' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "calculatorului:", ; + FontBold = .T., ; + FontName = "Comic Sans MS", ; + FontSize = 10, ; + Height = 21, ; + Left = 540, ; + Name = "Label23", ; + TabIndex = 41, ; + Top = 68, ; + Width = 90, ; + WordWrap = .T., ; + ZOrderSet = 31 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label24' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Numele", ; + FontBold = .T., ; + FontName = "Comic Sans MS", ; + FontSize = 10, ; + Height = 21, ; + Left = 540, ; + Name = "Label24", ; + TabIndex = 34, ; + Top = 54, ; + Width = 46, ; + WordWrap = .T., ; + ZOrderSet = 31 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label25' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "A:", ; + FontBold = .T., ; + FontName = "Comic Sans MS", ; + FontSize = 10, ; + Height = 21, ; + Left = 12, ; + Name = "Label25", ; + TabIndex = 35, ; + Top = 60, ; + Width = 18, ; + ZOrderSet = 32 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label3' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "2) Cum este: (cazurile E a,b)", ; + FontItalic = .T., ; + FontSize = 10, ; + Height = 18, ; + Left = 23, ; + Name = "Label3", ; + TabIndex = 23, ; + Top = 284, ; + Width = 174, ; + ZOrderSet = 14 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label4' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "3) Cum ar trebui sa fie: (cazurile E a,b,c)", ; + FontItalic = .T., ; + FontSize = 10, ; + Height = 18, ; + Left = 23, ; + Name = "Label4", ; + TabIndex = 25, ; + Top = 382, ; + Width = 244, ; + ZOrderSet = 15 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label5' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "4) Mesaj de eroare: (cazurile E a)", ; + FontItalic = .T., ; + FontSize = 10, ; + Height = 18, ; + Left = 425, ; + Name = "Label5", ; + TabIndex = 31, ; + Top = 185, ; + Width = 198, ; + ZOrderSet = 16 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label6' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "5) Descriere / Alte observatii:", ; + FontItalic = .T., ; + FontSize = 10, ; + Height = 18, ; + Left = 421, ; + Name = "Label6", ; + TabIndex = 32, ; + Top = 285, ; + Width = 175, ; + ZOrderSet = 17 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label7' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "E. Categoria:", ; + FontBold = .T., ; + FontName = "Comic Sans MS", ; + FontSize = 10, ; + Height = 21, ; + Left = 12, ; + Name = "Label7", ; + TabIndex = 27, ; + Top = 132, ; + Width = 87, ; + ZOrderSet = 24 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label8' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Subiect", ; + FontBold = .T., ; + FontName = "Comic Sans MS", ; + FontSize = 10, ; + Height = 21, ; + Left = 434, ; + Name = "Label8", ; + TabIndex = 45, ; + Top = 10, ; + Width = 50, ; + ZOrderSet = 26 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label9' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "din data", ; + FontBold = .T., ; + FontName = "Comic Sans MS", ; + FontSize = 10, ; + Height = 21, ; + Left = 210, ; + Name = "Label9", ; + TabIndex = 44, ; + Top = 10, ; + Width = 55, ; + ZOrderSet = 27 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Shape1' AS shape WITH ; + BorderStyle = 0, ; + Height = 23, ; + Left = 118, ; + Name = "Shape1", ; + Top = 66, ; + Width = 115, ; + ZOrderSet = 45 + *< END OBJECT: BaseClass="shape" /> + + ADD OBJECT 'Shape10' AS shape WITH ; + BorderStyle = 0, ; + Height = 23, ; + Left = 496, ; + Name = "Shape10", ; + Top = 13, ; + Width = 222, ; + ZOrderSet = 3 + *< END OBJECT: BaseClass="shape" /> + + ADD OBJECT 'Shape11' AS shape WITH ; + BorderStyle = 0, ; + Height = 23, ; + Left = 274, ; + Name = "Shape11", ; + Top = 13, ; + Width = 101, ; + ZOrderSet = 2 + *< END OBJECT: BaseClass="shape" /> + + ADD OBJECT 'Shape12' AS shape WITH ; + BorderStyle = 0, ; + Height = 23, ; + Left = 165, ; + Name = "Shape12", ; + Top = 13, ; + Width = 42, ; + ZOrderSet = 1 + *< END OBJECT: BaseClass="shape" /> + + ADD OBJECT 'Shape2' AS shape WITH ; + BorderStyle = 0, ; + Height = 23, ; + Left = 313, ; + Name = "Shape2", ; + Top = 66, ; + Width = 189, ; + ZOrderSet = 47 + *< END OBJECT: BaseClass="shape" /> + + ADD OBJECT 'Shape3' AS shape WITH ; + BorderStyle = 0, ; + Height = 72, ; + Left = 17, ; + Name = "Shape3", ; + Top = 211, ; + Width = 385, ; + ZOrderSet = 8 + *< END OBJECT: BaseClass="shape" /> + + ADD OBJECT 'Shape4' AS shape WITH ; + BorderStyle = 0, ; + Height = 73, ; + Left = 17, ; + Name = "Shape4", ; + Top = 307, ; + Width = 384, ; + ZOrderSet = 7 + *< END OBJECT: BaseClass="shape" /> + + ADD OBJECT 'Shape5' AS shape WITH ; + BorderStyle = 0, ; + Height = 71, ; + Left = 17, ; + Name = "Shape5", ; + Top = 409, ; + Width = 384, ; + ZOrderSet = 18 + *< END OBJECT: BaseClass="shape" /> + + ADD OBJECT 'Shape6' AS shape WITH ; + BorderStyle = 0, ; + Height = 73, ; + Left = 419, ; + Name = "Shape6", ; + Top = 211, ; + Width = 368, ; + ZOrderSet = 5 + *< END OBJECT: BaseClass="shape" /> + + ADD OBJECT 'Shape7' AS shape WITH ; + BorderStyle = 0, ; + Height = 72, ; + Left = 419, ; + Name = "Shape7", ; + Top = 308, ; + Width = 368, ; + ZOrderSet = 6 + *< END OBJECT: BaseClass="shape" /> + + ADD OBJECT 'Shape8' AS shape WITH ; + BorderStyle = 0, ; + Height = 23, ; + Left = 435, ; + Name = "Shape8", ; + Top = 418, ; + Width = 287, ; + ZOrderSet = 20 + *< END OBJECT: BaseClass="shape" /> + + ADD OBJECT 'Shape9' AS shape WITH ; + BorderStyle = 0, ; + Height = 23, ; + Left = 636, ; + Name = "Shape9", ; + Top = 66, ; + Width = 147, ; + ZOrderSet = 49 + *< END OBJECT: BaseClass="shape" /> + + ADD OBJECT 'Text1' AS textbox WITH ; + ControlSource = "m.datae", ; + Height = 23, ; + Left = 270, ; + Name = "Text1", ; + SpecialEffect = 1, ; + TabIndex = 2, ; + Top = 9, ; + Width = 100, ; + ZOrderSet = 25 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text2' AS textbox WITH ; + ControlSource = "m.ord", ; + Height = 23, ; + Left = 161, ; + Name = "Text2", ; + SpecialEffect = 1, ; + TabIndex = 1, ; + Top = 9, ; + Width = 41, ; + ZOrderSet = 28 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text3' AS textbox WITH ; + ControlSource = "m.explic6", ; + FontName = "Arial", ; + FontSize = 9, ; + Height = 23, ; + Left = 491, ; + Name = "Text3", ; + SpecialEffect = 1, ; + TabIndex = 3, ; + Top = 9, ; + Width = 222, ; + ZOrderSet = 30 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text4' AS textbox WITH ; + BackStyle = 1, ; + BorderStyle = 1, ; + ControlSource = "m.numefirma", ; + DisabledBackColor = 255,255,255, ; + Height = 23, ; + Left = 310, ; + Name = "Text4", ; + ReadOnly = .F., ; + SpecialEffect = 1, ; + TabIndex = 5, ; + Top = 61, ; + Width = 187, ; + ZOrderSet = 48 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text5' AS textbox WITH ; + BackStyle = 1, ; + BorderStyle = 1, ; + ControlSource = "m.exped", ; + DisabledBackColor = 255,255,255, ; + Height = 23, ; + Left = 432, ; + Name = "Text5", ; + ReadOnly = .F., ; + SpecialEffect = 1, ; + TabIndex = 19, ; + Top = 413, ; + Width = 285, ; + ZOrderSet = 22 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text6' AS textbox WITH ; + BackStyle = 1, ; + BorderStyle = 1, ; + ControlSource = "m.numecalc", ; + DisabledBackColor = 255,255,255, ; + Height = 23, ; + Left = 633, ; + Name = "Text6", ; + ReadOnly = .F., ; + SpecialEffect = 1, ; + TabIndex = 6, ; + Top = 61, ; + Width = 145, ; + ZOrderSet = 50 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text8' AS textbox WITH ; + BackStyle = 1, ; + BorderStyle = 1, ; + ControlSource = "m.numeprg", ; + DisabledBackColor = 255,255,255, ; + Height = 23, ; + Left = 115, ; + Name = "Text8", ; + ReadOnly = .F., ; + SpecialEffect = 1, ; + TabIndex = 4, ; + Top = 61, ; + Width = 113, ; + ZOrderSet = 46 + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE Load + *!* PUBLIC m.im,m.oz,m.os,m.ol,m.er,m.mod,m.ad + *!* PUBLIC M.DATAE + *!* *PRIVATE M.ORD + *!* PUBLIC M.ORD + *!* STORE DATE() TO m.datae + *!* STORE .F. TO m.im,m.oz,m.os,m.ol,m.er,m.mod,m.ad + *!* m.numefirma=m.flung + BUTON=2 + ENDPROC + + PROCEDURE Check1.Click + + + ENDPROC + + PROCEDURE Check1.Valid + *!* IF this.Value=1 + *!* m.im=.T. + *!* ELSE + *!* STORE .F. TO m.im + *!* ENDIF + ENDPROC + + PROCEDURE Check2.Click + *!* IF this.Value=1 + *!* STORE .T. TO m.oz + *!* ELSE + *!* STORE .F. TO M.OZ + *!* ENDIF + ENDPROC + + PROCEDURE Check3.Click + *!* IF this.Value=1 + *!* STORE .T. TO m.os + *!* ELSE + *!* STORE .F. TO m.os + *!* ENDIF + ENDPROC + + PROCEDURE Check4.Click + *!* IF this.Value=1 + *!* STORE .T. TO m.ol + *!* ELSE + *!* STORE .F. TO m.ol + *!* ENDIF + ENDPROC + + PROCEDURE Check5.Click + *!* IF this.Value=1 + *!* STORE .T. TO m.er + *!* ELSE + *!* STORE .F. TO m.er + *!* ENDIF + ENDPROC + + PROCEDURE Check6.Click + *!* IF this.Value=1 + *!* STORE .T. TO m.mod + *!* ELSE + *!* STORE .F. TO m.mod + *!* ENDIF + ENDPROC + + PROCEDURE Check7.Click + *!* IF THIS.VALUE=1 + *!* STORE .T. TO M.AD + *!* ELSE + *!* STORE .F. TO M.AD + *!* ENDIF + ENDPROC + + PROCEDURE Cmd_renunt1.Click + buton=2 + THISFORM.RELEASE + ENDPROC + + PROCEDURE Cmd_termin1.Click + LOCAL m.ids + + SELECT sesizari + LOCATE FOR IDS=PIDS + IF FLOCK() + GATHER MEMVAR memo + ENDIF + UNLOCK + + BUN=.T. + + thisform.release + ENDPROC + + PROCEDURE Command1.Click + LOCAL m.ids + *!* m.ids=0 + *!* SELECT sesizari + *!* SET FILTER TO + *!* CALCULATE MAX(IDS) TO M.IDS + *!* M.IDS=M.IDS+1 + + SELECT sesizari + LOCATE FOR IDS=PIDS + IF FLOCK() + GATHER MEMVAR memo + ENDIF + UNLOCK + + SELECT sesizari + *GO TOP + SET FILTER TO IDS=PIDS + *BROWSE + THISFORM.AlwaysOnTop=.F. + REPORT FORM sesizare TO PRINTER PROMPT PREVIEW + THISFORM.AlwaysOnTop=.T. + SELECT sesizari + SET FILTER TO + BUN=.T. + + thisform.cmdrenunt1.Enabled=.f. + ENDPROC + +ENDDEFINE diff --git a/Grafice/AFIS1.BMP b/Grafice/AFIS1.BMP new file mode 100644 index 0000000..61e7415 Binary files /dev/null and b/Grafice/AFIS1.BMP differ diff --git a/Grafice/ARW01LT.ICO b/Grafice/ARW01LT.ICO new file mode 100644 index 0000000..066451f Binary files /dev/null and b/Grafice/ARW01LT.ICO differ diff --git a/Grafice/ARW01RT.ICO b/Grafice/ARW01RT.ICO new file mode 100644 index 0000000..38ddb04 Binary files /dev/null and b/Grafice/ARW01RT.ICO differ diff --git a/Grafice/BLUE.BMP b/Grafice/BLUE.BMP new file mode 100644 index 0000000..4dbef7d Binary files /dev/null and b/Grafice/BLUE.BMP differ diff --git a/Grafice/BOOK.ICO b/Grafice/BOOK.ICO new file mode 100644 index 0000000..b4c6683 Binary files /dev/null and b/Grafice/BOOK.ICO differ diff --git a/Grafice/BOOK01A.ICO b/Grafice/BOOK01A.ICO new file mode 100644 index 0000000..ac45768 Binary files /dev/null and b/Grafice/BOOK01A.ICO differ diff --git a/Grafice/BOOK01B.ICO b/Grafice/BOOK01B.ICO new file mode 100644 index 0000000..53eb2c4 Binary files /dev/null and b/Grafice/BOOK01B.ICO differ diff --git a/Grafice/BOOK01C.ICO b/Grafice/BOOK01C.ICO new file mode 100644 index 0000000..b21898e Binary files /dev/null and b/Grafice/BOOK01C.ICO differ diff --git a/Grafice/BOOK04.ICO b/Grafice/BOOK04.ICO new file mode 100644 index 0000000..bf8dd39 Binary files /dev/null and b/Grafice/BOOK04.ICO differ diff --git a/Grafice/BUT.BMP b/Grafice/BUT.BMP new file mode 100644 index 0000000..ad46a3d Binary files /dev/null and b/Grafice/BUT.BMP differ diff --git a/Grafice/BUTa.BMP b/Grafice/BUTa.BMP new file mode 100644 index 0000000..fda2a43 Binary files /dev/null and b/Grafice/BUTa.BMP differ diff --git a/Grafice/C.ico b/Grafice/C.ico new file mode 100644 index 0000000..ce97f71 Binary files /dev/null and b/Grafice/C.ico differ diff --git a/Grafice/CASA2.bmp b/Grafice/CASA2.bmp new file mode 100644 index 0000000..27a7249 Binary files /dev/null and b/Grafice/CASA2.bmp differ diff --git a/Grafice/EDIT1.BMP b/Grafice/EDIT1.BMP new file mode 100644 index 0000000..87c5211 Binary files /dev/null and b/Grafice/EDIT1.BMP differ diff --git a/Grafice/FILES04.ICO b/Grafice/FILES04.ICO new file mode 100644 index 0000000..de26392 Binary files /dev/null and b/Grafice/FILES04.ICO differ diff --git a/Grafice/FIND.BMP b/Grafice/FIND.BMP new file mode 100644 index 0000000..c29fbce Binary files /dev/null and b/Grafice/FIND.BMP differ diff --git a/Grafice/FURNIZOR.bmp b/Grafice/FURNIZOR.bmp new file mode 100644 index 0000000..5f627bd Binary files /dev/null and b/Grafice/FURNIZOR.bmp differ diff --git a/Grafice/HLP.BMP b/Grafice/HLP.BMP new file mode 100644 index 0000000..4fbb501 Binary files /dev/null and b/Grafice/HLP.BMP differ diff --git a/Grafice/LEAF.BMP b/Grafice/LEAF.BMP new file mode 100644 index 0000000..d6b95bc Binary files /dev/null and b/Grafice/LEAF.BMP differ diff --git a/Grafice/Money2.ico b/Grafice/Money2.ico new file mode 100644 index 0000000..7ad5269 Binary files /dev/null and b/Grafice/Money2.ico differ diff --git a/Grafice/SAGJOS.bmp b/Grafice/SAGJOS.bmp new file mode 100644 index 0000000..f132afe Binary files /dev/null and b/Grafice/SAGJOS.bmp differ diff --git a/Grafice/SECUR05.ICO b/Grafice/SECUR05.ICO new file mode 100644 index 0000000..6037ffd Binary files /dev/null and b/Grafice/SECUR05.ICO differ diff --git a/Grafice/SHAPES.ICO b/Grafice/SHAPES.ICO new file mode 100644 index 0000000..2b69c2e Binary files /dev/null and b/Grafice/SHAPES.ICO differ diff --git a/Grafice/Vechi/Cont11.ico b/Grafice/Vechi/Cont11.ico new file mode 100644 index 0000000..933ee2c Binary files /dev/null and b/Grafice/Vechi/Cont11.ico differ diff --git a/Grafice/Vechi/EXCLAM1.ICO b/Grafice/Vechi/EXCLAM1.ICO new file mode 100644 index 0000000..42fcf59 Binary files /dev/null and b/Grafice/Vechi/EXCLAM1.ICO differ diff --git a/Grafice/Vechi/MARIO.ICO b/Grafice/Vechi/MARIO.ICO new file mode 100644 index 0000000..6d56828 Binary files /dev/null and b/Grafice/Vechi/MARIO.ICO differ diff --git a/Grafice/Vechi/MIJ-AL.BMP b/Grafice/Vechi/MIJ-AL.BMP new file mode 100644 index 0000000..3b25757 Binary files /dev/null and b/Grafice/Vechi/MIJ-AL.BMP differ diff --git a/Grafice/Vechi/MIJ-GA.BMP b/Grafice/Vechi/MIJ-GA.BMP new file mode 100644 index 0000000..4fb2978 Binary files /dev/null and b/Grafice/Vechi/MIJ-GA.BMP differ diff --git a/Grafice/Vechi/PER-AL.BMP b/Grafice/Vechi/PER-AL.BMP new file mode 100644 index 0000000..2dd3c63 Binary files /dev/null and b/Grafice/Vechi/PER-AL.BMP differ diff --git a/Grafice/Vechi/PER-GA.BMP b/Grafice/Vechi/PER-GA.BMP new file mode 100644 index 0000000..6cbe702 Binary files /dev/null and b/Grafice/Vechi/PER-GA.BMP differ diff --git a/Grafice/Vechi/cont2003.ico b/Grafice/Vechi/cont2003.ico new file mode 100644 index 0000000..f96976b Binary files /dev/null and b/Grafice/Vechi/cont2003.ico differ diff --git a/Grafice/Vechi/gestiuni.bmp b/Grafice/Vechi/gestiuni.bmp new file mode 100644 index 0000000..b055277 Binary files /dev/null and b/Grafice/Vechi/gestiuni.bmp differ diff --git a/Grafice/Vechi/mfix.ICO b/Grafice/Vechi/mfix.ICO new file mode 100644 index 0000000..d848519 Binary files /dev/null and b/Grafice/Vechi/mfix.ICO differ diff --git a/Grafice/WHITE.bmp b/Grafice/WHITE.bmp new file mode 100644 index 0000000..8cb538e Binary files /dev/null and b/Grafice/WHITE.bmp differ diff --git a/Grafice/WZSETUP.INI b/Grafice/WZSETUP.INI new file mode 100644 index 0000000..992baa0 --- /dev/null +++ b/Grafice/WZSETUP.INI @@ -0,0 +1,36 @@ +[Preferences] +DistributionDirectory=C:\VFP\DISTRIB\ +DistributionSourceDirectory=C:\VFP\DISTRIB.SRC\ +SourceDirectory=E:\CONT2000\CONTAB\GRAFICE\ +InstallFoxProRuntime=Y +InstallGraph=N +InstallODBCDrivers=N +AccessDriver=Y +FoxPro2xDriver=Y +dBASEDriver=Y +ParadoxDriver=Y +SQLServerDriver=Y +ExcelDriver=Y +TextDriver=Y +OracleDriver=Y +Oracle7Driver=Y +BtrieveDriver=Y +VFPDriver=Y +InstallWindows95=N +InstallWindowsNT=N +DestinationDirectory=E:\CONTSETUP\ +Make1.44MegDisks=N +Make1.2MegDisks=N +Make720KDisks=N +MakeNetsetup=Y +SetupBanner=gr +Copyright=gr +PostExecute= +UserDefaultDirectory=\GRAFICE\ +ProgManGroup=Visual FoxPro Applications +UserCanModify=1 +SplitSize=363520 +FileCustomizationDelimiter=~ +InstRemoteAuto=N +InstActiveX=N + diff --git a/Grafice/bal1.bmp b/Grafice/bal1.bmp new file mode 100644 index 0000000..1c52214 Binary files /dev/null and b/Grafice/bal1.bmp differ diff --git a/Grafice/bal2.bmp b/Grafice/bal2.bmp new file mode 100644 index 0000000..623a69e Binary files /dev/null and b/Grafice/bal2.bmp differ diff --git a/Grafice/banca1.bmp b/Grafice/banca1.bmp new file mode 100644 index 0000000..7555677 Binary files /dev/null and b/Grafice/banca1.bmp differ diff --git a/Grafice/banca2.bmp b/Grafice/banca2.bmp new file mode 100644 index 0000000..49347ce Binary files /dev/null and b/Grafice/banca2.bmp differ diff --git a/Grafice/casa1.bmp b/Grafice/casa1.bmp new file mode 100644 index 0000000..5746f0a Binary files /dev/null and b/Grafice/casa1.bmp differ diff --git a/Grafice/clie1.bmp b/Grafice/clie1.bmp new file mode 100644 index 0000000..8d7a07a Binary files /dev/null and b/Grafice/clie1.bmp differ diff --git a/Grafice/clie2.bmp b/Grafice/clie2.bmp new file mode 100644 index 0000000..0468f58 Binary files /dev/null and b/Grafice/clie2.bmp differ diff --git a/Grafice/fact_c.bmp b/Grafice/fact_c.bmp new file mode 100644 index 0000000..e770773 Binary files /dev/null and b/Grafice/fact_c.bmp differ diff --git a/Grafice/fctc1.bmp b/Grafice/fctc1.bmp new file mode 100644 index 0000000..150a2e6 Binary files /dev/null and b/Grafice/fctc1.bmp differ diff --git a/Grafice/fctc2.bmp b/Grafice/fctc2.bmp new file mode 100644 index 0000000..3f53406 Binary files /dev/null and b/Grafice/fctc2.bmp differ diff --git a/Grafice/fctv1.bmp b/Grafice/fctv1.bmp new file mode 100644 index 0000000..f39e87d Binary files /dev/null and b/Grafice/fctv1.bmp differ diff --git a/Grafice/fctv2.bmp b/Grafice/fctv2.bmp new file mode 100644 index 0000000..24786e4 Binary files /dev/null and b/Grafice/fctv2.bmp differ diff --git a/Grafice/furn1.bmp b/Grafice/furn1.bmp new file mode 100644 index 0000000..d2c8d02 Binary files /dev/null and b/Grafice/furn1.bmp differ diff --git a/Grafice/furn2.bmp b/Grafice/furn2.bmp new file mode 100644 index 0000000..04e7c71 Binary files /dev/null and b/Grafice/furn2.bmp differ diff --git a/Grafice/jpeggeri.dat b/Grafice/jpeggeri.dat new file mode 100644 index 0000000..ce7f006 Binary files /dev/null and b/Grafice/jpeggeri.dat differ diff --git a/Grafice/original/CASA2.bmp b/Grafice/original/CASA2.bmp new file mode 100644 index 0000000..a364b2a Binary files /dev/null and b/Grafice/original/CASA2.bmp differ diff --git a/Grafice/original/bal1.bmp b/Grafice/original/bal1.bmp new file mode 100644 index 0000000..4c7c2aa Binary files /dev/null and b/Grafice/original/bal1.bmp differ diff --git a/Grafice/original/bal2.bmp b/Grafice/original/bal2.bmp new file mode 100644 index 0000000..d92d208 Binary files /dev/null and b/Grafice/original/bal2.bmp differ diff --git a/Grafice/original/banca1.bmp b/Grafice/original/banca1.bmp new file mode 100644 index 0000000..847512c Binary files /dev/null and b/Grafice/original/banca1.bmp differ diff --git a/Grafice/original/banca2.bmp b/Grafice/original/banca2.bmp new file mode 100644 index 0000000..2ea296c Binary files /dev/null and b/Grafice/original/banca2.bmp differ diff --git a/Grafice/original/casa1.bmp b/Grafice/original/casa1.bmp new file mode 100644 index 0000000..bf88cc9 Binary files /dev/null and b/Grafice/original/casa1.bmp differ diff --git a/Grafice/original/clie1.bmp b/Grafice/original/clie1.bmp new file mode 100644 index 0000000..2ea02f3 Binary files /dev/null and b/Grafice/original/clie1.bmp differ diff --git a/Grafice/original/clie2.bmp b/Grafice/original/clie2.bmp new file mode 100644 index 0000000..be12331 Binary files /dev/null and b/Grafice/original/clie2.bmp differ diff --git a/Grafice/original/fctc1.bmp b/Grafice/original/fctc1.bmp new file mode 100644 index 0000000..c400516 Binary files /dev/null and b/Grafice/original/fctc1.bmp differ diff --git a/Grafice/original/fctc2.bmp b/Grafice/original/fctc2.bmp new file mode 100644 index 0000000..65efbed Binary files /dev/null and b/Grafice/original/fctc2.bmp differ diff --git a/Grafice/original/fctv1.bmp b/Grafice/original/fctv1.bmp new file mode 100644 index 0000000..89cc57a Binary files /dev/null and b/Grafice/original/fctv1.bmp differ diff --git a/Grafice/original/fctv2.bmp b/Grafice/original/fctv2.bmp new file mode 100644 index 0000000..f763743 Binary files /dev/null and b/Grafice/original/fctv2.bmp differ diff --git a/Grafice/original/furn1.bmp b/Grafice/original/furn1.bmp new file mode 100644 index 0000000..915e1e2 Binary files /dev/null and b/Grafice/original/furn1.bmp differ diff --git a/Grafice/original/furn2.bmp b/Grafice/original/furn2.bmp new file mode 100644 index 0000000..16346a3 Binary files /dev/null and b/Grafice/original/furn2.bmp differ diff --git a/Grafice/plus.BMP b/Grafice/plus.BMP new file mode 100644 index 0000000..b9d43d8 Binary files /dev/null and b/Grafice/plus.BMP differ diff --git a/Grafice/roacont.bmp b/Grafice/roacont.bmp new file mode 100644 index 0000000..7829b27 Binary files /dev/null and b/Grafice/roacont.bmp differ diff --git a/Grafice/sa.ico b/Grafice/sa.ico new file mode 100644 index 0000000..63f8083 Binary files /dev/null and b/Grafice/sa.ico differ diff --git a/Grafice/searchalb.bmp b/Grafice/searchalb.bmp new file mode 100644 index 0000000..2a531bc Binary files /dev/null and b/Grafice/searchalb.bmp differ diff --git a/Grafice/sg.ico b/Grafice/sg.ico new file mode 100644 index 0000000..d1e1ba6 Binary files /dev/null and b/Grafice/sg.ico differ diff --git a/Grafice/sortdown.bmp b/Grafice/sortdown.bmp new file mode 100644 index 0000000..9dedd9f Binary files /dev/null and b/Grafice/sortdown.bmp differ diff --git a/Grafice/sortup.bmp b/Grafice/sortup.bmp new file mode 100644 index 0000000..a8b47d8 Binary files /dev/null and b/Grafice/sortup.bmp differ diff --git a/Help/helpcont.db2 b/Help/helpcont.db2 new file mode 100644 index 0000000..0582e4f --- /dev/null +++ b/Help/helpcont.db2 @@ -0,0 +1,8108 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="helpcont.dbf" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* + + + + + 1252 + + + 0x00000030 + Visual FoxPro + + + + NRNOD + I + 4 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + NRTATA + I + 4 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + CONT + C + 4 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + DENUMIRE + C + 100 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + EXPLI + M + 4 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + TATAFIU + I + 4 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + + + + + + + + CONT + REGULAR + CONT + + ASCENDING + MACHINE + + + NRNOD + REGULAR + NRNOD + + ASCENDING + MACHINE + + + + + + + + + + + 10 + 1 + 101 + Capital social (Patrimoniul regiei) + + 1 + + + + 15 + 1 + 104 + Primele legate de capital + + 1 + + + + 20 + 1 + 105 + Rezerve din reevaluare + + 1 + + + + 23 + 1 + 106 + Rezerve + + 1 + + + + 28 + 1 + 107 + Rezerve de conversie + + 2 + + + + 31 + 29 + 1172 + Rezultatul reportat provenit din adoptarea pt prima data a IAS, mai putin IAS 29 + + 2 + + + + 29 + 1 + 117 + Rezultatul reportat + + 1 + + + + 30 + 29 + 1171 + Rezultatul reportat reprezentand profitul nerepartizat + + 2 + + + + 32 + 29 + 1173 + Rezultatul reportat provenit din modificarile politicilor contabile + + 2 + + + + 33 + 29 + 1174 + Rezultatul reportat provenit din corectarea erorilor fundamentale + + 2 + + + + 35 + 1 + 121 + Profit si pierdere + + 2 + + + + 36 + 1 + 129 + Repartizarea profitului + + 2 + + + + 37 + 1 + 131 + Subventii pentru investitii + + 2 + + + + 39 + 38 + 1511 + Provizioane pentru litigii + + 2 + + + + 38 + 1 + 151 + Provizioane pentru riscuri si cheltuieli + + 1 + + + + 44 + 1 + 161 + Imprumuturi din emisiuni de obligatiuni + + 1 + + + + 49 + 1 + 162 + Credite bancare pe termen lung + + 1 + + + + 57 + 1 + 166 + Datorii ce privesc imobilizarile financiare + + 1 + + + + 60 + 1 + 167 + Alte imprumuturi si datorii asimilate + + 2 + + + + 61 + 1 + 168 + Dobanzi aferente imprumuturilor si datoriilor asimilate + + 1 + + + + 67 + 1 + 169 + Prime privind rambursarea obligatiunilor + + 2 + + + + 68 + 2 + 201 + Cheltuieli de constituire + + 2 + + + + 69 + 2 + 203 + Cheltuieli de dezvoltare + + 2 + + + + 70 + 2 + 205 + Concesiuni, brevete, licente, marci comerciale si alte drepturi si valori similare + + 1 + + + + 73 + 2 + 207 + Fond comercial + + 1 + + + + 76 + 2 + 208 + Alte imobilizari necorporale + + 2 + + + + 77 + 2 + 211 + Terenuri si amenajari de terenuri + + 1 + + + + 80 + 2 + 212 + Constructii + + 2 + + + + 87 + 2 + 231 + Imobilizari corporale in curs + + 1 + + + + 88 + 87 + 2311 + Amenajari de terenuri si constructii + + 2 + + + + 97 + 2 + 261 + Titluri de participare detinute la filiale din cadrul grupului + + 2 + + + + 98 + 2 + 262 + Titluri de participare detinute la societati din afara grupului + + 2 + + + + 99 + 2 + 263 + Imobilizari financiare sub forma de interese de participare + + 1 + + + + 106 + 2 + 267 + Creante imobilizate + + 1 + + + + 116 + 2 + 269 + Varsaminte de efectuat pentru imobilizari financiare + + 1 + + + + 120 + 2 + 280 + Amortizari privind imobilizarile necorporale + + 1 + + + + 126 + 2 + 281 + Amortizari privind imobilizarile corporale + + 1 + + + + 131 + 2 + 290 + Provizioane pentru deprecierea imobilizarilor necorporale + + 1 + + + + 136 + 2 + 291 + Provizioane pentru deprecierea imobilizarilor corporale + + 1 + + + + 141 + 2 + 293 + Provizioane pentru deprecierea imobilizarilor in curs + + 1 + + + + 144 + 2 + 296 + Provizioane pentru deprecierea imobilizarilor financiare + + 1 + + + + 154 + 3 + 301 + Materii prime + + 2 + + + + 155 + 3 + 302 + Materiale consumabile + + 1 + + + + 164 + 3 + 308 + Diferente de pret la materii prime si materiale + + 2 + + + + 171 + 170 + 3481 + Diferente de pret la semifabricate + + 2 + + + + 172 + 170 + 3482 + Diferente de pret la produse finite + + 2 + + + + 173 + 170 + 3483 + Diferente de pret la produse reziduale + + 2 + + + + 165 + 3 + 331 + Produse in curs de executie + + 2 + + + + 166 + 3 + 332 + Lucrari si servicii in curs de executie + + 2 + + + + 167 + 3 + 341 + Semifabricate + + 2 + + + + 168 + 3 + 345 + Produse finite + + 2 + + + + 169 + 3 + 346 + Produse reziduale + + 2 + + + + 170 + 3 + 348 + Diferente de pret la produse + + 1 + + + + 174 + 3 + 351 + Materii si materiale aflate la terti + + 2 + + + + 176 + 175 + 3541 + Semifabricate aflate la terti + + 2 + + + + 175 + 3 + 354 + Produse aflate la terti + + 1 + + + + 182 + 3 + 361 + Animale si pasari + + 2 + + + + 183 + 3 + 368 + Diferente de pret la animale si pasari + + 2 + + + + 184 + 3 + 371 + Marfuri + + 2 + + + + 185 + 3 + 378 + Diferente de pret la marfuri + + 2 + + + + 186 + 3 + 381 + Ambalaje + + 2 + + + + 187 + 3 + 388 + Diferente de pret la ambalaje + + 2 + + + + 188 + 3 + 391 + Provizioane pentru deprecierea materiilor prime + + 2 + + + + 189 + 3 + 392 + Provizioane pentru deprecierea materialelor + + 1 + + + + 191 + 189 + 3922 + Provizioane pentru deprecierea materialelor de natura obiectelor de inventar + + 2 + + + + 192 + 3 + 393 + Provizioane pentru deprecierea productiei in curs de executie + + 2 + + + + 193 + 3 + 394 + Provizioane pentru deprecierea produselor + + 1 + + + + 197 + 3 + 395 + Provizioane pentru deprecierea stocurilor aflate la terti + + 1 + + + + 205 + 3 + 396 + Provizioane pentru deprecierea animalelor + + 2 + + + + 206 + 3 + 397 + Provizioane pentru deprecierea marfurilor + + 2 + + + + 207 + 3 + 398 + Provizioane pentru deprecierea ambalajelor + + 2 + + + + 208 + 4 + 401 + Furnizori + + 2 + + + + 209 + 4 + 403 + Efecte de platit + + 2 + + + + 210 + 4 + 404 + Furnizori de imobilizari + + 2 + + + + 211 + 4 + 405 + Efecte de platit pentru imobilizari + + 2 + + + + 212 + 4 + 408 + Furnizori - facturi nesosite + + 2 + + + + 213 + 4 + 409 + Furnizori - debitori + + 1 + + + + 216 + 4 + 411 + Clienti + + 1 + + + + 219 + 4 + 413 + Efecte de primit de la clienti + + 2 + + + + 229 + 228 + 4281 + Alte datorii in legatura cu personalul + + 2 + + + + 220 + 4 + 418 + Clienti - facturi de intocmit + + 2 + + + + 221 + 4 + 419 + Clienti - creditori + + 2 + + + + 222 + 4 + 421 + Personal - salarii datorate + + 2 + + + + 223 + 4 + 423 + Personal - ajutoare materiale datorate + + 2 + + + + 224 + 4 + 424 + Participarea personalului la profit + + 2 + + + + 225 + 4 + 425 + Avansuri acordate personalului + + 2 + + + + 226 + 4 + 426 + Drepturi de personal neridicate + + 2 + + + + 227 + 4 + 427 + Retineri din salarii datorate tertilor + + 2 + + + + 228 + 4 + 428 + Alte datorii si creante in legatura cu personalul + + 1 + + + + 231 + 4 + 431 + Asigurari sociale + + 1 + + + + 236 + 4 + 437 + Ajutor de somaj + + 1 + + + + 239 + 4 + 438 + Alte datorii si creante sociale + + 1 + + + + 242 + 4 + 441 + Impozitul pe profit + + 1 + + + + 245 + 4 + 442 + Taxa pe valoarea adaugata + + 1 + + + + 246 + 245 + 4423 + Taxa pe valoarea adaugata de plata + + 2 + + + + 247 + 245 + 4424 + Taxa pe valoarea adaugata de recuperat + + 2 + + + + 248 + 245 + 4426 + Taxa pe valoarea adaugata deductibila + + 2 + + + + 249 + 245 + 4427 + Taxa pe valoarea adaugata colectata + + 2 + + + + 250 + 245 + 4428 + Taxa pe valoarea adaugata neexigibila + + 2 + + + + 251 + 4 + 444 + Impozitul pe venituri de natura salariilor + + 2 + + + + 252 + 4 + 445 + Subventii + + 2 + + + + 253 + 4 + 446 + Alte impozite, taxe si varsaminte asimilate + + 2 + + + + 254 + 4 + 447 + Fonduri speciale-taxe si varsaminte asimilate + + 2 + + + + 255 + 4 + 448 + Alte datorii si creante cu bugetul statului + + 1 + + + + 258 + 4 + 451 + Decontari in cadrul grupului + + 1 + + + + 261 + 4 + 452 + Decontari privind interesele de participare + + 1 + + + + 267 + 4 + 456 + Decontari cu actionarii /asociatii privind capitalul + + 2 + + + + 268 + 4 + 457 + Dividende de plata + + 2 + + + + 269 + 4 + 458 + Decontari din operatii in participatie + + 1 + + + + 272 + 4 + 461 + Debitori diversi + + 2 + + + + 273 + 4 + 462 + Creditori diversi + + 2 + + + + 274 + 4 + 471 + Cheltuieli inregistrate in avans + + 2 + + + + 275 + 4 + 472 + Venituri inregistrate in avans + + 2 + + + + 276 + 4 + 473 + Decontari din operatii in curs de clarificare + + 2 + + + + 281 + 280 + 4951 + Provizioane pentru deprecierea creantelor asupra societatilor din cadrul grupului + + 2 + + + + 282 + 280 + 4952 + Provizioane pentru deprecierea creantelor referitoare la interesele de participare + + 2 + + + + 277 + 4 + 481 + Decontari intre unitate si subunitati + + 2 + + + + 278 + 4 + 482 + Decontari intre subunitati + + 2 + + + + 279 + 4 + 491 + Provizioane pentru deprecierea creantelor-clienti + + 2 + + + + 280 + 4 + 495 + Provizioane pentru deprecierea creantelor-decontari in cadrul grupului si cu asociatii + + 1 + + + + 284 + 4 + 496 + Provizioane pentru deprecierea creantelor-debitori diversi + + 2 + + + + 286 + 5 + 502 + Actiuni proprii + + 2 + + + + 287 + 5 + 503 + Actiuni + + 1 + + + + 290 + 5 + 505 + Obligatiuni emise si rascumparate + + 2 + + + + 291 + 5 + 506 + Obligatiuni + + 1 + + + + 294 + 5 + 508 + Alte investitii financiare pe termen scurt si creante asimilate + + 1 + + + + 297 + 5 + 509 + Varsaminte de efectuat pentru investitii financiare pe termen scurt + + 1 + + + + 300 + 5 + 511 + Valori de incasat + + 1 + + + + 304 + 5 + 512 + Conturi curente la banci + + 1 + + + + 308 + 5 + 518 + Dobanzi + + 1 + + + + 311 + 5 + 519 + Credite bancare pe termen scurt + + 1 + + + + 320 + 5 + 531 + Casa + + 1 + + + + 323 + 5 + 532 + Alte valori + + 1 + + + + 328 + 5 + 541 + Acreditive + + 1 + + + + 331 + 5 + 542 + Avansuri de trezorerie + + 2 + + + + 332 + 5 + 581 + Viramente interne + + 2 + + + + 334 + 5 + 592 + Provizioane pentru deprecierea actiunilor proprii + + 2 + + + + 339 + 6 + 601 + Cheltuieli cu materii prime + + 2 + + + + 340 + 6 + 602 + Cheltuieli cu materiale consumabile + + 1 + + + + 348 + 6 + 603 + Cheltuieli privind materialele de natura obiectelor de inventar + + 2 + + + + 341 + 340 + 6021 + Cheltuieli cu materialele auxiliare + + 2 + + + + 349 + 6 + 604 + Cheltuieli privind materialele nestocate + + 2 + + + + 350 + 6 + 605 + Cheltuieli privind energia si apa + + 2 + + + + 351 + 6 + 606 + Cheltuieli cu animalele si pasarile + + 2 + + + + 352 + 6 + 607 + Cheltuieli privind marfurile + + 2 + + + + 353 + 6 + 608 + Cheltuieli privind ambalaje + + 2 + + + + 354 + 6 + 611 + Cheltuieli cu intretinerea si reparatiile + + 2 + + + + 355 + 6 + 612 + Cheltuieli cu redeventele, locatiile de gestiune si chiriile + + 2 + + + + 356 + 6 + 613 + Cheltuielile cu primele de asigurare + + 2 + + + + 357 + 6 + 614 + Cheltuieli cu studiile si cercetarile + + 2 + + + + 358 + 6 + 621 + Cheltuieli cu colaboratorii + + 2 + + + + 359 + 6 + 622 + Cheltuieli privind comisioanele si onorariile + + 2 + + + + 360 + 6 + 623 + Cheltuieli de protocol, reclama si publicitate + + 2 + + + + 361 + 6 + 624 + Cheltuieli cu transportul de bunuri si de personal + + 2 + + + + 362 + 6 + 625 + Cheluieli cu deplasari, detasari si transferari + + 2 + + + + 363 + 6 + 626 + Cheltuieli postale si taxe de telecomunicatii + + 2 + + + + 364 + 6 + 627 + Cheltuieli cu serviciile bancare si asimilate + + 2 + + + + 365 + 6 + 628 + Alte cheltuieli cu serviciile executate de terti + + 2 + + + + 369 + 368 + 6451 + Contributia unitatii la asigurarile sociale + + 2 + + + + 366 + 6 + 635 + Cheltuieli cu alte impozite, taxe si varsaminte asimilate + + 2 + + + + 367 + 6 + 641 + Cheltuieli cu salariile personalului + + 2 + + + + 368 + 6 + 645 + Cheltuieli privind asigurarile si protectia sociala + + 1 + + + + 373 + 6 + 654 + Pierderi din creante si debitori diversi + + 2 + + + + 374 + 6 + 658 + Alte cheltuieli de exploatare + + 1 + + + + 379 + 6 + 663 + Pierderi din creante legate de participatii + + 2 + + + + 380 + 6 + 664 + Cheltuieli privind investitiile financiare cedate + + 1 + + + + 383 + 6 + 665 + Cheltuieli din diferente de curs valutar + + 2 + + + + 384 + 6 + 666 + Cheltuieli privind dobanzile + + 2 + + + + 385 + 6 + 667 + Cheltuieli privind sconturile acordate + + 2 + + + + 386 + 6 + 668 + Alte cheltuieli financiare + + 2 + + + + 387 + 6 + 671 + Cheltuieli privind calamitatile si alte evenimente extraordinare + + 2 + + + + 389 + 388 + 6811 + Cheltuieli de exploatare privind amortizarea imobilizarilor + + 2 + + + + 388 + 6 + 681 + Cheltuieli de exploatare privind amortizarile si provizioanele + + 1 + + + + 393 + 6 + 686 + Cheltuieli financiare privind amortizarile si provizioanele + + 1 + + + + 397 + 6 + 688 + Cheltuieli din ajustarea la inflatie + + 2 + + + + 398 + 6 + 691 + Cheltuieli cu impozitul pe profit + + 1 + + + + 402 + 7 + 701 + Venituri din vanzarea produselor finite + + 2 + + + + 403 + 7 + 702 + Venituri din vanzarea semifabricatelor + + 2 + + + + 404 + 7 + 703 + Venituri din vanzarea produselor reziduale + + 2 + + + + 405 + 7 + 704 + Venituri din lucrari executate si servicii prestate + + 2 + + + + 406 + 7 + 705 + Venituri din studii si cercetari + + 2 + + + + 407 + 7 + 706 + Venituri din redevente, locatii de gestiune si chirii + + 2 + + + + 408 + 7 + 707 + Venituri din vanzarea marfurilor + + 2 + + + + 409 + 7 + 708 + Venituri din activitati diverse + + 2 + + + + 410 + 7 + 711 + Variatia stocurilor + + 2 + + + + 411 + 7 + 721 + Venituri din productia de imobilizari necorporale + + 2 + + + + 412 + 7 + 722 + Venituri din productia de imobilizari corporale + + 2 + + + + 413 + 7 + 741 + Venituri din subventii de exploatare + + 1 + + + + 422 + 7 + 754 + Venituri din creante reactivate si debitori diversi + + 2 + + + + 423 + 7 + 758 + Alte venituri din exploatare + + 1 + + + + 429 + 7 + 761 + Venituri din imobilizari financiare + + 1 + + + + 437 + 7 + 762 + Venituri din investitii financiare pe termen scurt + + 2 + + + + 438 + 7 + 763 + Venituri din creante imobilizate + + 2 + + + + 439 + 7 + 764 + Venituri din investitii financiare cedate + + 1 + + + + 442 + 7 + 765 + Venituri din diferenta de curs valutar + + 2 + + + + 443 + 7 + 766 + Venituri din dobanzi + + 2 + + + + 444 + 7 + 767 + Venituri din sconturi obtinute + + 2 + + + + 445 + 7 + 768 + Alte venituri financiare + + 2 + + + + 446 + 7 + 771 + Venituri din subventii pentru evenimentele extraordinare si altele similare + + 2 + + + + 448 + 447 + 7812 + Venituri din provizioane pentru riscuri si cheltuieli + + 2 + + + + 447 + 7 + 781 + Venituri din provizioane privind activitatea de exploatare + + 1 + + + + 452 + 7 + 786 + Venituri financiare din provizioane + + 1 + + + + 455 + 7 + 788 + Venituri din ajustarea la inflatie + + 2 + + + + 457 + 8 + 801 + Angajamente acordate + + 1 + + + + 460 + 8 + 802 + Angajamente primite + + 1 + + + + 464 + 463 + 8031 + Imobilizari corporale luate cu chirie + + 2 + + + + 465 + 463 + 8032 + Valori materiale primite spre prelucrare sau reparare + + 2 + + + + 466 + 463 + 8033 + Valori materiale primite in pastrare sau custodie + + 2 + + + + 467 + 463 + 8034 + Debitori scosi din activ, urmariti in continuare + + 2 + + + + 468 + 463 + 8035 + Debitori din amenzi si penalitati pretinse + + 2 + + + + 469 + 463 + 8036 + Redevente, locatii de gestiune, chirii si alte datorii asimilate + + 2 + + + + 470 + 463 + 8037 + Efecte scontate neajunse la scadenta + + 2 + + + + 471 + 463 + 8038 + Alte valori in afara bilantului + + 2 + + + + 476 + 9 + 901 + Decontari interne privind cheltuielile + + 2 + + + + 477 + 9 + 902 + Decontari interne privind productia obtinuta + + 2 + + + + 478 + 9 + 903 + Decontari interne privind diferentele de pret + + 2 + + + + 479 + 9 + 921 + Cheltuielile activitatii de baza + + 2 + + + + 480 + 9 + 922 + Cheltuielile activitatilor auxiliare + + 2 + + + + 481 + 9 + 923 + Cheltuieli indirecte de productie + + 2 + + + + 482 + 9 + 924 + Cheltuieli generale de administratie + + 2 + + + + 483 + 9 + 925 + Cheltuieli de desfacere + + 2 + + + + 484 + 9 + 931 + Costul productiei obtinute + + 2 + + + + 485 + 9 + 933 + Costul productiei in curs de executie + + 2 + + + + 11 + 10 + 1011 + Capital subscris si nevarsat + + 2 + + + + 12 + 10 + 1012 + Capital subscris varsat + + 2 + + + + 13 + 10 + 1015 + Patrimoniul regiei + + 2 + + + + 14 + 10 + 1016 + Patrimoniul public + + 2 + + + + 16 + 15 + 1041 + Prime de emisiune + + 2 + + + + 17 + 15 + 1042 + Prime de fuziune + + 2 + + + + 18 + 15 + 1043 + Prime de aport + + 2 + + + + 19 + 15 + 1044 + Prime de conversie a obligatiunilor in actiuni + + 2 + + + + 456 + 7 + 791 + Venituri din impozitul pe profit amanat + + 2 + + + + 21 + 20 + 1051 + Rezerve din reevaluare af. bilantului de deschidere al primului an de aplicare a ajust. la inflatie + + 2 + + + + 22 + 20 + 1058 + Rezerve din reevaluari dispuse prin acte normative + + 2 + + + + 24 + 23 + 1061 + Rezerve legale + + 2 + + + + 25 + 23 + 1062 + Rezerve pentru actiuni proprii + + 2 + + + + 26 + 23 + 1063 + Rezerve statuare sau contractuale + + 2 + + + + 27 + 23 + 1068 + Alte rezerve + + 2 + + + + 34 + 29 + 1175 + Rezultatul reportat reprezentand surplusul realizat din rezerve din reevaluare + + 2 + + + + 40 + 38 + 1512 + Provizioane pentru garantii acordate clientilor + + 2 + + + + 41 + 38 + 1513 + Provizioane pentru chelt. de dezafectare imob. corporale si alte actiuni similare legate de acestea + + 2 + + + + 42 + 38 + 1514 + Provizioane pentru restructurare + + 2 + + + + 43 + 38 + 1518 + Alte provizioane pentru riscuri si cheltuieli + + 2 + + + + 45 + 44 + 1614 + Imprumuturi externe din emisiuni de obligatiuni garantate de stat + + 2 + + + + 46 + 44 + 1615 + Imprumuturi externe din emisiuni de obligatiuni garantate de banci + + 2 + + + + 47 + 44 + 1617 + Imprumuturi interne din emisiuni de obligatiuni garantate de stat + + 2 + + + + 48 + 44 + 1618 + Alte imprumuturi din emisiuni de obligatiuni + + 2 + + + + 50 + 49 + 1621 + Credite bancare pe termen lung + + 2 + + + + 51 + 49 + 1622 + Credite bancare pe termen lung nerambursabile la scadenta + + 2 + + + + 52 + 49 + 1623 + Credite externe guvernamentale + + 2 + + + + 53 + 49 + 1624 + Credite bancare externe garantate de stat + + 2 + + + + 54 + 49 + 1625 + Credite bancare externe garantate de banci + + 2 + + + + 55 + 49 + 1626 + Credite de la trezoreria statului + + 2 + + + + 56 + 49 + 1627 + Credite bancare interne garantate de stat + + 2 + + + + 58 + 57 + 1661 + Datorii catre societatile din cadrul grupului + + 2 + + + + 59 + 57 + 1662 + Datorii catre societatile care detin interese de participare + + 2 + + + + 62 + 61 + 1681 + Dobanzi aferente imprumuturilor din emisiunea de obligatiuni + + 2 + + + + 63 + 61 + 1682 + Dobanzi aferente creditelor bancare pe termen lung + + 2 + + + + 64 + 61 + 1685 + Dobanzi aferente datoriilor catre societatile din cadrul grupului + + 2 + + + + 65 + 61 + 1686 + Dobanzi aferente datoriilor catre societatile care detin interese de participare + + 2 + + + + 66 + 61 + 1687 + Dobanzi aferente altor imprumuturi si datorii asimilate + + 2 + + + + 71 + 70 + 2051 + Concesiuni, brevete, licente, marci comerciale si alte drepturi si valori similare achizitionate + + 2 + + + + 72 + 70 + 2052 + Brevete, licente si alte drepturi si valori similare obtinute cu resurse proprii + + 2 + + + + 74 + 73 + 2071 + Fond comercial + + 2 + + + + 75 + 73 + 2075 + Fond comercial negativ + + 2 + + + + 78 + 77 + 2111 + Terenuri + + 2 + + + + 79 + 77 + 2112 + Amenajari de terenuri + + 2 + + + + 81 + 2 + 213 + Instalatii tehnice, mijloace de transport, animale si plantatii + + 1 + + + + 82 + 81 + 2131 + Echipamente tehnologice (masini, utilaje si instalatii de lucru) + + 2 + + + + 83 + 81 + 2132 + Aparate si instalatii de masurare, control si reglare + + 2 + + + + 84 + 81 + 2133 + Mijloace de transport + + 2 + + + + 85 + 81 + 2134 + Animale si plantatii + + 2 + + + + 86 + 2 + 214 + Mobilier, aparatura birotica, echip. de protectie a val. umane si materiale si alte active corporale + + 2 + + + + 89 + 87 + 2312 + Instalatii tehnice si masini + + 2 + + + + 90 + 87 + 2313 + Alte imobilizari corporale + + 2 + + + + 91 + 2 + 232 + Avansuri acordate pentru imobilizari corporale + + 1 + + + + 92 + 91 + 2321 + Avansuri acordate pentru terenuri si constructii + + 2 + + + + 93 + 91 + 2322 + Avansuri acordate pentru instalatii tehnice si masini + + 2 + + + + 94 + 91 + 2323 + Avansuri acordate pentru alte imobilizari corporale + + 2 + + + + 95 + 2 + 233 + Imobilizari necorporale in curs + + 2 + + + + 96 + 2 + 234 + Avansuri acordate pentru imobilizari necorporale + + 2 + + + + 100 + 99 + 2633 + Titluri de participare detinute in intreprinderi asociate din cadrul grupului + + 2 + + + + 101 + 99 + 2634 + Titluri de participare detinute in intreprinderi asociate din afara grupului + + 2 + + + + 102 + 99 + 2635 + Titluri de participare strategice in cadrul grupului + + 2 + + + + 103 + 99 + 2636 + Titluri de participare strategice in afara grupului + + 2 + + + + 104 + 2 + 264 + Titluri puse in echivalenta + + 2 + + + + 105 + 2 + 265 + Alte titluri imobilizate + + 2 + + + + 107 + 106 + 2671 + Sume datorate de filiale + + 2 + + + + 108 + 106 + 2672 + Dobanda aferenta sumelor datorate de filiale + + 2 + + + + 109 + 106 + 2673 + Imprumuturi acordate pe termen lung + + 2 + + + + 110 + 106 + 2674 + Dobanda aferenta imprumuturilor acordate pe termen lung + + 2 + + + + 111 + 106 + 2675 + Creante legate de interesele de participare + + 2 + + + + 112 + 106 + 2676 + Dobanda aferenta creantelor legate de interesele de participare + + 2 + + + + 113 + 106 + 2677 + Actiuni proprii - active imobilizate + + 2 + + + + 114 + 106 + 2678 + Alte creante imobilizate + + 2 + + + + 115 + 106 + 2679 + Dobanzi aferente altor creante imobilizate + + 2 + + + + 117 + 116 + 2691 + Varsaminte de efectuat referitoare la titluri de participare detinute la filiale din cadrul grupului + + 2 + + + + 118 + 116 + 2692 + Varsaminte de efectuat referitoare la interesele de participare + + 2 + + + + 119 + 116 + 2698 + Varsaminte de efectuat pentru alte imobilizari financiare + + 2 + + + + 121 + 120 + 2801 + Amortizarea cheltuielilor de constituire + + 2 + + + + 122 + 120 + 2803 + Amortizarea cheltuielilor de dezvoltare + + 2 + + + + 123 + 120 + 2805 + Amortizarea concesiunilor, brevetelor, licentelor, marcilor comerciale si altor drepturi similare + + 2 + + + + 124 + 120 + 2807 + Amortizarea fondului comercial + + 2 + + + + 125 + 120 + 2808 + Amortizarea altor imobilizari necorporale + + 2 + + + + 127 + 126 + 2811 + Amortizarea amenajarii de terenuri + + 2 + + + + 128 + 126 + 2812 + Amortizarea constructiilor + + 2 + + + + 129 + 126 + 2813 + Amortizarea instalatiilor, mijloacelor de transport, animalelor, plantatiilor + + 2 + + + + 130 + 126 + 2814 + Amortizarea altor imobilizari corporale + + 2 + + + + 132 + 131 + 2903 + Provizioane pentru cheltuielile de dezvoltare + + 2 + + + + 133 + 131 + 2905 + Provizioane pentru concesiuni, brevete, licente, marci com. si alte drepturi si valori similare + + 2 + + + + 134 + 131 + 2907 + Provizioane pentru fondul comercial + + 2 + + + + 135 + 131 + 2908 + Provizioane pentru alte imobilizari necorporale + + 2 + + + + 137 + 136 + 2911 + Provizioane pentru deprecierea terenurilor si amenajarilor de terenuri + + 2 + + + + 138 + 136 + 2912 + Provizioane pentru deprecierea constructiilor + + 2 + + + + 139 + 136 + 2913 + Provizioane pentru deprecierea instalatiilor, mijloaacelor de transport, animalelor, plantatiilor + + 2 + + + + 140 + 136 + 2914 + Provizioane pentru deprecierea altor imobilizari corporale + + 2 + + + + 142 + 141 + 2931 + Provizioane pentru deprecierea imobilizarilor corporale in curs + + 2 + + + + 143 + 141 + 2933 + Provizioane pentru deprecierea imobilizarilor necorporale in curs + + 2 + + + + 145 + 144 + 2961 + Provizioane pentru deprecierea titlurilor de participare detinute la filiale din cadrul grupului + + 2 + + + + 146 + 144 + 2962 + Provizioane pentru deprecierea titlurilor de participare detinute la societati din afara grupului + + 2 + + + + 147 + 144 + 2963 + Provizioane pentru deprecierea imobilizarilor financiare sub forma de interese de participare + + 2 + + + + 148 + 144 + 2964 + Provizioane pentru deprecierea altor titluri imobilizate + + 2 + + + + 149 + 144 + 2965 + Provizioane pentru deprecierea sumelor datorate de filiale + + 2 + + + + 150 + 144 + 2966 + Provizioane pentru deprecierea imprumuturilor acordate pe termen lung + + 2 + + + + 151 + 144 + 2967 + Provizioane pentru deprecierea creantelor legate de interesele de participare + + 2 + + + + 152 + 144 + 2968 + Provizioane pentru deprecierea actiunilor proprii-active imobilizate + + 2 + + + + 153 + 144 + 2969 + Provizioane pentru deprecierea altor creante imobilizate + + 2 + + + + 458 + 457 + 8011 + Giruri si garantii acordate + + 2 + + + + 459 + 457 + 8018 + Alte angajamente acordate + + 2 + + + + 156 + 155 + 3021 + Materiale auxiliare + + 2 + + + + 157 + 155 + 3022 + Combustibili + + 2 + + + + 158 + 155 + 3023 + Materiale pentru ambalat + + 2 + + + + 159 + 155 + 3024 + Piese de schimb + + 2 + + + + 160 + 155 + 3025 + Seminte si materiale de plantat + + 2 + + + + 162 + 155 + 3028 + Alte materiale consumabile + + 2 + + + + 161 + 155 + 3026 + Furaje + + 2 + + + + 163 + 3 + 303 + Materiale de natura obiectelor de inventar + + 2 + + + + 177 + 175 + 3545 + Produse finite aflate la terti + + 2 + + + + 178 + 175 + 3546 + Produse reziduale aflate la terti + + 2 + + + + 179 + 3 + 356 + Animale aflate la terti + + 2 + + + + 180 + 3 + 357 + Marfuri aflate la terti + + 2 + + + + 181 + 3 + 358 + Ambalaje aflate la terti + + 2 + + + + 190 + 189 + 3921 + Provizioane pentru deprecierea materialelor consumabile + + 2 + + + + 194 + 193 + 3941 + Provizioane pentru deprecierea semifabricatelor + + 2 + + + + 195 + 193 + 3945 + Provizioane pentru deprecierea produselor finite + + 2 + + + + 196 + 193 + 3946 + Provizioane pentru deprecierea produselor reziduale + + 2 + + + + 198 + 197 + 3951 + Provizioane pentru deprecierea materiilor si materialelor aflate la terti + + 2 + + + + 199 + 197 + 3952 + Provizioane pentru deprecierea semifabricatelor aflate la terti + + 2 + + + + 200 + 197 + 3953 + Provizioane pentru deprecierea produselor finite aflate la terti + + 2 + + + + 201 + 197 + 3954 + Provizioane pentru deprecierea produselor reziduale aflate la terti + + 2 + + + + 202 + 197 + 3956 + Provizioane pentru deprecierea animalelor aflate la terti + + 2 + + + + 203 + 197 + 3957 + Provizioane pentru deprecierea marfurilor aflate la terti + + 2 + + + + 204 + 197 + 3958 + Provizioane pentru deprecierea ambalajelor aflate la terti + + 2 + + + + 461 + 460 + 8021 + Giruri si garantii primite + + 2 + + + + 214 + 213 + 4091 + Furnizori-debitori pentru cumparari de bunuri de natura stocurilor + + 2 + + + + 215 + 213 + 4092 + Furnizori-debitori pentru prestari de servicii si executari de lucrari + + 2 + + + + 217 + 216 + 4111 + Clienti + + 2 + + + + 218 + 216 + 4118 + Clienti incerti sau in litigiu + + 2 + + + + 230 + 228 + 4282 + Alte creante in legatura cu personalul + + 2 + + + + 232 + 231 + 4311 + Contributia unitatii la asigurarile sociale + + 2 + + + + 233 + 231 + 4312 + Contributia personalului pentru pensia suplimentara + + 2 + + + + 234 + 231 + 4313 + Contributia angajatorului pentru asigurarile sociale de sanatate + + 2 + + + + 235 + 231 + 4314 + Contributia angajatilor pentru asigurarile sociale de sanatate + + 2 + + + + 237 + 236 + 4371 + Contributia unitatii la fondul de somaj + + 2 + + + + 238 + 236 + 4372 + Contributia personalului la fondul de somaj + + 2 + + + + 240 + 239 + 4381 + Alte datorii sociale + + 2 + + + + 241 + 239 + 4382 + Alte creante sociale + + 2 + + + + 243 + 242 + 4411 + Impozitul pe profit curent + + 2 + + + + 244 + 242 + 4412 + Impozitul pe profit amanat + + 2 + + + + 256 + 255 + 4481 + Alte datorii fata de bugetul statului + + 2 + + + + 257 + 255 + 4482 + Alte creante privind bugetul statului + + 2 + + + + 259 + 258 + 4511 + Decontari in cadrul grupului + + 2 + + + + 260 + 258 + 4518 + Dobanzi aferente decontarilor in cadrul grupului + + 2 + + + + 262 + 261 + 4521 + Decontari privind interesele de participare + + 2 + + + + 263 + 261 + 4528 + Dobanzi aferente decontarilor privind interesele de participare + + 2 + + + + 264 + 4 + 455 + Sume datorate asociatilor + + 1 + + + + 265 + 264 + 4551 + Asociati-conturi curente + + 2 + + + + 266 + 264 + 4558 + Asociati-dobanzi la conturi curente + + 2 + + + + 270 + 269 + 4581 + Decontari din operatii in participatie-pasiv + + 2 + + + + 271 + 269 + 4588 + Decontari din operatii in participatie-activ + + 2 + + + + 283 + 280 + 4953 + Provizioane pentru deprecierea creantelor asupra asociatilor + + 2 + + + + 285 + 5 + 501 + Investitii financiare pe termen scurt la societati din cadrul grupului + + 2 + + + + 288 + 287 + 5031 + Actiuni cotate + + 2 + + + + 289 + 287 + 5032 + Actiuni necotate + + 2 + + + + 292 + 291 + 5061 + Obligatiuni cotate + + 2 + + + + 293 + 291 + 5062 + Obligatiuni necotate + + 2 + + + + 295 + 294 + 5081 + Alte titluri de plasament + + 2 + + + + 296 + 294 + 5088 + Dobanzi la obligatiuni si titluri de plasament + + 2 + + + + 298 + 297 + 5091 + Varsaminte de efectuat pentru investitii fin. pe termen scurt la soc. in cadrul grupului + + 2 + + + + 299 + 297 + 5098 + Varsaminte de efectuat pentru alte investitii financiare pe termen scurt + + 2 + + + + 301 + 300 + 5112 + Cecuri de incasat + + 2 + + + + 302 + 300 + 5113 + Efecte de incasat + + 2 + + + + 303 + 300 + 5114 + Efecte remise spre scontare + + 2 + + + + 305 + 304 + 5121 + Conturi la banci in lei + + 2 + + + + 306 + 304 + 5124 + Conturi la banci in valuta + + 2 + + + + 307 + 304 + 5125 + Sume in curs de decontare + + 2 + + + + 309 + 308 + 5186 + Dobanzi de platit + + 2 + + + + 310 + 308 + 5187 + Dobanzi de incasat + + 2 + + + + 312 + 311 + 5191 + Credite bancare pe termen scurt + + 2 + + + + 313 + 311 + 5192 + Credite bancare pe termen scurt nerambursate la scadenta + + 2 + + + + 314 + 311 + 5193 + Credite externe guvernamentale + + 2 + + + + 315 + 311 + 5194 + Credite externe garantate de stat + + 2 + + + + 316 + 311 + 5195 + Credite externe garantate de banci + + 2 + + + + 317 + 311 + 5196 + Credite de la trezoreria statului + + 2 + + + + 318 + 311 + 5197 + Credite interne garantate de stat + + 2 + + + + 319 + 311 + 5198 + Dobanzi aferente creditelor bancare pe termen scurt + + 2 + + + + 321 + 320 + 5311 + Casa in lei + + 2 + + + + 322 + 320 + 5314 + Casa in valuta + + 2 + + + + 324 + 323 + 5321 + Timbre fiscale si postale + + 2 + + + + 325 + 323 + 5322 + Bilete de tratament si odihna + + 2 + + + + 326 + 323 + 5323 + Tichete si bilete de calatorie + + 2 + + + + 327 + 323 + 5328 + Alte valori + + 2 + + + + 329 + 328 + 5411 + Acreditive in lei + + 2 + + + + 330 + 328 + 5412 + Acreditive in valuta + + 2 + + + + 333 + 5 + 591 + Provizioane pentru deprecierea investitiilor financiare la societati din cadrul grupului + + 2 + + + + 335 + 5 + 593 + Provizioane pentru deprecierea actiunilor + + 2 + + + + 336 + 5 + 595 + Provizioane pentru deprecierea obligatiunilor emise si rascumparate + + 2 + + + + 337 + 5 + 596 + Provizioane pentru deprecierea obligatiunilor + + 2 + + + + 338 + 5 + 598 + Provizioane pentru deprecierea altor investitii financiare si creante asimilate + + 2 + + + + 342 + 340 + 6022 + Cheltuieli privind combustibilul + + 2 + + + + 343 + 340 + 6023 + Cheltuieli privind materialele pentru ambalat + + 2 + + + + 344 + 340 + 6024 + Cheltuieli privind piesele de schimb + + 2 + + + + 345 + 340 + 6025 + Cheltuieli privind semintele si materialele de plantat + + 2 + + + + 346 + 340 + 6026 + Cheltuieli privind furajele + + 2 + + + + 347 + 340 + 6028 + Cheltuieli privind alte materiale consumabile + + 2 + + + + 370 + 368 + 6452 + Contributia unitatii pentru ajutorul de somaj + + 2 + + + + 371 + 368 + 6453 + Contributia angajatorului pentru asigurarile sociale de sanatate + + 2 + + + + 372 + 368 + 6458 + Alte cheltuieli privind asigurarile si protectia sociala + + 2 + + + + 375 + 374 + 6581 + Despagubiri, amenzi si penalitati + + 2 + + + + 376 + 374 + 6582 + Donatii si subventii acordate + + 2 + + + + 377 + 374 + 6583 + Cheltuieli privind activele cedate si alte operatii de capital + + 2 + + + + 378 + 374 + 6588 + Alte cheltuieli de exploatare + + 2 + + + + 381 + 380 + 6641 + Cheltuieli privind imobilizarile financiare cedate + + 2 + + + + 382 + 380 + 6642 + Pierderi privind investitiile financiare pe termen scurt cedate + + 2 + + + + 390 + 388 + 6812 + Cheltuieli de exploatare privind provizioanele pentru riscuri si cheltuieli + + 2 + + + + 391 + 388 + 6813 + Cheltuieli de exploatare privind provizioanele pentru deprecierea imobilizarilor + + 2 + + + + 392 + 388 + 6814 + Cheltuieli de exploatare privind provizioanele pentru deprecierea activelor circulante + + 2 + + + + 394 + 393 + 6863 + Cheltuieli financiare privind provizioanele pentru deprecierea imobilizarilor financiare + + 2 + + + + 395 + 393 + 6864 + Cheltuieli financiare privind provizioanele pentru deprecierea activelor circulante + + 2 + + + + 396 + 393 + 6868 + Cheltuieli financiare privind amortizarea primelor de rambursare a obligatiunilor + + 2 + + + + 399 + 398 + 6911 + Cheltuieli cu impozitul pe profit curent + + 2 + + + + 400 + 398 + 6912 + Cheltuieli cu impozitul pe profit amanat + + 2 + + + + 401 + 6 + 698 + Alte cheltuieli cu impozitele care nu apar in elementele de mai sus + + 2 + + + + 414 + 413 + 7411 + Venituri din subventii de exploatare aferente cifrei de afacere + + 2 + + + + 415 + 413 + 7412 + Venituri din subventii de exploatare pentru materii prime si materiale consumabile + + 2 + + + + 416 + 413 + 7413 + Venituri din subventii de exploatare pentru alte cheltuieli din afara + + 2 + + + + 417 + 413 + 7414 + Venituri din subventii de exploatare pentru plata personalului + + 2 + + + + 418 + 413 + 7415 + Venituri din subventii de exploatare pentru asigurari si protectia sociala + + 2 + + + + 419 + 413 + 7416 + Venituri din subventii de exploatare pentru alte cheltuieli de exploatare + + 2 + + + + 420 + 413 + 7417 + Venituri din subventii de exploatare aferente altor venituri + + 2 + + + + 421 + 413 + 7418 + Venituri din subventii de exploatare pentru dobanda datorata + + 2 + + + + 424 + 423 + 7581 + Venituri din despagubiri, amenzi si penalitati + + 2 + + + + 425 + 423 + 7582 + Venituri din donatii si subventii primite + + 2 + + + + 426 + 423 + 7583 + Venituri din vanzarea activelor si alte operatii de capital + + 2 + + + + 427 + 423 + 7584 + Venituri din subventii pentru investitii + + 2 + + + + 428 + 423 + 7588 + Alte venituri din exploatare + + 2 + + + + 430 + 429 + 7611 + Venituri din titluri de participare detinute la filiale din cadrul grupului + + 2 + + + + 431 + 429 + 7612 + Venituri din titluri de participare detinute la filiale din afara grupului + + 2 + + + + 432 + 429 + 7613 + Venituri din titluri de participare detinute in intreprinderi asociate in cadrul grupului + + 2 + + + + 433 + 429 + 7614 + Venituri din titluri de participare detinute in intreprinderi asociate din afara grupului + + 2 + + + + 434 + 429 + 7615 + Venituri din titluri de participare strategice in cadrul grupului + + 2 + + + + 435 + 429 + 7616 + Venituri din titluri de participare strategice in afara grupului + + 2 + + + + 436 + 429 + 7617 + Venituri din alte imobilizari financiare + + 2 + + + + 440 + 439 + 7641 + Venituri din imobilizari financiare cedate + + 2 + + + + 441 + 439 + 7642 + Castiguri din investitii financiare pe termen scurt cedate + + 2 + + + + 449 + 447 + 7813 + Venituri din provizioane pentru deprecierea imobilizarilor + + 2 + + + + 450 + 447 + 7814 + Venituri din provizioane pentru deprecierea activelor circulante + + 2 + + + + 451 + 447 + 7815 + Venituri din fondul comercial negativ + + 2 + + + + 453 + 452 + 7863 + Venituri din provizioane pentru deprecierea imobilizarilor financiare + + 2 + + + + 454 + 452 + 7864 + Venituri din provizioane pentru deprecierea activelor circulante + + 2 + + + + 462 + 460 + 8028 + Alte angajamente primite + + 2 + + + + 463 + 8 + 803 + Alte conturi in afara bilantului + + 1 + + + + 474 + 8 + 891 + Bilant de deschidere + + 2 + + + + 475 + 8 + 892 + Bilant de inchidere + + 2 + + + + 1 + 0 + + CLASA 1 Conturi de capitaluri + + 1 + + + + 2 + 0 + + CLASA 2 Conturi de imobilizari + + 1 + + + + 3 + 0 + + CLASA 3 Conturi de stocuri si productie in curs de executie + + 1 + + + + 4 + 0 + + CLASA 4 Conturi de terti + + 1 + + + + 5 + 0 + + CLASA 5 Conturi de trezorerie + + 1 + + + + 6 + 0 + + CLASA 6 Conturi de cheltuieli + + 1 + + + + 7 + 0 + + CLASA 7 Conturi de venituri + + 1 + + + + 8 + 0 + + CLASA 8 Conturi speciale + + 1 + + + + 9 + 0 + + CLASA 9 Conturi de gestiune + + 1 + + + + 472 + 463 + 8039 + Stocuri de natura obiectelor de inventar + + 2 + + + + 473 + 8 + 8045 + Amortizarea aferenta gradului de neutilizare a mijloacelor fixe + + 2 + + + + + +
+ diff --git a/Help/helpleg.db2 b/Help/helpleg.db2 new file mode 100644 index 0000000..17e64b0 --- /dev/null +++ b/Help/helpleg.db2 @@ -0,0 +1,18044 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="helpleg.dbf" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* + + + + + 1252 + + + 0x00000030 + Visual FoxPro + + + + NRNOD + N + 5 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + NRTATA + N + 5 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + TITLU + C + 60 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + EXPLI + M + 4 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + TATAFIU + N + 1 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + + + + + + + + NRNOD + REGULAR + NRNOD + + ASCENDING + MACHINE + + + + + + + + + + + 1 + 0 + Contabilitate + + 1 + + + + 2 + 0 + Impozit pe profit + + 1 + + + + 3 + 0 + TVA + + 1 + + + + 4 + 3 + H.G. nr. 512/21.08.1998 + + 2 + + + + 5 + 3 + O.U.G. nr. 17/14.03.2000 + + 2 + + + + 6 + 1 + Regulament nr. 704/22.12.1993 + sau = F22 col. 2 rd. 24 + F25 col. 2 rd. (05+22) + F20 col. 2 rd. 10sau = F22 col. 4 rd.24 + F25 col. 3 rd. (05+22) + F20 col. 2 rd. 45 + 2 + + + + 7 + 1 + Ordin nr. 2388/15.12.1995 + + 2 + + + + 8 + 1 + Ordin nr. 320/16.02.1996 + + 2 + + + + 9 + 1 + H.G. nr. 483/18.06.1996 + + 2 + + + + 10 + 1 + O.G. nr. 22/24.07.1996 + + 2 + + + + 11 + 1 + Ordin nr. 949/12.05.1997 + + 2 + + + + 12 + 1 + Ordin nr. 1670/30.09.1997 + + 2 + + + + 13 + 1 + H.G. nr. 831/02.12.1997 + + 2 + + + + 14 + 1 + Ordin nr. 2055/30.12.1998 + + 2 + + + + 15 + 1 + Lege nr. 245/21.12.1998 + + 2 + + + + 16 + 1 + Ordin nr. 314/05.04.1999 + + 2 + + + + 17 + 1 + Ordin nr. 686/25.06.1999 + + 2 + + + + 18 + 1 + Lege nr. 82/24.12.1991 Republicata in 20.01.2000 + + 2 + + + + 19 + 1 + Ordin nr. 215/10.02.2000 + + 2 + + + + 20 + 1 + Ordin nr. 903/21.06.2000 + + 2 + + + + 23 + 2 + O.G. nr. 70/29.08.1994 Republicata in 12.03.1997 + + 2 + + + + 21 + 2 + H.G. nr. 974/29.12.1994 + + 2 + + + + 22 + 2 + Lege nr. 73/12.07.1996 + + 2 + + + + 24 + 2 + O.U.G. nr. 83/23.12.1997 + + 2 + + + + 25 + 2 + O.G. nr. 40/30.01.1998 + + 2 + + + + 26 + 2 + Lege nr. 106/26.05.1998 + + 2 + + + + 27 + 2 + Lege nr. 249/28.12.1998 + + 2 + + + + 28 + 2 + O.U.G. nr. 127/10.09.1999 + + 2 + + + + 29 + 2 + O.U.G. nr. 217/29.12.1999 + + 2 + + + + 30 + 2 + O.U.G. nr. 6/18.02.2000 + + 2 + + + + + +
+ diff --git a/Help/helpmenu.db2 b/Help/helpmenu.db2 new file mode 100644 index 0000000..70f47be --- /dev/null +++ b/Help/helpmenu.db2 @@ -0,0 +1,1543 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="helpmenu.dbf" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* + + + + + 1252 + + + 0x00000030 + Visual FoxPro + + + + NRNOD + N + 5 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + NRTATA + N + 5 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + TITLU + C + 60 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + EXPLI + M + 4 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + TATAFIU + N + 1 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + + + + + + + + NRNOD + REGULAR + NRNOD + + ASCENDING + MACHINE + + + + + + + + + + + 4 + 2 + Utile + , sau butonul din bara de instrumente. Pentru o mai rapida operare se poate face copierea unei sume din ecranul calculatorului -+ - si redarea ei în fereastra de program - < CONTROL>+. +3. Calendar - poate fi apelat folosind calea , sau apasarea butonului din bara de instrumente. Selectarea unei zile are ca efect retinerea acesteia de program a fiind ziua curenta. +4. Notepad - bloc-notes, sa va folosi în combinatie cu comenzile de editare pentru a retine sume si notite în timpul lucrului. +]]> + 1 + + + + 5 + 2 + Editare + +Z, Y, C si respectiv V) ]]> + 1 + + + + 6 + 2 + Initializare + + 1 + + + + 3 + 0 + Meniul de comenzi + +I INTRODUCERE + +V VIZUALIZARE + +L LISTARE + +A ANALIZE + La apelare, in dreptul cursorului vor aparea submeniurile si optiunile disponibile pentru fiecare.]]> + 1 + + + + 10 + 0 + Bara de instrumente + + 1 + + + + 7 + 2 + Inchidere + + 1 + + + + 8 + 2 + Actualizare + + 1 + + + + 9 + 2 + Ajutor + + 1 + + + + 12 + 4 + Optiuni sistem + + 1 + + + + 13 + 4 + Calculator + +sageti) + - copiere in memorie (+C) + - apelare CALCULATOR + - redare sume (+V) + - calcul operatii aritmetice + - copierea rezultatelor (+C) + - revenirea in program + - scrierea rezultatelor in fereastra de text (+V).]]> + 2 + + + + 14 + 4 + Calendar + + 2 + + + + 15 + 4 + Notepad + + 2 + + + + 16 + 4 + Iesire + + 2 + + + + 17 + 12 + Parola + + 2 + + + + 18 + 12 + Redirectionare + + 2 + + + + 19 + 12 + Inchid Fundalul + + 2 + + + + 20 + 5 + Anuleaza + +Z .) + +Aceastã comandã este activã numai dupã efectuarea unei editãri într-o fereastrã sau câmp de tip text. Ea are ca efect refacerea textului initial, sau mai precis, anularea ultimei comenzi de editare. + ! Dupã iesirea din fereastra / câmpul respectiv anularea nu mai este posibilã, ]]> + 2 + + + + 21 + 5 + Refa + +Y.) + +Este activã numai dupã executarea unei comenzi de ANULARE si are ca efect aducerea textului la forma precedentã comenzii de anulare. + + ! Dupã iesirea din fereastra / câmpul respectiv anularea nu mai este posibilã, si deci comanda de refacere nu are obiect.]]> + 2 + + + + 22 + 5 + Taie si retine + +X.) + +Este activã numai pentru un text selectat si are ca efect stergerea si retinerea lui în memoria calculatorului. Acest text va putea fi reprodus apoi în orice editor de text cu ajutorul comenzii , sau cu tastele +V, inclusiv într-o altã fereastrã deschisã în program, cu comanda REDÃ.]]> + 2 + + + + 23 + 5 + Copiaza + +C.) + +Este activã numai pentru un text selectat si are ca efect retinerea lui în memoria calculatorului. Acest text va putea fi reprodus apoi în orice editor de text cu ajutorul comenzii , sau cu tastele +V, inclusiv într-o altã fereastrã deschisã în program, cu comanda REDÃ.]]> + 2 + + + + 24 + 5 + Reda + +V.) + +Este activã numai dupã executarea unei comenzi de COPIERE si are ca efect scrierea textului din memorie în pozitia indicatã de cursor. + + ! Redarea unui text nu poate fi efectuatã decât tot într-o fereastrã de tip text, sau într-un câmp editabil.]]> + 2 + + + + 25 + 5 + Selecteaza tot + +A.) + +Este activa numai într-o fereastrã de tip text, sau într-un câmp editabil si are ca efect selectarea intregului text pe care este pozitionat cursorul.]]> + 2 + + + + 26 + 6 + Intrare... + + 2 + + + + 28 + 6 + Actualizare conturi + + 2 + + + + 29 + 6 + Actualizare coeficienti + + 2 + + + + 30 + 6 + Deschidere de luna noua + + 2 + + + + 31 + 6 + Redeschidere de luna + + 2 + + + + 32 + 6 + Datele firmei + + 2 + + + + 33 + 6 + Firma noua + + 2 + + + + 27 + 6 + Seria periodica + + 2 + + + + 34 + 7 + Nota de salarii + + 2 + + + + 35 + 7 + Amortizare mijloace fixe + + 2 + + + + 36 + 7 + TVA + + 2 + + + + 37 + 7 + Venituri + + 2 + + + + 38 + 7 + Cheltuieli + + 2 + + + + 39 + 7 + Cheltuiala Profit + + 2 + + + + 40 + 7 + Inchidere marfa + + 2 + + + + 1 + 0 + Privire generala + + 1 + + + + 2 + 0 + Meniul principal + urmata de secventa ce arata calea de urmat pâna la comanda dorita: + 1.1. Tastarea initialei meniului ce se doreste apelat (de exemplu: + I, N conduce la meniul ) +sau + 1.2. Folosirea sagetilor pentru a ajunge la comanda dorita, urmata de apasarea tastei . + +2. Prin simpla selectare cu mouse-ul.]]> + 1 + + + + 11 + 0 + Sfaturi pentru utilizarea eficienta a programului + + 1 + + + + 44 + 1 + Varianta monopost + + 2 + + + + 45 + 1 + Varianta pentru retea locala + + 2 + + + + 46 + 1 + Varianta pentru retea la distanta + + 2 + + + + 47 + 1 + Optiunea multi-firma + + 2 + + + + 48 + 1 + Lansarea + + 2 + + + + 49 + 8 + Verificari + + 2 + + + + 50 + 8 + Refaceri + + 2 + + + + 51 + 8 + Modificare libera + + 2 + + + + 52 + 8 + Actualizari + + 2 + + + + 53 + 9 + Planul general de conturi + + 2 + + + + 54 + 9 + Instructiuni de utilizare + + 2 + + + + 55 + 9 + Bare de instrumente + + 2 + + + + 56 + 9 + Despre program + + 2 + + + + 57 + 3 + Introducere + + 1 + + + + 58 + 3 + Vizualizare + + 1 + + + + 59 + 3 + Listare + + 1 + + + + 60 + 3 + Analize + + 1 + + + + 61 + 10 + Instrumente de introducere + + 2 + + + + 62 + 10 + Instrumente diverse + + 2 + + + + 63 + 10 + Instrumente de vizualizare + + 2 + + + + 64 + 57 + Capitaluri + + 1 + + + + 65 + 57 + Imobilizari + + 1 + + + + 66 + 57 + Furnizori + + 1 + + + + 67 + 57 + Clienti + + 1 + + + + 68 + 57 + Trezorerie + + 1 + + + + 69 + 57 + Cheltuieli materiale + + 1 + + + + 70 + 57 + Venituri + + 1 + + + + 71 + 57 + Note fara predefinire + + 2 + + + + 72 + 66 + Materii, materiale + , cu ajutorul mouse-ului sau folosind sagetile de la tastatura. Saltul de la o sectiune la alta, ocolind ordinea lor prestabilita, este posibil printr-un clic cu mouse-ul în locul dorit, dar cu mare atentie la rezultatele obtinute în final. + + a) Ciclul de introducere a reperelor în gestiune este o succesiune fireasca de operatiuni care au ca finalitate crearea unei liste de materiale identice cu documentul primar introdus. +Secventa este urmatoarea: + II --> III --> V --> VII --> II --> III … + + +SECTIUNEA II - cautarea +Contine un filtru de selectie a materialelor ce se aplica listei din sectiunea III. Acest filtru se creaza fie prin scrierea primelor litere ce compun numele reperului cautat, fie prin selectarea acestora din lista ultimelor încercari. Când terminati tastati . +În acelasi timp, utilizatorul poate selecta caracteristica dupa care doreste filtrarea - denumire sau cod. Selectarea unei caracteristici se face cu tasta ; trecerea de o caracteristica fara a o selecta se face cu ajutorul sagetilor. +Pentru a obtine lista materialelor în întregime, fara filtre de selectie, lasati fereastra de cautare goala. + +SECTIUNEA III - lista reperelor din nomenclator. +Contine initial lista tuturor materialelor din nomenclator care fac parte din grupa la care se refera optiunea de meniu (contul de materiale 300, 3011, 3012…). Dupa definirea unui filtru în sectiunea II, în lista vor ramâne numai acele repere care corespund definitiei. +Folositi sagetile pentru a pozitiona cursorul pe reperul de introdus si apasati . + +SECTIUNEA V - cantitatea si valoarea. +Aceasta sectiune contine trei câmpuri care stabilesc cantitatea, pretul de achizitie fara TVA si cu TVA ale materialului selectat la etapa anterioara. +Cantitatea - de tip numeric cu trei zecimale +Pret de achizitie cu / fara TVA - pretul unitar al produsului (numeric, cu doua zecimale). + +SECTIUNEA VII - verificarea +De îndata ce câmpul PRET DE ACHIZITIE CU TVA a fost completat, în fereastra de verificare apare noul reper cu caracteristicile stabilite. +Daca înregistrarea este corecta, apasati ENTER pentru a trece mai departe. Daca nu, puteti sterge înregistrarea apasând cu mouse-ul pe dreptunghiul din capatul rândului. +Apoi dati un clic pe înregistrarea anterioara pentru a permanentiza schimbarea. Puteti sterge astfel toate înregistrarile din sectiunea de verificare. + + Prin apasarea tastei ENTER ciclul se închide iar cursorul ajunge din nou în sectiunea II. + + Acesta este cel mai bun moment când puteti întrerupe ciclul actionând butoanele din sectiunea IX. + + b) Tratarea exceptiilor - cu ajutorul instrumentelor de actualizare si modificare din sectiunile I si IV se poate face în orice moment al lucrului cu fereastra de gestiune. Exceptiile se refera la: + +1. Denumirea si codul materialelor: SECTIUNEA I - actualizarea nomenclatorului de produse. +Aici apar doua optiuni: INTRODUCERE si MODIFICARE. + # pentru INTRODUCERE apasati butonul REPER NOU folosind mouse-ul +Prin aceasta, rubricile de introducere se vor debloca si veti putea introduce: +- codul materialului; +- denumirea materialului, +- unitatea de masura; +- contul debitor (care trebuie sa coincida cu cel din meniul de introducere). + # pentru MODIFICARE apasati eticheta din partea dreapta si scrieti direct în tabel. + +2. Cota de TVA: SECTIUNEA IV - va permite, ca si în cazul cheltuielilor directe, sa selectati cota de TVA ce se aplica produsului în curs de introducere. +Procentele corespunzatoare celor doua optiuni sunt preluate din tabela de coeficienti TVA ce poate fi modificata numai din meniul principal. +Pentru a selecta TVA 0 sau Minim apasati cu mouse-ul pe unul din cercurile albe. + + c) Datele informative sunt prezentate în sectiunile VI si VIII. Acestea cuprind informatii despre documentul primar introdus: felul, numarul, data, precum si valorile ce vor fi contabilizate daca în momentul vizualizarii se întrerupe ciclul de introducere. + +SECTIUNEA VI - vizeaza datele scrise în fereastra initiala de introducere pentru identificarea documentului în curs de înregistrare. +Acest lucru va fereste de eroarea de a introduce specificatiile si materialele de la alt document înregistrat precedent sau alte greseli de atentie, doarte greu de depistat si corectat dupa terminarea sesiunii de lucru. + +SECTIUNEA VIII - prezinta sumele totale, actualizate la ultimul ciclu de introducere. Aceasta face în permanenta calculul sumei materialelor ce apar în lista din sectiunea VII si a TVA aferente. +Sumele vizualizate în aceasta fereastra în momentul apasarii butonului [TERMINAT] vor fi contabilizate mai departe cu notele specifice optiunii de meniu selectate. + + d) Închiderea ciclului de introducere este necesara în doua cazuri: + + * Doriti sa iesiti din fereastra de introducere fara a înregistra datele cu ajutorul butonului [RENUNT]. + * Ati terminat introducerea datelor si ordonati contabilizarea, apasati [TERMINAT]. + +Odata cu închiderea ferestrei de gestiune prin optiunea [TERMINAT] programul va initializa procedura de contabilizare, afisând pe rând toate notele contabile aferente.]]> + 1 + + + + 73 + 66 + Cheltuieli + + 1 + + + + 74 + 66 + Furnizori facturi nesosite + + 2 + + + + 41 + 7 + Penalitati + + 2 + + + + 42 + 41 + Penalitati TVA + + 2 + + + + 43 + 41 + Penalitati impozit + + 2 + + + + 75 + 72 + Materii, materiale neplatite + + 2 + + + + 76 + 72 + Materii, materiale platite din casa + + 2 + + + + 77 + 72 + Materii materiale platite din 542 + + 2 + + + + 78 + 73 + Cheltuieli neplatite + + 2 + + + + 79 + 73 + Cheltuieli platite din casa + + 2 + + + + 80 + 73 + Cheltuieli platite din 542 + + 2 + + + + 81 + 66 + Regularizare facturi nesosite + + 2 + + + + 82 + 66 + Regularizare furnizori debitori + + 2 + + + + 83 + 66 + Furnizori imobilizari + + 2 + + + + 84 + 66 + Furnizori externi + + 2 + + + + 85 + 67 + Inregistrare productie cu 701 + + 2 + + + + 86 + 67 + Inregistrare productie cu 704 + + 2 + + + + 87 + 67 + Inregistrare alte venituri + + 2 + + + + 88 + 67 + Vanzare marfa din stoc + + 2 + + + + 89 + 67 + Vanzare marfa en gros + + 2 + + + + 90 + 67 + Vanzare marfa cu amanuntul + + 2 + + + + 91 + 67 + Vanzare marfa pe credit + + 2 + + + + 92 + 67 + Efecte de primit + + 2 + + + + 93 + 67 + Facturi neintocmite + + 2 + + + + 94 + 67 + Regularizare facturi neintocmite + + 2 + + + + 95 + 67 + Regularizare clienti creditori + + 2 + + + + 96 + 67 + Sconturi acordate clientilor + + 2 + + + + 97 + 67 + Clienti incerti + + 2 + + + + 98 + 67 + Clienti externi + + 2 + + + + + +
+ diff --git a/Help/procedura-modificare-atribut-tva-denumire.txt b/Help/procedura-modificare-atribut-tva-denumire.txt new file mode 100644 index 0000000..5781e60 --- /dev/null +++ b/Help/procedura-modificare-atribut-tva-denumire.txt @@ -0,0 +1,37 @@ +ROA. Procedură pentru cazul în care un client sau furnizor își schimbă calitatea de plătitor TVA sau denumirea. + +Pe scurt, creați un partener nou (cu același nume și atribut TVA diferit sau nume diferit și același atribut TVA) și inactivați partenerul vechi. + +Exemplu: ROMFAST SRL (ID: 100, CUI: 1879855) este neplătitor TVA până în luna martie și devine plătitor de TVA din luna aprilie + +1. În luna aprilie creați un partener nou: ROMFAST SRL (ex. ID: 500), CUI: RO1879855 + +2. Partenerul vechi, ROMFAST SRL (ID: 100, CUI: 1879855) are facturi cu sold neachitat la sfârșitul lunii martie? +a) DA. + Intrați în meniul "Inițializare > Configurare entități" + + Căutați partenerul vechi (ID: 100) și înlocuiți-l cu partenerul nou (ID: 500), cu opțiunea "Unificare parteneri" începând cu luna aprilie până la zi. + + * Pentru activarea opțiunii "Unificare parteneri", în formularul "Entități" dați dublu-click pe un loc liber, deasupra tabelului cu parteneri. + Va apărea butonul "Modificare ID Partener". + După ce vă poziționați în lista de entități pe partenerul vechi, apăsați butonul "Modificare ID Partener". + Parola este "AAAALLZZ" curentă. + Alegeți partenerul nou cu care doriți să înlocuiți partenerul vechi și apoi perioada pe care doriți să operați modificarea. + Confirmați operația. + + Unificarea partenerilor are următoarele efecte: + - modifică partenerul vechi (ID: 100) cu partenerul nou (ID: 500) în perioada aprilie-până la zi în Registrul Jurnal, Facturi, Balante analitice de parteneri, contracte, comenzi, salarizare. + - facturile cu sold în luna aprilie trec pe partenerul nou (ID: 500), astfel încât să poată fi achitate alegând partenerul nou (ID: 500) + - se inactiveaza partenerul ID: 100 +b) NU. + Intrați în meniul "Inițializare > Configurare entități" + + Inactivați partenerul vechi ID: 100, astfel încât să nu mai fie folosit din luna aprilie înainte. + +* Notă: + Trebuie mare atenție la alegerea perioadei în care se aplică modificările. Alegeți perioada din care a avut loc schimbarea de atribut TVA sau nume - până la zi. + +3. În luna aprilie se înregistrează și se achită facturi cu partenerul nou (ID: 500) + +* Notă: +Opțiunea 2 (Unificare parteneri) se poate folosi și pentru unificarea partenerilor duplicați și a notelor contabile, documentelor și facturilor lor (ex: au fost introduși cu mai multe denumire, dar sunt aceeași entitate) \ No newline at end of file diff --git a/Help/program1.prg b/Help/program1.prg new file mode 100644 index 0000000..9fb1b0e --- /dev/null +++ b/Help/program1.prg @@ -0,0 +1,5 @@ +I=1 +SCAN FOR !DELETED() +REPL NRNOD WITH I +I=I+1 +ENDSCAN \ No newline at end of file diff --git a/Include/COMCTL32.OCX b/Include/COMCTL32.OCX new file mode 100644 index 0000000..5ff81ed Binary files /dev/null and b/Include/COMCTL32.OCX differ diff --git a/Include/MSCAL.OCX b/Include/MSCAL.OCX new file mode 100644 index 0000000..287ea37 Binary files /dev/null and b/Include/MSCAL.OCX differ diff --git a/Include/ghid_roa_saft.docx b/Include/ghid_roa_saft.docx new file mode 100644 index 0000000..daf7854 Binary files /dev/null and b/Include/ghid_roa_saft.docx differ diff --git a/Include/ghid_roa_saft.pdf b/Include/ghid_roa_saft.pdf new file mode 100644 index 0000000..32db9cf Binary files /dev/null and b/Include/ghid_roa_saft.pdf differ diff --git a/Include/import_note_facturi_clienti.xlsx b/Include/import_note_facturi_clienti.xlsx new file mode 100644 index 0000000..12efe14 Binary files /dev/null and b/Include/import_note_facturi_clienti.xlsx differ diff --git a/Include/init_facturi_balanta_note.xlsx b/Include/init_facturi_balanta_note.xlsx new file mode 100644 index 0000000..17c5db0 Binary files /dev/null and b/Include/init_facturi_balanta_note.xlsx differ diff --git a/Include/structD394_080716.doc b/Include/structD394_080716.doc new file mode 100644 index 0000000..5630b17 Binary files /dev/null and b/Include/structD394_080716.doc differ diff --git a/Include/testedeconsistenta2_saft.pdf b/Include/testedeconsistenta2_saft.pdf new file mode 100644 index 0000000..269d3ba Binary files /dev/null and b/Include/testedeconsistenta2_saft.pdf differ diff --git a/Initializari/euro500t.txt.tmpl b/Initializari/euro500t.txt.tmpl new file mode 100644 index 0000000..e142748 --- /dev/null +++ b/Initializari/euro500t.txt.tmpl @@ -0,0 +1,5 @@ + /t /RO /com: /speed:38400 /ecr:10 /data_file: + + +[/com:n] [/speed:nnnn] [/ecr:nn] [/num:nn] [/o:nnn] [/start:nnn] [/len:nnn] [/cfg:ssssss] [/tel:ttttttt] +[/data_file:file] [/cfg_file:file] [/err_file:file] [/run_file :f ile] [/drm:drm] [/online_wait:time] diff --git a/Initializari/euro500t_erori.xml.tmpl b/Initializari/euro500t_erori.xml.tmpl new file mode 100644 index 0000000..c3faebc --- /dev/null +++ b/Initializari/euro500t_erori.xml.tmpl @@ -0,0 +1,134 @@ + + +1 +Communication error +Eroare de comunicare + + + +3 +Not finished sale in ECR, firstly finish the sale! +Vanzare neterminata in ECR!Terminati mai intai vanzarea! + + + +4 +Tax assignment out of range, or not active tax! +Cota de tva inexistenta sau inactiva! + + + +5 +DPT assignment out of range +Departament inexistent! + + + +6 +Sale unit out of range! + + + + +7 +Quantity out of range + + + + +8 +Price out of range + + + + +9 +Forbidden Online in particular mode! + + + + +10 +Command out of range or 2 times called command "3" or "4"! + + + + +11 +PLU number out of range + + + + +12 +Text out of character set + + + + +13 +Payment value out of range + + + + +14 +Payment type out of range + + + + +15 +Currency out of range! + + + + +16 +Sale command but sale no started! + + + + +30 +Number of serial port out of range! +Numarul portului serial nu este valid! + + + +31 +ECR number out of range +Numarul casei de marcat nu este valid! + + + +32 +Incorrect ECR type! +Tipul casei de marcat specificat in fisierul de configurare este incorect! + + + +33 +Incorrect communication speed in SETUP.DAT file +Viteza de comunicare specificata in fisierul de configurare este incorecta! + + + +34 +Error in ITEMS.TXT +Eroare in fisierul ITEMS.TXT! + + + +35 +Time-out error +Casa de marcat nu este deschisa sau nu este conectata la computer! + + + +36 +To open SETUP.DAT file impossible or do not exist +Eroare la deschiderea fisierului de configurare! + + + \ No newline at end of file diff --git a/Initializari/roacont_bon.xml.tmpl b/Initializari/roacont_bon.xml.tmpl new file mode 100644 index 0000000..b570cf2 --- /dev/null +++ b/Initializari/roacont_bon.xml.tmpl @@ -0,0 +1,21 @@ + + + +\INITIALIZARI\ +1 +C:\EURO500\ +ONLINE.EXE +ITEMS.TXT +1 + + + + +\INITIALIZARI\ +1 +C:\EURO500\ +ONLINE.EXE +ITEMS.TXT +1 + + \ No newline at end of file diff --git a/Locale/locale.db2 b/Locale/locale.db2 new file mode 100644 index 0000000..ea62ef3 --- /dev/null +++ b/Locale/locale.db2 @@ -0,0 +1,6376 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="locale.dbf" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* + + + + + 1252 + + locale.dbc + 0x00000030 + Visual FoxPro + + + + PHRASE + M + 4 + 0 + .F. + .F. + + + + + + LOCALE + + + + + 0 + 0 + + + LANGUAGE + C + 30 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + NOTES + M + 4 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + ID + I + 4 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + TRANSLATED + L + 1 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + + + + + + + + ID + REGULAR + ID + + ASCENDING + MACHINE + + + LANGUAGE + REGULAR + LANGUAGE + + ASCENDING + MACHINE + + + + + + + + + + + + Romana + + 1 + .T. + + + + + Romana + + 2 + .T. + + + + + Romana + + 3 + .T. + + + + + Romana + + 4 + .T. + + + + + Romana + + 5 + .T. + + + + + Romana + + 6 + .T. + + + + + Romana + + 7 + .T. + + + + + Romana + + 8 + .T. + + + + + Romana + + 9 + .T. + + + + + Romana + + 10 + .T. + + + + + Romana + + 11 + .T. + + + + + Romana + + 12 + .T. + + + + + Romana + + 13 + .T. + + + + + Romana + + 14 + .T. + + + + + Romana + + 15 + .T. + + + + + Romana + + 16 + .T. + + + + + Romana + + 17 + .T. + + + + + Romana + + 18 + .T. + + + + + Romana + + 19 + .T. + + + + + Romana + + 20 + .T. + + + + + Romana + + 21 + .T. + + + + + Romana + + 22 + .T. + + + + + Romana + + 23 + .T. + + + + + Romana + + 24 + .T. + + + + + Romana + + 25 + .T. + + + + + Romana + + 26 + .T. + + + + + Romana + + 27 + .T. + + + + + Romana + + 28 + .T. + + + + + Romana + + 29 + .T. + + + + + Romana + + 30 + .T. + + + + + Romana + + 31 + .T. + + + + + Romana + + 32 + .T. + + + + + Romana + + 33 + .T. + + + + + Romana + + 34 + .T. + + + + + Romana + + 35 + .T. + + + + + Romana + + 36 + .T. + + + + + Romana + + 37 + .T. + + + + + Romana + + 38 + .T. + + + + + Romana + + 39 + .T. + + + + + Romana + + 40 + .T. + + + + + Romana + + 41 + .T. + + + + + Romana + + 42 + .T. + + + + + Romana + + 43 + .T. + + + + + Romana + + 44 + .T. + + + + + Romana + + 45 + .T. + + + + + Romana + + 46 + .T. + + + + + Romana + + 47 + .T. + + + + + Romana + + 48 + .T. + + + + + Romana + + 49 + .T. + + + + + Romana + + 50 + .T. + + + + + Romana + + 51 + .T. + + + + + Romana + + 52 + .T. + + + + + Romana + + 53 + .T. + + + + + Romana + + 54 + .T. + + + + + Romana + + 55 + .T. + + + + + Romana + + 56 + .T. + + + + + Romana + + 57 + .T. + + + + + Romana + + 58 + .T. + + + + + Romana + + 59 + .T. + + + + + Romana + + 60 + .T. + + + + + Romana + + 61 + .T. + + + + + Romana + + 62 + .T. + + + + + Romana + + 63 + .T. + + + + + Romana + + 64 + .T. + + + + + Romana + + 65 + .T. + + + + + Romana + + 66 + .T. + + + + + Romana + + 67 + .T. + + + + + Romana + + 68 + .T. + + + + + Romana + + 69 + .T. + + + + + Romana + + 70 + .T. + + + + + Romana + + 71 + .T. + + + + + Romana + + 72 + .T. + + + + + Romana + + 73 + .T. + + + + + Romana + + 74 + .T. + + + + + Romana + + 75 + .T. + + + + + Romana + + 76 + .T. + + + + + Romana + + 77 + .T. + + + + + Romana + + 78 + .T. + + + + + Romana + + 79 + .T. + + + + + Romana + + 80 + .T. + + + + + Romana + + 81 + .T. + + + + + Romana + + 82 + .T. + + + + + Romana + + 83 + .T. + + + + + Romana + + 84 + .T. + + + + + Romana + + 85 + .T. + + + + + Romana + + 86 + .T. + + + + + Romana + + 87 + .T. + + + + + Romana + + 88 + .T. + + + + + Romana + + 89 + .T. + + + + + Romana + + 90 + .T. + + + + + Romana + + 91 + .T. + + + + + Romana + + 92 + .T. + + + + + Romana + + 93 + .T. + + + + + Romana + + 94 + .T. + + + + + Romana + + 95 + .T. + + + + + Romana + + 96 + .T. + + + + + Romana + + 97 + .T. + + + + + Romana + + 98 + .T. + + + + + Romana + + 99 + .T. + + + + + Romana + + 100 + .T. + + + + + Romana + + 101 + .T. + + + + + Romana + + 102 + .T. + + + + + Romana + + 103 + .T. + + + + + Romana + + 104 + .T. + + + + + Romana + + 105 + .T. + + + + + Romana + + 106 + .T. + + + + + Romana + + 107 + .T. + + + + + Romana + + 108 + .T. + + + + + Romana + + 109 + .T. + + + + + Romana + + 110 + .T. + + + + + Romana + + 111 + .T. + + + + + Romana + + 112 + .T. + + + + + Romana + + 113 + .T. + + + + + Romana + + 114 + .T. + + + + + Romana + + 115 + .T. + + + + + Romana + + 116 + .T. + + + + + Romana + + 117 + .T. + + + + + Romana + + 118 + .T. + + + + + Romana + + 119 + .T. + + + + + Romana + + 120 + .T. + + + + + Romana + + 121 + .T. + + + + + Romana + + 122 + .T. + + + + + Romana + + 123 + .T. + + + + + Romana + + 124 + .T. + + + + + Romana + + 125 + .T. + + + + + Romana + + 126 + .T. + + + + + Romana + + 127 + .T. + + + + + Romana + + 128 + .T. + + + + + Romana + + 129 + .T. + + + + + Romana + + 130 + .T. + + + + + Romana + + 131 + .T. + + + + + Romana + + 132 + .T. + + + + + Romana + + 133 + .T. + + + + + Romana + + 134 + .T. + + + + + Romana + + 135 + .T. + + + + + Romana + + 136 + .T. + + + + + Romana + + 137 + .T. + + + + + Romana + + 138 + .T. + + + + + Romana + + 139 + .T. + + + + + Romana + + 140 + .T. + + + + + Romana + + 141 + .T. + + + + + Romana + + 142 + .T. + + + + + Romana + + 143 + .T. + + + + + Romana + + 144 + .T. + + + + + Romana + + 145 + .T. + + + + + Romana + + 146 + .T. + + + + + Romana + + 147 + .T. + + + + + Romana + + 148 + .T. + + + + + Romana + + 149 + .T. + + + + + Romana + + 150 + .T. + + + + + Romana + + 151 + .T. + + + + + Romana + + 152 + .T. + + + + + Romana + + 153 + .T. + + + + + Romana + + 154 + .T. + + + + + Romana + + 155 + .T. + + + + + Romana + + 156 + .T. + + + + + Romana + + 157 + .T. + + + + + Romana + + 158 + .T. + + + + + Romana + + 159 + .T. + + + + + Romana + + 160 + .T. + + + + + Romana + + 161 + .T. + + + + + Romana + + 162 + .T. + + + + + Romana + + 163 + .T. + + + + + Romana + + 164 + .T. + + + + + Romana + + 165 + .T. + + + + + Romana + + 166 + .T. + + + + + Romana + + 167 + .T. + + + + + Romana + + 168 + .T. + + + + + Romana + + 169 + .T. + + + + + Romana + + 170 + .T. + + + + + Romana + + 171 + .T. + + + + + Romana + + 172 + .T. + + + + + Romana + + 173 + .T. + + + + + Romana + + 174 + .T. + + + + + Romana + + 175 + .T. + + + + + Romana + + 176 + .T. + + + + + Romana + + 177 + .T. + + + + + Romana + + 178 + .T. + + + + + Romana + + 179 + .T. + + + + + Romana + + 180 + .T. + + + + + Romana + + 181 + .T. + + + + + Romana + + 182 + .T. + + + + + Romana + + 183 + .T. + + + + + Romana + + 184 + .T. + + + + + Romana + + 185 + .T. + + + + + Romana + + 186 + .T. + + + + + Romana + + 187 + .T. + + + + + Romana + + 188 + .T. + + + + + Romana + + 189 + .T. + + + + + Romana + + 190 + .T. + + + + + Romana + + 191 + .T. + + + + + Romana + + 192 + .T. + + + + + Romana + + 193 + .T. + + + + + Romana + + 194 + .T. + + + + + Romana + + 195 + .T. + + + + + Romana + + 196 + .T. + + + + + Romana + + 197 + .T. + + + + + Romana + + 198 + .T. + + + + + Romana + + 199 + .T. + + + + + Romana + + 200 + .T. + + + + + Romana + + 201 + .T. + + + + + Romana + + 202 + .T. + + + + + Romana + + 203 + .T. + + + + + Romana + + 204 + .T. + + + + + Romana + + 205 + .T. + + + + + Romana + + 206 + .T. + + + + + Romana + + 207 + .T. + + + + + Romana + + 208 + .T. + + + + + Romana + + 209 + .T. + + + + + Romana + + 210 + .T. + + + + + Romana + + 211 + .T. + + + + + Romana + + 212 + .T. + + + + + Romana + + 213 + .T. + + + + + Romana + + 214 + .T. + + + + + Romana + + 215 + .T. + + + + + Romana + + 216 + .T. + + + + + Romana + + 217 + .T. + + + + + Romana + + 218 + .T. + + + + + Romana + + 219 + .T. + + + + + Romana + + 220 + .T. + + + + + Romana + + 221 + .T. + + + + + Romana + + 222 + .T. + + + + + Romana + + 223 + .T. + + + + + Romana + + 224 + .T. + + + + + Romana + + 225 + .T. + + + + + Romana + + 226 + .T. + + + + + Romana + + 227 + .T. + + + + + Romana + + 228 + .T. + + + + + Romana + + 229 + .T. + + + + + Romana + + 230 + .T. + + + + + Romana + + 231 + .T. + + + + + Romana + + 232 + .T. + + + + + Romana + + 233 + .T. + + + + + Romana + + 234 + .T. + + + + + Romana + + 235 + .T. + + + + + Romana + + 236 + .T. + + + + + Romana + + 237 + .T. + + + + + Romana + + 238 + .T. + + + + + Romana + + 239 + .T. + + + + + Romana + + 240 + .T. + + + + + Romana + + 241 + .T. + + + + + Romana + + 242 + .T. + + + + + Romana + + 243 + .T. + + + + + Romana + + 244 + .T. + + + + + Romana + + 245 + .T. + + + + + Romana + + 246 + .T. + + + + + Romana + + 247 + .T. + + + + + Romana + + 248 + .T. + + + + + Romana + + 249 + .T. + + + + + Romana + + 250 + .T. + + + + + Romana + + 251 + .T. + + + + + Romana + + 252 + .T. + + + + + Romana + + 253 + .T. + + + + + Romana + + 254 + .T. + + + + + Romana + + 255 + .T. + + + + + Romana + + 256 + .T. + + + + + Romana + + 257 + .T. + + + + + Romana + + 258 + .T. + + + + + Romana + + 259 + .T. + + + + + Romana + + 260 + .T. + + + + + Romana + + 261 + .T. + + + + + Romana + + 262 + .T. + + + + + Romana + + 263 + .T. + + + + + Romana + + 264 + .T. + + + + + Romana + + 265 + .T. + + + + + Romana + + 266 + .T. + + + + + Romana + + 267 + .T. + + + + + Romana + + 268 + .T. + + + + + Romana + + 269 + .T. + + + + + Romana + + 270 + .T. + + + + + Romana + + 271 + .T. + + + + + Romana + + 272 + .T. + + + + + Romana + + 273 + .T. + + + + + Romana + + 274 + .T. + + + + + Romana + + 275 + .T. + + + + + Romana + + 276 + .T. + + + + + Romana + + 277 + .T. + + + + + Romana + + 278 + .T. + + + + + Romana + + 279 + .T. + + + + + Romana + + 280 + .T. + + + + + Romana + + 281 + .T. + + + + + Romana + + 282 + .T. + + + + + Romana + + 283 + .T. + + + + + Romana + + 284 + .T. + + + + + Romana + + 285 + .T. + + + + + Romana + + 286 + .T. + + + + + Romana + + 287 + .T. + + + + + Romana + + 288 + .T. + + + + + Romana + + 289 + .T. + + + + + Romana + + 290 + .T. + + + + + Romana + + 291 + .T. + + + + + Romana + + 292 + .T. + + + + + Romana + + 293 + .T. + + + + + Romana + + 294 + .T. + + + + + Romana + + 295 + .T. + + + + + Romana + + 296 + .T. + + + + + Romana + + 297 + .T. + + + + + Romana + + 298 + .T. + + + + + Romana + + 299 + .T. + + + + + Romana + + 300 + .T. + + + + + Romana + + 301 + .T. + + + + + Romana + + 302 + .T. + + + + + Romana + + 303 + .T. + + + + + Romana + + 304 + .T. + + + + + Romana + + 305 + .T. + + + + + Romana + + 306 + .T. + + + + + Romana + + 307 + .T. + + + + + Romana + + 308 + .T. + + + + + Romana + + 309 + .T. + + + + + Romana + + 310 + .T. + + + + + Romana + + 311 + .T. + + + + + Romana + + 312 + .T. + + + + + Romana + + 313 + .T. + + + + + Romana + + 314 + .T. + + + + + Romana + + 315 + .T. + + + + + Romana + + 316 + .T. + + + + + Romana + + 317 + .T. + + + + + Romana + + 318 + .T. + + + + + Romana + + 319 + .T. + + + + + Romana + + 320 + .T. + + + + + Romana + + 321 + .T. + + + + + Romana + + 322 + .T. + + + + + Romana + + 323 + .T. + + + + + Romana + + 324 + .T. + + + + + Romana + + 325 + .T. + + + + + Romana + + 326 + .T. + + + + + Romana + + 327 + .T. + + + + + Romana + + 328 + .T. + + + + + Romana + + 329 + .T. + + + + + Romana + + 330 + .T. + + + + + Romana + + 331 + .T. + + + + + Romana + + 332 + .T. + + + + + Romana + + 333 + .T. + + + + + Romana + + 334 + .T. + + + + + Romana + + 335 + .T. + + + + + Romana + + 336 + .T. + + + + + Romana + + 337 + .T. + + + + + Romana + + 338 + .T. + + + + + Romana + + 339 + .T. + + + + + Romana + + 340 + .T. + + + + + Romana + + 341 + .T. + + + + + Romana + + 342 + .T. + + + + + Romana + + 343 + .T. + + + + + Romana + + 344 + .T. + + + + + Romana + + 345 + .T. + + + + + Romana + + 346 + .T. + + + + + Romana + + 347 + .T. + + + + + Romana + + 348 + .T. + + + + + Romana + + 349 + .T. + + + + + Romana + + 350 + .T. + + + + + Romana + + 351 + .T. + + + + + Romana + + 352 + .T. + + + + + Romana + + 353 + .T. + + + + + Romana + + 354 + .T. + + + + + Romana + + 355 + .T. + + + + + Romana + + 356 + .T. + + + + + Romana + + 357 + .T. + + + + + Romana + + 358 + .T. + + + + + Romana + + 359 + .T. + + + + + Romana + + 360 + .T. + + + + + Romana + + 361 + .T. + + + + + Romana + + 362 + .T. + + + + + Romana + + 363 + .T. + + + + + Romana + + 364 + .T. + + + + + Romana + + 365 + .T. + + + + + Romana + + 366 + .T. + + + + + Romana + + 367 + .T. + + + + + Romana + + 368 + .T. + + + + + Romana + + 369 + .T. + + + + + Romana + + 370 + .T. + + + + + Romana + + 371 + .T. + + + + + Romana + + 372 + .T. + + + + + Romana + + 373 + .T. + + + + + Romana + + 374 + .T. + + + + + Romana + + 375 + .T. + + + + + Romana + + 376 + .T. + + + + + Romana + + 377 + .T. + + + + + Romana + + 378 + .T. + + + + + Romana + + 379 + .T. + + + + + Romana + + 380 + .T. + + + + + Romana + + 381 + .T. + + + + + Romana + + 382 + .T. + + + + + Romana + + 383 + .T. + + + + + Romana + + 384 + .T. + + + + + Romana + + 385 + .T. + + + + + Romana + + 386 + .T. + + + + + Romana + + 387 + .T. + + + + + Romana + + 388 + .T. + + + + + Romana + + 389 + .T. + + + + + English + + 1 + .F. + + + + + English + + 2 + .T. + + + + + English + + 3 + .T. + + + + + English + + 4 + .T. + + + + + English + + 5 + .T. + + + + + English + + 6 + .T. + + + + + English + + 7 + .T. + + + + + English + + 8 + .F. + + + + + English + + 9 + .F. + + + + + English + + 10 + .T. + + + + + English + + 11 + .T. + + + + + English + + 12 + .T. + + + + + English + + 13 + .T. + + + + + English + + 14 + .T. + + + + + English + + 15 + .T. + + + + + English + + 16 + .T. + + + + + English + + 17 + .T. + + + + + English + + 18 + .T. + + + + + English + + 19 + .T. + + + + + English + + 20 + .F. + + + + + English + + 21 + .T. + + + + + English + + 22 + .T. + + + + + English + + 23 + .T. + + + + + English + + 24 + .T. + + + + + English + + 25 + .T. + + + + + English + + 26 + .T. + + + + + English + + 27 + .T. + + + + + English + + 28 + .T. + + + + + English + + 29 + .T. + + + + + English + + 30 + .T. + + + + + English + + 31 + .T. + + + + + English + + 32 + .T. + + + + + English + + 33 + .T. + + + + + English + + 34 + .T. + + + + + English + + 35 + .T. + + + + + English + + 36 + .T. + + + + + English + + 37 + .T. + + + + + English + + 38 + .T. + + + + + English + + 39 + .T. + + + + + English + + 40 + .T. + + + + + English + + 41 + .F. + + + + + English + + 42 + .T. + + + + + English + + 43 + .T. + + + + + English + + 44 + .T. + + + + + English + + 45 + .T. + + + + + English + + 46 + .F. + + + + + English + + 47 + .T. + + + + + English + + 48 + .T. + + + + + English + + 49 + .T. + + + + + English + + 50 + .T. + + + + + English + + 51 + .T. + + + + + English + + 52 + .T. + + + + + English + + 53 + .T. + + + + + English + + 54 + .T. + + + + + English + + 55 + .T. + + + + + English + + 56 + .T. + + + + + English + + 57 + .T. + + + + + English + + 58 + .T. + + + + + English + + 59 + .T. + + + + + English + + 60 + .T. + + + + + English + + 61 + .T. + + + + + English + + 62 + .T. + + + + + English + + 63 + .T. + + + + + English + + 64 + .T. + + + + + English + + 65 + .T. + + + + + English + + 66 + .T. + + + + + English + + 67 + .T. + + + + + English + + 68 + .T. + + + + + English + + 69 + .T. + + + + + English + + 70 + .T. + + + + + English + + 71 + .T. + + + + + English + + 72 + .T. + + + + + English + + 73 + .T. + + + + + English + + 74 + .T. + + + + + English + + 75 + .T. + + + + + English + + 76 + .T. + + + + + English + + 77 + .T. + + + + + English + + 78 + .T. + + + + + English + + 79 + .T. + + + + + English + + 80 + .T. + + + + + English + + 81 + .T. + + + + + English + + 82 + .T. + + + + + English + + 83 + .T. + + + + + English + + 84 + .T. + + + + + English + + 85 + .T. + + + + + English + + 86 + .T. + + + + + English + + 87 + .T. + + + + + English + + 88 + .T. + + + + + English + + 89 + .T. + + + + + English + + 90 + .T. + + + + + English + + 91 + .T. + + + + + English + + 92 + .T. + + + + + English + + 93 + .T. + + + + + English + + 94 + .T. + + + + + English + + 95 + .T. + + + + + English + + 96 + .T. + + + + + English + + 97 + .T. + + + + + English + + 98 + .T. + + + + + English + + 99 + .T. + + + + + English + + 100 + .T. + + + + + English + + 101 + .T. + + + + + English + + 102 + .T. + + + + + English + + 103 + .T. + + + + + English + + 104 + .T. + + + + + English + + 105 + .T. + + + + + English + + 106 + .T. + + + + + English + + 107 + .T. + + + + + English + + 108 + .T. + + + + + English + + 109 + .T. + + + + + English + + 110 + .F. + + + + + English + + 111 + .T. + + + + + English + + 112 + .F. + + + + + English + + 113 + .T. + + + + + English + + 114 + .F. + + + + + English + + 115 + .F. + + + + + English + + 116 + .T. + + + + + English + + 117 + .T. + + + + + English + + 118 + .T. + + + + + English + + 119 + .F. + + + + + English + + 120 + .T. + + + + + English + + 121 + .T. + + + + + English + + 122 + .T. + + + + + English + + 123 + .T. + + + + + English + + 124 + .T. + + + + + English + + 125 + .F. + + + + + English + + 126 + .T. + + + + + English + + 127 + .T. + + + + + English + + 128 + .F. + + + + + English + + 129 + .F. + + + + + English + + 130 + .F. + + + + + English + + 131 + .F. + + + + + English + + 132 + .T. + + + + + English + + 133 + .T. + + + + + English + + 134 + .F. + + + + + English + + 135 + .T. + + + + + English + + 136 + .T. + + + + + English + + 137 + .T. + + + + + English + + 138 + .F. + + + + + English + + 139 + .F. + + + + + English + + 140 + .T. + + + + + English + + 141 + .T. + + + + + English + + 142 + .T. + + + + + English + + 143 + .T. + + + + + English + + 144 + .T. + + + + + English + + 145 + .T. + + + + + English + + 146 + .T. + + + + + English + + 147 + .T. + + + + + English + + 148 + .T. + + + + + English + + 149 + .T. + + + + + English + + 150 + .T. + + + + + English + + 151 + .T. + + + + + English + + 152 + .T. + + + + + English + + 153 + .T. + + + + + English + + 154 + .T. + + + + + English + + 155 + .T. + + + + + English + + 156 + .T. + + + + + English + + 157 + .T. + + + + + English + + 158 + .T. + + + + + English + + 159 + .T. + + + + + English + + 160 + .F. + + + + + English + + 161 + .T. + + + + + English + + 162 + .T. + + + + + English + + 163 + .F. + + + + + English + + 164 + .T. + + + + + English + + 165 + .F. + + + + + English + + 166 + .F. + + + + + English + + 167 + .F. + + + + + English + + 168 + .F. + + + + + English + + 169 + .T. + + + + + English + + 170 + .T. + + + + + English + + 171 + .F. + + + + + English + + 172 + .F. + + + + + English + + 173 + .T. + + + + + English + + 174 + .T. + + + + + English + + 175 + .T. + + + + + English + + 176 + .T. + + + + + English + + 177 + .T. + + + + + English + + 178 + .T. + + + + + English + + 179 + .T. + + + + + English + + 180 + .T. + + + + + English + + 181 + .F. + + + + + English + + 182 + .F. + + + + + English + + 183 + .T. + + + + + English + + 184 + .T. + + + + + English + + 185 + .T. + + + + + English + + 186 + .T. + + + + + English + + 187 + .T. + + + + + English + + 188 + .T. + + + + + English + + 189 + .T. + + + + + English + + 190 + .T. + + + + + English + + 191 + .T. + + + + + English + + 192 + .T. + + + + + English + + 193 + .T. + + + + + English + + 194 + .T. + + + + + English + + 195 + .T. + + + + + English + + 196 + .F. + + + + + English + + 197 + .F. + + + + + English + + 198 + .T. + + + + + English + + 199 + .T. + + + + + English + + 200 + .T. + + + + + English + + 201 + .T. + + + + + English + + 202 + .T. + + + + + English + + 203 + .T. + + + + + English + + 204 + .T. + + + + + English + + 205 + .T. + + + + + English + + 206 + .T. + + + + + English + + 207 + .T. + + + + + English + + 208 + .T. + + + + + English + + 209 + .T. + + + + + English + + 210 + .T. + + + + + English + + 211 + .T. + + + + + English + + 212 + .T. + + + + + English + + 213 + .F. + + + + + English + + 214 + .T. + + + + + English + + 215 + .T. + + + + + English + + 216 + .F. + + + + + English + + 217 + .T. + + + + + English + + 218 + .T. + + + + + English + + 219 + .T. + + + + + English + + 220 + .T. + + + + + English + + 221 + .T. + + + + + English + + 222 + .T. + + + + + English + + 223 + .T. + + + + + English + + 224 + .T. + + + + + English + + 225 + .T. + + + + + English + + 226 + .T. + + + + + English + + 227 + .T. + + + + + English + + 228 + .T. + + + + + English + + 229 + .T. + + + + + English + + 230 + .T. + + + + + English + + 231 + .T. + + + + + English + + 232 + .T. + + + + + English + + 233 + .T. + + + + + English + + 234 + .T. + + + + + English + + 235 + .T. + + + + + English + + 236 + .T. + + + + + English + + 237 + .F. + + + + + English + + 238 + .F. + + + + + English + + 239 + .F. + + + + + English + + 240 + .F. + + + + + English + + 241 + .F. + + + + + English + + 242 + .F. + + + + + English + + 243 + .T. + + + + + English + + 244 + .F. + + + + + English + + 245 + .F. + + + + + English + + 246 + .F. + + + + + English + + 247 + .T. + + + + + English + + 248 + .T. + + + + + English + + 249 + .F. + + + + + English + + 250 + .T. + + + + + English + + 251 + .T. + + + + + English + + 252 + .T. + + + + + English + + 253 + .T. + + + + + English + + 254 + .T. + + + + + English + + 255 + .T. + + + + + English + + 256 + .F. + + + + + English + + 257 + .T. + + + + + English + + 258 + .T. + + + + + English + + 259 + .T. + + + + + English + + 260 + .T. + + + + + English + + 261 + .T. + + + + + English + + 262 + .T. + + + + + English + + 263 + .T. + + + + + English + + 264 + .T. + + + + + English + + 265 + .T. + + + + + English + + 266 + .T. + + + + + English + + 267 + .T. + + + + + English + + 268 + .T. + + + + + English + + 269 + .T. + + + + + English + + 270 + .F. + + + + + English + + 271 + .F. + + + + + English + + 272 + .F. + + + + + English + + 273 + .T. + + + + + English + + 274 + .T. + + + + + English + + 275 + .F. + + + + + English + + 276 + .T. + + + + + English + + 277 + .T. + + + + + English + + 278 + .T. + + + + + English + + 279 + .T. + + + + + English + + 280 + .T. + + + + + English + + 281 + .T. + + + + + English + + 282 + .F. + + + + + English + + 283 + .T. + + + + + English + + 284 + .T. + + + + + English + + 285 + .T. + + + + + English + + 286 + .T. + + + + + English + + 287 + .T. + + + + + English + + 288 + .T. + + + + + English + + 289 + .F. + + + + + English + + 290 + .T. + + + + + English + + 291 + .T. + + + + + English + + 292 + .T. + + + + + English + + 293 + .F. + + + + + English + + 294 + .T. + + + + + English + + 295 + .F. + + + + + English + + 296 + .F. + + + + + English + + 297 + .T. + + + + + English + + 298 + .T. + + + + + English + + 299 + .T. + + + + + English + + 300 + .T. + + + + + English + + 301 + .T. + + + + + English + + 302 + .T. + + + + + English + + 303 + .T. + + + + + English + + 304 + .T. + + + + + English + + 305 + .T. + + + + + English + + 306 + .T. + + + + + English + + 307 + .T. + + + + + English + + 308 + .T. + + + + + English + + 309 + .T. + + + + + English + + 310 + .T. + + + + + English + + 311 + .T. + + + + + English + + 312 + .T. + + + + + English + + 313 + .T. + + + + + English + + 314 + .T. + + + + + English + + 315 + .T. + + + + + English + + 316 + .T. + + + + + English + + 317 + .T. + + + + + English + + 318 + .T. + + + + + English + + 319 + .T. + + + + + English + + 320 + .T. + + + + + English + + 321 + .T. + + + + + English + + 322 + .T. + + + + + English + + 323 + .T. + + + + + English + + 324 + .T. + + + + + English + + 325 + .T. + + + + + English + + 326 + .T. + + + + + English + + 327 + .T. + + + + + English + + 328 + .T. + + + + + English + + 329 + .T. + + + + + English + + 330 + .T. + + + + + English + + 331 + .T. + + + + + English + + 332 + .T. + + + + + English + + 333 + .T. + + + + + English + + 334 + .T. + + + + + English + + 335 + .T. + + + + + English + + 336 + .T. + + + + + English + + 337 + .T. + + + + + English + + 338 + .F. + + + + + English + + 339 + .T. + + + + + English + + 340 + .T. + + + + + English + + 341 + .T. + + + + + English + + 342 + .T. + + + + + English + + 343 + .T. + + + + + English + + 344 + .T. + + + + + English + + 345 + .T. + + + + + English + + 346 + .T. + + + + + English + + 347 + .T. + + + + + English + + 348 + .T. + + + + + English + + 349 + .T. + + + + + English + + 350 + .T. + + + + + English + + 351 + .T. + + + + + English + + 352 + .F. + + + + + English + + 353 + .T. + + + + + English + + 354 + .T. + + + + + English + + 355 + .T. + + + + + English + + 356 + .T. + + + + + English + + 357 + .T. + + + + + English + + 358 + .T. + + + + + English + + 359 + .T. + + + + + English + + 360 + .T. + + + + + English + + 361 + .T. + + + + + English + + 362 + .T. + + + + + English + + 363 + .T. + + + + + English + + 364 + .F. + + + + + English + + 365 + .T. + + + + + English + + 366 + .T. + + + + + English + + 367 + .T. + + + + + English + + 368 + .F. + + + + + English + + 369 + .T. + + + + + English + + 370 + .T. + + + + + English + + 371 + .T. + + + + + English + + 372 + .T. + + + + + English + + 373 + .T. + + + + + English + + 374 + .T. + + + + + English + + 375 + .T. + + + + + English + + 376 + .T. + + + + + English + + 377 + .T. + + + + + English + + 378 + .T. + + + + + English + + 379 + .F. + + + + + English + + 380 + .F. + + + + + English + + 381 + .T. + + + + + English + + 382 + .T. + + + + + English + + 383 + .T. + + + + + English + + 384 + .T. + + + + + English + + 385 + .T. + + + + + English + + 386 + .T. + + + + + English + + 387 + .T. + + + + + English + + 388 + .T. + + + + + English + + 389 + .T. + + + + + +
+ diff --git a/Locale/locale.dc2 b/Locale/locale.dc2 new file mode 100644 index 0000000..bd3ee7b --- /dev/null +++ b/Locale/locale.dc2 @@ -0,0 +1,513 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="locale.dbc" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* + + + LOCALE + + 10 + .F. + + + + + + + LOCALE + + locale.dbf + + + + + + + + + phrase + language + notes + id + translated + + + + + id + + + + + + + + + + + + language + + + + + + + + + + + + notes + + + + + + + + + + + + phrase + + + + + + + + + + + + translated + + + + + + + + + + + + + + + id + + .F. + + + language + + .F. + + + +
+ + + LOCALE_LANG + + locale_lang.dbf + + + + + + + + + id + siteid + name + abbr + cp + rule1 + rule2 + exclude + + + + + abbr + + + + + + + + + + + + cp + + + + + + + + + + + + exclude + + + + + + + + + + + + id + + + + + + + + + + + + name + + + + + + + + + + + + rule1 + + + + + + + + + + + + rule2 + + + + + + + + + + + + siteid + + + + + + + + + + + + + + + id + + .T. + + + name + + .F. + + + site + + .F. + + + siteid + + .F. + + + +
+ + + LOCALE_SOURCE + + locale_source.dbf + + + + + + + + + id + name + url + page + markers + duration + hits + exclude + timeout + attempt + notes + + + + + attempt + + + + + + + + + + + + duration + + + + + + + + + + + + exclude + + + + + + + + + + + + hits + + + + + + + + + + + + id + + + + + + + + + + + + markers + + + + + + + + + + + + name + + + + + + + + + + + + notes + + + + + + + + + + + + page + + + + + + + + + + + + timeout + + + + + + + + + + + + url + + + + + + + + + + + + + + + id + + .T. + + + +
+ + + LOCALE_XREF + + locale_xref.dbf + + + + + + + + + src_langid + dst_langid + siteid + + + + + dst_langid + + + + + + + + + + + + siteid + + + + + + + + + + + + src_langid + + + + + + + + + + + + + + + dst_langid + + .F. + + + siteid + + .F. + + + src_langid + + .F. + + + +
+ + + + + + + \ No newline at end of file diff --git a/Locale/locale_back.db2 b/Locale/locale_back.db2 new file mode 100644 index 0000000..25171b9 --- /dev/null +++ b/Locale/locale_back.db2 @@ -0,0 +1,601 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="locale_back.dbf" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* + + + + + 1252 + + + 0x00000030 + Visual FoxPro + + + + PHRASE + M + 4 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + LANGUAGE + C + 30 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + NOTES + M + 4 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + ID + I + 4 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + + + + + + + + ID + REGULAR + ID + + ASCENDING + MACHINE + + + LANGUAGE + REGULAR + LANGUAGE + + ASCENDING + MACHINE + + + + + + + + + + + + English + + 1 + + + + + Spanish + + 1 + + + + + English + + 2 + + + + + Spanish + + 2 + + + + + English + + 3 + + + + + Spanish + + 3 + + + + + English + + 4 + + + + + Spanish + + 4 + + + + + English + + 5 + + + + + Spanish + + 5 + + + + + English + + 6 + + + + + Spanish + + 6 + + + + + English + + 7 + + + + + Spanish + + 7 + + + + + English + + 8 + + + + + Spanish + + 8 + + + + + English + + 9 + + + + + Spanish + + 9 + + + + + English + + 10 + + + + + Spanish + + 10 + + + + + English + + 11 + + + + + Spanish + + 11 + + + + + English + + 12 + + + + + Spanish + + 12 + + + + + English + + 13 + + + + + Spanish + + 13 + + + + + English + + 14 + + + + + Spanish + + 14 + + + + + English + + 15 + + + + + Spanish + + 15 + + + + + English + + 16 + + + + + Spanish + + 16 + + + + + English + + 17 + + + + + Spanish + + 17 + + + + + English + + 18 + + + + + Spanish + + 18 + + + + + English + + 19 + + + + + Spanish + + 19 + + + + + English + + 20 + + + + + Spanish + + 20 + + + + + English + + 21 + + + + + Spanish + + 21 + + + + + English + + 22 + + + + + Spanish + + 22 + + + + + English + + 23 + + + + + Spanish + + 23 + + + + + English + + 24 + + + + + Spanish + + 24 + + + + + English + + 25 + + + + + Spanish + + 25 + + + + + English + + 26 + + + + + Spanish + + 26 + + + + + English + + 27 + + + + + Spanish + + 27 + + + + + English + + 28 + + + + + Spanish + + 28 + + + + + English + + 29 + + + + + Spanish + + 29 + + + + + English + + 30 + + + + + Spanish + + 30 + + + + + English + + 31 + + + + + Spanish + + 31 + + + + + English + + 32 + + + + + Spanish + + 32 + + + + + Spanish + + 2 + + + + + English + + 33 + + + + + Spanish + + 33 + + + + + +
+ diff --git a/Locale/locale_lang.db2 b/Locale/locale_lang.db2 new file mode 100644 index 0000000..c4f7591 --- /dev/null +++ b/Locale/locale_lang.db2 @@ -0,0 +1,1328 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="locale_lang.dbf" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* + + + + + 1252 + + locale.dbc + 0x00000030 + Visual FoxPro + + + + ID + I + 4 + 0 + .F. + .F. + + + + + + LOCALE_LANG + + + + + 0 + 0 + + + SITEID + I + 4 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + NAME + C + 50 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + ABBR + C + 50 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + CP + I + 4 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + RULE1 + M + 4 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + RULE2 + M + 4 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + EXCLUDE + L + 1 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + + + + + + + + ID + CANDIDATE + ID + + ASCENDING + MACHINE + + + NAME + REGULAR + NAME + + ASCENDING + MACHINE + + + SITE + REGULAR + ID + + ASCENDING + MACHINE + + + SITEID + REGULAR + SITEID + + ASCENDING + MACHINE + + + + + + + + + + + 1 + 1 + English + eng + 0 + + + .F. + + + + 2 + 1 + Portuguese + pob + 0 + + + .T. + + + + 4 + 1 + Croatian + cro + 1250 + + + .T. + + + + 5 + 1 + Czech + che + 1250 + + + .T. + + + + 6 + 1 + Danish + dan + 0 + + + .T. + + + + 7 + 1 + Dutch + dut + 0 + + + .T. + + + + 8 + 1 + Spanish + spa + 0 + + + .T. + + + + 9 + 1 + Finnish + fin + 0 + + + .T. + + + + 10 + 1 + French + fre + 0 + + + .T. + + + + 11 + 1 + German + ger + 0 + + + .T. + + + + 13 + 1 + Hungarian + hun + 1250 + + + .T. + + + + 15 + 1 + Italian + ita + 0 + + + .T. + + + + 17 + 1 + Latin American Spanish + spl + 0 + + + .T. + + + + 18 + 1 + Norwegian + nor + 0 + + + .T. + + + + 19 + 1 + Filipino + tag + 0 + + + .T. + + + + 20 + 1 + Polish + pol + 0 + + + .T. + + + + 21 + 1 + Portuguese + poe + 0 + + + .T. + + + + 22 + 1 + Romana + rom + 1250 + + + .F. + + + + 24 + 1 + Serbian + sel + 1250 + + + .T. + + + + 25 + 1 + Slovenian + slo + 1250 + + + .T. + + + + 26 + 1 + Swedish + swe + 0 + + + .T. + + + + 27 + 1 + Welsh + wel + 0 + + + .T. + + + + 28 + 1 + Turkish + tur + 1254 + + + .T. + + + + 29 + 1 + Latin + ltt + 0 + + + .T. + + + + 30 + 2 + English + en + 0 + + + .F. + + + + 31 + 2 + Spanish + es + 0 + + + .T. + + + + 32 + 2 + French + fr + 0 + + + .T. + + + + 33 + 2 + Italian + it + 0 + + + .T. + + + + 34 + 2 + Portuguese + pt + 0 + + + .T. + + + + 35 + 2 + German + de + 0 + + + .T. + + + + 36 + 3 + English + en + 0 + + + .F. + + + + 39 + 3 + Dutch + nl + 0 + + + .T. + + + + 40 + 3 + French + fr + 0 + + + .T. + + + + 41 + 3 + German + de + 0 + + + .T. + + + + 43 + 3 + Italian + it + 0 + + + .T. + + + + 46 + 3 + Portuguese + pt + 0 + + + .T. + + + + 48 + 3 + Spanish + es + 0 + + + .T. + + + + 49 + 4 + English + en + 0 + + + .F. + + + + 51 + 4 + French + fr + 0 + + + .T. + + + + 52 + 4 + German + de + 0 + + + .T. + + + + 53 + 4 + Italian + it + 0 + + + .T. + + + + 56 + 4 + Portuguese + pt + 0 + + + .T. + + + + 57 + 4 + Spanish + es + 0 + + + .T. + + + + 59 + 5 + English + English + 0 + + + .F. + + + + 60 + 5 + Spanish + Spanish + 0 + + + .T. + + + + 61 + 5 + French + French + 0 + + + .T. + + + + 62 + 5 + German + German + 0 + + + .T. + + + + 63 + 5 + Italian + Italian + 0 + + + .T. + + + + 64 + 5 + Dutch + Dutch + 0 + + + .T. + + + + 65 + 5 + Portuguese + Portuguese + 0 + + + .T. + + + + 66 + 5 + Norwegian + Norwegian + 0 + + + .T. + + + + 69 + 6 + English + en + 0 + + + .F. + + + + 72 + 6 + Dutch + nl + 0 + + + .T. + + + + 73 + 6 + French + fr + 0 + + + .T. + + + + 74 + 6 + German + ge + 0 + + + .T. + + + + 76 + 6 + Italian + it + 0 + + + .T. + + + + 79 + 6 + Portuguese + pt + 0 + + + .T. + + + + 81 + 6 + Spanish + es + 0 + + + .T. + + + + 82 + 7 + English + en + 0 + + + .F. + + + + 83 + 7 + French + fr + 0 + + + .T. + + + + 84 + 7 + German + de + 0 + + + .T. + + + + 85 + 7 + Spanish + es + 0 + + + .T. + + + + 86 + 7 + Portuguese + pt + 0 + + + .T. + + + + 87 + 7 + Italian + it + 0 + + + .T. + + + + 88 + 7 + Dutch + nl + 0 + + + .T. + + + + 90 + 8 + English + en + 0 + + + .F. + + + + 91 + 8 + French + fr + 0 + + + .T. + + + + 92 + 8 + German + de + 0 + + + .T. + + + + 93 + 8 + Spanish + es + 0 + + + .T. + + + + 94 + 8 + Portuguese + pt + 0 + + + .T. + + + + 95 + 8 + Italian + it + 0 + + + .T. + + + + 96 + 8 + Dutch + nl + 0 + + + .T. + + + + 98 + 9 + English + en + 0 + + + .F. + + + + 99 + 9 + Dutch + nl + 0 + + + .T. + + + + 105 + 9 + Spanish + es + 0 + + + .T. + + + + 106 + 9 + French + fr + 0 + + + .T. + + + + 107 + 9 + German + de + 0 + + + .T. + + + + 108 + 9 + Portuguese + pt + 0 + + + .T. + + + + 109 + 9 + Italian + it + 0 + + + .T. + + + + 110 + 10 + English + en + 0 + + + .F. + + + + 111 + 10 + Dutch + nl + 0 + + + .T. + + + + 117 + 10 + Spanish + es + 0 + + + .T. + + + + 118 + 10 + French + fr + 0 + + + .T. + + + + 119 + 10 + German + de + 0 + + + .T. + + + + 120 + 10 + Portuguese + pt + 0 + + + .T. + + + + 121 + 10 + Italian + it + 0 + + + .T. + + + + 122 + 11 + English + en + 0 + + + .F. + + + + 123 + 11 + Dutch + nl + 0 + + + .T. + + + + 129 + 11 + Spanish + es + 0 + + + .T. + + + + 130 + 11 + French + fr + 0 + + + .T. + + + + 131 + 11 + German + de + 0 + + + .T. + + + + 132 + 11 + Portuguese + pt + 0 + + + .T. + + + + 133 + 11 + Italian + it + 0 + + + .T. + + + + 134 + 12 + English + en + 0 + + + .F. + + + + 135 + 12 + Dutch + nl + 0 + + + .T. + + + + 141 + 12 + Spanish + es + 0 + + + .T. + + + + 142 + 12 + French + fr + 0 + + + .T. + + + + 143 + 12 + German + de + 0 + + + .T. + + + + 144 + 12 + Portuguese + pt + 0 + + + .T. + + + + 145 + 12 + Italian + it + 0 + + + .T. + + + + + +
+ diff --git a/Locale/locale_source.db2 b/Locale/locale_source.db2 new file mode 100644 index 0000000..be02e47 --- /dev/null +++ b/Locale/locale_source.db2 @@ -0,0 +1,550 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="locale_source.dbf" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* + + + + + 1252 + + locale.dbc + 0x00000030 + Visual FoxPro + + + + ID + I + 4 + 0 + .F. + .F. + + + + + + LOCALE_SOURCE + + + + + 0 + 0 + + + NAME + C + 30 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + URL + C + 100 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + PAGE + M + 4 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + MARKERS + M + 4 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + DURATION + N + 16 + 3 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + HITS + B + 8 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + EXCLUDE + I + 4 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + TIMEOUT + N + 3 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + ATTEMPT + N + 3 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + NOTES + C + 250 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + + + + + + + + ID + CANDIDATE + ID + + ASCENDING + MACHINE + + + + + + + + + + + 1 + InterTran + http://www.tranexp.com:2000/InterTran + + + + + + + + + +]]> + About us< +name=translation +> +]]> + 0.001 + 1 + 1 + 20 + 1 + Site has become a pay site. + + + + 2 + Google + http://www.google.com/language_tools + + + + + + + + + + +]]> + +name=q +> + + 92.875 + 4 + 0 + 20 + 1 + + + + + 4 + AltaVista + http://babelfish.altavista.com/ + + + + + + + + + +]]> + Help< +
+<]]> + 61.846 + 1 + 0 + 20 + 1 + + + + + 5 + FreeTranslation + http://www.freetranslation.com/ + + + + + + + + + +]]> + +]]> + 196.013 + 109 + 0 + 20 + 1 + + + + + 6 + Dictionary + http://dictionary.reference.com/translate/text.html + + + + + + + +]]> + +In @dlang@: +

+

]]> + 574.747 + 683 + 0 + 20 + 1 + + + + + 7 + Wanadoo + http://outils.wanadoo.fr/wanadoo/ + + + + + + + + +]]> + + +class=littleG width=630> +< +]]> + 90.569 + 1 + 0 + 20 + 1 + + + + + 8 + Voila + http://c.voila.fr/ + + + + + + + + +]]> + + +
 +]]> + 77.094 + 1 + 0 + 20 + 1 + + + + + 9 + Terra + http://terra.onlinelanguagelearning.com/en/ + + + + + + + + + + +]]> + +name="translation" +> +<]]> + 57.913 + 3 + 0 + 20 + 1 + + + + + 10 + SysTran + http://www.systransoft.com/ + + + + + + + + + + +]]> + +name="translation" +> +<]]> + 71.539 + 5 + 0 + 20 + 1 + + + + + 11 + Free + http://www.systranbox.com/systran/box + + + + + + + + + +]]> + +color="#61718A" +> +<]]> + 74.060 + 2 + 0 + 20 + 1 + + + + + 12 + Lycos + http://translation.lycos.com/lycos + + + + + + + + +]]> + +name="urltranslated" +> +<]]> + 76.416 + 2 + 0 + 20 + 1 + + + + + + +
+
+ diff --git a/Locale/locale_xref.db2 b/Locale/locale_xref.db2 new file mode 100644 index 0000000..d21797b --- /dev/null +++ b/Locale/locale_xref.db2 @@ -0,0 +1,120 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="locale_xref.dbf" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* + + + + + 1252 + + locale.dbc + 0x00000030 + Visual FoxPro + + + + SRC_LANGID + I + 4 + 0 + .F. + .F. + + + + + + LOCALE_XREF + + + + + 0 + 0 + + + DST_LANGID + I + 4 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + SITEID + I + 4 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + + + + + + + + DST_LANGID + REGULAR + DST_LANGID + + ASCENDING + MACHINE + + + SITEID + REGULAR + SITEID + + ASCENDING + MACHINE + + + SRC_LANGID + REGULAR + SRC_LANGID + + ASCENDING + MACHINE + + + + + + + + + + + + +
+ diff --git a/Meniuri/achi1.mn2 b/Meniuri/achi1.mn2 new file mode 100644 index 0000000..7ce83f4 --- /dev/null +++ b/Meniuri/achi1.mn2 @@ -0,0 +1,54 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="achi1.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "\ + +* +PROCEDURE BAR_1_OF_Shortcut_FB2P + *osetviz.tbrprim.butonachi.click + DO lans_balanta_parteneri WITH "542",.T. IN OPARTENERI.prg +ENDPROC && BAR_1_OF_Shortcut_FB2P + +PROCEDURE BAR_1_OF_Inregistra_FB2P + *!* *PARAMETERS tcFis1,tcFis2,tnCont,tlCuTest,tlVisible,tcTitlu,TcColDeb,TcColCred + *!* pcTotctva='Incasat' + *!* pcAchitat='Justificat' + *!* pcSumaTotal='Suma incasata' + *!* pcSumaAchi='Suma justificata' + *!* DO viz_facturi WITH 'achit542','achilun',542,.t.,.t.,'Situatie Lunara 542','debit','credit' + DO lans_ireg_parteneri WITH .T.,'542',.T. +ENDPROC && BAR_1_OF_Inregistra_FB2P + +PROCEDURE BAR_2_OF_Inregistra_FB2P + *PARAMETERS tcFis1,tcFis2,tnCont,tlCuTest,tlVisible,tcTitlu,TcColDeb,TcColCred + *!* pcTotctva='Incasat' + *!* pcAchitat='Justificat' + *!* pcSumaTotal='Suma incasata' + *!* pcSumaAchi='Suma justificata' + *DO viz_facturi WITH 'achit542','achilun',542,.f.,.t.,'Situatie Lunara 542','debit','credit' + DO lans_ireg_parteneri WITH .F.,'542',.T. +ENDPROC && BAR_2_OF_Inregistra_FB2P + +* diff --git a/Meniuri/actionari.mn2 b/Meniuri/actionari.mn2 new file mode 100644 index 0000000..3548dc1 --- /dev/null +++ b/Meniuri/actionari.mn2 @@ -0,0 +1,18 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="actionari.mnx" CPID="1250" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "Balanta actionari (455x)" +ON SELECTION BAR 1 OF Shortcut DO lans_balanta_parteneri WITH "4551,4558",.F. IN OPARTENERI.prg + +DEFINE BAR 2 OF Shortcut PROMPT "Inregistrari actionari (455x)" +ON SELECTION BAR 2 OF Shortcut DO lans_ireg_parteneri WITH .F.,'4551,4558',.F. +ACTIVATE POPUP Shortcut + +* \ No newline at end of file diff --git a/Meniuri/balpartc.mn2 b/Meniuri/balpartc.mn2 new file mode 100644 index 0000000..a0edcef --- /dev/null +++ b/Meniuri/balpartc.mn2 @@ -0,0 +1,36 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="balpartc.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "Predefinita" +ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P + +DEFINE BAR 2 OF Shortcut PROMPT "Furnizori + Furnizori debitori (401 + 409)" +ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P + +DEFINE BAR 3 OF Shortcut PROMPT "Clienti + clienti creditori (4111 + 419)" +ON SELECTION BAR 3 OF Shortcut DO BAR_3_OF_Shortcut_FB2P +ACTIVATE POPUP Shortcut + +* + +* +PROCEDURE BAR_1_OF_Shortcut_FB2P + DO lans_balanta_cumulata IN OPARTENERI.prg +ENDPROC && BAR_1_OF_Shortcut_FB2P + +PROCEDURE BAR_2_OF_Shortcut_FB2P + DO lans_balanta_cumulata_401_409 IN oparteneri.prg +ENDPROC && BAR_2_OF_Shortcut_FB2P + +PROCEDURE BAR_3_OF_Shortcut_FB2P + DO lans_balanta_cumulata_4111_419 IN oparteneri.prg +ENDPROC && BAR_3_OF_Shortcut_FB2P + +* diff --git a/Meniuri/banca1.mn2 b/Meniuri/banca1.mn2 new file mode 100644 index 0000000..24d1bb3 --- /dev/null +++ b/Meniuri/banca1.mn2 @@ -0,0 +1,209 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="banca1.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Bancaincas SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR "83010" OF Bancaincas PROMPT "Depunere numerar in banca 5311" ; + MESSAGE '581 :5311;5121:581' +ON SELECTION BAR 83010 OF Bancaincas lans(10364) + +DEFINE BAR 2 OF Bancaincas PROMPT "Decontari intre subunitati 482" ; + MESSAGE '5121:482' +ON SELECTION BAR 2 OF Bancaincas lans(10366) + +DEFINE BAR 3 OF Bancaincas PROMPT "Incasari creditori / decontari intre subunitati 462/482" ; + MESSAGE '5121:462; 462 :482' +ON SELECTION BAR 3 OF Bancaincas lans(50501) + +DEFINE BAR 4 OF Bancaincas PROMPT "\-" +ON BAR 4 OF Bancaincas ACTIVATE POPUP _0h30u83jo + + *---------------------------------- + DEFINE POPUP _0h30u83jo SHORTCUT RELATIVE +DEFINE BAR "83050" OF Bancaincas PROMPT "Clienti 4111" ; + MESSAGE '5121:4111' +ON BAR 83050 OF Bancaincas ACTIVATE POPUP Clienti411 + + *---------------------------------- + DEFINE POPUP Clienti411 SHORTCUT RELATIVE + DEFINE BAR 1 OF Clienti411 PROMPT "Fara listare" ; + MESSAGE '5121:4111' + ON SELECTION BAR 1 OF Clienti411 lans(10367) + + DEFINE BAR 2 OF Clienti411 PROMPT "Cu bon fiscal - CARD" ; + MESSAGE '5125:4111 - listare bon fiscal la casa de marcat incasare prin card bancar' + ON SELECTION BAR 2 OF Clienti411 DO casademarcat_roacont WITH 10617 IN oproceduri_casademarcat.prg + +DEFINE BAR 6 OF Bancaincas PROMPT "Clienti 4111 in valuta" ; + MESSAGE '581 - 5121; 5121 - 581; 5121 - 5121; 5121 - 4111' +ON SELECTION BAR 6 OF Bancaincas lans(10602) + +DEFINE BAR "83060" OF Bancaincas PROMPT "Clienti incerti 4118" ; + MESSAGE '5121: 4118' +ON SELECTION BAR 83060 OF Bancaincas lans(10368) + +DEFINE BAR "83070" OF Bancaincas PROMPT "Clienti creditori 419" ; + MESSAGE '5121:419 ;5121:4111 ; 4111:4427' +ON SELECTION BAR 83070 OF Bancaincas lans(10369) + +DEFINE BAR 9 OF Bancaincas PROMPT "Incasarea la scadenta a efectelor depuse anterior la banca 5113" ; + MESSAGE '5121:5113' +ON SELECTION BAR 9 OF Bancaincas lans(10629) + +DEFINE BAR 10 OF Bancaincas PROMPT "Incasarea efectelor la banca la scadenta 413" ; + MESSAGE '5121:413 ' +ON SELECTION BAR 10 OF Bancaincas lans(10307) + +DEFINE BAR 11 OF Bancaincas PROMPT "\-" +ON BAR 11 OF Bancaincas ACTIVATE POPUP _0ca0ycxcn + + *---------------------------------- + DEFINE POPUP _0ca0ycxcn SHORTCUT RELATIVE +DEFINE BAR 12 OF Bancaincas PROMPT "Restituit avans 542" ; + MESSAGE '5121:542' +ON SELECTION BAR 12 OF Bancaincas lans(10566) + +DEFINE BAR 13 OF Bancaincas PROMPT "\-" +ON BAR 13 OF Bancaincas ACTIVATE POPUP _2070wzyg6 + + *---------------------------------- + DEFINE POPUP _2070wzyg6 SHORTCUT RELATIVE +DEFINE BAR "83090" OF Bancaincas PROMPT "TVA de recuperat 4424" ; + MESSAGE '5121:4424' +ON SELECTION BAR 83090 OF Bancaincas lans(10370) + +DEFINE BAR 15 OF Bancaincas PROMPT "\-" +ON BAR 15 OF Bancaincas ACTIVATE POPUP _0co1cdi8r + + *---------------------------------- + DEFINE POPUP _0co1cdi8r SHORTCUT RELATIVE +DEFINE BAR "83180" OF Bancaincas PROMPT "Asociati 4551" ; + MESSAGE '5121:4551' +ON SELECTION BAR 83180 OF Bancaincas lans(10371) + +DEFINE BAR "83100" OF Bancaincas PROMPT "Debitori diversi 461" ; + MESSAGE '5121: 461' +ON SELECTION BAR 83100 OF Bancaincas lans(10372) + +DEFINE BAR "83110" OF Bancaincas PROMPT "Creditori diversi 462" ; + MESSAGE '5121:462' +ON SELECTION BAR 83110 OF Bancaincas lans(10373) + +DEFINE BAR 19 OF Bancaincas PROMPT "\-" +ON BAR 19 OF Bancaincas ACTIVATE POPUP _saq0rc606 + + *---------------------------------- + DEFINE POPUP _saq0rc606 SHORTCUT RELATIVE +DEFINE BAR "83020" OF Bancaincas PROMPT "Capital social varsat 456/1012" ; + MESSAGE '5121:456 ;1011:1012' +ON SELECTION BAR 83020 OF Bancaincas lans(10374) + +DEFINE BAR "83030" OF Bancaincas PROMPT "Credite bancare pe termen lung 1621" ; + MESSAGE '5121:1621' +ON SELECTION BAR 83030 OF Bancaincas lans(10375) + +DEFINE BAR "83120" OF Bancaincas PROMPT "Credite bancare 5191" ; + MESSAGE '5121:5191' +ON SELECTION BAR 83120 OF Bancaincas lans(10376) + +DEFINE BAR "83040" OF Bancaincas PROMPT "Incasare garantii 267X" ; + MESSAGE '5121:267X' +ON SELECTION BAR 83040 OF Bancaincas DO BAR_"83040"_OF_Bancaincas_FB2P + +DEFINE BAR 24 OF Bancaincas PROMPT "Subventii pentru investitii 131/445X" ; + MESSAGE '5121: X(131/445)' +ON SELECTION BAR 24 OF Bancaincas DO BAR_24_OF_Bancaincas_FB2P + +DEFINE BAR "83150" OF Bancaincas PROMPT "Venituri din dobanzi 766" ; + MESSAGE '5121: 766' +ON SELECTION BAR 83150 OF Bancaincas lans(10379) + +DEFINE BAR "83170" OF Bancaincas PROMPT "Sume in curs de clarificare 473" ; + MESSAGE '5121: 473' +ON SELECTION BAR 83170 OF Bancaincas lans(10380) + +DEFINE BAR 27 OF Bancaincas PROMPT "Decontari in cadrul grupului 4511" ; + MESSAGE '5121 : 4511' +ON SELECTION BAR 27 OF Bancaincas lans(10524) + +DEFINE BAR 28 OF Bancaincas PROMPT "Sume in curs de decontare 5125" ; + MESSAGE '5121: 5125' +ON SELECTION BAR 28 OF Bancaincas lans(10618) + +DEFINE BAR 29 OF Bancaincas PROMPT "\-" +ON BAR 29 OF Bancaincas ACTIVATE POPUP _67l0una2d + + *---------------------------------- + DEFINE POPUP _67l0una2d SHORTCUT RELATIVE +DEFINE BAR 30 OF Bancaincas PROMPT "Incasare generica prin banca X" ; + MESSAGE '5121: X' +ON SELECTION BAR 30 OF Bancaincas DO BAR_30_OF_Bancaincas_FB2P + +DEFINE BAR 31 OF Bancaincas PROMPT "Incasare generica facturi valuta" ; + MESSAGE '5121: X; 581 : 5121; 5121 : 581; 5121 = 5121' +ON SELECTION BAR 31 OF Bancaincas DO BAR_31_OF_Bancaincas_FB2P +ACTIVATE POPUP Bancaincas + +* + +* +PROCEDURE BAR_"83040"_OF_Bancaincas_FB2P + PRIVATE pcACN + loCont=ret_cont("Selectati contul creditor 5121:267X",'267') + + IF TYPE('loCont') # 'O' + RETURN + ENDIF + + IF buton=2 + RELEASE loCont + RETURN + ENDIF + CN=locont.cont + PcACN=loCont.Acont + lans(10377) +ENDPROC && BAR_"83040"_OF_Bancaincas_FB2P + +PROCEDURE BAR_24_OF_Bancaincas_FB2P + + LOCAL loCont + loCont = ret_cont("Alegeti contul creditor 5121 = 131/445X (Subventii)", "131,445") + IF buton = 2 + RELEASE loCont + RETURN + ENDIF + + + lans_generic(10378,loCont.cont, loCont.acont) +ENDPROC && BAR_24_OF_Bancaincas_FB2P + +PROCEDURE BAR_30_OF_Bancaincas_FB2P + LOCAL loCont + loCont = ret_cont("Contul creditor") + If buton = 2 + Release loCont + Return + Endif + + + lans_generic(10642,loCont.Cont, loCont.Acont) +ENDPROC && BAR_30_OF_Bancaincas_FB2P + +PROCEDURE BAR_31_OF_Bancaincas_FB2P + LOCAL loCont + loCont = ret_cont("Contul creditor") + If buton = 2 + Release loCont + Return + Endif + + + lans_generic(10648,loCont.Cont, loCont.Acont) +ENDPROC && BAR_31_OF_Bancaincas_FB2P + +* diff --git a/Meniuri/banca2.mn2 b/Meniuri/banca2.mn2 new file mode 100644 index 0000000..b6d43e3 --- /dev/null +++ b/Meniuri/banca2.mn2 @@ -0,0 +1,573 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="banca2.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Bancaplati SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR "84010" OF Bancaplati PROMPT "Ridicat numerar din banca 5311" ; + MESSAGE '5311:581 ; 581:5121' +ON SELECTION BAR 84010 OF Bancaplati DO BAR_"84010"_OF_Bancaplati_FB2P + +DEFINE BAR 2 OF Bancaplati PROMPT "Decontari intre subunitati 482" ; + MESSAGE '482:5121' +ON SELECTION BAR 2 OF Bancaplati DO BAR_2_OF_Bancaplati_FB2P + +DEFINE BAR 3 OF Bancaplati PROMPT "Decontari intre subunitati 462" ; + MESSAGE '482 : 462; 462 : 5121' +ON SELECTION BAR 3 OF Bancaplati lans(50502) + +DEFINE BAR "84190" OF Bancaplati PROMPT "Transferuri 5121" ; + MESSAGE '581 :5121;5121: 581' +ON SELECTION BAR 84190 OF Bancaplati lans(10451) + +DEFINE BAR 5 OF Bancaplati PROMPT "\-" +ON BAR 5 OF Bancaplati ACTIVATE POPUP _57v0tl3ms + + *---------------------------------- + DEFINE POPUP _57v0tl3ms SHORTCUT RELATIVE +DEFINE BAR 6 OF Bancaplati PROMPT "\ + +* +PROCEDURE BAR_"84010"_OF_Bancaplati_FB2P + lans(10381) + *DO MENIU84010 +ENDPROC && BAR_"84010"_OF_Bancaplati_FB2P + +PROCEDURE BAR_2_OF_Bancaplati_FB2P + lans(10382) + *!* m.scC='5121' + *!* m.scD='482 ' + *!* ***do casa.spr + *!* DO alfabeta with; + *!* 'casa',; + *!* '','','', ; + *!* "NUMELE BANCII","BANNUME","NUME_2", ; + *!* '','',"DECONTARI INTRE SUBUNITATI", ; + *!* "DECONTARI INTRE SUBUNITATI" + *!* * + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + *!* DO CODARE + + *!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT + *!* DO PLBANCA + *!* DO STERGE + *!* RETURN +ENDPROC && BAR_2_OF_Bancaplati_FB2P + +PROCEDURE BAR_3_OF__0yz0qm9kq_FB2P + + PRIVATE pcACN, CN + loCont = ret_cont("Selectati contul",'409') && ,4091,4092') + + IF TYPE('loCont') # 'O' + RETURN + ENDIF + + IF buton = 2 + RELEASE loCont + RETURN + ENDIF + + CN = locont.cont + PcACN = loCont.Acont + lans(10385) +ENDPROC && BAR_3_OF__0yz0qm9kq_FB2P + +PROCEDURE BAR_"84140"_OF_Bancaplati_FB2P + LANS(10386) + *DO MENIU84140 +ENDPROC && BAR_"84140"_OF_Bancaplati_FB2P + +PROCEDURE BAR_11_OF_Bancaplati_FB2P + lans(10387) + *DO MENIU82120B +ENDPROC && BAR_11_OF_Bancaplati_FB2P + +PROCEDURE BAR_"84130"_OF_Bancaplati_FB2P + *DO MENIU84130 + lans(10388) +ENDPROC && BAR_"84130"_OF_Bancaplati_FB2P + +PROCEDURE BAR_1_OF_Salarii_FB2P + lans(10391) + *!* *____________________________________________________________________________________________ + *!* *PROCEDURE MENIU82070 + + *!* m.scd='421' + *!* m.scc='5121' + + *!* m.explicatia='PLATA SALARII' + *!* oa=createo('actsimB') + *!* oa.show(1) + *!* *!* DO alfabeta with; + *!* *!* 'actsimc',; + *!* *!* "NUMELE FURNIZORULUI","FURNIZOR","NUME", ; + *!* *!* "NUMELE BANCII","BANNUME","NUME_2", ; + *!* *!* '','',"PLATA SALARII CONTRACT", ; + *!* *!* "PLATA SALARII CONTRACT" + + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + *!* DO CODARE + *!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT + *!* do plbanca + *!* do sterge + + *!* *RETURN +ENDPROC && BAR_1_OF_Salarii_FB2P + +PROCEDURE BAR_2_OF_Salarii_FB2P + lans(10392) + *!* *____________________________________________________________________________________________ + *!* *PROCEDURE MENIU82070 + + *!* m.scd='4211' + *!* m.scc='5121' + + *!* m.explicatia='PLATA SALARII' + *!* oa=createo('actsimB') + *!* oa.show(1) + *!* *!* DO alfabeta with; + *!* *!* 'actsimc',; + *!* *!* "NUMELE FURNIZORULUI","FURNIZOR","NUME", ; + *!* *!* "NUMELE BANCII","BANNUME","NUME_2", ; + *!* *!* '','',"PLATA SALARII CONTRACT", ; + *!* *!* "PLATA SALARII CONTRACT" + + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + *!* DO CODARE + *!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT + *!* do plbanca + *!* do sterge + + *!* *RETURN +ENDPROC && BAR_2_OF_Salarii_FB2P + +PROCEDURE BAR_4_OF_Salarii_FB2P + lans(10393) + *!* m.scd='425 ' + *!* m.scc='5121 ' + *!* ***do casa.spr + *!* DO alfabeta with; + *!* 'actsimB',; + *!* '','','', ; + *!* '','','', ; + *!* '','',"PLATIT AVANS", ; + *!* "PLATIT AVANS" + *!* * + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + *!* DO CODARE + *!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT + *!* DO PLbanca + *!* DO STERGE +ENDPROC && BAR_4_OF_Salarii_FB2P + +PROCEDURE BAR_26_OF_Bancaplati_FB2P + PRIVATE pcACN + loCont=ret_cont("Selectati contul",'448') && ,4481,4482') + IF TYPE('loCont') # 'O' + RETURN + ENDIF + + IF buton=2 + RELEASE loCont + RETURN + ENDIF + CN=locont.cont + PcACN=loCont.Acont + lans(10512) +ENDPROC && BAR_26_OF_Bancaplati_FB2P + +PROCEDURE BAR_"84030"_OF_Bancaplati_FB2P + PRIVATE pcACN + loCont=ret_cont("Selectati contul debitor 267X:5121",'267') + + IF TYPE('loCont') # 'O' + RETURN + ENDIF + + IF buton=2 + RELEASE loCont + RETURN + ENDIF + CN=locont.cont + PcACN=loCont.Acont + lans(10399) +ENDPROC && BAR_"84030"_OF_Bancaplati_FB2P + +PROCEDURE BAR_"84150"_OF_Bancaplati_FB2P + LANS(10400) + *DO MENIU84150 +ENDPROC && BAR_"84150"_OF_Bancaplati_FB2P + +PROCEDURE BAR_"84170"_OF_Bancaplati_FB2P + *DO MENIU84170 + LANS(10401) +ENDPROC && BAR_"84170"_OF_Bancaplati_FB2P + +PROCEDURE BAR_"84180"_OF_Bancaplati_FB2P + LANS(10402) + *DO MENIU84180 +ENDPROC && BAR_"84180"_OF_Bancaplati_FB2P + +PROCEDURE BAR_"84200"_OF_Bancaplati_FB2P + LANS(10403) + *DO MENIU84200 +ENDPROC && BAR_"84200"_OF_Bancaplati_FB2P + +PROCEDURE BAR_33_OF_Bancaplati_FB2P + lans(10467) + IF buton=2 + DO deschid_actc + RETURN + ENDIF + DO plati_impozite WITH 10467 IN ocont2003.prg + + *!* IF USED('plimp') + *!* USE IN plimp + *!* ENDIF + *!* + *!* COPY FILE &DIRGEN\_ALFA\AN0000\DATE00\plimp.* to &LOC\&NFSCURT\TEMPO\plimp.* + *!* DO des WITH 'PLIMP' + *!* + *!* SELE PLIMP + *!* INDEX ON scd TAG scd OF &loc\&nfscurt\tempo\ZZZ + *!* SET ORDER TO TAG scd + + *!* REPL ALL SUMA WITH 0 + *!* REPL ALL NRACT WITH M.NRACT + *!* REPL ALL scc WITH '5121' + + *!* GO TOP + *!* oaf=CREATE('afisanaa') + *!* oaf.SHOW(1) + *!* m.NUME='' + *!* SELE PLIMP + *!* SUM SUMA TO M.SUMA + + + *!* IF buton=2 + *!* DO deschid_actc + *!* RETURN + *!* ENDIF + *!* + *!* SELECT PLIMP + *!* SCAN FOR SUMA#0 + *!* SCATTER MEMVAR + *!* SELECT actactan + *!* GO top + *!* SCATTER FIELDS id_set, nume_2, dataact, dataireg, fdoc MEMVAR + *!* DELETE + *!* APPEND BLANK + *!* GATHER memv + *!* + *!* SCRIE_IN_FISIERE(' ') + *!* SELECT PLIMP + *!* ENDSCAN + *!* + *!* DO deschid_actc +ENDPROC && BAR_33_OF_Bancaplati_FB2P + +PROCEDURE BAR_34_OF_Bancaplati_FB2P + PRIVATE pcACN + loCont=ret_cont("Selectati contul",'446') && ,4461,4462,4463,4464,4465,4466,4467,4468,4469') + IF TYPE('loCont') # 'O' + RETURN + ENDIF + IF buton=2 + RELEASE loCont + RETURN + ENDIF + CN=locont.cont + PcACN=loCont.Acont + + lans(10466) + +ENDPROC && BAR_34_OF_Bancaplati_FB2P + +PROCEDURE BAR_35_OF_Bancaplati_FB2P + lans(10405) +ENDPROC && BAR_35_OF_Bancaplati_FB2P + +PROCEDURE BAR_39_OF_Bancaplati_FB2P + LOCAL loCont + loCont = ret_cont("Contul debitor") + If buton = 2 + Release loCont + Return + Endif + + + lans_generic(10643,loCont.Cont, loCont.Acont) +ENDPROC && BAR_39_OF_Bancaplati_FB2P + +PROCEDURE BAR_40_OF_Bancaplati_FB2P + LOCAL loCont + loCont = ret_cont("Contul debitor") + If buton = 2 + Release loCont + Return + Endif + + + lans_generic(10649,loCont.Cont, loCont.Acont) +ENDPROC && BAR_40_OF_Bancaplati_FB2P + +* diff --git a/Meniuri/banca3.mn2 b/Meniuri/banca3.mn2 new file mode 100644 index 0000000..96cdd1f --- /dev/null +++ b/Meniuri/banca3.mn2 @@ -0,0 +1,379 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="banca3.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Bancainval SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR "861" OF Bancainval PROMPT "Incasari" +ON BAR 861 OF Bancainval ACTIVATE POPUP Incasari + + *---------------------------------- + DEFINE POPUP Incasari SHORTCUT RELATIVE + DEFINE BAR "86120" OF Incasari PROMPT "Depunere numerar 5314" ; + MESSAGE '581 :5314;5124: 581' + ON SELECTION BAR 86120 OF Incasari Lans(10431) + + DEFINE BAR "86110" OF Incasari PROMPT "Cumparare valuta 5121" ; + MESSAGE '581 :5121;5124: 581' + ON SELECTION BAR 86110 OF Incasari lans(10438) + + DEFINE BAR "86130" OF Incasari PROMPT "Incasare dobanzi 766" ; + MESSAGE '5124: 766' + ON SELECTION BAR 86130 OF Incasari lans(10439) + + DEFINE BAR 4 OF Incasari PROMPT "Creditori diversi 462" ; + MESSAGE '5124 : 462' + ON SELECTION BAR 4 OF Incasari lans(10499) + + DEFINE BAR 5 OF Incasari PROMPT "Asociati conturi curente 4551" ; + MESSAGE ' 5124 : 4551' + ON SELECTION BAR 5 OF Incasari lans(10530) + + DEFINE BAR 6 OF Incasari PROMPT "Credit bancar termen lung 1621" ; + MESSAGE '5124 : 1621' + ON SELECTION BAR 6 OF Incasari lans(10532) + + DEFINE BAR 7 OF Incasari PROMPT "Credit bancar 5191" ; + MESSAGE '5124 : 5191' + ON SELECTION BAR 7 OF Incasari lans(10533) + + DEFINE BAR 8 OF Incasari PROMPT "\-" + ON BAR 8 OF Incasari ACTIVATE POPUP _0zm10vooj + + *---------------------------------- + DEFINE POPUP _0zm10vooj SHORTCUT RELATIVE + DEFINE BAR 9 OF Incasari PROMPT "Incasari clienti 4111" ; + MESSAGE '5124: 4111' + ON SELECTION BAR 9 OF Incasari LANS(10425) + + DEFINE BAR 10 OF Incasari PROMPT "Incasari clienti valuta diferita 411" ; + MESSAGE '581 - 5124; 5124 - 581; 5124 - 5124; 5124 - 4111' + ON SELECTION BAR 10 OF Incasari lans(10600) + + DEFINE BAR 11 OF Incasari PROMPT "Incasari clienti LEI 411" ; + MESSAGE '581 - 5124; 5124 - 581; 5124 - 5124; 5124 - 4111' + ON SELECTION BAR 11 OF Incasari lans(10654) + + DEFINE BAR "86150" OF Incasari PROMPT "Incasare avans clienti 419" ; + MESSAGE '5124: 419' + ON SELECTION BAR 86150 OF Incasari lans(10440) + + DEFINE BAR 13 OF Incasari PROMPT "Incasari debitori diversi 461" ; + MESSAGE '5124: 461' + ON SELECTION BAR 13 OF Incasari lans(10497) + + DEFINE BAR 14 OF Incasari PROMPT "Incasari garantii 267X" ; + MESSAGE '5124: 2678' + ON SELECTION BAR 14 OF Incasari DO BAR_14_OF_Incasari_FB2P + + DEFINE BAR 15 OF Incasari PROMPT "\-" + ON BAR 15 OF Incasari ACTIVATE POPUP _2070y920s + + *---------------------------------- + DEFINE POPUP _2070y920s SHORTCUT RELATIVE + DEFINE BAR 16 OF Incasari PROMPT "Restituire avans 542" ; + MESSAGE '5124: 542' + ON SELECTION BAR 16 OF Incasari lans(10568) + + DEFINE BAR 17 OF Incasari PROMPT "\-" + ON BAR 17 OF Incasari ACTIVATE POPUP _67q0z5eb3 + + *---------------------------------- + DEFINE POPUP _67q0z5eb3 SHORTCUT RELATIVE + DEFINE BAR 18 OF Incasari PROMPT "Incasare generica" ; + MESSAGE '5124 - X' + ON SELECTION BAR 18 OF Incasari DO BAR_18_OF_Incasari_FB2P + + DEFINE BAR 19 OF Incasari PROMPT "Incasare generica facturi valuta diferita" ; + MESSAGE '5124 - X; 581 - 5124; 5124 - 581; 5124 - 5124' + ON SELECTION BAR 19 OF Incasari DO BAR_19_OF_Incasari_FB2P + +DEFINE BAR "862" OF Bancainval PROMPT "Plati" +ON BAR 862 OF Bancainval ACTIVATE POPUP Plati + + *---------------------------------- + DEFINE POPUP Plati SHORTCUT RELATIVE + DEFINE BAR "86230" OF Plati PROMPT "Ridicat numerar 5314" ; + MESSAGE '5314:581 ;581 :5124' + ON SELECTION BAR 86230 OF Plati lans(10427) + + DEFINE BAR "86220" OF Plati PROMPT "Plata comision 627" ; + MESSAGE '627 :5124' + ON SELECTION BAR 86220 OF Plati lans(10441) + + DEFINE BAR "86270" OF Plati PROMPT "Plati neclarificate 473" ; + MESSAGE '473 :5124' + ON SELECTION BAR 86270 OF Plati lans(10442) + + DEFINE BAR "86240" OF Plati PROMPT "Vanzare valuta 5121" ; + MESSAGE '5121:581 ; 581:5124' + ON SELECTION BAR 86240 OF Plati lans(10443) + + DEFINE BAR "86250" OF Plati PROMPT "Plata dobanda 5198" ; + MESSAGE '5198:5124; 666:5198' + ON SELECTION BAR 86250 OF Plati lans(10444) + + DEFINE BAR 6 OF Plati PROMPT "Debitori diversi 461" ; + MESSAGE '461 : 5124' + ON SELECTION BAR 6 OF Plati lans(10500) + + DEFINE BAR 7 OF Plati PROMPT "Asociati conturi curente 4511" ; + MESSAGE ' 4511 : 5124' + ON SELECTION BAR 7 OF Plati lans(10531) + + DEFINE BAR 8 OF Plati PROMPT "Rambursare credit lung 1621" ; + MESSAGE '1621 : 5124' + ON SELECTION BAR 8 OF Plati lans(10534) + + DEFINE BAR 9 OF Plati PROMPT "Dobanda credit termen lung 1682" ; + MESSAGE '1682 : 5124; 666 : 1682' + ON SELECTION BAR 9 OF Plati lans(10535) + + DEFINE BAR 10 OF Plati PROMPT "Rambursare credit termen scurt 5191" ; + MESSAGE ' 5191 : 5124' + ON SELECTION BAR 10 OF Plati lans(10537) + + DEFINE BAR 11 OF Plati PROMPT "Dobanda credit termen scurt 5198" ; + MESSAGE '5198 : 5124; 666 : 5198' + ON SELECTION BAR 11 OF Plati lans(10538) + + DEFINE BAR 12 OF Plati PROMPT "Penalitati 6581" ; + MESSAGE '6581 : 5124' + ON SELECTION BAR 12 OF Plati lans(10536) + + DEFINE BAR 13 OF Plati PROMPT "\-" + ON BAR 13 OF Plati ACTIVATE POPUP _0zm10w916 + + *---------------------------------- + DEFINE POPUP _0zm10w916 SHORTCUT RELATIVE + DEFINE BAR 14 OF Plati PROMPT "Plati furnizori 401" ; + MESSAGE '401 : 5124' + ON SELECTION BAR 14 OF Plati lans(10445) + + DEFINE BAR 15 OF Plati PROMPT "Plati furnizori valuta diferita 401" ; + MESSAGE '581 - 5124; 5124 - 581 5124 - 5124; 401 - 5124' + ON SELECTION BAR 15 OF Plati lans(10601) + + DEFINE BAR 16 OF Plati PROMPT "Plati furnizori LEI 401" ; + MESSAGE '581 - 5124; 5124 - 581 5124 - 5124; 401 - 5124' + ON SELECTION BAR 16 OF Plati lans(10655) + + DEFINE BAR 17 OF Plati PROMPT "Plati furnizori imobilizari 404" ; + MESSAGE '404 : 5124' + ON SELECTION BAR 17 OF Plati lans(10447) + + DEFINE BAR "86260" OF Plati PROMPT "Plata avans furnizori 409" ; + MESSAGE '409 :5124' + ON SELECTION BAR 86260 OF Plati DO BAR_"86260"_OF_Plati_FB2P + + DEFINE BAR 19 OF Plati PROMPT "Plata avans furnizori imobilizari 23x" ; + MESSAGE '23x :5124' + ON SELECTION BAR 19 OF Plati DO BAR_19_OF_Plati_FB2P + + DEFINE BAR 20 OF Plati PROMPT "Plata creditori diversi 462" ; + MESSAGE '462 : 5124' + ON SELECTION BAR 20 OF Plati lans(10498) + + DEFINE BAR 21 OF Plati PROMPT "Plata garantii 267X" ; + MESSAGE '2678 : 5124' + ON SELECTION BAR 21 OF Plati DO BAR_21_OF_Plati_FB2P + + DEFINE BAR 22 OF Plati PROMPT "\-" + ON BAR 22 OF Plati ACTIVATE POPUP _2070ya95a + + *---------------------------------- + DEFINE POPUP _2070ya95a SHORTCUT RELATIVE + DEFINE BAR 23 OF Plati PROMPT "Acordare avans 542" ; + MESSAGE '542:5124' + ON SELECTION BAR 23 OF Plati lans(10569) + + DEFINE BAR 24 OF Plati PROMPT "Diurna 625" ; + MESSAGE '625 : 5124' + ON SELECTION BAR 24 OF Plati lans(10584) + + DEFINE BAR 25 OF Plati PROMPT "\-" + ON BAR 25 OF Plati ACTIVATE POPUP _67q0zac7s + + *---------------------------------- + DEFINE POPUP _67q0zac7s SHORTCUT RELATIVE + DEFINE BAR 26 OF Plati PROMPT "Plata generica" ; + MESSAGE 'X - 5124' + ON SELECTION BAR 26 OF Plati DO BAR_26_OF_Plati_FB2P + + DEFINE BAR 27 OF Plati PROMPT "Plata generica facturi valuta diferita" ; + MESSAGE 'X - 5124; 5124 - 581; 581 - 5124; 5124 - 5124' + ON SELECTION BAR 27 OF Plati DO BAR_27_OF_Plati_FB2P + + DEFINE BAR 28 OF Plati PROMPT "Plata generica facturi LEI" ; + MESSAGE '581 - 5124; 5124 - 581 5124 - 5124; X - 5124' + ON SELECTION BAR 28 OF Plati DO BAR_28_OF_Plati_FB2P + +DEFINE BAR 3 OF Bancainval PROMPT "Transferuri 5124" +ON BAR 3 OF Bancainval ACTIVATE POPUP Transferur + + *---------------------------------- + DEFINE POPUP Transferur SHORTCUT RELATIVE + DEFINE BAR 1 OF Transferur PROMPT "Transfer intre conturi aceeasi valuta" ; + MESSAGE '581 :5124 ; 5124:581' + ON SELECTION BAR 1 OF Transferur lans(10452) + + DEFINE BAR 2 OF Transferur PROMPT "Transfer intre conturi valute diferite" ; + MESSAGE '581 :5124 ; 5124:581' + ON SELECTION BAR 2 OF Transferur lans(10633) + +DEFINE BAR 4 OF Bancainval PROMPT "Depozite 5081" +ON BAR 4 OF Bancainval ACTIVATE POPUP Depozite50 + + *---------------------------------- + DEFINE POPUP Depozite50 SHORTCUT RELATIVE + DEFINE BAR 1 OF Depozite50 PROMPT "Constituire depozit valuta" ; + MESSAGE '581 : 5124;5081 : 581' + ON SELECTION BAR 1 OF Depozite50 lans(10638) + + DEFINE BAR 2 OF Depozite50 PROMPT "Lichidare depozit valuta" ; + MESSAGE '581 : 5081; 5124 : 581' + ON SELECTION BAR 2 OF Depozite50 lans(10639) + + DEFINE BAR 3 OF Depozite50 PROMPT "Inregistrare dobanda capitalizare" ; + MESSAGE '5088 : 766; 5081 : 5088' + ON SELECTION BAR 3 OF Depozite50 lans(10640) + + DEFINE BAR 4 OF Depozite50 PROMPT "Inregistrare dobanda cont curent" ; + MESSAGE '5088 : 766; 5124 : 5088' + ON SELECTION BAR 4 OF Depozite50 lans(10641) +ACTIVATE POPUP Bancainval + +* + +* +PROCEDURE BAR_14_OF_Incasari_FB2P + PRIVATE pcACN + loCont=ret_cont("Selectati contul creditor 5124:267X",'267') + + IF TYPE('loCont') # 'O' + RETURN + ENDIF + + IF buton=2 + RELEASE loCont + RETURN + ENDIF + CN=locont.cont + PcACN=loCont.Acont + lans(10577) +ENDPROC && BAR_14_OF_Incasari_FB2P + +PROCEDURE BAR_18_OF_Incasari_FB2P + LOCAL loCont + loCont = ret_cont("Contul creditor") + If buton = 2 + Release loCont + Return + Endif + + + lans_generic(10650,loCont.Cont, loCont.Acont) +ENDPROC && BAR_18_OF_Incasari_FB2P + +PROCEDURE BAR_19_OF_Incasari_FB2P + LOCAL loCont + loCont = ret_cont("Contul creditor") + If buton = 2 + Release loCont + Return + Endif + + + lans_generic(10652,loCont.Cont, loCont.Acont) +ENDPROC && BAR_19_OF_Incasari_FB2P + +PROCEDURE BAR_"86260"_OF_Plati_FB2P + PRIVATE pcACN, CN + loCont = ret_cont("Selectati contul",'409') && ,4091,4092') + IF TYPE('loCont') # 'O' + RETURN + ENDIF + IF buton = 2 + RELEASE loCont + RETURN + ENDIF + + CN = locont.cont + PcACN = loCont.Acont + lans(10446) +ENDPROC && BAR_"86260"_OF_Plati_FB2P + +PROCEDURE BAR_19_OF_Plati_FB2P + PRIVATE pcACN, CN + loCont = ret_cont("Selectati contul",'23') && 232 IMOBILIZARI CORPORALE, 234 IMOBILIZARI NECORPORALE + IF TYPE('loCont') # 'O' + RETURN + ENDIF + IF buton = 2 + RELEASE loCont + RETURN + ENDIF + + CN = locont.cont + PcACN = loCont.Acont + lans(10596) +ENDPROC && BAR_19_OF_Plati_FB2P + +PROCEDURE BAR_21_OF_Plati_FB2P + PRIVATE pcACN + loCont=ret_cont("Selectati contul debitor 267X:5124",'267') + + IF TYPE('loCont') # 'O' + RETURN + ENDIF + + IF buton=2 + RELEASE loCont + RETURN + ENDIF + CN=locont.cont + PcACN=loCont.Acont + lans(10578) +ENDPROC && BAR_21_OF_Plati_FB2P + +PROCEDURE BAR_26_OF_Plati_FB2P + LOCAL loCont + loCont = ret_cont("Contul debitor") + If buton = 2 + Release loCont + Return + Endif + + + lans_generic(10651,loCont.Cont, loCont.Acont) +ENDPROC && BAR_26_OF_Plati_FB2P + +PROCEDURE BAR_27_OF_Plati_FB2P + LOCAL loCont + loCont = ret_cont("Contul debitor") + If buton = 2 + Release loCont + Return + Endif + + + lans_generic(10653,loCont.Cont, loCont.Acont) +ENDPROC && BAR_27_OF_Plati_FB2P + +PROCEDURE BAR_28_OF_Plati_FB2P + LOCAL loCont + loCont = ret_cont("Contul debitor") + If buton = 2 + Release loCont + Return + Endif + + + lans_generic(10656,loCont.Cont, loCont.Acont) +ENDPROC && BAR_28_OF_Plati_FB2P + +* diff --git a/Meniuri/capitaluri1.mn2 b/Meniuri/capitaluri1.mn2 new file mode 100644 index 0000000..dffacf2 --- /dev/null +++ b/Meniuri/capitaluri1.mn2 @@ -0,0 +1,156 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="capitaluri1.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Capitalsoc SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Capitalsoc PROMPT "Subscriere capital social" ; + MESSAGE '456 :1011' +ON SELECTION BAR 1 OF Capitalsoc DO BAR_1_OF_Capitalsoc_FB2P + +DEFINE BAR "11010" OF Capitalsoc PROMPT "Majorare capital social" +ON BAR 11010 OF Capitalsoc ACTIVATE POPUP Majorareca + + *---------------------------------- + DEFINE POPUP Majorareca SHORTCUT RELATIVE + DEFINE BAR 1 OF Majorareca PROMPT "Terenuri" ; + MESSAGE '2111:456 ; 1011:1012' + ON SELECTION BAR 1 OF Majorareca DO BAR_1_OF_Majorareca_FB2P + + DEFINE BAR 2 OF Majorareca PROMPT "Cladiri" ; + MESSAGE '212 :456 ;1011:1012' + ON SELECTION BAR 2 OF Majorareca DO BAR_2_OF_Majorareca_FB2P + + DEFINE BAR 3 OF Majorareca PROMPT "Materii prime" ; + MESSAGE '301 :456 ;1011:1012' + ON SELECTION BAR 3 OF Majorareca DO BAR_3_OF_Majorareca_FB2P + + DEFINE BAR 4 OF Majorareca PROMPT "Materiale de natura obiectelor de inventar" ; + MESSAGE '303 :456 ;1011:1012' + ON SELECTION BAR 4 OF Majorareca DO BAR_4_OF_Majorareca_FB2P + + DEFINE BAR 5 OF Majorareca PROMPT "Marfuri" ; + MESSAGE '371:456 ;1011:1012' + ON SELECTION BAR 5 OF Majorareca DO BAR_5_OF_Majorareca_FB2P + + DEFINE BAR 6 OF Majorareca PROMPT "Conturi la banci" ; + MESSAGE '5121:456 ;1011:1012' + ON SELECTION BAR 6 OF Majorareca DO BAR_6_OF_Majorareca_FB2P + + DEFINE BAR 7 OF Majorareca PROMPT "Numerar la casierie" ; + MESSAGE '5311:456 ;1011:1012' + ON SELECTION BAR 7 OF Majorareca DO BAR_7_OF_Majorareca_FB2P + + DEFINE BAR 8 OF Majorareca PROMPT "Alte valori" ; + MESSAGE '532 :456 ;1011:1012' + ON SELECTION BAR 8 OF Majorareca DO BAR_8_OF_Majorareca_FB2P + + DEFINE BAR 9 OF Majorareca PROMPT "Incorporare profit" ; + MESSAGE '129 :1012' + ON SELECTION BAR 9 OF Majorareca DO BAR_9_OF_Majorareca_FB2P + + DEFINE BAR 10 OF Majorareca PROMPT "Incorporare rezerve" ; + MESSAGE '1061:1012' + ON SELECTION BAR 10 OF Majorareca DO BAR_10_OF_Majorareca_FB2P + +DEFINE BAR "11020" OF Capitalsoc PROMPT "Reducere capital social" +ON BAR 11020 OF Capitalsoc ACTIVATE POPUP _09a0rejku + + *---------------------------------- + DEFINE POPUP _09a0rejku SHORTCUT RELATIVE + DEFINE BAR 1 OF _09a0rejku PROMPT "Retragere asociat" ; + MESSAGE '1012:456 ;456 :5121' + ON SELECTION BAR 1 OF _09a0rejku DO BAR_1_OF__09a0rejku_FB2P + + DEFINE BAR 2 OF _09a0rejku PROMPT "Acoperire pierdere" + ON BAR 2 OF _09a0rejku ACTIVATE POPUP Acoperirep + + *---------------------------------- + DEFINE POPUP Acoperirep SHORTCUT RELATIVE + DEFINE BAR 1 OF Acoperirep PROMPT "Exercitiul curent" ; + MESSAGE '1012:121 ' + ON SELECTION BAR 1 OF Acoperirep DO BAR_1_OF_Acoperirep_FB2P + + DEFINE BAR 2 OF Acoperirep PROMPT "Exercitii precedente" ; + MESSAGE '1012:117 ' + ON SELECTION BAR 2 OF Acoperirep DO BAR_2_OF_Acoperirep_FB2P +ACTIVATE POPUP Capitalsoc + +* + +* +PROCEDURE BAR_1_OF_Capitalsoc_FB2P + *DO ABC1 WITH '456 ','1011' + lans(10001) +ENDPROC && BAR_1_OF_Capitalsoc_FB2P + +PROCEDURE BAR_1_OF_Majorareca_FB2P + *DO ABC2 WITH '2111',"456 ","1011","1012" + lans(10002) +ENDPROC && BAR_1_OF_Majorareca_FB2P + +PROCEDURE BAR_2_OF_Majorareca_FB2P + *DO ABC2 WITH '212 ',"456 ","1011","1012" + lans(10003) +ENDPROC && BAR_2_OF_Majorareca_FB2P + +PROCEDURE BAR_3_OF_Majorareca_FB2P + *DO ABC2 WITH '301 ',"456 ","1011","1012" + lans(10004) +ENDPROC && BAR_3_OF_Majorareca_FB2P + +PROCEDURE BAR_4_OF_Majorareca_FB2P + *DO ABC2 WITH '303 ',"456 ","1011","1012" + lans(10005) +ENDPROC && BAR_4_OF_Majorareca_FB2P + +PROCEDURE BAR_5_OF_Majorareca_FB2P + *DO ABC2 WITH '371 ',"456 ","1011","1012" + lans(10006) +ENDPROC && BAR_5_OF_Majorareca_FB2P + +PROCEDURE BAR_6_OF_Majorareca_FB2P + *DO ABC2 WITH '5121',"456 ","1011","1012" + lans(10007) +ENDPROC && BAR_6_OF_Majorareca_FB2P + +PROCEDURE BAR_7_OF_Majorareca_FB2P + *DO ABC2 WITH '5311',"456 ","1011","1012" + lans(10008) +ENDPROC && BAR_7_OF_Majorareca_FB2P + +PROCEDURE BAR_8_OF_Majorareca_FB2P + *DO ABC2 WITH '532 ',"456 ","1011","1012" + lans(10009) +ENDPROC && BAR_8_OF_Majorareca_FB2P + +PROCEDURE BAR_9_OF_Majorareca_FB2P + *DO ABC1 WITH '129 ',"1012" + lans(10010) +ENDPROC && BAR_9_OF_Majorareca_FB2P + +PROCEDURE BAR_10_OF_Majorareca_FB2P + *DO ABC1 WITH '1061',"1012" + lans(10011) +ENDPROC && BAR_10_OF_Majorareca_FB2P + +PROCEDURE BAR_1_OF__09a0rejku_FB2P + *DO ABC2 WITH '1012',"456 ","456 ","5121" + lans(10012) +ENDPROC && BAR_1_OF__09a0rejku_FB2P + +PROCEDURE BAR_1_OF_Acoperirep_FB2P + *DO ABC1 WITH '1012',"121 " + lans(10013) +ENDPROC && BAR_1_OF_Acoperirep_FB2P + +PROCEDURE BAR_2_OF_Acoperirep_FB2P + *DO ABC1 WITH '1012',"117 " + lans(10014) +ENDPROC && BAR_2_OF_Acoperirep_FB2P + +* diff --git a/Meniuri/capitaluri2.mn2 b/Meniuri/capitaluri2.mn2 new file mode 100644 index 0000000..fdae8e7 --- /dev/null +++ b/Meniuri/capitaluri2.mn2 @@ -0,0 +1,97 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="capitaluri2.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Rezervedin SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Rezervedin PROMPT "Reevaluare imobilizari" +ON BAR 1 OF Rezervedin ACTIVATE POPUP Reevaluare + + *---------------------------------- + DEFINE POPUP Reevaluare SHORTCUT RELATIVE + DEFINE BAR 1 OF Reevaluare PROMPT "Cladiri 212" ; + MESSAGE '212 :1058 ' + ON SELECTION BAR 1 OF Reevaluare DO BAR_1_OF_Reevaluare_FB2P + + DEFINE BAR 2 OF Reevaluare PROMPT "Echipamente tehnologice 2131" ; + MESSAGE '2131:1058' + ON SELECTION BAR 2 OF Reevaluare DO BAR_2_OF_Reevaluare_FB2P + + DEFINE BAR 3 OF Reevaluare PROMPT "Aparate de masura 2132" ; + MESSAGE '2132:1058' + ON SELECTION BAR 3 OF Reevaluare DO BAR_3_OF_Reevaluare_FB2P + + DEFINE BAR 4 OF Reevaluare PROMPT "Mijloace de transport 2133" ; + MESSAGE '2133:1058' + ON SELECTION BAR 4 OF Reevaluare DO BAR_4_OF_Reevaluare_FB2P + + DEFINE BAR 5 OF Reevaluare PROMPT "Mobilier birotica 214" ; + MESSAGE '214 :1058' + ON SELECTION BAR 5 OF Reevaluare DO BAR_5_OF_Reevaluare_FB2P + + DEFINE BAR 6 OF Reevaluare PROMPT "Imobilizari financiare 261" ; + MESSAGE '261 :1058' + ON SELECTION BAR 6 OF Reevaluare DO BAR_6_OF_Reevaluare_FB2P + +DEFINE BAR 2 OF Rezervedin PROMPT "Transfer diferente din reevaluare" +ON BAR 2 OF Rezervedin ACTIVATE POPUP Transferdi + + *---------------------------------- + DEFINE POPUP Transferdi SHORTCUT RELATIVE + DEFINE BAR 1 OF Transferdi PROMPT "Rezerve" ; + MESSAGE '1058:1068' + ON SELECTION BAR 1 OF Transferdi DO BAR_1_OF_Transferdi_FB2P + + DEFINE BAR 2 OF Transferdi PROMPT "Capital social" ; + MESSAGE '1058:1012' + ON SELECTION BAR 2 OF Transferdi DO BAR_2_OF_Transferdi_FB2P +ACTIVATE POPUP Rezervedin + +* + +* +PROCEDURE BAR_1_OF_Reevaluare_FB2P + *DO ABC1 WITH '212 ',"1058" + lans(10015) +ENDPROC && BAR_1_OF_Reevaluare_FB2P + +PROCEDURE BAR_2_OF_Reevaluare_FB2P + *DO ABC1 WITH '2131',"1058" + lans(10016) +ENDPROC && BAR_2_OF_Reevaluare_FB2P + +PROCEDURE BAR_3_OF_Reevaluare_FB2P + *DO ABC1 WITH '2132',"1058" + lans(10017) +ENDPROC && BAR_3_OF_Reevaluare_FB2P + +PROCEDURE BAR_4_OF_Reevaluare_FB2P + *DO ABC1 WITH '2133',"1058" + lans(10018) +ENDPROC && BAR_4_OF_Reevaluare_FB2P + +PROCEDURE BAR_5_OF_Reevaluare_FB2P + *DO ABC1 WITH '214',"1058" + lans(10019) +ENDPROC && BAR_5_OF_Reevaluare_FB2P + +PROCEDURE BAR_6_OF_Reevaluare_FB2P + *DO ABC1 WITH '261 ',"1058" + lans(10020) +ENDPROC && BAR_6_OF_Reevaluare_FB2P + +PROCEDURE BAR_1_OF_Transferdi_FB2P + *DO ABC1 WITH '1058',"1068" + lans(10021) +ENDPROC && BAR_1_OF_Transferdi_FB2P + +PROCEDURE BAR_2_OF_Transferdi_FB2P + *DO ABC1 WITH '1058',"1012" + lans(10022) +ENDPROC && BAR_2_OF_Transferdi_FB2P + +* diff --git a/Meniuri/capitaluri3.mn2 b/Meniuri/capitaluri3.mn2 new file mode 100644 index 0000000..f6027b0 --- /dev/null +++ b/Meniuri/capitaluri3.mn2 @@ -0,0 +1,110 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="capitaluri3.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Rezerve SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Rezerve PROMPT "Rezerve legale" +ON BAR 1 OF Rezerve ACTIVATE POPUP Rezerveleg + + *---------------------------------- + DEFINE POPUP Rezerveleg SHORTCUT RELATIVE + DEFINE BAR 1 OF Rezerveleg PROMPT "Constituite din profit net" ; + MESSAGE '129:1061' + ON SELECTION BAR 1 OF Rezerveleg DO BAR_1_OF_Rezerveleg_FB2P + + DEFINE BAR 2 OF Rezerveleg PROMPT "Constituite din profitul repartizat" ; + MESSAGE '117 :1061' + ON SELECTION BAR 2 OF Rezerveleg DO BAR_2_OF_Rezerveleg_FB2P + + DEFINE BAR 3 OF Rezerveleg PROMPT "Diminuare rezerve legale" + ON BAR 3 OF Rezerveleg ACTIVATE POPUP _09a0sh3kl + + *---------------------------------- + DEFINE POPUP _09a0sh3kl SHORTCUT RELATIVE + DEFINE BAR 1 OF _09a0sh3kl PROMPT "Prin cresterea capitalului social" ; + MESSAGE '1061:1012' + ON SELECTION BAR 1 OF _09a0sh3kl DO BAR_1_OF__09a0sh3kl_FB2P + + DEFINE BAR 2 OF _09a0sh3kl PROMPT "Prin acoperirea pierderilor curente" ; + MESSAGE '1061:121' + ON SELECTION BAR 2 OF _09a0sh3kl DO BAR_2_OF__09a0sh3kl_FB2P + + DEFINE BAR 3 OF _09a0sh3kl PROMPT "Prin acoperirea pierderilor precedente" ; + MESSAGE '1061:117 ' + ON SELECTION BAR 3 OF _09a0sh3kl DO BAR_3_OF__09a0sh3kl_FB2P + +DEFINE BAR 2 OF Rezerve PROMPT "Alte rezerve" +ON BAR 2 OF Rezerve ACTIVATE POPUP Alterezerv + + *---------------------------------- + DEFINE POPUP Alterezerv SHORTCUT RELATIVE + DEFINE BAR 1 OF Alterezerv PROMPT "Diminuare rezerve" + ON BAR 1 OF Alterezerv ACTIVATE POPUP Diminuarer + + *---------------------------------- + DEFINE POPUP Diminuarer SHORTCUT RELATIVE + DEFINE BAR 1 OF Diminuarer PROMPT "Prin majorare capital social" ; + MESSAGE '1068:1012' + ON SELECTION BAR 1 OF Diminuarer DO BAR_1_OF_Diminuarer_FB2P + + DEFINE BAR 2 OF Diminuarer PROMPT "Prin acoperirea pierderilor curente" ; + MESSAGE '1068:121 ' + ON SELECTION BAR 2 OF Diminuarer DO BAR_2_OF_Diminuarer_FB2P + + DEFINE BAR 3 OF Diminuarer PROMPT "Prin acoperirea pierderilor precedente" ; + MESSAGE '1068:117 ' + ON SELECTION BAR 3 OF Diminuarer DO BAR_3_OF_Diminuarer_FB2P +ACTIVATE POPUP Rezerve + +* + +* +PROCEDURE BAR_1_OF_Rezerveleg_FB2P + *DO ABC1 WITH '129 ',"1061" + lans(10023) +ENDPROC && BAR_1_OF_Rezerveleg_FB2P + +PROCEDURE BAR_2_OF_Rezerveleg_FB2P + ****DO ABC1 WITH '107 ',"1061" + *DO ABC1 WITH '117 ',"1061" + lans(10024) +ENDPROC && BAR_2_OF_Rezerveleg_FB2P + +PROCEDURE BAR_1_OF__09a0sh3kl_FB2P + *DO ABC1 WITH '1061',"1012" + lans(10025) +ENDPROC && BAR_1_OF__09a0sh3kl_FB2P + +PROCEDURE BAR_2_OF__09a0sh3kl_FB2P + *DO ABC1 WITH '1061',"121 " + lans(10027) +ENDPROC && BAR_2_OF__09a0sh3kl_FB2P + +PROCEDURE BAR_3_OF__09a0sh3kl_FB2P + ***DO ABC1 WITH '1061',"107 " + *DO ABC1 WITH '1061',"117 " + lans(10026) +ENDPROC && BAR_3_OF__09a0sh3kl_FB2P + +PROCEDURE BAR_1_OF_Diminuarer_FB2P + *DO ABC1 WITH '1068',"1012" + lans(10028) +ENDPROC && BAR_1_OF_Diminuarer_FB2P + +PROCEDURE BAR_2_OF_Diminuarer_FB2P + *DO ABC1 WITH '1068',"121 " + lans(10029) +ENDPROC && BAR_2_OF_Diminuarer_FB2P + +PROCEDURE BAR_3_OF_Diminuarer_FB2P + ***DO ABC1 WITH '1068',"107 " + *DO ABC1 WITH '1068',"117 " + lans(10030) +ENDPROC && BAR_3_OF_Diminuarer_FB2P + +* diff --git a/Meniuri/capitaluri4.mn2 b/Meniuri/capitaluri4.mn2 new file mode 100644 index 0000000..c5c0ddd --- /dev/null +++ b/Meniuri/capitaluri4.mn2 @@ -0,0 +1,79 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="capitaluri4.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP NewItem SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF NewItem PROMPT "Constituire rezerve" +ON BAR 1 OF NewItem ACTIVATE POPUP _0u60ol5c8 + + *---------------------------------- + DEFINE POPUP _0u60ol5c8 SHORTCUT RELATIVE + DEFINE BAR 1 OF _0u60ol5c8 PROMPT "Diferente favorabile din conversie (datorii)" ; + MESSAGE '167 :107 ' + ON SELECTION BAR 1 OF _0u60ol5c8 DO BAR_1_OF__0u60ol5c8_FB2P + + DEFINE BAR 2 OF _0u60ol5c8 PROMPT "Diferente favorabile din conversie (creante)" ; + MESSAGE '267 :107 ' + ON SELECTION BAR 2 OF _0u60ol5c8 DO BAR_2_OF__0u60ol5c8_FB2P + + DEFINE BAR 3 OF _0u60ol5c8 PROMPT "Cheltuieli din diferente de curs valutar" ; + MESSAGE '6651:107 ' + ON SELECTION BAR 3 OF _0u60ol5c8 DO BAR_3_OF__0u60ol5c8_FB2P + +DEFINE BAR 2 OF NewItem PROMPT "Diminuare rezerve" +ON BAR 2 OF NewItem ACTIVATE POPUP _0u60olaqp + + *---------------------------------- + DEFINE POPUP _0u60olaqp SHORTCUT RELATIVE + DEFINE BAR 1 OF _0u60olaqp PROMPT "Diferente nefavorabile din conversie (datorii)" ; + MESSAGE '107 :167 ' + ON SELECTION BAR 1 OF _0u60olaqp DO BAR_1_OF__0u60olaqp_FB2P + + DEFINE BAR 2 OF _0u60olaqp PROMPT "Diferente nefavorabile din conversie (creante)" ; + MESSAGE '107 :267 ' + ON SELECTION BAR 2 OF _0u60olaqp DO BAR_2_OF__0u60olaqp_FB2P + + DEFINE BAR 3 OF _0u60olaqp PROMPT "Venituri din diferente de curs valutar" ; + MESSAGE '107 :7651 ' + ON SELECTION BAR 3 OF _0u60olaqp DO BAR_3_OF__0u60olaqp_FB2P +ACTIVATE POPUP NewItem + +* + +* +PROCEDURE BAR_1_OF__0u60ol5c8_FB2P + *DO ABC1 WITH '167 ','107 ' + lans(10031) +ENDPROC && BAR_1_OF__0u60ol5c8_FB2P + +PROCEDURE BAR_2_OF__0u60ol5c8_FB2P + *DO ABC1 WITH '267 ','107 ' + lans(10032) +ENDPROC && BAR_2_OF__0u60ol5c8_FB2P + +PROCEDURE BAR_3_OF__0u60ol5c8_FB2P + *DO ABC1 WITH '665 ','107 ' + lans(10033) +ENDPROC && BAR_3_OF__0u60ol5c8_FB2P + +PROCEDURE BAR_1_OF__0u60olaqp_FB2P + *DO ABC1 WITH '107 ','167 ' + lans(10034) +ENDPROC && BAR_1_OF__0u60olaqp_FB2P + +PROCEDURE BAR_2_OF__0u60olaqp_FB2P + *DO ABC1 WITH '107 ','267 ' + lans(10035) +ENDPROC && BAR_2_OF__0u60olaqp_FB2P + +PROCEDURE BAR_3_OF__0u60olaqp_FB2P + *DO ABC1 WITH '107 ','765 ' + lans(10036) +ENDPROC && BAR_3_OF__0u60olaqp_FB2P + +* diff --git a/Meniuri/capitaluri5.mn2 b/Meniuri/capitaluri5.mn2 new file mode 100644 index 0000000..fc01eeb --- /dev/null +++ b/Meniuri/capitaluri5.mn2 @@ -0,0 +1,95 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="capitaluri5.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Profitsipi SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Profitsipi PROMPT "Inchid.conturilor de venituri" +ON BAR 1 OF Profitsipi ACTIVATE POPUP Inchidcont + + *---------------------------------- + DEFINE POPUP Inchidcont SHORTCUT RELATIVE + DEFINE BAR 1 OF Inchidcont PROMPT "Produse finite" ; + MESSAGE '7015:121 ' + ON SELECTION BAR 1 OF Inchidcont DO BAR_1_OF_Inchidcont_FB2P + + DEFINE BAR 2 OF Inchidcont PROMPT "Provizioane" ; + MESSAGE '787 :121 ' + ON SELECTION BAR 2 OF Inchidcont DO BAR_2_OF_Inchidcont_FB2P + +DEFINE BAR 2 OF Profitsipi PROMPT "Inchid.conturilor de cheltuieli" +ON BAR 2 OF Profitsipi ACTIVATE POPUP _09a104pbk + + *---------------------------------- + DEFINE POPUP _09a104pbk SHORTCUT RELATIVE + DEFINE BAR 1 OF _09a104pbk PROMPT "Materii prime" ; + MESSAGE '121 :600 ' + ON SELECTION BAR 1 OF _09a104pbk DO BAR_1_OF__09a104pbk_FB2P + + DEFINE BAR 2 OF _09a104pbk PROMPT "Impozit pe profit" ; + MESSAGE '121:691 ' + ON SELECTION BAR 2 OF _09a104pbk DO BAR_2_OF__09a104pbk_FB2P + +DEFINE BAR 3 OF Profitsipi PROMPT "Pierderi realizate in ex.curente" +ON BAR 3 OF Profitsipi ACTIVATE POPUP Pierderire + + *---------------------------------- + DEFINE POPUP Pierderire SHORTCUT RELATIVE + DEFINE BAR 1 OF Pierderire PROMPT "Ce reduc capitalul social" ; + MESSAGE '121 :691 ' + ON SELECTION BAR 1 OF Pierderire DO BAR_1_OF_Pierderire_FB2P + + DEFINE BAR 2 OF Pierderire PROMPT "Ce sunt repartizate in ex. urmator" ; + MESSAGE '117 :121 ' + ON SELECTION BAR 2 OF Pierderire DO BAR_2_OF_Pierderire_FB2P + +DEFINE BAR 4 OF Profitsipi PROMPT "Profit net din ex.precedent si repartizat" ; + MESSAGE '121 :129 ' +ON SELECTION BAR 4 OF Profitsipi DO BAR_4_OF_Profitsipi_FB2P +ACTIVATE POPUP Profitsipi + +* + +* +PROCEDURE BAR_1_OF_Inchidcont_FB2P + *DO ABC1 WITH '701 ',"121 " + lans(10044) +ENDPROC && BAR_1_OF_Inchidcont_FB2P + +PROCEDURE BAR_2_OF_Inchidcont_FB2P + *DO ABC1 WITH '787 ',"121 " + lans(10045) +ENDPROC && BAR_2_OF_Inchidcont_FB2P + +PROCEDURE BAR_1_OF__09a104pbk_FB2P + *DO ABC1 WITH '121 ',"600 " + lans(10046) +ENDPROC && BAR_1_OF__09a104pbk_FB2P + +PROCEDURE BAR_2_OF__09a104pbk_FB2P + *DO ABC1 WITH '121 ',"691 " + lans(10047) +ENDPROC && BAR_2_OF__09a104pbk_FB2P + +PROCEDURE BAR_1_OF_Pierderire_FB2P + ***DO ABC1 WITH '121 ',"691 " + *DO ABC1 WITH '1012',"121 " + lans(10048) +ENDPROC && BAR_1_OF_Pierderire_FB2P + +PROCEDURE BAR_2_OF_Pierderire_FB2P + ***DO ABC1 WITH '107 ',"121 " + *DO ABC1 WITH '117 ',"121 " + lans(10049) +ENDPROC && BAR_2_OF_Pierderire_FB2P + +PROCEDURE BAR_4_OF_Profitsipi_FB2P + *DO ABC1 WITH '121 ',"129 " + lans(10050) +ENDPROC && BAR_4_OF_Profitsipi_FB2P + +* diff --git a/Meniuri/capitaluri6.mn2 b/Meniuri/capitaluri6.mn2 new file mode 100644 index 0000000..4932292 --- /dev/null +++ b/Meniuri/capitaluri6.mn2 @@ -0,0 +1,84 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="capitaluri6.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Repartizar SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Repartizar PROMPT "Prin cresterea capitalului social" ; + MESSAGE '129:1012' +ON SELECTION BAR 1 OF Repartizar DO BAR_1_OF_Repartizar_FB2P + +DEFINE BAR 2 OF Repartizar PROMPT "Prin constituirea rezervelor" ; + MESSAGE '129 :1061' +ON SELECTION BAR 2 OF Repartizar DO BAR_2_OF_Repartizar_FB2P + +DEFINE BAR 3 OF Repartizar PROMPT "Participarea personalului la profit" ; + MESSAGE '129 :424 ' +ON SELECTION BAR 3 OF Repartizar DO BAR_3_OF_Repartizar_FB2P + +DEFINE BAR 4 OF Repartizar PROMPT "Prin constituirea fd.de participare la profit" ; + MESSAGE '129:112 ' +ON SELECTION BAR 4 OF Repartizar DO BAR_4_OF_Repartizar_FB2P + +DEFINE BAR 5 OF Repartizar PROMPT "Prin evidenta dividendelor(vechi)" ; + MESSAGE '129 :457 ' +ON SELECTION BAR 5 OF Repartizar DO BAR_5_OF_Repartizar_FB2P + +DEFINE BAR 6 OF Repartizar PROMPT "Prin acoperirea pierderilor din anii precedenti" ; + MESSAGE '129 :117 ' +ON SELECTION BAR 6 OF Repartizar DO BAR_6_OF_Repartizar_FB2P + +DEFINE BAR 7 OF Repartizar PROMPT "Prin constituirea fondului de rezerva" ; + MESSAGE '129 :1061' +ON SELECTION BAR 7 OF Repartizar DO BAR_7_OF_Repartizar_FB2P + +DEFINE BAR 8 OF Repartizar PROMPT "Prin evidenta dividendelor" ; + MESSAGE ' 117 : 457' +ON SELECTION BAR 8 OF Repartizar lans(10507) +ACTIVATE POPUP Repartizar + +* + +* +PROCEDURE BAR_1_OF_Repartizar_FB2P + *DO ABC1 WITH '129 ',"1012" + lans(10037) +ENDPROC && BAR_1_OF_Repartizar_FB2P + +PROCEDURE BAR_2_OF_Repartizar_FB2P + ***DO ABC1 WITH '129 ',"106 " + *DO ABC1 WITH '129 ',"1061" + lans(10038) +ENDPROC && BAR_2_OF_Repartizar_FB2P + +PROCEDURE BAR_3_OF_Repartizar_FB2P + *DO ABC1 WITH '129 ',"424 " + lans(10039) +ENDPROC && BAR_3_OF_Repartizar_FB2P + +PROCEDURE BAR_4_OF_Repartizar_FB2P + *DO ABC1 WITH '129 ',"112 " + lans(10040) +ENDPROC && BAR_4_OF_Repartizar_FB2P + +PROCEDURE BAR_5_OF_Repartizar_FB2P + *DO ABC1 WITH '129 ',"457 " + lans(10041) +ENDPROC && BAR_5_OF_Repartizar_FB2P + +PROCEDURE BAR_6_OF_Repartizar_FB2P + ***DO ABC1 WITH '129 ',"107 " + *DO ABC1 WITH '129 ',"117 " + lans(10042) +ENDPROC && BAR_6_OF_Repartizar_FB2P + +PROCEDURE BAR_7_OF_Repartizar_FB2P + *DO ABC1 WITH '129 ',"1061" + lans(10043) +ENDPROC && BAR_7_OF_Repartizar_FB2P + +* diff --git a/Meniuri/capitaluri7.mn2 b/Meniuri/capitaluri7.mn2 new file mode 100644 index 0000000..339f86e --- /dev/null +++ b/Meniuri/capitaluri7.mn2 @@ -0,0 +1,545 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="capitaluri7.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Imprumutur SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Imprumutur PROMPT "Imprumuturi din emisiuni de obligatiuni 161" +ON BAR 1 OF Imprumutur ACTIVATE POPUP _0u60pn5yf + + *---------------------------------- + DEFINE POPUP _0u60pn5yf SHORTCUT RELATIVE + DEFINE BAR 1 OF _0u60pn5yf PROMPT "Emisiune obligatiuni" ; + MESSAGE '461 :161 ;5121:461 ' + ON SELECTION BAR 1 OF _0u60pn5yf DO BAR_1_OF__0u60pn5yf_FB2P + + DEFINE BAR 2 OF _0u60pn5yf PROMPT "Prime de rambursare" ; + MESSAGE '1691 :161 ' + ON SELECTION BAR 2 OF _0u60pn5yf DO BAR_2_OF__0u60pn5yf_FB2P + + DEFINE BAR 3 OF _0u60pn5yf PROMPT "Rascumparare obligatiuni" ; + MESSAGE '505 :5121;161 :505 ' + ON SELECTION BAR 3 OF _0u60pn5yf DO BAR_3_OF__0u60pn5yf_FB2P + +DEFINE BAR 2 OF Imprumutur PROMPT "Credite bancare pe termen lung 162" +ON BAR 2 OF Imprumutur ACTIVATE POPUP _0u60pv4cj + + *---------------------------------- + DEFINE POPUP _0u60pv4cj SHORTCUT RELATIVE + DEFINE BAR 1 OF _0u60pv4cj PROMPT "Pentru achitarea furnizorilor" ; + MESSAGE '401 :162 ' + ON SELECTION BAR 1 OF _0u60pv4cj DO BAR_1_OF__0u60pv4cj_FB2P + + DEFINE BAR 2 OF _0u60pv4cj PROMPT "Pentru achitarea furnizorilor de imob." ; + MESSAGE '404 :162 ' + ON SELECTION BAR 2 OF _0u60pv4cj DO BAR_2_OF__0u60pv4cj_FB2P + + DEFINE BAR 3 OF _0u60pv4cj PROMPT "Virare in banca" ; + MESSAGE '5121:162 ' + ON SELECTION BAR 3 OF _0u60pv4cj DO BAR_3_OF__0u60pv4cj_FB2P + + DEFINE BAR 4 OF _0u60pv4cj PROMPT "Rambursare credite" ; + MESSAGE '162 :5121' + ON SELECTION BAR 4 OF _0u60pv4cj DO BAR_4_OF__0u60pv4cj_FB2P + +DEFINE BAR 3 OF Imprumutur PROMPT "Datorii ce privesc investitiile financiare 166" +ON BAR 3 OF Imprumutur ACTIVATE POPUP _0u60q01yu + + *---------------------------------- + DEFINE POPUP _0u60q01yu SHORTCUT RELATIVE + DEFINE BAR 1 OF _0u60q01yu PROMPT "Incasare sume" ; + MESSAGE '5121:166 ' + ON SELECTION BAR 1 OF _0u60q01yu DO BAR_1_OF__0u60q01yu_FB2P + + DEFINE BAR 2 OF _0u60q01yu PROMPT "Restituire sume" ; + MESSAGE '166 :5121' + ON SELECTION BAR 2 OF _0u60q01yu DO BAR_2_OF__0u60q01yu_FB2P + +DEFINE BAR 4 OF Imprumutur PROMPT "Alte imprumuturi si datorii asimilate 167" +ON BAR 4 OF Imprumutur ACTIVATE POPUP _0u60q3y8a + + *---------------------------------- + DEFINE POPUP _0u60q3y8a SHORTCUT RELATIVE + DEFINE BAR 1 OF _0u60q3y8a PROMPT "Incasari sume" ; + MESSAGE '5121:167 ' + ON SELECTION BAR 1 OF _0u60q3y8a DO BAR_1_OF__0u60q3y8a_FB2P + + DEFINE BAR 2 OF _0u60q3y8a PROMPT "Rambursare imprumuturi" ; + MESSAGE '167 :5121' + ON SELECTION BAR 2 OF _0u60q3y8a DO BAR_2_OF__0u60q3y8a_FB2P + +DEFINE BAR 5 OF Imprumutur PROMPT "Dobanzi aferente .... 168" +ON BAR 5 OF Imprumutur ACTIVATE POPUP _0u60q6usc + + *---------------------------------- + DEFINE POPUP _0u60q6usc SHORTCUT RELATIVE + DEFINE BAR 1 OF _0u60q6usc PROMPT "Imprumuturilor din emisiuni de obligatiuni 1681" ; + MESSAGE '666 :1681;1681:5121' + ON SELECTION BAR 1 OF _0u60q6usc DO BAR_1_OF__0u60q6usc_FB2P + + DEFINE BAR 2 OF _0u60q6usc PROMPT "Creditelor bancare pe termen lung 1682" ; + MESSAGE '666 :1682;1682:5121' + ON SELECTION BAR 2 OF _0u60q6usc DO BAR_2_OF__0u60q6usc_FB2P + + DEFINE BAR 3 OF _0u60q6usc PROMPT "Datoriilor catre societatile din grup 1685" ; + MESSAGE '666 :1685;1685:5121' + ON SELECTION BAR 3 OF _0u60q6usc DO BAR_3_OF__0u60q6usc_FB2P + + DEFINE BAR 4 OF _0u60q6usc PROMPT "Datoriilor privind interesele de participare 1686" ; + MESSAGE '666 :1686;1686:5121' + ON SELECTION BAR 4 OF _0u60q6usc DO BAR_4_OF__0u60q6usc_FB2P + + DEFINE BAR 5 OF _0u60q6usc PROMPT "Altor imprumuturi si datorii asimilate 1687" ; + MESSAGE '666 :1687;1687:5121' + ON SELECTION BAR 5 OF _0u60q6usc DO BAR_5_OF__0u60q6usc_FB2P +ACTIVATE POPUP Imprumutur + +* + +* +PROCEDURE BAR_1_OF__0u60pn5yf_FB2P + ***DO ABC2 WITH '461 ','161 ','5121','461 ' + *!* m.scd='461 ' + *!* m.scc='161 ' + *!* ***do casa.spr + *!* do alfabeta with; + *!* 'casa',; + *!* "NUMELE CREDITORULUI","CREDITOR","NUME", ; + *!* "NUMELE BANCII","BANNUME","NUME_2", ; + *!* '','','IMPRUMUT EMIS. OBLIGATIUNI', ; + *!* "" + *!* * + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + *!* DO CODARE + *!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT + *!* M.PERECHE=M.NRACT + *!* DO CONTABILIZEAZA WITH '5121','461 ',M.suma,CLASAACT + + *!* do inBANCA + lans(10051) + *!* sele credits + *!* if flock() + *!* REPLACE CREDITS.LUAT WITH CREDITS.LUAT+m.suma + *!* endif + *!* unlock + *!* do sterge +ENDPROC && BAR_1_OF__0u60pn5yf_FB2P + +PROCEDURE BAR_2_OF__0u60pn5yf_FB2P + *DO ABC1 WITH '169 ','161 ' + lans(10052) +ENDPROC && BAR_2_OF__0u60pn5yf_FB2P + +PROCEDURE BAR_3_OF__0u60pn5yf_FB2P + *DO ABC2 WITH '505 ','5121','161 ','505 ' + lans(10053) +ENDPROC && BAR_3_OF__0u60pn5yf_FB2P + +PROCEDURE BAR_1_OF__0u60pv4cj_FB2P + *!* *DO ABC1 WITH '401 ','162 ' + *!* m.scd='401 ' + *!* m.scc='162 ' + *!* ***do casa.spr + *!* do alfabeta with; + *!* 'casa',; + *!* "NUMELE CREDITULUI","CREDITL","NUME", ; + *!* "NUMELE BANCII","BANNUME","NUME_2", ; + *!* '','',"CREDIT FURNIZOR", ; + *!* "INCASARE CREDIT" + *!* * + + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + *!* DO CODARE + *!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT + *!* do inBANCA + *!* sele creditl + *!* if flock() + *!* REPLACE CREDITL.LUAT WITH CREDITL.LUAT+m.suma + *!* endif + *!* unlock + *!* do sterge + + lans(10054) +ENDPROC && BAR_1_OF__0u60pv4cj_FB2P + +PROCEDURE BAR_2_OF__0u60pv4cj_FB2P + *!* *DO ABC1 WITH '404 ','162 ' + + *!* m.scd='404 ' + *!* m.scc='162 ' + *!* ***do casa.spr + *!* do alfabeta with; + *!* 'casa',; + *!* "NUMELE CREDITULUI","CREDITL","NUME", ; + *!* "NUMELE BANCII","BANNUME","NUME_2", ; + *!* '','',"CREDIT FURNIZOR IMOB.", ; + *!* "INCASARE CREDIT" + *!* * + + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + *!* DO CODARE + *!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT + *!* do inBANCA + *!* sele creditl + *!* if flock() + *!* REPLACE CREDITL.LUAT WITH CREDITL.LUAT+m.suma + *!* endif + *!* unlock + *!* do sterge + + lans(10055) +ENDPROC && BAR_2_OF__0u60pv4cj_FB2P + +PROCEDURE BAR_3_OF__0u60pv4cj_FB2P + *!* *DO ABC1 WITH '5121','162 ' + *!* m.scd='5121' + *!* m.scc='162 ' + *!* ***do casa.spr + *!* do alfabeta with; + *!* 'casa',; + *!* "NUMELE CREDITULUI","CREDITL","NUME", ; + *!* "NUMELE BANCII","BANNUME","NUME_2", ; + *!* '','',"CREDIT IN BANCA", ; + *!* "INCASARE CREDIT" + *!* * + + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + *!* DO CODARE + *!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT + *!* do inBANCA + *!* sele creditl + *!* if flock() + *!* REPLACE CREDITL.LUAT WITH CREDITL.LUAT+m.suma + *!* endif + *!* unlock + *!* do sterge + + + lans(10056) +ENDPROC && BAR_3_OF__0u60pv4cj_FB2P + +PROCEDURE BAR_4_OF__0u60pv4cj_FB2P + *!* *DO ABC1 WITH '162 ','5121' + + *!* m.scd='162 ' + *!* m.scc='5121' + *!* ***do casa.spr + *!* do alfabeta with; + *!* 'casa',; + *!* "CREDITUL","CREDITL","NUME", ; + *!* "NUMELE BANCII","BANNUME","NUME_2", ; + *!* '','',"RAMBURSARE CREDIT", ; + *!* "RAMBURSARE CREDIT" + *!* * + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + *!* DO CODARE + *!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT + *!* do PLBANCA + *!* sele creditl + *!* if flock() + *!* REPLACE CREDITL.DAT WITH CREDITL.DAT+m.suma + *!* endif + *!* unlock + *!* do sterge + lans(10057) +ENDPROC && BAR_4_OF__0u60pv4cj_FB2P + +PROCEDURE BAR_1_OF__0u60q01yu_FB2P + *!* *DO ABC1 WITH '5121','166 ' + *!* m.scd='5121' + *!* m.scc='166 ' + *!* ***do casa.spr + *!* do alfabeta with; + *!* 'casa',; + *!* "NUMELE CREDITULUI","CREDITL","NUME", ; + *!* "NUMELE BANCII","BANNUME","NUME_2", ; + *!* '','',"DATORII-INVESTITII FINANCIARE", ; + *!* "INCASARE CREDIT" + *!* * + + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + *!* DO CODARE + *!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT + *!* do inBANCA + *!* sele creditl + *!* if flock() + *!* REPLACE CREDITL.LUAT WITH CREDITL.LUAT+m.suma + *!* endif + *!* unlock + *!* do sterge + + lans(10058) +ENDPROC && BAR_1_OF__0u60q01yu_FB2P + +PROCEDURE BAR_2_OF__0u60q01yu_FB2P + *!* *DO ABC1 WITH '166 ','5121' + *!* m.scd='166 ' + *!* m.scc='5121' + *!* ***do casa.spr + *!* do alfabeta with; + *!* 'casa',; + *!* "CREDITUL","CREDITL","NUME", ; + *!* "NUMELE BANCII","BANNUME","NUME_2", ; + *!* '','',"RAMBURSARE CREDIT", ; + *!* "RAMBURSARE CREDIT" + *!* * + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + *!* DO CODARE + *!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT + *!* do PLBANCA + *!* sele creditl + *!* if flock() + *!* REPLACE CREDITL.DAT WITH CREDITL.DAT+m.suma + *!* endif + *!* unlock + *!* do sterge + + lans(10059) +ENDPROC && BAR_2_OF__0u60q01yu_FB2P + +PROCEDURE BAR_1_OF__0u60q3y8a_FB2P + *!* *DO ABC1 WITH '5121','167 ' + *!* m.scd='5121' + *!* m.scc='167 ' + *!* ***do casa.spr + *!* do alfabeta with; + *!* 'casa',; + *!* "NUMELE CREDITULUI","CREDITL","NUME", ; + *!* "NUMELE BANCII","BANNUME","NUME_2", ; + *!* '','',"ALTE IMPRUMUTURI ASIMILATE", ; + *!* "INCASARE CREDIT" + *!* * + + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + *!* DO CODARE + *!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT + *!* do inBANCA + *!* sele creditl + *!* if flock() + *!* REPLACE CREDITL.LUAT WITH CREDITL.LUAT+m.suma + *!* endif + *!* unlock + *!* do sterge + + lans(10060) +ENDPROC && BAR_1_OF__0u60q3y8a_FB2P + +PROCEDURE BAR_2_OF__0u60q3y8a_FB2P + *!* *DO ABC1 WITH '167 ','5121' + *!* m.scd='167 ' + *!* m.scc='5121' + *!* ***do casa.spr + *!* do alfabeta with; + *!* 'casa',; + *!* "CREDITUL","CREDITL","NUME", ; + *!* "NUMELE BANCII","BANNUME","NUME_2", ; + *!* '','',"RAMBURSARE ALTE IMPRUMUTURI", ; + *!* "RAMBURSARE CREDIT" + *!* * + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + *!* DO CODARE + *!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT + *!* do PLBANCA + *!* sele creditl + *!* if flock() + *!* REPLACE CREDITL.DAT WITH CREDITL.DAT+m.suma + *!* endif + *!* unlock + *!* do sterge + + lans(10061) +ENDPROC && BAR_2_OF__0u60q3y8a_FB2P + +PROCEDURE BAR_1_OF__0u60q6usc_FB2P + *!* *DO ABC2 WITH '666 ','1681','1681','5121' + + *!* m.scd='1681' + *!* m.scc='5121' + *!* ***do casa.spr + *!* do alfabeta with; + *!* 'casa',; + *!* "CREDITUL","CREDITL","NUME", ; + *!* "NUMELE BANCII","BANNUME","NUME_2", ; + *!* '','',"DOBANZI-IMPRUM.EMIS.OBLIG.", ; + *!* "DOBANZI LA CREDIT" + *!* * + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + *!* DO CODARE + *!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT + *!* do PLBANCA + *!* m.scd='666 ' + *!* m.scc='1681' + *!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT + *!* sele creditl + *!* if flock() + *!* REPLACE CREDITL.DOBANDA WITH CREDITL.DOBANDA+m.suma + *!* endif + *!* unlock + *!* do sterge + lans(10062) +ENDPROC && BAR_1_OF__0u60q6usc_FB2P + +PROCEDURE BAR_2_OF__0u60q6usc_FB2P + *!* *DO ABC2 WITH '666 ','1682','1682','5121' + + *!* m.scd='1682' + *!* m.scc='5121' + *!* ***do casa.spr + *!* do alfabeta with; + *!* 'casa',; + *!* "CREDITUL","CREDITL","NUME", ; + *!* "NUMELE BANCII","BANNUME","NUME_2", ; + *!* '','',"DOBANZI-CREDIT TERM. LUNG", ; + *!* "DOBANZI LA CREDIT" + *!* * + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + *!* DO CODARE + *!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT + *!* do PLBANCA + *!* m.scd='666 ' + *!* m.scc='1682' + *!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT + *!* sele creditl + *!* if flock() + *!* REPLACE CREDITL.DOBANDA WITH CREDITL.DOBANDA+m.suma + *!* endif + *!* unlock + *!* do sterge + + lans(10063) +ENDPROC && BAR_2_OF__0u60q6usc_FB2P + +PROCEDURE BAR_3_OF__0u60q6usc_FB2P + *!* *DO ABC2 WITH '666 ','1685','1685','5121' + *!* m.scd='1685' + *!* m.scc='5121' + *!* ***do casa.spr + *!* do alfabeta with; + *!* 'casa',; + *!* "CREDITUL","CREDITL","NUME", ; + *!* "NUMELE BANCII","BANNUME","NUME_2", ; + *!* '','',"DOBANZI-DATORII SOC.GRUP", ; + *!* "DOBANZI LA CREDIT" + *!* * + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + *!* DO CODARE + *!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT + *!* do PLBANCA + *!* m.scd='666 ' + *!* m.scc='1685' + *!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT + *!* sele creditl + *!* if flock() + *!* REPLACE CREDITL.DOBANDA WITH CREDITL.DOBANDA+m.suma + *!* endif + *!* unlock + *!* do sterge + + Lans(10064) +ENDPROC && BAR_3_OF__0u60q6usc_FB2P + +PROCEDURE BAR_4_OF__0u60q6usc_FB2P + *!* *DO ABC2 WITH '666 ','1686','1686','5121' + *!* m.scd='1686' + *!* m.scc='5121' + *!* ***do casa.spr + *!* do alfabeta with; + *!* 'casa',; + *!* "CREDITUL","CREDITL","NUME", ; + *!* "NUMELE BANCII","BANNUME","NUME_2", ; + *!* '','',"DOBANZI-DATORII ALTE SOC.", ; + *!* "DOBANZI LA CREDIT" + *!* * + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + *!* DO CODARE + *!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT + *!* do PLBANCA + *!* m.scd='666 ' + *!* m.scc='1686' + *!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT + *!* sele creditl + *!* if flock() + *!* REPLACE CREDITL.DOBANDA WITH CREDITL.DOBANDA+m.suma + *!* endif + *!* unlock + *!* do sterge + + lans(10065) +ENDPROC && BAR_4_OF__0u60q6usc_FB2P + +PROCEDURE BAR_5_OF__0u60q6usc_FB2P + *!* *DO ABC2 WITH '666 ','1687','1687','5121' + *!* m.scd='1687' + *!* m.scc='5121' + *!* ***do casa.spr + *!* do alfabeta with; + *!* 'casa',; + *!* "CREDITUL","CREDITL","NUME", ; + *!* "NUMELE BANCII","BANNUME","NUME_2", ; + *!* '','',"DOBANZI ALTE IMPRUMUTURI", ; + *!* "DOBANZI LA CREDIT" + *!* * + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + *!* DO CODARE + *!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT + *!* do PLBANCA + *!* m.scd='666 ' + *!* m.scc='1687' + *!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT + *!* sele creditl + *!* if flock() + *!* REPLACE CREDITL.DOBANDA WITH CREDITL.DOBANDA+m.suma + *!* endif + *!* unlock + *!* do sterge + + lans(10066) +ENDPROC && BAR_5_OF__0u60q6usc_FB2P + +* diff --git a/Meniuri/capitaluri8.mn2 b/Meniuri/capitaluri8.mn2 new file mode 100644 index 0000000..fe47da7 --- /dev/null +++ b/Meniuri/capitaluri8.mn2 @@ -0,0 +1,34 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="capitaluri8.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP subventii SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF subventii PROMPT "Subventii pentru investiii 4751" ; + MESSAGE '4451:4751' +ON SELECTION BAR 1 OF subventii lans_generic(10604,'4451',,'4751') + +DEFINE BAR 2 OF subventii PROMPT "\-" +ON BAR 2 OF subventii ACTIVATE POPUP _2mu10jcf6 + + *---------------------------------- + DEFINE POPUP _2mu10jcf6 SHORTCUT RELATIVE +DEFINE BAR 3 OF subventii PROMPT "Imprumuturi nerambursabile 4752" ; + MESSAGE '4452:4752' +ON SELECTION BAR 3 OF subventii lans_generic(10604,'4452',,'4752') + +DEFINE BAR 4 OF subventii PROMPT "\-" +ON BAR 4 OF subventii ACTIVATE POPUP _2mu10k6hm + + *---------------------------------- + DEFINE POPUP _2mu10k6hm SHORTCUT RELATIVE +DEFINE BAR 5 OF subventii PROMPT "\ \ No newline at end of file diff --git a/Meniuri/casa1.mn2 b/Meniuri/casa1.mn2 new file mode 100644 index 0000000..029db96 --- /dev/null +++ b/Meniuri/casa1.mn2 @@ -0,0 +1,309 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="casa1.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Casaincasa SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR "81010" OF Casaincasa PROMPT "Ridicat numerar din banca 5121" ; + MESSAGE '5311:581 ; 581:5121' +ON SELECTION BAR 81010 OF Casaincasa DO BAR_"81010"_OF_Casaincasa_FB2P + +DEFINE BAR 2 OF Casaincasa PROMPT "Transfer in alta casa 581" ; + MESSAGE '5311: 581' +ON SELECTION BAR 2 OF Casaincasa DO BAR_2_OF_Casaincasa_FB2P + +DEFINE BAR 3 OF Casaincasa PROMPT "\-" +ON BAR 3 OF Casaincasa ACTIVATE POPUP _0c30mnh75 + + *---------------------------------- + DEFINE POPUP _0c30mnh75 SHORTCUT RELATIVE +DEFINE BAR "81070" OF Casaincasa PROMPT "Restituit avans 542" ; + MESSAGE '5311: 542' +ON SELECTION BAR 81070 OF Casaincasa DO BAR_"81070"_OF_Casaincasa_FB2P + +DEFINE BAR "81080" OF Casaincasa PROMPT "Asociati cont curent 4551" ; + MESSAGE '5311:4551' +ON SELECTION BAR 81080 OF Casaincasa DO BAR_"81080"_OF_Casaincasa_FB2P + +DEFINE BAR 6 OF Casaincasa PROMPT "\-" +ON BAR 6 OF Casaincasa ACTIVATE POPUP _saq0r80dh + + *---------------------------------- + DEFINE POPUP _saq0r80dh SHORTCUT RELATIVE +DEFINE BAR "81020" OF Casaincasa PROMPT "Clienti 4111" ; + MESSAGE '5311:4111' +ON BAR 81020 OF Casaincasa ACTIVATE POPUP Clienti411 + + *---------------------------------- + DEFINE POPUP Clienti411 SHORTCUT RELATIVE + DEFINE BAR 1 OF Clienti411 PROMPT "Fara listare" ; + MESSAGE '5311:4111' + ON SELECTION BAR 1 OF Clienti411 DO BAR_1_OF_Clienti411_FB2P + + DEFINE BAR 2 OF Clienti411 PROMPT "Cu bon fiscal - numerar" ; + MESSAGE '5311:4111 - listare bon fiscal la casa de marcat incasare numerar' + ON SELECTION BAR 2 OF Clienti411 DO casademarcat_roacont WITH 10576 IN oproceduri_casademarcat.prg + + DEFINE BAR 3 OF Clienti411 PROMPT "Cu listare chitanta" ; + MESSAGE '5311:4111' + ON SELECTION BAR 3 OF Clienti411 do clienti_chitanta with 10329 in oproceduri_incasari.prg + + DEFINE BAR 4 OF Clienti411 PROMPT "\-" + ON BAR 4 OF Clienti411 ACTIVATE POPUP _4ck0qymd8 + + *---------------------------------- + DEFINE POPUP _4ck0qymd8 SHORTCUT RELATIVE + DEFINE BAR 5 OF Clienti411 PROMPT "Cu bon fiscal - Bacsis fara TVA" ; + MESSAGE '4111 : 7588 ; 5311:4111' + ON SELECTION BAR 5 OF Clienti411 DO casademarcat_roacont WITH 10619 IN oproceduri_casademarcat.prg + + DEFINE BAR 6 OF Clienti411 PROMPT "Cu bon fiscal - Bacsis cu TVA" ; + MESSAGE '4111 : 7588 ; 4111:4427 ; 5311:4111' + ON SELECTION BAR 6 OF Clienti411 DO casademarcat_roacont WITH 10620 IN oproceduri_casademarcat.prg + +DEFINE BAR "81030" OF Casaincasa PROMPT "Clienti incerti 4118" ; + MESSAGE '5311:4118' +ON SELECTION BAR 81030 OF Casaincasa DO BAR_"81030"_OF_Casaincasa_FB2P + +DEFINE BAR "81040" OF Casaincasa PROMPT "Avansuri TVA" ; + MESSAGE '5311:419 ;5311:4111 ; 4111:4427' +ON SELECTION BAR 81040 OF Casaincasa DO BAR_"81040"_OF_Casaincasa_FB2P + +DEFINE BAR "81050" OF Casaincasa PROMPT "Debitori diversi 461" ; + MESSAGE '5311:461' +ON BAR 81050 OF Casaincasa ACTIVATE POPUP Debitoridi + + *---------------------------------- + DEFINE POPUP Debitoridi SHORTCUT RELATIVE + DEFINE BAR 1 OF Debitoridi PROMPT "Fara listare" ; + MESSAGE '5311:461' + ON SELECTION BAR 1 OF Debitoridi lans(10336) + + DEFINE BAR 2 OF Debitoridi PROMPT "Cu bon fiscal - numerar" ; + MESSAGE '5311:461' + ON SELECTION BAR 2 OF Debitoridi DO BAR_2_OF_Debitoridi_FB2P + + DEFINE BAR 3 OF Debitoridi PROMPT "Cu listare chitanta" ; + MESSAGE '5311:461' + ON SELECTION BAR 3 OF Debitoridi DO BAR_3_OF_Debitoridi_FB2P + +DEFINE BAR "81060" OF Casaincasa PROMPT "Creditori diversi 462" ; + MESSAGE '5311:462' +ON SELECTION BAR 81060 OF Casaincasa lans(10337) + +DEFINE BAR 12 OF Casaincasa PROMPT "\-" +ON BAR 12 OF Casaincasa ACTIVATE POPUP _15w0ulhbx + + *---------------------------------- + DEFINE POPUP _15w0ulhbx SHORTCUT RELATIVE +DEFINE BAR 13 OF Casaincasa PROMPT "Incasare monetar" ; + MESSAGE '4111 : 707 ; 4111:4427 ; 5311:4111' +ON SELECTION BAR 13 OF Casaincasa DO BAR_13_OF_Casaincasa_FB2P + +DEFINE BAR 14 OF Casaincasa PROMPT "Incasare imputatii 428x" ; + MESSAGE '5311 : 428X' +ON SELECTION BAR 14 OF Casaincasa DO BAR_14_OF_Casaincasa_FB2P + +DEFINE BAR 15 OF Casaincasa PROMPT "Decontari in cadrul grupului 4511" ; + MESSAGE ' 5311 : 4511' +ON SELECTION BAR 15 OF Casaincasa lans(10525) + +DEFINE BAR 16 OF Casaincasa PROMPT "Drepturi neridicate 426" ; + MESSAGE '5311:426' +ON SELECTION BAR 16 OF Casaincasa lans(10580) + +DEFINE BAR 17 OF Casaincasa PROMPT "Incasare garantii 267X" ; + MESSAGE '5311 : 2678' +ON SELECTION BAR 17 OF Casaincasa DO BAR_17_OF_Casaincasa_FB2P + +DEFINE BAR 18 OF Casaincasa PROMPT "Incasare diverse 4xx/ 7xx" ; + MESSAGE '5311:4xx' +ON BAR 18 OF Casaincasa ACTIVATE POPUP Incasaredi + + *---------------------------------- + DEFINE POPUP Incasaredi SHORTCUT RELATIVE + DEFINE BAR 1 OF Incasaredi PROMPT "Fara listare 4xx" ; + MESSAGE '5311:4xx' + ON SELECTION BAR 1 OF Incasaredi DO BAR_1_OF_Incasaredi_FB2P + + DEFINE BAR 2 OF Incasaredi PROMPT "Cu bon fiscal - numerar 4xx" ; + MESSAGE '5311:4xx' + ON SELECTION BAR 2 OF Incasaredi DO BAR_2_OF_Incasaredi_FB2P + + DEFINE BAR 3 OF Incasaredi PROMPT "Cu chitanta 4xx" ; + MESSAGE '5311:4xx' + ON SELECTION BAR 3 OF Incasaredi DO BAR_3_OF_Incasaredi_FB2P +ACTIVATE POPUP Casaincasa + +* + +* +PROCEDURE BAR_"81010"_OF_Casaincasa_FB2P + *DO MENIU81010 + LANS(10330) +ENDPROC && BAR_"81010"_OF_Casaincasa_FB2P + +PROCEDURE BAR_2_OF_Casaincasa_FB2P + LANS(10331) + *!* m.scd='5311 ' + *!* m.scc='581 ' + + *!* do alfabeta with; + *!* 'casac','','','',"","","",'','',"TRANSFER CASE","TRANSFER CASE" + *!* * + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + *!* DO CODARE + *!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT + *!* do INCASA + + *!* do sterge + *!* RETURN +ENDPROC && BAR_2_OF_Casaincasa_FB2P + +PROCEDURE BAR_"81070"_OF_Casaincasa_FB2P + *DO MENIU81070 + LANS(10332) +ENDPROC && BAR_"81070"_OF_Casaincasa_FB2P + +PROCEDURE BAR_"81080"_OF_Casaincasa_FB2P + *DO MENIU81080 + lans(10333) +ENDPROC && BAR_"81080"_OF_Casaincasa_FB2P + +PROCEDURE BAR_1_OF_Clienti411_FB2P + lans(10329) +ENDPROC && BAR_1_OF_Clienti411_FB2P + +PROCEDURE BAR_"81030"_OF_Casaincasa_FB2P + *DO MENIU810201 + lans(10334) +ENDPROC && BAR_"81030"_OF_Casaincasa_FB2P + +PROCEDURE BAR_"81040"_OF_Casaincasa_FB2P + *DO MENIU81040 + LANS(10335) +ENDPROC && BAR_"81040"_OF_Casaincasa_FB2P + +PROCEDURE BAR_2_OF_Debitoridi_FB2P + && 5311 = X + PRIVATE pcACN + CN= '461' + pcACN = '' + DO casademarcat_roacont WITH 10631 IN oproceduri_casademarcat.prg +ENDPROC && BAR_2_OF_Debitoridi_FB2P + +PROCEDURE BAR_3_OF_Debitoridi_FB2P + && 5311 = X + PRIVATE pcACN + CN= '461' + pcACN = '' + + do clienti_chitanta with 10630 in oproceduri_incasari.prg +ENDPROC && BAR_3_OF_Debitoridi_FB2P + +PROCEDURE BAR_13_OF_Casaincasa_FB2P + PRIVATE pcACN + loCont=ret_cont("Selectati contul",'704,707') &&,4461,4462,4463,4464,4465,4466,4467,4468,4469') + + IF TYPE('loCont') # 'O' + RETURN + ENDIF + + IF buton=2 + RELEASE loCont + RETURN + ENDIF + CN=locont.cont + PcACN=loCont.Acont + lans(10493) +ENDPROC && BAR_13_OF_Casaincasa_FB2P + +PROCEDURE BAR_14_OF_Casaincasa_FB2P + PRIVATE pcACN + loCont=ret_cont("Selectati contul",'428') && ,4481,4482') + IF TYPE('loCont') # 'O' + RETURN + ENDIF + IF buton=2 + RELEASE loCont + RETURN + ENDIF + CN=locont.cont + PcACN=loCont.Acont + lans(10547) +ENDPROC && BAR_14_OF_Casaincasa_FB2P + +PROCEDURE BAR_17_OF_Casaincasa_FB2P + PRIVATE pcACN + loCont=ret_cont("Selectati contul creditor 5311:267X",'267') + + IF TYPE('loCont') # 'O' + RETURN + ENDIF + + IF buton=2 + RELEASE loCont + RETURN + ENDIF + CN=locont.cont + PcACN=loCont.Acont + lans(10582) +ENDPROC && BAR_17_OF_Casaincasa_FB2P + +PROCEDURE BAR_1_OF_Incasaredi_FB2P + PRIVATE pcACN + loCont=ret_cont("Selectati contul",'4,7') + IF TYPE('loCont') # 'O' + RETURN + ENDIF + IF buton=2 + RELEASE loCont + RETURN + ENDIF + CN=locont.cont + PcACN=loCont.Acont + lans(10630) +ENDPROC && BAR_1_OF_Incasaredi_FB2P + +PROCEDURE BAR_2_OF_Incasaredi_FB2P + * 5311 = 4xx + PRIVATE pcACN + loCont=ret_cont("Selectati contul",'4,7') + IF TYPE('loCont') # 'O' + RETURN + ENDIF + IF buton=2 + RELEASE loCont + RETURN + ENDIF + CN=locont.cont + PcACN=loCont.Acont + + DO casademarcat_roacont WITH 10631 IN oproceduri_casademarcat.prg +ENDPROC && BAR_2_OF_Incasaredi_FB2P + +PROCEDURE BAR_3_OF_Incasaredi_FB2P + * 5311 = 4xx + PRIVATE pcACN + loCont=ret_cont("Selectati contul",'4,7') + IF TYPE('loCont') # 'O' + RETURN + ENDIF + IF buton=2 + RELEASE loCont + RETURN + ENDIF + CN=locont.cont + PcACN=loCont.Acont + + do clienti_chitanta with 10630 in oproceduri_incasari.prg +ENDPROC && BAR_3_OF_Incasaredi_FB2P + +* diff --git a/Meniuri/casa2.mn2 b/Meniuri/casa2.mn2 new file mode 100644 index 0000000..25be52c --- /dev/null +++ b/Meniuri/casa2.mn2 @@ -0,0 +1,646 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="casa2.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Casaplati SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR "82010" OF Casaplati PROMPT "Depunere numerar in banca" ; + MESSAGE '581 :5311;5121:581' +ON SELECTION BAR 82010 OF Casaplati DO BAR_"82010"_OF_Casaplati_FB2P + +DEFINE BAR 2 OF Casaplati PROMPT "Transfer in alta casa" ; + MESSAGE '581 :5311' +ON SELECTION BAR 2 OF Casaplati DO BAR_2_OF_Casaplati_FB2P + +DEFINE BAR 3 OF Casaplati PROMPT "Transferuri intre case" ; + MESSAGE '581 :5311;5311:581 ' +ON SELECTION BAR 3 OF Casaplati DO BAR_3_OF_Casaplati_FB2P + +DEFINE BAR 4 OF Casaplati PROMPT "\-" +ON BAR 4 OF Casaplati ACTIVATE POPUP _0c30moka3 + + *---------------------------------- + DEFINE POPUP _0c30moka3 SHORTCUT RELATIVE +DEFINE BAR "82020" OF Casaplati PROMPT "Acordare avans materiale" ; + MESSAGE '542 :5311' +ON SELECTION BAR 82020 OF Casaplati DO BAR_"82020"_OF_Casaplati_FB2P + +DEFINE BAR "82100" OF Casaplati PROMPT "Asociati conturi curente" ; + MESSAGE '4551:5311' +ON SELECTION BAR 82100 OF Casaplati DO BAR_"82100"_OF_Casaplati_FB2P + +DEFINE BAR 7 OF Casaplati PROMPT "\-" +ON BAR 7 OF Casaplati ACTIVATE POPUP _saq0r5jfn + + *---------------------------------- + DEFINE POPUP _saq0r5jfn SHORTCUT RELATIVE +DEFINE BAR 8 OF Casaplati PROMPT "Plati furnizori" +ON BAR 8 OF Casaplati ACTIVATE POPUP Platifurni + + *---------------------------------- + DEFINE POPUP Platifurni SHORTCUT RELATIVE + DEFINE BAR 1 OF Platifurni PROMPT "Plati multiple 401" ; + MESSAGE '401 :5311' + ON SELECTION BAR 1 OF Platifurni DO BAR_1_OF_Platifurni_FB2P + + DEFINE BAR 2 OF Platifurni PROMPT "Furnizori imobilizari 404" ; + MESSAGE '404 :5311' + ON SELECTION BAR 2 OF Platifurni DO BAR_2_OF_Platifurni_FB2P + + DEFINE BAR 3 OF Platifurni PROMPT "Avansuri furnizori 409" ; + MESSAGE '409 :5311' + ON SELECTION BAR 3 OF Platifurni DO BAR_3_OF_Platifurni_FB2P + +DEFINE BAR 9 OF Casaplati PROMPT "Plati furnizori in valuta" ; + MESSAGE '581 - 5311; 5311 - 581; 5311 - 5311; 5311 - 401' +ON BAR 9 OF Casaplati ACTIVATE POPUP _4y40sqh7w + + *---------------------------------- + DEFINE POPUP _4y40sqh7w SHORTCUT RELATIVE + DEFINE BAR 1 OF _4y40sqh7w PROMPT "Plati furnizori 401" ; + MESSAGE '401 :5311' + ON SELECTION BAR 1 OF _4y40sqh7w lans(10625) + + DEFINE BAR 2 OF _4y40sqh7w PROMPT "Plati furnizori imobilizari 404" ; + MESSAGE '404 :5311' + ON SELECTION BAR 2 OF _4y40sqh7w lans(10626) + + DEFINE BAR 3 OF _4y40sqh7w PROMPT "Plati creditori 462" ; + MESSAGE '462 :5311' + ON SELECTION BAR 3 OF _4y40sqh7w lans(10627) + +DEFINE BAR "82120" OF Casaplati PROMPT "Debitori diversi" ; + MESSAGE '461 :5311' +ON SELECTION BAR 82120 OF Casaplati DO BAR_"82120"_OF_Casaplati_FB2P + +DEFINE BAR "82130" OF Casaplati PROMPT "Creditori diversi" ; + MESSAGE '462 :5311' +ON SELECTION BAR 82130 OF Casaplati DO BAR_"82130"_OF_Casaplati_FB2P + +DEFINE BAR 12 OF Casaplati PROMPT "\-" +ON BAR 12 OF Casaplati ACTIVATE POPUP _saq0r5jfo + + *---------------------------------- + DEFINE POPUP _saq0r5jfo SHORTCUT RELATIVE +DEFINE BAR "82070" OF Casaplati PROMPT "Salarii" +ON BAR 82070 OF Casaplati ACTIVATE POPUP Salarii421 + + *---------------------------------- + DEFINE POPUP Salarii421 SHORTCUT RELATIVE + DEFINE BAR 1 OF Salarii421 PROMPT "\ + +* +PROCEDURE BAR_"82010"_OF_Casaplati_FB2P + *DO MENIU82010 + lans(10338) +ENDPROC && BAR_"82010"_OF_Casaplati_FB2P + +PROCEDURE BAR_2_OF_Casaplati_FB2P + lans(10339) + *!* m.scd='581 ' + *!* m.scc='5311' + + *!* do alfabeta with; + *!* 'casac','','','',"","","",'','',"TRANSFER CASE","TRANSFER CASE" + *!* * + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + *!* DO CODARE + *!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT + *!* do plCASA + + *!* do sterge + *!* RETURN +ENDPROC && BAR_2_OF_Casaplati_FB2P + +PROCEDURE BAR_3_OF_Casaplati_FB2P + lans(10450) + *!* m.scd='581 ' + *!* m.scc='5311' + + *!* do alfabeta with; + *!* 'casac','','','',"","","",'','',"TRANSFER CASE","TRANSFER CASE" + *!* * + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + *!* DO CODARE + *!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT + *!* do plCASA + + *!* DO caut_alfa WITH 'casanume','casa','Casa destinatie','m.casa' + *!* IF buton=2 + *!* DO sterge + *!* RETURN + *!* ENDIF + + *!* m.nume_3=m.casa + *!* l=m.scd + *!* m.scd=m.scc + *!* m.scc=l + *!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT + *!* do inCASA + + *!* do sterge + *!* RETURN +ENDPROC && BAR_3_OF_Casaplati_FB2P + +PROCEDURE BAR_"82020"_OF_Casaplati_FB2P + *DO MENIU82020 + lans(10340) +ENDPROC && BAR_"82020"_OF_Casaplati_FB2P + +PROCEDURE BAR_"82100"_OF_Casaplati_FB2P + *DO MENIU82100 + LANS(10344) +ENDPROC && BAR_"82100"_OF_Casaplati_FB2P + +PROCEDURE BAR_1_OF_Platifurni_FB2P + LANS(10345) + *!* m.scd='401 ' + *!* m.scc='5311 ' + *!* do alfabetaper with; + *!* 'casapermul',; + *!* "NUMELE FURNIZORULUI","FURNIZOR","NUME", ; + *!* "NUMELE CASEI","CASANUME","CASA", ; + *!* '','',"PLATA FURNIZOR", ; + *!* "PLATA FURNIZOR",'c' + *!* * + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + *!* *M.COD=COD + *!* *M.SUMA=TOTCTVA-achitat + *!* *M.PERECHE=NRACT + *!* *m.nract1=nract + + *!* M.NUME_3=M.CASA + *!* m.nract=numaract + + *!* *DO CODARE + *!* sele 0 + *!* use &loc\&nfscurt\tempo\actcv + *!* sele actcv + *!* scan for ales + *!* M.PERECHE=NRACT + *!* m.suma=sumaachi + *!* DO CODARE + *!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT + *!* do plCASA + *!* sele furnizor + *!* if flock() + *!* repl furnizor.platit with furnizor.platit+m.suma + *!* endif + *!* unlock + *!* endscan + *!* use in actcv + *!* do sterge + *!* RETURN + + + + + + + + + + + + + + +ENDPROC && BAR_1_OF_Platifurni_FB2P + +PROCEDURE BAR_2_OF_Platifurni_FB2P + *DO MENIU82050 + LANS(10346) +ENDPROC && BAR_2_OF_Platifurni_FB2P + +PROCEDURE BAR_3_OF_Platifurni_FB2P + PRIVATE pcACN, CN + loCont = ret_cont("Selectati contul",'409') && ,4091,4092') + IF TYPE('loCont') # 'O' + RETURN + ENDIF + IF buton = 2 + RELEASE loCont + RETURN + ENDIF + + CN = locont.cont + PcACN = loCont.Acont + LANS(10347) +ENDPROC && BAR_3_OF_Platifurni_FB2P + +PROCEDURE BAR_"82120"_OF_Casaplati_FB2P + *DO MENIU82120 + lans(10348) +ENDPROC && BAR_"82120"_OF_Casaplati_FB2P + +PROCEDURE BAR_"82130"_OF_Casaplati_FB2P + *DO MENIU82130 + lans(10349) +ENDPROC && BAR_"82130"_OF_Casaplati_FB2P + +PROCEDURE BAR_1_OF_Salarii421_FB2P + lans(10350) + *!* *____________________________________________________________________________________________ + *!* *PROCEDURE MENIU82070 + + *!* m.scd='421' + *!* m.scc='5311' + + *!* m.explicatia='PLATA SALARII CONTRACT' + *!* oa=createo('actsimc') + *!* oa.show(1) + + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + *!* DO CODARE + *!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT + *!* do plCASA + *!* do sterge + + *!* *RETURN +ENDPROC && BAR_1_OF_Salarii421_FB2P + +PROCEDURE BAR_2_OF_Salarii421_FB2P + lans(10351) + *!* *____________________________________________________________________________________________ + *!* *PROCEDURE MENIU82070 + + *!* m.scd='4211' + *!* m.scc='5311' + + *!* m.explicatia='PLATA SALARII CONTRACT' + *!* oa=createo('actsimc') + *!* oa.show(1) + + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + *!* DO CODARE + *!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT + *!* do plCASA + *!* do sterge + + *!* *RETURN +ENDPROC && BAR_2_OF_Salarii421_FB2P + +PROCEDURE BAR_3_OF_Salarii421_FB2P + lans(10352) + *!* m.scd='4212' + *!* m.scc='5311' + + *!* m.explicatia='PLATA SALARII CONVENTIE' + *!* oa=createo('actsimc') + *!* oa.show(1) + + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + *!* DO CODARE + *!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT + *!* do plCASA + *!* do sterge +ENDPROC && BAR_3_OF_Salarii421_FB2P + +PROCEDURE BAR_4_OF_Salarii421_FB2P + PRIVATE pcACN, CN + loCont = ret_cont("Selectati contul",'4281,4282') && ,4091,4092') + IF TYPE('loCont') # 'O' + RETURN + ENDIF + IF buton = 2 + RELEASE loCont + RETURN + ENDIF + + CN = locont.cont + PcACN = loCont.Acont + If CN='4281' + LANS(10353) + Else + LANS(10579) + EndIf + + + + + *LANS(10353) + *!* m.scd='4281' + *!* m.scc='5311' + + *!* m.explicatia='Datorii legate de personal' + *!* oa=createo('actsimc') + *!* oa.show(1) + + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + *!* DO CODARE + *!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT + *!* do plCASA + *!* do sterge +ENDPROC && BAR_4_OF_Salarii421_FB2P + +PROCEDURE BAR_"82080"_OF_Casaplati_FB2P + *DO MENIU82080 + LANS(10354) +ENDPROC && BAR_"82080"_OF_Casaplati_FB2P + +PROCEDURE BAR_"82090"_OF_Casaplati_FB2P + LANS(10355) + *!* DO MENIU82090 +ENDPROC && BAR_"82090"_OF_Casaplati_FB2P + +PROCEDURE BAR_"82110"_OF_Casaplati_FB2P + LANS(10356) + *DO MENIU82110 +ENDPROC && BAR_"82110"_OF_Casaplati_FB2P + +PROCEDURE BAR_18_OF_Casaplati_FB2P + lans(10468) + IF buton=2 + DO deschid_actc + RETURN + ENDIF + DO plati_impozite WITH 10468 IN ocont2003.prg + + *!* lans(10468) + *!* IF buton=2 + *!* DO deschid_actc + *!* RETURN + *!* ENDIF + + + *!* IF USED('plimp') + *!* USE IN plimp + *!* ENDIF + *!* + *!* COPY FILE &DIRGEN\_ALFA\AN0000\DATE00\plimp.* to &LOC\&NFSCURT\TEMPO\plimp.* + *!* DO des WITH 'PLIMP' + *!* + *!* SELE PLIMP + *!* INDEX ON scd TAG scd OF &loc\&nfscurt\tempo\ZZZ + *!* SET ORDER TO TAG scd + + *!* REPL ALL SUMA WITH 0 + *!* * REPLACE ALL ascd WITH '', ascc WITH '' + *!* REPL ALL NRACT WITH M.NRACT + *!* REPL ALL scc WITH '5311' FOR INLIST(scc,'5121') + + *!* GO TOP + *!* oaf=CREATE('afisanaa') + *!* oaf.SHOW(1) + *!* m.NUME='' + *!* SELE PLIMP + *!* SUM SUMA TO M.SUMA + + + *!* IF buton=2 + *!* DO deschid_actc + *!* RETURN + *!* ENDIF + + *!* + *!* SELECT PLIMP + *!* SCAN FOR SUMA#0 + *!* SCATTER MEMVAR + *!* SELECT actactan + *!* GO top + *!* SCATTER FIELDS id_set, nume_3, dataact, dataireg, fdoc MEMVAR + *!* DELETE + *!* APPEND BLANK + *!* GATHER memv + *!* + *!* SCRIE_IN_FISIERE(' ') + *!* SELECT PLIMP + *!* ENDSCAN + + *!* DO deschid_actc +ENDPROC && BAR_18_OF_Casaplati_FB2P + +PROCEDURE BAR_"82140"_OF_Casaplati_FB2P + PRIVATE pcACN + loCont=ret_cont("Selectati contul",'446') && ,4461,4462,4463,4464,4465,4466,4467,4468,4469') + IF TYPE('loCont') # 'O' + RETURN + ENDIF + IF buton=2 + RELEASE loCont + RETURN + ENDIF + CN=locont.cont + PcACN=loCont.Acont + + LANS(10357) +ENDPROC && BAR_"82140"_OF_Casaplati_FB2P + +PROCEDURE BAR_"82160"_OF_Casaplati_FB2P + lans(10359) + *DO MENIU82160 +ENDPROC && BAR_"82160"_OF_Casaplati_FB2P + +PROCEDURE BAR_"82170"_OF_Casaplati_FB2P + lans(10360) + *DO MENIU82170 +ENDPROC && BAR_"82170"_OF_Casaplati_FB2P + +PROCEDURE BAR_"82180"_OF_Casaplati_FB2P + lans(10361) + *DO MENIU82180 +ENDPROC && BAR_"82180"_OF_Casaplati_FB2P + +PROCEDURE BAR_23_OF_Casaplati_FB2P + lans(10362) + *!* *ALFA='m.numeg=""' + *!* *BETA='m.numeg=""' + *!* *GAMA='m.numeg="PLATA GRATIFICATII"' + + *!* m.scd='625 ' + *!* m.scc='5311 ' + *!* ***do casa.spr + *!* do alfabeta with; + *!* 'actsimc',; + *!* '','','', ; + *!* '','','', ; + *!* '','',"PLATA DEPLASARI", ; + *!* "PLATA DEPLASARI" + *!* * + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + *!* DO CODARE + *!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT + *!* do PLCASA + + *!* do sterge + + +ENDPROC && BAR_23_OF_Casaplati_FB2P + +PROCEDURE BAR_24_OF_Casaplati_FB2P + PRIVATE pcACN + loCont=ret_cont("Selectati contul",'448') &&,4481,4482') + + IF TYPE('loCont') # 'O' + RETURN + ENDIF + IF buton=2 + RELEASE loCont + RETURN + ENDIF + CN=locont.cont + PcACN=loCont.Acont + lans(10513) +ENDPROC && BAR_24_OF_Casaplati_FB2P + +PROCEDURE BAR_"82190"_OF_Casaplati_FB2P + lans(10363) + *do MENIU82190 +ENDPROC && BAR_"82190"_OF_Casaplati_FB2P + +PROCEDURE BAR_28_OF_Casaplati_FB2P + LANS(10365) +ENDPROC && BAR_28_OF_Casaplati_FB2P + +PROCEDURE BAR_29_OF_Casaplati_FB2P + PRIVATE pcACN + loCont=ret_cont("Selectati contul debitor 267X:5311",'267') + + IF TYPE('loCont') # 'O' + RETURN + ENDIF + + IF buton=2 + RELEASE loCont + RETURN + ENDIF + CN=locont.cont + PcACN=loCont.Acont + lans(10583) +ENDPROC && BAR_29_OF_Casaplati_FB2P + +PROCEDURE BAR_31_OF_Casaplati_FB2P + PRIVATE pcACN + loCont=ret_cont("Selectati contul",'4,6') + IF TYPE('loCont') # 'O' + RETURN + ENDIF + IF buton=2 + RELEASE loCont + RETURN + ENDIF + CN=locont.cont + PcACN=loCont.Acont + lans(10632) +ENDPROC && BAR_31_OF_Casaplati_FB2P + +* diff --git a/Meniuri/casa3.mn2 b/Meniuri/casa3.mn2 new file mode 100644 index 0000000..41fc5ad --- /dev/null +++ b/Meniuri/casa3.mn2 @@ -0,0 +1,513 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="casa3.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Casainvalu SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Casainvalu PROMPT "\ + +* +PROCEDURE BAR_1_OF__08x0o1q7r_FB2P + *____________________________________________________________________________________________ + *PROCEDURE MENIU81010 + + lans(10427) + *!* m.scd='5314 ' + *!* m.scc='581 ' + + *!* do alfabeta with; + *!* 'casaV','NUMELE CASEI IN VALUTA','CASVNUME','NUME_5',; + *!* "NUMELE BANCII IN VALUTA","BANVNUME","NUME_3",; + *!* 'CURSUL VALUTAR','',"","DO CURS.SPR" + *!* * + + *!* M.NUME='' + *!* M.NUME_2='' + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + *!* DO CODARE + *!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT + *!* do INVALCASA + *!* m.scd='581 ' + *!* m.scc='5124 ' + *!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT + *!* DO PLVALBANCA + *!* do sterge + *!* RETURN + +ENDPROC && BAR_1_OF__08x0o1q7r_FB2P + +PROCEDURE BAR_2_OF__08x0o1q7r_FB2P + lans(10430) + *!* m.scd='5314' + *!* m.scc='542 ' + + *!* do alfabeta with; + *!* 'casaV',; + *!* "NUMELE ACHIZITORULUI","ACHIT542","NUME_2",; + *!* 'CASA IN VALUTA','CASVNUME','NUME_5',; + *!* 'CURSUL VALUTAR','','', ; + *!* 'do curs.spr' + *!* m.nume_3=m.nume_2 + *!* M.NUME_2='' + *!* * + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + *!* DO CODARE + *!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT + *!* do inVALCASA + + *!* SELE ACHIT542 + *!* REPLACE DAT WITH DAT+m.suma + + *!* SELE ACT + *!* do sterge + *!* RETURN + +ENDPROC && BAR_2_OF__08x0o1q7r_FB2P + +PROCEDURE BAR_3_OF__08x0o1q7r_FB2P + *____________________________________________________________________________________________ + *PROCEDURE MENIU81060 + lans(10501) + *!* m.scd='5314 ' + *!* m.scc='462 ' + + *!* do alfabeta with; + *!* 'casaV',; + *!* "NUMELE CREDITORULUI","CREDITOR","NUME",; + *!* 'CASA IN VALUTA','CASVNUME','NUME_5',; + *!* 'CURSUL VALUTAR','','', ; + *!* 'do curs.spr' + *!* * + *!* M.NUME_2='' + *!* * + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + *!* DO CODARE + *!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT + *!* do inVALCASA + *!* SELE CREDITOR + *!* REPLACE LUAT WITH LUAT +m.suma + *!* SELE ACT + *!* do sterge + *!* RETURN + +ENDPROC && BAR_3_OF__08x0o1q7r_FB2P + +PROCEDURE BAR_7_OF__08x0o1q7r_FB2P + lans(10426) + *!* *____________________________________________________________________________________________ + *!* *PROCEDURE MENIU86140 + *!* local sumacorecta,diferente + *!* sTore 0 to sumacorecta,diferente + *!* m.scd='5314 ' + *!* m.scc='411 ' + + *!* do alfabetaper with; + *!* 'casaPERVAL',; + *!* "NUMELE CLIENTULUI","CLIEnti","NUME", ; + *!* "NUMELE CASEI IN VALUTA","CASvNUME","NUME_5", ; + *!* 'CURSUL VALUTAR','','', ; + *!* 'do curs.spr','v' + *!* * + *!* sumacorecta=m.suma*m.cursvechi/m.cursschimb + *!* diferente=m.suma-sumacorecta + + + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + *!* DO CODARE + + *!* *M.NUME_3=M.NUME_2 + *!* M.NUME_2='' + + *!* LOCAL C + *!* C=M.CURSSCHIMB + *!* M.CURSSCHIMB=M.CURSVECHI + *!* M.SUMA_3=M.CURSVECHI + *!* DO CONTABILIZEAZA WITH m.scd,m.scc,sumacorecta,CLASAACT + *!* M.CASA=M.NUME_5 + *!* DO INVALCASA + + + *!* DO CASE + *!* CASE diferente>0 + *!* m.explicatia='DIFERENTE FAVORABILE' + *!* M.SUMA_3=C + *!* M.CURSSCHIMB=C + *!* M.SUMA_2=0 + *!* DO CONTABILIZEAZA WITH '5314','765 ',diferente,CLASAACT + *!* M.SUMAVAL=0 + *!* DO INVALBANCA + *!* CASE diferente<0 + *!* m.explicatia='DIFERENTE NEFAVORABILE' + *!* M.SUMA_3=C + *!* M.CURSSCHIMB=C + *!* M.SUMA_2=0 + *!* DO CONTABILIZEAZA WITH '665 ','411',-diferente,CLASAACT + *!* M.SUMAVAL=0 + *!* DO PLVALBANCA + *!* endCASE + + + + + *!* SELE CLIEnti + *!* REPLACE CLIEnti.incasat WITH CLIEnti.incasat+m.suma + + *!* do sterge + *!* RETURN + + +ENDPROC && BAR_7_OF__08x0o1q7r_FB2P + +PROCEDURE BAR_8_OF__08x0o1q7r_FB2P + *____________________________________________________________________________________________ + *PROCEDURE MENIU86150 + lans(10428) + *!* m.scd='5314' + *!* m.scc='419 ' + + *!* do alfabeta with; + *!* 'casAV',; + *!* "NUMELE CLIENTULUI","CLIEnti","NUME", ; + *!* "NUMELE CASEI IN VALUTA","CASvNUME","NUME_5", ; + *!* 'CURSUL VALUTAR','','', ; + *!* 'do curs.spr' + *!* * + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + *!* *M.NUME_3=M.NUME_2 + *!* M.NUME_2='' + *!* DO CODARE + *!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT + + *!* M.CASA=M.NUME_5 + *!* DO INVALCASA + *!* SELE clienti + *!* REPLACE clienti.incasat WITH clienti.incasat+m.suma + *!* do sterge +ENDPROC && BAR_8_OF__08x0o1q7r_FB2P + +PROCEDURE BAR_9_OF__08x0o1q7r_FB2P + *____________________________________________________________________________________________ + *PROCEDURE MENIU81050 + *lans(10429) + lans(10503) + *!* m.scd='5314' + *!* m.scc='461 ' + *!* ***do casa.spr + *!* do alfabeta with; + *!* 'casaV',; + *!* "NUMELE DEBITORULUI","DEBITOR","NUME",; + *!* 'CASA IN VALUTA','CASVNUME','NUME_5',; + *!* 'CURSUL VALUTAR','','', ; + *!* 'do curs.spr' + *!* * + *!* M.NUME_2='' + + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + *!* DO CODARE + *!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT + *!* do inVALCASA + *!* SELE DEBITOR + *!* REPLACE DAT WITH DAT +m.suma + *!* SELE ACT + *!* do sterge + *!* RETURN +ENDPROC && BAR_9_OF__08x0o1q7r_FB2P + +PROCEDURE BAR_1_OF__08x0o1q7s_FB2P + *____________________________________________________________________________________________ + *PROCEDURE MENIU82010 + lans(10431) + *!* m.scd='581 ' + *!* m.scc='5314' + *!* ***do casa.spr + *!* do alfabeta with; + *!* 'casaV',; + *!* 'CASA IN VALUTA','CASVNUME','NUME_5',; + *!* "BANCA IN VALUTA","BANVNUME","NUME_3",; + *!* 'CURSUL VALUTAR','',"","DO CURS.SPR" + *!* + *!* + *!* * + *!* M.NUME='' + *!* M.NUME_2='' + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + *!* DO CODARE + *!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT + *!* M.CASA=M.NUME_5 + *!* do PLVALCASA + *!* m.scd='5124' + *!* m.scc='581 ' + *!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT + *!* M.BANCA=M.NUME_3 + *!* DO INVALBANCA + *!* do sterge +ENDPROC && BAR_1_OF__08x0o1q7s_FB2P + +PROCEDURE BAR_2_OF__08x0o1q7s_FB2P + lans(10432) + *!* m.scd='542 ' + *!* m.scc='5314' + + *!* do alfabeta with; + *!* 'casaV',; + *!* "NUMELE ACHIZITORULUI","ACHIT542","NUME_2",; + *!* 'CASA IN VALUTA','CASVNUME','NUME_5',; + *!* 'CURSUL VALUTAR','',"",; + *!* "DO CURS.SPR" + *!* * + + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + *!* M.NUME=M.NUME_2 + *!* M.NUME_2='' + *!* DO CODARE + *!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT + *!* do plVALCASA + *!* repl ACHIT542.LUAT with ACHIT542.LUAT+m.suma + *!* do sterge + *!* RETURN +ENDPROC && BAR_2_OF__08x0o1q7s_FB2P + +PROCEDURE BAR_3_OF__08x0o1q7s_FB2P + *____________________________________________________________________________________________ + *PROCEDURE MENIU86240 + lans(10437) + *!* m.scd='5311 ' + *!* m.scc='581 ' + *!* ***do CASA.spr + *!* do alfabeta with; + *!* 'CASAV',; + *!* "CASA IN VALUTA","CASVNUME","NUME_5", ; + *!* "CASA IN LEI","CASANUME","CASA", ; + *!* 'CURSUL VALUTAR','','', ; + *!* 'do curs.spr' + *!* * + + *!* M.NUME_3=M.CASA + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + *!* m.nume_2='' + *!* m.nume='' + *!* DO CODARE + *!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT + *!* *M.CASA=M.NUME_3 + *!* DO INCASA + *!* m.scd='581 ' + *!* m.scc='5314 ' + *!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT + *!* M.CASA=M.NUME_5 + *!* DO PLVALCASA + *!* do sterge + *!* RETURN +ENDPROC && BAR_3_OF__08x0o1q7s_FB2P + +PROCEDURE BAR_4_OF__08x0o1q7s_FB2P + lans(10486) +ENDPROC && BAR_4_OF__08x0o1q7s_FB2P + +PROCEDURE BAR_5_OF__08x0o1q7s_FB2P + lans(10502) +ENDPROC && BAR_5_OF__08x0o1q7s_FB2P + +PROCEDURE BAR_8_OF__08x0o1q7s_FB2P + *____________________________________________________________________________________________ + *PROCEDURE MENIU86210 + lans(10434) + *!* m.scd='401 ' + *!* m.scc='5314' + *!* ***do BANCA.spr + *!* do alfabetaper with; + *!* 'CASAperval',; + *!* "NUMELE FURNIZORULUI","FURNIZOR","NUME", ; + *!* "NUMELE CASEI IN VALUTA","CASVNUME","NUME_5", ; + *!* 'CURSUL VALUTAR','','', ; + *!* 'do curs.spr','c' + *!* * + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + *!* m.nume_3='' + *!* m.nume_2='' + *!* DO CODARE + *!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT + *!* M.CASA=M.NUME_5 + *!* do plVALCASA + + *!* SELE FURNIZOR + *!* repl furnizor.platit with furnizor.platit+m.suma + *!* do sterge + *!* RETURN +ENDPROC && BAR_8_OF__08x0o1q7s_FB2P + +PROCEDURE BAR_9_OF__08x0o1q7s_FB2P + lans(10435) + *!* m.scd='404 ' + *!* m.scc='5314 ' + + *!* do alfabetaper with; + *!* 'CASAperval',; + *!* "NUMELE FURNIZORULUI","FURNIZ404","NUME", ; + *!* "NUMELE CASEI IN VALUTA","CASVNUME","NUME_5", ; + *!* 'CURSUL VALUTAR','','', ; + *!* 'do curs.spr','p' + *!* * + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + *!* m.nume_3='' + *!* m.nume_2='' + *!* DO CODARE + *!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT + *!* M.CASA=M.NUME_5 + *!* do plVALCASA + + *!* SELE FURNIZ404 + *!* repl platit with platit+m.suma + *!* do sterge +ENDPROC && BAR_9_OF__08x0o1q7s_FB2P + +PROCEDURE BAR_10_OF__08x0o1q7s_FB2P + PRIVATE pcACN, CN + loCont = ret_cont("Selectati contul",'409') &&,4091,4092') + IF TYPE('loCont') # 'O' + RETURN + ENDIF + IF buton = 2 + RELEASE loCont + RETURN + ENDIF + + CN = locont.cont + PcACN = loCont.Acont + lans(10436) +ENDPROC && BAR_10_OF__08x0o1q7s_FB2P + +PROCEDURE BAR_11_OF__08x0o1q7s_FB2P + Lans(10504) +ENDPROC && BAR_11_OF__08x0o1q7s_FB2P + +* diff --git a/Meniuri/cheltavans.mn2 b/Meniuri/cheltavans.mn2 new file mode 100644 index 0000000..b43fe69 --- /dev/null +++ b/Meniuri/cheltavans.mn2 @@ -0,0 +1,46 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="cheltavans.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Cheltuieli SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Cheltuieli PROMPT "Balanta cheltuieli in avans" +ON SELECTION BAR 1 OF Cheltuieli DO BAR_1_OF_Cheltuieli_FB2P + +DEFINE BAR 2 OF Cheltuieli PROMPT "Situatia analitica a cheltuielilor in avans" +ON SELECTION BAR 2 OF Cheltuieli DO BAR_2_OF_Cheltuieli_FB2P +ACTIVATE POPUP Cheltuieli + +* + +* +PROCEDURE BAR_1_OF_Cheltuieli_FB2P + DO lans_balanta_parteneri WITH "471",.T. IN OPARTENERI.prg +ENDPROC && BAR_1_OF_Cheltuieli_FB2P + +PROCEDURE BAR_2_OF_Cheltuieli_FB2P + *!* PRIVATE pcAcont, pnCumul, pnact1, pnact2 + *!* STORE '' TO pcAcont + *!* STORE 0 TO pnCumul, pnact1, pnact2 + + *!* IF USED('xavans') + *!* USE IN xavans + *!* ENDIF + + *!* USE &date\chavans.dbf again IN 0 SHARED ALIAS xavans + *!* SELECT xavans + *!* oavans=CREATEOBJECT('ch_ven_avans') + *!* oavans.cont='scd' + *!* oavans.show(1) + + *!* USE IN xavans + + *!* DO lans_ireg_parteneri WITH tlTest,tcCont,tlActiv + DO lans_ireg_parteneri WITH .F.,'471',.T. +ENDPROC && BAR_2_OF_Cheltuieli_FB2P + +* diff --git a/Meniuri/cheltuieli1.mn2 b/Meniuri/cheltuieli1.mn2 new file mode 100644 index 0000000..7eeb640 --- /dev/null +++ b/Meniuri/cheltuieli1.mn2 @@ -0,0 +1,198 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="cheltuieli1.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Cheltuieli SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR "71010" OF Cheltuieli PROMPT "Materii prime 601" ; + MESSAGE '601 :301 ' +ON SELECTION BAR 71010 OF Cheltuieli DO BAR_"71010"_OF_Cheltuieli_FB2P + +DEFINE BAR "71020" OF Cheltuieli PROMPT "Materiale auxiliare 6021" ; + MESSAGE '6021:3021' +ON SELECTION BAR 71020 OF Cheltuieli DO BAR_"71020"_OF_Cheltuieli_FB2P + +DEFINE BAR "71030" OF Cheltuieli PROMPT "Combustibili 6022" ; + MESSAGE '6022:3022' +ON SELECTION BAR 71030 OF Cheltuieli DO BAR_"71030"_OF_Cheltuieli_FB2P + +DEFINE BAR "71040" OF Cheltuieli PROMPT "Materiale pt. ambalat 6023" ; + MESSAGE '6023:3023' +ON SELECTION BAR 71040 OF Cheltuieli DO BAR_"71040"_OF_Cheltuieli_FB2P + +DEFINE BAR "71050" OF Cheltuieli PROMPT "Piese de schimb 6024" ; + MESSAGE '6024:3024' +ON SELECTION BAR 71050 OF Cheltuieli DO BAR_"71050"_OF_Cheltuieli_FB2P + +DEFINE BAR "71090" OF Cheltuieli PROMPT "Alte materiale 6028" ; + MESSAGE '6028:3028' +ON SELECTION BAR 71090 OF Cheltuieli DO BAR_"71090"_OF_Cheltuieli_FB2P + +DEFINE BAR 7 OF Cheltuieli PROMPT "\-" +ON BAR 7 OF Cheltuieli ACTIVATE POPUP _1170vp6f7 + + *---------------------------------- + DEFINE POPUP _1170vp6f7 SHORTCUT RELATIVE +DEFINE BAR 8 OF Cheltuieli PROMPT "Obiecte de inventar 603" ; + MESSAGE '603 :303 ' +ON SELECTION BAR 8 OF Cheltuieli DO BAR_8_OF_Cheltuieli_FB2P + +DEFINE BAR 9 OF Cheltuieli PROMPT "\-" +ON BAR 9 OF Cheltuieli ACTIVATE POPUP _1170vp6f8 + + *---------------------------------- + DEFINE POPUP _1170vp6f8 SHORTCUT RELATIVE +DEFINE BAR 10 OF Cheltuieli PROMPT "\ + +* +PROCEDURE BAR_"71010"_OF_Cheltuieli_FB2P + *!* DO BONARE WITH '601 ','301 ','CHELTMAT' + lans(10287) +ENDPROC && BAR_"71010"_OF_Cheltuieli_FB2P + +PROCEDURE BAR_"71020"_OF_Cheltuieli_FB2P + *DO BONARE WITH '6021 ','3021 ','CHELTMAT' + lans(10288) +ENDPROC && BAR_"71020"_OF_Cheltuieli_FB2P + +PROCEDURE BAR_"71030"_OF_Cheltuieli_FB2P + lans(10289) + *DO BONARE WITH '6022 ','3022 ','CHELTMAT' +ENDPROC && BAR_"71030"_OF_Cheltuieli_FB2P + +PROCEDURE BAR_"71040"_OF_Cheltuieli_FB2P + lans(10290) + *DO BONARE WITH '6023 ','3023 ','CHELTMAT' +ENDPROC && BAR_"71040"_OF_Cheltuieli_FB2P + +PROCEDURE BAR_"71050"_OF_Cheltuieli_FB2P + lans(10291) + *DO BONARE WITH '6024 ','3024 ','CHELTMAT' +ENDPROC && BAR_"71050"_OF_Cheltuieli_FB2P + +PROCEDURE BAR_"71090"_OF_Cheltuieli_FB2P + lans(10292) + *DO BONARE WITH '6028 ','3028 ','CHELTMAT' +ENDPROC && BAR_"71090"_OF_Cheltuieli_FB2P + +PROCEDURE BAR_8_OF_Cheltuieli_FB2P + lans(10293) + *!* DO BONARE303 WITH '603 ','303 ','CHELTMAT' + + *!* *____________________________________________________________ + *!* PROCEDURE bonare303 + *!* PARAMETERS m.SCD1,m.SCC1,CLASAACT + *!* *_______________DO CHELTMAT.SPR + *!* oc=createobj(CLASAACT) + *!* oc.show(1) + *!* * + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + *!* DO CODARE + *!* m.NNIR=M.NRACT + *!* m.SCD=subs(M.SCC1,1,4) + + *!* ob=createobj('BON') + *!* ob.show(1) + *!* *do form bon1 + *!* * + *!* SELE STOC + *!* SET filter to + *!* m.SCD=M.SCD1 + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + + *!* SELECT iesiri + *!* GO top + *!* m.scc1=scd + *!* DO CONTABILIZEAZA WITH m.SCD1,m.SCC1,M.TOTVALOARE,CLASAACT + *!* SELE LUCRARI + *!* *LOCATE FOR nume_2=M.nume + *!* IF !EMPTY(M.NRORD) + *!* LOCATE FOR NRORD=M.NRORD + *!* IF FOUND() + *!* IF flock() + *!* REPLACE LUCRARI.MATERIALE WITH LUCRARI.MATERIALE+M.TOTVALOARE + *!* ENDIF + *!* UNLOCK + *!* ELSE + *!* SELE LUCRARI + *!* IF flock() + *!* APPE BLAN + *!* GATH MEMV + *!* ENDIF + *!* UNLOCK + *!* ENDIF + *!* ENDIF + + *!* SELE RESPONS + *!* *LOCATE FOR nume_2=M.nume_2 + *!* LOCA FOR NUME_2=M.NRESP + *!* IF flock() + *!* REPLACE RESPONS.MATERIALE WITH RESPONS.MATERIALE+m.TOTVALOARE + *!* ENDIF + *!* UNLOCK + *!* SELE STOC + *!* m.SCD=subs(m.SCC1,1,4) + *!* DO IESTOCURIMAGAZII + *!* m.NNIR=M.NRACT + *!* DO IERULAJMAGAZII + + *!* SET SAFETY OFF + *!* SELECT intrari + *!* ZAP + + *!* SELECT iesiri + *!* SCAN + *!* SCATTER FIELDS denumire, codmat, cante,pret,gest memv + *!* SELECT intrari + *!* APPEND BLANK + *!* m.cant=m.cante + *!* GATHER FIELDS denumire, codmat, pret,gest,cant memv + *!* SELECT iesiri + *!* endscan + + *!* SELECT intrari + *!* REPLACE ALL scd WITH '8039' + + *!* DO inrulajmagazii + *!* DO instocurimagazii + + + + *!* DO STERGE + *!* RETURN + *!* ********************************* +ENDPROC && BAR_8_OF_Cheltuieli_FB2P + +PROCEDURE BAR_10_OF_Cheltuieli_FB2P + LOCAL lnRaspuns + lnRaspuns = 6 + + DO WHILE lnRaspuns = 6 + lans(10581) + if buton = 2 + return + ENDIF + DO introducere_compacta WITH 'achi_mat','','',.F.,.F.,'Cheltuieli cu marfa','',10581 + IF buton=1 + lnRaspuns = AMESSAGEBOX('Doriti sa continuati cu operatii de acest fel?',4+32) + ELSE + lnRaspuns = 7 + ENDIF + ENDDO +ENDPROC && BAR_10_OF_Cheltuieli_FB2P + +* diff --git a/Meniuri/cheltuieli2.mn2 b/Meniuri/cheltuieli2.mn2 new file mode 100644 index 0000000..f3b748d --- /dev/null +++ b/Meniuri/cheltuieli2.mn2 @@ -0,0 +1,210 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="cheltuieli2.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Cheltuieli SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Cheltuieli PROMPT "Tichete combustibili" ; + MESSAGE '6022:5328' +ON SELECTION BAR 1 OF Cheltuieli DO BAR_1_OF_Cheltuieli_FB2P + +DEFINE BAR 2 OF Cheltuieli PROMPT "Tichete de masa" ; + MESSAGE '6422:5328' +ON SELECTION BAR 2 OF Cheltuieli DO BAR_2_OF_Cheltuieli_FB2P + +DEFINE BAR 3 OF Cheltuieli PROMPT "Alte impozite si taxe" +ON BAR 3 OF Cheltuieli ACTIVATE POPUP Alteimpozi + + *---------------------------------- + DEFINE POPUP Alteimpozi SHORTCUT RELATIVE + DEFINE BAR 1 OF Alteimpozi PROMPT "Prorata" ; + MESSAGE '635 : 4426 ' + ON SELECTION BAR 1 OF Alteimpozi DO BAR_1_OF_Alteimpozi_FB2P + + DEFINE BAR 2 OF Alteimpozi PROMPT "TVA colectat" ; + MESSAGE '635 : 4427' + ON SELECTION BAR 2 OF Alteimpozi DO BAR_2_OF_Alteimpozi_FB2P + + DEFINE BAR 3 OF Alteimpozi PROMPT "Decontari cu bugetul statului" ; + MESSAGE '635 : 446' + ON BAR 3 OF Alteimpozi ACTIVATE POPUP Decontaric + + *---------------------------------- + DEFINE POPUP Decontaric SHORTCUT RELATIVE + DEFINE BAR 1 OF Decontaric PROMPT "In Lei" + ON SELECTION BAR 1 OF Decontaric DO BAR_1_OF_Decontaric_FB2P + + DEFINE BAR 2 OF Decontaric PROMPT "In Valuta" + ON SELECTION BAR 2 OF Decontaric DO BAR_2_OF_Decontaric_FB2P + + DEFINE BAR 4 OF Alteimpozi PROMPT "Taxe si varsaminte asimilate" ; + MESSAGE '635 : 447' + ON SELECTION BAR 4 OF Alteimpozi DO BAR_4_OF_Alteimpozi_FB2P + +DEFINE BAR 4 OF Cheltuieli PROMPT "Constituire penalitati, amenda" ; + MESSAGE '6581 : 448X' +ON SELECTION BAR 4 OF Cheltuieli DO BAR_4_OF_Cheltuieli_FB2P + +DEFINE BAR 5 OF Cheltuieli PROMPT "\-" +ON BAR 5 OF Cheltuieli ACTIVATE POPUP _0xs0vxqhk + + *---------------------------------- + DEFINE POPUP _0xs0vxqhk SHORTCUT RELATIVE +DEFINE BAR 6 OF Cheltuieli PROMPT " Repunere chetuieli in avans" ; + MESSAGE '6xx :471 ' +ON SELECTION BAR 6 OF Cheltuieli DO BAR_6_OF_Cheltuieli_FB2P + +DEFINE BAR 7 OF Cheltuieli PROMPT " Repunere chetuieli in avans - toate cu rate" +ON SELECTION BAR 7 OF Cheltuieli do repunere_venchelt_avans with '471' in ocont2003.prg + +DEFINE BAR 8 OF Cheltuieli PROMPT "\-" +ON BAR 8 OF Cheltuieli ACTIVATE POPUP NewItem + + *---------------------------------- + DEFINE POPUP NewItem SHORTCUT RELATIVE +DEFINE BAR 9 OF Cheltuieli PROMPT "Sconturi acordate clientilor 667" ; + MESSAGE '667-4111' +ON SELECTION BAR 9 OF Cheltuieli lans(10326) + +DEFINE BAR 10 OF Cheltuieli PROMPT "Reduceri comerciale acordate 709" ; + MESSAGE '709-4111; 4111-4427' +ON SELECTION BAR 10 OF Cheltuieli lans(10605) +ACTIVATE POPUP Cheltuieli + +* + +* +PROCEDURE BAR_1_OF_Cheltuieli_FB2P + lans(10294) + *!* DO STERGE + *!* m.SCD='6022' + *!* m.SCC='5328' + *!* ***do casa.spr + *!* Do alfabeta With; + *!* 'casa',; + *!* "","","", ; + *!* '','','', ; + *!* '','','TICHETE COMBUSTIBILI', ; + *!* '' + *!* * + *!* If BUTON=2 + *!* Do STERGE + *!* Return + *!* Endif + *!* Do CODARE + *!* Do CONTABILIZEAZA With m.SCD,m.SCC,M.suma,CLASAACT + *!* DO STERGE +ENDPROC && BAR_1_OF_Cheltuieli_FB2P + +PROCEDURE BAR_2_OF_Cheltuieli_FB2P + lans(10295) + *!* DO STERGE + + *!* m.SCD='604 ' + *!* m.SCC='5328' + *!* ***do casa.spr + *!* Do alfabeta With; + *!* 'casa',; + *!* "","","", ; + *!* '','','', ; + *!* '','','TICHETE DE MASA', ; + *!* '' + *!* * + *!* If BUTON=2 + *!* Do STERGE + *!* Return + *!* Endif + *!* Do CODARE + *!* Do CONTABILIZEAZA With m.SCD,m.SCC,M.suma,CLASAACT + *!* DO STERGE +ENDPROC && BAR_2_OF_Cheltuieli_FB2P + +PROCEDURE BAR_1_OF_Alteimpozi_FB2P + lans(10477) +ENDPROC && BAR_1_OF_Alteimpozi_FB2P + +PROCEDURE BAR_2_OF_Alteimpozi_FB2P + lans(10478) +ENDPROC && BAR_2_OF_Alteimpozi_FB2P + +PROCEDURE BAR_1_OF_Decontaric_FB2P + PRIVATE pcACN + loCont=ret_cont("Selectati contul",'446') &&,4461,4462,4463,4464,4465,4466,4467,4468,4469') + IF TYPE('loCont') # 'O' + RETURN + ENDIF + IF buton=2 + RELEASE loCont + RETURN + ENDIF + CN=locont.cont + PcACN=loCont.Acont + + lans(10479) +ENDPROC && BAR_1_OF_Decontaric_FB2P + +PROCEDURE BAR_2_OF_Decontaric_FB2P + PRIVATE pcACN + loCont=ret_cont("Selectati contul",'446') &&,4461,4462,4463,4464,4465,4466,4467,4468,4469') + IF TYPE('loCont') # 'O' + RETURN + ENDIF + IF buton=2 + RELEASE loCont + RETURN + ENDIF + CN=locont.cont + PcACN=loCont.Acont + + lans(10542) +ENDPROC && BAR_2_OF_Decontaric_FB2P + +PROCEDURE BAR_4_OF_Alteimpozi_FB2P + lans(10480) +ENDPROC && BAR_4_OF_Alteimpozi_FB2P + +PROCEDURE BAR_4_OF_Cheltuieli_FB2P + PRIVATE pcACN + loCont=ret_cont("Selectati contul",'448') &&,4481,4482') + IF TYPE('loCont') # 'O' + RETURN + ENDIF + IF buton=2 + RELEASE loCont + RETURN + ENDIF + CN=locont.cont + PcACN=loCont.Acont + + lans(10358) +ENDPROC && BAR_4_OF_Cheltuieli_FB2P + +PROCEDURE BAR_6_OF_Cheltuieli_FB2P + *!* SELE BAL + *!* GO TOP + *!* OS=crea('selcont') + *!* OS.show(1) + *!* IF BUTON=2 + *!* RETURN + *!* ENDIF + PRIVATE pcACN + loCont=ret_cont("Selectati contul debitor 6XX = 471",'6') + + IF TYPE('loCont') # 'O' + RETURN + ENDIF + + IF buton=2 + RELEASE loCont + RETURN + ENDIF + CN=locont.cont + PcACN=loCont.Acont + lans(10411) +ENDPROC && BAR_6_OF_Cheltuieli_FB2P + +* diff --git a/Meniuri/clienti1.mn2 b/Meniuri/clienti1.mn2 new file mode 100644 index 0000000..acc5e47 --- /dev/null +++ b/Meniuri/clienti1.mn2 @@ -0,0 +1,136 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="clienti1.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Clienti SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Clienti PROMPT "Venituri din vanzari/servicii" ; + MESSAGE '4111-7XX ; 4111-4427' +ON SELECTION BAR 1 OF Clienti DO BAR_1_OF_Clienti_FB2P + +DEFINE BAR 2 OF Clienti PROMPT "Inregistrare facturare avansuri" ; + MESSAGE '4111-419;4111-4427' +ON SELECTION BAR 2 OF Clienti DO BAR_2_OF_Clienti_FB2P + +DEFINE BAR 3 OF Clienti PROMPT "Inregistrare venituri in avans" ; + MESSAGE '4111-472;4111-4427' +ON SELECTION BAR 3 OF Clienti DO BAR_3_OF_Clienti_FB2P + +DEFINE BAR 4 OF Clienti PROMPT "\-" +ON BAR 4 OF Clienti ACTIVATE POPUP _09c1af6yl + + *---------------------------------- + DEFINE POPUP _09c1af6yl SHORTCUT RELATIVE +DEFINE BAR 5 OF Clienti PROMPT "Clienti externi" +ON BAR 5 OF Clienti ACTIVATE POPUP Facturinei + + *---------------------------------- + DEFINE POPUP Facturinei SHORTCUT RELATIVE + DEFINE BAR 1 OF Facturinei PROMPT "\ + +* +PROCEDURE BAR_1_OF_Clienti_FB2P + LOCAL lnRaspuns + lnRaspuns = 6 + + DO WHILE lnRaspuns = 6 + lans(10464) + if buton = 2 + return + ENDIF + DO introducere_compacta WITH 'achi_mat','4111','',.t.,.t.,'Venituri din vanzari - Clienti 4111','4427',10464 + IF buton=1 + lnRaspuns = AMESSAGEBOX('Doriti sa continuati cu operatii de acest fel?',4+32) + ELSE + lnRaspuns = 7 + ENDIF + ENDDO +ENDPROC && BAR_1_OF_Clienti_FB2P + +PROCEDURE BAR_2_OF_Clienti_FB2P + lans(10470) +ENDPROC && BAR_2_OF_Clienti_FB2P + +PROCEDURE BAR_3_OF_Clienti_FB2P + lans(10471) +ENDPROC && BAR_3_OF_Clienti_FB2P + +PROCEDURE BAR_1_OF_Facturinei_FB2P + + + *!* SELE BAL + *!* GO TOP + *!* OS=CREA('SELCONT') + *!* OS.SHOW(1) + *!* IF BUTON=2 + *!* RETURN + *!* ENDIF + PRIVATE pcACN + loCont=ret_cont("Selectati contul",'7,419') + + IF TYPE('loCont') # 'O' + RETURN + ENDIF + + IF buton=2 + RELEASE loCont + RETURN + ENDIF + CN=locont.cont + PcACN=loCont.Acont + + lans(10327) +ENDPROC && BAR_1_OF_Facturinei_FB2P + +PROCEDURE BAR_7_OF_Clienti_FB2P + lans(10615) +ENDPROC && BAR_7_OF_Clienti_FB2P + +* diff --git a/Meniuri/clienti2.mn2 b/Meniuri/clienti2.mn2 new file mode 100644 index 0000000..6766068 --- /dev/null +++ b/Meniuri/clienti2.mn2 @@ -0,0 +1,30 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="clienti2.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Clientiinc SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Clientiinc PROMPT "Cresterea creantelor" +ON BAR 1 OF Clientiinc ACTIVATE POPUP _09b0utqd8 + + *---------------------------------- + DEFINE POPUP _09b0utqd8 SHORTCUT RELATIVE + DEFINE BAR 1 OF _09b0utqd8 PROMPT "Clienti incerti" ; + MESSAGE '4118 :4111' + ON SELECTION BAR 1 OF _09b0utqd8 lans(10416) + +DEFINE BAR 2 OF Clientiinc PROMPT "Diminuarea creantelor" +ON BAR 2 OF Clientiinc ACTIVATE POPUP Diminuarea + + *---------------------------------- + DEFINE POPUP Diminuarea SHORTCUT RELATIVE + DEFINE BAR 1 OF Diminuarea PROMPT "\ \ No newline at end of file diff --git a/Meniuri/clienti3.mn2 b/Meniuri/clienti3.mn2 new file mode 100644 index 0000000..d9e8528 --- /dev/null +++ b/Meniuri/clienti3.mn2 @@ -0,0 +1,303 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="clienti3.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Clienti SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Clienti PROMPT "Regularizare facturi neintocmite" ; + MESSAGE '4111 :418 ; 4428:4427' +ON SELECTION BAR 1 OF Clienti DO BAR_1_OF_Clienti_FB2P + +DEFINE BAR 2 OF Clienti PROMPT "Regularizare clienti creditori" +ON SELECTION BAR 2 OF Clienti DO BAR_2_OF_Clienti_FB2P + +DEFINE BAR 3 OF Clienti PROMPT "\ + +* +PROCEDURE BAR_1_OF_Clienti_FB2P + lans(10325) + + IF gnButon = 2 + IF USED('actactan') + USE IN actactan + ENDIF + RETURN + ENDIF + + SELECT actactan + *!* modificare v 2.4.25 : am pus GO TOP deoarece, daca avea si nota cu 4428 - 4427, atunci copia datele de pe aceasta nota + *!* si aveam id_fact de la factura, in loc de cel de la nota actuala + *!* GO BOTTOM + Go Top + *!* modificare v 2.4.25 ^ + SCATTER FIELDS EXCEPT id_factd, id_factc,pereched,perechec, id_partd, id_partc, partd, partc,id_jtva_coloana,proc_tva,taxcode,taxname NAME otemp + + *!* SELECT DISTINCT proc_tva FROM actactan WHERE !INLIST(proc_tva,1,0) AND scc = '418 ' INTO CURSOR procent + SELECT distinct a.id_jtva_coloana,(b.cota_tva+100)/100 as proc_tva,b.id_tva, a.taxcode,a.taxname FROM actactan a JOIN jtva_coloane b ; + ON a.id_jtva_coloana = b.id_jtva_coloana WHERE b.cota_tva <> 0 AND ALLTRIM(a.scc) = '418' INTO CURSOR procent + + IF _tally#0 + SELECT procent + SCAN + SCATTER NAME oproc + SELECT actactan + SUM suma TO lnsuma FOR id_jtva_coloana=oproc.id_jtva_coloana AND ALLTRIM(scc)='418' + SELECT actactan + APPEND BLANK + GATHER NAME otemp + replace id_jtva_coloana WITH oproc.id_tva,proc_tva WITH oproc.proc_tva, taxcode WITH oproc.taxcode, taxname WITH oproc.taxname + *!* REPLACE scd WITH '4428',scc WITH '4427', + REPLACE scd WITH '4428',scc WITH iif(inlist(id_jtva_coloana, 22, 24, 26), '4428', '4427') + + REPLACE suma WITH ROUND(LnSuma*(oproc.proc_tva-1)/oproc.proc_tva,gnPc) + + SELECT procent + ENDSCAN + ENDIF + + SELECT actactan + GO TOP + DO FORM verificare + + IF gnButon=1 + oscrie_in_fisiere() + ENDIF + + IF USED('actactan') + USE IN actactan + ENDIF + IF USED('procent') + USE IN procent + ENDIF +ENDPROC && BAR_1_OF_Clienti_FB2P + +PROCEDURE BAR_2_OF_Clienti_FB2P + lans(10421) + + + IF gnButon = 2 + IF USED('actactan') + USE IN actactan + ENDIF + RETURN + ENDIF + + SELECT actactan + *!* modificare v 2.4.25 : am pus GO TOP deoarece, daca avea si nota cu 4428 - 4427, atunci copia datele de pe aceasta nota + *!* si aveam id_fact de la factura, in loc de cel de la nota actuala + *!* GO BOTTOM + Go Top + *!* modificare v 2.4.25 ^ + SCATTER FIELDS EXCEPT id_factd, id_factc,pereched, perechec, id_partd, id_partc, partd, partc, scd, scc, ascd, ascc, id_jtva_coloana,proc_tva,taxcode,taxname NAME otemp + + SELECT DISTINCT a.id_jtva_coloana, (b.cota_tva+100)/100 as proc_tva, a.scc, a.ascc, a.id_partc, a.partc, a.id_factc,; + a.perechec, b.id_tva, a.taxcode,a.taxname ; + FROM actactan a join jtva_coloane b on a.id_jtva_coloana = b.id_jtva_coloana WHERE b.cota_tva <> 0 ; + AND LEFT(a.scd,3) = '419' INTO CURSOR procent + + IF _tally#0 + SELECT procent + SCAN + SCATTER NAME oproc + SELECT actactan + SUM suma TO lnsuma FOR id_jtva_coloana=oproc.id_jtva_coloana AND LEFT(scd,3) = '419' AND id_partc = oproc.id_partc AND scc = oproc.scc AND NVL(ascc,'xxxx') = NVL(oproc.ascc,'xxxx') AND id_factc = oproc.id_factc AND perechec = oproc.perechec + SELECT actactan + APPEND BLANK + GATHER NAME otemp + REPLACE scd WITH oproc.scc, ascd WITH oproc.ascc, partd WITH oproc.partc, id_partd WITH oproc.id_partc, id_factd WITH oproc.id_factc, pereched WITH oproc.perechec, scc WITH '4427',id_jtva_coloana with oproc.id_tva,proc_tva with oproc.proc_tva + REPLACE suma WITH -ROUND(LnSuma*(oproc.proc_tva-1),gnPc) + REPLACE taxcode WITH oproc.taxcode, taxname WITH oproc.taxname + SELECT procent + ENDSCAN + ENDIF + + SELECT actactan + GO TOP + DO FORM verificare + + IF gnButon=1 + oscrie_in_fisiere() + ENDIF + + IF USED('actactan') + USE IN actactan + ENDIF + IF USED('procent') + USE IN procent + ENDIF + + + + +ENDPROC && BAR_2_OF_Clienti_FB2P + +PROCEDURE BAR_3_OF_Clienti_FB2P + lans(10454) + + SELECT actactan + GO TOP + + IF gnButon=1 + DO FORM verificare + ENDIF + + IF gnButon=1 + oscrie_in_fisiere() + ENDIF + + *!* IF BUTON=2 + *!* DO STERGE + *!* DO inchid_actcv + *!* DO deschid_actc + *!* RETURN + *!* ENDIF + + *!* PRIVATE PnSuma,pnSumaVal + *!* pnSuma=m.suma + *!* pnSumaVal=m.suma_2 + + *!* lcnume=UPPER(ALLTRIM(m.nume)) + *!* DO imperechere_fact_avans WITH 'avans419',lcnume,m.suma,.t.,'pereche' + + + + + + + + + + + + + + + + + + + + + + + + *!* m.scd='419 ' + *!* m.scc='411 ' + *!* do alfabetaper with; + *!* 'CASApermulval',; + *!* "NUMELE CLIENTULUI","CLIENTI","NUME", ; + *!* "","","", ; + *!* 'CURSUL VALUTAR','','', ; + *!* 'do curs.spr','v' + *!* * + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + + *!* local c + *!* c=0 + *!* m.nract=numaract + *!* *DO CODARE + *!* sele 0 + *!* use &loc\&nfscurt\tempo\actcv + *!* sele actcv + *!* scan for ales + *!* c=cod + *!* M.PERECHE=NRACT + *!* m.suma_2=sumaachi + *!* m.nrord='' + *!* sele actan + *!* loca for cod=c + *!* if found() + *!* m.nrord=nrord + *!* cursfact=suma_3 + *!* endif + *!* *!* sele avans419 + *!* *!* loca for cod=c + *!* *!* if found() + *!* cursavans=m.cursschimb + *!* m.suma=sumaachi*min(cursavans,cursfact) + *!* dif=sumaachi*(cursavans-cursfact) + *!* DO CODARE + *!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT + *!* do case + *!* case dif<0 + *!* DO CONTABILIZEAZA WITH '665 ','411 ',-dif,CLASAACT + *!* case dif>0 + *!* DO CONTABILIZEAZA WITH '419 ','765 ',dif,CLASAACT + *!* endcase + *!* *!* do inBANCAval + *!* *!* SELE LUCRARI + *!* *!* LOCA FOR NRORD=M.NRORD + *!* *!* if flock() + *!* *!* REPLACE lucrari.incasat WITH lucrari.incasat+m.suma + *!* *!* endif + *!* *!* unlock + *!* *!* SELE CLIENTI + *!* *!* if flock() + *!* *!* REPLACE CLIENTI.incasat WITH CLIENTI.incasat+m.suma + *!* *!* endif + *!* *!* unlock + + *!* SELE CLIENTI + *!* if flock() + *!* REPLACE CLIENTI.incasat WITH CLIENTI.incasat+m.suma + *!* REPLACE CLIENTI.AVANS WITH CLIENTI.AVANS-m.suma + *!* endif + *!* unlock + + *!* endscan + *!* use in actcv + *!* do sterge + *!* RETURN +ENDPROC && BAR_3_OF_Clienti_FB2P + +PROCEDURE BAR_6_OF_Clienti_FB2P + LOCAL loCont + loCont = ret_cont("Contul creditor", "4111,461") + If buton = 2 + Release loCont + Return + Endif + + + lans_generic(10657,loCont.Cont, loCont.Acont) +ENDPROC && BAR_6_OF_Clienti_FB2P + +* diff --git a/Meniuri/clienti4.mn2 b/Meniuri/clienti4.mn2 new file mode 100644 index 0000000..e0dc6a0 --- /dev/null +++ b/Meniuri/clienti4.mn2 @@ -0,0 +1,74 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="clienti4.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Clienti SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Clienti PROMPT "Efecte de primit" +ON BAR 1 OF Clienti ACTIVATE POPUP _s4u0pzetj + + *---------------------------------- + DEFINE POPUP _s4u0pzetj SHORTCUT RELATIVE + DEFINE BAR 1 OF _s4u0pzetj PROMPT "Cresterea creantelor" + ON BAR 1 OF _s4u0pzetj ACTIVATE POPUP Crestereac + + *---------------------------------- + DEFINE POPUP Crestereac SHORTCUT RELATIVE + DEFINE BAR 1 OF Crestereac PROMPT "Acceptare efecte comerciale" ; + MESSAGE '413:4111' + ON SELECTION BAR 1 OF Crestereac lans(10302) + + DEFINE BAR 2 OF Crestereac PROMPT "Prin diferente favorabile de curs valutar" ; + MESSAGE '413 :7651' + ON SELECTION BAR 2 OF Crestereac lans(10303) + + DEFINE BAR 3 OF Crestereac PROMPT "Prin reluarea diferentelor nefavorabile de curs valutar" ; + MESSAGE '413 :476 ' + ON SELECTION BAR 3 OF Crestereac LANS(10304) + + DEFINE BAR 2 OF _s4u0pzetj PROMPT "Micsorarea creantelor" + ON BAR 2 OF _s4u0pzetj ACTIVATE POPUP Micsorarea + + *---------------------------------- + DEFINE POPUP Micsorarea SHORTCUT RELATIVE + DEFINE BAR 1 OF Micsorarea PROMPT "Depunere efecte comerciale la banca pentru incasare la scadenta" ; + MESSAGE '5113:413 ' + ON SELECTION BAR 1 OF Micsorarea lans(10305) + + DEFINE BAR 2 OF Micsorarea PROMPT "Incasarea la scadenta a efectelor depuse anterior la banca" ; + MESSAGE '5121:5113' + ON SELECTION BAR 2 OF Micsorarea lans(10629) + + DEFINE BAR 3 OF Micsorarea PROMPT "\-" + ON BAR 3 OF Micsorarea ACTIVATE POPUP _54c0vt2gn + + *---------------------------------- + DEFINE POPUP _54c0vt2gn SHORTCUT RELATIVE + DEFINE BAR 4 OF Micsorarea PROMPT "Incasarea efectelor la banca la scadenta" ; + MESSAGE '5121:413 ' + ON SELECTION BAR 4 OF Micsorarea lans(10307) + + DEFINE BAR 5 OF Micsorarea PROMPT "\-" + ON BAR 5 OF Micsorarea ACTIVATE POPUP _54c0vv9h3 + + *---------------------------------- + DEFINE POPUP _54c0vv9h3 SHORTCUT RELATIVE + DEFINE BAR 6 OF Micsorarea PROMPT "Girare efecte comerciale primite de la clienti" ; + MESSAGE '403:413' + ON SELECTION BAR 6 OF Micsorarea lans(10628) + + DEFINE BAR 7 OF Micsorarea PROMPT "\-" + ON BAR 7 OF Micsorarea ACTIVATE POPUP _54c0vv9h4 + + *---------------------------------- + DEFINE POPUP _54c0vv9h4 SHORTCUT RELATIVE + DEFINE BAR 8 OF Micsorarea PROMPT "Prin reluarea diferentelor de curs valutar" ; + MESSAGE '6651:413 ' + ON SELECTION BAR 8 OF Micsorarea lans(10306) +ACTIVATE POPUP Clienti + +* \ No newline at end of file diff --git a/Meniuri/clienti5.mn2 b/Meniuri/clienti5.mn2 new file mode 100644 index 0000000..48533e4 --- /dev/null +++ b/Meniuri/clienti5.mn2 @@ -0,0 +1,64 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="clienti5.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Clientiext SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Clientiext PROMPT "Facturi neintocmite 418-general" +ON SELECTION BAR 1 OF Clientiext DO BAR_1_OF_Clientiext_FB2P + +DEFINE BAR 2 OF Clientiext PROMPT "\-" +ON BAR 2 OF Clientiext ACTIVATE POPUP _1400t1yci + + *---------------------------------- + DEFINE POPUP _1400t1yci SHORTCUT RELATIVE +DEFINE BAR 3 OF Clientiext PROMPT "Facturi neintocmite 418" ; + MESSAGE '418 : 70X' +ON SELECTION BAR 3 OF Clientiext DO BAR_3_OF_Clientiext_FB2P +ACTIVATE POPUP Clientiext + +* + +* +PROCEDURE BAR_1_OF_Clientiext_FB2P + Buton = lans(10469) + IF Buton=2 + DO deschid_actc + RETURN + ENDIF + + DO introducere_compacta WITH 'achi_mat','418 ','',.t.,.f.,'Vanzari-Facturi neintocmite 418','4428',10469 +ENDPROC && BAR_1_OF_Clientiext_FB2P + +PROCEDURE BAR_3_OF_Clientiext_FB2P + + *!* SELE BAL + *!* GO TOP + *!* OS=CREA('SELCONT') + *!* OS.SHOW(1) + *!* IF BUTON=2 + *!* RETURN + *!* ENDIF + + PRIVATE pcACN + loCont=ret_cont("Selectati contul",'70') + + IF TYPE('loCont') # 'O' + RETURN + ENDIF + + IF buton=2 + RELEASE loCont + RETURN + ENDIF + CN=locont.cont + PcACN=loCont.Acont + + lans(10301) +ENDPROC && BAR_3_OF_Clientiext_FB2P + +* diff --git a/Meniuri/coeficientilunari.mn2 b/Meniuri/coeficientilunari.mn2 new file mode 100644 index 0000000..2c4fe7a --- /dev/null +++ b/Meniuri/coeficientilunari.mn2 @@ -0,0 +1,37 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="coeficientilunari.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "Cote TVA" +ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P + +DEFINE BAR 2 OF Shortcut PROMPT "Plafoane casa" +ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P +ACTIVATE POPUP Shortcut + +* + +* +PROCEDURE BAR_1_OF_Shortcut_FB2P + lnAn = gnAn + lnLuna = gnLuna + + DO viz_cote_tva WITH gcs,lnAn,lnLuna +ENDPROC && BAR_1_OF_Shortcut_FB2P + +PROCEDURE BAR_2_OF_Shortcut_FB2P + lnAn = gnAn + lnLuna = gnLuna + + DO viz_plafon_casa WITH gcs,lnAn,lnLuna IN onomenclatoare.prg + *!* oc=crea('coef') + *!* oc.show(1) +ENDPROC && BAR_2_OF_Shortcut_FB2P + +* diff --git a/Meniuri/cont2000.mn2 b/Meniuri/cont2000.mn2 new file mode 100644 index 0000000..1f45c9a --- /dev/null +++ b/Meniuri/cont2000.mn2 @@ -0,0 +1,614 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="cont2000.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*1 +*REPLACE + +* +DEFINE MENU _msysmenu BAR +DEFINE PAD _000000001 OF _msysmenu PROMPT "\.' + + DEFINE BAR _med_sp200 OF Editare PROMPT "\-" + + DEFINE BAR _med_slcta OF Editare PROMPT "\ + +* +PROCEDURE BAR_1_OF_Utile_FB2P + Try + OHELP.TOOL_HELP1.stromfast.Click + Catch To loEx + AMESSAGEBOX(loEx.Message,0+48,_Screen.Caption) + Endtry +ENDPROC && BAR_1_OF_Utile_FB2P + +PROCEDURE BAR_2_OF_Utile_FB2P + Try + ohelp.toOL_HELP1.screenshot.Click + Catch To loEx + AMESSAGEBOX(loEx.Message,0+48,_Screen.Caption) + Endtry +ENDPROC && BAR_2_OF_Utile_FB2P + +PROCEDURE BAR_4_OF_Utile_FB2P + **OVARIABILE_GLOBALE.PRG + + *** Citesc setarea pentru ReportBehaviour + IF TYPE('gnReportBehaviour') = 'U' + PUBLIC gnReportBehaviour + gnReportBehaviour = 90 + ENDIF + + LOCAL lcReportBehaviour + lcReportBehaviour = NVL(getini(m.gcGeneralIniFile,'report','reportbehaviour'), '') + IF EMPTY(m.lcReportBehaviour) + setini(m.gcGeneralIniFile,'report','reportbehaviour', '90') + gnReportBehaviour = 90 + ELSE + gnReportBehaviour = VAL(m.lcReportBehaviour) + ENDIF + IF !INLIST(gnReportBehaviour, 80, 90) + setini(m.gcGeneralIniFile,'report','reportbehaviour', '90') + gnReportBehaviour = 90 + ENDIF + + lnReportBehaviourNew = IIF(gnReportBehaviour = 90, 80, 90) + + IF AMESSAGEBOX('Rapoarte tip ' + IIF(m.gnReportBehaviour=90, 'modern', 'clasic') + '. Doriti sa schimbati in tip ' + IIF(m.lnReportBehaviourNew=90, 'modern', 'clasic') + '?',4+32,_screen.Caption) = 6 + setini(m.gcGeneralIniFile,'report','reportbehaviour', ALLTRIM(STR(m.lnReportBehaviourNew))) + gnReportBehaviour = m.lnReportBehaviourNew + ENDIF +ENDPROC && BAR_4_OF_Utile_FB2P + +PROCEDURE BAR_6_OF_Utile_FB2P + ies=.t. + QUIT +ENDPROC && BAR_6_OF_Utile_FB2P + +PROCEDURE BAR_10_OF_Editare_FB2P + Local oFonts, llReturn + Do Case + Case Type("goApp") = "O" And ; + PEMSTATUS(goApp, "oFontHandler",5) + If Vartype(goApp.oFontHandler) <> "O" + * instantiate it + goApp.oFontHandler = CREATEOBJECT("cusFontHandler") && Newobject("cusFontHandler", "Accessibility") + Endif + oFonts = goApp.oFontHandler + Case Vartype(oFontHandler) <> "O" + Release oFontHandler + Public oFontHandler + oFontHandler = CREATEOBJECT("cusFontHandler")&& Newobject("cusFontHandler", "Accessibility") + oFonts = oFontHandler + Otherwise + * it already exists in the public variable + oFonts = oFontHandler + ENDCASE + + llReturn = oFonts.PromptForFont() + + IF m.llReturn + goApp.WriteIni('INTERFATA', 'FONTNAME', oFonts.cFontName) + AMESSAGEBOX('Intrati din nou in aplicatie pentru activarea fontului ' + oFonts.cFontName,0+64,_SCREEN.Caption) + ENDIF +ENDPROC && BAR_10_OF_Editare_FB2P + +PROCEDURE BAR_1_OF_Initializa_FB2P + gcAcces = "1;2;3;4;" + DO deschidluna WITH .T. IN oredeschid.prg +ENDPROC && BAR_1_OF_Initializa_FB2P + +PROCEDURE BAR_1_OF_Redeschide_FB2P + DO deschidluna WITH .F., "refacere_completa" IN oredeschid.prg +ENDPROC && BAR_1_OF_Redeschide_FB2P + +PROCEDURE BAR_4_OF_Initializa_FB2P + * gcAcces = "1;2;3;4" + gcAcces = GetAccesByCod("ZA03") && Z = meniu, A = pad#, 3 = bar# + DO viz_plcont IN onomenclatoare.prg +ENDPROC && BAR_4_OF_Initializa_FB2P + +PROCEDURE BAR_5_OF_Initializa_FB2P + Local lcSql,lnSucces + lnRasp=aMESSAGEBOX("Doriti sa completati planul de conturi",4+32,"Atentie") + If lnRasp=6 + lcSql = [begin pack_deschidere_luna.completare_plan_conturi(?gnAn); end;] + llSucces = goExecutor.oExecuta(m.lcSql) + If m.llSucces + aMESSAGEBOX("Planul de conturi s-a completat!",0,"Confirmare") + Endif + Endif + + +ENDPROC && BAR_5_OF_Initializa_FB2P + +PROCEDURE BAR_7_OF_Initializa_FB2P + gcAcces = "1;2;3;4;" + LOCAL lcSchema, lnAn, lnLuna + lnAn = m.gnAn + lnLuna = m.gnLuna + lcSchema = m.gcS + DO viz_cote_tva WITH m.lcSchema, m.lnAn, m.lnLuna +ENDPROC && BAR_7_OF_Initializa_FB2P + +PROCEDURE BAR_10_OF_Initializa_FB2P + gcAcces = "1;2;3;4;" + DO viz_inchidere_amortizari_conturi in oproceduri_inchidere.prg +ENDPROC && BAR_10_OF_Initializa_FB2P + +PROCEDURE BAR_12_OF_Initializa_FB2P + *gcAcces = "1;2;3;4;" + gcAcces = GetAccesByCod("ZA09") && Z = meniu, A = pad#, 9 = bar# + DO viz_parteneri IN onomenclatoare.prg +ENDPROC && BAR_12_OF_Initializa_FB2P + +PROCEDURE BAR_13_OF_Initializa_FB2P + gcAcces = "1;2;3;4;" + DO viz_entitati_conturi IN onomenclatoare.prg +ENDPROC && BAR_13_OF_Initializa_FB2P + +PROCEDURE BAR_14_OF_Initializa_FB2P + gcAcces = "1;2;3;4;" + DO configurare_balanta_cumulata IN oparteneri.prg +ENDPROC && BAR_14_OF_Initializa_FB2P + +PROCEDURE BAR_15_OF_Initializa_FB2P + gcAcces = "1;2;3;4;" + DO configurare_note IN omeniu_initializari.prg +ENDPROC && BAR_15_OF_Initializa_FB2P + +PROCEDURE BAR_1_OF__4k30zzwaf_FB2P + gcAcces = "1;2;3;4;" + DO configurare_analitice_gruputil IN omeniu_initializari.prg +ENDPROC && BAR_1_OF__4k30zzwaf_FB2P + +PROCEDURE BAR_2_OF__4k30zzwaf_FB2P + gcAcces = "1;2;3;4;" + DO configurare_analitice_tva IN omeniu_initializari.prg +ENDPROC && BAR_2_OF__4k30zzwaf_FB2P + +PROCEDURE BAR_1_OF_Optiuniuti_FB2P + Local lcOptiune, lnOptiune + lcOptiune = 'RC_REGCUMP_LISTARE_BUG' + lnOptiune = Int(Val(Nvl(citeste_optiune_utilizator(m.lcOptiune), '0'))) + lnRaspuns = AMESSAGEBOX('Optiunea este ' + Iif(m.lnOptiune = 0, 'Inactiva.', 'Activa.') + Chr(13) + Chr(10) + ; + 'Doriti sa o ' + Iif(m.lnOptiune = 0, 'activati?', 'inactivati?'),4+32, _Screen.Caption) + + If m.lnRaspuns = 6 + lnOptiune = Iif(m.lnOptiune = 0, 1, 0) + scrie_optiune_utilizator(m.lcOptiune, ALLTRIM(STR(m.lnOptiune)), "Tratare bug blocare listare Registru Cumparari") + Endif +ENDPROC && BAR_1_OF_Optiuniuti_FB2P + +PROCEDURE BAR_1_OF_Conversie_FB2P + gcAcces = "1;2;3;4;" + DO CONVERSIE_CONTURI with "PLAN" IN oproceduri_conversie.prg +ENDPROC && BAR_1_OF_Conversie_FB2P + +PROCEDURE BAR_2_OF_Conversie_FB2P + gcAcces = "1;2;3;4;" + DO CONVERSIE_CONTURI with "JURNAL" IN oproceduri_conversie.prg +ENDPROC && BAR_2_OF_Conversie_FB2P + +PROCEDURE BAR_3_OF_Conversie_FB2P + gcAcces = "1;2;3;4;" + DO CONVERSIE_CONTURI with "BALANTA" IN oproceduri_conversie.prg +ENDPROC && BAR_3_OF_Conversie_FB2P + +PROCEDURE BAR_3_OF__1bs12qror_FB2P + gcAcces = "1;2;3;4;" + do actualizare_solduri_valuta in oproceduri_actualizari.prg +ENDPROC && BAR_3_OF__1bs12qror_FB2P + +PROCEDURE BAR_4_OF__1bs12qror_FB2P + gcAcces = "1;2;3;4;" + do actualizare_tva2007 in oproceduri_actualizari.prg +ENDPROC && BAR_4_OF__1bs12qror_FB2P + +PROCEDURE BAR_1_OF_Verificari_FB2P + gcAcces = "1;2;3;4;" + DO verificareGlobala IN overificari.prg +ENDPROC && BAR_1_OF_Verificari_FB2P + +PROCEDURE BAR_2_OF_Verificari_FB2P + gcAcces = "1;2;3;4;" + do SituatiiInvalidate in overificari.prg +ENDPROC && BAR_2_OF_Verificari_FB2P + +PROCEDURE BAR_1_OF_SPVeFactur_FB2P + gcAcces = GetAccesByCod("ZE01") && Z = meniu, A = pad#, 3 = bar# + do viz_borderou_efactura in anaf_efactura.prg +ENDPROC && BAR_1_OF_SPVeFactur_FB2P + +PROCEDURE BAR_3_OF_SPVeFactur_FB2P + gcAcces = GetAccesByCod("ZE01") && Z = meniu, A = pad#, 3 = bar# + do viz_efactura_xml in anaf_efactura.prg +ENDPROC && BAR_3_OF_SPVeFactur_FB2P + +PROCEDURE BAR_5_OF_SPVeFactur_FB2P + gcAcces = GetAccesByCod("DA01") && D = Pagina 4 Terti, A = pagina 2 Furnizori, 01 = meniul 1 Furnizori + do importEfacturaPrimite in import_efactura.prg +ENDPROC && BAR_5_OF_SPVeFactur_FB2P + +PROCEDURE BAR_6_OF_SPVeFactur_FB2P + gcAcces = GetAccesByCod("DB01") && D = Pagina 4 Terti, B = pagina 2 Clienti, 01 = meniul 1 Clienti + do importEfacturaTrimise in import_efactura.prg +ENDPROC && BAR_6_OF_SPVeFactur_FB2P + +PROCEDURE BAR_8_OF_SPVeFactur_FB2P + gcAcces = GetAccesByCod("ZE05") && Z = meniu, E = pad#, 5 = bar# + do viz_spv in anaf_efactura.prg +ENDPROC && BAR_8_OF_SPVeFactur_FB2P + +PROCEDURE BAR_1_OF_Ajutor_FB2P + DO viz_plcont IN ocont2003.prg +ENDPROC && BAR_1_OF_Ajutor_FB2P + +PROCEDURE BAR_2_OF_Ajutor_FB2P + lansare_help_meniu() &&oproceduri_comune.prg +ENDPROC && BAR_2_OF_Ajutor_FB2P + +PROCEDURE BAR_4_OF_Ajutor_FB2P + DO FORM frm_about +ENDPROC && BAR_4_OF_Ajutor_FB2P + +PROCEDURE BAR_5_OF_Ajutor_FB2P + DO FORM frm_changelog +ENDPROC && BAR_5_OF_Ajutor_FB2P + +* diff --git a/Meniuri/cont2000_.mn2 b/Meniuri/cont2000_.mn2 new file mode 100644 index 0000000..dffe84a --- /dev/null +++ b/Meniuri/cont2000_.mn2 @@ -0,0 +1,1756 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="cont2000_.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*1 +*REPLACE + +* +DEFINE MENU _msysmenu BAR +DEFINE PAD _000000001 OF _msysmenu PROMPT "\1 ; + MESSAGE 'Optiuni Sistem' + ON BAR 1 OF Utile ACTIVATE POPUP Optiunisis + + *---------------------------------- + DEFINE POPUP Optiunisis MARGIN RELATIVE SHADOW COLOR SCHEME 4 + DEFINE BAR 1 OF Optiunisis PROMPT "\.' + + DEFINE BAR _med_sp200 OF Editare PROMPT "\-" + + DEFINE BAR _med_slcta OF Editare PROMPT "\1 ; + MESSAGE 'Inceperea unei noi luni contabile.' + ON SELECTION BAR 4 OF Initializa DO BAR_4_OF_Initializa_FB2P + + DEFINE BAR 5 OF Initializa PROMPT "\1 ; + MESSAGE 'Actualizarea cu date modificate din luna precedenta, aparute ulterior deschiderii lunii contabile curente.' + ON SELECTION BAR 5 OF Initializa DO BAR_5_OF_Initializa_FB2P + + DEFINE BAR 6 OF Initializa PROMPT "\Blocare de luna" ; + SKIP FOR m.nivel>1 ; + MESSAGE 'Inchidere de luna.' + ON BAR 6 OF Initializa ACTIVATE POPUP Blocaredel + + *---------------------------------- + DEFINE POPUP Blocaredel MARGIN RELATIVE SHADOW COLOR SCHEME 4 + DEFINE BAR 1 OF Blocaredel PROMPT "\3 + ON SELECTION BAR 8 OF Initializa DO BAR_8_OF_Initializa_FB2P + + DEFINE BAR 9 OF Initializa PROMPT "\Firma noua" ; + MESSAGE 'Deschiderea unei firme noi.' + ON BAR 9 OF Initializa ACTIVATE POPUP Firmanoua + + *---------------------------------- + DEFINE POPUP Firmanoua MARGIN RELATIVE SHADOW COLOR SCHEME 4 + DEFINE BAR 1 OF Firmanoua PROMPT "\1 ; + MESSAGE 'Modificarea coeficientilor: TVA, etc.' + ON SELECTION BAR 11 OF Initializa DO BAR_11_OF_Initializa_FB2P + + DEFINE BAR 12 OF Initializa PROMPT "C\0 + ON SELECTION BAR 16 OF Initializa DO BAR_16_OF_Initializa_FB2P + + DEFINE BAR 17 OF Initializa PROMPT "\-" + ON BAR 17 OF Initializa ACTIVATE POPUP _18y0kqcw7 + + *---------------------------------- + DEFINE POPUP _18y0kqcw7 MARGIN RELATIVE SHADOW COLOR SCHEME 4 + DEFINE BAR 18 OF Initializa PROMPT "\1 + ON BAR 18 OF Initializa ACTIVATE POPUP Optiuni + + *---------------------------------- + DEFINE POPUP Optiuni MARGIN RELATIVE SHADOW COLOR SCHEME 4 + DEFINE BAR 1 OF Optiuni PROMPT "Optiuni \1 ; + MESSAGE 'Diverse verificari' + ON SELECTION BAR 1 OF _1bs12qror DO BAR_1_OF__1bs12qror_FB2P + + DEFINE BAR 2 OF _1bs12qror PROMPT "\Refaceri" ; + SKIP FOR luna_inchisa or m.nivel>1 ; + MESSAGE 'Refacerea balantei, registrelor, analiticelor, pe baza registrului jurnal' + ON SELECTION BAR 2 OF _1bs12qror DO BAR_2_OF__1bs12qror_FB2P + + DEFINE BAR 3 OF _1bs12qror PROMPT "\Modificare libera" ; + SKIP FOR m.nivel#0 + ON SELECTION BAR 3 OF _1bs12qror DO BAR_3_OF__1bs12qror_FB2P + + DEFINE BAR 4 OF _1bs12qror PROMPT "\Initializare facturi/solduri" ; + SKIP FOR luna_inchisa or m.nivel>1 + ON BAR 4 OF _1bs12qror ACTIVATE POPUP _0ln0qf60i + + *---------------------------------- + DEFINE POPUP _0ln0qf60i MARGIN RELATIVE SHADOW COLOR SCHEME 4 + DEFINE BAR 1 OF _0ln0qf60i PROMPT "Furnizori -> Facturi Cumparari" + ON SELECTION BAR 1 OF _0ln0qf60i DO BAR_1_OF__0ln0qf60i_FB2P + + DEFINE BAR 2 OF _0ln0qf60i PROMPT "Clienti -> Facturi Vanzari" + ON SELECTION BAR 2 OF _0ln0qf60i DO BAR_2_OF__0ln0qf60i_FB2P + + DEFINE BAR 3 OF _0ln0qf60i PROMPT "\-" + ON BAR 3 OF _0ln0qf60i ACTIVATE POPUP _0rb0tndj4 + + *---------------------------------- + DEFINE POPUP _0rb0tndj4 MARGIN RELATIVE SHADOW COLOR SCHEME 4 + DEFINE BAR 4 OF _0ln0qf60i PROMPT "Facturi Cumparari->Furnizori" + ON SELECTION BAR 4 OF _0ln0qf60i DO BAR_4_OF__0ln0qf60i_FB2P + + DEFINE BAR 5 OF _0ln0qf60i PROMPT "Facturi Vanzari -> Clienti" + ON SELECTION BAR 5 OF _0ln0qf60i DO BAR_5_OF__0ln0qf60i_FB2P + + DEFINE BAR 5 OF _1bs12qror PROMPT "\-" + ON BAR 5 OF _1bs12qror ACTIVATE POPUP _0wt0ymzyk + + *---------------------------------- + DEFINE POPUP _0wt0ymzyk MARGIN RELATIVE SHADOW COLOR SCHEME 4 + DEFINE BAR 6 OF _1bs12qror PROMPT "\Alte actualizari" + ON BAR 6 OF _1bs12qror ACTIVATE POPUP NewItem + + *---------------------------------- + DEFINE POPUP NewItem MARGIN RELATIVE SHADOW COLOR SCHEME 4 + DEFINE BAR 1 OF NewItem PROMPT "Adaptarea textului in balanta cf. planului de conturi" + ON SELECTION BAR 1 OF NewItem DO BAR_1_OF_NewItem_FB2P + + DEFINE BAR 2 OF NewItem PROMPT "Completarea nomenclatorului de materiale pe baza stocului" + ON SELECTION BAR 2 OF NewItem DO BAR_2_OF_NewItem_FB2P + + DEFINE BAR 3 OF NewItem PROMPT "\-" + ON BAR 3 OF NewItem ACTIVATE POPUP _16a0jfcmp + + *---------------------------------- + DEFINE POPUP _16a0jfcmp MARGIN RELATIVE SHADOW COLOR SCHEME 4 + DEFINE BAR 4 OF NewItem PROMPT "\Sincronizare nume - balante analitice, registru jurnal" + ON SELECTION BAR 4 OF NewItem DO BAR_4_OF_NewItem_FB2P + + DEFINE BAR 5 OF NewItem PROMPT "\-" + ON BAR 5 OF NewItem ACTIVATE POPUP _1770wos9a + + *---------------------------------- + DEFINE POPUP _1770wos9a MARGIN RELATIVE SHADOW COLOR SCHEME 4 + DEFINE BAR 6 OF NewItem PROMPT "Actualizare solduri facturi in valuta la 31.12.NN" + ON SELECTION BAR 6 OF NewItem do actualizare_facturi_valuta.prg + + DEFINE BAR 7 OF _1bs12qror PROMPT "\-" + ON BAR 7 OF _1bs12qror ACTIVATE POPUP _0ms0u7t1l + + *---------------------------------- + DEFINE POPUP _0ms0u7t1l MARGIN RELATIVE SHADOW COLOR SCHEME 4 + DEFINE BAR 8 OF _1bs12qror PROMPT "\Serii" ; + SKIP FOR m.nivel#0 + ON BAR 8 OF _1bs12qror ACTIVATE POPUP Serii + + *---------------------------------- + DEFINE POPUP Serii MARGIN RELATIVE SHADOW COLOR SCHEME 4 + DEFINE BAR 1 OF Serii PROMPT "\ Actan" + ON SELECTION BAR 3 OF Actualizar DO BAR_3_OF_Actualizar_FB2P + + DEFINE BAR 4 OF Actualizar PROMPT "\ Rul" + ON SELECTION BAR 4 OF Actualizar DO BAR_4_OF_Actualizar_FB2P + + DEFINE BAR 5 OF Actualizar PROMPT "\-" + ON BAR 5 OF Actualizar ACTIVATE POPUP _07q180bx4 + + *---------------------------------- + DEFINE POPUP _07q180bx4 MARGIN RELATIVE SHADOW COLOR SCHEME 4 + DEFINE BAR 6 OF Actualizar PROMPT "Pereche \ Act" + ON SELECTION BAR 8 OF Actualizar DO BAR_8_OF_Actualizar_FB2P + + DEFINE BAR 9 OF Actualizar PROMPT "\-" + ON BAR 9 OF Actualizar ACTIVATE POPUP _07q17tw62 + + *---------------------------------- + DEFINE POPUP _07q17tw62 MARGIN RELATIVE SHADOW COLOR SCHEME 4 + DEFINE BAR 10 OF Actualizar PROMPT "\1 + ON SELECTION BAR 11 OF _1bs12qror DO BAR_11_OF__1bs12qror_FB2P + + DEFINE BAR 12 OF _1bs12qror PROMPT "\-" + ON BAR 12 OF _1bs12qror ACTIVATE POPUP _16w10v8x0 + + *---------------------------------- + DEFINE POPUP _16w10v8x0 MARGIN RELATIVE SHADOW COLOR SCHEME 4 + DEFINE BAR 13 OF _1bs12qror PROMPT "\ + +* +PROCEDURE BAR_1_OF_Optiunisis_FB2P + oschp=create('schimbparola') + oschp.show(1) +ENDPROC && BAR_1_OF_Optiunisis_FB2P + +PROCEDURE BAR_2_OF_Optiunisis_FB2P + orp=create('parola') + orp.show(1) + + if buton=3 + or=create('redirect') + or.show(1) + endif + +ENDPROC && BAR_2_OF_Optiunisis_FB2P + +PROCEDURE BAR_4_OF_Optiunisis_FB2P + oc=crea('culori') + oc.show(1) +ENDPROC && BAR_4_OF_Optiunisis_FB2P + +PROCEDURE BAR_3_OF_Utile_FB2P + OMENU=CREA('MENUg') + OMENU.SHOW() +ENDPROC && BAR_3_OF_Utile_FB2P + +PROCEDURE BAR_4_OF_Utile_FB2P + + orp=create('parolaMEA') + orp.show(1) + + if buton=3 + DO FORM fisiere + ENDIF +ENDPROC && BAR_4_OF_Utile_FB2P + +PROCEDURE BAR_1_OF_Reindexare_FB2P + do reindexare.prg +ENDPROC && BAR_1_OF_Reindexare_FB2P + +PROCEDURE BAR_2_OF_Reindexare_FB2P + do reindexaretempo in reindexare.prg +ENDPROC && BAR_2_OF_Reindexare_FB2P + +PROCEDURE BAR_7_OF_Utile_FB2P + do case + case file('C:\WINDOWS\CALC.EXE') + run /N C:\WINDOWS\CALC.EXE + case file('C:\WINDOWS\SYSTEM32\CALC.EXE') + run /N C:\WINDOWS\SYSTEM32\CALC.EXE + case file('C:\WINnt\system32\CALC.EXE') + run /N C:\WINnt\system32\CALC.EXE + otherwise + do mesajatent with 'Aplicatia "Calculator" nu este instalata','pe acest sistem!' + endcase + + + +ENDPROC && BAR_7_OF_Utile_FB2P + +PROCEDURE BAR_8_OF_Utile_FB2P + *!* od=createo('diary') + *!* od.show(1) +ENDPROC && BAR_8_OF_Utile_FB2P + +PROCEDURE BAR_9_OF_Utile_FB2P + do case + case file('C:\WINDOWS\NOTEPAD.EXE') + run /N C:\WINDOWS\NOTEPAD.EXE + case file('C:\WINnt\system32\NOTEPAD.EXE') + run /N C:\WINnt\system32\NOTEPAD.EXE + otherwise + do mesajatent with 'Aplicatia "NOTEPAD" nu este instalata','pe acest sistem!' + endcase + +ENDPROC && BAR_9_OF_Utile_FB2P + +PROCEDURE BAR_11_OF_Utile_FB2P + ies=.t. + + DO IESIRE +ENDPROC && BAR_11_OF_Utile_FB2P + +PROCEDURE BAR_1_OF_Initializa_FB2P + + do form start00 + + + +ENDPROC && BAR_1_OF_Initializa_FB2P + +PROCEDURE BAR_2_OF_Initializa_FB2P + osp=crea('seriaper') + osp.show(1) +ENDPROC && BAR_2_OF_Initializa_FB2P + +PROCEDURE BAR_4_OF_Initializa_FB2P + DO deschidluna WITH .T. IN oredeschid.prg +ENDPROC && BAR_4_OF_Initializa_FB2P + +PROCEDURE BAR_5_OF_Initializa_FB2P + DO deschidluna WITH .F. IN oredeschid.prg +ENDPROC && BAR_5_OF_Initializa_FB2P + +PROCEDURE BAR_1_OF_Blocaredel_FB2P + sele calendar + loca for nl=m.nl and an=m.an + if smf + do mesaj with 'Luna '+m.nl+' '+m.an+' este inchisa!','' + else + oi=crea('danuinchid') + oi.show(1) + if buton=1 + sele calendar + loca for nl=m.nl and an=m.an + repl smf with .t. + luna_inchisa=.t. + endif + endif +ENDPROC && BAR_1_OF_Blocaredel_FB2P + +PROCEDURE BAR_2_OF_Blocaredel_FB2P + orp=create('parola') + orp.show(1) + if buton=3 + SELECT calendar + do form inchidluni + endif + + +ENDPROC && BAR_2_OF_Blocaredel_FB2P + +PROCEDURE BAR_8_OF_Initializa_FB2P + Local ERR + *!* IF !USED("CALEFIRMA") + *!* USE &calefirma\datean\datefirma IN 0 SHARED + *!* ENDIF + + Sele datefirma + If !existacamp("datefirma","punct_luc") + Select datefirma + Use + ERR=1 + On Error Do ERREIND With ERR,"Dati reindexare pe 'DATEAN'" + Use &calefirma\DATEAN\datefirma In 0 Excl + If ERR=0 + Use &calefirma\DATEAN\datefirma In 0 Shared + Return + Endif + Alter Table datefirma Add Column punct_luc c(20) + Use In datefirma + Use &calefirma\DATEAN\datefirma In 0 Shared + On Error + Endif + Do Form datefirma + *use &calefirma\datean\datefirma in 0 shared again + Sele datefirma + + Select * From datefirma Into Cursor FFF + If _Tally=0 + Sele datefirma + Append Blank + Endif + Select datefirma + Go Top + If Flock() + Gather Memvar + Repl denumire With Alltrim(m.flung) + Repl localitate With m.localitate + Repl strada With m.strada + Repl nr With Allt(Str(m.numar)) + m.denumire=Alltrim(m.flung) + Unlock + Endif + + *SELECT datefirma + If !existacamp('datefirma',"capsocvar") + Use In datefirma + + On Error Do a + Use &calefirma\DATEAN\datefirma In 0 Exclusive + + If !Used('datefirma') + Do mesaj With "Inchideti programul pe toate calculatoarele din retea","pentru actualizarea datelor" + Quit + Else + Alter Table datefirma Add Column capsocvar N(14) + Alter Table datefirma Add Column capsocSUB N(14) + Endif + On Error + Use In datefirma + Use &calefirma\DATEAN\datefirma In 0 Shared Again + Endif + Select datefirma + Scatter Memvar + Do Form datelefirma + Select datefirma + If Flock() + Gather Memv + Endif + Unlock + If !Empty(m.punct_luc) + punct_de_lucru="Punct de lucru: "+Alltrim(m.punct_luc) + Endif + *brow title 'CTR-Y pentru linie noua / ESC pentru iesire' + *use in datefirma +ENDPROC && BAR_8_OF_Initializa_FB2P + +PROCEDURE BAR_1_OF_Firmanoua_FB2P + ll2=m.nl + aa2=m.an + + do form startfirma + IF buton=2 + m.an=aa2 + m.nl=ll2 + endif +ENDPROC && BAR_1_OF_Firmanoua_FB2P + +PROCEDURE BAR_1_OF__0980v14qn_FB2P + sele act + copy struct to &loc\&nfscurt\tempo\ytemp WITH CDX + + sele 0 + use &loc\&nfscurt\tempo\ytemp alias ytemp + sele ytemp + BUTON=1 + mmm=crea('modiffact') + mmm.decare='FURN' + MMM.SHOW(1) + IF BUTON=2 + DO STERGE + USE IN YTEMP + RETURN + ENDIF + + SELE YTEMP + SCAN + SCAT MEMV + SELE ACT + IF FLOCK() + appe blan + gath memv + endif + unlock + SELE ACTan + IF FLOCK() + appe blan + gath memv + endif + unlock + endscan + + USE IN YTEMP + wait wind 'Se inregistreaza in analiticul de furnizori...' nowait + DO TOTV + DO REFBAL + DO REFFURNIZOR + wait wind 'Se inregistreaza in registrul de cumparari...' nowait + DO TOTV + DO REFCUMP + wait wind 'Se inregistreaza in situatia facturilor de furnizori...' nowait + do totv + DO REFCUMPLUN + DO TOTV + wait clear +ENDPROC && BAR_1_OF__0980v14qn_FB2P + +PROCEDURE BAR_2_OF__0980v14qn_FB2P + sele act + copy struct to &loc\&nfscurt\tempo\ytemp WITH CDX + + sele 0 + use &loc\&nfscurt\tempo\ytemp alias ytemp + sele ytemp + BUTON=1 + mmm=crea('modiffact') + mmm.decare='CLI' + MMM.SHOW(1) + IF BUTON=2 + DO STERGE + USE IN YTEMP + RETURN + ENDIF + + SELE YTEMP + SCAN + SCAT MEMV + SELE ACT + IF FLOCK() + appe blan + gath memv + endif + unlock + SELE ACTan + IF FLOCK() + appe blan + gath memv + endif + unlock + endscan + + USE IN YTEMP + wait wind 'Se inregistreaza in analiticul de clienti...' nowait + DO TOTV + DO REFBAL + DO REFCLIENTI + wait wind 'Se inregistreaza in registrul de vanzari...' nowait + DO TOTV + DO REFVANZ + wait wind 'Se inregistreaza in situatia facturilor de clienti...' nowait + do totv + DO REFVANZLUN + DO TOTV + wait clear +ENDPROC && BAR_2_OF__0980v14qn_FB2P + +PROCEDURE BAR_3_OF__0980v14qn_FB2P + LOCAL m.SUM1,M.SUM2,M.SUM3 + + SELECT CREDITOR + SET FILTER TO !DELETED() + sum LUAT,DAT to m.SUM1,M.SUM2 + M.SUM3=M.SUM1-M.SUM2 + + SELE BAL + SEEK '462 ' + SCATTER MEMVAR + IF M.SOLDcred # M.SUM3 + do mesajval with 'Diferenta soldului cont.462 este de: ',M.SOLDCRED-M.SUM3 + endif + + + + m.cont='462 ' + cn=m.cont + + SELECT CREDITOR.NUME,CREDITOR.luat as deb,CREDITOR.dat as cred; + from CREDITOR where !deleted() ; + into TABLE &LOC\&nfscurt\tempo\xtemp + + * rename column luat TO deb; + * rename column dat TO cred; + + if file('&LOC\&nfscurt\tempo\xtemp.dbf') + sele xtemp + alter table xtemp ADD COLUMN CONT C(4) + repl all cont with m.cont + + sele xtemp + index on nume tag nume of &LOC\&nfscurt\tempo\xtemp + + OVIZ=CREATEOBJECT("afsitanalitX") + WITH OVIZ + .command5.visible=.f. + .LABEL10.CAPTION='SITUATIA ANALITICA - CREDITORI' + .GRID1.COLUMN2.VISIBLE=.F. + .GRID1.COLUMN2.WIDTH=0 + .GRID1.COLUMN8.VISIBLE=.F. + .GRID1.COLUMN8.WIDTH=0 + ENDWITH + OVIZ.SHOW(1) + use in xtemp + endif +ENDPROC && BAR_3_OF__0980v14qn_FB2P + +PROCEDURE BAR_4_OF__0980v14qn_FB2P + SELECT debitor + SET FILTER TO !DELETED() + + SELECT debitor + sum LUAT,DAT to m.SUM1,M.SUM2 + M.SUM3=M.SUM1-M.SUM2 + SELE BAL + SEEK '461 ' + SCATTER MEMVAR + IF M.SOLDDEB # M.SUM3 + do mesajval with 'Diferenta soldului cont.461 este de: ',M.SOLDDEB-M.SUM3 + endif + + + SELECT debitor.NUME,debitor.luat as deb,debitor.dat as cred; + from debitor where !deleted() ; + into TABLE &LOC\&nfscurt\tempo\xtemp + *alter table xtemp; + * rename column luat TO DEB; + * rename column dat TO CRED; + + sele xtemp + index on nume tag nume of &LOC\&nfscurt\tempo\xtemp + + do creaT_analitX with 'SITUATIE ANALITICA - DEBITORI','Incasat','Restituit' + use in xtemp +ENDPROC && BAR_4_OF__0980v14qn_FB2P + +PROCEDURE BAR_5_OF__0980v14qn_FB2P + local m.sum1,m.sum2,m.sum3 + set safety off + + SELECT ACHIT542 + SET FILTER TO !DELETED() + sum LUAT,DAT to m.SUM1,M.SUM2 + M.SUM3=M.SUM1-M.SUM2 + + SELE BAL + SEEK '542 ' + SCATTER MEMVAR + IF M.SOLDDEB # M.SUM3 + + ot=createobj('textval') + ot.label2.caption= 'Diferenta soldului este de: ' + ot.valoare=M.SOLDDEB-M.SUM3 + ot.show(1) + ENDIF + + m.cont='542 ' + cn=m.cont + + SELECT ACHIT542.NUME_2 as nume,achit542.luat as deb,achit542.dat as cred; + from achit542 where !deleted(); + into TABLE &LOC\&nfscurt\tempo\xtemp + + ** rename column nume_2 TO nume; + * rename column luat TO deb; + * rename column dat TO cred; + + if file('&LOC\&nfscurt\tempo\xtemp.dbf') + sele xtemp + alter table xtemp ADD COLUMN CONT C(4) + repl all cont with m.cont + index on nume tag nume of &LOC\&nfscurt\tempo\xtemp + + OVIZ=CREATEOBJECT("afsitanalitX") + WITH OVIZ + .command5.visible=.f. + .LABEL10.CAPTION='SITUATIA ANALITICA - ACHIZITORI' + .GRID1.COLUMN2.VISIBLE=.F. + .GRID1.COLUMN2.WIDTH=0 + .GRID1.COLUMN8.VISIBLE=.F. + .GRID1.COLUMN8.WIDTH=0 + ENDWITH + OVIZ.SHOW(1) + use in xtemp + endif +ENDPROC && BAR_5_OF__0980v14qn_FB2P + +PROCEDURE BAR_6_OF__0980v14qn_FB2P + SELECT actionar + SET FILTER TO !DELETED() + sum LUAT,DAT to m.SUM1,M.SUM2 + M.SUM3=M.SUM1-M.SUM2 + + + SELECT actionar.NUME,actionar.luat as deb,actionar.dat as cred; + from actionar where !deleted() ; + into TABLE &LOC\&nfscurt\tempo\xtemp + *alter table xtemp; + * rename column luat TO deb; + * rename column dat TO cred; + + sele xtemp + index on nume tag nume of &LOC\&nfscurt\tempo\xtemp + + do creaT_analitX with 'SITUATIE ANALITICA - ACTIONARI','Luat','Dat' + use in xtemp +ENDPROC && BAR_6_OF__0980v14qn_FB2P + +PROCEDURE BAR_3_OF_Preluarede_FB2P + sele bal + do form afisbalx +ENDPROC && BAR_3_OF_Preluarede_FB2P + +PROCEDURE BAR_11_OF_Initializa_FB2P + oc=crea('coef') + oc.show(1) +ENDPROC && BAR_11_OF_Initializa_FB2P + +PROCEDURE BAR_12_OF_Initializa_FB2P + DO configurare_note IN omeniu_initializari.prg +ENDPROC && BAR_12_OF_Initializa_FB2P + +PROCEDURE BAR_1_OF_Listenomen_FB2P + DO VIZ_FDOC IN ONOMENCLATOARE.PRG +ENDPROC && BAR_1_OF_Listenomen_FB2P + +PROCEDURE BAR_2_OF_Listenomen_FB2P + DO viz_sectii IN ONOMENCLATOARE.PRG +ENDPROC && BAR_2_OF_Listenomen_FB2P + +PROCEDURE BAR_3_OF_Listenomen_FB2P + DO VIZ_GESTIUNI IN ONOMENCLATOARE.PRG +ENDPROC && BAR_3_OF_Listenomen_FB2P + +PROCEDURE BAR_4_OF_Listenomen_FB2P + DO viz_venchel IN onomenclatoare.prg +ENDPROC && BAR_4_OF_Listenomen_FB2P + +PROCEDURE BAR_5_OF_Listenomen_FB2P + DO viz_lucrari IN onomenclatoare.prg +ENDPROC && BAR_5_OF_Listenomen_FB2P + +PROCEDURE BAR_6_OF_Listenomen_FB2P + DO VIZ_RESPONSABILI IN ONOMENCLATOARE.PRG +ENDPROC && BAR_6_OF_Listenomen_FB2P + +PROCEDURE BAR_7_OF_Listenomen_FB2P + DO VIZ_JUDETE IN ONOMENCLATOARE.PRG +ENDPROC && BAR_7_OF_Listenomen_FB2P + +PROCEDURE BAR_8_OF_Listenomen_FB2P + DO VIZ_LOCALITATI IN ONOMENCLATOARE.PRG +ENDPROC && BAR_8_OF_Listenomen_FB2P + +PROCEDURE BAR_15_OF_Initializa_FB2P + DO viz_plcont IN onomenclatoare.prg +ENDPROC && BAR_15_OF_Initializa_FB2P + +PROCEDURE BAR_16_OF_Initializa_FB2P + DO viz_parteneri IN onomenclatoare.prg +ENDPROC && BAR_16_OF_Initializa_FB2P + +PROCEDURE BAR_1_OF_Optiuni_FB2P + DO viz_optiuni IN oinit_optiuni.prg +ENDPROC && BAR_1_OF_Optiuni_FB2P + +PROCEDURE BAR_2_OF_Optiuni_FB2P + DO viz_optiuni WITH gcS IN oinit_optiuni.prg +ENDPROC && BAR_2_OF_Optiuni_FB2P + +PROCEDURE BAR_1_OF__1bs12qror_FB2P + overi=crea('verif') + overi.show(1) +ENDPROC && BAR_1_OF__1bs12qror_FB2P + +PROCEDURE BAR_2_OF__1bs12qror_FB2P + local l,a + l=m.nl + a=m.an + + *!* orp=create('parola') + *!* orp.show(1) + + *!* if buton=3 + overi=crea('REF') + overi.show(1) + *!* ENDIF + + set dele on +ENDPROC && BAR_2_OF__1bs12qror_FB2P + +PROCEDURE BAR_3_OF__1bs12qror_FB2P + set deleted off + orp=create('parola') + orp.show(1) + + if buton=3 + + *overi=crea('modif') + *overi.show() + do form modif + endif + + set dele on +ENDPROC && BAR_3_OF__1bs12qror_FB2P + +PROCEDURE BAR_1_OF__0ln0qf60i_FB2P + set deleted on + orp=create('parolamea') + orp.show(1) + + if buton=3 + + do furn-cumplun.prg + DO MESAJ WITH 'GATA','' + endif +ENDPROC && BAR_1_OF__0ln0qf60i_FB2P + +PROCEDURE BAR_2_OF__0ln0qf60i_FB2P + set deleted on + orp=create('parolamea') + orp.show(1) + + if buton=3 + + do cli-vanzlun.prg + DO MESAJ WITH 'GATA','' + endif +ENDPROC && BAR_2_OF__0ln0qf60i_FB2P + +PROCEDURE BAR_4_OF__0ln0qf60i_FB2P + set deleted on + *!* orp=create('parolamea') + *!* orp.show(1) + + orp=Create('parola') + orp.Show(1) + if buton=3 + + do cumplun-furn.prg + DO MESAJ WITH 'GATA','' + endif +ENDPROC && BAR_4_OF__0ln0qf60i_FB2P + +PROCEDURE BAR_5_OF__0ln0qf60i_FB2P + set deleted on + *!* orp=create('parolamea') + *!* orp.show(1) + orp=Create('parola') + orp.Show(1) + + if buton=3 + + do vanzlun-clienti.prg + DO MESAJ WITH 'GATA','' + endif +ENDPROC && BAR_5_OF__0ln0qf60i_FB2P + +PROCEDURE BAR_1_OF_NewItem_FB2P + Select bal + Scan + Scatter Memv + Select plcont + Locate For cimp1=m.cont + If Found() + m.denumire=cimp2 + Select bal + If Flock() + Replace denumire With m.denumire + Endif + Unlock + Endif + Select bal + Endscan + + Select balana + Scan + Scatter Memv + Select plcontana + Locate For cont = m.cont AND acont = m.acont + If Found() + m.denumire = denumire + Select balana + If Flock() + Replace denumire With m.denumire + Endif + Unlock + Endif + Select balana + ENDSCAN + + Do mesaj With 'Operatiunea a fost executata.','' + +ENDPROC && BAR_1_OF_NewItem_FB2P + +PROCEDURE BAR_2_OF_NewItem_FB2P + SELECT DISTINCT denumire, scd,codmat FROM stoc INTO CURSOR ff ORDER BY denumire + + SELECT DISTINCT denumire, scd,codmat FROM ff WHERE ; + denumire+scd+codmat NOT in (select DISTINCT denumire+scd+codmat FROM listast); + into CURSOR aaa + + SELECT listast + IF FLOCK() + APPEND FROM DBF('aaa') + ENDIF + UNLOCK + + DO mesaj WITH 'Operatiunea a fost executata','' +ENDPROC && BAR_2_OF_NewItem_FB2P + +PROCEDURE BAR_4_OF_NewItem_FB2P + DO VIZ_SINCRONIZARE_NUME IN sincronizare_g.prg +ENDPROC && BAR_4_OF_NewItem_FB2P + +PROCEDURE BAR_1_OF_Serii_FB2P + set deleted off + orp=create('parolamea') + orp.show(1) + + if buton=3 + + sele cod + brow + endif + + set dele on +ENDPROC && BAR_1_OF_Serii_FB2P + +PROCEDURE BAR_2_OF_Serii_FB2P + set deleted off + orp=create('parolamea') + orp.show(1) + + if buton=3 + + sele nir + brow + endif + + set dele on +ENDPROC && BAR_2_OF_Serii_FB2P + +PROCEDURE BAR_3_OF_Serii_FB2P + set deleted off + orp=create('parolamea') + orp.show(1) + + if buton=3 + + sele nrbon + brow + endif + + set dele on +ENDPROC && BAR_3_OF_Serii_FB2P + +PROCEDURE BAR_1_OF_Actualizar_FB2P + local l,a + l=m.nl + a=m.an + + orp=create('parolaMEA') + orp.show(1) + + if buton=3 + public semafor1 + semafor1=.f. + do curatare + if semafor1 + return + endif + do actualizari.prg + m.nl=l + m.an=a + do totv + + endif + + +ENDPROC && BAR_1_OF_Actualizar_FB2P + +PROCEDURE BAR_3_OF_Actualizar_FB2P + LOCAL ll,aa,d + ll=m.nl + aa=m.an + + orp=CREATE('parola') + orp.SHOW(1) + + IF buton=3 + PUBLIC semafor1 + semafor1=.F. + DO curatare + IF semafor1 + RETURN + ENDIF + DO actualizactan + ENDIF + + m.nl=ll + m.an=aa + DO totv + *do mesaj with 'Gata!','' + + + +ENDPROC && BAR_3_OF_Actualizar_FB2P + +PROCEDURE BAR_4_OF_Actualizar_FB2P + local ll,aa,d + ll=m.nl + aa=m.an + + orp=create('parola') + orp.show(1) + + if buton=3 + public semafor1 + semafor1=.f. + do curatare + if semafor1 + return + endif + do actualizrul + endif + + m.nl=ll + m.an=aa + do totv + *do mesaj with 'Gata!','' + + +ENDPROC && BAR_4_OF_Actualizar_FB2P + +PROCEDURE BAR_6_OF_Actualizar_FB2P + orp=create('parolaMEA') + orp.show(1) + + if buton=3 + public semafor1 + semafor1=.f. + do curatare + if semafor1 + return + endif + do refper + endif + + do mesaj with 'Gata!','' + + +ENDPROC && BAR_6_OF_Actualizar_FB2P + +PROCEDURE BAR_7_OF_Actualizar_FB2P + orp=create('parolaMEA') + orp.show(1) + + if buton=3 + public semafor1 + semafor1=.f. + do curatare + if semafor1 + return + endif + do refpercli + endif + + do mesaj with 'Gata!','' +ENDPROC && BAR_7_OF_Actualizar_FB2P + +PROCEDURE BAR_8_OF_Actualizar_FB2P + orp=create('parolaMEA') + orp.show(1) + + if buton=3 + public semafor1 + semafor1=.f. + do curatare + if semafor1 + return + endif + do actanact + endif + + do mesaj with 'Gata!','' + + +ENDPROC && BAR_8_OF_Actualizar_FB2P + +PROCEDURE BAR_10_OF_Actualizar_FB2P + local ll,aa + ll=m.nl + aa=m.an + + orp=create('parolaMEA') + orp.show(1) + + if buton#3 + return + endif + + + + set safety off + public semafor1 + semafor1=.f. + do curatare + if semafor1 + return + endif + *do refcumpNOUan + DO REFCUMP + do mesaj with 'Total cumparari','Refacerea s-a incheiat.' + + m.nl=ll + m.an=aa + do totv +ENDPROC && BAR_10_OF_Actualizar_FB2P + +PROCEDURE BAR_11_OF_Actualizar_FB2P + local ll,aa + ll=m.nl + aa=m.an + + + orp=create('parolaMEA') + orp.show(1) + + if buton#3 + return + endif + + + + set safety off + public semafor1 + semafor1=.f. + do curatare + if semafor1 + return + endif + do refvanzan + do mesaj with 'Total vanzari','Refacerea s-a incheiat.' + + m.nl=ll + m.an=aa + do totv +ENDPROC && BAR_11_OF_Actualizar_FB2P + +PROCEDURE BAR_13_OF_Actualizar_FB2P + local ll,aa + ll=m.nl + aa=m.an + + orp=create('parolaMEA') + orp.show(1) + + if buton#3 + return + endif + + public semafor1 + semafor1=.f. + do curatare + if semafor1 + return + endif + + sele act + use + sele actan + use + + do refact in actualizari.prg + do refactan in actualizari.prg + + m.nl=ll + m.an=aa + do totv +ENDPROC && BAR_13_OF_Actualizar_FB2P + +PROCEDURE BAR_1_OF_Responsabi_FB2P + local ll,aa + ll=m.nl + aa=m.an + + orp=create('parolaMEA') + orp.show(1) + + if buton#3 + return + endif + + public semafor1 + semafor1=.f. + do curatare + if semafor1 + return + endif + + do refresponsl + + + m.nl=ll + m.an=aa + do totv + return + + + *________________________________ + proc refresponsl + sele act + if flock() + repl all nresp with nume_2 for left(scd,1)='6' or left(scd,1)='3' and empty(nresp) + endif + unlock + + sele rull + if flock() + sele act + scan for left(scd,1)='6' or left(scd,1)='3' and !empty(nresp) + scat fiel cod,nresp memv + sele rull + repl all nresp with m.nresp for cod=m.cod and empty(nresp) + sele act + endscan + endif + unlock in rull + return + + +ENDPROC && BAR_1_OF_Responsabi_FB2P + +PROCEDURE BAR_2_OF_Responsabi_FB2P + local ll,aa + ll=m.nl + aa=m.an + + orp=create('parolaMEA') + orp.show(1) + + if buton#3 + return + endif + + public semafor1 + semafor1=.f. + do curatare + if semafor1 + return + endif + + do refresponsan + + m.nl=ll + m.an=aa + do totv + return + + + + *________________________________ + proc refresponsan + sele actan + if flock() + repl all nresp with nume_2 for left(scd,1)='6' or left(scd,1)='3' and empty(nresp) + endif + unlock + + sele rul + if flock() + sele actan + scan for left(scd,1)='6' or left(scd,1)='3' and !empty(nresp) + scat fiel cod,nresp memv + sele rul + repl all nresp with m.nresp for cod=m.cod and empty(nresp) + sele actan + endscan + endif + unlock in rul + return +ENDPROC && BAR_2_OF_Responsabi_FB2P + +PROCEDURE BAR_17_OF_Actualizar_FB2P + local ll,aa,d + ll=m.nl + aa=m.an + + + orp=create('parolaMEA') + orp.show(1) + + if buton#3 + return + endif + + public semafor1 + semafor1=.f. + do curatare + if semafor1 + return + endif + + sele calendar + M=RECCOUNT()+3 + OP=CREA('PROGRESBAR') + op.titlu.caption='Refacere Data Scadenta' + OP.SHOW() + j=0 + + + *_actan_________________________________________________ + sele actan + do datasc + do pr with j + + *_cumpan_________________________________________________ + sele cumpan + do datasc + do pr with j + + *_vanzan_________________________________________________ + sele vanzan + do datasc + do pr with j + + *_act_________________________________________________ + sele act + do datasc + sele calendar + scan for !(m.nl=nl and m.an=an) + d=calefirma+'\an'+an+'\date'+nl+'\act.dbf' + sele 0 + use &d alias acta + do datasc + use + do pr with j + endscan + + op.release + + m.an=aa + m.nl=ll + + + do mesaj with 'Gata!','' + return + + + + + + + + *datasc_________________________________________________ + proc datasc + REPL ALL DATASCAD WITH CTOD('30/'+STR(MONTH(DATAACT)+1)+'/'+STR(YEAR(DATAACT)) ) ; + FOR empty(datascad) and inlist(DAY(DATAACT),31,30) and !inlist(MONTH(DATAACT),12,1) + + REPL ALL DATASCAD WITH CTOD(STR(DAY(DATAACT))+'/'+STR(MONTH(DATAACT)+1)+'/'+STR(YEAR(DATAACT)) ) ; + FOR empty(datascad) and !inlist(DAY(DATAACT),31,30) and !inlist(MONTH(DATAACT),12,1) + + REPL ALL DATASCAD WITH CTOD('28/'+STR(MONTH(DATAACT)+1)+'/'+STR(YEAR(DATAACT)) ) ; + FOR empty(datascad) and inlist(DAY(DATAACT),28,29,30,31) and inlist(MONTH(DATAACT),1) + + REPL ALL DATASCAD WITH CTOD(STR(DAY(DATAACT))+'/01/'+STR(YEAR(DATAACT)) ) ; + FOR empty(datascad) and inlist(MONTH(DATAACT),12) + return + +ENDPROC && BAR_17_OF_Actualizar_FB2P + +PROCEDURE BAR_11_OF__1bs12qror_FB2P + local l,a + l=m.nl + a=m.an + + orp=create('parola') + orp.show(1) + + if buton=3 + **************************** + public semafor1 + semafor1=.f. + do curatare + if semafor1 + return + endif + + + ot=createobj("textr") + ot.label2.caption="Firma: "+rtrim(M.FLUNG)+' ('+nfscurt+')' + ot.label3.caption="Se redeschide luna: "+m.nl+" "+m.an + ot.show(1) + if buton=1 + DO REDESCHI2 + do totv + ot=createobj("text") + ot.label2.caption="Firma: "+rtrim(M.FLUNG)+' ('+nfscurt+')' + ot.label3.caption="Redeschiderea lunii: "+m.nl+" "+m.an+" a fost efectuata." + ot.show(1) + endif + + wait wind 'Se recompune baza de date: Registrul jurnal total' nowait + do actualizactan + wait wind 'Se recompune baza de date: Rulaje generale' nowait + do actualizrul + + m.nl=l + m.an=a + do totv + + do mesaj with 'Actualizarea s-a efectuat','' + ***************************8 + ENDIF +ENDPROC && BAR_11_OF__1bs12qror_FB2P + +PROCEDURE BAR_13_OF__1bs12qror_FB2P + DO verificareGlobala IN overificari.prg +ENDPROC && BAR_13_OF__1bs12qror_FB2P + +PROCEDURE BAR_1_OF_Ajutor_FB2P + ohelpcont=createobj('help_pltree') + ohelpcont.show(1) +ENDPROC && BAR_1_OF_Ajutor_FB2P + +PROCEDURE BAR_2_OF_Ajutor_FB2P + *!* oh=crea('help_tree') + *!* oh.show(1) + LOCAL cSite + cSite = dirgen+"/manual/prezentare_cont.htm" + + IF !FILE(csite) + DO mesaj WITH 'Nu este instalat manualul de utilizare !','' + RETURN + ENDIF + + oBrowser=CREATEOBJECT("internetexplorer.application") + oBrowser.Navigate(cSite) + oBrowser.Visible = .T. +ENDPROC && BAR_2_OF_Ajutor_FB2P + +PROCEDURE BAR_4_OF_Ajutor_FB2P + IF !DIRECTORY('&CALEFIRMA\SESIZARI') + MD &CALEFIRMA\SESIZARI + Endif + IF !FILE('&CALEFIRMA\SESIZARI\SESIZARI.DBF') + COPY FILE &DIRGEN\_ALFA\TEMPO\sesizari.* TO &CALEFIRMA\SESIZARI\SESIZARI.* + ENDIF + + USE &CALEFIRMA\SESIZARI\sesizari.dbf IN 0 shared + SELECT sesizari + DO FORM edises + *DO FORM sesizare + USE IN sesizari + + +ENDPROC && BAR_4_OF_Ajutor_FB2P + +PROCEDURE BAR_6_OF_Ajutor_FB2P + DO FORM frm_about +ENDPROC && BAR_6_OF_Ajutor_FB2P + +* diff --git a/Meniuri/contcasa_.mn2 b/Meniuri/contcasa_.mn2 new file mode 100644 index 0000000..2170556 --- /dev/null +++ b/Meniuri/contcasa_.mn2 @@ -0,0 +1,532 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="contcasa_.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Introducer SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Introducer PROMPT "\3 ; + MESSAGE 'Trezorerie' +ON BAR 1 OF Introducer ACTIVATE POPUP _0bh0pul28 + + *---------------------------------- + DEFINE POPUP _0bh0pul28 SHORTCUT RELATIVE + DEFINE BAR "81" OF _0bh0pul28 PROMPT "Casa incasari" + ON BAR 81 OF _0bh0pul28 ACTIVATE POPUP Casaincasa + + *---------------------------------- + DEFINE POPUP Casaincasa SHORTCUT RELATIVE + DEFINE BAR "81010" OF Casaincasa PROMPT "Ridicat numerar din banca 581" ; + MESSAGE '5311:581 ;581 :5121' + ON SELECTION BAR 81010 OF Casaincasa DO BAR_"81010"_OF_Casaincasa_FB2P + + DEFINE BAR 2 OF Casaincasa PROMPT "Transfer intre case 581" ; + MESSAGE '5311:581' + ON SELECTION BAR 2 OF Casaincasa DO BAR_2_OF_Casaincasa_FB2P + + DEFINE BAR 3 OF Casaincasa PROMPT "\-" + ON BAR 3 OF Casaincasa ACTIVATE POPUP _0j10xmir1 + + *---------------------------------- + DEFINE POPUP _0j10xmir1 SHORTCUT RELATIVE + DEFINE BAR "81070" OF Casaincasa PROMPT "Restituit avans 542" ; + MESSAGE '5311:542' + ON SELECTION BAR 81070 OF Casaincasa DO BAR_"81070"_OF_Casaincasa_FB2P + + DEFINE BAR "81080" OF Casaincasa PROMPT "Asociati cont curent" ; + MESSAGE '5311:4551' + ON SELECTION BAR 81080 OF Casaincasa DO BAR_"81080"_OF_Casaincasa_FB2P + + DEFINE BAR 6 OF Casaincasa PROMPT "\-" + ON BAR 6 OF Casaincasa ACTIVATE POPUP _saq0r80dh + + *---------------------------------- + DEFINE POPUP _saq0r80dh SHORTCUT RELATIVE + DEFINE BAR "81020" OF Casaincasa PROMPT "Clienti 411" ; + MESSAGE '5311:411' + ON SELECTION BAR 81020 OF Casaincasa DO BAR_"81020"_OF_Casaincasa_FB2P + + DEFINE BAR "81030" OF Casaincasa PROMPT "Clienti incerti 416" ; + MESSAGE '5331:416' + ON SELECTION BAR 81030 OF Casaincasa DO BAR_"81030"_OF_Casaincasa_FB2P + + DEFINE BAR "81040" OF Casaincasa PROMPT "Avansuri TVA 419" ; + MESSAGE '5311:419 ;5311:411 ; 411:4427' + ON SELECTION BAR 81040 OF Casaincasa DO BAR_"81040"_OF_Casaincasa_FB2P + + DEFINE BAR "81050" OF Casaincasa PROMPT "Debitori diversi 461" ; + MESSAGE '5311:461' + ON SELECTION BAR 81050 OF Casaincasa DO BAR_"81050"_OF_Casaincasa_FB2P + + DEFINE BAR "81060" OF Casaincasa PROMPT "Creditori diversi 462" ; + MESSAGE '5311:462' + ON SELECTION BAR 81060 OF Casaincasa DO BAR_"81060"_OF_Casaincasa_FB2P + + DEFINE BAR 12 OF Casaincasa PROMPT "\-" + ON BAR 12 OF Casaincasa ACTIVATE POPUP _00i0rr0vq + + *---------------------------------- + DEFINE POPUP _00i0rr0vq SHORTCUT RELATIVE + DEFINE BAR 13 OF Casaincasa PROMPT "\ + +* +PROCEDURE BAR_"81010"_OF_Casaincasa_FB2P + DO MENIU81010 +ENDPROC && BAR_"81010"_OF_Casaincasa_FB2P + +PROCEDURE BAR_2_OF_Casaincasa_FB2P + + m.scd='5311 ' + m.scc='581 ' + + do alfabeta with; + 'casac','','','',"","","",'','',"TRANSFER CASE","TRANSFER CASE" + * + IF BUTON=2 + DO STERGE + RETURN + ENDIF + DO CODARE + DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT + do INCASA + + do sterge + RETURN +ENDPROC && BAR_2_OF_Casaincasa_FB2P + +PROCEDURE BAR_"81070"_OF_Casaincasa_FB2P + DO MENIU81070 +ENDPROC && BAR_"81070"_OF_Casaincasa_FB2P + +PROCEDURE BAR_"81080"_OF_Casaincasa_FB2P + DO MENIU81080 +ENDPROC && BAR_"81080"_OF_Casaincasa_FB2P + +PROCEDURE BAR_"81020"_OF_Casaincasa_FB2P + DO MENIU81020 +ENDPROC && BAR_"81020"_OF_Casaincasa_FB2P + +PROCEDURE BAR_"81030"_OF_Casaincasa_FB2P + DO MENIU81030 +ENDPROC && BAR_"81030"_OF_Casaincasa_FB2P + +PROCEDURE BAR_"81040"_OF_Casaincasa_FB2P + DO MENIU81040 +ENDPROC && BAR_"81040"_OF_Casaincasa_FB2P + +PROCEDURE BAR_"81050"_OF_Casaincasa_FB2P + DO MENIU81050 +ENDPROC && BAR_"81050"_OF_Casaincasa_FB2P + +PROCEDURE BAR_"81060"_OF_Casaincasa_FB2P + DO MENIU81060 +ENDPROC && BAR_"81060"_OF_Casaincasa_FB2P + +PROCEDURE BAR_13_OF_Casaincasa_FB2P + do procmonetar in proceduri.prg +ENDPROC && BAR_13_OF_Casaincasa_FB2P + +PROCEDURE BAR_"82010"_OF_Casaplati_FB2P + DO MENIU82010 +ENDPROC && BAR_"82010"_OF_Casaplati_FB2P + +PROCEDURE BAR_2_OF_Casaplati_FB2P + m.scd='581 ' + m.scc='5311' + + do alfabeta with; + 'casac','','','',"","","",'','',"TRANSFER CASE","TRANSFER CASE" + * + IF BUTON=2 + DO STERGE + RETURN + ENDIF + DO CODARE + DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT + do plCASA + + do sterge + RETURN +ENDPROC && BAR_2_OF_Casaplati_FB2P + +PROCEDURE BAR_"82020"_OF_Casaplati_FB2P + DO MENIU82020 +ENDPROC && BAR_"82020"_OF_Casaplati_FB2P + +PROCEDURE BAR_"82040"_OF_Casaplati_FB2P + DO MENIU82040 +ENDPROC && BAR_"82040"_OF_Casaplati_FB2P + +PROCEDURE BAR_6_OF_Casaplati_FB2P + + m.scd='625 ' + m.scc='542 ' + ***do BANCA.spr + do alfabeta with; + 'CASAc',; + "","","", ; + "NUMELE ACHIZITORULUI","ACHIT542","NUME_2", ; + '','', "PLATA DEPLASARI", ; + "" + * + IF BUTON=2 + DO STERGE + RETURN + ENDIF + DO CODARE + DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT + + SELE ACHIT542 + REPL ACHIT542.DAT WITH ACHIT542.DAT+M.SUMA + do sterge + +ENDPROC && BAR_6_OF_Casaplati_FB2P + +PROCEDURE BAR_"82100"_OF_Casaplati_FB2P + DO MENIU82100 +ENDPROC && BAR_"82100"_OF_Casaplati_FB2P + +PROCEDURE BAR_"82030"_OF_Casaplati_FB2P + DO MENIU82030 +ENDPROC && BAR_"82030"_OF_Casaplati_FB2P + +PROCEDURE BAR_"82050"_OF_Casaplati_FB2P + DO MENIU82050 +ENDPROC && BAR_"82050"_OF_Casaplati_FB2P + +PROCEDURE BAR_"82060"_OF_Casaplati_FB2P + DO MENIU82060 +ENDPROC && BAR_"82060"_OF_Casaplati_FB2P + +PROCEDURE BAR_"82120"_OF_Casaplati_FB2P + DO MENIU82120 +ENDPROC && BAR_"82120"_OF_Casaplati_FB2P + +PROCEDURE BAR_"82130"_OF_Casaplati_FB2P + DO MENIU82130 +ENDPROC && BAR_"82130"_OF_Casaplati_FB2P + +PROCEDURE BAR_1_OF_Salarii_FB2P + *____________________________________________________________________________________________ + *PROCEDURE MENIU82070 + + m.scd='4211' + m.scc='5311' + + m.explicatia='PLATA SALARII CONTRACT' + oa=createo('actsimc') + oa.show(1) + + IF BUTON=2 + DO STERGE + RETURN + ENDIF + DO CODARE + DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT + do plCASA + do sterge + + *RETURN +ENDPROC && BAR_1_OF_Salarii_FB2P + +PROCEDURE BAR_2_OF_Salarii_FB2P + m.scd='4212' + m.scc='5311' + + m.explicatia='PLATA SALARII CONVENTIE' + oa=createo('actsimc') + oa.show(1) + + IF BUTON=2 + DO STERGE + RETURN + ENDIF + DO CODARE + DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT + do plCASA + do sterge +ENDPROC && BAR_2_OF_Salarii_FB2P + +PROCEDURE BAR_3_OF_Salarii_FB2P + m.scd='4281' + m.scc='5311' + + m.explicatia='Datorii legate de personal' + oa=createo('actsimc') + oa.show(1) + + IF BUTON=2 + DO STERGE + RETURN + ENDIF + DO CODARE + DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT + do plCASA + do sterge +ENDPROC && BAR_3_OF_Salarii_FB2P + +PROCEDURE BAR_"82080"_OF_Casaplati_FB2P + DO MENIU82080 +ENDPROC && BAR_"82080"_OF_Casaplati_FB2P + +PROCEDURE BAR_"82090"_OF_Casaplati_FB2P + DO MENIU82090 +ENDPROC && BAR_"82090"_OF_Casaplati_FB2P + +PROCEDURE BAR_"82110"_OF_Casaplati_FB2P + DO MENIU82110 +ENDPROC && BAR_"82110"_OF_Casaplati_FB2P + +PROCEDURE BAR_"82140"_OF_Casaplati_FB2P + DO MENIU82140 +ENDPROC && BAR_"82140"_OF_Casaplati_FB2P + +PROCEDURE BAR_"82150"_OF_Casaplati_FB2P + DO MENIU82150 +ENDPROC && BAR_"82150"_OF_Casaplati_FB2P + +PROCEDURE BAR_"82160"_OF_Casaplati_FB2P + DO MENIU82160 +ENDPROC && BAR_"82160"_OF_Casaplati_FB2P + +PROCEDURE BAR_"82170"_OF_Casaplati_FB2P + DO MENIU82170 +ENDPROC && BAR_"82170"_OF_Casaplati_FB2P + +PROCEDURE BAR_"82180"_OF_Casaplati_FB2P + DO MENIU82180 +ENDPROC && BAR_"82180"_OF_Casaplati_FB2P + +PROCEDURE BAR_25_OF_Casaplati_FB2P + + *ALFA='m.numeg=""' + *BETA='m.numeg=""' + *GAMA='m.numeg="PLATA GRATIFICATII"' + + m.scd='625 ' + m.scc='5311 ' + ***do casa.spr + do alfabeta with; + 'casac',; + '','','', ; + '','','', ; + '','',"PLATA DEPLASARI", ; + "PLATA DEPLASARI" + * + IF BUTON=2 + DO STERGE + RETURN + ENDIF + DO CODARE + DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT + do PLCASA + + do sterge + + +ENDPROC && BAR_25_OF_Casaplati_FB2P + +PROCEDURE BAR_"82190"_OF_Casaplati_FB2P + do MENIU82190 +ENDPROC && BAR_"82190"_OF_Casaplati_FB2P + +PROCEDURE BAR_1_OF_Vizualizar_FB2P + osetviz.tbrprim.butoncasa.click +ENDPROC && BAR_1_OF_Vizualizar_FB2P + +PROCEDURE BAR_2_OF_Vizualizar_FB2P + public m.sum1,m.sum2,m.sum3 + + sele casanume + + M.SOLDDEB=0 + M.SOLDCRED=0 + sum INCASARI,PLATI to m.SUM1,M.SUM2 + M.SUM3=M.SUM1-M.SUM2 + SELE Bal + seek '5311' + if found() + SCATTER MEMVAR + IF M.SOLDDEB-M.SOLDCRED # M.SUM3 + do mesajval with 'Diferenta este:',M.SOLDDEB-M.SOLDCRED-M.SUM3 + ENDIF + else + do mesajval with '',M.SOLDDEB + endif + + sele casanume + Obancana=CREATEOBJECT("afbancanav") + Obancana.grid1.column1.controlsource="casa" + Obancana.label10.caption='SOLDURI CASE' + Obancana.SHOW(1) +ENDPROC && BAR_2_OF_Vizualizar_FB2P + +PROCEDURE BAR_5_OF_Introducer_FB2P + SELE CASA + REPORT FORMAT CASA.FRX TO PRINTER PROMPT NOCONSOLE preview +ENDPROC && BAR_5_OF_Introducer_FB2P + +* diff --git a/Meniuri/contgest.mn2 b/Meniuri/contgest.mn2 new file mode 100644 index 0000000..ad2e7fd --- /dev/null +++ b/Meniuri/contgest.mn2 @@ -0,0 +1,2188 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="contgest.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*1 +*REPLACE + +* +DEFINE MENU _msysmenu BAR +DEFINE PAD _000000001 OF _msysmenu PROMPT "\.' + +DEFINE PAD _000000003 OF _msysmenu PROMPT "I\3 + +ON PAD _000000003 OF _msysmenu ACTIVATE POPUP Initializa + + *---------------------------------- + DEFINE POPUP Initializa MARGIN RELATIVE SHADOW COLOR SCHEME 4 + DEFINE BAR 1 OF Initializa PROMPT "\2 + ON SELECTION BAR 4 OF Initializa DO BAR_4_OF_Initializa_FB2P + + DEFINE BAR 5 OF Initializa PROMPT "\2 + ON SELECTION BAR 5 OF Initializa DO BAR_5_OF_Initializa_FB2P + +DEFINE PAD _000000004 OF _msysmenu PROMPT "\3 + +ON PAD _000000004 OF _msysmenu ACTIVATE POPUP _0bb0p33cb + + *---------------------------------- + DEFINE POPUP _0bb0p33cb MARGIN RELATIVE SHADOW COLOR SCHEME 4 + DEFINE BAR 1 OF _0bb0p33cb PROMPT "\ Magazin" + ON SELECTION BAR 2 OF Transferur DO BAR_2_OF_Transferur_FB2P + + DEFINE BAR 3 OF Transferur PROMPT "\ Gestiune" + ON SELECTION BAR 3 OF Transferur DO BAR_3_OF_Transferur_FB2P + + DEFINE BAR 4 OF Transferur PROMPT "\-" + ON SELECTION BAR 4 OF Transferur + + DEFINE BAR 5 OF Transferur PROMPT "\ Magazin" + ON SELECTION BAR 2 OF NewItem DO BAR_2_OF_NewItem_FB2P + + DEFINE BAR 3 OF NewItem PROMPT "\ Gestiune" + ON SELECTION BAR 3 OF NewItem DO BAR_3_OF_NewItem_FB2P + + DEFINE BAR 4 OF NewItem PROMPT "\ + +* +PROCEDURE BAR_1_OF_Utile_FB2P + do case + case file('C:\WINDOWS\CALC.EXE') + run /N C:\WINDOWS\CALC.EXE + case file('C:\WINDOWS\SYSTEM32\CALC.EXE') + run /N C:\WINDOWS\SYSTEM32\CALC.EXE + case file('C:\WINnt\system32\CALC.EXE') + run /N C:\WINnt\system32\CALC.EXE + otherwise + do mesajatent with 'Aplicatia "Calculator" nu este instalata','pe acest sistem!' + endcase +ENDPROC && BAR_1_OF_Utile_FB2P + +PROCEDURE BAR_2_OF_Utile_FB2P + od=createo('diary') + od.show(1) +ENDPROC && BAR_2_OF_Utile_FB2P + +PROCEDURE BAR_3_OF_Utile_FB2P + do case + case file('C:\WINDOWS\NOTEPAD.EXE') + run /N C:\WINDOWS\NOTEPAD.EXE + case file('C:\WINnt\system32\NOTEPAD.EXE') + run /N C:\WINnt\system32\NOTEPAD.EXE + otherwise + do mesajatent with 'Aplicatia "NOTEPAD" nu este instalata','pe acest sistem!' + endcase + +ENDPROC && BAR_3_OF_Utile_FB2P + +PROCEDURE BAR_1_OF_Reindexare_FB2P + do reindexaretempo in reindexare.prg +ENDPROC && BAR_1_OF_Reindexare_FB2P + +PROCEDURE BAR_7_OF_Utile_FB2P + ies=.t. + + DO IESIRE + + *RELEASE OBJECTS_________________________- + *ostart.release + *OSETVIZ.RELEASE + *OSETTULBAR.RELEASE + *OSETINSTRUM.RELEASE + +ENDPROC && BAR_7_OF_Utile_FB2P + +PROCEDURE BAR_1_OF_Initializa_FB2P + do form start00 +ENDPROC && BAR_1_OF_Initializa_FB2P + +PROCEDURE BAR_3_OF_Initializa_FB2P + oge=create('afgest') + oge.show(1) +ENDPROC && BAR_3_OF_Initializa_FB2P + +PROCEDURE BAR_4_OF_Initializa_FB2P + o=crea('cursval') + o.show(1) +ENDPROC && BAR_4_OF_Initializa_FB2P + +PROCEDURE BAR_5_OF_Initializa_FB2P + orp=create('parola') + orp.show(1) + + if buton=3 + + o=crea('adaoscom') + o.show(1) + + endif +ENDPROC && BAR_5_OF_Initializa_FB2P + +PROCEDURE BAR_1_OF_NIRuri_FB2P + alegnir=0 + osetgest.tbrprim.buton1.click +ENDPROC && BAR_1_OF_NIRuri_FB2P + +PROCEDURE BAR_2_OF_NIRuri_FB2P + alegnir=1 + osetgest.tbrprim.buton1.click +ENDPROC && BAR_2_OF_NIRuri_FB2P + +PROCEDURE BAR_3_OF_NIRuri_FB2P + alegnir=2 + osetgest.tbrprim.buton1.click +ENDPROC && BAR_3_OF_NIRuri_FB2P + +PROCEDURE BAR_2_OF__0bb0p33cb_FB2P + nirmagazin=.t. + osetgest.tbrprim.buton1.click + nirmagazin=.f. +ENDPROC && BAR_2_OF__0bb0p33cb_FB2P + +PROCEDURE BAR_1_OF_Import_FB2P + do importmarfa in procmeniu.prg +ENDPROC && BAR_1_OF_Import_FB2P + +PROCEDURE BAR_2_OF_Import_FB2P + do importmat in procmeniu.prg +ENDPROC && BAR_2_OF_Import_FB2P + +PROCEDURE BAR_1_OF_Productie_FB2P + DO INTRODPROD WITH '345 ' +ENDPROC && BAR_1_OF_Productie_FB2P + +PROCEDURE BAR_2_OF_Productie_FB2P + DO INTRODPROD WITH '347 ' +ENDPROC && BAR_2_OF_Productie_FB2P + +PROCEDURE BAR_8_OF__0bb0p33cb_FB2P + m.scd='6024' + o=crea('selcontmic') + O.COMBO1.ROWSOURCE='601 ,6021,6022,6023,6024,6028' + o.show(1) + + DO CASE + CASE M.SCD='601 ' + M.SCC='301 ' + CASE M.SCD='6021' + M.SCC='3021' + CASE M.SCD='6022' + M.SCC='3022' + CASE M.SCD='6024' + M.SCC='3024' + CASE M.SCD='6028' + M.SCC='3028' + CASE M.SCD='6023' + M.SCC='3023' + ENDCASE + + DO BONARE WITH M.SCD,M.SCC,'CHELTMAT' +ENDPROC && BAR_8_OF__0bb0p33cb_FB2P + +PROCEDURE BAR_9_OF__0bb0p33cb_FB2P + osetgest.tbrprim.buton2.click +ENDPROC && BAR_9_OF__0bb0p33cb_FB2P + +PROCEDURE BAR_11_OF__0bb0p33cb_FB2P + sele bal + ose=crea('selcont') + ose.caption='Selectati contul debitor' + ose.show(1) + m.scd=cn + + sele bal + ose=crea('selcont') + ose.caption='Selectati contul creditor' + ose.show(1) + m.scc=cn + + + DO BONARE WITH M.SCD,M.SCC,'CHELTMAT' +ENDPROC && BAR_11_OF__0bb0p33cb_FB2P + +PROCEDURE BAR_1_OF_Transferur_FB2P + SELE CALENDAR + LOCA FOR NL=M.NL AND AN=M.AN + M.CTVA=CTVAM + M.FDOC='NOTA TRANSFER' + + buton=1 + OACT=CREATEOBJ('ACTTRANSFERg') + OACT.SHOW(1) + + IF BUTON=2 + DO STERGE + RETURN + ENDIF + + M.NNIR=M.NRACT + DO CODARE + + SELE IESIRI + ZAP + do cursul + buton=1 + *do form bonmarfa1 + OBM=CREA('BONTRANSFERgg') + OBM.SHOW(1) + + IF BUTON=2 + DO STERGE + RETURN + ENDIF + ******************************************* + + sele numegest + **scd din m.numegest + loca for numegest=m.numegest + m.scd1=contg + **scd din m.nume_4 + loca for numegest=m.nume_4 + m.scd2=contg + + + DO CONTABILIZEAZA WITH m.scd2,m.scd1,M.TOTFTVA-M.TOTADAOS,CLASAACT + + DO IESTOCURIMAGAZII + &&IESIRE DIN GESTIUNEA M.NUMEGEST + DO IERULAJMAGAZII + + buton=2 + DO DANU WITH 'Doriti sa listati NOTA DE TRANSFER?' + if buton=1 + SELE RUL + SET FILTER TO cod=m.cod and !empty(cante) + REPORT FORMAT NIRTRANSFER.FRX TO PRINTER PROMPT PREVIEW + endif + + &&INTRARE IN GESTIUNEA M.NUME_4 + SELE NUMEGEST + LOCA FOR ALLT(NUMEGEST)=ALLT(M.NUME_4) + SCAT FIEL GEST MEMV + + SELE INTRARI + ZAP + SELE IESIRI + SCAN + SCAT FIEL EXCEPT GEST MEMV + M.CANT=M.CANTE + M.SCD=m.scd2 + SELE INTRARI + APPE BLAN + GATH MEMV + SELE IESIRI + ENDSCAN + + + DO INRULAJMAGAZII + DO INSTOCURIMAGAZII + + DO STERGE + RETURN + + + +ENDPROC && BAR_1_OF_Transferur_FB2P + +PROCEDURE BAR_2_OF_Transferur_FB2P + Sele CALENDAR + Loca For NL=M.NL And AN=M.AN + m.CTVA=CTVAM + m.FDOC='NOTA TRANSFER' + + buton=1 + OACT=Createobj('ACTTRANSFER') + OACT.Show(1) + + If buton=2 + Do STERGE + Return + Endif + + m.NNIR=M.NRACT + Do CODARE + + Sele IESIRI + Zap + Do cursul + buton=1 + *do form bonmarfa1 + OBM=Crea('BONTRANSFERGM') + OBM.Show(1) + + If buton=2 + Do STERGE + Return + Endif + ******************************************* + m.TOTTVA=Round(M.TOTFTVA*(M.CTVA-1),0) + Do CONTABILIZEAZA With C371ENDETAIL,C371ENGROS,M.TOTFTVA-m.totadaos,CLASAACT + *M.EXPLICATIA='ADAOS COMERCIAL' + Do CONTABILIZEAZA With C371ENDETAIL,C378ENDETAIL,M.totadaos,CLASAACT + m.EXPLICATIA='TVA '+Allt(Str((M.CTVA-1)*100))+'%' + Do CONTABILIZEAZA With C371ENDETAIL,'4428',M.TOTTVA,CLASAACT + + + Do IESTOCURIMAGAZII + &&IESIRE DIN GESTIUNEA M.NUMEGEST + Do IERULAJMAGAZII + + *!* buton=2 + *!* DO DANU WITH 'Doriti sa listati NOTA DE TRANSFER?' + *!* if buton=1 + *!* SELE RUL + *!* SET FILTER TO cod=m.cod and !empty(cante) + *!* REPORT FORMAT NIRTRANSFER.FRX TO PRINTER PROMPT PREVIEW + *!* endif + + &&INTRARE IN GESTIUNEA M.NUME_4 + Sele NUMEGEST + Loca For Allt(NUMEGEST)=Allt(M.NUME_4) + Scat Fiel GEST Memv + + Sele INTRARI + Zap + Sele IESIRI + Scan + Scat Fiel Except GEST Memv + m.CANT=M.CANTE + m.SCD=C371ENDETAIL + Sele INTRARI + Appe Blan + Gath Memv + Sele IESIRI + Endscan + + + Do INRULAJMAGAZII + Do INSTOCURIMAGAZII + + buton=2 + Do DANU With 'Doriti sa listati NOTA DE TRANSFER?' + If buton=1 + Sele RUL + *!* SET FILTER TO cod=m.cod and !empty(cante) + *** + Select * From RUL Where COD=M.COD Into Table &LOC\&NFSCURT\TEMPO\ARUL + Use In RUL + Use In ARUL + Use &LOC\&NFSCURT\TEMPO\ARUL In 0 Alias RUL + *** + Select RUL + Set Filter To !Empty(CANTE) + Report Format NIRTRANSFER.FRX To Printer Prompt Preview + Do TOTV + Endif + + Do STERGE + Return + + + +ENDPROC && BAR_2_OF_Transferur_FB2P + +PROCEDURE BAR_3_OF_Transferur_FB2P + Local TR + + + Sele CALENDAR + Loca For NL=M.NL And AN=M.AN + m.CTVA=CTVAM + m.FDOC='NOTA TRANSFER' + + buton=1 + OACT=Createobj('ACTTRANSFER') + OACT.LABEL7.Caption='GESTIUNEA DESTINATIE' &&M.NUMEGEST; SURSA=M.NUME_4 + OACT.Show(1) + + If buton=2 + Do STERGE + Return + Endif + + TR=M.NUMEGEST + m.NUMEGEST=M.NUME_4 + m.NUME_4=TR + + m.NNIR=M.NRACT + Do CODARE + + Sele IESIRI + Zap + Do cursul + buton=1 + *do form bonmarfa1 + OBM=Crea('BONTRANSFERMG') + *OBM.LABELNUME.CAPTION='TRANSFER MAGAZIN - GESTIUNE' + OBM.Show(1) + + If buton=2 + Do STERGE + Return + Endif + ******************************************* + m.TOTTVA=Round(M.TOTFTVA*(M.CTVA-1),0) + Do CONTABILIZEAZA With C371ENGROS,C371ENDETAIL,M.TOTFTVA-m.totadaos,CLASAACT + *M.EXPLICATIA='ADAOS COMERCIAL' + Do CONTABILIZEAZA With C378ENDETAIL,C371ENDETAIL,M.totadaos,CLASAACT + m.EXPLICATIA='TVA '+Allt(Str((M.CTVA-1)*100))+'%' + Do CONTABILIZEAZA With '4428',C371ENDETAIL,M.TOTTVA,CLASAACT + + + Do IESTOCURIMAGAZII + &&IESIRE DIN GESTIUNEA M.NUMEGEST + Do IERULAJMAGAZII + + *!* buton=2 + *!* DO DANU WITH 'Doriti sa listati NOTA DE TRANSFER?' + *!* if buton=1 + *!* *!* SELE RUL + *!* *!* SET FILTER TO cod=m.cod and !empty(cante) + *!* *!* REPORT FORMAT NIRTRANSFER.FRX TO PRINTER PROMPT PREVIEW + *!* SELECT * FROM RUL WHERE COD=M.COD INTO TABLE &LOC\&NFSCURT\TEMPO\ARUL + *!* USE IN RUL + *!* USE IN ARUL + *!* USE &LOC\&NFSCURT\TEMPO\ARUL IN 0 ALIAS RUL + *!* SELECT RUL + *!* SET FILTER TO !empty(cante) + *!* REPORT FORMAT NIRTRANSFER.FRX TO PRINTER PROMPT PREVIEW + *!* endif + *!* DO TOTV + *!* endif + + &&INTRARE IN GESTIUNEA M.NUME_4 + Sele NUMEGEST + Loca For Allt(NUMEGEST)=Allt(M.NUME_4) + Scat Fiel GEST Memv + + Sele INTRARI + Zap + Sele IESIRI + Scan + Scat Fiel Except GEST Memv + m.CANT=M.CANTE + m.SCD=C371ENGROS + Sele INTRARI + Appe Blan + Gath Memv + Sele IESIRI + Endscan + + + Do INRULAJMAGAZII + Do INSTOCURIMAGAZII + + + buton=2 + Do DANU With 'Doriti sa listati NOTA DE TRANSFER?' + If buton=1 + *!* SELE RUL + *!* SET FILTER TO cod=m.cod and !empty(cante) + *!* REPORT FORMAT NIRTRANSFER.FRX TO PRINTER PROMPT PREVIEW + Select * From RUL Where COD=M.COD Into Table &LOC\&NFSCURT\TEMPO\ARUL + Use In RUL + Use In ARUL + Use &LOC\&NFSCURT\TEMPO\ARUL In 0 Alias RUL + Select RUL + Set Filter To !Empty(CANTE) + Report Format NIRTRANSFER.FRX To Printer Prompt Preview + Do TOTV + + Endif + + + Do STERGE + Return + + + +ENDPROC && BAR_3_OF_Transferur_FB2P + +PROCEDURE BAR_5_OF_Transferur_FB2P + PUBLIC CODSALV,DATAIREGS,DATAACTS + SELE CALENDAR + LOCA FOR NL=M.NL AND AN=M.AN + M.CTVA=CTVAM + M.FDOC='RETUR MAGAZIE' + + buton=1 + OACT=CREATEOBJ('ACTBONMARFA') + WITH OACT + .LABEL7.ENABLED=.F. + .TEXT7.ENABLED=.F. + .IMAGE4.VISIBLE=.F. + .LABEL4.CAPTION='NUMARUL DOCUMENTULUI' + .TEXT4.TABSTOP=.T. + .TEXT4.READONLY=.F. + ENDWITH + OACT.SHOW(1) + + IF BUTON=2 + DO STERGE + RETURN + ENDIF + + M.NNIR=M.NRACT + DO CODARE + CODSALV=M.COD + DATAIREGS=M.DATAIREG + DATAACTS=M.DATAACT + + SELE IESIRI + ZAP + do cursul + buton=1 + OBM=CREA('RETUR') + OBM.SHOW(1) + + IF BUTON=2 + DO STERGE + RETURN + ENDIF + ******************************************* + STORE '' TO M.NUME,M.NUME_2,M.EXPLICATIA + M.COD=CODSALV + M.DATAIREG=DATAIREGS + M.DATAACT=DATAACTS + M.TOTTVA=ROUND(M.TOTFTVA*(M.CTVA-1),0) + DO CONTABILIZEAZA WITH '607 ',C371ENGROS,-M.TOTFTVA+m.totadaos,CLASAACT + DO CONTABILIZEAZA WITH C378ENGROS,C371ENGROS,-M.TOTadaos,CLASAACT + DO CONTABILIZEAZA WITH C371ENGROS,C378ENGROS,-M.TOTadaos,CLASAACT + DO CONTABILIZEAZA WITH '332 ','711 ',-M.TOTFTVA,CLASAACT + *DO CONTABILIZEAZA WITH '332 ','711 ',-M.TOTFTVA+m.totadaos,CLASAACT + + buton=2 + DO DANU WITH 'Doriti sa listati NOTA DE RETUR?' + if buton=1 + *SELE RUL + *SET FILTER TO cod=m.cod and !empty(cante) + SELE IESIRI + REPL ALL NNIR WITH M.NRACT + REPL ALL COD WITH CODSALV + REPORT FORMAT RETUR.FRX TO PRINTER PROMPT PREVIEW + endif + + + SELE INTRARI + ZAP + SELE IESIRI + SCAN + SCAT MEMV + M.CANT=M.CANTE + SELE INTRARI + APPE BLAN + GATH MEMV + SELE IESIRI + ENDSCAN + + + *DO INRULAJMAGAZII + DO IERULAJE + DO INSTOCURIMAGAZII + + DO STERGE + SELE LUCRARI + SET FILTER TO + RETURN + + + +ENDPROC && BAR_5_OF_Transferur_FB2P + +PROCEDURE BAR_6_OF_Transferur_FB2P + *!* PUBLIC CODSALV,DATAIREGS,DATAACTS + *!* SELE CALENDAR + *!* LOCA FOR NL=M.NL AND AN=M.AN + *!* M.CTVA=CTVAM + *!* M.FDOC='RETUR C.FACT' + + *!* buton=1 + *!* OACT=CREATEOBJ('ACTBONMARFAF') + *!* WITH OACT + *!* .LABEL7.ENABLED=.F. + *!* .TEXT7.ENABLED=.F. + *!* .IMAGE4.VISIBLE=.F. + *!* .LABEL4.CAPTION='NUMARUL DOCUMENTULUI' + *!* .TEXT4.TABSTOP=.T. + *!* .TEXT4.READONLY=.F. + *!* .LABEL5.CAPTION='C-DA INITIALA' + *!* ENDWITH + *!* OACT.SHOW(1) + + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + + *!* M.NNIR=M.NRACT + *!* DO CODARE + *!* CODSALV=M.COD + *!* DATAIREGS=M.DATAIREG + *!* DATAACTS=M.DATAACT + + *!* SELE IESIRI + *!* ZAP + *!* do cursul + *!* buton=1 + *!* OBM=CREA('RETUR') + *!* OBM.LABELNUME.CAPTION='RETUR DIN COMANDA FACTURATA' + *!* OBM.SHOW(1) + + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + *!* ******************************************* + *!* LOCAL CVECHE + *!* CVECHE=M.NRORD + *!* OLIT=CREATEOBJECT("CAUTLITERE") + *!* WITH OLIT + *!* .CAPTION="COMANDA FINALA" + *!* .text1.controlsource="m.NRORD" + *!* endwith + *!* olit.show(1) + *!* SELE IESIRI + *!* REPL ALL NRORD WITH M.NRORD + + + *!* STORE '' TO M.NUME,M.NUME_2,M.EXPLICATIA + *!* M.EXPLICATIA='C.INIT.'+ALLT(STR(CVECHE))+'-C.FIN.'+ALLT(STR(M.NRORD)) + *!* M.COD=CODSALV + *!* M.DATAIREG=DATAIREGS + *!* M.DATAACT=DATAACTS + *!* M.TOTTVA=ROUND(M.TOTFTVA*(M.CTVA-1),0) + *!* DO CONTABILIZEAZA WITH '607 ',C371ENGROS,-M.TOTFTVA+m.totadaos,CLASAACT + *!* DO CONTABILIZEAZA WITH C378ENGROS,C371ENGROS,-M.TOTadaos,CLASAACT + *!* DO CONTABILIZEAZA WITH C371ENGROS,C378ENGROS,-M.TOTadaos,CLASAACT + *!* DO CONTABILIZEAZA WITH '332 ','711 ',-M.TOTFTVA,CLASAACT + *!* *DO CONTABILIZEAZA WITH '332 ','711 ',-M.TOTFTVA+m.totadaos,CLASAACT + + *!* buton=2 + *!* DO DANU WITH 'Doriti sa listati NOTA DE RETUR?' + *!* if buton=1 + *!* *SELE RUL + *!* *SET FILTER TO cod=m.cod and !empty(cante) + *!* SELE IESIRI + *!* REPL ALL NNIR WITH M.NRACT + *!* REPL ALL COD WITH CODSALV + *!* REPORT FORMAT RETUR.FRX TO PRINTER PROMPT PREVIEW + *!* endif + + + *!* SELE INTRARI + *!* ZAP + *!* SELE IESIRI + *!* SCAN + *!* SCAT MEMV + *!* M.CANT=M.CANTE + *!* SELE INTRARI + *!* APPE BLAN + *!* GATH MEMV + *!* SELE IESIRI + *!* ENDSCAN + + + *!* *DO INRULAJMAGAZII + *!* DO IERULAJE + *!* DO INSTOCURIMAGAZII + + *!* DO STERGE + *!* SELE LUCRARI + *!* SET FILTER TO + *!* RETURN + + + + PUBLIC CODSALV,DATAIREGS,DATAACTS + SELE CALENDAR + LOCA FOR NL=M.NL AND AN=M.AN + M.CTVA=CTVAM + M.FDOC='RETUR C.FACT' + + buton=1 + OACT=CREATEOBJ('ACTBONMARFAF') + WITH OACT + .LABEL7.ENABLED=.F. + .TEXT7.ENABLED=.F. + .IMAGE4.VISIBLE=.F. + .LABEL4.CAPTION='NUMARUL DOCUMENTULUI' + .TEXT4.TABSTOP=.T. + .TEXT4.READONLY=.F. + .LABEL5.CAPTION='C-DA INITIALA' + ENDWITH + OACT.SHOW(1) + + IF BUTON=2 + DO STERGE + RETURN + ENDIF + + M.NNIR=M.NRACT + DO CODARE + CODSALV=M.COD + DATAIREGS=M.DATAIREG + DATAACTS=M.DATAACT + m.nrord=allt(m.nrord) + + wait wind 'Se selecteaza materialele bonate la comanda '+allt(m.nrord)+'. Asteptati...' nowait + + sele * from rul where m.nrord$nrord into table &loc\&nfscurt\tempo\ret.dbf + use in rul + use in ret + use &loc\&nfscurt\tempo\ret.dbf in 0 alias rul + + + wait clear + SELE IESIRI + ZAP + do cursul + buton=1 + OBM=CREA('RETUR') + OBM.LABELNUME.CAPTION='RETUR DIN COMANDA FACTURATA' + OBM.SHOW(1) + + use in rul + do des with 'rul' + IF BUTON=2 + DO STERGE + RETURN + ENDIF + ******************************************* + LOCAL CVECHE + CVECHE=M.NRORD + OLIT=CREATEOBJECT("CAUTLITERE") + WITH OLIT + .CAPTION="COMANDA FINALA" + .text1.controlsource="m.NRORD" + endwith + olit.show(1) + + SELE IESIRI + REPL ALL NRORD WITH M.NRORD + + + STORE '' TO M.NUME,M.NUME_2,M.EXPLICATIA + M.EXPLICATIA='C.INIT.'+ALLT(CVECHE)+'-C.FIN.'+ALLT(M.NRORD) + M.COD=CODSALV + M.DATAIREG=DATAIREGS + M.DATAACT=DATAACTS + M.TOTTVA=ROUND(M.TOTFTVA*(M.CTVA-1),0) + DO CONTABILIZEAZA WITH '607 ',C371ENGROS,-M.TOTFTVA+m.totadaos,CLASAACT + DO CONTABILIZEAZA WITH C378ENGROS,C371ENGROS,-M.TOTadaos,CLASAACT + DO CONTABILIZEAZA WITH C371ENGROS,C378ENGROS,-M.TOTadaos,CLASAACT + DO CONTABILIZEAZA WITH '332 ','711 ',-M.TOTFTVA,CLASAACT + *DO CONTABILIZEAZA WITH '332 ','711 ',-M.TOTFTVA+m.totadaos,CLASAACT + + buton=2 + DO DANU WITH 'Doriti sa listati NOTA DE RETUR?' + if buton=1 + *SELE RUL + *SET FILTER TO cod=m.cod and !empty(cante) + SELE IESIRI + REPL ALL NNIR WITH M.NRACT + REPL ALL COD WITH CODSALV + REPORT FORMAT RETUR.FRX TO PRINTER PROMPT PREVIEW + endif + + + SELE INTRARI + ZAP + SELE IESIRI + SCAN + SCAT MEMV + M.CANT=M.CANTE + SELE INTRARI + APPE BLAN + GATH MEMV + SELE IESIRI + ENDSCAN + + + *DO INRULAJMAGAZII + DO IERULAJE + DO INSTOCURIMAGAZII + + DO STERGE + SELE LUCRARI + SET FILTER TO + RETURN + + + +ENDPROC && BAR_6_OF_Transferur_FB2P + +PROCEDURE BAR_15_OF__0bb0p33cb_FB2P + SELE calendar + LOCA for nl=m.nl and an=m.an + m.ctva=ctvam + + SELE FIRMA + LOCA FOR NFSCURT=FSCURT + SCAT MEMV + FCOD_FISCAL=M.COD_FISCAL + + + m.FDOC='FACTURA' + m.NRACT=M.NRBON + Buton=1 + OACT=CREATEOBJ('ACTGEN03RESP') + OACT.SHOW(1) + + IF Buton=2 + DO STERGE + RETURN + ENDIF + + DO CODARE + m.nnir=m.NRACT + SELE IESIRI + ZAP + DO cursul + Buton=1 + *do form bonmarfa1 + OB=CREA('BONvanz1') + OB.SHOW(1) + + IF Buton=2 + DO STERGE + RETURN + ENDIF + ******************************************* + LOCAL NG + NG=M.EXPLICATIA + m.TOTTVAV=ROUND(M.TOTFTVA*(M.ctva-1),0) + DO CONTABILIZEAZA WITH '411 ','707 ',M.TOTFTVA,CLASAACT + m.EXPLICATIA='TVA '+ALLT(STR((M.ctva-1)*100))+'%' + DO CONTABILIZEAZA WITH '411 ','4427',M.TOTTVAV,CLASAACT + m.EXPLICATIA=NG + DO CONTABILIZEAZA WITH '607 ',C371ENGROS,M.TOTFTVA-M.TOTADAOS,CLASAACT + m.EXPLICATIA=NG + DO CONTABILIZEAZA WITH C378ENGROS,C371ENGROS,M.TOTADAOS,CLASAACT + *M.EXPLICATIA='TVA '+ALLT(STR((M.CTVA-1)*100))+'%' + *DO CONTABILIZEAZA WITH '4428',C371ENGROS,M.TOTTVAV,CLASAACT + DO CONTABILIZEAZA WITH C371ENGROS,C378ENGROS,M.TOTADAOS,CLASAACT + + + SELE CLIENTI + LOCA FOR ALLT(NUME)=ALLT(M.NUME) + IF found() + SCAT FIEL COD_FISCAL MEMV + IF flock() + REPL PRODUCTIE WITH PRODUCTIE+M.TOTFTVA + ENDIF + UNLOCK + ENDIF + + m.TOTFTVAM=M.TOTFTVA + m.TVAM=M.TOTTVAV + m.TOTCTVA=M.TOTFTVAM+M.TVAM + m.NEIMPOZAB=0 + DO ADVANZ + + DO IESTOCURIMAGAZII + DO IERULAJMAGAZII + + Buton=2 + DO DANU WITH 'Doriti sa listati FACTURA?' + IF Buton=1 + DO form datefact + SELE RUL + SET FILTER TO COD=M.COD AND CANTE#0 + REPORT FORM FACT TO PRINTER PROMPT PREVIEW + ENDIF + + + + + + + DO STERGE + RETURN +ENDPROC && BAR_15_OF__0bb0p33cb_FB2P + +PROCEDURE BAR_16_OF__0bb0p33cb_FB2P + do meniu51040_3711 +ENDPROC && BAR_16_OF__0bb0p33cb_FB2P + +PROCEDURE BAR_17_OF__0bb0p33cb_FB2P + SELE calendar + LOCA for nl=m.nl and an=m.an + m.ctva=ctvam + + SELE FIRMA + LOCA FOR NFSCURT=FSCURT + SCAT MEMV + FCOD_FISCAL=M.COD_FISCAL + + + m.FDOC='FACTURA' + m.NRACT=M.NRBON + Buton=1 + OACT=CREATEOBJ('ACTGEN03RESP') + OACT.SHOW(1) + + IF Buton=2 + DO STERGE + RETURN + ENDIF + + + SELE IESIRI + ZAP + DO cursul + Buton=1 + *do form bonmarfa1 + local m.datafact,codfact + m.datafact={} + m.nract1=0 + codfact=0 + *!* Ointre=CREATEOBJECT("CAUTintre") + *!* WITH Ointre + *!* .CAPTION="Nr.fact.din care se returneaza piese" + *!* .label1.caption="Nr.fact.:" + *!* .label2.visible=.f. + *!* .text1.controlsource="m.nract1" + *!* .text2.visible=.f. + *!* endwith + *!* ointre.show(1) + *!* + + *!* sele actan + *!* loca for nract=m.nract1 and nume=m.nume + *!* if !found() + *!* do mesaj with 'Fact. '+allt(str(m.nract1))+' nu a fost introdusa.' + *!* return + *!* else + *!* codfact=cod + *!* ENDIF + + USE IN STOC + SELECT RUL + SET FILTER TO + sele *,0 as cants from rul where CANT=0 into cursor stoc + + OB=CREA('BONvanzr') + OB.LABELNUME.CAPTION='FACTURA DE RETUR EN GROS' + OB.LABEL1.CAPTION='IESIRI DE MARFA' + OB.LABEL21.CAPTION='FACTURA DE RETUR' + OB.SHOW(1) + use in stoc + do des with 'stoc' + + IF Buton=2 + DO STERGE + RETURN + ENDIF + ******************************************* + DO CODARE + m.nnir=m.NRACT + LOCAL NG + NG=M.EXPLICATIA + m.TOTTVAV=ROUND(M.TOTFTVA*(M.ctva-1),0) + DO CONTABILIZEAZA WITH '411 ','707 ',M.TOTFTVA,CLASAACT + m.EXPLICATIA='TVA '+ALLT(STR((M.ctva-1)*100))+'%' + DO CONTABILIZEAZA WITH '411 ','4427',M.TOTTVAV,CLASAACT + m.EXPLICATIA=NG + DO CONTABILIZEAZA WITH '607 ',C371ENGROS,M.TOTFTVA-M.TOTADAOS,CLASAACT + m.EXPLICATIA=NG + DO CONTABILIZEAZA WITH C378ENGROS,C371ENGROS,M.TOTADAOS,CLASAACT + DO CONTABILIZEAZA WITH C371ENGROS,C378ENGROS,M.TOTADAOS,CLASAACT + *m.EXPLICATIA='TVA '+ALLT(STR((M.ctva-1)*100))+'%' + *DO CONTABILIZEAZA WITH '4428',C371ENGROS,M.TOTTVAV,CLASAACT + + SELE CLIENTI + LOCA FOR ALLT(NUME)=ALLT(M.NUME) + IF found() + SCAT FIEL COD_FISCAL MEMV + IF flock() + REPL PRODUCTIE WITH PRODUCTIE+M.TOTFTVA + ENDIF + UNLOCK + ENDIF + + m.TOTFTVAM=M.TOTFTVA + m.TVAM=M.TOTTVAV + m.TOTCTVA=M.TOTFTVAM+M.TVAM + m.NEIMPOZAB=0 + DO ADVANZ + sele iesiri + repl all cod with m.cod + DO IESTOCURIMAGAZII + DO IERULAJMAGAZII + + Buton=2 + DO DANU WITH 'Doriti sa listati FACTURA?' + IF Buton=1 + DO form datefact + SELE RUL + SET FILTER TO COD=M.COD AND CANTE#0 + REPORT FORM FACT TO PRINTER PROMPT PREVIEW + ENDIF + + + + DO STERGE + + RETURN +ENDPROC && BAR_17_OF__0bb0p33cb_FB2P + +PROCEDURE BAR_19_OF__0bb0p33cb_FB2P + SELE calendar + LOCA for nl=m.nl and an=m.an + m.ctva=ctvam + + SELE FIRMA + LOCA FOR NFSCURT=FSCURT + SCAT MEMV + FCOD_FISCAL=M.COD_FISCAL + + + m.FDOC='FACTURA' + m.NRACT=M.NRBON + Buton=1 + OACT=CREATEOBJ('ACTGEN03RESP') + OACT.SHOW(1) + + IF Buton=2 + DO STERGE + RETURN + ENDIF + + DO CODARE + m.nnir=m.NRACT + SELE IESIRI + ZAP + DO cursul + Buton=1 + *do form bonmarfa1 + OB=CREA('BONvanz') + OB.SHOW(1) + + IF Buton=2 + DO STERGE + RETURN + ENDIF + ******************************************* + LOCAL NG + NG=M.EXPLICATIA + m.TOTTVAV=ROUND(M.TOTFTVA*(M.ctva-1),0) + DO CONTABILIZEAZA WITH '411 ','707 ',M.TOTFTVA,CLASAACT + m.EXPLICATIA='TVA '+ALLT(STR((M.ctva-1)*100))+'%' + DO CONTABILIZEAZA WITH '411 ','4427',M.TOTTVAV,CLASAACT + m.EXPLICATIA=NG + DO CONTABILIZEAZA WITH '607 ',C371ENDETAIL,M.TOTFTVA-M.TOTADAOS,CLASAACT + m.EXPLICATIA=NG + DO CONTABILIZEAZA WITH C378ENDETAIL,C371ENDETAIL,M.TOTADAOS,CLASAACT + m.EXPLICATIA='TVA '+ALLT(STR((M.ctva-1)*100))+'%' + DO CONTABILIZEAZA WITH '4428',C371ENDETAIL,M.TOTTVAV,CLASAACT + + SELE CLIENTI + *LOCA FOR ALLT(NUME)=ALLT(M.NUME) + *IF found() + SCAT FIEL COD_FISCAL MEMV + IF flock() + REPL PRODUCTIE WITH PRODUCTIE+M.TOTFTVA + ENDIF + UNLOCK + *ENDIF + + m.TOTFTVAM=M.TOTFTVA + m.TVAM=M.TOTTVAV + m.TOTCTVA=M.TOTFTVAM+M.TVAM + m.NEIMPOZAB=0 + DO ADVANZ + + DO IESTOCURIMAGAZII + DO IERULAJMAGAZII + + Buton=2 + DO DANU WITH 'Doriti sa listati FACTURA?' + IF Buton=1 + DO form datefact + SELE RUL + SELECT * FROM RUL WHERE COD=M.COD INTO TABLE &LOC\&NFSCURT\TEMPO\ARUL + USE IN RUL + USE IN ARUL + USE &LOC\&NFSCURT\TEMPO\ARUL IN 0 ALIAS RUL + *** + SELECT RUL + SET FILTER TO !empty(cante) + *SET FILTER TO COD=M.COD AND CANTE#0 + REPORT FORM FACT TO PRINTER PROMPT PREVIEW + DO TOTV + ENDIF + + + + + + + DO STERGE + RETURN +ENDPROC && BAR_19_OF__0bb0p33cb_FB2P + +PROCEDURE BAR_20_OF__0bb0p33cb_FB2P + SELE calendar + LOCA for nl=m.nl and an=m.an + m.ctva=ctvam + + SELE FIRMA + LOCA FOR NFSCURT=FSCURT + SCAT MEMV + FCOD_FISCAL=M.COD_FISCAL + + + m.FDOC='FACTURA' + m.NRACT=M.NRBON + Buton=1 + OACT=CREATEOBJ('ACTGEN03RESP') + OACT.SHOW(1) + + IF Buton=2 + DO STERGE + RETURN + ENDIF + + + SELE IESIRI + ZAP + DO cursul + Buton=1 + *do form bonmarfa1 + local m.datafact,codfact + m.datafact={} + m.nract1=0 + codfact=0 + Ointre=CREATEOBJECT("CAUTintre") + WITH Ointre + .CAPTION="Nr.fact.din care se returneaza piese" + .label1.caption="Nr.fact.:" + .label2.visible=.f. + .text1.controlsource="m.nract1" + .text2.visible=.f. + endwith + ointre.show(1) + *!* Ointre=CREATEOBJECT("CAUTintre") + *!* WITH Ointre + *!* .CAPTION="Data fact.din care se returneaza piese" + *!* .label1.caption="Data.fact.:" + *!* .label2.visible=.f. + *!* .text1.controlsource="m.datafact" + *!* .text2.visible=.f. + *!* endwith + *!* ointre.show(1) + + + sele actan + loca for nract=m.nract1 and nume=m.nume + if !found() + do mesaj with 'Fact. '+allt(str(m.nract1))+' nu a fost introdusa.' + return + else + codfact=cod + *wait wind str(codfact) + endif + USE IN STOC + sele *,0 as cants from rul where cod=codfact into cursor stoc + + OB=CREA('BONvanzr') + OB.SHOW(1) + use in stoc + do des with 'stoc' + + IF Buton=2 + DO STERGE + RETURN + ENDIF + ******************************************* + DO CODARE + m.nnir=m.NRACT + LOCAL NG + NG=M.EXPLICATIA + m.TOTTVAV=ROUND(M.TOTFTVA*(M.ctva-1),0) + DO CONTABILIZEAZA WITH '411 ','707 ',M.TOTFTVA,CLASAACT + m.EXPLICATIA='TVA '+ALLT(STR((M.ctva-1)*100))+'%' + DO CONTABILIZEAZA WITH '411 ','4427',M.TOTTVAV,CLASAACT + m.EXPLICATIA=NG + DO CONTABILIZEAZA WITH '607 ',C371ENDETAIL,M.TOTFTVA-M.TOTADAOS,CLASAACT + m.EXPLICATIA=NG + DO CONTABILIZEAZA WITH C378ENDETAIL,C371ENDETAIL,M.TOTADAOS,CLASAACT + m.EXPLICATIA='TVA '+ALLT(STR((M.ctva-1)*100))+'%' + DO CONTABILIZEAZA WITH '4428',C371ENDETAIL,M.TOTTVAV,CLASAACT + + SELE CLIENTI + LOCA FOR ALLT(NUME)=ALLT(M.NUME) + IF found() + SCAT FIEL COD_FISCAL MEMV + IF flock() + REPL PRODUCTIE WITH PRODUCTIE+M.TOTFTVA + ENDIF + UNLOCK + ENDIF + + m.TOTFTVAM=M.TOTFTVA + m.TVAM=M.TOTTVAV + m.TOTCTVA=M.TOTFTVAM+M.TVAM + m.NEIMPOZAB=0 + DO ADVANZ + sele iesiri + repl all cod with m.cod + DO IESTOCURIMAGAZII + DO IERULAJMAGAZII + + Buton=2 + DO DANU WITH 'Doriti sa listati FACTURA?' + IF Buton=1 + DO form datefact + SELE RUL + SET FILTER TO COD=M.COD AND CANTE#0 + REPORT FORM FACT TO PRINTER PROMPT PREVIEW + ENDIF + + + + + + + DO STERGE + RETURN +ENDPROC && BAR_20_OF__0bb0p33cb_FB2P + +PROCEDURE BAR_1_OF__0bb0p33cc_FB2P + osetviz.tbrprim.buton1.click +ENDPROC && BAR_1_OF__0bb0p33cc_FB2P + +PROCEDURE BAR_3_OF__0bb0p33cc_FB2P + osetgest.tbrprim.buton5.click +ENDPROC && BAR_3_OF__0bb0p33cc_FB2P + +PROCEDURE BAR_1_OF__0bb0p96cz_FB2P + osetgest.tbrprim.buton6.click +ENDPROC && BAR_1_OF__0bb0p96cz_FB2P + +PROCEDURE BAR_2_OF__0bb0p96cz_FB2P + + sele rul + set relation off into actan + SET ORDER TO TAG Cod OF &calefirma\datean\actan.cdx IN Actan + sele rul + SET RELATION TO cod INTO Actan ADDITIVE + SELE RUL + SET FILTER TO + SELE ACTAN + SET FILTER TO + SELE RULL + SET FILTER TO + *select DISTINCT rul.denumire,rul.pret,rul.um,rul.cant,rul.cante,rul.scd,rul.gest,actan.dataact,actan.nract,rul.cod,rul.tva; + * from rul,actan; + * where rul.cod=actan.cod; + * into cursor rullactanfact + sele 0 + use &datean\rul again alias rullactanfact + do form afrul + use in rullactanfact +ENDPROC && BAR_2_OF__0bb0p96cz_FB2P + +PROCEDURE BAR_6_OF__0bb0p33cc_FB2P + osetviz.tbrprim.butonfurn.click +ENDPROC && BAR_6_OF__0bb0p33cc_FB2P + +PROCEDURE BAR_8_OF__0bb0p33cc_FB2P + oge=create('afgest') + oge.show(1) +ENDPROC && BAR_8_OF__0bb0p33cc_FB2P + +PROCEDURE BAR_9_OF__0bb0p33cc_FB2P + oluc=create('aflucrari') + oluc.show(1) +ENDPROC && BAR_9_OF__0bb0p33cc_FB2P + +PROCEDURE BAR_1_OF__0bb0pc0q9_FB2P + *osetgest.tbrprim.buton3.click + + public m.nract1,m.nract2 + store 0 to m.nract1,m.nract2,M.SUM1,M.SUM2 + + Ointre=CREATEOBJECT("CAUTintre") + WITH Ointre + .CAPTION="Numarul NIR-ului" + .label1.caption="Numarul NIR-ului:" + .label2.visible=.f. + .text1.controlsource="m.nract1" + .text2.visible=.f. + endwith + ointre.show(1) + + *wait wind str(m.nract1) + m.nnir=allt(str(m.nract1)) + *wait wind m.nnir + + sele rull + set filter to + go top + loca for val(nnir)=val(m.nnir) and cant#0 and cante=0 + if !found() + do mesaj with 'Nu a fost inregistrat nici un NIR','in luna curenta, cu numarul '+m.nnir + return + else + sele rull + scat fiel cod memv + *wait wind str(m.cod) + sele actan + set filter to + loca for cod=m.cod + if found() + scat memv + *wait wind 'act'+m.nnir + endif + loca for cod=m.cod and scc='767 ' + if found() + do tva + sele actan + m.sum1=suma + m.sum2=m.sum1*(m.ctva-1) + else + store 0 to m.sum1,m.sum2 + endif + + + M.T='NIRURI' + select distinct rull.denumire,rull.um,rull.cant,rull.cante,rull.pret,rull.gest,rull.nnir,rull.codmat,; + act.nume,act.fdoc,act.nract,act.dataireg,act.dataact,RULL.pretv,rull.tva; + from act,rull; + where act.cod=rull.cod and rull.cod=m.cod and val(rull.nnir)=val(m.nnir) AND RULL.CANTE=0 and rull.cant#0; + into table &LOC\&NFSCURT\tempo\ra + sele ra + index on nnir+str(gest) tag ngest of &LOC\&NFSCURT\tempo\ra + sele ra + set order to tag ngest + + SELE Ra + *brow + IF !NIR_STANDARD + REPORT FORMAT NIRMATD.FRX TO PRINTER PROMPT NOCONSOLE PREVIEW + ELSE + REPORT FORMAT NIRTOT.FRX TO PRINTER PROMPT NOCONSOLE PREVIEW + ENDIF + + sele ra + use + endif +ENDPROC && BAR_1_OF__0bb0pc0q9_FB2P + +PROCEDURE BAR_2_OF__0bb0pc0q9_FB2P + public m.nract1,m.nract2 + store 0 to m.nract1,m.nract2,M.SUM1,M.SUM2 + + Ointre=CREATEOBJECT("CAUTintre") + WITH Ointre + .CAPTION="Numarul NIR-ului" + .label1.caption="Nr.initial:" + .label2.visible=.f. + .text1.controlsource="m.nract1" + .text2.visible=.f. + endwith + ointre.show(1) + + sele rull + loca for val(nnir)=m.nract1 + if !found() + do mesaj with 'Nu a fost inregistrat nici un NIR','in luna curenta, cu numarul '+allt(str(m.nract1)) + return + endif + + + + sele actan + set order to tag cod + sele rul + set rela off into actan + set relation to cod INTO Actan ADDITIVE + sele rul + set filter to CANT#0 AND CANTE=0 and val(nnir)=m.nract1 + set order to tag dataact + report form nirmarfnir to printer prompt preview + + set rela off into actan +ENDPROC && BAR_2_OF__0bb0pc0q9_FB2P + +PROCEDURE BAR_4_OF__0bb0pc0q9_FB2P + public m.nr + m.nr='' + OLIT=CREATEOBJECT("CAUTLITERE") + WITH OLIT + .CAPTION="Numarul notei:" + .text1.controlsource="m.nr" + endwith + olit.show(1) + + sele rul + loca for upper(allt(nnir))=upper(allt(m.nr)) + if !found() + do mesaj with 'Nu a fost inregistrata nici o Nota','in luna curenta, cu numarul '+allt(m.nr) + return + else + sele rul + scat fiel cod,gest,nnir memv + sele numegest + loca for gest=m.gest + scat fiel numegest memv + sele rul + set filter to cod=m.cod + m.nract=m.nnir + m.nnir='________________' + report form nirmod to printer prompt preview + sele rul + set filter to + endif +ENDPROC && BAR_4_OF__0bb0pc0q9_FB2P + +PROCEDURE BAR_1_OF_Bonuri_FB2P + *osetgest.tbrprim.buton4.click + PUBLIC M.T + public m.nract1,m.nract2 + store 0 to m.nract1,m.nract2 + + Ointre=CREATEOBJECT("CAUTintre") + WITH Ointre + .CAPTION="Numarul bonului" + .label1.caption="Nr.initial:" + .label2.visible=.f. + .text1.controlsource="m.nract1" + .text2.visible=.f. + endwith + ointre.show(1) + + sele rull + loca for val(rull.nnir)=m.nract1 + if !found() + do mesaj with 'Nu a fost inregistrat nici un bon','cu numarul '+allt(str(m.nract1)) + return + else + M.T='BONURI' + + select DISTINCT rull.denumire,rull.um,rull.cante,rull.pretV,rull.gest,rull.nnir,rull.codmat,RULL.NRORD,RULL.PRET,; + act.dataact,ACT.NUME_2 AS RESPONS,rull.scd,rull.cant; + from act,rull; + where act.cod=rull.cod and val(rull.nnir)=m.nract1 AND rull.CANTE # 0 AND RULL.CANT=0; + into table &loc\&nfscurt\tempo\ra + + SELE Ra + *SET FILTER TO (val(nnir)>=m.nract1) and (val(nnir)<=m.nract2) AND CANTE # 0 + INDEX ON str(GEST,2)+NNIR TO &LOC\&NFSCURT\tempo\ra + IF !BON_ACHI + REPORT FORMAT BONLI.FRX TO PRINTER PROMPT PREVIEW + ELSE + REPORT FORMAT BONCONS.FRX TO PRINTER PROMPT PREVIEW + ENDIF + endif + use in ra + +ENDPROC && BAR_1_OF_Bonuri_FB2P + +PROCEDURE BAR_2_OF_Bonuri_FB2P + PUBLIC M.T + public m.nract1,m.nract2 + store 0 to m.nract1,m.nract2 + + OLIT=CREATEOBJECT("CAUTLITERE") + WITH OLIT + .CAPTION="Numarul comenzii" + .text1.controlsource="m.nrord" + endwith + olit.show(1) + + sele rull + loca for UPPER(LEFT(nrord,LEN(M.nrord)))==M.nrord + if !found() + do mesaj with 'Nu exista nici un bon','la aceasta comanda.' + return + endif + + M.T='BONURI' + + select DISTINCT rull.nrord,rull.denumire,rull.um,rull.cant,rull.cante,rull.pret,rull.gest,rull.nnir,rull.codmat,; + act.dataireg,ACT.NUME_2 AS RESPONS,RULL.PRETV,rull.scd; + from act,rull; + where act.cod=rull.cod AND UPPER(LEFT(RULL.nrord,LEN(M.nrord)))==M.nrord AND RULL.CANTE # 0 AND RULL.CANT=0; + into cursor ra + + SELE Ra + *SET FILTER TO UPPER(LEFT(nrord,LEN(M.nrord)))==M.nrord AND CANTE # 0 AND CANT=0 + INDEX ON str(GEST,2)+NNIR TO &LOC\&NFSCURT\tempo\FFF + *REPORT FORMAT bonlucrare.FRX TO PRINTER PROMPT PREVIEW + + IF !BON_ACHI + REPORT FORMAT BONLI.FRX TO PRINTER PROMPT PREVIEW + ELSE + REPORT FORMAT BONCONS.FRX TO PRINTER PROMPT PREVIEW + ENDIF +ENDPROC && BAR_2_OF_Bonuri_FB2P + +PROCEDURE BAR_1_OF__0c6142tq6_FB2P + PUBLIC M.T + SET SAFETY OFF + do caut_alf with "NUMEGEST","NUMEGEST","NUMELE GESTIUNII","M.NUMEGEST" + SELE NUMEGEST + SCAN + IF NUMEGEST==M.NUMEGEST + SCATTER MEMVAR + EXIT + ENDIF + ENDSCAN + + sele stoc + set filter to gest=m.gest + set order to tag denumire + SET DECIMALS TO 5 + report form stocdenpv to printer prompt preview + + sele stoc + set filter to +ENDPROC && BAR_1_OF__0c6142tq6_FB2P + +PROCEDURE BAR_1_OF_PeGestiuni_FB2P + do caut_alf with "NUMEGEST","NUMEGEST","NUMELE GESTIUNII","M.NUMEGEST" + SELE NUMEGEST + SCAN + IF NUMEGEST==M.NUMEGEST + SCATTER MEMVAR + EXIT + ENDIF + ENDSCAN + ***DO NCONT.SPR + *SELE BAL + *OSELCONT=CREATEOBJECT("SELCONT") + *OSELCONT.SHOW(1) + + SELE stoc + SET ORDER TO TAG denumire + SET FILTER TO GEST=M.GEST + *AND SCD=subs(CN,1,4) + REPORT FORMAT stocDEN.FRX TO PRINTER PROMPT NOCONSOLE PREVIEW + * WINDOW WPRINT +ENDPROC && BAR_1_OF_PeGestiuni_FB2P + +PROCEDURE BAR_2_OF_PeGestiuni_FB2P + do caut_alf with "NUMEGEST","NUMEGEST","NUMELE GESTIUNII","M.NUMEGEST" + SELE NUMEGEST + SCAN + IF NUMEGEST==M.NUMEGEST + SCATTER MEMVAR + EXIT + ENDIF + ENDSCAN + ***DO NCONT.SPR + *SELE BAL + *OSELCONT=CREATEOBJECT("SELCONT") + *OSELCONT.SHOW(1) + + SELE stoc + SET ORDER TO TAG CODMAT + SET FILTER TO GEST=M.GEST + *AND SCD=subs(CN,1,4) + REPORT FORMAT stocden.FRX TO PRINTER PROMPT NOCONSOLE PREVIEW + * WINDOW WPRINT +ENDPROC && BAR_2_OF_PeGestiuni_FB2P + +PROCEDURE BAR_1_OF_NewItem_FB2P + store 0 to m.nract1 + Ointre=CREATEOBJECT("CAUTintre") + WITH Ointre + .CAPTION="Numarul notei de transfer" + .label1.caption="Nr. nota:" + .label2.visible=.f. + .text1.controlsource="m.nract1" + .text2.visible=.f. + endwith + ointre.show(1) + + sele act + loca for nract=m.nract1 + if found() + scat memv + + m.numegest=m.explicatia + SELE RUL + loca for cod=m.cod + if !found() + DO MESAJ WITH 'Nu exista aceasta nota de transfer','' + return + else + SET FILTER TO cod=m.cod and !empty(cante) + report form nirtransfer to printer prompt preview + endif + ELSE + DO MESAJ WITH 'Nu exista aceasta nota de transfer','' + endif + sele act + set filter to +ENDPROC && BAR_1_OF_NewItem_FB2P + +PROCEDURE BAR_2_OF_NewItem_FB2P + Store 0 To m.nract1 + Ointre=Createobject("CAUTintre") + With Ointre + .Caption="Numarul notei de transfer" + .label1.Caption="Nr. nota:" + .label2.Visible=.F. + .text1.ControlSource="m.nract1" + .text2.Visible=.F. + Endwith + Ointre.Show(1) + + Sele act + Loca For nract=m.nract1 And scd='3712' And scc='3711' + If Found() + Scat Memv + + m.numegest=m.explicatia + *!* SELE RUL + *!* SET FILTER TO cod=m.cod and !empty(cante) + *!* report form nirtransfer to printer prompt preview + *!* ELSE + *!* DO MESAJ WITH 'Nu exista aceasta nota de transfer','' + *!* endif + + + Select * From RUL Where COD=M.COD Into Table &LOC\&NFSCURT\TEMPO\ARUL + Use In RUL + Use In ARUL + Use &LOC\&NFSCURT\TEMPO\ARUL In 0 Alias RUL + *** + Select RUL + Set Filter To !Empty(cante) + Report Format NIRTRANSFER.FRX To Printer Prompt Preview + *Endif + Do TOTV + + Else + Do MESAJ With 'Nu exista aceasta nota de transfer','' + Endif + + sele act + set filter to +ENDPROC && BAR_2_OF_NewItem_FB2P + +PROCEDURE BAR_3_OF_NewItem_FB2P + store 0 to m.nract1 + Ointre=CREATEOBJECT("CAUTintre") + WITH Ointre + .CAPTION="Numarul notei de transfer" + .label1.caption="Nr. nota:" + .label2.visible=.f. + .text1.controlsource="m.nract1" + .text2.visible=.f. + endwith + ointre.show(1) + + sele act + loca for nract=m.nract1 and scd='3711' and scc='3712' + if found() + scat memv + + m.numegest=m.explicatia + *!* SELE RUL + *!* SET FILTER TO cod=m.cod and !empty(cante) + *!* report form nirtransfer to printer prompt preview + SELECT * FROM RUL WHERE COD=M.COD INTO TABLE &LOC\&NFSCURT\TEMPO\ARUL + USE IN RUL + USE IN ARUL + USE &LOC\&NFSCURT\TEMPO\ARUL IN 0 ALIAS RUL + *** + SELECT RUL + SET FILTER TO !empty(cante) + REPORT FORMAT NIRTRANSFER.FRX TO PRINTER PROMPT PREVIEW + *endif + DO TOTV + + ELSE + DO MESAJ WITH 'Nu exista aceasta nota de transfer','' + endif + sele act + set filter to +ENDPROC && BAR_3_OF_NewItem_FB2P + +PROCEDURE BAR_4_OF_NewItem_FB2P + store 0 to m.nract1 + Ointre=CREATEOBJECT("CAUTintre") + WITH Ointre + .CAPTION="Numarul notei de retur" + .label1.caption="Nr. nota:" + .label2.visible=.f. + .text1.controlsource="m.nract1" + .text2.visible=.f. + endwith + ointre.show(1) + + sele act + loca for nract=m.nract1 + if found() + scat memv + + m.numegest=m.explicatia + SELE RUL + *SET FILTER TO cod=m.cod + sele rul.* from rul where cod=m.cod into table &dirgen\&nfscurt\tempo\ra + sele ra + repl all cante with -cante + REPORT FORMAT RETUR.FRX TO PRINTER PROMPT PREVIEW + else + do mesaj with 'Nu a fost emisa nota cu nr.'+allt(str(m.nract1)),'in aceasta luna.' + endif + sele rul + set filter to +ENDPROC && BAR_4_OF_NewItem_FB2P + +PROCEDURE BAR_9_OF__0bb0p33cd_FB2P + + + STORE 0 to m.nract1 + SELE calendar + LOCA for nl=m.nl and an=m.an + m.ctva=ctvam + + SELE FIRMA + LOCA FOR NFSCURT=FSCURT + SCAT MEMV + FCOD_FISCAL=M.COD_FISCAL + + + Ointre=CREATEOBJECT("CAUTintre") + WITH Ointre + .CAPTION="Numarul Documentului" + .label1.caption="Nr. factura:" + .label2.visible=.f. + .text1.controlsource="m.nract1" + .text2.visible=.f. + ENDWITH + Ointre.show(1) + + SELE act + LOCA for nract=m.nract1 + IF found() + SCAT memv + SELE clienti + LOCA for nume=m.nume + IF found() + SCAT fiel COD_FISCAL memv + ELSE + m.COD_FISCAL='' + ENDIF + SELE RUL + SET FILTER TO cod=M.cod AND CANTE#0 and left(scd,3)='371' + REPORT FORM FACTvanz TO PRINTER PROMPT PREVIEW + ELSE + DO mesaj with 'Factura '+allt(str(m.nract))+' nu este','inregistrata in aceasta luna!' + ENDIF +ENDPROC && BAR_9_OF__0bb0p33cd_FB2P + +PROCEDURE BAR_10_OF__0bb0p33cd_FB2P + + public m.delegat,m.bi,m.nrinmat + store '' to m.delegat,m.bi,m.nrinmat + store 0 to m.nract1 + sele calendar + loca for nl=m.nl and an=m.an + m.ctva=ctvam + + SELE FIRMA + LOCA FOR NFSCURT=FSCURT + SCAT MEMV + FCOD_FISCAL=M.COD_FISCAL + + + Ointre=CREATEOBJECT("CAUTintre") + WITH Ointre + .CAPTION="Numarul Documentului" + .label1.caption="Nr. factura:" + .label2.visible=.f. + .text1.controlsource="m.nract1" + .text2.visible=.f. + endwith + ointre.show(1) + + sele act + loca for nract=m.nract1 + if found() + scat memv + sele clienti + loca for nume=m.nume + if found() + scat fiel cod_fiscal memv + else + m.cod_fiscal='' + endif + SELE RUL + SET FILTER TO COD=M.COD AND CANTE#0 + REPORT FORM FACT TO PRINTER PROMPT PREVIEW + else + do mesaj with 'Factura '+allt(str(m.nract))+' nu este','inregistrata in aceasta luna!' + endif +ENDPROC && BAR_10_OF__0bb0p33cd_FB2P + +PROCEDURE BAR_1_OF_Ajutor_FB2P + OD=CREATEO('DESPRE') + OD.SHOW(1) +ENDPROC && BAR_1_OF_Ajutor_FB2P + +* diff --git a/Meniuri/creditori.mn2 b/Meniuri/creditori.mn2 new file mode 100644 index 0000000..d3e3384 --- /dev/null +++ b/Meniuri/creditori.mn2 @@ -0,0 +1,82 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="creditori.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Creditori SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Creditori PROMPT "Balanta C\ + +* +PROCEDURE BAR_1_OF_Creditori_FB2P + *osetviz.tbrprim.butoncredi.click + DO lans_balanta_parteneri WITH "462",.F. IN oparteneri.prg +ENDPROC && BAR_1_OF_Creditori_FB2P + +PROCEDURE BAR_1_OF_Inregistra_FB2P + && PARAMETRII tcFis1,tcFis2,tnCont,tlCuTest,tlVisible,tcTitlu,TcColDeb,TcColCred + *DO viz_facturi WITH 'creditor','credlun',462,.t.,.t.,'Inregistrari creditori','debit','credit' + + *!* DO lans_ireg_parteneri WITH tlTest,tcCont,tlActiv + DO lans_ireg_parteneri WITH .T.,'462',.F. + +ENDPROC && BAR_1_OF_Inregistra_FB2P + +PROCEDURE BAR_2_OF_Inregistra_FB2P + && PARAMETRII tcFis1,tcFis2,tnCont,tlCuTest,tlVisible,tcTitlu,TcColDeb,TcColCred + *DO viz_facturi WITH 'creditor','credlun',462,.f.,.t.,'Inregistrari creditori','debit','credit' + + *!* DO lans_ireg_parteneri WITH tlTest,tcCont,tlActiv + DO lans_ireg_parteneri WITH .F.,'462',.F. + +ENDPROC && BAR_2_OF_Inregistra_FB2P + +PROCEDURE BAR_1_OF__0z30tx7lf_FB2P + **parametrii: + **tcCont,tlActiv,tlTitlu,tlCauta_alfa_Cu_Toti,tlPerioada_Blocata,tcRaport_sau_Vizualizare,tc_NumeForma + + DO PrepareRptSitOp IN osituatii_operative.prg WITH '462',.F.,"",.T.,.T.,"Vizualizare","frm_viz_sit_op", "luna" +ENDPROC && BAR_1_OF__0z30tx7lf_FB2P + +PROCEDURE BAR_2_OF__0z30tx7lf_FB2P + **parametrii: + **tcCont,tlActiv,tlTitlu,tlCauta_alfa_Cu_Toti,tlPerioada_Blocata,tcRaport_sau_Vizualizare,tc_NumeForma + + DO PrepareRptSitOp IN osituatii_operative.prg WITH '462',.F.,"",.T.,.T.,"Vizualizare","frm_viz_sit_op", "perioada" +ENDPROC && BAR_2_OF__0z30tx7lf_FB2P + +* diff --git a/Meniuri/creditoriop.mn2 b/Meniuri/creditoriop.mn2 new file mode 100644 index 0000000..d3fc290 --- /dev/null +++ b/Meniuri/creditoriop.mn2 @@ -0,0 +1,16 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="creditoriop.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Clienti SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Clienti PROMPT "Diurne" ; + MESSAGE '625-462; 462-5311' +ON SELECTION BAR 1 OF Clienti lans(10610) +ACTIVATE POPUP Clienti + +* \ No newline at end of file diff --git a/Meniuri/debitori.mn2 b/Meniuri/debitori.mn2 new file mode 100644 index 0000000..de686ea --- /dev/null +++ b/Meniuri/debitori.mn2 @@ -0,0 +1,82 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="debitori.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Debitori SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Debitori PROMPT "\ + +* +PROCEDURE BAR_1_OF_Debitori_FB2P + *osetviz.tbrprim.butondeb.click + DO lans_balanta_parteneri WITH "461",.T. IN oparteneri.prg +ENDPROC && BAR_1_OF_Debitori_FB2P + +PROCEDURE BAR_1_OF_Inregistra_FB2P + && PARAMETRII tcFis1,tcFis2,tnCont,tlCuTest,tlVisible,tcTitlu,TcColDeb,TcColCred + *DO viz_facturi WITH 'debitor','deblun',461,.t.,.t.,'Inregistrari debitori','debit','credit' + + *!* DO lans_ireg_parteneri WITH tlTest,tcCont,tlActiv + DO lans_ireg_parteneri WITH .T.,'461',.T. + + +ENDPROC && BAR_1_OF_Inregistra_FB2P + +PROCEDURE BAR_2_OF_Inregistra_FB2P + && PARAMETRII tcFis1,tcFis2,tnCont,tlCuTest,tlVisible,tcTitlu,TcColDeb,TcColCred + *DO viz_facturi WITH 'debitor','deblun',461,.f.,.t.,'Inregistrari debitori','debit','credit' + + *!* DO lans_ireg_parteneri WITH tlTest,tcCont,tlActiv + DO lans_ireg_parteneri WITH .F.,'461',.T. +ENDPROC && BAR_2_OF_Inregistra_FB2P + +PROCEDURE BAR_1_OF__0z30zlgl1_FB2P + **parametrii: + **tcCont,tlActiv,tlTitlu,tlCauta_alfa_Cu_Toti,tlPerioada_Blocata,tcRaport_sau_Vizualizare,tc_NumeForma + + DO PrepareRptSitOp IN osituatii_operative.prg WITH '461',.T.,"",.T.,.T.,"Vizualizare","frm_viz_sit_op", "luna" +ENDPROC && BAR_1_OF__0z30zlgl1_FB2P + +PROCEDURE BAR_2_OF__0z30zlgl1_FB2P + **parametrii: + **tcCont,tlActiv,tlTitlu,tlCauta_alfa_Cu_Toti,tlPerioada_Blocata,tcRaport_sau_Vizualizare,tc_NumeForma + + DO PrepareRptSitOp IN osituatii_operative.prg WITH '461',.T.,"",.T.,.T.,"Vizualizare","frm_viz_sit_op", "perioada" +ENDPROC && BAR_2_OF__0z30zlgl1_FB2P + +* diff --git a/Meniuri/decont4511.mn2 b/Meniuri/decont4511.mn2 new file mode 100644 index 0000000..4cd2008 --- /dev/null +++ b/Meniuri/decont4511.mn2 @@ -0,0 +1,121 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="decont4511.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "Materiale primite" ; + MESSAGE ' X :4511' +ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P + +DEFINE BAR 2 OF Shortcut PROMPT "Materiale livrate" ; + MESSAGE ' 4511 : X' +ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P + +DEFINE BAR 3 OF Shortcut PROMPT "\-" +ON BAR 3 OF Shortcut ACTIVATE POPUP _1920lzdtu + + *---------------------------------- + DEFINE POPUP _1920lzdtu SHORTCUT RELATIVE +DEFINE BAR 4 OF Shortcut PROMPT "Clienti" ; + MESSAGE ' 4511 : 4111' +ON SELECTION BAR 4 OF Shortcut lans(10527) + +DEFINE BAR 5 OF Shortcut PROMPT "\-" +ON BAR 5 OF Shortcut ACTIVATE POPUP _21g0x5gtc + + *---------------------------------- + DEFINE POPUP _21g0x5gtc SHORTCUT RELATIVE +DEFINE BAR 6 OF Shortcut PROMPT "Decontari intre subunitati" +ON BAR 6 OF Shortcut ACTIVATE POPUP Decontarii + + *---------------------------------- + DEFINE POPUP Decontarii SHORTCUT RELATIVE + DEFINE BAR 1 OF Decontarii PROMPT "Venituri" + ON SELECTION BAR 1 OF Decontarii DO BAR_1_OF_Decontarii_FB2P + + DEFINE BAR 2 OF Decontarii PROMPT "Cheltuieli" + ON SELECTION BAR 2 OF Decontarii DO BAR_2_OF_Decontarii_FB2P +ACTIVATE POPUP Shortcut + +* + +* +PROCEDURE BAR_1_OF_Shortcut_FB2P + LOCAL lnRaspuns + lnRaspuns = 6 + + DO WHILE lnRaspuns = 6 + lans(10521) + if buton = 2 + return + ENDIF + DO introducere_compacta WITH 'achi_mat','','4511',.t.,.f.,'DECONTARI IN CADRUL GRUPULUI - PRIMIRE','4426',10521 + + IF buton=1 + lnRaspuns = AMESSAGEBOX('Doriti sa continuati cu operatii de acest fel?',4+32) + else + lnRaspuns = 7 + ENDIF + ENDDO +ENDPROC && BAR_1_OF_Shortcut_FB2P + +PROCEDURE BAR_2_OF_Shortcut_FB2P + LOCAL lnRaspuns + lnRaspuns = 6 + + DO WHILE lnRaspuns = 6 + lans(10520) + if buton = 2 + return + ENDIF + DO introducere_compacta WITH 'achi_mat','4511','',.t.,.f.,'DECONTARI IN CADRUL GRUPULUI - PRIMIRE','4427',10520 + IF buton=1 + lnRaspuns = AMESSAGEBOX('Doriti sa continuati cu operatii de acest fel?',4+32) + else + lnRaspuns = 7 + ENDIF + ENDDO +ENDPROC && BAR_2_OF_Shortcut_FB2P + +PROCEDURE BAR_1_OF_Decontarii_FB2P + LOCAL lnRaspuns + lnRaspuns = 6 + + DO WHILE lnRaspuns = 6 + lans(10573) + if buton = 2 + return + ENDIF + DO introducere_compacta WITH 'achi_mat','482',,.t.,.f.,'DECONTARI INTRE SUBUNITATI','4427',10573 + IF buton=1 + lnRaspuns = AMESSAGEBOX('Doriti sa continuati cu operatii de acest fel?',4+32) + else + lnRaspuns = 7 + ENDIF + ENDDO +ENDPROC && BAR_1_OF_Decontarii_FB2P + +PROCEDURE BAR_2_OF_Decontarii_FB2P + LOCAL lnRaspuns + lnRaspuns = 6 + + DO WHILE lnRaspuns = 6 + lans(10574) + if buton = 2 + return + ENDIF + DO introducere_compacta WITH 'achi_mat',,'482',.t.,.f.,'DECONTARI INTRE SUBUNITATI','4426',10574 + IF buton=1 + lnRaspuns = AMESSAGEBOX('Doriti sa continuati cu operatii de acest fel?',4+32) + else + lnRaspuns = 7 + ENDIF + ENDDO +ENDPROC && BAR_2_OF_Decontarii_FB2P + +* diff --git a/Meniuri/dividende.mn2 b/Meniuri/dividende.mn2 new file mode 100644 index 0000000..544f84c --- /dev/null +++ b/Meniuri/dividende.mn2 @@ -0,0 +1,40 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="dividende.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "Constituire impozit dividende" ; + MESSAGE '457 : 446 ' +ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P + +DEFINE BAR 2 OF Shortcut PROMPT "Datorii prescrise sau anulate" ; + MESSAGE ' 457 : 758' +ON SELECTION BAR 2 OF Shortcut lans(10510) +ACTIVATE POPUP Shortcut + +* + +* +PROCEDURE BAR_1_OF_Shortcut_FB2P + PRIVATE pcACN + loCont=ret_cont("Selectati contul",'446') &&,4461,4462,4463,4464,4465,4466,4467,4468,4469') + + IF TYPE('loCont') # 'O' + RETURN + ENDIF + + IF buton=2 + RELEASE loCont + RETURN + ENDIF + CN=locont.cont + PcACN=loCont.Acont + lans(10509) +ENDPROC && BAR_1_OF_Shortcut_FB2P + +* diff --git a/Meniuri/editscurt.mn2 b/Meniuri/editscurt.mn2 new file mode 100644 index 0000000..cf3ee0d --- /dev/null +++ b/Meniuri/editscurt.mn2 @@ -0,0 +1,16 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="editscurt.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR _med_copy OF Shortcut PROMPT "\ \ No newline at end of file diff --git a/Meniuri/fisedecont.mn2 b/Meniuri/fisedecont.mn2 new file mode 100644 index 0000000..c62cdef --- /dev/null +++ b/Meniuri/fisedecont.mn2 @@ -0,0 +1,38 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="fisedecont.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Situatiico SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Situatiico PROMPT "\ + +* +PROCEDURE BAR_4_OF_Situatiico_FB2P + loCarteaMare = CREATEOBJECT("frm_cartea_mare") && orapoarte.vcx + loCarteaMare.show(1) +ENDPROC && BAR_4_OF_Situatiico_FB2P + +* diff --git a/Meniuri/furnizori1.mn2 b/Meniuri/furnizori1.mn2 new file mode 100644 index 0000000..a514c80 --- /dev/null +++ b/Meniuri/furnizori1.mn2 @@ -0,0 +1,1173 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="furnizori1.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Furnizori SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Furnizori PROMPT "Factura de achizitie generala" +ON SELECTION BAR 1 OF Furnizori DO BAR_1_OF_Furnizori_FB2P + +DEFINE BAR 2 OF Furnizori PROMPT "Factura externa de achizitie" +ON SELECTION BAR 2 OF Furnizori DO BAR_2_OF_Furnizori_FB2P + +DEFINE BAR 3 OF Furnizori PROMPT "\-" +ON BAR 3 OF Furnizori ACTIVATE POPUP _13y108f6b + + *---------------------------------- + DEFINE POPUP _13y108f6b SHORTCUT RELATIVE +DEFINE BAR "41" OF Furnizori PROMPT "Materii, materiale neplatite" +ON BAR 41 OF Furnizori ACTIVATE POPUP Materiimat + + *---------------------------------- + DEFINE POPUP Materiimat SHORTCUT RELATIVE + DEFINE BAR "41010" OF Materiimat PROMPT "Materii prime 301" ; + MESSAGE 'Note contabile: 301:401; 4426:401' + ON SELECTION BAR 41010 OF Materiimat DO BAR_"41010"_OF_Materiimat_FB2P + + DEFINE BAR "41020" OF Materiimat PROMPT "Materiale auxiliare 3021" ; + MESSAGE 'Note contabile: 3021:401; 4426:401' + ON SELECTION BAR 41020 OF Materiimat DO BAR_"41020"_OF_Materiimat_FB2P + + DEFINE BAR "41030" OF Materiimat PROMPT "Combustibil 3022" ; + MESSAGE 'Note contabile: 3022:401; 4426:401' + ON SELECTION BAR 41030 OF Materiimat DO BAR_"41030"_OF_Materiimat_FB2P + + DEFINE BAR 4 OF Materiimat PROMPT "Combustibili (cu accize)" ; + MESSAGE 'Note contabile: 3022:401; 4426:401; 401-461' + ON SELECTION BAR 4 OF Materiimat DO BAR_4_OF_Materiimat_FB2P + + DEFINE BAR "41040" OF Materiimat PROMPT "Materiale pentru ambalat 3023" ; + MESSAGE 'Note contabile: 3023:401; 4426:401' + ON SELECTION BAR 41040 OF Materiimat DO BAR_"41040"_OF_Materiimat_FB2P + + DEFINE BAR "41050" OF Materiimat PROMPT "Piese de schimb 3024" ; + MESSAGE 'Note contabile: 3024:401; 4426:401' + ON SELECTION BAR 41050 OF Materiimat DO BAR_"41050"_OF_Materiimat_FB2P + + DEFINE BAR 7 OF Materiimat PROMPT "Alte materiale 3028" ; + MESSAGE 'Note contabile: 3028:401; 4426:401' + ON SELECTION BAR 7 OF Materiimat DO BAR_7_OF_Materiimat_FB2P + + DEFINE BAR "41060" OF Materiimat PROMPT "Obiecte de inventar 303" ; + MESSAGE 'Note contabile: 303:401; 4426:401' + ON SELECTION BAR 41060 OF Materiimat DO BAR_"41060"_OF_Materiimat_FB2P + + DEFINE BAR "41080" OF Materiimat PROMPT "Ambalaje 381" ; + MESSAGE 'Note contabile: 381:401; 4426:401' + ON SELECTION BAR 41080 OF Materiimat DO BAR_"41080"_OF_Materiimat_FB2P + + DEFINE BAR "41110" OF Materiimat PROMPT "\Mijloace fixe" ; + MESSAGE 'Note contabile: 212:404; 4426:404' + ON SELECTION BAR 41110 OF Materiimat DO BAR_"41110"_OF_Materiimat_FB2P + + DEFINE BAR 11 OF Materiimat PROMPT "Marfa 371" ; + MESSAGE 'Note contabile: 371:401; 4426:401' + ON SELECTION BAR 11 OF Materiimat lans(10570) + + DEFINE BAR 12 OF Materiimat PROMPT "\-" + ON BAR 12 OF Materiimat ACTIVATE POPUP _2vb108l5h + + *---------------------------------- + DEFINE POPUP _2vb108l5h SHORTCUT RELATIVE + DEFINE BAR 13 OF Materiimat PROMPT "In curs de aprovizionare" + ON BAR 13 OF Materiimat ACTIVATE POPUP Incursdeap + + *---------------------------------- + DEFINE POPUP Incursdeap SHORTCUT RELATIVE + DEFINE BAR 1 OF Incursdeap PROMPT "Materii prime în curs de aprovizionare 321" ; + MESSAGE 'Note contabile: 321:401; 4426:401' + ON SELECTION BAR 1 OF Incursdeap lans_generic(10309,'321') + + DEFINE BAR 2 OF Incursdeap PROMPT "Materii prime finalizare aprovizionare 321" ; + MESSAGE 'Note contabile: 301:321' + ON SELECTION BAR 2 OF Incursdeap lans_generic(10604,'301',,'321') + + DEFINE BAR 3 OF Incursdeap PROMPT "\-" + ON BAR 3 OF Incursdeap ACTIVATE POPUP _2vb10q94c + + *---------------------------------- + DEFINE POPUP _2vb10q94c SHORTCUT RELATIVE + DEFINE BAR 4 OF Incursdeap PROMPT "Materiale consumabile in curs de aprovizionare 322" ; + MESSAGE 'Note contabile: 322:401; 4426:401' + ON SELECTION BAR 4 OF Incursdeap lans_generic(10309,'322') + + DEFINE BAR 5 OF Incursdeap PROMPT "Materiale consumabile finalizare aprovizionare 322" ; + MESSAGE 'Note contabile: 302:322' + ON SELECTION BAR 5 OF Incursdeap DO BAR_5_OF_Incursdeap_FB2P + + DEFINE BAR 6 OF Incursdeap PROMPT "\-" + ON BAR 6 OF Incursdeap ACTIVATE POPUP _2vb10q94d + + *---------------------------------- + DEFINE POPUP _2vb10q94d SHORTCUT RELATIVE + DEFINE BAR 7 OF Incursdeap PROMPT "Obiecte de inventar in curs de aprovizionare 323" ; + MESSAGE 'Note contabile: 323:401; 4426:401' + ON SELECTION BAR 7 OF Incursdeap lans_generic(10309,'323') + + DEFINE BAR 8 OF Incursdeap PROMPT "Obiecte de inventar finalizare aprovizionare 323" ; + MESSAGE 'Note contabile: 303:323' + ON SELECTION BAR 8 OF Incursdeap lans_generic(10604,'303',,'323') + + DEFINE BAR 9 OF Incursdeap PROMPT "\-" + ON BAR 9 OF Incursdeap ACTIVATE POPUP _2vb10q94e + + *---------------------------------- + DEFINE POPUP _2vb10q94e SHORTCUT RELATIVE + DEFINE BAR 10 OF Incursdeap PROMPT "Animale in curs de aprovizionare 326" ; + MESSAGE 'Note contabile: 326:401; 4426:401' + ON SELECTION BAR 10 OF Incursdeap lans_generic(10309,'326') + + DEFINE BAR 11 OF Incursdeap PROMPT "Animale finalizare aprovizionare 326" ; + MESSAGE 'Note contabile: 361:326' + ON SELECTION BAR 11 OF Incursdeap lans_generic(10604,'361',,'326') + + DEFINE BAR 12 OF Incursdeap PROMPT "\-" + ON BAR 12 OF Incursdeap ACTIVATE POPUP _2vb10q94f + + *---------------------------------- + DEFINE POPUP _2vb10q94f SHORTCUT RELATIVE + DEFINE BAR 13 OF Incursdeap PROMPT "Marfuri in curs de aprovizionare 371" ; + MESSAGE 'Note contabile: 327:401; 4426:401' + ON SELECTION BAR 13 OF Incursdeap lans_generic(10309,'327') + + DEFINE BAR 14 OF Incursdeap PROMPT "Marfuri finalizare aprovizionare 327" ; + MESSAGE 'Note contabile: 371:327' + ON SELECTION BAR 14 OF Incursdeap lans_generic(10604,'371',,'327') + + DEFINE BAR 15 OF Incursdeap PROMPT "\-" + ON BAR 15 OF Incursdeap ACTIVATE POPUP _2vb10q94g + + *---------------------------------- + DEFINE POPUP _2vb10q94g SHORTCUT RELATIVE + DEFINE BAR 16 OF Incursdeap PROMPT "Ambalaje in curs de aprovizionare 328" ; + MESSAGE 'Note contabile: 328:401; 4426:401' + ON SELECTION BAR 16 OF Incursdeap lans_generic(10309,'328') + + DEFINE BAR 17 OF Incursdeap PROMPT "Ambalaje finalizare aprovizionare 328" ; + MESSAGE 'Note contabile: 381:328' + ON SELECTION BAR 17 OF Incursdeap lans_generic(10604,'381',,'328') + +DEFINE BAR "42" OF Furnizori PROMPT "Materii, materale platite din casa" +ON BAR 42 OF Furnizori ACTIVATE POPUP _1370tt6bt + + *---------------------------------- + DEFINE POPUP _1370tt6bt SHORTCUT RELATIVE + DEFINE BAR "42010" OF _1370tt6bt PROMPT "Materii prime 301" ; + MESSAGE 'Note contabile: 301:401; 4426:401; 401:5311' + ON SELECTION BAR 42010 OF _1370tt6bt DO BAR_"42010"_OF__1370tt6bt_FB2P + + DEFINE BAR "42020" OF _1370tt6bt PROMPT "Materiale auxiliare 3021" ; + MESSAGE 'Note contabile: 3021:401; 4426:401; 401:5311' + ON SELECTION BAR 42020 OF _1370tt6bt DO BAR_"42020"_OF__1370tt6bt_FB2P + + DEFINE BAR "42030" OF _1370tt6bt PROMPT "Combustibil 3022" ; + MESSAGE 'Note contabile: 3022:401; 4426:401; 401:5311' + ON SELECTION BAR 42030 OF _1370tt6bt DO BAR_"42030"_OF__1370tt6bt_FB2P + + DEFINE BAR "42040" OF _1370tt6bt PROMPT "Materiale pt. ambalat 3023" ; + MESSAGE 'Note contabile: 3023:401; 4426:401; 401:5311' + ON SELECTION BAR 42040 OF _1370tt6bt DO BAR_"42040"_OF__1370tt6bt_FB2P + + DEFINE BAR "42050" OF _1370tt6bt PROMPT "Piese de schimb 3024" ; + MESSAGE 'Note contabile: 3024:401; 4426:401; 401:5311' + ON SELECTION BAR 42050 OF _1370tt6bt DO BAR_"42050"_OF__1370tt6bt_FB2P + + DEFINE BAR 6 OF _1370tt6bt PROMPT "Alte materiale 3028" ; + MESSAGE 'Note contabile: 3028:401; 4426:401; 401:5311' + ON SELECTION BAR 6 OF _1370tt6bt DO BAR_6_OF__1370tt6bt_FB2P + + DEFINE BAR "42060" OF _1370tt6bt PROMPT "Obiecte de inventar 303" ; + MESSAGE 'Note contabile: 303:401; 4426:401; 401:5311' + ON SELECTION BAR 42060 OF _1370tt6bt DO BAR_"42060"_OF__1370tt6bt_FB2P + + DEFINE BAR "42080" OF _1370tt6bt PROMPT "Ambalaje 381" ; + MESSAGE 'Note contabile: 381:401; 4426:401; 401:5311' + ON SELECTION BAR 42080 OF _1370tt6bt DO BAR_"42080"_OF__1370tt6bt_FB2P + + DEFINE BAR 9 OF _1370tt6bt PROMPT "Marfa 371" ; + MESSAGE 'Note contabile: 371:401; 4426:401; 401:5311' + ON SELECTION BAR 9 OF _1370tt6bt lans(10571) + +DEFINE BAR "43" OF Furnizori PROMPT "Materii, materiale platite din 542" +ON BAR 43 OF Furnizori ACTIVATE POPUP _1370tt6bu + + *---------------------------------- + DEFINE POPUP _1370tt6bu SHORTCUT RELATIVE + DEFINE BAR "43010" OF _1370tt6bu PROMPT "Materii prime 301" ; + MESSAGE 'Note contabile: 301:401; 4426:401; 401:542' + ON SELECTION BAR 43010 OF _1370tt6bu DO BAR_"43010"_OF__1370tt6bu_FB2P + + DEFINE BAR "43020" OF _1370tt6bu PROMPT "Materiale auxiliare 3021" ; + MESSAGE 'Note contabile: 3021:401; 4426:401; 401:542' + ON SELECTION BAR 43020 OF _1370tt6bu DO BAR_"43020"_OF__1370tt6bu_FB2P + + DEFINE BAR "43030" OF _1370tt6bu PROMPT "Combustibil 3022" ; + MESSAGE 'Note contabile: 3022:401; 4426:401; 401:542' + ON SELECTION BAR 43030 OF _1370tt6bu DO BAR_"43030"_OF__1370tt6bu_FB2P + + DEFINE BAR "43040" OF _1370tt6bu PROMPT "Materiale pt. ambalat 3023" ; + MESSAGE 'Note contabile: 3023:401; 4426:401; 401:542' + ON SELECTION BAR 43040 OF _1370tt6bu DO BAR_"43040"_OF__1370tt6bu_FB2P + + DEFINE BAR "43050" OF _1370tt6bu PROMPT "Piese de schimb 3024" ; + MESSAGE 'Note contabile: 3024:401; 4426:401; 401:542' + ON SELECTION BAR 43050 OF _1370tt6bu DO BAR_"43050"_OF__1370tt6bu_FB2P + + DEFINE BAR 6 OF _1370tt6bu PROMPT "Alte materiale 3028" ; + MESSAGE 'Note contabile: 3028:401; 4426:401; 401:542' + ON SELECTION BAR 6 OF _1370tt6bu DO BAR_6_OF__1370tt6bu_FB2P + + DEFINE BAR "43060" OF _1370tt6bu PROMPT "Obiecte de inventar 303" ; + MESSAGE 'Note contabile: 303:401; 4426:401; 401:542' + ON SELECTION BAR 43060 OF _1370tt6bu DO BAR_"43060"_OF__1370tt6bu_FB2P + + DEFINE BAR "43080" OF _1370tt6bu PROMPT "Ambalaje 381" ; + MESSAGE 'Note contabile: 381:401; 4426:401; 401:542' + ON SELECTION BAR 43080 OF _1370tt6bu DO BAR_"43080"_OF__1370tt6bu_FB2P + + DEFINE BAR 9 OF _1370tt6bu PROMPT "Marfa 371" ; + MESSAGE 'Note contabile: 371:401; 4426:401; 401:542' + ON SELECTION BAR 9 OF _1370tt6bu + +DEFINE BAR 7 OF Furnizori PROMPT "\-" +ON BAR 7 OF Furnizori ACTIVATE POPUP _13z0i7h3k + + *---------------------------------- + DEFINE POPUP _13z0i7h3k SHORTCUT RELATIVE +DEFINE BAR 8 OF Furnizori PROMPT "Cheltuieli neplatite" +ON BAR 8 OF Furnizori ACTIVATE POPUP _13z0i78ea + + *---------------------------------- + DEFINE POPUP _13z0i78ea SHORTCUT RELATIVE + DEFINE BAR 1 OF _13z0i78ea PROMPT "Materiale nestocate 604" ; + MESSAGE '604 :401 ;4426:401 ' + ON SELECTION BAR 1 OF _13z0i78ea DO BAR_1_OF__13z0i78ea_FB2P + + DEFINE BAR 2 OF _13z0i78ea PROMPT "Energie si apa 605x" ; + MESSAGE '605x :401 ;4426: 401' + ON SELECTION BAR 2 OF _13z0i78ea DO BAR_2_OF__13z0i78ea_FB2P + + DEFINE BAR 3 OF _13z0i78ea PROMPT "Intretinere si reparatii 611" ; + MESSAGE '611 :401 ;4426:401 ' + ON SELECTION BAR 3 OF _13z0i78ea DO BAR_3_OF__13z0i78ea_FB2P + + DEFINE BAR 4 OF _13z0i78ea PROMPT "Locatii si chirii 612" ; + MESSAGE '612 :401 ;4426:401 ' + ON SELECTION BAR 4 OF _13z0i78ea DO BAR_4_OF__13z0i78ea_FB2P + + DEFINE BAR 5 OF _13z0i78ea PROMPT "Prime de asigurare 613" ; + MESSAGE '613 :401 ;4426:401 ' + ON SELECTION BAR 5 OF _13z0i78ea DO BAR_5_OF__13z0i78ea_FB2P + + DEFINE BAR 6 OF _13z0i78ea PROMPT "Studii si cercetari 614" ; + MESSAGE '614 :401 ;4426:401 ' + ON SELECTION BAR 6 OF _13z0i78ea DO BAR_6_OF__13z0i78ea_FB2P + + DEFINE BAR 7 OF _13z0i78ea PROMPT "Colaboratori 621" ; + MESSAGE '621 :401 ;4426:401 ' + ON SELECTION BAR 7 OF _13z0i78ea DO BAR_7_OF__13z0i78ea_FB2P + + DEFINE BAR 8 OF _13z0i78ea PROMPT "Comisioane si onorarii 622" ; + MESSAGE '622 :401 ;4426:401 ' + ON SELECTION BAR 8 OF _13z0i78ea DO BAR_8_OF__13z0i78ea_FB2P + + DEFINE BAR 9 OF _13z0i78ea PROMPT "Reclama, Protocol 623" ; + MESSAGE '623:401 ;4426:401 ' + ON SELECTION BAR 9 OF _13z0i78ea DO BAR_9_OF__13z0i78ea_FB2P + + DEFINE BAR 10 OF _13z0i78ea PROMPT "Transport bunuri si persoane 624" ; + MESSAGE '624 :401 ;4426:401 ' + ON SELECTION BAR 10 OF _13z0i78ea DO BAR_10_OF__13z0i78ea_FB2P + + DEFINE BAR 11 OF _13z0i78ea PROMPT "Deplasari, detasari 625" ; + MESSAGE '625 :401 ;4426:401 ' + ON SELECTION BAR 11 OF _13z0i78ea DO BAR_11_OF__13z0i78ea_FB2P + + DEFINE BAR 12 OF _13z0i78ea PROMPT "Posta si telecomunicatii 626" ; + MESSAGE '626 :401 ;4426:401 ' + ON SELECTION BAR 12 OF _13z0i78ea DO BAR_12_OF__13z0i78ea_FB2P + + DEFINE BAR 13 OF _13z0i78ea PROMPT "Alte cheltuieli la terti 628" ; + MESSAGE '628 :401 ;4426:401 ' + ON SELECTION BAR 13 OF _13z0i78ea DO BAR_13_OF__13z0i78ea_FB2P + + DEFINE BAR 14 OF _13z0i78ea PROMPT "Cheltuieli diverse 6xx / 4xx" ; + MESSAGE '6xx :401; 4426:401 ' + ON SELECTION BAR 14 OF _13z0i78ea DO BAR_14_OF__13z0i78ea_FB2P + + DEFINE BAR 15 OF _13z0i78ea PROMPT "Cheltuieli diverse 6xx + servicii in curs de executie 332-712" ; + MESSAGE '6xx :401; 4426:401; 332:712' + ON SELECTION BAR 15 OF _13z0i78ea DO BAR_15_OF__13z0i78ea_FB2P + +DEFINE BAR 9 OF Furnizori PROMPT "Cheltuieli platite din casa" +ON BAR 9 OF Furnizori ACTIVATE POPUP NewItem + + *---------------------------------- + DEFINE POPUP NewItem SHORTCUT RELATIVE + DEFINE BAR 1 OF NewItem PROMPT "Materiale nestocate 604" ; + MESSAGE '604 :401 ;4426:401 ;401 :5311' + ON SELECTION BAR 1 OF NewItem DO BAR_1_OF_NewItem_FB2P + + DEFINE BAR 2 OF NewItem PROMPT "Energie si apa 605x" ; + MESSAGE '605x :401 ;4426:401 ;401 :5311' + ON SELECTION BAR 2 OF NewItem DO BAR_2_OF_NewItem_FB2P + + DEFINE BAR 3 OF NewItem PROMPT "Intretinere si reparatii 611" ; + MESSAGE '611 :401 ;4426:401 ;401 :5311' + ON SELECTION BAR 3 OF NewItem DO BAR_3_OF_NewItem_FB2P + + DEFINE BAR 4 OF NewItem PROMPT "Locatii si chirii 612" ; + MESSAGE '612 :401 ;4426:401 ;401 :5311' + ON SELECTION BAR 4 OF NewItem DO BAR_4_OF_NewItem_FB2P + + DEFINE BAR 5 OF NewItem PROMPT "Prime de asigurare 613" ; + MESSAGE '613 :401 ;4426:401 ;401 :5311' + ON SELECTION BAR 5 OF NewItem DO BAR_5_OF_NewItem_FB2P + + DEFINE BAR 6 OF NewItem PROMPT "Studii si cercetari 614" ; + MESSAGE '614 :401 ;4426:401 ;401 :5311' + ON SELECTION BAR 6 OF NewItem DO BAR_6_OF_NewItem_FB2P + + DEFINE BAR 7 OF NewItem PROMPT "Colaboratori 621" ; + MESSAGE '621 :401 ;4426:401 ;401 :5311' + ON SELECTION BAR 7 OF NewItem DO BAR_7_OF_NewItem_FB2P + + DEFINE BAR 8 OF NewItem PROMPT "Comisioane si onorarii 622" ; + MESSAGE '622 :401 ;4426:401 ;401 :5311' + ON SELECTION BAR 8 OF NewItem DO BAR_8_OF_NewItem_FB2P + + DEFINE BAR 9 OF NewItem PROMPT "Reclama, Protocol 623" ; + MESSAGE '623:401 ;4426:401 ;401 :5311' + ON SELECTION BAR 9 OF NewItem DO BAR_9_OF_NewItem_FB2P + + DEFINE BAR 10 OF NewItem PROMPT "Transport bunuri si persoane 624" ; + MESSAGE '624 :401 ;4426:401 ;401 :5311' + ON SELECTION BAR 10 OF NewItem DO BAR_10_OF_NewItem_FB2P + + DEFINE BAR 11 OF NewItem PROMPT "Deplasari, detasari 625" ; + MESSAGE '625 :401 ;4426:401 ;401 :5311' + ON SELECTION BAR 11 OF NewItem DO BAR_11_OF_NewItem_FB2P + + DEFINE BAR 12 OF NewItem PROMPT "Posta si telecomunicatii 626" ; + MESSAGE '625 :401 ;4426:401 ;401 :5311' + ON SELECTION BAR 12 OF NewItem DO BAR_12_OF_NewItem_FB2P + + DEFINE BAR 13 OF NewItem PROMPT "Alte cheltuieli la terti 628" ; + MESSAGE '628 :401 ;4426:401 ;401 :5311' + ON SELECTION BAR 13 OF NewItem DO BAR_13_OF_NewItem_FB2P + + DEFINE BAR 14 OF NewItem PROMPT "Cheltuieli diverse 6xx" ; + MESSAGE '6xx :401 ;4426:401 ;401 :5311' + ON SELECTION BAR 14 OF NewItem DO BAR_14_OF_NewItem_FB2P + +DEFINE BAR 10 OF Furnizori PROMPT "Cheltuieli platite din 542" +ON BAR 10 OF Furnizori ACTIVATE POPUP Cheltuieli + + *---------------------------------- + DEFINE POPUP Cheltuieli SHORTCUT RELATIVE + DEFINE BAR 1 OF Cheltuieli PROMPT "Materiale nestocate 604" ; + MESSAGE '604 :401 ;4426:401 ;401 :542 ' + ON SELECTION BAR 1 OF Cheltuieli DO BAR_1_OF_Cheltuieli_FB2P + + DEFINE BAR 2 OF Cheltuieli PROMPT "Energie si apa 605x" ; + MESSAGE '605x :401 ;4426:401 ;401 :542 ' + ON SELECTION BAR 2 OF Cheltuieli DO BAR_2_OF_Cheltuieli_FB2P + + DEFINE BAR 3 OF Cheltuieli PROMPT "Intretinere si reparatii 611" ; + MESSAGE '611 :401 ;4426:401 ;401 :542 ' + ON SELECTION BAR 3 OF Cheltuieli DO BAR_3_OF_Cheltuieli_FB2P + + DEFINE BAR 4 OF Cheltuieli PROMPT "Locatii si chirii 612" ; + MESSAGE '612 :401 ;4426:401 ;401 :542 ' + ON SELECTION BAR 4 OF Cheltuieli DO BAR_4_OF_Cheltuieli_FB2P + + DEFINE BAR 5 OF Cheltuieli PROMPT "Prime de asigurare 613" ; + MESSAGE '613 :401 ;4426:401 ;401 :542 ' + ON SELECTION BAR 5 OF Cheltuieli DO BAR_5_OF_Cheltuieli_FB2P + + DEFINE BAR 6 OF Cheltuieli PROMPT "Studii si cercetari 614" ; + MESSAGE '614 :401 ;4426:401 ;401 :542 ' + ON SELECTION BAR 6 OF Cheltuieli DO BAR_6_OF_Cheltuieli_FB2P + + DEFINE BAR 7 OF Cheltuieli PROMPT "Colaboratori 621" ; + MESSAGE '621 :401 ;4426:401 ;401 :542 ' + ON SELECTION BAR 7 OF Cheltuieli DO BAR_7_OF_Cheltuieli_FB2P + + DEFINE BAR 8 OF Cheltuieli PROMPT "Comisioane si onorarii 622" ; + MESSAGE '622 :401 ;4426:401 ;401 :542 ' + ON SELECTION BAR 8 OF Cheltuieli DO BAR_8_OF_Cheltuieli_FB2P + + DEFINE BAR 9 OF Cheltuieli PROMPT "Reclama, Protocol 623" ; + MESSAGE '623:401 ;4426:401 ;401 :542 ' + ON SELECTION BAR 9 OF Cheltuieli DO BAR_9_OF_Cheltuieli_FB2P + + DEFINE BAR 10 OF Cheltuieli PROMPT "Transport bunuri si persoane 624" ; + MESSAGE '624 :401 ;4426:401 ;401 :542 ' + ON SELECTION BAR 10 OF Cheltuieli DO BAR_10_OF_Cheltuieli_FB2P + + DEFINE BAR 11 OF Cheltuieli PROMPT "Deplasari, detasari 625" ; + MESSAGE '625 :401 ;4426:401 ;401 :542 ' + ON SELECTION BAR 11 OF Cheltuieli DO BAR_11_OF_Cheltuieli_FB2P + + DEFINE BAR 12 OF Cheltuieli PROMPT "Posta si telecomunicatii 626" ; + MESSAGE '626 :401 ;4426:401 ;401 :542 ' + ON SELECTION BAR 12 OF Cheltuieli DO BAR_12_OF_Cheltuieli_FB2P + + DEFINE BAR 13 OF Cheltuieli PROMPT "Alte cheltuieli la teri 628" ; + MESSAGE '628 :401 ;4426:401 ;401 :542 ' + ON SELECTION BAR 13 OF Cheltuieli DO BAR_13_OF_Cheltuieli_FB2P + + DEFINE BAR 14 OF Cheltuieli PROMPT "Cheltuieli diverse 6xx" ; + MESSAGE '6xx :401 ;4426:401 ;401 :542 ' + ON SELECTION BAR 14 OF Cheltuieli DO BAR_14_OF_Cheltuieli_FB2P + +DEFINE BAR 11 OF Furnizori PROMPT "Cheltuieli platite din 4281" +ON BAR 11 OF Furnizori ACTIVATE POPUP _5p30ps315 + + *---------------------------------- + DEFINE POPUP _5p30ps315 SHORTCUT RELATIVE + DEFINE BAR 1 OF _5p30ps315 PROMPT "Transport bunuri si persoane 624" ; + MESSAGE '624 :401 ;4426:401 ;401 :5311' + ON SELECTION BAR 1 OF _5p30ps315 lans(10644) + +DEFINE BAR 12 OF Furnizori PROMPT "\-" +ON BAR 12 OF Furnizori ACTIVATE POPUP _13y10laif + + *---------------------------------- + DEFINE POPUP _13y10laif SHORTCUT RELATIVE +DEFINE BAR 13 OF Furnizori PROMPT "Inregistrare facturare avansuri 409" ; + MESSAGE '409 : 401 ; 4426 : 401' +ON SELECTION BAR 13 OF Furnizori DO BAR_13_OF_Furnizori_FB2P + +DEFINE BAR 14 OF Furnizori PROMPT "Inregistrare facturare avansuri - taxare inversa 409" ; + MESSAGE '409 : 401 ; 4426 : 4427' +ON SELECTION BAR 14 OF Furnizori DO BAR_14_OF_Furnizori_FB2P + +DEFINE BAR 15 OF Furnizori PROMPT "Inregistrare cheltuieli in avans 471" ; + MESSAGE '471 : 401; 4426 : 401' +ON SELECTION BAR 15 OF Furnizori DO BAR_15_OF_Furnizori_FB2P + +DEFINE BAR 16 OF Furnizori PROMPT "Plata factura achizitie din 461" ; + MESSAGE '401 : 461' +ON SELECTION BAR 16 OF Furnizori lans(10476) + +DEFINE BAR 17 OF Furnizori PROMPT "Constituire garantii 462" ; + MESSAGE '401 : 462' +ON SELECTION BAR 17 OF Furnizori DO BAR_17_OF_Furnizori_FB2P + +DEFINE BAR 18 OF Furnizori PROMPT "Refacturare" ; + MESSAGE '462 : 401' +ON SELECTION BAR 18 OF Furnizori DO BAR_18_OF_Furnizori_FB2P + +DEFINE BAR 19 OF Furnizori PROMPT "\-" +ON BAR 19 OF Furnizori ACTIVATE POPUP _13y10p03a + + *---------------------------------- + DEFINE POPUP _13y10p03a SHORTCUT RELATIVE +DEFINE BAR 20 OF Furnizori PROMPT "Tichete de masa" +ON SELECTION BAR 20 OF Furnizori DO BAR_20_OF_Furnizori_FB2P + +DEFINE BAR 21 OF Furnizori PROMPT "Combustibili cu taxa" +ON SELECTION BAR 21 OF Furnizori DO BAR_21_OF_Furnizori_FB2P + +DEFINE BAR 22 OF Furnizori PROMPT "Cheltuieli limitare deducere 50%" +ON SELECTION BAR 22 OF Furnizori DO BAR_22_OF_Furnizori_FB2P + +DEFINE BAR 23 OF Furnizori PROMPT "Cheltuieli limitare deducere 100%" +ON SELECTION BAR 23 OF Furnizori DO BAR_23_OF_Furnizori_FB2P + +DEFINE BAR 24 OF Furnizori PROMPT "B.C.F." +ON SELECTION BAR 24 OF Furnizori DO BAR_24_OF_Furnizori_FB2P + +DEFINE BAR 25 OF Furnizori PROMPT "Bonuri valorice" +ON SELECTION BAR 25 OF Furnizori DO BAR_25_OF_Furnizori_FB2P + +DEFINE BAR 26 OF Furnizori PROMPT "Taxare inversa" +ON SELECTION BAR 26 OF Furnizori DO BAR_26_OF_Furnizori_FB2P + +DEFINE BAR 27 OF Furnizori PROMPT "\-" +ON BAR 27 OF Furnizori ACTIVATE POPUP _6sa0su8ei + + *---------------------------------- + DEFINE POPUP _6sa0su8ei SHORTCUT RELATIVE +DEFINE BAR 28 OF Furnizori PROMPT "Import eFactura primite" +ON SELECTION BAR 28 OF Furnizori do importEfacturaPrimite in import_efactura.prg +ACTIVATE POPUP Furnizori + +* + +* +PROCEDURE BAR_1_OF_Furnizori_FB2P + LOCAL lnRaspuns, lnDeducere + lnRaspuns = 6 + + DO WHILE lnRaspuns = 6 + lnDeducere = 0 + buton = lans(10456,,,,@lnDeducere) + + if buton = 2 + return + endif + DO introducere_compacta WITH 'achi_mat','','401 ',.t.,.t.,'Factura de achizitie - Furnizori 401','4426',10456,,m.lnDeducere + IF buton=1 + lnRaspuns = AMESSAGEBOX('Doriti sa continuati cu operatii de acest fel?',4+32) + ELSE + lnRaspuns = 7 + ENDIF + ENDDO +ENDPROC && BAR_1_OF_Furnizori_FB2P + +PROCEDURE BAR_2_OF_Furnizori_FB2P + PRIVATE pcACN + loCont = ret_cont("Selectati contul debitor X = 401",'3,4,6') + + IF TYPE('loCont') # 'O' + RETURN + ENDIF + + IF buton=2 + RELEASE loCont + RETURN + ENDIF + CN=locont.cont + PcACN=loCont.Acont + + LANS(10423) +ENDPROC && BAR_2_OF_Furnizori_FB2P + +PROCEDURE BAR_"41010"_OF_Materiimat_FB2P + lans(10208) +ENDPROC && BAR_"41010"_OF_Materiimat_FB2P + +PROCEDURE BAR_"41020"_OF_Materiimat_FB2P + lans(10209) +ENDPROC && BAR_"41020"_OF_Materiimat_FB2P + +PROCEDURE BAR_"41030"_OF_Materiimat_FB2P + lans(10210) +ENDPROC && BAR_"41030"_OF_Materiimat_FB2P + +PROCEDURE BAR_4_OF_Materiimat_FB2P + lans(10475) +ENDPROC && BAR_4_OF_Materiimat_FB2P + +PROCEDURE BAR_"41040"_OF_Materiimat_FB2P + lans(10211) +ENDPROC && BAR_"41040"_OF_Materiimat_FB2P + +PROCEDURE BAR_"41050"_OF_Materiimat_FB2P + lans(10212) +ENDPROC && BAR_"41050"_OF_Materiimat_FB2P + +PROCEDURE BAR_7_OF_Materiimat_FB2P + lans(10213) +ENDPROC && BAR_7_OF_Materiimat_FB2P + +PROCEDURE BAR_"41060"_OF_Materiimat_FB2P + lans(10214) +ENDPROC && BAR_"41060"_OF_Materiimat_FB2P + +PROCEDURE BAR_"41080"_OF_Materiimat_FB2P + lans(10215) +ENDPROC && BAR_"41080"_OF_Materiimat_FB2P + +PROCEDURE BAR_"41110"_OF_Materiimat_FB2P + PUBLIC DEB + SELE BAL + OS=CREA('SELCONT') + OS.SHOW(1) + IF BUTON=2 + RETURN + ENDIF + + lans(10216) +ENDPROC && BAR_"41110"_OF_Materiimat_FB2P + +PROCEDURE BAR_5_OF_Incursdeap_FB2P + LOCAL loCont + loCont = ret_cont("Materiale consumabile",'3021,3022,3023,3024,3025,3026,3027,3028,3029') + If buton = 2 + Release loCont + Return + Endif + + lans_generic(10604,loCont.Cont, loCont.Acont, '322') +ENDPROC && BAR_5_OF_Incursdeap_FB2P + +PROCEDURE BAR_"42010"_OF__1370tt6bt_FB2P + lans(1) + *DO INTROD2FURNIZORI WITH '301 ','5311 ','PLCASA','ACTGEN01PERC' +ENDPROC && BAR_"42010"_OF__1370tt6bt_FB2P + +PROCEDURE BAR_"42020"_OF__1370tt6bt_FB2P + *!* nr_meniu=42020 + *!* DO INTROD2FURNIZORI WITH '3021 ','5311 ','PLCASA','ACTGEN01PERC' + lans(10190) +ENDPROC && BAR_"42020"_OF__1370tt6bt_FB2P + +PROCEDURE BAR_"42030"_OF__1370tt6bt_FB2P + *!* nr_meniu=42030 + *!* DO INTROD2FURNIZORI WITH '3022 ','5311 ','PLCASA','ACTGEN01PERC' + lans(10191) +ENDPROC && BAR_"42030"_OF__1370tt6bt_FB2P + +PROCEDURE BAR_"42040"_OF__1370tt6bt_FB2P + *!* nr_meniu=42040 + *!* DO INTROD2FURNIZORI WITH '3023 ','5311 ','PLCASA','ACTGEN01PERC' + lans(10192) +ENDPROC && BAR_"42040"_OF__1370tt6bt_FB2P + +PROCEDURE BAR_"42050"_OF__1370tt6bt_FB2P + *!* nr_meniu=42050 + *!* DO INTROD2FURNIZORI WITH '3024 ','5311 ','PLCASA','ACTGEN01PERC' + lans(10193) +ENDPROC && BAR_"42050"_OF__1370tt6bt_FB2P + +PROCEDURE BAR_6_OF__1370tt6bt_FB2P + *DO INTROD2FURNIZORI WITH '3028 ','5311 ','PLCASA','ACTGEN01PERC' + lans(10194) +ENDPROC && BAR_6_OF__1370tt6bt_FB2P + +PROCEDURE BAR_"42060"_OF__1370tt6bt_FB2P + *!* nr_meniu=42060 + *!* DO INTROD2FURNIZORI WITH '303 ','5311 ','PLCASA','ACTGEN01PERC' + lans(10195) +ENDPROC && BAR_"42060"_OF__1370tt6bt_FB2P + +PROCEDURE BAR_"42080"_OF__1370tt6bt_FB2P + *!* nr_meniu=42080 + *!* DO INTROD2FURNIZORI WITH '381 ','5311 ','PLCASA','ACTGEN01PERC' + lans(10196) +ENDPROC && BAR_"42080"_OF__1370tt6bt_FB2P + +PROCEDURE BAR_"43010"_OF__1370tt6bu_FB2P + lans(10198) + *!* nr_meniu=43010 + *!* DO INTROD2FURNIZORI WITH '301 ','542 ','INPLACHIZ','ACTGEN01PER' +ENDPROC && BAR_"43010"_OF__1370tt6bu_FB2P + +PROCEDURE BAR_"43020"_OF__1370tt6bu_FB2P + *!* nr_meniu=43020 + *!* DO INTROD2FURNIZORI WITH '3021 ','542 ','INPLACHIZ','ACTGEN01PER' + lans(10199) +ENDPROC && BAR_"43020"_OF__1370tt6bu_FB2P + +PROCEDURE BAR_"43030"_OF__1370tt6bu_FB2P + *!* nr_meniu=43030 + *!* DO INTROD2FURNIZORI WITH '3022 ','542 ','INPLACHIZ','ACTGEN01PER' + lans(10200) +ENDPROC && BAR_"43030"_OF__1370tt6bu_FB2P + +PROCEDURE BAR_"43040"_OF__1370tt6bu_FB2P + *!* nr_meniu=43040 + *!* DO INTROD2FURNIZORI WITH '3023 ','542 ','INPLACHIZ','ACTGEN01PER' + lans(10201) +ENDPROC && BAR_"43040"_OF__1370tt6bu_FB2P + +PROCEDURE BAR_"43050"_OF__1370tt6bu_FB2P + *!* nr_meniu=43050 + *!* DO INTROD2FURNIZORI WITH '3024 ','542 ','INPLACHIZ','ACTGEN01PER' + lans(10202) +ENDPROC && BAR_"43050"_OF__1370tt6bu_FB2P + +PROCEDURE BAR_6_OF__1370tt6bu_FB2P + *DO INTROD2FURNIZORI WITH '3028 ','542 ','INPLACHIZ','ACTGEN01PER' + lans(10203) +ENDPROC && BAR_6_OF__1370tt6bu_FB2P + +PROCEDURE BAR_"43060"_OF__1370tt6bu_FB2P + lans(10204) + *!* nr_meniu=43060 + *!* DO INTROD2FURNIZORI WITH '303 ','542 ','INPLACHIZ','ACTGEN01PER' +ENDPROC && BAR_"43060"_OF__1370tt6bu_FB2P + +PROCEDURE BAR_"43080"_OF__1370tt6bu_FB2P + lans(10205) + *!* nr_meniu=43080 + *!* DO INTROD2FURNIZORI WITH '381 ','542 ','INPLACHIZ','ACTGEN01PER' +ENDPROC && BAR_"43080"_OF__1370tt6bu_FB2P + +PROCEDURE BAR_1_OF__13z0i78ea_FB2P + lans(10228) +ENDPROC && BAR_1_OF__13z0i78ea_FB2P + +PROCEDURE BAR_2_OF__13z0i78ea_FB2P + * lans(10229) + + PRIVATE pcACN + loCont=ret_cont("Selectati contul",'605') + + IF TYPE('loCont') # 'O' + RETURN + ENDIF + + IF buton=2 + RELEASE loCont + RETURN + ENDIF + CN=locont.cont + PcACN=loCont.Acont + + lans(10311) +ENDPROC && BAR_2_OF__13z0i78ea_FB2P + +PROCEDURE BAR_3_OF__13z0i78ea_FB2P + lans(10230) +ENDPROC && BAR_3_OF__13z0i78ea_FB2P + +PROCEDURE BAR_4_OF__13z0i78ea_FB2P + lans(10231) +ENDPROC && BAR_4_OF__13z0i78ea_FB2P + +PROCEDURE BAR_5_OF__13z0i78ea_FB2P + lans(10232) +ENDPROC && BAR_5_OF__13z0i78ea_FB2P + +PROCEDURE BAR_6_OF__13z0i78ea_FB2P + lans(10233) +ENDPROC && BAR_6_OF__13z0i78ea_FB2P + +PROCEDURE BAR_7_OF__13z0i78ea_FB2P + lans(10234) +ENDPROC && BAR_7_OF__13z0i78ea_FB2P + +PROCEDURE BAR_8_OF__13z0i78ea_FB2P + lans(10235) +ENDPROC && BAR_8_OF__13z0i78ea_FB2P + +PROCEDURE BAR_9_OF__13z0i78ea_FB2P + lans(10236) +ENDPROC && BAR_9_OF__13z0i78ea_FB2P + +PROCEDURE BAR_10_OF__13z0i78ea_FB2P + lans(10238) +ENDPROC && BAR_10_OF__13z0i78ea_FB2P + +PROCEDURE BAR_11_OF__13z0i78ea_FB2P + lans(10239) +ENDPROC && BAR_11_OF__13z0i78ea_FB2P + +PROCEDURE BAR_12_OF__13z0i78ea_FB2P + lans(10240) +ENDPROC && BAR_12_OF__13z0i78ea_FB2P + +PROCEDURE BAR_13_OF__13z0i78ea_FB2P + lans(10241) +ENDPROC && BAR_13_OF__13z0i78ea_FB2P + +PROCEDURE BAR_14_OF__13z0i78ea_FB2P + *!* SELECT BAL + *!* ose=crea('selcont') + *!* ose.show(1) + *!* IF buton=2 + *!* RETURN + *!* ENDIF + PRIVATE pcACN + loCont=ret_cont("Selectati contul",'6,4') + + IF TYPE('loCont') # 'O' + RETURN + ENDIF + + IF buton=2 + RELEASE loCont + RETURN + ENDIF + CN=locont.cont + PcACN=loCont.Acont + + lans(10311) +ENDPROC && BAR_14_OF__13z0i78ea_FB2P + +PROCEDURE BAR_15_OF__13z0i78ea_FB2P + PRIVATE pcACN + loCont=ret_cont("Selectati contul",'6') + + IF TYPE('loCont') # 'O' + RETURN + ENDIF + + IF buton=2 + RELEASE loCont + RETURN + ENDIF + CN=locont.cont + PcACN=loCont.Acont + + lans(10646) +ENDPROC && BAR_15_OF__13z0i78ea_FB2P + +PROCEDURE BAR_1_OF_NewItem_FB2P + lans(10242) +ENDPROC && BAR_1_OF_NewItem_FB2P + +PROCEDURE BAR_2_OF_NewItem_FB2P + * lans(10243) + + PRIVATE pcACN + loCont=ret_cont("Selectati contul",'605') + + IF TYPE('loCont') # 'O' + RETURN + ENDIF + + IF buton=2 + RELEASE loCont + RETURN + ENDIF + CN=locont.cont + PcACN=loCont.Acont + lans(10312) +ENDPROC && BAR_2_OF_NewItem_FB2P + +PROCEDURE BAR_3_OF_NewItem_FB2P + lans(10244) +ENDPROC && BAR_3_OF_NewItem_FB2P + +PROCEDURE BAR_4_OF_NewItem_FB2P + lans(10245) +ENDPROC && BAR_4_OF_NewItem_FB2P + +PROCEDURE BAR_5_OF_NewItem_FB2P + lans(10246) +ENDPROC && BAR_5_OF_NewItem_FB2P + +PROCEDURE BAR_6_OF_NewItem_FB2P + lans(10247) +ENDPROC && BAR_6_OF_NewItem_FB2P + +PROCEDURE BAR_7_OF_NewItem_FB2P + lans(10248) +ENDPROC && BAR_7_OF_NewItem_FB2P + +PROCEDURE BAR_8_OF_NewItem_FB2P + lans(10249) +ENDPROC && BAR_8_OF_NewItem_FB2P + +PROCEDURE BAR_9_OF_NewItem_FB2P + lans(10250) +ENDPROC && BAR_9_OF_NewItem_FB2P + +PROCEDURE BAR_10_OF_NewItem_FB2P + lans(10252) +ENDPROC && BAR_10_OF_NewItem_FB2P + +PROCEDURE BAR_11_OF_NewItem_FB2P + lans(10253) +ENDPROC && BAR_11_OF_NewItem_FB2P + +PROCEDURE BAR_12_OF_NewItem_FB2P + lans(10254) +ENDPROC && BAR_12_OF_NewItem_FB2P + +PROCEDURE BAR_13_OF_NewItem_FB2P + lans(10255) +ENDPROC && BAR_13_OF_NewItem_FB2P + +PROCEDURE BAR_14_OF_NewItem_FB2P + *!* SELECT BAL + *!* ose=crea('selcont') + *!* ose.show(1) + *!* IF buton=2 + *!* RETURN + *!* ENDIF + + PRIVATE pcACN + loCont=ret_cont("Selectati contul",'6') + + IF TYPE('loCont') # 'O' + RETURN + ENDIF + + IF buton=2 + RELEASE loCont + RETURN + ENDIF + CN=locont.cont + PcACN=loCont.Acont + lans(10312) +ENDPROC && BAR_14_OF_NewItem_FB2P + +PROCEDURE BAR_1_OF_Cheltuieli_FB2P + lans(10256) +ENDPROC && BAR_1_OF_Cheltuieli_FB2P + +PROCEDURE BAR_2_OF_Cheltuieli_FB2P + *lans(10257) + PRIVATE pcACN + loCont=ret_cont("Selectati contul",'605') + + IF TYPE('loCont') # 'O' + RETURN + ENDIF + + IF buton=2 + RELEASE loCont + RETURN + ENDIF + CN=locont.cont + PcACN=loCont.Acont + lans(10313) +ENDPROC && BAR_2_OF_Cheltuieli_FB2P + +PROCEDURE BAR_3_OF_Cheltuieli_FB2P + lans(10258) +ENDPROC && BAR_3_OF_Cheltuieli_FB2P + +PROCEDURE BAR_4_OF_Cheltuieli_FB2P + lans(10259) +ENDPROC && BAR_4_OF_Cheltuieli_FB2P + +PROCEDURE BAR_5_OF_Cheltuieli_FB2P + lans(10260) +ENDPROC && BAR_5_OF_Cheltuieli_FB2P + +PROCEDURE BAR_6_OF_Cheltuieli_FB2P + lans(10261) +ENDPROC && BAR_6_OF_Cheltuieli_FB2P + +PROCEDURE BAR_7_OF_Cheltuieli_FB2P + lans(10262) +ENDPROC && BAR_7_OF_Cheltuieli_FB2P + +PROCEDURE BAR_8_OF_Cheltuieli_FB2P + lans(10263) +ENDPROC && BAR_8_OF_Cheltuieli_FB2P + +PROCEDURE BAR_9_OF_Cheltuieli_FB2P + lans(10264) +ENDPROC && BAR_9_OF_Cheltuieli_FB2P + +PROCEDURE BAR_10_OF_Cheltuieli_FB2P + lans(10266) +ENDPROC && BAR_10_OF_Cheltuieli_FB2P + +PROCEDURE BAR_11_OF_Cheltuieli_FB2P + lans(10267) +ENDPROC && BAR_11_OF_Cheltuieli_FB2P + +PROCEDURE BAR_12_OF_Cheltuieli_FB2P + lans(10268) +ENDPROC && BAR_12_OF_Cheltuieli_FB2P + +PROCEDURE BAR_13_OF_Cheltuieli_FB2P + lans(10269) +ENDPROC && BAR_13_OF_Cheltuieli_FB2P + +PROCEDURE BAR_14_OF_Cheltuieli_FB2P + *!* SELECT BAL + *!* ose=crea('selcont') + *!* ose.show(1) + *!* IF buton=2 + *!* RETURN + *!* ENDIF + PRIVATE pcACN + loCont=ret_cont("Selectati contul",'6') + + IF TYPE('loCont') # 'O' + RETURN + ENDIF + + IF buton=2 + RELEASE loCont + RETURN + ENDIF + CN=locont.cont + PcACN=loCont.Acont + lans(10313) +ENDPROC && BAR_14_OF_Cheltuieli_FB2P + +PROCEDURE BAR_13_OF_Furnizori_FB2P + PRIVATE pcACN, CN + loCont = ret_cont("Selectati contul",'409') && ,4091,4092') + IF TYPE('loCont') # 'O' + RETURN + ENDIF + IF buton = 2 + RELEASE loCont + RETURN + ENDIF + + CN = locont.cont + PcACN = loCont.Acont + lans(10564) +ENDPROC && BAR_13_OF_Furnizori_FB2P + +PROCEDURE BAR_14_OF_Furnizori_FB2P + PRIVATE pcACN, CN + loCont = ret_cont("Selectati contul",'409') && ,4091,4092') + IF TYPE('loCont') # 'O' + RETURN + ENDIF + IF buton = 2 + RELEASE loCont + RETURN + ENDIF + + CN = locont.cont + PcACN = loCont.Acont + lans(10575) +ENDPROC && BAR_14_OF_Furnizori_FB2P + +PROCEDURE BAR_15_OF_Furnizori_FB2P + lans(10410) +ENDPROC && BAR_15_OF_Furnizori_FB2P + +PROCEDURE BAR_17_OF_Furnizori_FB2P + lans(10412) +ENDPROC && BAR_17_OF_Furnizori_FB2P + +PROCEDURE BAR_18_OF_Furnizori_FB2P + + lans(10539) +ENDPROC && BAR_18_OF_Furnizori_FB2P + +PROCEDURE BAR_20_OF_Furnizori_FB2P + + LOCAL lnRaspuns + lnRaspuns = 6 + DO WHILE lnRaspuns = 6 + buton = lans(10459) + if buton = 2 + return + endif + + DO introducere_compacta WITH 'achi_mat','','401 ',.T.,.T.,'Tichete de masa','4426',10459 + IF buton=1 + lnRaspuns = AMESSAGEBOX('Doriti sa continuati cu operatii de acest fel?',4+32) + ELSE + lnRaspuns = 7 + ENDIF + + ENDDO +ENDPROC && BAR_20_OF_Furnizori_FB2P + +PROCEDURE BAR_21_OF_Furnizori_FB2P + LOCAL lnRaspuns + lnRaspuns = 6 + + DO WHILE lnRaspuns = 6 + lans(10460) + if buton = 2 + return + ENDIF + + DO introducere_compacta WITH 'achi_mat','','401 ',.t.,.t.,'Combustibili cu taxa','4426',10460 + IF buton=1 + lnRaspuns = AMESSAGEBOX('Doriti sa continuati cu operatii de acest fel?',4+32) + ELSE + lnRaspuns = 7 + ENDIF + ENDDO +ENDPROC && BAR_21_OF_Furnizori_FB2P + +PROCEDURE BAR_22_OF_Furnizori_FB2P + Local lnDeducere && modificare v 2.2.20 + LOCAL lnRaspuns + lnRaspuns = 6 + + DO WHILE lnRaspuns = 6 + *!* modificare v 2.2.20 + lnDeducere = 0 + lans(10609,,,,@lnDeducere) + *!* lans(10609) + *!* modificare v 2.2.20 ^ + if buton = 2 + return + ENDIF + + *!* modificare v 2.2.20 + *!* DO introducere_compacta WITH 'achi_mat','','401 ',.t.,.t.,'Cheltuieli auto 50%','4426',10609 + DO introducere_compacta WITH 'achi_mat','','401 ',.t.,.t.,'Cheltuieli limitare deducere 50%','4426',10609,,lnDeducere + *!* modificare v 2.2.20 ^ + IF buton=1 + lnRaspuns = AMESSAGEBOX('Doriti sa continuati cu operatii de acest fel?',4+32) + ELSE + lnRaspuns = 7 + ENDIF + ENDDO + RELEASE lnDeducere && modificare v 2.2.20 +ENDPROC && BAR_22_OF_Furnizori_FB2P + +PROCEDURE BAR_23_OF_Furnizori_FB2P + Local lnDeducere && modificare v 2.2.20 + LOCAL lnRaspuns + lnRaspuns = 6 + + DO WHILE lnRaspuns = 6 + lnDeducere = 0 + lans(10647,,,,@lnDeducere) + if buton = 2 + return + ENDIF + + DO introducere_compacta WITH 'achi_mat','','401 ',.t.,.t.,'Cheltuieli limitare deducere 100%','4426',10647,,lnDeducere + IF buton=1 + lnRaspuns = AMESSAGEBOX('Doriti sa continuati cu operatii de acest fel?',4+32) + ELSE + lnRaspuns = 7 + ENDIF + ENDDO + RELEASE lnDeducere && modificare v 2.2.20 +ENDPROC && BAR_23_OF_Furnizori_FB2P + +PROCEDURE BAR_24_OF_Furnizori_FB2P + LOCAL lnRaspuns, lnDeducere + lnRaspuns = 6 + + DO WHILE lnRaspuns = 6 + lnDeducere = 0 + lans(10461,,,,@lnDeducere) + if buton = 2 + return + ENDIF + DO introducere_compacta WITH 'achi_mat','','401 ',.t.,.F.,'B .C. F. -uri','4426',10461,,lnDeducere + IF buton=1 + lnRaspuns = AMESSAGEBOX('Doriti sa continuati cu operatii de acest fel?',4+32) + ELSE + lnRaspuns = 7 + ENDIF + ENDDO +ENDPROC && BAR_24_OF_Furnizori_FB2P + +PROCEDURE BAR_25_OF_Furnizori_FB2P + LOCAL lnRaspuns + lnRaspuns = 6 + + DO WHILE lnRaspuns = 6 + lans(10462) + if buton = 2 + return + ENDIF + DO introducere_compacta WITH 'achi_mat','','401 ',.t.,.F.,'Bonuri valorice','4426',10462 + IF buton=1 + lnRaspuns = AMESSAGEBOX('Doriti sa continuati cu operatii de acest fel?',4+32) + ELSE + lnRaspuns = 7 + ENDIF + ENDDO +ENDPROC && BAR_25_OF_Furnizori_FB2P + +PROCEDURE BAR_26_OF_Furnizori_FB2P + PRIVATE pcACN + loCont = ret_cont("Selectati contul",'6') + + IF TYPE('loCont') # 'O' + RETURN + ENDIF + + IF buton=2 + RELEASE loCont + RETURN + ENDIF + CN=locont.cont + PcACN=loCont.Acont + + LANS(10565) +ENDPROC && BAR_26_OF_Furnizori_FB2P + +* diff --git a/Meniuri/furnizori1_scurt.mn2 b/Meniuri/furnizori1_scurt.mn2 new file mode 100644 index 0000000..82dc347 --- /dev/null +++ b/Meniuri/furnizori1_scurt.mn2 @@ -0,0 +1,270 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="furnizori1_scurt.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "Factura de achizitie" +ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P + +DEFINE BAR 2 OF Shortcut PROMPT "\Factura de achizitie marfa cu amanuntul" +ON SELECTION BAR 2 OF Shortcut + +DEFINE BAR 3 OF Shortcut PROMPT "Factura externa de achizitie" +ON SELECTION BAR 3 OF Shortcut DO BAR_3_OF_Shortcut_FB2P + +DEFINE BAR 4 OF Shortcut PROMPT "\-" +ON BAR 4 OF Shortcut ACTIVATE POPUP _138146gi7 + + *---------------------------------- + DEFINE POPUP _138146gi7 SHORTCUT RELATIVE +DEFINE BAR 5 OF Shortcut PROMPT "Constituire garantii" +ON SELECTION BAR 5 OF Shortcut DO BAR_5_OF_Shortcut_FB2P + +DEFINE BAR 6 OF Shortcut PROMPT "Inregistrare cheltuieli in avans" ; + MESSAGE ' 471 :401; 4426: 401' +ON SELECTION BAR 6 OF Shortcut DO BAR_6_OF_Shortcut_FB2P + +DEFINE BAR 7 OF Shortcut PROMPT "\-" +ON BAR 7 OF Shortcut ACTIVATE POPUP _13813zf6f + + *---------------------------------- + DEFINE POPUP _13813zf6f SHORTCUT RELATIVE +DEFINE BAR 8 OF Shortcut PROMPT "Tichete de masa" +ON SELECTION BAR 8 OF Shortcut DO BAR_8_OF_Shortcut_FB2P + +DEFINE BAR 9 OF Shortcut PROMPT "Combustibili cu taxa" +ON SELECTION BAR 9 OF Shortcut DO BAR_9_OF_Shortcut_FB2P + +DEFINE BAR 10 OF Shortcut PROMPT "B.C.F." +ON SELECTION BAR 10 OF Shortcut DO BAR_10_OF_Shortcut_FB2P + +DEFINE BAR 11 OF Shortcut PROMPT "Bonuri valorice" +ON SELECTION BAR 11 OF Shortcut DO BAR_11_OF_Shortcut_FB2P +ACTIVATE POPUP Shortcut + +* + +* +PROCEDURE BAR_1_OF_Shortcut_FB2P + lans(10456) + IF buton=2 + DO deschid_actc + RETURN + ENDIF + DO introducere_compacta WITH 'achi_mat','','401 ',.t.,.t.,'Factura de achizitie - Furnizori 401',10456 +ENDPROC && BAR_1_OF_Shortcut_FB2P + +PROCEDURE BAR_3_OF_Shortcut_FB2P + *DO FURN_E_MAT WITH .T. IN PROCMENIU.PRG + SELE BAL + GO TOP + OS=CREA('SELCONT') + OS.SHOW(1) + IF BUTON=2 + RETURN + ENDIF + + LANS(10423) +ENDPROC && BAR_3_OF_Shortcut_FB2P + +PROCEDURE BAR_5_OF_Shortcut_FB2P + lans(10412) +ENDPROC && BAR_5_OF_Shortcut_FB2P + +PROCEDURE BAR_6_OF_Shortcut_FB2P + lans(10410) +ENDPROC && BAR_6_OF_Shortcut_FB2P + +PROCEDURE BAR_8_OF_Shortcut_FB2P + lans(10459) + IF buton=2 + DO deschid_actc + RETURN + ENDIF + DO introducere_compacta WITH 'achi_mat','','401 ',.t.,.t.,'Tichete de masa',10459 + + *!* clasaact='actverif' + *!* SCD1='628 ' + *!* SCC1='401 ' + *!* SCD2='4426 ' + *!* SCC2='401 ' + + *!* OA=CREATEOBJ('BONMASA') + *!* OA.SHOW(1) + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + *!* DO CODARE + *!* ******************************************* + *!* DO CONTABILIZEAZA WITH SCD1,SCC1,M.TOTFTVA,clasaact + *!* ******************************************* + *!* IF m.NEIMPOZAB>0 + *!* m.num=m.nume_2 + *!* m.nume_2='NEIMPOZABIL ' + *!* DO CONTABILIZEAZA WITH SCD2,SCC2,0,clasaact + *!* M.NUME_2=M.NUM + *!* ENDIF + *!* IF m.totftvaI>0 + *!* m.num=m.nume_2 + *!* m.nume_2='TVA '+str(m.ctvai,5,2) + *!* DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAI,clasaact + *!* M.NUME_2=M.NUM + *!* ENDIF + *!* IF m.totftvaM>0 + *!* m.num=m.nume_2 + *!* m.nume_2='TVA '+str(m.ctvam,5,2) + *!* DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAM,clasaact + *!* M.NUME_2=M.NUM + *!* ENDIF + *!* M.EXPLICATIA='TICHETE DE MASA' + *!* DO CONTABILIZEAZA WITH '5328','401 ',M.TAXA,clasaact + *!* m.nume_2='NEIMPOZABIL ' + *!* DO CONTABILIZEAZA WITH '4426 ','401 ',0,clasaact + *!* ************************************************* + *!* SELE FURNIZOR + *!* repl furnizor.achizit with furnizor.achizit+m.totctva+M.TAXA + *!* M.TOTCTVA=M.TOTCTVA+M.TAXA + *!* M.NEIMPOZAB=M.TAXA+M.NEIMPOZAB + *!* DO ADCUMP + *!* DO ADCHIND + *!* DO ADRESPONS + *!* DO STERGE + *!* RETURN +ENDPROC && BAR_8_OF_Shortcut_FB2P + +PROCEDURE BAR_9_OF_Shortcut_FB2P + *DO MENIU44140 + lans(10460) + IF buton=2 + DO deschid_actc + RETURN + ENDIF + DO introducere_compacta WITH 'achi_mat','','401 ',.t.,.t.,'Combustibili cu taxa',10460 +ENDPROC && BAR_9_OF_Shortcut_FB2P + +PROCEDURE BAR_10_OF_Shortcut_FB2P + lans(10461) + IF buton=2 + DO deschid_actc + RETURN + ENDIF + DO introducere_compacta WITH 'achi_mat','','401 ',.t.,.F.,'B .C. F. -uri',10461 + *!* create table &loc\&nfscurt\tempo\ratelis.dbf free (nrcrt n(2),nume_2 c(30),scd C(4),scc C(4),suma n(12),BIFA l) + *!* sele ratelis + *!* index on nrcrt tag nrcrt + *!* for i=1 to 6 + *!* appe blank + *!* repl nrcrt with i + *!* ENDFOR + *!* SELE RATELIS + *!* repl nume_2 with "VALOARE COMBUSTIBILI",SCD WITH '5328',SCC WITH '401', SUMA WITH 0,BIFA WITH .F. for nrcrt=1 + *!* repl nume_2 with "TVA COMBUSTIBILI",SCD WITH '4426',SCC WITH '401', SUMA WITH 0,BIFA WITH .F. for nrcrt=2 + *!* repl nume_2 with " ",SCD WITH '6022',SCC WITH '401', SUMA WITH 0,BIFA WITH .F. for nrcrt=3 + *!* repl nume_2 with "TAXA DE DRUM",SCD WITH '5328',SCC WITH '401', SUMA WITH 0,BIFA WITH .T. for nrcrt=4 + *!* repl nume_2 with "PRET IMPRIMATE",SCD WITH '604',SCC WITH '401', SUMA WITH 0,BIFA WITH .F. for nrcrt=5 + *!* repl nume_2 with "TVA IMPRIMATE",SCD WITH '4426',SCC WITH '401', SUMA WITH 0,BIFA WITH .F. for nrcrt=6 + + *!* *brow + + *!* titlu='B.C.F.' + *!* do form ratelis + + *!* if buton=2 + *!* return + *!* endif + *!* DO CODARE + *!* sele ratelis + *!* scan FOR !EMPTY(SCc) AND !EMPTY(SCd) AND !EMPTY(suma) + *!* scat memv + *!* if bifa + *!* m.neimpozab=m.suma + *!* else + *!* m.neimpozab=0 + *!* endif + *!* do contabilizeaza with m.scd,m.scc,m.suma + *!* endscan + + *!* SELE RATELIS + *!* SUM SUMA FOR BIFA=.F. AND SCD#'4426' AND scc='401 ' TO M.TOTFTVAM + *!* SUM SUMA FOR SCD='4426' TO M.TVAM + *!* SUM SUMA FOR BIFA=.T. AND scc='401 ' TO M.NEIMPOZAB + *!* M.TOTCTVA=M.TOTFTVAM+M.TVAM +m.neimpozab + + *!* DO ADCUMP + *!* + *!* SELE FURNIZOR + *!* LOCATE FOR NUME=ALLT(M.NUME) + *!* IF flock() + *!* REPL FURNIZOR.achizit with FURNIZOR.achizit+m.TOTCTVA + *!* ENDIF + *!* unlock + + *!* use in ratelis +ENDPROC && BAR_10_OF_Shortcut_FB2P + +PROCEDURE BAR_11_OF_Shortcut_FB2P + lans(10462) + IF buton=2 + DO deschid_actc + RETURN + ENDIF + DO introducere_compacta WITH 'achi_mat','','401 ',.t.,.F.,'Bonuri valorice',10462 + *!* create table &loc\&nfscurt\tempo\ratelis.dbf free (nrcrt n(2),nume_2 c(30),scd C(4),scc C(4),suma n(12),BIFA l) + *!* sele ratelis + *!* index on nrcrt tag nrcrt + *!* for i=1 to 5 + *!* appe blank + *!* repl nrcrt with i + *!* ENDFOR + *!* SELE RATELIS + *!* repl nume_2 with "BONURI VALORICE",SCD WITH '5328',SCC WITH '401', SUMA WITH 0,BIFA WITH .F. for nrcrt=1 + *!* repl nume_2 with "TVA ",SCD WITH '4426',SCC WITH '401', SUMA WITH 0,BIFA WITH .F. for nrcrt=2 + *!* repl nume_2 with "FOND SPECIAL",SCD WITH '5328',SCC WITH '401', SUMA WITH 0,BIFA WITH .T. for nrcrt=3 + *!* repl nume_2 with "VALOARE IMPRIMATE",SCD WITH '628',SCC WITH '401', SUMA WITH 0,BIFA WITH .F. for nrcrt=4 + *!* repl nume_2 with "TVA IMPRIMATE",SCD WITH '4426',SCC WITH '401', SUMA WITH 0,BIFA WITH .F. for nrcrt=5 + + *!* *brow + + *!* titlu='BONURI VALORICE' + *!* do form ratelis + + *!* if buton=2 + *!* return + *!* endif + *!* DO CODARE + *!* sele ratelis + *!* scan FOR !EMPTY(SCc) AND !EMPTY(SCd) AND !EMPTY(suma) + *!* scat memv + *!* if bifa + *!* m.neimpozab=m.suma + *!* else + *!* m.neimpozab=0 + *!* endif + *!* do contabilizeaza with m.scd,m.scc,m.suma + *!* endscan + + *!* SELE RATELIS + *!* SUM SUMA FOR BIFA=.F. AND SCD#'4426' TO M.TOTFTVAM + *!* SUM SUMA FOR SCD='4426' TO M.TVAM + *!* SUM SUMA FOR BIFA=.T. TO M.NEIMPOZAB + *!* M.TOTCTVA=M.TOTFTVAM+M.TVAM +m.neimpozab + + *!* DO ADCUMP + *!* + *!* SELE FURNIZOR + *!* LOCATE FOR NUME=ALLT(M.NUME) + *!* IF flock() + *!* REPL FURNIZOR.achizit with FURNIZOR.achizit+m.TOTCTVA + *!* ENDIF + *!* unlock + + *!* use in ratelis +ENDPROC && BAR_11_OF_Shortcut_FB2P + +* diff --git a/Meniuri/furnizori2.mn2 b/Meniuri/furnizori2.mn2 new file mode 100644 index 0000000..abcda7a --- /dev/null +++ b/Meniuri/furnizori2.mn2 @@ -0,0 +1,176 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="furnizori2.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "Factura de achizitie" +ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P + +DEFINE BAR 2 OF Shortcut PROMPT "Factura externa de achizitie" +ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P + +DEFINE BAR 3 OF Shortcut PROMPT "\-" +ON BAR 3 OF Shortcut ACTIVATE POPUP _138140a2e + + *---------------------------------- + DEFINE POPUP _138140a2e SHORTCUT RELATIVE +DEFINE BAR 4 OF Shortcut PROMPT "In curs de aprovizionare" +ON BAR 4 OF Shortcut ACTIVATE POPUP _2vc0mbr3g + + *---------------------------------- + DEFINE POPUP _2vc0mbr3g SHORTCUT RELATIVE + DEFINE BAR 1 OF _2vc0mbr3g PROMPT "Imobilizari corporale in curs de aprovizionare 22x" ; + MESSAGE 'Note contabile: 223/224:404; 4426:404' + ON SELECTION BAR 1 OF _2vc0mbr3g DO BAR_1_OF__2vc0mbr3g_FB2P + + DEFINE BAR 2 OF _2vc0mbr3g PROMPT "Imobilizari corporale (instalatii, utilaje) finalizare aprovizionare 223" ; + MESSAGE 'Note contabile: 213x:223' + ON SELECTION BAR 2 OF _2vc0mbr3g DO BAR_2_OF__2vc0mbr3g_FB2P + + DEFINE BAR 3 OF _2vc0mbr3g PROMPT "Imobilizari corporale (mobilier) finalizare aprovizionare 224" ; + MESSAGE 'Note contabile: 214:224' + ON SELECTION BAR 3 OF _2vc0mbr3g lans_generic(10604,'214', , '224') + +DEFINE BAR 5 OF Shortcut PROMPT "\-" +ON BAR 5 OF Shortcut ACTIVATE POPUP _2vc0mbumr + + *---------------------------------- + DEFINE POPUP _2vc0mbumr SHORTCUT RELATIVE +DEFINE BAR 6 OF Shortcut PROMPT "Constituire garantii" ; + MESSAGE '404 : 462' +ON SELECTION BAR 6 OF Shortcut DO BAR_6_OF_Shortcut_FB2P + +DEFINE BAR 7 OF Shortcut PROMPT "Inregistrare cheltuieli in avans" ; + MESSAGE '471 :404; 4426 : 404' +ON SELECTION BAR 7 OF Shortcut DO BAR_7_OF_Shortcut_FB2P + +DEFINE BAR 8 OF Shortcut PROMPT "\-" +ON BAR 8 OF Shortcut ACTIVATE POPUP _13813snx0 + + *---------------------------------- + DEFINE POPUP _13813snx0 SHORTCUT RELATIVE +DEFINE BAR 9 OF Shortcut PROMPT "Inregistrare obligatii creditate" +ON BAR 9 OF Shortcut ACTIVATE POPUP _13813sjq0 + + *---------------------------------- + DEFINE POPUP _13813sjq0 SHORTCUT RELATIVE + DEFINE BAR 1 OF _13813sjq0 PROMPT "Valoare imobilizari" + ON BAR 1 OF _13813sjq0 ACTIVATE POPUP NewItem + + *---------------------------------- + DEFINE POPUP NewItem SHORTCUT RELATIVE + DEFINE BAR 1 OF NewItem PROMPT "Necorporale" ; + MESSAGE '203 : 404 ; 4426 : 404' + ON SELECTION BAR 1 OF NewItem DO BAR_1_OF_NewItem_FB2P + + DEFINE BAR 2 OF NewItem PROMPT "Corporale" ; + MESSAGE '212 : 404 ; 4426 : 404' + ON SELECTION BAR 2 OF NewItem DO BAR_2_OF_NewItem_FB2P + + DEFINE BAR 2 OF _13813sjq0 PROMPT "Diferente nefavorabile de curs valutar" ; + MESSAGE '6651: 404' + ON SELECTION BAR 2 OF _13813sjq0 DO BAR_2_OF__13813sjq0_FB2P + + DEFINE BAR 3 OF _13813sjq0 PROMPT "Diferente favorabile de curs valutar" ; + MESSAGE '404 : 7651' + ON SELECTION BAR 3 OF _13813sjq0 DO BAR_3_OF__13813sjq0_FB2P +ACTIVATE POPUP Shortcut + +* + +* +PROCEDURE BAR_1_OF_Shortcut_FB2P + *!* modificare v 2.2.20 + Local lnDeducere + lnDeducere = 0 + *!* modificare v 2.2.20 ^ + buton = lans(10457,,,,@lnDeducere) + If buton=2 + Do deschid_actc + Return + Endif + + *!* modificare v 2.2.20 + *!* DO introducere_compacta WITH 'achi_mat','','404 ',.t.,.t.,'Achizitie-Cheltuieli Materiale-Furnizori 404','4426',10457 + Do introducere_compacta With 'achi_mat','','404 ',.T.,.T.,'Achizitie-Cheltuieli Materiale-Furnizori 404','4426',10457,,lnDeducere + Release lnDeducere + *!* modificare v 2.2.20 ^ +ENDPROC && BAR_1_OF_Shortcut_FB2P + +PROCEDURE BAR_2_OF_Shortcut_FB2P + *!* SELE BAL + *!* GO TOP + *!* OS=CREA('SELCONT') + *!* OS.SHOW(1) + *!* IF BUTON=2 + *!* RETURN + *!* ENDIF + PRIVATE pcACN + loCont=ret_cont("Selectati contul",'20,21,22,23') + + IF TYPE('loCont') # 'O' + RETURN + ENDIF + + IF buton=2 + RELEASE loCont + RETURN + ENDIF + CN=locont.cont + PcACN=loCont.Acont + LANS(10424) +ENDPROC && BAR_2_OF_Shortcut_FB2P + +PROCEDURE BAR_1_OF__2vc0mbr3g_FB2P + LOCAL loCont + loCont = ret_cont("Imobilizari in curs de aprovizionare",'223,224') + IF buton = 2 + RELEASE loCont + RETURN + ENDIF + + + lans_generic(10216,loCont.cont, loCont.acont) +ENDPROC && BAR_1_OF__2vc0mbr3g_FB2P + +PROCEDURE BAR_2_OF__2vc0mbr3g_FB2P + LOCAL loCont + loCont = ret_cont("Imobilizari corporale 213x",'2311,2132,2133') + If buton = 2 + Release loCont + Return + Endif + + lans_generic(10604,loCont.Cont, loCont.Acont, '223') +ENDPROC && BAR_2_OF__2vc0mbr3g_FB2P + +PROCEDURE BAR_6_OF_Shortcut_FB2P + lans(10413) +ENDPROC && BAR_6_OF_Shortcut_FB2P + +PROCEDURE BAR_7_OF_Shortcut_FB2P + lans(10483) +ENDPROC && BAR_7_OF_Shortcut_FB2P + +PROCEDURE BAR_1_OF_NewItem_FB2P + lans(10224) +ENDPROC && BAR_1_OF_NewItem_FB2P + +PROCEDURE BAR_2_OF_NewItem_FB2P + lans(10225) +ENDPROC && BAR_2_OF_NewItem_FB2P + +PROCEDURE BAR_2_OF__13813sjq0_FB2P + lans(10226) +ENDPROC && BAR_2_OF__13813sjq0_FB2P + +PROCEDURE BAR_3_OF__13813sjq0_FB2P + lans(10227) +ENDPROC && BAR_3_OF__13813sjq0_FB2P + +* diff --git a/Meniuri/furnizori2_.mn2 b/Meniuri/furnizori2_.mn2 new file mode 100644 index 0000000..c278de7 --- /dev/null +++ b/Meniuri/furnizori2_.mn2 @@ -0,0 +1,890 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="furnizori2_.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Furnizori SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR "44" OF Furnizori PROMPT "Cheltuieli neplatite" +ON BAR 44 OF Furnizori ACTIVATE POPUP _s8o01v1sp + + *---------------------------------- + DEFINE POPUP _s8o01v1sp SHORTCUT RELATIVE + DEFINE BAR "44010" OF _s8o01v1sp PROMPT "Materiale nestocate 604" ; + MESSAGE '604 :401 ;4426:401 ' + ON SELECTION BAR 44010 OF _s8o01v1sp DO BAR_"44010"_OF__s8o01v1sp_FB2P + + DEFINE BAR "44020" OF _s8o01v1sp PROMPT "Energie si apa 605" ; + MESSAGE '605 :401 ;4426: 401' + ON SELECTION BAR 44020 OF _s8o01v1sp DO BAR_"44020"_OF__s8o01v1sp_FB2P + + DEFINE BAR "44030" OF _s8o01v1sp PROMPT "Intretinere si reparatii 611" ; + MESSAGE '611 :401 ;4426:401 ' + ON SELECTION BAR 44030 OF _s8o01v1sp DO BAR_"44030"_OF__s8o01v1sp_FB2P + + DEFINE BAR "44040" OF _s8o01v1sp PROMPT "Locatii si chirii 612" ; + MESSAGE '612 :401 ;4426:401 ' + ON SELECTION BAR 44040 OF _s8o01v1sp DO BAR_"44040"_OF__s8o01v1sp_FB2P + + DEFINE BAR "44100" OF _s8o01v1sp PROMPT "Prime de asigurare 613" ; + MESSAGE '613 :401 ;4426:401 ' + ON SELECTION BAR 44100 OF _s8o01v1sp DO BAR_"44100"_OF__s8o01v1sp_FB2P + + DEFINE BAR "44110" OF _s8o01v1sp PROMPT "Studii si cercetari 614" ; + MESSAGE '614 :401 ;4426:401 ' + ON SELECTION BAR 44110 OF _s8o01v1sp DO BAR_"44110"_OF__s8o01v1sp_FB2P + + DEFINE BAR "44120" OF _s8o01v1sp PROMPT "Colaboratori 621" ; + MESSAGE '621 :401 ;4426:401 ' + ON SELECTION BAR 44120 OF _s8o01v1sp DO BAR_"44120"_OF__s8o01v1sp_FB2P + + DEFINE BAR "44130" OF _s8o01v1sp PROMPT "Comisioane si onorarii 622" ; + MESSAGE '622 :401 ;4426:401 ' + ON SELECTION BAR 44130 OF _s8o01v1sp DO BAR_"44130"_OF__s8o01v1sp_FB2P + + DEFINE BAR "44050" OF _s8o01v1sp PROMPT "Protocol 6231" ; + MESSAGE '6231:401 ;4426:401 ' + ON SELECTION BAR 44050 OF _s8o01v1sp DO BAR_"44050"_OF__s8o01v1sp_FB2P + + DEFINE BAR 10 OF _s8o01v1sp PROMPT "Reclama 6232" ; + MESSAGE '6232:401 ;4426:401 ' + ON SELECTION BAR 10 OF _s8o01v1sp DO BAR_10_OF__s8o01v1sp_FB2P + + DEFINE BAR "44060" OF _s8o01v1sp PROMPT "Transport bunuri si persoane 624" ; + MESSAGE '624 :401 ;4426:401 ' + ON SELECTION BAR 44060 OF _s8o01v1sp DO BAR_"44060"_OF__s8o01v1sp_FB2P + + DEFINE BAR "44070" OF _s8o01v1sp PROMPT "Deplasari, detasari 625" ; + MESSAGE '625 :401 ;4426:401 ' + ON SELECTION BAR 44070 OF _s8o01v1sp DO BAR_"44070"_OF__s8o01v1sp_FB2P + + DEFINE BAR "44080" OF _s8o01v1sp PROMPT "Posta si telecomunicatii 626" ; + MESSAGE '626 :401 ;4426:401 ' + ON SELECTION BAR 44080 OF _s8o01v1sp DO BAR_"44080"_OF__s8o01v1sp_FB2P + + DEFINE BAR "44090" OF _s8o01v1sp PROMPT "Alte cheltuieli la terti 628" ; + MESSAGE '628 :401 ;4426:401 ' + ON SELECTION BAR 44090 OF _s8o01v1sp DO BAR_"44090"_OF__s8o01v1sp_FB2P + + DEFINE BAR 15 OF _s8o01v1sp PROMPT "Tichete de masa" + ON SELECTION BAR 15 OF _s8o01v1sp DO BAR_15_OF__s8o01v1sp_FB2P + + DEFINE BAR "44140" OF _s8o01v1sp PROMPT "Combustibili cu taxa" ; + MESSAGE '6012:401 ;4426:401 ' + ON SELECTION BAR 44140 OF _s8o01v1sp DO BAR_"44140"_OF__s8o01v1sp_FB2P + + DEFINE BAR 17 OF _s8o01v1sp PROMPT "B.C.F." + ON SELECTION BAR 17 OF _s8o01v1sp DO BAR_17_OF__s8o01v1sp_FB2P + + DEFINE BAR 18 OF _s8o01v1sp PROMPT "Bonuri valorice" + ON SELECTION BAR 18 OF _s8o01v1sp DO BAR_18_OF__s8o01v1sp_FB2P + + DEFINE BAR 19 OF _s8o01v1sp PROMPT "\-" + ON BAR 19 OF _s8o01v1sp ACTIVATE POPUP _0w60k6cc3 + + *---------------------------------- + DEFINE POPUP _0w60k6cc3 SHORTCUT RELATIVE + DEFINE BAR 20 OF _s8o01v1sp PROMPT "Cheltuieli diverse" + ON SELECTION BAR 20 OF _s8o01v1sp DO BAR_20_OF__s8o01v1sp_FB2P + +DEFINE BAR "45" OF Furnizori PROMPT "Cheltuieli platite din casa" +ON BAR 45 OF Furnizori ACTIVATE POPUP _s8o01v1sq + + *---------------------------------- + DEFINE POPUP _s8o01v1sq SHORTCUT RELATIVE + DEFINE BAR "45010" OF _s8o01v1sq PROMPT "Materiale nestocate 604" ; + MESSAGE '604 :401 ;4426:401 ;401 :5311' + ON SELECTION BAR 45010 OF _s8o01v1sq DO BAR_"45010"_OF__s8o01v1sq_FB2P + + DEFINE BAR "45020" OF _s8o01v1sq PROMPT "Energie si apa 605" ; + MESSAGE '605 :401 ;4426:401 ;401 :5311' + ON SELECTION BAR 45020 OF _s8o01v1sq DO BAR_"45020"_OF__s8o01v1sq_FB2P + + DEFINE BAR "45030" OF _s8o01v1sq PROMPT "Intretinere si reparatii 611" ; + MESSAGE '611 :401 ;4426:401 ;401 :5311' + ON SELECTION BAR 45030 OF _s8o01v1sq DO BAR_"45030"_OF__s8o01v1sq_FB2P + + DEFINE BAR "45040" OF _s8o01v1sq PROMPT "Locatii si chirii 612" ; + MESSAGE '612 :401 ;4426:401 ;401 :5311' + ON SELECTION BAR 45040 OF _s8o01v1sq DO BAR_"45040"_OF__s8o01v1sq_FB2P + + DEFINE BAR "45100" OF _s8o01v1sq PROMPT "Prime de asigurare 613" ; + MESSAGE '613 :401 ;4426:401 ;401 :5311' + ON SELECTION BAR 45100 OF _s8o01v1sq DO BAR_"45100"_OF__s8o01v1sq_FB2P + + DEFINE BAR "45110" OF _s8o01v1sq PROMPT "Studii si cercetari 614" ; + MESSAGE '614 :401 ;4426:401 ;401 :5311' + ON SELECTION BAR 45110 OF _s8o01v1sq DO BAR_"45110"_OF__s8o01v1sq_FB2P + + DEFINE BAR "45120" OF _s8o01v1sq PROMPT "Colaboratori 621" ; + MESSAGE '621 :401 ;4426:401 ;401 :5311' + ON SELECTION BAR 45120 OF _s8o01v1sq DO BAR_"45120"_OF__s8o01v1sq_FB2P + + DEFINE BAR "45130" OF _s8o01v1sq PROMPT "Comisioane si onorarii 622" ; + MESSAGE '622 :401 ;4426:401 ;401 :5311' + ON SELECTION BAR 45130 OF _s8o01v1sq DO BAR_"45130"_OF__s8o01v1sq_FB2P + + DEFINE BAR "45050" OF _s8o01v1sq PROMPT "Protocol 6231" ; + MESSAGE '6231:401 ;4426:401 ;401 :5311' + ON SELECTION BAR 45050 OF _s8o01v1sq DO BAR_"45050"_OF__s8o01v1sq_FB2P + + DEFINE BAR 10 OF _s8o01v1sq PROMPT "Reclama 6232" ; + MESSAGE '6232:401 ;4426:401 ;401 :5311' + ON SELECTION BAR 10 OF _s8o01v1sq DO BAR_10_OF__s8o01v1sq_FB2P + + DEFINE BAR "45060" OF _s8o01v1sq PROMPT "Transport bunuri si persoane 624" ; + MESSAGE '624 :401 ;4426:401 ;401 :5311' + ON SELECTION BAR 45060 OF _s8o01v1sq DO BAR_"45060"_OF__s8o01v1sq_FB2P + + DEFINE BAR "45070" OF _s8o01v1sq PROMPT "Deplasari, detasari 625" ; + MESSAGE '625 :401 ;4426:401 ;401 :5311' + ON SELECTION BAR 45070 OF _s8o01v1sq DO BAR_"45070"_OF__s8o01v1sq_FB2P + + DEFINE BAR "45080" OF _s8o01v1sq PROMPT "Posta si telecomunicatii 626" ; + MESSAGE '625 :401 ;4426:401 ;401 :5311' + ON SELECTION BAR 45080 OF _s8o01v1sq DO BAR_"45080"_OF__s8o01v1sq_FB2P + + DEFINE BAR "45090" OF _s8o01v1sq PROMPT "Alte cheltuieli la terti 628" ; + MESSAGE '628 :401 ;4426:401 ;401 :5311' + ON SELECTION BAR 45090 OF _s8o01v1sq DO BAR_"45090"_OF__s8o01v1sq_FB2P + + DEFINE BAR "45140" OF _s8o01v1sq PROMPT "\Combustibili cu taxa" + ON SELECTION BAR 45140 OF _s8o01v1sq DO BAR_"45140"_OF__s8o01v1sq_FB2P + + DEFINE BAR 16 OF _s8o01v1sq PROMPT "\Tichete de masa" + ON SELECTION BAR 16 OF _s8o01v1sq DO BAR_16_OF__s8o01v1sq_FB2P + + DEFINE BAR 17 OF _s8o01v1sq PROMPT "\-" + ON SELECTION BAR 17 OF _s8o01v1sq + + DEFINE BAR 18 OF _s8o01v1sq PROMPT "Cheltuieli diverse" + ON SELECTION BAR 18 OF _s8o01v1sq DO BAR_18_OF__s8o01v1sq_FB2P + +DEFINE BAR "46" OF Furnizori PROMPT "Cheltuieli platite din 542" +ON BAR 46 OF Furnizori ACTIVATE POPUP _s3n000oov + + *---------------------------------- + DEFINE POPUP _s3n000oov SHORTCUT RELATIVE + DEFINE BAR "46010" OF _s3n000oov PROMPT "Materiale nestocate 604" ; + MESSAGE '604 :401 ;4426:401 ;401 :542 ' + ON SELECTION BAR 46010 OF _s3n000oov DO BAR_"46010"_OF__s3n000oov_FB2P + + DEFINE BAR "46020" OF _s3n000oov PROMPT "Energie si apa 605" ; + MESSAGE '605 :401 ;4426:401 ;401 :542 ' + ON SELECTION BAR 46020 OF _s3n000oov DO BAR_"46020"_OF__s3n000oov_FB2P + + DEFINE BAR "46030" OF _s3n000oov PROMPT "Intretinere si reparatii 611" ; + MESSAGE '611 :401 ;4426:401 ;401 :542 ' + ON SELECTION BAR 46030 OF _s3n000oov DO BAR_"46030"_OF__s3n000oov_FB2P + + DEFINE BAR "46040" OF _s3n000oov PROMPT "Locatii si chirii 612" ; + MESSAGE '612 :401 ;4426:401 ;401 :542 ' + ON SELECTION BAR 46040 OF _s3n000oov DO BAR_"46040"_OF__s3n000oov_FB2P + + DEFINE BAR "46110" OF _s3n000oov PROMPT "Prime de asigurare 613" ; + MESSAGE '613 :401 ;4426:401 ;401 :542 ' + ON SELECTION BAR 46110 OF _s3n000oov DO BAR_"46110"_OF__s3n000oov_FB2P + + DEFINE BAR "46100" OF _s3n000oov PROMPT "Studii si cercetari 614" ; + MESSAGE '614 :401 ;4426:401 ;401 :542 ' + ON SELECTION BAR 46100 OF _s3n000oov DO BAR_"46100"_OF__s3n000oov_FB2P + + DEFINE BAR "46120" OF _s3n000oov PROMPT "Colaboratori 621" ; + MESSAGE '621 :401 ;4426:401 ;401 :542 ' + ON SELECTION BAR 46120 OF _s3n000oov DO BAR_"46120"_OF__s3n000oov_FB2P + + DEFINE BAR "46130" OF _s3n000oov PROMPT "Comisioane si onorarii 622" ; + MESSAGE '622 :401 ;4426:401 ;401 :542 ' + ON SELECTION BAR 46130 OF _s3n000oov DO BAR_"46130"_OF__s3n000oov_FB2P + + DEFINE BAR "46050" OF _s3n000oov PROMPT "Protocol 6231" ; + MESSAGE '6231:401 ;4426:401 ;401 :542 ' + ON SELECTION BAR 46050 OF _s3n000oov DO BAR_"46050"_OF__s3n000oov_FB2P + + DEFINE BAR 10 OF _s3n000oov PROMPT "Reclama 6232" ; + MESSAGE '6232:401 ;4426:401 ;401 :542 ' + ON SELECTION BAR 10 OF _s3n000oov DO BAR_10_OF__s3n000oov_FB2P + + DEFINE BAR "46060" OF _s3n000oov PROMPT "Transport bunuri si persoane 624" ; + MESSAGE '624 :401 ;4426:401 ;401 :542 ' + ON SELECTION BAR 46060 OF _s3n000oov DO BAR_"46060"_OF__s3n000oov_FB2P + + DEFINE BAR "46070" OF _s3n000oov PROMPT "Deplasari, detasari 625" ; + MESSAGE '625 :401 ;4426:401 ;401 :542 ' + ON SELECTION BAR 46070 OF _s3n000oov DO BAR_"46070"_OF__s3n000oov_FB2P + + DEFINE BAR "46080" OF _s3n000oov PROMPT "Posta si telecomunicatii 626" ; + MESSAGE '626 :401 ;4426:401 ;401 :542 ' + ON SELECTION BAR 46080 OF _s3n000oov DO BAR_"46080"_OF__s3n000oov_FB2P + + DEFINE BAR "46090" OF _s3n000oov PROMPT "Alte cheltuieli la teri 628" ; + MESSAGE '628 :401 ;4426:401 ;401 :542 ' + ON SELECTION BAR 46090 OF _s3n000oov DO BAR_"46090"_OF__s3n000oov_FB2P + + DEFINE BAR "46140" OF _s3n000oov PROMPT "\Combustibili cu taxa" ; + MESSAGE '6012:401 ;4426:401 ;401 :542 ' + ON SELECTION BAR 46140 OF _s3n000oov DO BAR_"46140"_OF__s3n000oov_FB2P + + DEFINE BAR 16 OF _s3n000oov PROMPT "\Tichete de masa" + ON SELECTION BAR 16 OF _s3n000oov DO BAR_16_OF__s3n000oov_FB2P + + DEFINE BAR 17 OF _s3n000oov PROMPT "\-" + ON BAR 17 OF _s3n000oov ACTIVATE POPUP _0w60k8bd3 + + *---------------------------------- + DEFINE POPUP _0w60k8bd3 SHORTCUT RELATIVE + DEFINE BAR 18 OF _s3n000oov PROMPT "Cheltuieli diverse" + ON SELECTION BAR 18 OF _s3n000oov DO BAR_18_OF__s3n000oov_FB2P + +DEFINE BAR 4 OF Furnizori PROMPT "\-" +ON BAR 4 OF Furnizori ACTIVATE POPUP _1131460yy + + *---------------------------------- + DEFINE POPUP _1131460yy SHORTCUT RELATIVE +DEFINE BAR 5 OF Furnizori PROMPT "Facturi nesosite" +ON SELECTION BAR 5 OF Furnizori DO BAR_5_OF_Furnizori_FB2P + +DEFINE BAR 6 OF Furnizori PROMPT "\-" +ON BAR 6 OF Furnizori ACTIVATE POPUP _0xs0llvv4 + + *---------------------------------- + DEFINE POPUP _0xs0llvv4 SHORTCUT RELATIVE +DEFINE BAR 7 OF Furnizori PROMPT "Inregistrare cheltuieli in avans" ; + MESSAGE '471 :401 ;4426:401 ' +ON SELECTION BAR 7 OF Furnizori DO BAR_7_OF_Furnizori_FB2P +ACTIVATE POPUP Furnizori + +* + +* +PROCEDURE BAR_"44010"_OF__s8o01v1sp_FB2P + lans(10228) + *!* nr_meniu=44010 + *!* DO INcindneplatite WITH '604 ','401 ','4426 ','401 ','FACTURI',"actgen02" +ENDPROC && BAR_"44010"_OF__s8o01v1sp_FB2P + +PROCEDURE BAR_"44020"_OF__s8o01v1sp_FB2P + lans(10229) + *!* nr_meniu=44020 + *!* DO INcindneplatite WITH '605 ','401 ','4426 ','401 ','FACTURI','ACTGEN02' +ENDPROC && BAR_"44020"_OF__s8o01v1sp_FB2P + +PROCEDURE BAR_"44030"_OF__s8o01v1sp_FB2P + *!* nr_meniu=44030 + *!* DO INcindneplatite WITH '611 ','401 ','4426 ','401 ','FACTURI','ACTGEN02' + lans(10230) +ENDPROC && BAR_"44030"_OF__s8o01v1sp_FB2P + +PROCEDURE BAR_"44040"_OF__s8o01v1sp_FB2P + lans(10231) + *!* nr_meniu=44040 + *!* DO INcindneplatite WITH '612 ','401 ','4426 ','401 ','FACTURI','ACTGEN02' +ENDPROC && BAR_"44040"_OF__s8o01v1sp_FB2P + +PROCEDURE BAR_"44100"_OF__s8o01v1sp_FB2P + lans(10232) + *!* nr_meniu=44100 + *!* DO INcindneplatite WITH '613 ','401 ','4426 ','401 ','FACTURI','ACTGEN02' +ENDPROC && BAR_"44100"_OF__s8o01v1sp_FB2P + +PROCEDURE BAR_"44110"_OF__s8o01v1sp_FB2P + lans(10233) + *!* nr_meniu=44110 + *!* DO INcindneplatite WITH '614 ','401 ','4426 ','401 ','FACTURI','ACTGEN02' +ENDPROC && BAR_"44110"_OF__s8o01v1sp_FB2P + +PROCEDURE BAR_"44120"_OF__s8o01v1sp_FB2P + lans(10234) + *!* nr_meniu=44120 + *!* DO INcindneplatite WITH '621 ','401 ','4426 ','401 ','FACTURI','ACTGEN02' +ENDPROC && BAR_"44120"_OF__s8o01v1sp_FB2P + +PROCEDURE BAR_"44130"_OF__s8o01v1sp_FB2P + lans(10235) + *!* nr_meniu=44130 + *!* DO INcindneplatite WITH '622 ','401 ','4426 ','401 ','FACTURI','ACTGEN02' +ENDPROC && BAR_"44130"_OF__s8o01v1sp_FB2P + +PROCEDURE BAR_"44050"_OF__s8o01v1sp_FB2P + lans(10236) + *!* nr_meniu=44050 + *!* DO INcindneplatite WITH '6231 ','401 ','4426 ','401 ','FACTURI','ACTGEN02' +ENDPROC && BAR_"44050"_OF__s8o01v1sp_FB2P + +PROCEDURE BAR_10_OF__s8o01v1sp_FB2P + lans(10237) + *!* DO INcindneplatite WITH '6232 ','401 ','4426 ','401 ','FACTURI','ACTGEN02' +ENDPROC && BAR_10_OF__s8o01v1sp_FB2P + +PROCEDURE BAR_"44060"_OF__s8o01v1sp_FB2P + lans(10238) + *!* nr_meniu=44060 + *!* DO INcindneplatite WITH '624 ','401 ','4426 ','401 ','FACTURI','ACTGEN02' +ENDPROC && BAR_"44060"_OF__s8o01v1sp_FB2P + +PROCEDURE BAR_"44070"_OF__s8o01v1sp_FB2P + lans(10239) + *!* nr_meniu=44070 + *!* DO INcindneplatite WITH '625 ','401 ','4426 ','401 ','FACTURI','ACTGEN02' +ENDPROC && BAR_"44070"_OF__s8o01v1sp_FB2P + +PROCEDURE BAR_"44080"_OF__s8o01v1sp_FB2P + lans(10240) + *!* nr_meniu=44080 + *!* DO INcindneplatite WITH '626 ','401 ','4426 ','401 ','FACTURI','ACTGEN02' +ENDPROC && BAR_"44080"_OF__s8o01v1sp_FB2P + +PROCEDURE BAR_"44090"_OF__s8o01v1sp_FB2P + lans(10241) + *!* nr_meniu=44090 + *!* DO INcindneplatite WITH '628 ','401 ','4426 ','401 ','FACTURI','ACTGEN02' +ENDPROC && BAR_"44090"_OF__s8o01v1sp_FB2P + +PROCEDURE BAR_15_OF__s8o01v1sp_FB2P + + clasaact='actverif' + SCD1='628 ' + SCC1='401 ' + SCD2='4426 ' + SCC2='401 ' + + OA=CREATEOBJ('BONMASA') + OA.SHOW(1) + IF BUTON=2 + DO STERGE + RETURN + ENDIF + DO CODARE + ******************************************* + DO CONTABILIZEAZA WITH SCD1,SCC1,M.TOTFTVA,clasaact + ******************************************* + IF m.NEIMPOZAB>0 + m.num=m.nume_2 + m.nume_2='NEIMPOZABIL ' + DO CONTABILIZEAZA WITH SCD2,SCC2,0,clasaact + M.NUME_2=M.NUM + ENDIF + IF m.totftvaI>0 + m.num=m.nume_2 + m.nume_2='TVA '+str(m.ctvai,5,2) + DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAI,clasaact + M.NUME_2=M.NUM + ENDIF + IF m.totftvaM>0 + m.num=m.nume_2 + m.nume_2='TVA '+str(m.ctvam,5,2) + DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAM,clasaact + M.NUME_2=M.NUM + ENDIF + M.EXPLICATIA='TICHETE DE MASA' + DO CONTABILIZEAZA WITH '5328','401 ',M.TAXA,clasaact + m.nume_2='NEIMPOZABIL ' + DO CONTABILIZEAZA WITH '4426 ','401 ',0,clasaact + ************************************************* + SELE FURNIZOR + repl furnizor.achizit with furnizor.achizit+m.totctva+M.TAXA + M.TOTCTVA=M.TOTCTVA+M.TAXA + M.NEIMPOZAB=M.TAXA+M.NEIMPOZAB + DO ADCUMP + DO ADCHIND + DO ADRESPONS + DO STERGE + RETURN +ENDPROC && BAR_15_OF__s8o01v1sp_FB2P + +PROCEDURE BAR_"44140"_OF__s8o01v1sp_FB2P + DO MENIU44140 +ENDPROC && BAR_"44140"_OF__s8o01v1sp_FB2P + +PROCEDURE BAR_17_OF__s8o01v1sp_FB2P + create table &loc\&nfscurt\tempo\ratelis.dbf free (nrcrt n(2),nume_2 c(30),scd C(4),scc C(4),suma n(12),BIFA l) + sele ratelis + index on nrcrt tag nrcrt + for i=1 to 6 + appe blank + repl nrcrt with i + ENDFOR + SELE RATELIS + repl nume_2 with "VALOARE COMBUSTIBILI",SCD WITH '5328',SCC WITH '401', SUMA WITH 0,BIFA WITH .F. for nrcrt=1 + repl nume_2 with "TVA COMBUSTIBILI",SCD WITH '4426',SCC WITH '401', SUMA WITH 0,BIFA WITH .F. for nrcrt=2 + repl nume_2 with " ",SCD WITH '6022',SCC WITH '401', SUMA WITH 0,BIFA WITH .F. for nrcrt=3 + repl nume_2 with "TAXA DE DRUM",SCD WITH '5328',SCC WITH '401', SUMA WITH 0,BIFA WITH .T. for nrcrt=4 + repl nume_2 with "PRET IMPRIMATE",SCD WITH '604',SCC WITH '401', SUMA WITH 0,BIFA WITH .F. for nrcrt=5 + repl nume_2 with "TVA IMPRIMATE",SCD WITH '4426',SCC WITH '401', SUMA WITH 0,BIFA WITH .F. for nrcrt=6 + + *brow + + titlu='B.C.F.' + do form ratelis + + if buton=2 + return + endif + DO CODARE + sele ratelis + scan FOR !EMPTY(SCc) AND !EMPTY(SCd) AND !EMPTY(suma) + scat memv + if bifa + m.neimpozab=m.suma + else + m.neimpozab=0 + endif + do contabilizeaza with m.scd,m.scc,m.suma + endscan + + SELE RATELIS + SUM SUMA FOR BIFA=.F. AND SCD#'4426' AND scc='401 ' TO M.TOTFTVAM + SUM SUMA FOR SCD='4426' TO M.TVAM + SUM SUMA FOR BIFA=.T. AND scc='401 ' TO M.NEIMPOZAB + M.TOTCTVA=M.TOTFTVAM+M.TVAM +m.neimpozab + + DO ADCUMP + + SELE FURNIZOR + LOCATE FOR NUME=ALLT(M.NUME) + IF flock() + REPL FURNIZOR.achizit with FURNIZOR.achizit+m.TOTCTVA + ENDIF + unlock + + use in ratelis +ENDPROC && BAR_17_OF__s8o01v1sp_FB2P + +PROCEDURE BAR_18_OF__s8o01v1sp_FB2P + create table &loc\&nfscurt\tempo\ratelis.dbf free (nrcrt n(2),nume_2 c(30),scd C(4),scc C(4),suma n(12),BIFA l) + sele ratelis + index on nrcrt tag nrcrt + for i=1 to 5 + appe blank + repl nrcrt with i + ENDFOR + SELE RATELIS + repl nume_2 with "BONURI VALORICE",SCD WITH '5328',SCC WITH '401', SUMA WITH 0,BIFA WITH .F. for nrcrt=1 + repl nume_2 with "TVA ",SCD WITH '4426',SCC WITH '401', SUMA WITH 0,BIFA WITH .F. for nrcrt=2 + repl nume_2 with "FOND SPECIAL",SCD WITH '5328',SCC WITH '401', SUMA WITH 0,BIFA WITH .T. for nrcrt=3 + repl nume_2 with "VALOARE IMPRIMATE",SCD WITH '628',SCC WITH '401', SUMA WITH 0,BIFA WITH .F. for nrcrt=4 + repl nume_2 with "TVA IMPRIMATE",SCD WITH '4426',SCC WITH '401', SUMA WITH 0,BIFA WITH .F. for nrcrt=5 + + *brow + + titlu='BONURI VALORICE' + do form ratelis + + if buton=2 + return + endif + DO CODARE + sele ratelis + scan FOR !EMPTY(SCc) AND !EMPTY(SCd) AND !EMPTY(suma) + scat memv + if bifa + m.neimpozab=m.suma + else + m.neimpozab=0 + endif + do contabilizeaza with m.scd,m.scc,m.suma + endscan + + SELE RATELIS + SUM SUMA FOR BIFA=.F. AND SCD#'4426' TO M.TOTFTVAM + SUM SUMA FOR SCD='4426' TO M.TVAM + SUM SUMA FOR BIFA=.T. TO M.NEIMPOZAB + M.TOTCTVA=M.TOTFTVAM+M.TVAM +m.neimpozab + + DO ADCUMP + + SELE FURNIZOR + LOCATE FOR NUME=ALLT(M.NUME) + IF flock() + REPL FURNIZOR.achizit with FURNIZOR.achizit+m.TOTCTVA + ENDIF + unlock + + use in ratelis +ENDPROC && BAR_18_OF__s8o01v1sp_FB2P + +PROCEDURE BAR_20_OF__s8o01v1sp_FB2P + SELECT BAL + ose=crea('selcont') + ose.show(1) + IF buton=2 + RETURN + ENDIF + lans(10311) + *!* m.scd=CN + + *!* DO INcindneplatite WITH M.SCD,'401 ','4426','401 ','FACTURI',"actgen02" +ENDPROC && BAR_20_OF__s8o01v1sp_FB2P + +PROCEDURE BAR_"45010"_OF__s8o01v1sq_FB2P + lans(10242) + *!* nr_meniu=45010 + *!* DO INcindplatite WITH '604 ','401 ','4426 ','401 ','401 ','5311 ','FACTURI','PLCASA', 'actgen02PERc' +ENDPROC && BAR_"45010"_OF__s8o01v1sq_FB2P + +PROCEDURE BAR_"45020"_OF__s8o01v1sq_FB2P + lans(10243) + *!* nr_meniu=45020 + *!* DO INcindplatite WITH '605 ','401 ','4426 ','401 ','401 ','5311 ','FACTURI','PLCASA','actgen02PERc' +ENDPROC && BAR_"45020"_OF__s8o01v1sq_FB2P + +PROCEDURE BAR_"45030"_OF__s8o01v1sq_FB2P + lans(10244) + *!* nr_meniu=45020 + *!* DO INcindplatite WITH '611 ','401 ','4426 ','401 ','401 ','5311 ','FACTURI','PLCASA','actgen02PERc' +ENDPROC && BAR_"45030"_OF__s8o01v1sq_FB2P + +PROCEDURE BAR_"45040"_OF__s8o01v1sq_FB2P + lans(10245) + *!* nr_meniu=45040 + *!* DO INcindplatite WITH '612 ','401 ','4426 ','401 ','401 ','5311 ','FACTURI','PLCASA','actgen02PERc' +ENDPROC && BAR_"45040"_OF__s8o01v1sq_FB2P + +PROCEDURE BAR_"45100"_OF__s8o01v1sq_FB2P + lans(10246) + *!* DO INcindplatite WITH '613 ','401 ','4426 ','401 ','401 ','5311 ','FACTURI','PLCASA','actgen02PERc' +ENDPROC && BAR_"45100"_OF__s8o01v1sq_FB2P + +PROCEDURE BAR_"45110"_OF__s8o01v1sq_FB2P + lans(10247) + *!* DO INcindplatite WITH '614 ','401 ','4426 ','401 ','401 ','5311 ','FACTURI','PLCASA','actgen02PERc' +ENDPROC && BAR_"45110"_OF__s8o01v1sq_FB2P + +PROCEDURE BAR_"45120"_OF__s8o01v1sq_FB2P + *!* DO INcindplatite WITH '621 ','401 ','4426 ','401 ','401 ','5311 ','FACTURI','PLCASA','actgen02PERc' + lans(10248) +ENDPROC && BAR_"45120"_OF__s8o01v1sq_FB2P + +PROCEDURE BAR_"45130"_OF__s8o01v1sq_FB2P + lans(10249) + *DO INcindplatite WITH '622 ','401 ','4426 ','401 ','401 ','5311 ','FACTURI','PLCASA','actgen02PERc' +ENDPROC && BAR_"45130"_OF__s8o01v1sq_FB2P + +PROCEDURE BAR_"45050"_OF__s8o01v1sq_FB2P + lans(10250) + *!* DO INcindplatite WITH '6231 ','401 ','4426 ','401 ','401 ','5311 ','FACTURI','PLCASA','actgen02PERc' +ENDPROC && BAR_"45050"_OF__s8o01v1sq_FB2P + +PROCEDURE BAR_10_OF__s8o01v1sq_FB2P + lans(10251) + *DO INcindplatite WITH '6232 ','401 ','4426 ','401 ','401 ','5311 ','FACTURI','PLCASA','actgen02PERc' +ENDPROC && BAR_10_OF__s8o01v1sq_FB2P + +PROCEDURE BAR_"45060"_OF__s8o01v1sq_FB2P + lans(10252) + *!* DO INcindplatite WITH '624 ','401 ','4426 ','401 ','401 ','5311 ','FACTURI','PLCASA','actgen02PERc' +ENDPROC && BAR_"45060"_OF__s8o01v1sq_FB2P + +PROCEDURE BAR_"45070"_OF__s8o01v1sq_FB2P + lans(10253) + *DO INcindplatite WITH '625 ','401 ','4426 ','401 ','401 ','5311 ','FACTURI','PLCASA','actgen02PERc' +ENDPROC && BAR_"45070"_OF__s8o01v1sq_FB2P + +PROCEDURE BAR_"45080"_OF__s8o01v1sq_FB2P + lans(10254) + *DO INcindplatite WITH '626 ','401 ','4426 ','401 ','401 ','5311 ','FACTURI','PLCASA','actgen02PERc' +ENDPROC && BAR_"45080"_OF__s8o01v1sq_FB2P + +PROCEDURE BAR_"45090"_OF__s8o01v1sq_FB2P + lans(10255) + *DO INcindplatite WITH '628 ','401 ','4426 ','401 ','401 ','5311 ','FACTURI','PLCASA','actgen02PERc' +ENDPROC && BAR_"45090"_OF__s8o01v1sq_FB2P + +PROCEDURE BAR_"45140"_OF__s8o01v1sq_FB2P + DO MENIU45140 + *ACT604 +ENDPROC && BAR_"45140"_OF__s8o01v1sq_FB2P + +PROCEDURE BAR_16_OF__s8o01v1sq_FB2P + + clasaact='actverif' + SCD1='628 ' + SCC1='401 ' + SCD2='4426' + SCC2='401 ' + + OA=CREATEOBJ('BONMASAc') + OA.SHOW(1) + IF BUTON=2 + DO STERGE + RETURN + ENDIF + DO CODARE + ******************************************* + DO CONTABILIZEAZA WITH SCD1,SCC1,M.TOTFTVA,clasaact + ******************************************* + IF m.NEIMPOZAB>0 + m.num=m.nume_2 + m.nume_2='NEIMPOZABIL ' + DO CONTABILIZEAZA WITH SCD2,SCC2,0,clasaact + M.NUME_2=M.NUM + ENDIF + IF m.totftvaI>0 + m.num=m.nume_2 + m.nume_2='TVA '+str(m.ctvai,5,2) + DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAI,clasaact + M.NUME_2=M.NUM + ENDIF + IF m.totftvaM>0 + m.num=m.nume_2 + m.nume_2='TVA '+str(m.ctvam,5,2) + DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAM,clasaact + M.NUME_2=M.NUM + ENDIF + M.EXPLICATIA='TICHETE DE MASA' + DO CONTABILIZEAZA WITH '5328','401 ',M.TAXA,clasaact + M.NUM=M.NUME_2 + m.nume_2='NEIMPOZABIL ' + DO CONTABILIZEAZA WITH '4426','401 ',0,clasaact + ************************************************* + SELE FURNIZOR + repl furnizor.achizit with furnizor.achizit+m.totctva+M.TAXA + M.TOTCTVA=M.TOTCTVA+M.TAXA + M.NEIMPOZAB=M.TAXA+M.NEIMPOZAB + M.EXPLICATIA='PLATA FURNIZOR' + M.NUME_2=M.NUM + do contabilizeaza with '401 ','5311',m.totctva,clasaact + + do PLcasa + DO ADCUMP + DO ADCHIND + DO ADRESPONS + DO STERGE + RETURN +ENDPROC && BAR_16_OF__s8o01v1sq_FB2P + +PROCEDURE BAR_18_OF__s8o01v1sq_FB2P + SELECT BAL + ose=crea('selcont') + ose.show(1) + IF buton=2 + RETURN + ENDIF + lans(10312) + *!* m.scd=CN + + *!* DO INcindplatite WITH m.scd,'401 ','4426 ','401 ','401 ','5311 ','FACTURI','PLCASA', 'actgen02PERc' +ENDPROC && BAR_18_OF__s8o01v1sq_FB2P + +PROCEDURE BAR_"46010"_OF__s3n000oov_FB2P + lans(10256) + *!* nr_meniu=46010 + *!* DO INcindplatite WITH '604 ','401 ','4426 ','401 ','401 ','542 ','FACTURI','INPLACHIZ','actgen02PER' +ENDPROC && BAR_"46010"_OF__s3n000oov_FB2P + +PROCEDURE BAR_"46020"_OF__s3n000oov_FB2P + lans(10257) + *!* nr_meniu=46020 + *!* DO INcindplatite WITH '605 ','401 ','4426 ','401 ','401 ','542 ','FACTURI','INPLACHIZ','actgen02PER' +ENDPROC && BAR_"46020"_OF__s3n000oov_FB2P + +PROCEDURE BAR_"46030"_OF__s3n000oov_FB2P + lans(10258) + *!* nr_meniu=46030 + *!* DO INcindplatite WITH '611 ','401 ','4426 ','401 ','401 ','542 ','FACTURI','INPLACHIZ','actgen02PER' +ENDPROC && BAR_"46030"_OF__s3n000oov_FB2P + +PROCEDURE BAR_"46040"_OF__s3n000oov_FB2P + lans(10259) + *!* nr_meniu=46040 + *!* DO INcindplatite WITH '612 ','401 ','4426 ','401 ','401 ','542 ','FACTURI','INPLACHIZ','actgen02PER' +ENDPROC && BAR_"46040"_OF__s3n000oov_FB2P + +PROCEDURE BAR_"46110"_OF__s3n000oov_FB2P + lans(10260) + *!* nr_meniu=46110 + *!* DO INcindplatite WITH '613 ','401 ','4426 ','401 ','401 ','542 ','FACTURI','INPLACHIZ','actgen02PER' +ENDPROC && BAR_"46110"_OF__s3n000oov_FB2P + +PROCEDURE BAR_"46100"_OF__s3n000oov_FB2P + lans(10261) + *!* nr_meniu=46100 + *!* DO INcindplatite WITH '614 ','401 ','4426 ','401 ','401 ','542 ','FACTURI','INPLACHIZ','actgen02PER' +ENDPROC && BAR_"46100"_OF__s3n000oov_FB2P + +PROCEDURE BAR_"46120"_OF__s3n000oov_FB2P + lans(10262) + *!* nr_meniu=46120 + *!* DO INcindplatite WITH '621 ','401 ','4426 ','401 ','401 ','542 ','FACTURI','INPLACHIZ','actgen02PER' +ENDPROC && BAR_"46120"_OF__s3n000oov_FB2P + +PROCEDURE BAR_"46130"_OF__s3n000oov_FB2P + lans(10263) + *!* nr_meniu=46130 + *!* DO INcindplatite WITH '622 ','401 ','4426 ','401 ','401 ','542 ','FACTURI','INPLACHIZ','actgen02PER' +ENDPROC && BAR_"46130"_OF__s3n000oov_FB2P + +PROCEDURE BAR_"46050"_OF__s3n000oov_FB2P + lans(10264) + *!* nr_meniu=46050 + *!* DO INcindplatite WITH '6231 ','401 ','4426 ','401 ','401 ','542 ','FACTURI','INPLACHIZ','actgen02PER' +ENDPROC && BAR_"46050"_OF__s3n000oov_FB2P + +PROCEDURE BAR_10_OF__s3n000oov_FB2P + lans(10265) + *!* DO INcindplatite WITH '6232 ','401 ','4426 ','401 ','401 ','542 ','FACTURI','INPLACHIZ','actgen02PER' +ENDPROC && BAR_10_OF__s3n000oov_FB2P + +PROCEDURE BAR_"46060"_OF__s3n000oov_FB2P + lans(10266) + *!* nr_meniu=46060 + *!* DO INcindplatite WITH '624 ','401 ','4426 ','401 ','401 ','542 ','FACTURI','INPLACHIZ','actgen02PER' +ENDPROC && BAR_"46060"_OF__s3n000oov_FB2P + +PROCEDURE BAR_"46070"_OF__s3n000oov_FB2P + lans(10267) + *!* nr_meniu=46070 + *!* DO INcindplatite WITH '625 ','401 ','4426 ','401 ','401 ','542 ','FACTURI','INPLACHIZ','actgen02PER' +ENDPROC && BAR_"46070"_OF__s3n000oov_FB2P + +PROCEDURE BAR_"46080"_OF__s3n000oov_FB2P + lans(10268) + *!* nr_meniu=46080 + *!* DO INcindplatite WITH '626 ','401 ','4426 ','401 ','401 ','542 ','FACTURI','INPLACHIZ','actgen02PER' +ENDPROC && BAR_"46080"_OF__s3n000oov_FB2P + +PROCEDURE BAR_"46090"_OF__s3n000oov_FB2P + lans(10269) + *!* nr_meniu=46090 + *!* DO INcindplatite WITH '628 ','401 ','4426 ','401 ','401 ','542 ','FACTURI','INPLACHIZ','actgen02PER' +ENDPROC && BAR_"46090"_OF__s3n000oov_FB2P + +PROCEDURE BAR_"46140"_OF__s3n000oov_FB2P + DO MENIU46140 + *ACT604 +ENDPROC && BAR_"46140"_OF__s3n000oov_FB2P + +PROCEDURE BAR_16_OF__s3n000oov_FB2P + + clasaact='actverif' + SCD1='628 ' + SCC1='401 ' + SCD2='4426' + SCC2='401 ' + + OA=CREATEOBJ('BONMASA') + OA.SHOW(1) + IF BUTON=2 + DO STERGE + RETURN + ENDIF + DO CODARE + ******************************************* + DO CONTABILIZEAZA WITH SCD1,SCC1,M.TOTFTVA,clasaact + ******************************************* + IF m.NEIMPOZAB>0 + m.num=m.nume_2 + m.nume_2='NEIMPOZABIL ' + DO CONTABILIZEAZA WITH SCD2,SCC2,0,clasaact + M.NUME_2=M.NUM + ENDIF + IF m.totftvaI>0 + m.num=m.nume_2 + m.nume_2='TVA '+str(m.ctvai,5,2) + DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAI,clasaact + M.NUME_2=M.NUM + ENDIF + IF m.totftvaM>0 + m.num=m.nume_2 + m.nume_2='TVA '+str(m.ctvam,5,2) + DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAM,clasaact + M.NUME_2=M.NUM + ENDIF + M.EXPLICATIA='TICHETE DE MASA' + DO CONTABILIZEAZA WITH '5328','401 ',M.TAXA,clasaact + M.NUM=M.NUME_2 + m.nume_2='NEIMPOZABIL ' + DO CONTABILIZEAZA WITH '4426','401 ',0,clasaact + ************************************************* + SELE FURNIZOR + repl furnizor.achizit with furnizor.achizit+m.totctva+M.TAXA + M.TOTCTVA=M.TOTCTVA+M.TAXA + M.NEIMPOZAB=M.TAXA+M.NEIMPOZAB + M.EXPLICATIA='PLATA FURNIZOR' + M.NUME_2=M.NUM + do contabilizeaza with '401 ','542 ',m.totctva,clasaact + + do INPLACHIZ + DO ADCUMP + DO ADCHIND + DO ADRESPONS + DO STERGE + RETURN +ENDPROC && BAR_16_OF__s3n000oov_FB2P + +PROCEDURE BAR_18_OF__s3n000oov_FB2P + SELECT BAL + ose=crea('selcont') + ose.show(1) + IF buton=2 + RETURN + ENDIF + lans(10313) + *!* m.scd=CN + + *!* DO INcindplatite WITH m.scd,'401 ','4426 ','401 ','401 ','542 ','FACTURI','INPLACHIZ','actgen02PER' +ENDPROC && BAR_18_OF__s3n000oov_FB2P + +PROCEDURE BAR_5_OF_Furnizori_FB2P + + SELE BAL + GO TOP + OS=CREA('SELCONT') + OS.SHOW(1) + IF BUTON=2 + RETURN + ENDIF + * + lans(10314) + *!* OA=CREA('ACTFIXn') + *!* OA.SHOW(1) + *!* * + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + *!* DO CODARE + *!* *do pnir + + *!* SCC1='408 ' + *!* SCD2='4428 ' + *!* SCC2=SCC1 + + *!* *M.TOTCTVA=M.TOTFTVA+M.TOTTVA + + *!* DO CONTABILIZEAZA WITH CN,SCC1,M.TOTFTVA,CLASAACT + + *!* IF m.NEIMPOZAB>0 + *!* m.num=m.nume_2 + *!* m.nume_2='NEIMPOZABIL ' + *!* DO CONTABILIZEAZA WITH CN,SCC1,M.NEIMPOZAB,CLASAACT + *!* M.NUME_2=M.NUM + *!* ENDIF + *!* *IF m.totftvaI#0 + *!* * m.num=m.nume_2 + *!* * m.nume_2='TVA '+str(m.ctvai,5,2) + *!* * DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAI,CLASAACT + *!* * M.NUME_2=M.NUM + *!* *ENDIF + *!* *IF m.totftvaM#0 + *!* m.num=m.nume_2 + *!* m.nume_2='TVA '+str(m.ctvam,5,2) + *!* DO CONTABILIZEAZA WITH SCD2,SCC2,M.TOTTVA,CLASAACT + *!* M.NUME_2=M.NUM + *!* *ENDIF + + + *!* DO STERGE + *!* RETURN +ENDPROC && BAR_5_OF_Furnizori_FB2P + +PROCEDURE BAR_7_OF_Furnizori_FB2P + *DO cheltinavans WITH '471 ','401 ','4426','401 ','FACTURI',"actgen02" + lans(10410) + +ENDPROC && BAR_7_OF_Furnizori_FB2P + +* diff --git a/Meniuri/furnizori3.mn2 b/Meniuri/furnizori3.mn2 new file mode 100644 index 0000000..a98966b --- /dev/null +++ b/Meniuri/furnizori3.mn2 @@ -0,0 +1,299 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="furnizori3.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Furnizori SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Furnizori PROMPT "Regularizare fact. nesosite" ; + MESSAGE '408:401;4426:4428' +ON SELECTION BAR 1 OF Furnizori DO BAR_1_OF_Furnizori_FB2P + +DEFINE BAR 2 OF Furnizori PROMPT "Regularizare fact. nesosite de imobilizari" ; + MESSAGE '408:404;4426:4428' +ON SELECTION BAR 2 OF Furnizori DO BAR_2_OF_Furnizori_FB2P + +DEFINE BAR 3 OF Furnizori PROMPT "Regularizare furnizori debitori" ; + MESSAGE '401 : 409' +ON SELECTION BAR 3 OF Furnizori DO BAR_3_OF_Furnizori_FB2P + +DEFINE BAR 4 OF Furnizori PROMPT "Regularizare avans furnizori imobilizari" +ON BAR 4 OF Furnizori ACTIVATE POPUP Regulariza + + *---------------------------------- + DEFINE POPUP Regulariza SHORTCUT RELATIVE + DEFINE BAR 1 OF Regulariza PROMPT "Corporale" ; + MESSAGE '404 : 232' + ON SELECTION BAR 1 OF Regulariza lans(10562) + + DEFINE BAR 2 OF Regulariza PROMPT "Necorporale" ; + MESSAGE '404 : 234' + ON SELECTION BAR 2 OF Regulariza lans(10563) + +DEFINE BAR 5 OF Furnizori PROMPT "\-" +ON BAR 5 OF Furnizori ACTIVATE POPUP NewItem + + *---------------------------------- + DEFINE POPUP NewItem SHORTCUT RELATIVE +DEFINE BAR 6 OF Furnizori PROMPT "Regularizare furnizori externi debitori" ; + MESSAGE '401 : 409' +ON SELECTION BAR 6 OF Furnizori DO BAR_6_OF_Furnizori_FB2P + +DEFINE BAR 7 OF Furnizori PROMPT "Regularizare avans furnizori externi imobilizari" +ON SELECTION BAR 7 OF Furnizori DO BAR_7_OF_Furnizori_FB2P + +DEFINE BAR 8 OF Furnizori PROMPT "\-" +ON BAR 8 OF Furnizori ACTIVATE POPUP _13w0x2gl2 + + *---------------------------------- + DEFINE POPUP _13w0x2gl2 SHORTCUT RELATIVE +DEFINE BAR 9 OF Furnizori PROMPT "Compensari furnizor-client" +ON BAR 9 OF Furnizori ACTIVATE POPUP _15t10svwr + + *---------------------------------- + DEFINE POPUP _15t10svwr SHORTCUT RELATIVE + DEFINE BAR 1 OF _15t10svwr PROMPT "Compensare furnizor - client" ; + MESSAGE '401-4111' + ON SELECTION BAR 1 OF _15t10svwr lans(10489) + + DEFINE BAR 2 OF _15t10svwr PROMPT "Compensare furnizor404 - client" ; + MESSAGE '404-4111' + ON SELECTION BAR 2 OF _15t10svwr lans(10543) + + DEFINE BAR 3 OF _15t10svwr PROMPT "\-" + ON BAR 3 OF _15t10svwr ACTIVATE POPUP _15t10uhfs + + *---------------------------------- + DEFINE POPUP _15t10uhfs SHORTCUT RELATIVE + DEFINE BAR 4 OF _15t10svwr PROMPT "Compensare valuta furnizor - client" ; + MESSAGE '401-4111' + ON SELECTION BAR 4 OF _15t10svwr lans(10490) + +DEFINE BAR 10 OF Furnizori PROMPT "Compensare facturi furnizor - lei" ; + MESSAGE '401 : 5121' +ON SELECTION BAR 10 OF Furnizori lans(10614) + +DEFINE BAR 11 OF Furnizori PROMPT "Compensare facturi furnizor - valuta" ; + MESSAGE '401,404,462 : 5124' +ON SELECTION BAR 11 OF Furnizori DO BAR_11_OF_Furnizori_FB2P + +DEFINE BAR 12 OF Furnizori PROMPT "\-" +ON BAR 12 OF Furnizori ACTIVATE POPUP _7ey0oap0x + + *---------------------------------- + DEFINE POPUP _7ey0oap0x SHORTCUT RELATIVE +DEFINE BAR 13 OF Furnizori PROMPT "Compensare avansuri furnizor - lei" ; + MESSAGE '409x : 5121' +ON SELECTION BAR 13 OF Furnizori DO BAR_13_OF_Furnizori_FB2P + +DEFINE BAR 14 OF Furnizori PROMPT "Compensare avansuri furnizor - valuta" ; + MESSAGE '409 : 5124' +ON SELECTION BAR 14 OF Furnizori DO BAR_14_OF_Furnizori_FB2P +ACTIVATE POPUP Furnizori + +* + +* +PROCEDURE BAR_1_OF_Furnizori_FB2P + lans(10406) + + IF gnButon = 2 + IF USED('actactan') + USE IN actactan + ENDIF + RETURN + ENDIF + SET STEP ON + SELECT actactan + GO BOTTOM + SCATTER FIELDS EXCEPT id_factd, id_factc,pereched,perechec, id_partd, id_partc, partd, partc,id_jtva_coloana,proc_tva,taxcode,taxname NAME otemp + + SELECT DISTINCT a.id_jtva_coloana,(b.cota_tva+100)/100 as proc_Tva,b.id_tva,a.taxcode,a.taxname FROM actactan a JOIN jtva_coloane b ON a.id_jtva_coloana = b.id_jtva_coloana WHERE b.cota_tva <> 0 AND ALLTRIM(a.scd) = '408' INTO CURSOR procent + + IF _tally#0 + SELECT procent + SCAN + SCATTER NAME oproc + SELECT actactan + SUM suma TO lnsuma FOR id_jtva_coloana=oproc.id_jtva_coloana AND ALLTRIM(scd)='408' + SELECT actactan + APPEND BLANK + GATHER NAME otemp + replace proc_tva WITH oproc.proc_tva,id_jtva_coloana WITH oproc.id_tva, taxcode WITH oproc.taxcode, taxname WITH oproc.taxname + *!* REPLACE scd WITH '4426',scc WITH '4428',proc_tva WITH oproc.proc_tva,id_jtva_coloana WITH oproc.id_tva + REPLACE scd WITH iif(inlist(id_jtva_coloana, 171, 173, 175, 179, 189, 211, 215), '4428', '4426'),scc WITH '4428' + REPLACE suma WITH ROUND(LnSuma*(oproc.proc_tva-1)/oproc.proc_tva,gnPc) + + SELECT procent + ENDSCAN + ENDIF + + SELECT actactan + GO TOP + DO FORM verificare + + IF gnButon=1 + oscrie_in_fisiere() + ENDIF + + IF USED('actactan') + USE IN actactan + ENDIF + IF USED('procent') + USE IN procent + ENDIF + + + +ENDPROC && BAR_1_OF_Furnizori_FB2P + +PROCEDURE BAR_2_OF_Furnizori_FB2P + lans(10407) + + + IF gnButon = 2 + IF USED('actactan') + USE IN actactan + ENDIF + RETURN + ENDIF + + SELECT actactan + GO BOTTOM + SCATTER FIELDS EXCEPT id_factd, id_factc,pereched,perechec, id_partd, id_partc, partd, partc,id_jtva_coloana, proc_tva,taxcode,taxname NAME otemp + + SELECT DISTINCT a.id_jtva_coloana,(b.cota_tva+100)/100 as proc_tva,b.id_tva,a.taxcode,a.taxname FROM actactan a JOIN jtva_coloane b ON a.id_jtva_coloana = b.id_jtva_coloana WHERE b.cota_tva <> 0 AND ALLTRIM(a.scd) = '408' INTO CURSOR procent + + IF _tally#0 + SELECT procent + SCAN + SCATTER NAME oproc + SELECT actactan + SUM suma TO lnsuma FOR id_jtva_coloana=oproc.id_jtva_coloana AND ALLTRIM(scd)='408' + SELECT actactan + APPEND BLANK + GATHER NAME otemp + REPLACE scd WITH '4426',scc WITH '4428',id_jtva_coloana WITH oproc.id_tva,proc_tva WITH oproc.proc_tva, taxcode WITH oproc.taxcode, taxname WITH oproc.taxname + REPLACE suma WITH ROUND(LnSuma*(oproc.proc_tva-1)/oproc.proc_tva,gnPc) + + SELECT procent + ENDSCAN + ENDIF + + SELECT actactan + GO TOP + DO FORM verificare + + IF gnButon=1 + oscrie_in_fisiere() + ENDIF + + IF USED('actactan') + USE IN actactan + ENDIF + IF USED('procent') + USE IN procent + ENDIF +ENDPROC && BAR_2_OF_Furnizori_FB2P + +PROCEDURE BAR_3_OF_Furnizori_FB2P + PRIVATE pcACN, CN + loCont = ret_cont("Selectati contul",'409') && ,4091,4092') + IF TYPE('loCont') # 'O' + RETURN + ENDIF + IF buton = 2 + RELEASE loCont + RETURN + ENDIF + + CN = locont.cont + PcACN = loCont.Acont + LANS(10487) +ENDPROC && BAR_3_OF_Furnizori_FB2P + +PROCEDURE BAR_6_OF_Furnizori_FB2P + PRIVATE pcACN, CN + loCont = ret_cont("Selectati contul creditor",'409') &&,4091,4092') + IF TYPE('loCont') # 'O' + RETURN + ENDIF + IF buton = 2 + RELEASE loCont + RETURN + ENDIF + + CN = locont.cont + PcACN = loCont.Acont + lans(10495) +ENDPROC && BAR_6_OF_Furnizori_FB2P + +PROCEDURE BAR_7_OF_Furnizori_FB2P + PRIVATE pcACN, CN + loCont = ret_cont("Selectati contul creditor",'23,409') && 232,234 - corporale/necorporale + IF TYPE('loCont') # 'O' + RETURN + ENDIF + IF buton = 2 + RELEASE loCont + RETURN + ENDIF + + + + CN = locont.cont + PcACN = loCont.Acont + lans(10597) +ENDPROC && BAR_7_OF_Furnizori_FB2P + +PROCEDURE BAR_11_OF_Furnizori_FB2P + LOCAL loCont + loCont = ret_cont("Contul debitor", "401,404,462") + If buton = 2 + Release loCont + Return + Endif + + + lans_generic(10658,loCont.Cont, loCont.Acont) +ENDPROC && BAR_11_OF_Furnizori_FB2P + +PROCEDURE BAR_13_OF_Furnizori_FB2P + Local lcCont, lcAcont, loCont + loCont=ret_cont("Selectati contul",'409') && 409,4091, 4092 + If Type('loCont') # 'O' + Return + Endif + If buton=2 + Release loCont + Return + Endif + lcCont = Alltrim(loCont.Cont) + lcAcont = loCont.Acont + Do Case + Case lcCont = '409' + lans(10622) + Case lcCont = '4091' + lans(10623) + Case lcCont = '4092' + lans(10624) + Endcase + +ENDPROC && BAR_13_OF_Furnizori_FB2P + +PROCEDURE BAR_14_OF_Furnizori_FB2P + LOCAL loCont + loCont = ret_cont("Contul creditor", "409") + If buton = 2 + Release loCont + Return + Endif + + + lans_generic(10657,loCont.Cont, loCont.Acont) +ENDPROC && BAR_14_OF_Furnizori_FB2P + +* diff --git a/Meniuri/furnizori4.mn2 b/Meniuri/furnizori4.mn2 new file mode 100644 index 0000000..29a7e0a --- /dev/null +++ b/Meniuri/furnizori4.mn2 @@ -0,0 +1,82 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="furnizori4.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Furnizori SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Furnizori PROMPT "Efecte de platit" +ON BAR 1 OF Furnizori ACTIVATE POPUP _0u60ym7h6 + + *---------------------------------- + DEFINE POPUP _0u60ym7h6 SHORTCUT RELATIVE + DEFINE BAR 1 OF _0u60ym7h6 PROMPT "Cresterea obligatiilor" + ON BAR 1 OF _0u60ym7h6 ACTIVATE POPUP _0u60ymy8q + + *---------------------------------- + DEFINE POPUP _0u60ymy8q SHORTCUT RELATIVE + DEFINE BAR 1 OF _0u60ymy8q PROMPT "Prin efecte comerciale" ; + MESSAGE '401 :403 ' + ON SELECTION BAR 1 OF _0u60ymy8q lans(10414) + + DEFINE BAR 2 OF _0u60ymy8q PROMPT "Prin diferente nefavorabile de curs valutar" ; + MESSAGE '6651:403 ' + ON SELECTION BAR 2 OF _0u60ymy8q lans(10315) + + DEFINE BAR 2 OF _0u60ym7h6 PROMPT "Micsorarea obligatiilor" + ON BAR 2 OF _0u60ym7h6 ACTIVATE POPUP _0u60ypevr + + *---------------------------------- + DEFINE POPUP _0u60ypevr SHORTCUT RELATIVE + DEFINE BAR 1 OF _0u60ypevr PROMPT "Prin plata efectelor la scadenta" ; + MESSAGE '403 :5121' + ON SELECTION BAR 1 OF _0u60ypevr LANS(10316) + + DEFINE BAR 2 OF _0u60ypevr PROMPT "Prin diferente favorabile de curs valutar" ; + MESSAGE '403 :7651' + ON SELECTION BAR 2 OF _0u60ypevr lans(10317) + +DEFINE BAR 2 OF Furnizori PROMPT "Efecte de platit pt imobilizari" +ON BAR 2 OF Furnizori ACTIVATE POPUP _0u60ytd0l + + *---------------------------------- + DEFINE POPUP _0u60ytd0l SHORTCUT RELATIVE + DEFINE BAR 1 OF _0u60ytd0l PROMPT "Cresterea obligatiilor" + ON BAR 1 OF _0u60ytd0l ACTIVATE POPUP _0u60ytmf3 + + *---------------------------------- + DEFINE POPUP _0u60ytmf3 SHORTCUT RELATIVE + DEFINE BAR 1 OF _0u60ytmf3 PROMPT "Prin efecte comerciale" ; + MESSAGE '404 :405 ' + ON SELECTION BAR 1 OF _0u60ytmf3 lans(10415) + + DEFINE BAR 2 OF _0u60ytmf3 PROMPT "Prin diferente nefavorabile de curs valutar" ; + MESSAGE '6651:405 ' + ON SELECTION BAR 2 OF _0u60ytmf3 lans(10318) + + DEFINE BAR 2 OF _0u60ytd0l PROMPT "Micsorarea obligatiilor" + ON BAR 2 OF _0u60ytd0l ACTIVATE POPUP _0u60yvtkc + + *---------------------------------- + DEFINE POPUP _0u60yvtkc SHORTCUT RELATIVE + DEFINE BAR 1 OF _0u60yvtkc PROMPT "Prin plata efectelor la scadenta" ; + MESSAGE '405 :5121' + ON SELECTION BAR 1 OF _0u60yvtkc lans(10319) + + DEFINE BAR 2 OF _0u60yvtkc PROMPT "Prin diferente favorabile de curs valutar" ; + MESSAGE '405 :7651' + ON SELECTION BAR 2 OF _0u60yvtkc DO BAR_2_OF__0u60yvtkc_FB2P +ACTIVATE POPUP Furnizori + +* + +* +PROCEDURE BAR_2_OF__0u60yvtkc_FB2P + *DO ABC1 WITH '405 ','765 ' + lans(10320) +ENDPROC && BAR_2_OF__0u60yvtkc_FB2P + +* diff --git a/Meniuri/furnizori5.mn2 b/Meniuri/furnizori5.mn2 new file mode 100644 index 0000000..c3cbff2 --- /dev/null +++ b/Meniuri/furnizori5.mn2 @@ -0,0 +1,113 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="furnizori5.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "Factura nesosita" +ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P + +DEFINE BAR 2 OF Shortcut PROMPT "Factura nesosita externa" +ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P + +DEFINE BAR 3 OF Shortcut PROMPT "\-" +ON BAR 3 OF Shortcut ACTIVATE POPUP _13y10dnby + + *---------------------------------- + DEFINE POPUP _13y10dnby SHORTCUT RELATIVE +DEFINE BAR 4 OF Shortcut PROMPT "Facturi nesosite 408" +ON BAR 4 OF Shortcut ACTIVATE POPUP Facturines + + *---------------------------------- + DEFINE POPUP Facturines SHORTCUT RELATIVE + DEFINE BAR 1 OF Facturines PROMPT "Marfa" ; + MESSAGE '371 : 408; 4428 :408' + ON SELECTION BAR 1 OF Facturines DO BAR_1_OF_Facturines_FB2P + + DEFINE BAR 2 OF Facturines PROMPT "Materii prime" ; + MESSAGE '301 :408; 4428 :408' + ON SELECTION BAR 2 OF Facturines DO BAR_2_OF_Facturines_FB2P + + DEFINE BAR 3 OF Facturines PROMPT "Materiale auxiliare" ; + MESSAGE '3021 :408; 4428 :408' + ON SELECTION BAR 3 OF Facturines DO BAR_3_OF_Facturines_FB2P + + DEFINE BAR 4 OF Facturines PROMPT "Combustibili" ; + MESSAGE '3022:408; 4428 :408' + ON SELECTION BAR 4 OF Facturines DO BAR_4_OF_Facturines_FB2P + + DEFINE BAR 5 OF Facturines PROMPT "Piese de schimb" ; + MESSAGE '3024:408; 4428 :408' + ON SELECTION BAR 5 OF Facturines DO BAR_5_OF_Facturines_FB2P + + DEFINE BAR 6 OF Facturines PROMPT "Alte materiale" ; + MESSAGE '3028:408; 4428 :408' + ON SELECTION BAR 6 OF Facturines DO BAR_6_OF_Facturines_FB2P +ACTIVATE POPUP Shortcut + +* + +* +PROCEDURE BAR_1_OF_Shortcut_FB2P + buton = lans(10458) + IF buton=2 + DO deschid_actc + RETURN + ENDIF + + DO introducere_compacta WITH 'achi_mat','','408 ',.t.,.t.,'Achizitie-Cheltuieli Materiale-Facturi nesosite 408','4428',10458 +ENDPROC && BAR_1_OF_Shortcut_FB2P + +PROCEDURE BAR_2_OF_Shortcut_FB2P + *!* SELE BAL + *!* GO TOP + *!* OS=CREA('SELCONT') + *!* OS.SHOW(1) + *!* IF BUTON=2 + *!* RETURN + *!* ENDIF + PRIVATE pcACN + loCont=ret_cont("Selectati contul",'3,4,6') + + IF TYPE('loCont') # 'O' + RETURN + ENDIF + + IF buton=2 + RELEASE loCont + RETURN + ENDIF + CN=locont.cont + PcACN=loCont.Acont + LANS(10548) +ENDPROC && BAR_2_OF_Shortcut_FB2P + +PROCEDURE BAR_1_OF_Facturines_FB2P + lans(10218) +ENDPROC && BAR_1_OF_Facturines_FB2P + +PROCEDURE BAR_2_OF_Facturines_FB2P + lans(10219) +ENDPROC && BAR_2_OF_Facturines_FB2P + +PROCEDURE BAR_3_OF_Facturines_FB2P + lans(10220) +ENDPROC && BAR_3_OF_Facturines_FB2P + +PROCEDURE BAR_4_OF_Facturines_FB2P + lans(10221) +ENDPROC && BAR_4_OF_Facturines_FB2P + +PROCEDURE BAR_5_OF_Facturines_FB2P + lans(10222) +ENDPROC && BAR_5_OF_Facturines_FB2P + +PROCEDURE BAR_6_OF_Facturines_FB2P + lans(10223) +ENDPROC && BAR_6_OF_Facturines_FB2P + +* diff --git a/Meniuri/furnizori5_.mn2 b/Meniuri/furnizori5_.mn2 new file mode 100644 index 0000000..e727c68 --- /dev/null +++ b/Meniuri/furnizori5_.mn2 @@ -0,0 +1,66 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="furnizori5_.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Furnizorie SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Furnizorie PROMPT "Furnizori de materiale/servicii" +ON SELECTION BAR 1 OF Furnizorie DO BAR_1_OF_Furnizorie_FB2P + +DEFINE BAR 2 OF Furnizorie PROMPT "\Furnizori de materiale/servicii scutite de TVA" +ON SELECTION BAR 2 OF Furnizorie DO BAR_2_OF_Furnizorie_FB2P + +DEFINE BAR 3 OF Furnizorie PROMPT "Furnizori de \ + +* +PROCEDURE BAR_1_OF_Furnizorie_FB2P + *DO FURN_E_MAT WITH .T. IN PROCMENIU.PRG + SELE BAL + GO TOP + OS=CREA('SELCONT') + OS.SHOW(1) + IF BUTON=2 + RETURN + ENDIF + + LANS(10423) +ENDPROC && BAR_1_OF_Furnizorie_FB2P + +PROCEDURE BAR_2_OF_Furnizorie_FB2P + DO FURN_E_MAT WITH .F. IN PROCMENIU.PRG +ENDPROC && BAR_2_OF_Furnizorie_FB2P + +PROCEDURE BAR_3_OF_Furnizorie_FB2P + *DO FURN_E_IMOB IN PROCMENIU.PRG + SELE BAL + GO TOP + OS=CREA('SELCONT') + OS.SHOW(1) + IF BUTON=2 + RETURN + ENDIF + + LANS(10424) +ENDPROC && BAR_3_OF_Furnizorie_FB2P + +PROCEDURE BAR_5_OF_Furnizorie_FB2P + do importmarfa in procmeniu.prg +ENDPROC && BAR_5_OF_Furnizorie_FB2P + +* diff --git a/Meniuri/imobilizari1.mn2 b/Meniuri/imobilizari1.mn2 new file mode 100644 index 0000000..1277f07 --- /dev/null +++ b/Meniuri/imobilizari1.mn2 @@ -0,0 +1,181 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="imobilizari1.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Leasing SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Leasing PROMPT "Financiar" +ON BAR 1 OF Leasing ACTIVATE POPUP Financiar + + *---------------------------------- + DEFINE POPUP Financiar SHORTCUT RELATIVE + DEFINE BAR 1 OF Financiar PROMPT "La societatea de leasing" + ON BAR 1 OF Financiar ACTIVATE POPUP Lasocietat + + *---------------------------------- + DEFINE POPUP Lasocietat SHORTCUT RELATIVE + DEFINE BAR 1 OF Lasocietat PROMPT "Achizitie imobilizari" ; + MESSAGE 'X:404; 4426:404' + ON SELECTION BAR 1 OF Lasocietat DO BAR_1_OF_Lasocietat_FB2P + + DEFINE BAR 2 OF Lasocietat PROMPT "Inregistrare contract" ; + MESSAGE '2673:21X ; 2674:472' + ON SELECTION BAR 2 OF Lasocietat DO BAR_2_OF_Lasocietat_FB2P + + DEFINE BAR 2 OF Financiar PROMPT "La utilizatori" + ON BAR 2 OF Financiar ACTIVATE POPUP Lautilizat + + *---------------------------------- + DEFINE POPUP Lautilizat SHORTCUT RELATIVE + DEFINE BAR 1 OF Lautilizat PROMPT "Inregistrarea contractului" ; + MESSAGE '21X :167 ; 471:1687' + ON SELECTION BAR 1 OF Lautilizat DO BAR_1_OF_Lautilizat_FB2P + + DEFINE BAR 2 OF Lautilizat PROMPT "Rate leasing" + ON SELECTION BAR 2 OF Lautilizat DO BAR_2_OF_Lautilizat_FB2P + + DEFINE BAR 3 OF Lautilizat PROMPT "Reziliere contract - lei" ; + MESSAGE '461 :404 ' + ON SELECTION BAR 3 OF Lautilizat DO BAR_3_OF_Lautilizat_FB2P + + DEFINE BAR 4 OF Lautilizat PROMPT "Reziliere contract - valuta" ; + MESSAGE '461 :404 ' + ON SELECTION BAR 4 OF Lautilizat DO BAR_4_OF_Lautilizat_FB2P + +DEFINE BAR 2 OF Leasing PROMPT "Operational" +ON BAR 2 OF Leasing ACTIVATE POPUP Operationa + + *---------------------------------- + DEFINE POPUP Operationa SHORTCUT RELATIVE + DEFINE BAR 1 OF Operationa PROMPT "La societatea de leasing" + ON BAR 1 OF Operationa ACTIVATE POPUP _09a12zk34 + + *---------------------------------- + DEFINE POPUP _09a12zk34 SHORTCUT RELATIVE + DEFINE BAR 1 OF _09a12zk34 PROMPT "Rate leasing" ; + MESSAGE '4111 :706 ;4111 :4427' + ON SELECTION BAR 1 OF _09a12zk34 DO BAR_1_OF__09a12zk34_FB2P + + DEFINE BAR 2 OF _09a12zk34 PROMPT "Valoare reziduala" ; + MESSAGE '461:7721;461:4427' + ON SELECTION BAR 2 OF _09a12zk34 DO BAR_2_OF__09a12zk34_FB2P + + DEFINE BAR 2 OF Operationa PROMPT "La utilizator" + ON BAR 2 OF Operationa ACTIVATE POPUP _09a12q2o8 + + *---------------------------------- + DEFINE POPUP _09a12q2o8 SHORTCUT RELATIVE + DEFINE BAR 1 OF _09a12q2o8 PROMPT "Avans+Taxa contract" ; + MESSAGE '471 :401 ;4426 :401 ' + ON SELECTION BAR 1 OF _09a12q2o8 DO BAR_1_OF__09a12q2o8_FB2P + + DEFINE BAR 2 OF _09a12q2o8 PROMPT "Rate leasing" ; + MESSAGE '612 :401 ;4426 :401 ' + ON SELECTION BAR 2 OF _09a12q2o8 DO BAR_2_OF__09a12q2o8_FB2P + + DEFINE BAR 3 OF _09a12q2o8 PROMPT "Valoare reziduala" ; + MESSAGE 'X:404; 4426:404' + ON SELECTION BAR 3 OF _09a12q2o8 DO BAR_3_OF__09a12q2o8_FB2P +ACTIVATE POPUP Leasing + +* + +* +PROCEDURE BAR_1_OF_Lasocietat_FB2P + PRIVATE pcACN + loCont=ret_cont("Selectati contul",'20,21') + + IF TYPE('loCont') # 'O' + RETURN + ENDIF + + IF buton=2 + RELEASE loCont + RETURN + ENDIF + CN=locont.cont + PcACN=loCont.Acont + lans(10067) +ENDPROC && BAR_1_OF_Lasocietat_FB2P + +PROCEDURE BAR_2_OF_Lasocietat_FB2P + buton = lans(10482) + IF buton=2 + *DO STERGE + DO deschid_actc + RETURN + ENDIF + DO introducere_compacta WITH 'achi_mat','','',.F.,.F.,'INREGISTRAREA CONTRACTULUI','',10482 +ENDPROC && BAR_2_OF_Lasocietat_FB2P + +PROCEDURE BAR_1_OF_Lautilizat_FB2P + buton = lans(10481) + IF buton=2 + *DO STERGE + DO deschid_actc + RETURN + ENDIF + DO introducere_compacta WITH 'achi_mat','','',.F.,.F.,'INREGISTRAREA CONTRACTULUI','',10481 +ENDPROC && BAR_1_OF_Lautilizat_FB2P + +PROCEDURE BAR_2_OF_Lautilizat_FB2P + Local lnDeducere + lnDeducere = 0 + buton = lans(10455,,,,@lnDeducere) + + IF buton=2 + *DO STERGE + DO deschid_actc + RETURN + ENDIF + DO introducere_compacta WITH 'achi_mat','','404 ',.T.,.F.,'RATE LEASING','4426',10455,,lnDeducere + Release lnDeducere +ENDPROC && BAR_2_OF_Lautilizat_FB2P + +PROCEDURE BAR_3_OF_Lautilizat_FB2P + lans(10079) +ENDPROC && BAR_3_OF_Lautilizat_FB2P + +PROCEDURE BAR_4_OF_Lautilizat_FB2P + lans(10595) +ENDPROC && BAR_4_OF_Lautilizat_FB2P + +PROCEDURE BAR_1_OF__09a12zk34_FB2P + *DO ABC2 WITH '411 ',"706 ","411 ","4427" + lans(10187) +ENDPROC && BAR_1_OF__09a12zk34_FB2P + +PROCEDURE BAR_2_OF__09a12zk34_FB2P + lans(10188) +ENDPROC && BAR_2_OF__09a12zk34_FB2P + +PROCEDURE BAR_1_OF__09a12q2o8_FB2P + lans(10410) +ENDPROC && BAR_1_OF__09a12q2o8_FB2P + +PROCEDURE BAR_2_OF__09a12q2o8_FB2P + lans(10189) +ENDPROC && BAR_2_OF__09a12q2o8_FB2P + +PROCEDURE BAR_3_OF__09a12q2o8_FB2P + PRIVATE pcACN + loCont=ret_cont("Selectati contul",'20,21') + + IF TYPE('loCont') # 'O' + RETURN + ENDIF + + IF buton=2 + RELEASE loCont + RETURN + ENDIF + CN=locont.cont + PcACN=loCont.Acont + lans(10308) +ENDPROC && BAR_3_OF__09a12q2o8_FB2P + +* diff --git a/Meniuri/imobilizari2.mn2 b/Meniuri/imobilizari2.mn2 new file mode 100644 index 0000000..189c677 --- /dev/null +++ b/Meniuri/imobilizari2.mn2 @@ -0,0 +1,484 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="imobilizari2.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP _09c0qzbvl SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF _09c0qzbvl PROMPT "Constituire" +ON BAR 1 OF _09c0qzbvl ACTIVATE POPUP _09c0r8r60 + + *---------------------------------- + DEFINE POPUP _09c0r8r60 SHORTCUT RELATIVE + DEFINE BAR 1 OF _09c0r8r60 PROMPT "Cheltuieli de constituire 201" + ON BAR 1 OF _09c0r8r60 ACTIVATE POPUP Cheltuieli + + *---------------------------------- + DEFINE POPUP Cheltuieli SHORTCUT RELATIVE + DEFINE BAR 1 OF Cheltuieli PROMPT "Prin banca" ; + MESSAGE '201:5121' + ON SELECTION BAR 1 OF Cheltuieli DO BAR_1_OF_Cheltuieli_FB2P + + DEFINE BAR 2 OF Cheltuieli PROMPT "Prin casa" ; + MESSAGE '201 :5311' + ON SELECTION BAR 2 OF Cheltuieli DO BAR_2_OF_Cheltuieli_FB2P + + DEFINE BAR 3 OF Cheltuieli PROMPT "Prin furnizori" ; + MESSAGE '201 :404 ;4426:404 ' + ON SELECTION BAR 3 OF Cheltuieli DO BAR_3_OF_Cheltuieli_FB2P + + DEFINE BAR 4 OF Cheltuieli PROMPT "De la furnizori-taxa inversa" ; + MESSAGE '4426:4427 ' + ON SELECTION BAR 4 OF Cheltuieli DO BAR_4_OF_Cheltuieli_FB2P + + DEFINE BAR 2 OF _09c0r8r60 PROMPT "Cheltuieli de cercetare dezvoltare 203" + ON BAR 2 OF _09c0r8r60 ACTIVATE POPUP _09c0rhqjj + + *---------------------------------- + DEFINE POPUP _09c0rhqjj SHORTCUT RELATIVE + DEFINE BAR 1 OF _09c0rhqjj PROMPT "Realizate pe cont propriu" ; + MESSAGE '203 :721 ' + ON SELECTION BAR 1 OF _09c0rhqjj DO BAR_1_OF__09c0rhqjj_FB2P + + DEFINE BAR 2 OF _09c0rhqjj PROMPT "Aport asociati" ; + MESSAGE '203 :456 ' + ON SELECTION BAR 2 OF _09c0rhqjj DO BAR_2_OF__09c0rhqjj_FB2P + + DEFINE BAR 3 OF _09c0rhqjj PROMPT "Prin furnizori" ; + MESSAGE '203 :404 ;4426:404 ' + ON SELECTION BAR 3 OF _09c0rhqjj DO BAR_3_OF__09c0rhqjj_FB2P + + DEFINE BAR 3 OF _09c0r8r60 PROMPT "Concesiuni,brevete 205" + ON BAR 3 OF _09c0r8r60 ACTIVATE POPUP Concesiuni + + *---------------------------------- + DEFINE POPUP Concesiuni SHORTCUT RELATIVE + DEFINE BAR 1 OF Concesiuni PROMPT "Primite cu titlu gratuit" ; + MESSAGE '205 :131 ' + ON SELECTION BAR 1 OF Concesiuni DO BAR_1_OF_Concesiuni_FB2P + + DEFINE BAR 2 OF Concesiuni PROMPT "Ca urmare a chelt. de dezvoltare" ; + MESSAGE '205 :203 ' + ON SELECTION BAR 2 OF Concesiuni DO BAR_2_OF_Concesiuni_FB2P + + DEFINE BAR 3 OF Concesiuni PROMPT "Prin furnizori" ; + MESSAGE '205 :404 ;4426:404 ' + ON SELECTION BAR 3 OF Concesiuni DO BAR_3_OF_Concesiuni_FB2P + + DEFINE BAR 4 OF Concesiuni PROMPT "Aport asociati" ; + MESSAGE '205 :456 ' + ON SELECTION BAR 4 OF Concesiuni DO BAR_4_OF_Concesiuni_FB2P + + DEFINE BAR 5 OF Concesiuni PROMPT "Realizate pe cont propriu" ; + MESSAGE '205 :721 ' + ON SELECTION BAR 5 OF Concesiuni DO BAR_5_OF_Concesiuni_FB2P + + DEFINE BAR 4 OF _09c0r8r60 PROMPT "Fond comercial 207" + ON BAR 4 OF _09c0r8r60 ACTIVATE POPUP NewItem + + *---------------------------------- + DEFINE POPUP NewItem SHORTCUT RELATIVE + DEFINE BAR 1 OF NewItem PROMPT "Aport asociati" ; + MESSAGE '207 :456 ' + ON SELECTION BAR 1 OF NewItem DO BAR_1_OF_NewItem_FB2P + + DEFINE BAR 2 OF NewItem PROMPT "De la furnizori" ; + MESSAGE '207 :404 ;4426:404 ' + ON SELECTION BAR 2 OF NewItem DO BAR_2_OF_NewItem_FB2P + + DEFINE BAR 5 OF _09c0r8r60 PROMPT "Alte imobilizari necorporale 208" + ON BAR 5 OF _09c0r8r60 ACTIVATE POPUP Alteimobil + + *---------------------------------- + DEFINE POPUP Alteimobil SHORTCUT RELATIVE + DEFINE BAR 1 OF Alteimobil PROMPT "Realizate pe cont propriu" ; + MESSAGE '208 :721 ' + ON SELECTION BAR 1 OF Alteimobil DO BAR_1_OF_Alteimobil_FB2P + + DEFINE BAR 2 OF Alteimobil PROMPT "Aport asociati" ; + MESSAGE '208 :456 ' + ON SELECTION BAR 2 OF Alteimobil DO BAR_2_OF_Alteimobil_FB2P + + DEFINE BAR 3 OF Alteimobil PROMPT "Prin furnizori" ; + MESSAGE '208 :404 ;4426:404 ' + ON SELECTION BAR 3 OF Alteimobil DO BAR_3_OF_Alteimobil_FB2P + +DEFINE BAR 2 OF _09c0qzbvl PROMPT "Vanzare" +ON BAR 2 OF _09c0qzbvl ACTIVATE POPUP _0u60orcae + + *---------------------------------- + DEFINE POPUP _0u60orcae SHORTCUT RELATIVE + DEFINE BAR 1 OF _0u60orcae PROMPT "Cheltuieli de dezvoltare 203" ; + MESSAGE '6583:203 ' + ON SELECTION BAR 1 OF _0u60orcae DO BAR_1_OF__0u60orcae_FB2P + + DEFINE BAR 2 OF _0u60orcae PROMPT "Concesiuni, brevete si licente 205" ; + MESSAGE '6583:205 ' + ON SELECTION BAR 2 OF _0u60orcae DO BAR_2_OF__0u60orcae_FB2P + + DEFINE BAR 3 OF _0u60orcae PROMPT "Fond comercial 207" ; + MESSAGE '6583:207 ' + ON SELECTION BAR 3 OF _0u60orcae DO BAR_3_OF__0u60orcae_FB2P + +DEFINE BAR 3 OF _09c0qzbvl PROMPT "Inchidere" +ON BAR 3 OF _09c0qzbvl ACTIVATE POPUP _09c0rf0za + + *---------------------------------- + DEFINE POPUP _09c0rf0za SHORTCUT RELATIVE + DEFINE BAR 1 OF _09c0rf0za PROMPT "Cheltuieli de constituire 201" ; + MESSAGE '2801:201 ' + ON SELECTION BAR 1 OF _09c0rf0za DO BAR_1_OF__09c0rf0za_FB2P + + DEFINE BAR 2 OF _09c0rf0za PROMPT "Cheltuieli de cercetare dezvoltare 203" ; + MESSAGE '2803:203 ' + ON SELECTION BAR 2 OF _09c0rf0za DO BAR_2_OF__09c0rf0za_FB2P + + DEFINE BAR 3 OF _09c0rf0za PROMPT "Concesiuni brevete 205" ; + MESSAGE '2805:205 ' + ON SELECTION BAR 3 OF _09c0rf0za DO BAR_3_OF__09c0rf0za_FB2P + + DEFINE BAR 4 OF _09c0rf0za PROMPT "Fond comercial 207" ; + MESSAGE '2807:207 ' + ON SELECTION BAR 4 OF _09c0rf0za DO BAR_4_OF__09c0rf0za_FB2P +ACTIVATE POPUP _09c0qzbvl + +* + +* +PROCEDURE BAR_1_OF_Cheltuieli_FB2P + *DO ABC1 WITH '201',"5121" + lans(10126) +ENDPROC && BAR_1_OF_Cheltuieli_FB2P + +PROCEDURE BAR_2_OF_Cheltuieli_FB2P + *DO ABC1 WITH '201 ',"5311" + lans(10127) +ENDPROC && BAR_2_OF_Cheltuieli_FB2P + +PROCEDURE BAR_3_OF_Cheltuieli_FB2P + lans(10128) +ENDPROC && BAR_3_OF_Cheltuieli_FB2P + +PROCEDURE BAR_4_OF_Cheltuieli_FB2P + lans(10589) +ENDPROC && BAR_4_OF_Cheltuieli_FB2P + +PROCEDURE BAR_1_OF__09c0rhqjj_FB2P + *!* DO ABC1 WITH '203 ',"5121" + *DO ABC1 WITH '203 ',"721" + lans(10129) +ENDPROC && BAR_1_OF__09c0rhqjj_FB2P + +PROCEDURE BAR_2_OF__09c0rhqjj_FB2P + *!* DO ABC1 WITH '203 ',"5311" + *DO ABC1 WITH '203 ',"456 " + lans(10130) +ENDPROC && BAR_2_OF__09c0rhqjj_FB2P + +PROCEDURE BAR_3_OF__09c0rhqjj_FB2P + lans(10131) + *!* *!* DO ABC1 WITH '203 ',"404 " + *!* DEB='203 ' + *!* M.SCD=DEB + *!* M.SCD1=DEB + *!* SCC1='404 ' + *!* SCD2='4426' + *!* SCC2=SCC1 + + *!* ***DO ACTFIX.SPR &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& + *!* CLASAACT='ACTFIX404' + *!* OA=CREA(CLASAACT) + *!* OA.SHOW(1) + *!* * + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + *!* DO CODARE + *!* do pnir + + *!* M.TOTCTVA=M.TOTFTVA+M.TOTTVA + *!* *********** + *!* DO CONTABILIZEAZA WITH SCD1,SCC1,M.TOTFTVA ,CLASAACT + *!* ************* + *!* IF m.NEIMPOZAB>0 + *!* m.num=m.nume_2 + *!* m.nume_2='NEIMPOZABIL ' + *!* DO CONTABILIZEAZA WITH SCD2,SCC2,0 ,CLASAACT + *!* M.NUME_2=M.NUM + *!* ENDIF + *!* IF m.totftvaI>0 + *!* m.num=m.nume_2 + + *!* m.nume_2='TVA '+str(m.ctvai,5,2) + *!* DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAI ,CLASAACT + *!* M.NUME_2=M.NUM + *!* ENDIF + *!* IF m.totftvaM>0 + *!* m.num=m.nume_2 + + *!* m.nume_2='TVA '+str(m.ctvaM,5,2) + *!* DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAM ,CLASAACT + *!* M.NUME_2=M.NUM + *!* ENDIF + *!* SELE FURNIZ404 + *!* set filter to + *!* loca for allt(nume)=allt(m.nume) + *!* if flock() + *!* repl achizit with achizit+M.TOTCTVA + *!* endif + *!* unlock + *!* DO ADCUMP404 + *!* ********** + *!* DO STERGE +ENDPROC && BAR_3_OF__09c0rhqjj_FB2P + +PROCEDURE BAR_1_OF_Concesiuni_FB2P + *!* DO ABC1 WITH '205 ',"5121" - Prin banca + *DO ABC1 WITH '205 ',"131 " + lans(10132) +ENDPROC && BAR_1_OF_Concesiuni_FB2P + +PROCEDURE BAR_2_OF_Concesiuni_FB2P + *!* DO ABC1 WITH '205 ',"5311" - Prin casa + *DO ABC1 WITH '205 ',"203 " + lans(10133) +ENDPROC && BAR_2_OF_Concesiuni_FB2P + +PROCEDURE BAR_3_OF_Concesiuni_FB2P + lans(10134) + *!* *!* DO ABC1 WITH '205 ',"404 " + *!* DEB='205 ' + *!* M.SCD=DEB + *!* M.SCD1=DEB + *!* SCC1='404 ' + *!* SCD2='4426' + *!* SCC2=SCC1 + + *!* ***DO ACTFIX.SPR &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& + *!* CLASAACT='ACTFIX404' + *!* OA=CREA(CLASAACT) + *!* OA.SHOW(1) + *!* * + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + *!* DO CODARE + *!* do pnir + + *!* M.TOTCTVA=M.TOTFTVA+M.TOTTVA + *!* *********** + *!* DO CONTABILIZEAZA WITH SCD1,SCC1,M.TOTFTVA ,CLASAACT + *!* ************* + *!* IF m.NEIMPOZAB>0 + *!* m.num=m.nume_2 + *!* m.nume_2='NEIMPOZABIL ' + *!* DO CONTABILIZEAZA WITH SCD2,SCC2,0 ,CLASAACT + *!* M.NUME_2=M.NUM + *!* ENDIF + *!* IF m.totftvaI>0 + *!* m.num=m.nume_2 + + *!* m.nume_2='TVA '+str(m.ctvai,5,2) + *!* DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAI ,CLASAACT + *!* M.NUME_2=M.NUM + *!* ENDIF + *!* IF m.totftvaM>0 + *!* m.num=m.nume_2 + + *!* m.nume_2='TVA '+str(m.ctvaM,5,2) + *!* DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAM ,CLASAACT + *!* M.NUME_2=M.NUM + *!* ENDIF + *!* SELE FURNIZ404 + *!* set filter to + *!* loca for allt(nume)=allt(m.nume) + *!* if flock() + *!* repl achizit with achizit+M.TOTCTVA + *!* endif + *!* unlock + *!* DO ADCUMP404 + *!* ********** + *!* DO STERGE +ENDPROC && BAR_3_OF_Concesiuni_FB2P + +PROCEDURE BAR_4_OF_Concesiuni_FB2P + *DO ABC1 WITH '205 ',"456 " + lans(10135) +ENDPROC && BAR_4_OF_Concesiuni_FB2P + +PROCEDURE BAR_5_OF_Concesiuni_FB2P + *DO ABC1 WITH '205 ',"721 " + lans(10136) +ENDPROC && BAR_5_OF_Concesiuni_FB2P + +PROCEDURE BAR_1_OF_NewItem_FB2P + *DO ABC1 WITH '207 ','456 ' + lans(10137) +ENDPROC && BAR_1_OF_NewItem_FB2P + +PROCEDURE BAR_2_OF_NewItem_FB2P + lans(10138) + *!* DEB='207 ' + *!* M.SCD=DEB + *!* M.SCD1=DEB + *!* SCC1='404 ' + *!* SCD2='4426' + *!* SCC2=SCC1 + + *!* ***DO ACTFIX.SPR &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& + *!* CLASAACT='ACTFIX404' + *!* OA=CREA(CLASAACT) + *!* OA.SHOW(1) + *!* * + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + *!* DO CODARE + *!* do pnir + + *!* M.TOTCTVA=M.TOTFTVA+M.TOTTVA + *!* *********** + *!* DO CONTABILIZEAZA WITH SCD1,SCC1,M.TOTFTVA ,CLASAACT + *!* ************* + *!* IF m.NEIMPOZAB>0 + *!* m.num=m.nume_2 + *!* m.nume_2='NEIMPOZABIL ' + *!* DO CONTABILIZEAZA WITH SCD2,SCC2,0 ,CLASAACT + *!* M.NUME_2=M.NUM + *!* ENDIF + *!* IF m.totftvaI>0 + *!* m.num=m.nume_2 + + *!* m.nume_2='TVA '+str(m.ctvai,5,2) + *!* DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAI ,CLASAACT + *!* M.NUME_2=M.NUM + *!* ENDIF + *!* IF m.totftvaM>0 + *!* m.num=m.nume_2 + + *!* m.nume_2='TVA '+str(m.ctvaM,5,2) + *!* DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAM ,CLASAACT + *!* M.NUME_2=M.NUM + *!* ENDIF + *!* SELE FURNIZ404 + *!* set filter to + *!* loca for allt(nume)=allt(m.nume) + *!* if flock() + *!* repl achizit with achizit+M.TOTCTVA + *!* endif + *!* unlock + *!* DO ADCUMP404 + *!* ********** + *!* DO STERGE +ENDPROC && BAR_2_OF_NewItem_FB2P + +PROCEDURE BAR_1_OF_Alteimobil_FB2P + *DO ABC1 WITH '208 ',"721" + lans(10139) +ENDPROC && BAR_1_OF_Alteimobil_FB2P + +PROCEDURE BAR_2_OF_Alteimobil_FB2P + *DO ABC1 WITH '208 ',"456 " + lans(10140) +ENDPROC && BAR_2_OF_Alteimobil_FB2P + +PROCEDURE BAR_3_OF_Alteimobil_FB2P + lans(10141) + *!* *!* DO ABC1 WITH '208 ',"404 " + *!* DEB='208 ' + *!* M.SCD=DEB + *!* M.SCD1=DEB + *!* SCC1='404 ' + *!* SCD2='4426' + *!* SCC2=SCC1 + + *!* ***DO ACTFIX.SPR &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& + *!* CLASAACT='ACTFIX404' + *!* OA=CREA(CLASAACT) + *!* OA.SHOW(1) + *!* * + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + *!* DO CODARE + *!* do pnir + + *!* M.TOTCTVA=M.TOTFTVA+M.TOTTVA + *!* *********** + *!* DO CONTABILIZEAZA WITH SCD1,SCC1,M.TOTFTVA ,CLASAACT + *!* ************* + *!* IF m.NEIMPOZAB>0 + *!* m.num=m.nume_2 + *!* m.nume_2='NEIMPOZABIL ' + *!* DO CONTABILIZEAZA WITH SCD2,SCC2,0 ,CLASAACT + *!* M.NUME_2=M.NUM + *!* ENDIF + *!* IF m.totftvaI>0 + *!* m.num=m.nume_2 + + *!* m.nume_2='TVA '+str(m.ctvai,5,2) + *!* DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAI ,CLASAACT + *!* M.NUME_2=M.NUM + *!* ENDIF + *!* IF m.totftvaM>0 + *!* m.num=m.nume_2 + + *!* m.nume_2='TVA '+str(m.ctvaM,5,2) + *!* DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAM ,CLASAACT + *!* M.NUME_2=M.NUM + *!* ENDIF + *!* SELE FURNIZ404 + *!* set filter to + *!* loca for allt(nume)=allt(m.nume) + *!* if flock() + *!* repl achizit with achizit+M.TOTCTVA + *!* endif + *!* unlock + *!* DO ADCUMP404 + *!* ********** + *!* DO STERGE +ENDPROC && BAR_3_OF_Alteimobil_FB2P + +PROCEDURE BAR_1_OF__0u60orcae_FB2P + *DO ABC1 WITH '6583',"203 " + lans(10142) +ENDPROC && BAR_1_OF__0u60orcae_FB2P + +PROCEDURE BAR_2_OF__0u60orcae_FB2P + *DO ABC1 WITH '6583',"205 " + lans(10143) +ENDPROC && BAR_2_OF__0u60orcae_FB2P + +PROCEDURE BAR_3_OF__0u60orcae_FB2P + *DO ABC1 WITH '6583',"207 " + lans(10144) +ENDPROC && BAR_3_OF__0u60orcae_FB2P + +PROCEDURE BAR_1_OF__09c0rf0za_FB2P + *DO ABC1 WITH '2801',"201 " + lans(10145) +ENDPROC && BAR_1_OF__09c0rf0za_FB2P + +PROCEDURE BAR_2_OF__09c0rf0za_FB2P + *DO ABC1 WITH '2803',"203 " + lans(10146) +ENDPROC && BAR_2_OF__09c0rf0za_FB2P + +PROCEDURE BAR_3_OF__09c0rf0za_FB2P + *DO ABC1 WITH '2805',"205 " + lans(10147) +ENDPROC && BAR_3_OF__09c0rf0za_FB2P + +PROCEDURE BAR_4_OF__09c0rf0za_FB2P + *DO ABC1 WITH '2807','207 ' + lans(10148) +ENDPROC && BAR_4_OF__09c0rf0za_FB2P + +* diff --git a/Meniuri/imobilizari3.mn2 b/Meniuri/imobilizari3.mn2 new file mode 100644 index 0000000..907dc9f --- /dev/null +++ b/Meniuri/imobilizari3.mn2 @@ -0,0 +1,802 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="imobilizari3.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP _09c0r6h54 SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF _09c0r6h54 PROMPT "Terenuri 211" +ON BAR 1 OF _09c0r6h54 ACTIVATE POPUP Terenuri21 + + *---------------------------------- + DEFINE POPUP Terenuri21 SHORTCUT RELATIVE + DEFINE BAR 1 OF Terenuri21 PROMPT "Achizitie" + ON BAR 1 OF Terenuri21 ACTIVATE POPUP Achizitie + + *---------------------------------- + DEFINE POPUP Achizitie SHORTCUT RELATIVE + DEFINE BAR 1 OF Achizitie PROMPT "De la furnizori" ; + MESSAGE '2111:404 ;4426:404 ' + ON SELECTION BAR 1 OF Achizitie DO BAR_1_OF_Achizitie_FB2P + + DEFINE BAR 2 OF Achizitie PROMPT "De la furnizori-taxa inversa" ; + MESSAGE '2111:404' + ON SELECTION BAR 2 OF Achizitie DO BAR_2_OF_Achizitie_FB2P + + DEFINE BAR 3 OF Achizitie PROMPT "Aport asociati" ; + MESSAGE '2111:456 ' + ON SELECTION BAR 3 OF Achizitie DO BAR_3_OF_Achizitie_FB2P + + DEFINE BAR 4 OF Achizitie PROMPT "\-" + ON BAR 4 OF Achizitie ACTIVATE POPUP _2vb0y05pw + + *---------------------------------- + DEFINE POPUP _2vb0y05pw SHORTCUT RELATIVE + DEFINE BAR 5 OF Achizitie PROMPT "Primite cu titlu gratuit, prin donatie (subventie) 131" ; + MESSAGE '2111:131 ' + ON SELECTION BAR 5 OF Achizitie DO BAR_5_OF_Achizitie_FB2P + + DEFINE BAR 6 OF Achizitie PROMPT "Subventii pentru investitii 4751" ; + MESSAGE '2111:4751' + ON SELECTION BAR 6 OF Achizitie lans_generic(10604,'2111',,'4751') + + DEFINE BAR 7 OF Achizitie PROMPT "Primite cu titlu gratuit 4753" ; + MESSAGE '2111:4753' + ON SELECTION BAR 7 OF Achizitie lans_generic(10604,'2111',,'4753') + + DEFINE BAR 2 OF Terenuri21 PROMPT "Vanzare" + ON BAR 2 OF Terenuri21 ACTIVATE POPUP Vanzare + + *---------------------------------- + DEFINE POPUP Vanzare SHORTCUT RELATIVE + DEFINE BAR 1 OF Vanzare PROMPT "Propriu zisa" ; + MESSAGE '461:7583;461 :4427' + ON SELECTION BAR 1 OF Vanzare DO BAR_1_OF_Vanzare_FB2P + + DEFINE BAR 2 OF Vanzare PROMPT "Scadere din gestiune a terenurilor vandute" ; + MESSAGE '6583:2111' + ON SELECTION BAR 2 OF Vanzare DO BAR_2_OF_Vanzare_FB2P + + DEFINE BAR 3 OF Terenuri21 PROMPT "Retragere asociat" ; + MESSAGE '456 :211 ' + ON SELECTION BAR 3 OF Terenuri21 DO BAR_3_OF_Terenuri21_FB2P + +DEFINE BAR 2 OF _09c0r6h54 PROMPT "Constructii 212" +ON BAR 2 OF _09c0r6h54 ACTIVATE POPUP _0u60pi7rd + + *---------------------------------- + DEFINE POPUP _0u60pi7rd SHORTCUT RELATIVE + DEFINE BAR 1 OF _0u60pi7rd PROMPT "Achizitie" + ON BAR 1 OF _0u60pi7rd ACTIVATE POPUP _0u60pirxi + + *---------------------------------- + DEFINE POPUP _0u60pirxi SHORTCUT RELATIVE + DEFINE BAR 1 OF _0u60pirxi PROMPT "De la furnizori" ; + MESSAGE '212 :404 ;4426:404 ' + ON SELECTION BAR 1 OF _0u60pirxi DO BAR_1_OF__0u60pirxi_FB2P + + DEFINE BAR 2 OF _0u60pirxi PROMPT "De la furnizori-taxa inversa" ; + MESSAGE '212 :404 ' + ON SELECTION BAR 2 OF _0u60pirxi DO BAR_2_OF__0u60pirxi_FB2P + + DEFINE BAR 3 OF _0u60pirxi PROMPT "Aport asociati" ; + MESSAGE '212 :456 ' + ON SELECTION BAR 3 OF _0u60pirxi DO BAR_3_OF__0u60pirxi_FB2P + + DEFINE BAR 4 OF _0u60pirxi PROMPT "Din productia proprie" ; + MESSAGE '212 :722 ' + ON SELECTION BAR 4 OF _0u60pirxi DO BAR_4_OF__0u60pirxi_FB2P + + DEFINE BAR 5 OF _0u60pirxi PROMPT "\-" + ON BAR 5 OF _0u60pirxi ACTIVATE POPUP _2vb0y2500 + + *---------------------------------- + DEFINE POPUP _2vb0y2500 SHORTCUT RELATIVE + DEFINE BAR 6 OF _0u60pirxi PROMPT "Donatii cu titlu gratuit 131" ; + MESSAGE '212 :131 ' + ON SELECTION BAR 6 OF _0u60pirxi DO BAR_6_OF__0u60pirxi_FB2P + + DEFINE BAR 7 OF _0u60pirxi PROMPT "Subventii pentru investitii 4751" ; + MESSAGE '212 :4751' + ON SELECTION BAR 7 OF _0u60pirxi lans_generic(10604,'212',,'4751') + + DEFINE BAR 8 OF _0u60pirxi PROMPT "Cu titlu gratuit 4753" ; + MESSAGE '212 :4753' + ON SELECTION BAR 8 OF _0u60pirxi lans_generic(10604,'212',,'4753') + + DEFINE BAR 2 OF _0u60pi7rd PROMPT "Vanzare" ; + MESSAGE '461 :7583;461 :4427' + ON SELECTION BAR 2 OF _0u60pi7rd DO BAR_2_OF__0u60pi7rd_FB2P + + DEFINE BAR 3 OF _0u60pi7rd PROMPT "Scoatere din gestiune" + ON BAR 3 OF _0u60pi7rd ACTIVATE POPUP _0u60pngsi + + *---------------------------------- + DEFINE POPUP _0u60pngsi SHORTCUT RELATIVE + DEFINE BAR 1 OF _0u60pngsi PROMPT "Amortizare integrala" ; + MESSAGE '281 :212 ' + ON SELECTION BAR 1 OF _0u60pngsi DO BAR_1_OF__0u60pngsi_FB2P + + DEFINE BAR 2 OF _0u60pngsi PROMPT "Amortizare partiala" ; + MESSAGE '281 :212 ;6583:212 ' + ON SELECTION BAR 2 OF _0u60pngsi DO BAR_2_OF__0u60pngsi_FB2P + + DEFINE BAR 3 OF _0u60pngsi PROMPT "Restituire catre asociati" ; + MESSAGE '456 :212 ' + ON SELECTION BAR 3 OF _0u60pngsi DO BAR_3_OF__0u60pngsi_FB2P + +DEFINE BAR 3 OF _09c0r6h54 PROMPT "Echipamente tehnologice 2131" +ON BAR 3 OF _09c0r6h54 ACTIVATE POPUP _0u60prr10 + + *---------------------------------- + DEFINE POPUP _0u60prr10 SHORTCUT RELATIVE + DEFINE BAR 1 OF _0u60prr10 PROMPT "Achizitie" + ON BAR 1 OF _0u60prr10 ACTIVATE POPUP _0u60pwbws + + *---------------------------------- + DEFINE POPUP _0u60pwbws SHORTCUT RELATIVE + DEFINE BAR 1 OF _0u60pwbws PROMPT "De la furnizori" ; + MESSAGE '2131:404 ;4426:404 ' + ON SELECTION BAR 1 OF _0u60pwbws DO BAR_1_OF__0u60pwbws_FB2P + + DEFINE BAR 2 OF _0u60pwbws PROMPT "Aport asociati" ; + MESSAGE '2131:456 ' + ON SELECTION BAR 2 OF _0u60pwbws DO BAR_2_OF__0u60pwbws_FB2P + + DEFINE BAR 3 OF _0u60pwbws PROMPT "Din productia proprie" ; + MESSAGE '2131:722 ' + ON SELECTION BAR 3 OF _0u60pwbws DO BAR_3_OF__0u60pwbws_FB2P + + DEFINE BAR 4 OF _0u60pwbws PROMPT "\-" + ON BAR 4 OF _0u60pwbws ACTIVATE POPUP _2vb0y5yvk + + *---------------------------------- + DEFINE POPUP _2vb0y5yvk SHORTCUT RELATIVE + DEFINE BAR 5 OF _0u60pwbws PROMPT "Donatii cu titlu gratuit 131" ; + MESSAGE '2131:131 ' + ON SELECTION BAR 5 OF _0u60pwbws DO BAR_5_OF__0u60pwbws_FB2P + + DEFINE BAR 6 OF _0u60pwbws PROMPT "Subventii pentru investitii 4751" ; + MESSAGE '2131:4751' + ON SELECTION BAR 6 OF _0u60pwbws lans_generic(10604,'2131',,'4751') + + DEFINE BAR 7 OF _0u60pwbws PROMPT "Cu titlu gratuit 4753" ; + MESSAGE '2131:4753' + ON SELECTION BAR 7 OF _0u60pwbws lans_generic(10604,'2131',,'4753') + + DEFINE BAR 2 OF _0u60prr10 PROMPT " Vanzare" ; + MESSAGE '461 :7583;461 :4427' + ON SELECTION BAR 2 OF _0u60prr10 DO BAR_2_OF__0u60prr10_FB2P + + DEFINE BAR 3 OF _0u60prr10 PROMPT "Scoatere din gestiune" + ON BAR 3 OF _0u60prr10 ACTIVATE POPUP _0u60q5p9b + + *---------------------------------- + DEFINE POPUP _0u60q5p9b SHORTCUT RELATIVE + DEFINE BAR 1 OF _0u60q5p9b PROMPT "Amortizare integrala" ; + MESSAGE '281 :2131' + ON SELECTION BAR 1 OF _0u60q5p9b DO BAR_1_OF__0u60q5p9b_FB2P + + DEFINE BAR 2 OF _0u60q5p9b PROMPT "Amortizare partiala" ; + MESSAGE '281 :2131;6583:2131' + ON SELECTION BAR 2 OF _0u60q5p9b DO BAR_2_OF__0u60q5p9b_FB2P + + DEFINE BAR 3 OF _0u60q5p9b PROMPT "Restituire catre asociati" ; + MESSAGE '456 :2131' + ON SELECTION BAR 3 OF _0u60q5p9b DO BAR_3_OF__0u60q5p9b_FB2P + +DEFINE BAR 4 OF _09c0r6h54 PROMPT "Aparate de masura 2132" +ON BAR 4 OF _09c0r6h54 ACTIVATE POPUP _0u60qd0ny + + *---------------------------------- + DEFINE POPUP _0u60qd0ny SHORTCUT RELATIVE + DEFINE BAR 1 OF _0u60qd0ny PROMPT "Achizitie" + ON BAR 1 OF _0u60qd0ny ACTIVATE POPUP _0u60qe5ej + + *---------------------------------- + DEFINE POPUP _0u60qe5ej SHORTCUT RELATIVE + DEFINE BAR 1 OF _0u60qe5ej PROMPT "De la furnizori" ; + MESSAGE '2132:404 ;4426:404 ' + ON SELECTION BAR 1 OF _0u60qe5ej DO BAR_1_OF__0u60qe5ej_FB2P + + DEFINE BAR 2 OF _0u60qe5ej PROMPT "Aport asociati" ; + MESSAGE '2132:456 ' + ON SELECTION BAR 2 OF _0u60qe5ej DO BAR_2_OF__0u60qe5ej_FB2P + + DEFINE BAR 3 OF _0u60qe5ej PROMPT "Din productia proprie" ; + MESSAGE '2132:722 ' + ON SELECTION BAR 3 OF _0u60qe5ej DO BAR_3_OF__0u60qe5ej_FB2P + + DEFINE BAR 4 OF _0u60qe5ej PROMPT "\-" + ON BAR 4 OF _0u60qe5ej ACTIVATE POPUP _2vb0y72bk + + *---------------------------------- + DEFINE POPUP _2vb0y72bk SHORTCUT RELATIVE + DEFINE BAR 5 OF _0u60qe5ej PROMPT "Donatii cu titlu gratuit 131" ; + MESSAGE '2132:131 ' + ON SELECTION BAR 5 OF _0u60qe5ej DO BAR_5_OF__0u60qe5ej_FB2P + + DEFINE BAR 6 OF _0u60qe5ej PROMPT "Subventii pentru investii 4751" ; + MESSAGE '2132:4751' + ON SELECTION BAR 6 OF _0u60qe5ej lans_generic(10577,'2132',,'4751') + + DEFINE BAR 7 OF _0u60qe5ej PROMPT "Cu titlu gratuit 4753" ; + MESSAGE '2132:4753' + ON SELECTION BAR 7 OF _0u60qe5ej lans_generic(10577,'2132',,'4753') + + DEFINE BAR 2 OF _0u60qd0ny PROMPT "Vanzare" ; + MESSAGE '461 :7583;461 :4427' + ON SELECTION BAR 2 OF _0u60qd0ny DO BAR_2_OF__0u60qd0ny_FB2P + + DEFINE BAR 3 OF _0u60qd0ny PROMPT "Scoatere din gestiune" + ON BAR 3 OF _0u60qd0ny ACTIVATE POPUP _0u60qpa2l + + *---------------------------------- + DEFINE POPUP _0u60qpa2l SHORTCUT RELATIVE + DEFINE BAR 1 OF _0u60qpa2l PROMPT "Amortizare integrala" ; + MESSAGE '281 :2132' + ON SELECTION BAR 1 OF _0u60qpa2l DO BAR_1_OF__0u60qpa2l_FB2P + + DEFINE BAR 2 OF _0u60qpa2l PROMPT "Amortizare partiala" ; + MESSAGE '281 :2132;6583:2132' + ON SELECTION BAR 2 OF _0u60qpa2l DO BAR_2_OF__0u60qpa2l_FB2P + + DEFINE BAR 3 OF _0u60qpa2l PROMPT "Restituire catre asociati" ; + MESSAGE '456 :2132' + ON SELECTION BAR 3 OF _0u60qpa2l DO BAR_3_OF__0u60qpa2l_FB2P + +DEFINE BAR 5 OF _09c0r6h54 PROMPT "Mijloace de transport 2133" +ON BAR 5 OF _09c0r6h54 ACTIVATE POPUP _0u60quxkz + + *---------------------------------- + DEFINE POPUP _0u60quxkz SHORTCUT RELATIVE + DEFINE BAR 1 OF _0u60quxkz PROMPT "Achizitie" + ON BAR 1 OF _0u60quxkz ACTIVATE POPUP _0u60qv453 + + *---------------------------------- + DEFINE POPUP _0u60qv453 SHORTCUT RELATIVE + DEFINE BAR 1 OF _0u60qv453 PROMPT "De la furnizori" ; + MESSAGE '2133:404 ;4426:404 ' + ON SELECTION BAR 1 OF _0u60qv453 DO BAR_1_OF__0u60qv453_FB2P + + DEFINE BAR 2 OF _0u60qv453 PROMPT "De la furnizori-taxa inversa" ; + MESSAGE '2133:404' + ON SELECTION BAR 2 OF _0u60qv453 DO BAR_2_OF__0u60qv453_FB2P + + DEFINE BAR 3 OF _0u60qv453 PROMPT "Aport asociati" ; + MESSAGE '2133:456 ' + ON SELECTION BAR 3 OF _0u60qv453 DO BAR_3_OF__0u60qv453_FB2P + + DEFINE BAR 4 OF _0u60qv453 PROMPT "Din productia proprie" ; + MESSAGE '2133:722 ' + ON SELECTION BAR 4 OF _0u60qv453 DO BAR_4_OF__0u60qv453_FB2P + + DEFINE BAR 5 OF _0u60qv453 PROMPT "\-" + ON BAR 5 OF _0u60qv453 ACTIVATE POPUP _2vb0zwc5z + + *---------------------------------- + DEFINE POPUP _2vb0zwc5z SHORTCUT RELATIVE + DEFINE BAR 6 OF _0u60qv453 PROMPT "Donatii cu titlu gratuit 131" ; + MESSAGE '2133:131 ' + ON SELECTION BAR 6 OF _0u60qv453 DO BAR_6_OF__0u60qv453_FB2P + + DEFINE BAR 7 OF _0u60qv453 PROMPT "Subventii pentru investii 4751" ; + MESSAGE '2133:4751' + ON SELECTION BAR 7 OF _0u60qv453 lans_generic(10604,'2132',,'4751') + + DEFINE BAR 8 OF _0u60qv453 PROMPT "Cu titlu gratuit 4753" ; + MESSAGE '2133:4753' + ON SELECTION BAR 8 OF _0u60qv453 lans_generic(10604,'2132',,'4753') + + DEFINE BAR 2 OF _0u60quxkz PROMPT "Vanzare" ; + MESSAGE '461 :7583;461 :4427' + ON SELECTION BAR 2 OF _0u60quxkz DO BAR_2_OF__0u60quxkz_FB2P + + DEFINE BAR 3 OF _0u60quxkz PROMPT "Scoatere din gestiune" + ON BAR 3 OF _0u60quxkz ACTIVATE POPUP Scoateredi + + *---------------------------------- + DEFINE POPUP Scoateredi SHORTCUT RELATIVE + DEFINE BAR 1 OF Scoateredi PROMPT "Amortizare integrala" ; + MESSAGE '281 :2133' + ON SELECTION BAR 1 OF Scoateredi DO BAR_1_OF_Scoateredi_FB2P + + DEFINE BAR 2 OF Scoateredi PROMPT "Amortizare partiala" ; + MESSAGE '281 :2133;6583:2133' + ON SELECTION BAR 2 OF Scoateredi DO BAR_2_OF_Scoateredi_FB2P + + DEFINE BAR 3 OF Scoateredi PROMPT "Restituire catre asociati" ; + MESSAGE '456 :2133' + ON SELECTION BAR 3 OF Scoateredi DO BAR_3_OF_Scoateredi_FB2P + +DEFINE BAR 6 OF _09c0r6h54 PROMPT "Mobilier birotica 214" +ON BAR 6 OF _09c0r6h54 ACTIVATE POPUP _0u60r4hxo + + *---------------------------------- + DEFINE POPUP _0u60r4hxo SHORTCUT RELATIVE + DEFINE BAR 1 OF _0u60r4hxo PROMPT "Achizitie" + ON BAR 1 OF _0u60r4hxo ACTIVATE POPUP _0u60r4pla + + *---------------------------------- + DEFINE POPUP _0u60r4pla SHORTCUT RELATIVE + DEFINE BAR 1 OF _0u60r4pla PROMPT "De la furnizori" ; + MESSAGE '214 :404 ;4426:404 ' + ON SELECTION BAR 1 OF _0u60r4pla DO BAR_1_OF__0u60r4pla_FB2P + + DEFINE BAR 2 OF _0u60r4pla PROMPT "Aport asociati" ; + MESSAGE '214 :456 ' + ON SELECTION BAR 2 OF _0u60r4pla DO BAR_2_OF__0u60r4pla_FB2P + + DEFINE BAR 3 OF _0u60r4pla PROMPT "Din productia proprie" ; + MESSAGE '214 :722 ' + ON SELECTION BAR 3 OF _0u60r4pla DO BAR_3_OF__0u60r4pla_FB2P + + DEFINE BAR 4 OF _0u60r4pla PROMPT "\-" + ON BAR 4 OF _0u60r4pla ACTIVATE POPUP _2vb104ksz + + *---------------------------------- + DEFINE POPUP _2vb104ksz SHORTCUT RELATIVE + DEFINE BAR 5 OF _0u60r4pla PROMPT "Donatii cu titlu gratuit" ; + MESSAGE '214 :131 ' + ON SELECTION BAR 5 OF _0u60r4pla DO BAR_5_OF__0u60r4pla_FB2P + + DEFINE BAR 6 OF _0u60r4pla PROMPT "Subventii pentru investitii 4751" ; + MESSAGE '214 :4751' + ON SELECTION BAR 6 OF _0u60r4pla lans_generic(10604,'214',,'4751') + + DEFINE BAR 7 OF _0u60r4pla PROMPT "Cu titlu gratuit 4753" ; + MESSAGE '214 :4753' + ON SELECTION BAR 7 OF _0u60r4pla lans_generic(10604,'214',,'4753') + + DEFINE BAR 2 OF _0u60r4hxo PROMPT "Vanzare" ; + MESSAGE '461 :7583;461 :4427' + ON SELECTION BAR 2 OF _0u60r4hxo DO BAR_2_OF__0u60r4hxo_FB2P + + DEFINE BAR 3 OF _0u60r4hxo PROMPT "Scoatere din gestiune" + ON BAR 3 OF _0u60r4hxo ACTIVATE POPUP _0u60rb80y + + *---------------------------------- + DEFINE POPUP _0u60rb80y SHORTCUT RELATIVE + DEFINE BAR 1 OF _0u60rb80y PROMPT "Amortizare integrala" ; + MESSAGE '281 :214 ' + ON SELECTION BAR 1 OF _0u60rb80y DO BAR_1_OF__0u60rb80y_FB2P + + DEFINE BAR 2 OF _0u60rb80y PROMPT "Amortizare partiala" ; + MESSAGE '281 :214 ;6583:214 ' + ON SELECTION BAR 2 OF _0u60rb80y DO BAR_2_OF__0u60rb80y_FB2P + + DEFINE BAR 3 OF _0u60rb80y PROMPT "Restituire catre asociati" ; + MESSAGE '456 :214 ' + ON SELECTION BAR 3 OF _0u60rb80y DO BAR_3_OF__0u60rb80y_FB2P +ACTIVATE POPUP _09c0r6h54 + +* + +* +PROCEDURE BAR_1_OF_Achizitie_FB2P + lans(10080) +ENDPROC && BAR_1_OF_Achizitie_FB2P + +PROCEDURE BAR_2_OF_Achizitie_FB2P + lans(10586) +ENDPROC && BAR_2_OF_Achizitie_FB2P + +PROCEDURE BAR_3_OF_Achizitie_FB2P + *DO ABC1 WITH '2111',"456 " + lans(10081) +ENDPROC && BAR_3_OF_Achizitie_FB2P + +PROCEDURE BAR_5_OF_Achizitie_FB2P + *DO ABC1 WITH '2111',"131 " + lans(10082) +ENDPROC && BAR_5_OF_Achizitie_FB2P + +PROCEDURE BAR_1_OF_Vanzare_FB2P + *!*vvv DO ABC2 WITH '461 ',"7721","461 ","4427" + *DO ABC2 WITH '461 ',"7583","461 ","4427" + lans(10083) +ENDPROC && BAR_1_OF_Vanzare_FB2P + +PROCEDURE BAR_2_OF_Vanzare_FB2P + *!* DO ABC1 WITH '6721',"2111" + *DO ABC1 WITH '6583',"2111" + lans(10084) +ENDPROC && BAR_2_OF_Vanzare_FB2P + +PROCEDURE BAR_3_OF_Terenuri21_FB2P + *DO ABC1 WITH '456 ',"211 " + lans(10085) +ENDPROC && BAR_3_OF_Terenuri21_FB2P + +PROCEDURE BAR_1_OF__0u60pirxi_FB2P + lans(10086) +ENDPROC && BAR_1_OF__0u60pirxi_FB2P + +PROCEDURE BAR_2_OF__0u60pirxi_FB2P + lans(10587) +ENDPROC && BAR_2_OF__0u60pirxi_FB2P + +PROCEDURE BAR_3_OF__0u60pirxi_FB2P + *DO ABC1 WITH '212 ',"456 " + lans(10087) +ENDPROC && BAR_3_OF__0u60pirxi_FB2P + +PROCEDURE BAR_4_OF__0u60pirxi_FB2P + *DO ABC1 WITH '212 ',"722 " + lans(10089) +ENDPROC && BAR_4_OF__0u60pirxi_FB2P + +PROCEDURE BAR_6_OF__0u60pirxi_FB2P + *DO ABC1 WITH '212 ',"131 " + lans(10088) +ENDPROC && BAR_6_OF__0u60pirxi_FB2P + +PROCEDURE BAR_2_OF__0u60pi7rd_FB2P + *DO ABC2 WITH '461 ',"7583","461 ","4427" + lans(10090) +ENDPROC && BAR_2_OF__0u60pi7rd_FB2P + +PROCEDURE BAR_1_OF__0u60pngsi_FB2P + *DO ABC1 WITH '281 ',"212 " + lans(10091) +ENDPROC && BAR_1_OF__0u60pngsi_FB2P + +PROCEDURE BAR_2_OF__0u60pngsi_FB2P + *!* *DO ABC2 WITH '281 ',"212 ","6583","212 " + *!* DO abc1 WITH '2812','212' + *!* ss=m.suma + *!* *m.suma=round((m.ctva-1)*ss,0) + *!* DO abc1 WITH '6583','212' + + lans(10121) +ENDPROC && BAR_2_OF__0u60pngsi_FB2P + +PROCEDURE BAR_3_OF__0u60pngsi_FB2P + *DO ABC1 WITH '456 ',"212 " + lans(10092) +ENDPROC && BAR_3_OF__0u60pngsi_FB2P + +PROCEDURE BAR_1_OF__0u60pwbws_FB2P + *!* *DO ABC2 WITH '2131',"404 ","4426","404 " + + *!* DEB='2131' + *!* M.SCD=DEB + *!* M.SCD1=DEB + *!* SCC1='404 ' + *!* SCD2='4426' + *!* SCC2=SCC1 + + *!* ***DO ACTFIX.SPR &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& + *!* CLASAACT='ACTFIX404' + *!* OA=CREA(CLASAACT) + *!* OA.SHOW(1) + *!* * + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + *!* DO CODARE + *!* do pnir + + *!* M.TOTCTVA=M.TOTFTVA+M.TOTTVA + *!* *********** + *!* DO CONTABILIZEAZA WITH SCD1,SCC1,M.TOTFTVA ,CLASAACT + *!* ************* + *!* IF m.NEIMPOZAB>0 + *!* m.num=m.nume_2 + *!* m.nume_2='NEIMPOZABIL ' + *!* DO CONTABILIZEAZA WITH SCD2,SCC2,0 ,CLASAACT + *!* M.NUME_2=M.NUM + *!* ENDIF + *!* IF m.totftvaI>0 + *!* m.num=m.nume_2 + + *!* m.nume_2='TVA '+str(m.ctvai,5,2) + *!* DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAI ,CLASAACT + *!* M.NUME_2=M.NUM + *!* ENDIF + *!* IF m.totftvaM>0 + *!* m.num=m.nume_2 + + *!* m.nume_2='TVA '+str(m.ctvaM,5,2) + *!* DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAM ,CLASAACT + *!* M.NUME_2=M.NUM + *!* ENDIF + *!* SELE FURNIZ404 + *!* set filter to + *!* loca for allt(nume)=allt(m.nume) + *!* if flock() + *!* repl furnizor.achizit with furnizor.achizit+M.TOTCTVA + *!* endif + *!* unlock + *!* DO ADCUMP404 + *!* ********** + *!* DO STERGE + lans(10093) +ENDPROC && BAR_1_OF__0u60pwbws_FB2P + +PROCEDURE BAR_2_OF__0u60pwbws_FB2P + *DO ABC1 WITH '2131',"456 " + lans(10094) +ENDPROC && BAR_2_OF__0u60pwbws_FB2P + +PROCEDURE BAR_3_OF__0u60pwbws_FB2P + *DO ABC1 WITH '2131','722 ' + lans(10096) +ENDPROC && BAR_3_OF__0u60pwbws_FB2P + +PROCEDURE BAR_5_OF__0u60pwbws_FB2P + *DO ABC1 WITH '2131',"131 " + lans(10095) +ENDPROC && BAR_5_OF__0u60pwbws_FB2P + +PROCEDURE BAR_2_OF__0u60prr10_FB2P + *DO ABC2 WITH '461 ',"7583","461 ","4427" + lans(10097) +ENDPROC && BAR_2_OF__0u60prr10_FB2P + +PROCEDURE BAR_1_OF__0u60q5p9b_FB2P + *DO ABC1 WITH '281 ',"2131" + lans(10098) +ENDPROC && BAR_1_OF__0u60q5p9b_FB2P + +PROCEDURE BAR_2_OF__0u60q5p9b_FB2P + *!* *DO ABC2 WITH '281',"2131",'6583',"2131" + *!* DO abc1 WITH '2813','2131' + *!* ss=m.suma + *!* *m.suma=round((m.ctva-1)*ss,0) + *!* DO abc1 WITH '6583','2131' + lans(10122) +ENDPROC && BAR_2_OF__0u60q5p9b_FB2P + +PROCEDURE BAR_3_OF__0u60q5p9b_FB2P + *DO ABC1 WITH '456 ',"2131" + lans(10099) +ENDPROC && BAR_3_OF__0u60q5p9b_FB2P + +PROCEDURE BAR_1_OF__0u60qe5ej_FB2P + lans(10100) + *!* *DO ABC2 WITH '2132',"404 ",'4426',"404 " + *!* DEB='2132' + *!* M.SCD=DEB + *!* M.SCD1=DEB + *!* SCC1='404 ' + *!* SCD2='4426' + *!* SCC2=SCC1 + + *!* ***DO ACTFIX.SPR &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& + *!* CLASAACT='ACTFIX404' + *!* OA=CREA(CLASAACT) + *!* OA.SHOW(1) + *!* * + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + *!* DO CODARE + *!* do pnir + + *!* M.TOTCTVA=M.TOTFTVA+M.TOTTVA + *!* *********** + *!* DO CONTABILIZEAZA WITH SCD1,SCC1,M.TOTFTVA ,CLASAACT + *!* ************* + *!* IF m.NEIMPOZAB>0 + *!* m.num=m.nume_2 + *!* m.nume_2='NEIMPOZABIL ' + *!* DO CONTABILIZEAZA WITH SCD2,SCC2,0 ,CLASAACT + *!* M.NUME_2=M.NUM + *!* ENDIF + *!* IF m.totftvaI>0 + *!* m.num=m.nume_2 + + *!* m.nume_2='TVA '+str(m.ctvai,5,2) + *!* DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAI ,CLASAACT + *!* M.NUME_2=M.NUM + *!* ENDIF + *!* IF m.totftvaM>0 + *!* m.num=m.nume_2 + + *!* m.nume_2='TVA '+str(m.ctvaM,5,2) + *!* DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAM ,CLASAACT + *!* M.NUME_2=M.NUM + *!* ENDIF + *!* SELE FURNIZ404 + *!* set filter to + *!* loca for allt(nume)=allt(m.nume) + *!* if flock() + *!* repl achizit with achizit+M.TOTCTVA + *!* endif + *!* unlock + *!* DO ADCUMP404 + *!* ********** + *!* DO STERGE +ENDPROC && BAR_1_OF__0u60qe5ej_FB2P + +PROCEDURE BAR_2_OF__0u60qe5ej_FB2P + *DO ABC1 WITH '2132',"456 " + lans(10101) +ENDPROC && BAR_2_OF__0u60qe5ej_FB2P + +PROCEDURE BAR_3_OF__0u60qe5ej_FB2P + *DO ABC1 WITH '2132','722 ' + lans(10103) +ENDPROC && BAR_3_OF__0u60qe5ej_FB2P + +PROCEDURE BAR_5_OF__0u60qe5ej_FB2P + *DO ABC1 WITH '2132',"131 " + lans(10102) +ENDPROC && BAR_5_OF__0u60qe5ej_FB2P + +PROCEDURE BAR_2_OF__0u60qd0ny_FB2P + *DO ABC2 WITH '461','7583','461 ','4427' + lans(10104) +ENDPROC && BAR_2_OF__0u60qd0ny_FB2P + +PROCEDURE BAR_1_OF__0u60qpa2l_FB2P + *DO ABC1 WITH '281 ','2132' + lans(10105) +ENDPROC && BAR_1_OF__0u60qpa2l_FB2P + +PROCEDURE BAR_2_OF__0u60qpa2l_FB2P + *!* *DO ABC2 WITH '281 ','2132','6583','2132' + *!* DO abc1 WITH '2813','2132' + *!* ss=m.suma + *!* *m.suma=round((m.ctva-1)*ss,0) + *!* DO abc1 WITH '6583','2132' + lans(10123) +ENDPROC && BAR_2_OF__0u60qpa2l_FB2P + +PROCEDURE BAR_3_OF__0u60qpa2l_FB2P + *DO ABC1 WITH '456 ','2132' + lans(10106) +ENDPROC && BAR_3_OF__0u60qpa2l_FB2P + +PROCEDURE BAR_1_OF__0u60qv453_FB2P + lans(10107) +ENDPROC && BAR_1_OF__0u60qv453_FB2P + +PROCEDURE BAR_2_OF__0u60qv453_FB2P + lans(10588) +ENDPROC && BAR_2_OF__0u60qv453_FB2P + +PROCEDURE BAR_3_OF__0u60qv453_FB2P + *DO ABC1 WITH '2133','456 ' + lans(10108) +ENDPROC && BAR_3_OF__0u60qv453_FB2P + +PROCEDURE BAR_4_OF__0u60qv453_FB2P + *DO ABC1 WITH '2133','722 ' + lans(10110) +ENDPROC && BAR_4_OF__0u60qv453_FB2P + +PROCEDURE BAR_6_OF__0u60qv453_FB2P + *DO ABC1 WITH '2133','131 ' + lans(10109) +ENDPROC && BAR_6_OF__0u60qv453_FB2P + +PROCEDURE BAR_2_OF__0u60quxkz_FB2P + *DO ABC2 WITH '461 ','7583','461 ','4427' + lans(10111) +ENDPROC && BAR_2_OF__0u60quxkz_FB2P + +PROCEDURE BAR_1_OF_Scoateredi_FB2P + *DO ABC1 WITH '281 ','2133' + laNS(10112) +ENDPROC && BAR_1_OF_Scoateredi_FB2P + +PROCEDURE BAR_2_OF_Scoateredi_FB2P + *!* *DO ABC2 WITH '281 ','2133','6583','2133' + *!* DO abc1 WITH '2813','2133' + *!* ss=m.suma + *!* *m.suma=round((m.ctva-1)*ss,0) + *!* DO abc1 WITH '6583','2133' + lans(10124) +ENDPROC && BAR_2_OF_Scoateredi_FB2P + +PROCEDURE BAR_3_OF_Scoateredi_FB2P + *DO ABC1 WITH '456 ','2133' + lans(10113) +ENDPROC && BAR_3_OF_Scoateredi_FB2P + +PROCEDURE BAR_1_OF__0u60r4pla_FB2P + lans(10114) + *!* *DO ABC2 WITH '214 ','404 ','4426','404 ' + + *!* DEB='214 ' + *!* M.SCD=DEB + *!* M.SCD1=DEB + *!* SCC1='404 ' + *!* SCD2='4426 ' + *!* SCC2=SCC1 + + *!* ***DO ACTFIX.SPR &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& + *!* CLASAACT='ACTFIX404' + *!* OA=CREA(CLASAACT) + *!* OA.SHOW(1) + *!* * + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + *!* DO CODARE + *!* do pnir + + *!* M.TOTCTVA=M.TOTFTVA+M.TOTTVA + *!* *********** + *!* DO CONTABILIZEAZA WITH SCD1,SCC1,M.TOTFTVA ,CLASAACT + *!* ************* + *!* IF m.NEIMPOZAB>0 + *!* m.num=m.nume_2 + *!* m.nume_2='NEIMPOZABIL ' + *!* DO CONTABILIZEAZA WITH SCD2,SCC2,0 ,CLASAACT + *!* M.NUME_2=M.NUM + *!* ENDIF + *!* IF m.totftvaI>0 + *!* m.num=m.nume_2 + + *!* m.nume_2='TVA '+str(m.ctvai,5,2) + *!* DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAI ,CLASAACT + *!* M.NUME_2=M.NUM + *!* ENDIF + *!* IF m.totftvaM>0 + *!* m.num=m.nume_2 + + *!* m.nume_2='TVA '+str(m.ctvaM,5,2) + *!* DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAM ,CLASAACT + *!* M.NUME_2=M.NUM + *!* ENDIF + *!* SELE FURNIZ404 + *!* set filter to + *!* loca for allt(nume)=allt(m.nume) + *!* if flock() + *!* repl achizit with achizit+M.TOTCTVA + *!* endif + *!* unlock + *!* DO ADCUMP404 + *!* ********** + *!* DO STERGE +ENDPROC && BAR_1_OF__0u60r4pla_FB2P + +PROCEDURE BAR_2_OF__0u60r4pla_FB2P + *DO ABC1 WITH '214 ','456 ' + lans(10115) +ENDPROC && BAR_2_OF__0u60r4pla_FB2P + +PROCEDURE BAR_3_OF__0u60r4pla_FB2P + *DO ABC1 WITH '214 ','722 ' + lans(10117) +ENDPROC && BAR_3_OF__0u60r4pla_FB2P + +PROCEDURE BAR_5_OF__0u60r4pla_FB2P + *DO ABC1 WITH '214 ','131 ' + lans(10116) +ENDPROC && BAR_5_OF__0u60r4pla_FB2P + +PROCEDURE BAR_2_OF__0u60r4hxo_FB2P + *DO ABC2 WITH '461 ','7583','461 ','4427' + lans(10118) +ENDPROC && BAR_2_OF__0u60r4hxo_FB2P + +PROCEDURE BAR_1_OF__0u60rb80y_FB2P + *DO ABC1 WITH '281 ','214 ' + lans(10119) +ENDPROC && BAR_1_OF__0u60rb80y_FB2P + +PROCEDURE BAR_2_OF__0u60rb80y_FB2P + *!* *DO ABC2 WITH '281 ','214 ','6583','214 ' + *!* DO abc1 WITH '2814','214' + *!* ss=m.suma + *!* *m.suma=round((m.ctva-1)*ss,0) + *!* DO abc1 WITH '6583','214' + lans(10125) +ENDPROC && BAR_2_OF__0u60rb80y_FB2P + +PROCEDURE BAR_3_OF__0u60rb80y_FB2P + *DO ABC1 WITH '456 ','214 ' + lans(10120) +ENDPROC && BAR_3_OF__0u60rb80y_FB2P + +* diff --git a/Meniuri/imobilizari4.mn2 b/Meniuri/imobilizari4.mn2 new file mode 100644 index 0000000..f895ddb --- /dev/null +++ b/Meniuri/imobilizari4.mn2 @@ -0,0 +1,255 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="imobilizari4.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP _0u60rfpee SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF _0u60rfpee PROMPT "Titluri la filiale din cadrul grupului" +ON BAR 1 OF _0u60rfpee ACTIVATE POPUP _0u60rgk56 + + *---------------------------------- + DEFINE POPUP _0u60rgk56 SHORTCUT RELATIVE + DEFINE BAR 1 OF _0u60rgk56 PROMPT "Intrare in gestiune" + ON BAR 1 OF _0u60rgk56 ACTIVATE POPUP Intrareing + + *---------------------------------- + DEFINE POPUP Intrareing SHORTCUT RELATIVE + DEFINE BAR 1 OF Intrareing PROMPT "Aport asociati" ; + MESSAGE '261 :456 ' + ON SELECTION BAR 1 OF Intrareing DO BAR_1_OF_Intrareing_FB2P + + DEFINE BAR 2 OF Intrareing PROMPT "Cu plata in numerar" ; + MESSAGE '261 :5311' + ON SELECTION BAR 2 OF Intrareing DO BAR_2_OF_Intrareing_FB2P + + DEFINE BAR 3 OF Intrareing PROMPT "Cu plata prin banca" ; + MESSAGE '261 :5121' + ON SELECTION BAR 3 OF Intrareing DO BAR_3_OF_Intrareing_FB2P + + DEFINE BAR 2 OF _0u60rgk56 PROMPT "Iesire din gestiune" + ON BAR 2 OF _0u60rgk56 ACTIVATE POPUP _0u60rqh9y + + *---------------------------------- + DEFINE POPUP _0u60rqh9y SHORTCUT RELATIVE + DEFINE BAR 1 OF _0u60rqh9y PROMPT "Prin cedarea titlurilor" ; + MESSAGE '6641:261 ' + ON SELECTION BAR 1 OF _0u60rqh9y DO BAR_1_OF__0u60rqh9y_FB2P + + DEFINE BAR 2 OF _0u60rqh9y PROMPT "Restituire catre asociati" ; + MESSAGE '456 :261 ' + ON SELECTION BAR 2 OF _0u60rqh9y DO BAR_2_OF__0u60rqh9y_FB2P + +DEFINE BAR 2 OF _0u60rfpee PROMPT "Titluri la societati din afara grupului" +ON BAR 2 OF _0u60rfpee ACTIVATE POPUP _0u60rthqw + + *---------------------------------- + DEFINE POPUP _0u60rthqw SHORTCUT RELATIVE + DEFINE BAR 1 OF _0u60rthqw PROMPT "Intrare in gestiune" + ON BAR 1 OF _0u60rthqw ACTIVATE POPUP _0u60rtoto + + *---------------------------------- + DEFINE POPUP _0u60rtoto SHORTCUT RELATIVE + DEFINE BAR 1 OF _0u60rtoto PROMPT "Aport asociati" ; + MESSAGE '262 :456 ' + ON SELECTION BAR 1 OF _0u60rtoto DO BAR_1_OF__0u60rtoto_FB2P + + DEFINE BAR 2 OF _0u60rtoto PROMPT "Cu plata in numerar" ; + MESSAGE '262 :5311' + ON SELECTION BAR 2 OF _0u60rtoto DO BAR_2_OF__0u60rtoto_FB2P + + DEFINE BAR 3 OF _0u60rtoto PROMPT "Cu plata prin banca" ; + MESSAGE '262 :5121' + ON SELECTION BAR 3 OF _0u60rtoto DO BAR_3_OF__0u60rtoto_FB2P + + DEFINE BAR 2 OF _0u60rthqw PROMPT "Iesire din gestiune" + ON BAR 2 OF _0u60rthqw ACTIVATE POPUP _0u60rwtsy + + *---------------------------------- + DEFINE POPUP _0u60rwtsy SHORTCUT RELATIVE + DEFINE BAR 1 OF _0u60rwtsy PROMPT "Prin cedarea titlurilor" ; + MESSAGE '6641 :262' + ON SELECTION BAR 1 OF _0u60rwtsy DO BAR_1_OF__0u60rwtsy_FB2P + + DEFINE BAR 2 OF _0u60rwtsy PROMPT "Restituire catre asociati" ; + MESSAGE '456 :262 ' + ON SELECTION BAR 2 OF _0u60rwtsy DO BAR_2_OF__0u60rwtsy_FB2P + +DEFINE BAR 3 OF _0u60rfpee PROMPT "Interese de participare" +ON BAR 3 OF _0u60rfpee ACTIVATE POPUP _0u60rz3sr + + *---------------------------------- + DEFINE POPUP _0u60rz3sr SHORTCUT RELATIVE + DEFINE BAR 1 OF _0u60rz3sr PROMPT "Intrare in gestiune" + ON BAR 1 OF _0u60rz3sr ACTIVATE POPUP _0u60rz9gc + + *---------------------------------- + DEFINE POPUP _0u60rz9gc SHORTCUT RELATIVE + DEFINE BAR 1 OF _0u60rz9gc PROMPT "Aport asociati" ; + MESSAGE '263 :456 ' + ON SELECTION BAR 1 OF _0u60rz9gc DO BAR_1_OF__0u60rz9gc_FB2P + + DEFINE BAR 2 OF _0u60rz9gc PROMPT "Cu plata in numerar" ; + MESSAGE '263 :5311' + ON SELECTION BAR 2 OF _0u60rz9gc DO BAR_2_OF__0u60rz9gc_FB2P + + DEFINE BAR 3 OF _0u60rz9gc PROMPT "Cu plata prin banca" ; + MESSAGE '263 :5121' + ON SELECTION BAR 3 OF _0u60rz9gc DO BAR_3_OF__0u60rz9gc_FB2P + + DEFINE BAR 2 OF _0u60rz3sr PROMPT "Iesire din gestiune" + ON BAR 2 OF _0u60rz3sr ACTIVATE POPUP _0u60s3kk3 + + *---------------------------------- + DEFINE POPUP _0u60s3kk3 SHORTCUT RELATIVE + DEFINE BAR 1 OF _0u60s3kk3 PROMPT "Prin cedarea titlurilor" ; + MESSAGE '6641:263 ' + ON SELECTION BAR 1 OF _0u60s3kk3 DO BAR_1_OF__0u60s3kk3_FB2P + + DEFINE BAR 2 OF _0u60s3kk3 PROMPT "Restituire catre asociati" ; + MESSAGE '456 :263 ' + ON SELECTION BAR 2 OF _0u60s3kk3 DO BAR_2_OF__0u60s3kk3_FB2P + +DEFINE BAR 4 OF _0u60rfpee PROMPT "Alte titluri imobilizate" +ON BAR 4 OF _0u60rfpee ACTIVATE POPUP _0u60s7p0a + + *---------------------------------- + DEFINE POPUP _0u60s7p0a SHORTCUT RELATIVE + DEFINE BAR 1 OF _0u60s7p0a PROMPT "Intrare in gestiune" + ON BAR 1 OF _0u60s7p0a ACTIVATE POPUP _0u60s7vd0 + + *---------------------------------- + DEFINE POPUP _0u60s7vd0 SHORTCUT RELATIVE + DEFINE BAR 1 OF _0u60s7vd0 PROMPT "Aport asociati" ; + MESSAGE '265 :456 ' + ON SELECTION BAR 1 OF _0u60s7vd0 DO BAR_1_OF__0u60s7vd0_FB2P + + DEFINE BAR 2 OF _0u60s7vd0 PROMPT "Cu plata in numerar" ; + MESSAGE '265 :5311' + ON SELECTION BAR 2 OF _0u60s7vd0 DO BAR_2_OF__0u60s7vd0_FB2P + + DEFINE BAR 3 OF _0u60s7vd0 PROMPT "Cu plata prin banca" ; + MESSAGE '265 :5121' + ON SELECTION BAR 3 OF _0u60s7vd0 DO BAR_3_OF__0u60s7vd0_FB2P + + DEFINE BAR 2 OF _0u60s7p0a PROMPT "Iesire din gestiune" + ON BAR 2 OF _0u60s7p0a ACTIVATE POPUP _0u60sbg40 + + *---------------------------------- + DEFINE POPUP _0u60sbg40 SHORTCUT RELATIVE + DEFINE BAR 1 OF _0u60sbg40 PROMPT "Prin cedarea titlurilor" ; + MESSAGE '6641:265 ' + ON SELECTION BAR 1 OF _0u60sbg40 DO BAR_1_OF__0u60sbg40_FB2P + + DEFINE BAR 2 OF _0u60sbg40 PROMPT "Restituire catre asociati" ; + MESSAGE '456 :265 ' + ON SELECTION BAR 2 OF _0u60sbg40 DO BAR_2_OF__0u60sbg40_FB2P +ACTIVATE POPUP _0u60rfpee + +* + +* +PROCEDURE BAR_1_OF_Intrareing_FB2P + *DO ABC1 WITH '261 ','456 ' + lans(10149) +ENDPROC && BAR_1_OF_Intrareing_FB2P + +PROCEDURE BAR_2_OF_Intrareing_FB2P + *DO ABC1 WITH '261 ','5311' + lans(10150) +ENDPROC && BAR_2_OF_Intrareing_FB2P + +PROCEDURE BAR_3_OF_Intrareing_FB2P + *DO ABC1 WITH '261 ','5121' + lans(10151) +ENDPROC && BAR_3_OF_Intrareing_FB2P + +PROCEDURE BAR_1_OF__0u60rqh9y_FB2P + *DO ABC1 WITH '6641','261 ' + laNS(10152) +ENDPROC && BAR_1_OF__0u60rqh9y_FB2P + +PROCEDURE BAR_2_OF__0u60rqh9y_FB2P + *DO ABC1 WITH '456 ','261 ' + lans(10153) +ENDPROC && BAR_2_OF__0u60rqh9y_FB2P + +PROCEDURE BAR_1_OF__0u60rtoto_FB2P + *DO ABC1 WITH '262 ','456 ' + lans(10154) +ENDPROC && BAR_1_OF__0u60rtoto_FB2P + +PROCEDURE BAR_2_OF__0u60rtoto_FB2P + *DO ABC1 WITH '262 ','5311' + lans(10155) +ENDPROC && BAR_2_OF__0u60rtoto_FB2P + +PROCEDURE BAR_3_OF__0u60rtoto_FB2P + *DO ABC1 WITH '262 ','5121' + lans(10156) +ENDPROC && BAR_3_OF__0u60rtoto_FB2P + +PROCEDURE BAR_1_OF__0u60rwtsy_FB2P + *DO ABC1 WITH '6641','262 ' + lans(10157) +ENDPROC && BAR_1_OF__0u60rwtsy_FB2P + +PROCEDURE BAR_2_OF__0u60rwtsy_FB2P + *DO ABC1 WITH '456 ','262 ' + lans(10158) +ENDPROC && BAR_2_OF__0u60rwtsy_FB2P + +PROCEDURE BAR_1_OF__0u60rz9gc_FB2P + *DO ABC1 WITH '263 ','456 ' + lans(10159) +ENDPROC && BAR_1_OF__0u60rz9gc_FB2P + +PROCEDURE BAR_2_OF__0u60rz9gc_FB2P + *DO ABC1 WITH '263 ','5311' + lans(10160) +ENDPROC && BAR_2_OF__0u60rz9gc_FB2P + +PROCEDURE BAR_3_OF__0u60rz9gc_FB2P + *DO ABC1 WITH '263 ','5121' + lans(10161) +ENDPROC && BAR_3_OF__0u60rz9gc_FB2P + +PROCEDURE BAR_1_OF__0u60s3kk3_FB2P + *DO ABC1 WITH '6641','263 ' + lans(10162) +ENDPROC && BAR_1_OF__0u60s3kk3_FB2P + +PROCEDURE BAR_2_OF__0u60s3kk3_FB2P + *DO ABC1 WITH '456 ','263 ' + lans(10163) +ENDPROC && BAR_2_OF__0u60s3kk3_FB2P + +PROCEDURE BAR_1_OF__0u60s7vd0_FB2P + *DO ABC1 WITH '265 ','456 ' + lans(10164) +ENDPROC && BAR_1_OF__0u60s7vd0_FB2P + +PROCEDURE BAR_2_OF__0u60s7vd0_FB2P + *DO ABC1 WITH '265 ','5311' + lans(10165) +ENDPROC && BAR_2_OF__0u60s7vd0_FB2P + +PROCEDURE BAR_3_OF__0u60s7vd0_FB2P + *DO ABC1 WITH '265 ','5121' + lans(10166) +ENDPROC && BAR_3_OF__0u60s7vd0_FB2P + +PROCEDURE BAR_1_OF__0u60sbg40_FB2P + *DO ABC1 WITH '6641','265 ' + lans(10167) +ENDPROC && BAR_1_OF__0u60sbg40_FB2P + +PROCEDURE BAR_2_OF__0u60sbg40_FB2P + *DO ABC1 WITH '456 ','265 ' + lans(10168) +ENDPROC && BAR_2_OF__0u60sbg40_FB2P + +* diff --git a/Meniuri/imobilizari5.mn2 b/Meniuri/imobilizari5.mn2 new file mode 100644 index 0000000..fcaca27 --- /dev/null +++ b/Meniuri/imobilizari5.mn2 @@ -0,0 +1,417 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="imobilizari5.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP _0u60sg1k5 SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF _0u60sg1k5 PROMPT "Corporale 231" +ON BAR 1 OF _0u60sg1k5 ACTIVATE POPUP _0u60sk6ro + + *---------------------------------- + DEFINE POPUP _0u60sk6ro SHORTCUT RELATIVE + DEFINE BAR 1 OF _0u60sk6ro PROMPT "Realizarea imobilizarilor in curs" + ON BAR 1 OF _0u60sk6ro ACTIVATE POPUP _0u60skexy + + *---------------------------------- + DEFINE POPUP _0u60skexy SHORTCUT RELATIVE + DEFINE BAR 1 OF _0u60skexy PROMPT "De la asociati" ; + MESSAGE '231 :456 ' + ON SELECTION BAR 1 OF _0u60skexy DO BAR_1_OF__0u60skexy_FB2P + + DEFINE BAR 2 OF _0u60skexy PROMPT "De la furnizori" ; + MESSAGE '231 :404 ;4426:404 ' + ON SELECTION BAR 2 OF _0u60skexy DO BAR_2_OF__0u60skexy_FB2P + + DEFINE BAR 3 OF _0u60skexy PROMPT "De la furnizori-taxa inversa" ; + MESSAGE '4426:404 ' + ON SELECTION BAR 3 OF _0u60skexy DO BAR_3_OF__0u60skexy_FB2P + + DEFINE BAR 4 OF _0u60skexy PROMPT "Din regie proprie" ; + MESSAGE '231 :722 ' + ON SELECTION BAR 4 OF _0u60skexy DO BAR_4_OF__0u60skexy_FB2P + + DEFINE BAR 2 OF _0u60sk6ro PROMPT "Receptionarea imobilizarilor in curs, terminate" + ON BAR 2 OF _0u60sk6ro ACTIVATE POPUP _0u60spwkz + + *---------------------------------- + DEFINE POPUP _0u60spwkz SHORTCUT RELATIVE + DEFINE BAR 1 OF _0u60spwkz PROMPT "Constructii 212" ; + MESSAGE '212 :231 ' + ON SELECTION BAR 1 OF _0u60spwkz DO BAR_1_OF__0u60spwkz_FB2P + + DEFINE BAR 2 OF _0u60spwkz PROMPT "Echipamente tehnologice 2131" ; + MESSAGE '2131:231 ' + ON SELECTION BAR 2 OF _0u60spwkz DO BAR_2_OF__0u60spwkz_FB2P + + DEFINE BAR 3 OF _0u60spwkz PROMPT "Aparate de masura 2132" ; + MESSAGE '2132:231 ' + ON SELECTION BAR 3 OF _0u60spwkz DO BAR_3_OF__0u60spwkz_FB2P + + DEFINE BAR 4 OF _0u60spwkz PROMPT "Mijloace de transport 2133" ; + MESSAGE '2133:231 ' + ON SELECTION BAR 4 OF _0u60spwkz DO BAR_4_OF__0u60spwkz_FB2P + + DEFINE BAR 5 OF _0u60spwkz PROMPT "Mobilier birotica 214" ; + MESSAGE '214 :231 ' + ON SELECTION BAR 5 OF _0u60spwkz DO BAR_5_OF__0u60spwkz_FB2P + + DEFINE BAR 6 OF _0u60spwkz PROMPT "Animale si plantatii 2134" ; + MESSAGE '2134 :231 ' + ON SELECTION BAR 6 OF _0u60spwkz DO BAR_6_OF__0u60spwkz_FB2P + +DEFINE BAR 2 OF _0u60sg1k5 PROMPT "Avansuri pentru imob. corporale 232" +ON BAR 2 OF _0u60sg1k5 ACTIVATE POPUP _0u60sw49x + + *---------------------------------- + DEFINE POPUP _0u60sw49x SHORTCUT RELATIVE + DEFINE BAR 1 OF _0u60sw49x PROMPT "Acordate furnizorilor" ; + MESSAGE '232 :404 ' + ON SELECTION BAR 1 OF _0u60sw49x DO BAR_1_OF__0u60sw49x_FB2P + + DEFINE BAR 2 OF _0u60sw49x PROMPT "Decontate de furnizori" ; + MESSAGE '404 :232 ' + ON SELECTION BAR 2 OF _0u60sw49x DO BAR_2_OF__0u60sw49x_FB2P + +DEFINE BAR 3 OF _0u60sg1k5 PROMPT "Necorporale 233" +ON BAR 3 OF _0u60sg1k5 ACTIVATE POPUP _0u60t8smb + + *---------------------------------- + DEFINE POPUP _0u60t8smb SHORTCUT RELATIVE + DEFINE BAR 1 OF _0u60t8smb PROMPT "Realizarea imobilizarilor in curs" + ON BAR 1 OF _0u60t8smb ACTIVATE POPUP _0u60t9l2m + + *---------------------------------- + DEFINE POPUP _0u60t9l2m SHORTCUT RELATIVE + DEFINE BAR 1 OF _0u60t9l2m PROMPT "De la asociati" ; + MESSAGE '233 :456 ' + ON SELECTION BAR 1 OF _0u60t9l2m DO BAR_1_OF__0u60t9l2m_FB2P + + DEFINE BAR 2 OF _0u60t9l2m PROMPT "De la furnizori" ; + MESSAGE '233 :404 ;4426:404 ' + ON SELECTION BAR 2 OF _0u60t9l2m DO BAR_2_OF__0u60t9l2m_FB2P + + DEFINE BAR 3 OF _0u60t9l2m PROMPT "Din regie proprie" ; + MESSAGE '233 :721 ' + ON SELECTION BAR 3 OF _0u60t9l2m DO BAR_3_OF__0u60t9l2m_FB2P + + DEFINE BAR 2 OF _0u60t8smb PROMPT "Receptionarea imobilizarilor in curs, terminate" + ON BAR 2 OF _0u60t8smb ACTIVATE POPUP _0u60tfh6h + + *---------------------------------- + DEFINE POPUP _0u60tfh6h SHORTCUT RELATIVE + DEFINE BAR 1 OF _0u60tfh6h PROMPT "Cheltuieli de dezvoltare 203" ; + MESSAGE '203 :233 ' + ON SELECTION BAR 1 OF _0u60tfh6h DO BAR_1_OF__0u60tfh6h_FB2P + + DEFINE BAR 2 OF _0u60tfh6h PROMPT "Concesiuni, brevete 205" ; + MESSAGE '205 :233 ' + ON SELECTION BAR 2 OF _0u60tfh6h DO BAR_2_OF__0u60tfh6h_FB2P + + DEFINE BAR 3 OF _0u60tfh6h PROMPT "Alte imobilizari necorporale 208" ; + MESSAGE '208 :233 ' + ON SELECTION BAR 3 OF _0u60tfh6h DO BAR_3_OF__0u60tfh6h_FB2P + +DEFINE BAR 4 OF _0u60sg1k5 PROMPT "Avansuri pentru imob. necorporale 234" +ON BAR 4 OF _0u60sg1k5 ACTIVATE POPUP _0u60tiszu + + *---------------------------------- + DEFINE POPUP _0u60tiszu SHORTCUT RELATIVE + DEFINE BAR 1 OF _0u60tiszu PROMPT "Acordate furnizorilor" ; + MESSAGE '234 :404 ' + ON SELECTION BAR 1 OF _0u60tiszu DO BAR_1_OF__0u60tiszu_FB2P + + DEFINE BAR 2 OF _0u60tiszu PROMPT "Decontate de furnizori" ; + MESSAGE '404 :234 ' + ON SELECTION BAR 2 OF _0u60tiszu DO BAR_2_OF__0u60tiszu_FB2P +ACTIVATE POPUP _0u60sg1k5 + +* + +* +PROCEDURE BAR_1_OF__0u60skexy_FB2P + *DO ABC1 WITH '231 ','456 ' + lans(10169) +ENDPROC && BAR_1_OF__0u60skexy_FB2P + +PROCEDURE BAR_2_OF__0u60skexy_FB2P + lans(10170) +ENDPROC && BAR_2_OF__0u60skexy_FB2P + +PROCEDURE BAR_3_OF__0u60skexy_FB2P + lans(10590) +ENDPROC && BAR_3_OF__0u60skexy_FB2P + +PROCEDURE BAR_4_OF__0u60skexy_FB2P + *DO ABC1 WITH '231 ','722 ' + lans(10171) +ENDPROC && BAR_4_OF__0u60skexy_FB2P + +PROCEDURE BAR_1_OF__0u60spwkz_FB2P + *DO ABC1 WITH '212 ','231 ' + lans(10172) +ENDPROC && BAR_1_OF__0u60spwkz_FB2P + +PROCEDURE BAR_2_OF__0u60spwkz_FB2P + *DO ABC1 WITH '2131','231 ' + lans(10173) +ENDPROC && BAR_2_OF__0u60spwkz_FB2P + +PROCEDURE BAR_3_OF__0u60spwkz_FB2P + *DO ABC1 WITH '2132','231 ' + lans(10174) +ENDPROC && BAR_3_OF__0u60spwkz_FB2P + +PROCEDURE BAR_4_OF__0u60spwkz_FB2P + *DO ABC1 WITH '2133','231 ' + lans(10175) +ENDPROC && BAR_4_OF__0u60spwkz_FB2P + +PROCEDURE BAR_5_OF__0u60spwkz_FB2P + *DO ABC1 WITH '214 ','231 ' + lans(10176) +ENDPROC && BAR_5_OF__0u60spwkz_FB2P + +PROCEDURE BAR_6_OF__0u60spwkz_FB2P + lans(10599) +ENDPROC && BAR_6_OF__0u60spwkz_FB2P + +PROCEDURE BAR_1_OF__0u60sw49x_FB2P + lans(10177) + *!* *DO ABC1 WITH '232 ','404 ' + *!* m.scd='232 ' + *!* m.scc='404 ' + *!* ****do casa.spr + *!* DO alfabeta with; + *!* 'casa',; + *!* "NUMELE FURNIZORULUI","FURNIZ404","NUME",; + *!* "","","",; + *!* '','','',; + *!* "" + *!* * + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + + *!* DO CODARE + *!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT + *!* SELE FURNIZ404 + *!* IF flock() + *!* REPL ACHIZIT with ACHIZIT+m.suma + *!* ENDIF + *!* UNLOCK + *!* m.totctva=m.suma + *!* m.totftva=m.suma + *!* DO adcump404 + + *!* DO STERGE +ENDPROC && BAR_1_OF__0u60sw49x_FB2P + +PROCEDURE BAR_2_OF__0u60sw49x_FB2P + lans(10178) + *!* *DO ABC1 WITH '404 ','232 ' + *!* m.scd='404 ' + *!* m.scc='232 ' + *!* ****do casa.spr + *!* DO alfabeta with; + *!* 'casa',; + *!* "NUMELE FURNIZORULUI","FURNIZ404","NUME",; + *!* "","","",; + *!* '','','',; + *!* "" + *!* * + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + + *!* DO CODARE + *!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT + *!* SELE FURNIZ404 + *!* IF flock() + *!* REPL PLATIT with PLATIT+m.suma + *!* ENDIF + *!* UNLOCK + *!* *DO ADCUMP404 + *!* *!* SELECT CUMPLUN404 + *!* *!* IF FLOCK() + *!* *!* APPEND BLANK + *!* *!* GATHER MEMV + *!* *!* REPLACE TOTCTVA WITH M.SUMA + *!* *!* ENDIF + *!* *!* UNLOCK + + *!* *!* SELECT CUMP + *!* *!* IF FLOCK() + *!* *!* APPEND BLANK + *!* *!* GATHER MEMV + *!* *!* REPLACE TOTCTVA WITH M.SUMA + *!* *!* ENDIF + *!* *!* UNLOCK + *!* DO STERGE +ENDPROC && BAR_2_OF__0u60sw49x_FB2P + +PROCEDURE BAR_1_OF__0u60t9l2m_FB2P + *DO ABC1 WITH '233 ','456 ' + lans(10179) +ENDPROC && BAR_1_OF__0u60t9l2m_FB2P + +PROCEDURE BAR_2_OF__0u60t9l2m_FB2P + lans(10180) + *!* *DO ABC2 WITH '233 ','404 ','4426','404 ' + *!* DEB='233 ' + *!* M.SCD=DEB + *!* M.SCD1=DEB + *!* SCC1='404 ' + *!* SCD2='4426' + *!* SCC2=SCC1 + + *!* ***DO ACTFIX.SPR &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& + *!* CLASAACT='ACTFIX404' + *!* OA=CREA(CLASAACT) + *!* OA.SHOW(1) + *!* * + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + *!* DO CODARE + *!* do pnir + + *!* M.TOTCTVA=M.TOTFTVA+M.TOTTVA + *!* *********** + *!* DO CONTABILIZEAZA WITH SCD1,SCC1,M.TOTFTVA ,CLASAACT + *!* ************* + *!* IF m.NEIMPOZAB>0 + *!* m.num=m.nume_2 + *!* m.nume_2='NEIMPOZABIL ' + *!* DO CONTABILIZEAZA WITH SCD2,SCC2,0 ,CLASAACT + *!* M.NUME_2=M.NUM + *!* ENDIF + *!* IF m.totftvaI>0 + *!* m.num=m.nume_2 + + *!* m.nume_2='TVA '+str(m.ctvai,5,2) + *!* DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAI ,CLASAACT + *!* M.NUME_2=M.NUM + *!* ENDIF + *!* IF m.totftvaM>0 + *!* m.num=m.nume_2 + + *!* m.nume_2='TVA '+str(m.ctvaM,5,2) + *!* DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAM ,CLASAACT + *!* M.NUME_2=M.NUM + *!* ENDIF + *!* SELE FURNIZ404 + *!* set filter to + *!* loca for allt(nume)=allt(m.nume) + *!* if flock() + *!* repl achizit with achizit+M.TOTCTVA + *!* endif + *!* unlock + *!* DO ADCUMP404 + *!* ********** + *!* DO STERGE +ENDPROC && BAR_2_OF__0u60t9l2m_FB2P + +PROCEDURE BAR_3_OF__0u60t9l2m_FB2P + *DO ABC1 WITH '233 ','721 ' + lans(10181) +ENDPROC && BAR_3_OF__0u60t9l2m_FB2P + +PROCEDURE BAR_1_OF__0u60tfh6h_FB2P + *DO ABC1 WITH '203 ','233 ' + lans(10182) +ENDPROC && BAR_1_OF__0u60tfh6h_FB2P + +PROCEDURE BAR_2_OF__0u60tfh6h_FB2P + *DO ABC1 WITH '205 ','233 ' + lans(10183) +ENDPROC && BAR_2_OF__0u60tfh6h_FB2P + +PROCEDURE BAR_3_OF__0u60tfh6h_FB2P + *DO ABC1 WITH '208 ','233 ' + lans(10184) +ENDPROC && BAR_3_OF__0u60tfh6h_FB2P + +PROCEDURE BAR_1_OF__0u60tiszu_FB2P + lans(10185) + *!* *DO ABC1 WITH '234 ','404 ' + *!* m.scd='234 ' + *!* m.scc='404 ' + *!* ****do casa.spr + *!* DO alfabeta with; + *!* 'casa',; + *!* "NUMELE FURNIZORULUI","FURNIZ404","NUME",; + *!* "","","",; + *!* '','','',; + *!* "" + *!* * + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + + *!* DO CODARE + *!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT + *!* SELE FURNIZ404 + *!* IF flock() + *!* REPL ACHIZIT with ACHIZIT+m.suma + *!* ENDIF + *!* UNLOCK + *!* m.totctva=m.suma + *!* m.totftva=m.suma + *!* DO adcump404 + + *!* DO STERGE +ENDPROC && BAR_1_OF__0u60tiszu_FB2P + +PROCEDURE BAR_2_OF__0u60tiszu_FB2P + lans(10186) + *!* *DO ABC1 WITH '404 ','234 ' + *!* m.scd='404 ' + *!* m.scc='234 ' + *!* ****do casa.spr + *!* DO alfabeta with; + *!* 'casa',; + *!* "NUMELE FURNIZORULUI","FURNIZ404","NUME",; + *!* "","","",; + *!* '','','',; + *!* "" + *!* * + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + + *!* DO CODARE + *!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT + *!* SELE FURNIZ404 + *!* IF flock() + *!* REPL PLATIT with PLATIT+m.suma + *!* ENDIF + *!* UNLOCK + *!* *DO ADCUMP404 + *!* *!* SELECT CUMPLUN404 + *!* *!* IF FLOCK() + *!* *!* APPEND BLANK + *!* *!* GATHER MEMV + *!* *!* REPLACE TOTCTVA WITH M.SUMA + *!* *!* ENDIF + *!* *!* UNLOCK + + *!* *!* SELECT CUMP + *!* *!* IF FLOCK() + *!* *!* APPEND BLANK + *!* *!* GATHER MEMV + *!* *!* REPLACE TOTCTVA WITH M.SUMA + *!* *!* ENDIF + *!* *!* UNLOCK + *!* DO STERGE +ENDPROC && BAR_2_OF__0u60tiszu_FB2P + +* diff --git a/Meniuri/imobilizari6.mn2 b/Meniuri/imobilizari6.mn2 new file mode 100644 index 0000000..20820ee --- /dev/null +++ b/Meniuri/imobilizari6.mn2 @@ -0,0 +1,64 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="imobilizari6.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Rate SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Rate PROMPT "\Plata rate" +ON SELECTION BAR 1 OF Rate DO BAR_1_OF_Rate_FB2P +ACTIVATE POPUP Rate + +* + +* +PROCEDURE BAR_1_OF_Rate_FB2P + + + + *!* do tva + *!* local s1,s2,s3,s4,s5 + *!* store 0 to m.suma,s1,s2,s3,s4,s5 + *!* m.explicatia='DIFERENTA CURS VALUTAR' + *!* do abc1 with '665 ','404 ' + + *!* s1=m.suma + *!* s2=round((m.ctva-1)*s1,0) + *!* m.suma=s2 + *!* m.explicatia='TVA' + *!* do abc1 with '4426','404 ' + + *!* M.SUMA=0 + *!* m.explicatia='DOBANDA' + *!* do abc1 with '666 ','404 ' + + *!* s3=m.suma + *!* m.explicatia='PENALITATI' + *!* do abc1 with '6711','404 ' + + *!* s4=m.suma + *!* m.explicatia='PRIMA CASCO' + *!* do abc1 with '613 ','404 ' + *!* s5=m.suma + *!* M.TOTCTVA=S1+S2+S3+S4+S5 + *!* M.TOTFTVAM=S1 + *!* M.TVAM=S2 + *!* M.NEIMPOZAB=S3+S4+S5 + + *!* SELE FURNIZ404 + *!* SET filter to + *!* LOCA for allt(nume)=allt(m.nume) + *!* IF flock() + *!* REPL achizit with achizit+M.TOTCTVA + *!* ENDIF + *!* UNLOCK + *!* DO ADCUMP404 + + *!* DO STERGE + *!* RETURN +ENDPROC && BAR_1_OF_Rate_FB2P + +* diff --git a/Meniuri/listbanca.mn2 b/Meniuri/listbanca.mn2 new file mode 100644 index 0000000..a85aec1 --- /dev/null +++ b/Meniuri/listbanca.mn2 @@ -0,0 +1,27 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="listbanca.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Listare SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Listare PROMPT "\ \ No newline at end of file diff --git a/Meniuri/listcasa.mn2 b/Meniuri/listcasa.mn2 new file mode 100644 index 0000000..742f5b6 --- /dev/null +++ b/Meniuri/listcasa.mn2 @@ -0,0 +1,38 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="listcasa.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Listare SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Listare PROMPT "\ \ No newline at end of file diff --git a/Meniuri/listcli.mn2 b/Meniuri/listcli.mn2 new file mode 100644 index 0000000..06df996 --- /dev/null +++ b/Meniuri/listcli.mn2 @@ -0,0 +1,288 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="listcli.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Listare SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Listare PROMPT "Registrul de \ + +* +PROCEDURE BAR_1_OF__1790n9m5l_FB2P + DO listare_registru_vanzcump_2007 IN orap_terti WITH 'V' +ENDPROC && BAR_1_OF__1790n9m5l_FB2P + +PROCEDURE BAR_1_OF_Normalform_FB2P + DO listare_registru_vanzcump IN orap_terti WITH [4111],[NORMAL],.f. +ENDPROC && BAR_1_OF_Normalform_FB2P + +PROCEDURE BAR_2_OF_Normalform_FB2P + DO listare_registru_vanzcump IN orap_terti WITH [4111],[NORMAL],.t. +ENDPROC && BAR_2_OF_Normalform_FB2P + +PROCEDURE BAR_3_OF__1790n9m5l_FB2P + DO listare_registru_vanzcump IN orap_terti WITH [4111],[SIMPLIFICAT],.f. +ENDPROC && BAR_3_OF__1790n9m5l_FB2P + +PROCEDURE BAR_4_OF__1790n9m5l_FB2P + DO listare_registru_vanzcump IN orap_terti WITH [4111],[CONDENSAT],.f. +ENDPROC && BAR_4_OF__1790n9m5l_FB2P + +PROCEDURE BAR_3_OF_Listare_FB2P + DO PrepareRptBalantaFC WITH gcCont411,"Jurnal Clienti","balanta_parteneri_rpt3",.T. IN osituatii_operative.prg +ENDPROC && BAR_3_OF_Listare_FB2P + +PROCEDURE BAR_5_OF_Listare_FB2P + **parametrii: + **tcCont,tlActiv,tlTitlu,tlCauta_alfa_Cu_Toti,tlPerioada_Blocata,tcRaport_sau_Vizualizare, + *tc_NumeForma + + ** titlu lasat gol ca sa keme cereTitlu + DO PrepareRptSitOp IN osituatii_operative.prg WITH '4111',.T.,"",.T.,.F., +ENDPROC && BAR_5_OF_Listare_FB2P + +PROCEDURE BAR_1_OF_Toatefactu_FB2P + DO viz_frm_facturi IN orap_terti_comun WITH 1,gcCont411 +ENDPROC && BAR_1_OF_Toatefactu_FB2P + +PROCEDURE BAR_2_OF_Toatefactu_FB2P + DO viz_frm_facturi IN orap_terti_comun WITH 2,gcCont411 +ENDPROC && BAR_2_OF_Toatefactu_FB2P + +PROCEDURE BAR_1_OF_Facturinei_FB2P + DO list_facturi_neachitate IN orap_terti WITH gcCont411,.T. +ENDPROC && BAR_1_OF_Facturinei_FB2P + +PROCEDURE BAR_2_OF_Facturinei_FB2P + DO list_facturi_neachitate IN orap_terti WITH gcCont411,.T.,.t. +ENDPROC && BAR_2_OF_Facturinei_FB2P + +PROCEDURE BAR_4_OF_Facturivan_FB2P + DO list_facturi_neachitate IN orap_terti WITH gcCont411,.F. +ENDPROC && BAR_4_OF_Facturivan_FB2P + +PROCEDURE BAR_6_OF_Facturivan_FB2P + DO rap_facturi_emise_pe_zile IN orap_terti.prg +ENDPROC && BAR_6_OF_Facturivan_FB2P + +PROCEDURE BAR_8_OF_Facturivan_FB2P + DO rap_fact_grup_pe_lucari_parteneri WITH gcCont411, .t., 0 IN orap_terti.prg +ENDPROC && BAR_8_OF_Facturivan_FB2P + +PROCEDURE BAR_3_OF_Situatiifa_FB2P + DO list_facturi_scadente IN orap_terti WITH [4111] +ENDPROC && BAR_3_OF_Situatiifa_FB2P + +PROCEDURE BAR_5_OF_Situatiifa_FB2P + DO facturi_furnizor_client IN orap_terti +ENDPROC && BAR_5_OF_Situatiifa_FB2P + +PROCEDURE BAR_1_OF_Facturiinc_FB2P + DO incasari_facturi_lunac IN orap_terti_comun WITH .t. +ENDPROC && BAR_1_OF_Facturiinc_FB2P + +PROCEDURE BAR_2_OF_Facturiinc_FB2P + DO incasari_facturi_lunac IN orap_terti_comun WITH .f. +ENDPROC && BAR_2_OF_Facturiinc_FB2P + +PROCEDURE BAR_9_OF_Listare_FB2P + Do proc_scadentar In orap_terti.prg with "C" +ENDPROC && BAR_9_OF_Listare_FB2P + +PROCEDURE BAR_1_OF_Inregistra_FB2P + Do parteneri_cu_sold_final In orap_terti.prg with .F.,"4111" +ENDPROC && BAR_1_OF_Inregistra_FB2P + +PROCEDURE BAR_2_OF_Inregistra_FB2P + Do parteneri_cu_sold_final In orap_terti.prg with .T.,"4111" +ENDPROC && BAR_2_OF_Inregistra_FB2P + +PROCEDURE BAR_15_OF_Listare_FB2P + do pondere_clienti in orap_terti.prg +ENDPROC && BAR_15_OF_Listare_FB2P + +* diff --git a/Meniuri/listfurn.mn2 b/Meniuri/listfurn.mn2 new file mode 100644 index 0000000..46df3c5 --- /dev/null +++ b/Meniuri/listfurn.mn2 @@ -0,0 +1,279 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="listfurn.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Listare SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Listare PROMPT "Registrul de \ + +* +PROCEDURE BAR_1_OF_Format2007_FB2P + DO listare_registru_vanzcump_2007 IN orap_terti WITH 'C', 'RO' +ENDPROC && BAR_1_OF_Format2007_FB2P + +PROCEDURE BAR_2_OF_Format2007_FB2P + DO listare_registru_vanzcump_2007 IN orap_terti WITH 'C', 'FO' +ENDPROC && BAR_2_OF_Format2007_FB2P + +PROCEDURE BAR_3_OF_Format2007_FB2P + DO listare_registru_vanzcump_2007 IN orap_terti WITH 'C', 'CE' +ENDPROC && BAR_3_OF_Format2007_FB2P + +PROCEDURE BAR_4_OF_Format2007_FB2P + DO listare_registru_vanzcump_2007 IN orap_terti WITH 'C', 'TI' +ENDPROC && BAR_4_OF_Format2007_FB2P + +PROCEDURE BAR_2_OF_Registruld_FB2P + DO listare_registru_vanzcump IN orap_terti WITH [401],[NORMAL],.f. +ENDPROC && BAR_2_OF_Registruld_FB2P + +PROCEDURE BAR_3_OF_Registruld_FB2P + DO listare_registru_vanzcump IN orap_terti WITH [401],[NORMAL],.t. +ENDPROC && BAR_3_OF_Registruld_FB2P + +PROCEDURE BAR_3_OF_Listare_FB2P + DO PrepareRptBalantaFC WITH "401","Jurnal Furnizori","balanta_parteneri_rpt3",.F. IN osituatii_operative.prg +ENDPROC && BAR_3_OF_Listare_FB2P + +PROCEDURE BAR_1_OF_Situatiiop_FB2P + **parametrii: + **tcCont,tlActiv,tlTitlu,tlCauta_alfa_Cu_Toti,tlPerioada_Blocata,tcRaport_sau_Vizualizare, + **tc_NumeForma + + + ** titlu lasat gol ca sa keme cereTitlu + DO PrepareRptSitOp IN osituatii_operative.prg WITH '401',.F.,"",.T.,.F., +ENDPROC && BAR_1_OF_Situatiiop_FB2P + +PROCEDURE BAR_2_OF_Situatiiop_FB2P + **parametrii: + **tcCont,tlActiv,tlTitlu,tlCauta_alfa_Cu_Toti,tlPerioada_Blocata,tcRaport_sau_Vizualizare, + *tc_NumeForma + + ** titlu lasat gol ca sa keme cereTitlu + DO PrepareRptSitOp IN osituatii_operative.prg WITH '404',.F.,"",.T.,.F., +ENDPROC && BAR_2_OF_Situatiiop_FB2P + +PROCEDURE BAR_1_OF_Toatefactu_FB2P + DO viz_frm_facturi IN orap_terti_comun WITH 1,[401] +ENDPROC && BAR_1_OF_Toatefactu_FB2P + +PROCEDURE BAR_2_OF_Toatefactu_FB2P + DO viz_frm_facturi IN orap_terti_comun WITH 2,[401] +ENDPROC && BAR_2_OF_Toatefactu_FB2P + +PROCEDURE BAR_1_OF_Facturinea_FB2P + DO list_facturi_neachitate IN orap_terti WITH [401],.T. + +ENDPROC && BAR_1_OF_Facturinea_FB2P + +PROCEDURE BAR_4_OF_Facturicum_FB2P + DO list_facturi_neachitate IN orap_terti WITH [401],.F. +ENDPROC && BAR_4_OF_Facturicum_FB2P + +PROCEDURE BAR_6_OF_Facturicum_FB2P + DO rap_fact_grup_pe_lucari_parteneri WITH [401], .f., 0 IN orap_terti.prg +ENDPROC && BAR_6_OF_Facturicum_FB2P + +PROCEDURE BAR_2_OF_Situatiifa_FB2P + DO list_facturi_scadente IN orap_terti WITH [401] +ENDPROC && BAR_2_OF_Situatiifa_FB2P + +PROCEDURE BAR_4_OF_Situatiifa_FB2P + DO facturi_furnizor_client IN orap_terti +ENDPROC && BAR_4_OF_Situatiifa_FB2P + +PROCEDURE BAR_1_OF_Inlei_FB2P + Do parteneri_cu_sold_final In orap_terti.prg with .F.,"401",.F. +ENDPROC && BAR_1_OF_Inlei_FB2P + +PROCEDURE BAR_2_OF_Inlei_FB2P + Do parteneri_cu_sold_final In orap_terti.prg with .F.,"401",.F.,.T. +ENDPROC && BAR_2_OF_Inlei_FB2P + +PROCEDURE BAR_2_OF_Inregistra_FB2P + Do parteneri_cu_sold_final In orap_terti.prg with .T.,"401",.F. +ENDPROC && BAR_2_OF_Inregistra_FB2P + +PROCEDURE BAR_14_OF_Listare_FB2P + do pondere_furnizori in orap_terti.prg +ENDPROC && BAR_14_OF_Listare_FB2P + +* diff --git a/Meniuri/listgen.mn2 b/Meniuri/listgen.mn2 new file mode 100644 index 0000000..a25ca05 --- /dev/null +++ b/Meniuri/listgen.mn2 @@ -0,0 +1,188 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="listgen.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Listare SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Listare PROMPT "\ 12 + ON SELECTION BAR 19 OF Declaratii DO viz_decl392 in oproceduri_decont.prg + + DEFINE BAR 20 OF Declaratii PROMPT "\-" + ON BAR 20 OF Declaratii ACTIVATE POPUP _3bi0q7h2b + + *---------------------------------- + DEFINE POPUP _3bi0q7h2b SHORTCUT RELATIVE + DEFINE BAR 21 OF Declaratii PROMPT "Declaratia 394 Achizitii/Livrari intern" + ON SELECTION BAR 21 OF Declaratii DO viz_decl394 in oproceduri_decont.prg + + DEFINE BAR 22 OF Declaratii PROMPT "\-" + ON BAR 22 OF Declaratii ACTIVATE POPUP _66m0xszxw + + *---------------------------------- + DEFINE POPUP _66m0xszxw SHORTCUT RELATIVE + DEFINE BAR 23 OF Declaratii PROMPT "D406" ; + SKIP FOR !(TYPE('GND406')<>'U' AND m.GND406=1) + ON SELECTION BAR 23 OF Declaratii do viz_saft_d406 in saft_d406.prg + +DEFINE BAR 9 OF Listare PROMPT "\-" +ON BAR 9 OF Listare ACTIVATE POPUP _53d0xiczb + + *---------------------------------- + DEFINE POPUP _53d0xiczb SHORTCUT RELATIVE +DEFINE BAR 10 OF Listare PROMPT "\ + +* +PROCEDURE BAR_5_OF_Declaratii_FB2P + IF gnAn>=2016 + DO viz_decl100 with 100 IN oproceduri_decont.prg + ELSE + DO viz_decl100_102 with 100 IN oproceduri_decont.prg + ENDIF +ENDPROC && BAR_5_OF_Declaratii_FB2P + +PROCEDURE BAR_6_OF_Declaratii_FB2P + IF gnAn >= 2016 + DO viz_decl100 with 100, .T. IN oproceduri_decont.prg + ELSE + DO viz_decl100_102 with 100,.T. IN oproceduri_decont.prg + ENDIF +ENDPROC && BAR_6_OF_Declaratii_FB2P + +* diff --git a/Meniuri/listterti.mn2 b/Meniuri/listterti.mn2 new file mode 100644 index 0000000..bb8cd60 --- /dev/null +++ b/Meniuri/listterti.mn2 @@ -0,0 +1,200 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="listterti.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Listare SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Listare PROMPT "\ + +* +PROCEDURE BAR_1_OF_Balantaana_FB2P + DO PrepareRptBalantaFC WITH "","Jurnal","balanta_parteneri_rpt3",.F. IN osituatii_operative.prg +ENDPROC && BAR_1_OF_Balantaana_FB2P + +PROCEDURE BAR_3_OF_Balantaana_FB2P + *!* SELE creditor + *!* * set filter to luat-dAT#0 + *!* TITLU = 'CREDITORI' + *!* REPORT FORMAT creditor.FRX to printer prompt PREVIEW + *!* *WINDOW WPRINT + + DO PrepareRptBalantaFC WITH "462","Jurnal Creditori","balanta_parteneri_rpt3",.F. IN osituatii_operative.prg +ENDPROC && BAR_3_OF_Balantaana_FB2P + +PROCEDURE BAR_4_OF_Balantaana_FB2P + *!* SELE DEBitor + *!* REPORT FORMAT DEBitor.FRX to printer prompt PREVIEW + + DO PrepareRptBalantaFC WITH "461","Jurnal Debitori","balanta_parteneri_rpt3",.T. IN osituatii_operative.prg +ENDPROC && BAR_4_OF_Balantaana_FB2P + +PROCEDURE BAR_5_OF_Balantaana_FB2P + *!* *SELE ACHIT542 + *!* SELECT nume_2 as nume , totdeb , totcred FROM achit542 INTO CURSOR tachi + *!* SELECT tachi + *!* REPORT FORMAT ACHIZ.FRX TO PRINTER PROMPT NOCONSOLE preview + *!* *WINDOW WPRINT + *!* USE IN tachi + + DO PrepareRptBalantaFC WITH "542","Jurnal Achizitori","balanta_parteneri_rpt3",.T. IN osituatii_operative.prg +ENDPROC && BAR_5_OF_Balantaana_FB2P + +PROCEDURE BAR_6_OF_Balantaana_FB2P + *!* SELE actionar + *!* TITLU = 'ACTIONARI' + *!* REPORT FORMAT creditor.FRX to printer prompt PREVIEW + + DO PrepareRptBalantaFC WITH "455","Jurnal Actionari","balanta_parteneri_rpt3",.F. IN osituatii_operative.prg +ENDPROC && BAR_6_OF_Balantaana_FB2P + +PROCEDURE BAR_1_OF_Situatiiop_FB2P + **parametrii: + **tcCont,tlActiv,tlTitlu,tlCauta_alfa_Cu_Toti,tlPerioada_Blocata,tcRaport_sau_Vizualizare,tc_NumeForma + + ** titlu lasat gol ca sa keme cereTitlu + DO PrepareRptSitOp IN osituatii_operative.prg +ENDPROC && BAR_1_OF_Situatiiop_FB2P + +PROCEDURE BAR_3_OF_Situatiiop_FB2P + **parametrii: + **tcCont,tlActiv,tlTitlu,tlCauta_alfa_Cu_Toti,tlPerioada_Blocata,tcRaport_sau_Vizualizare,tc_NumeForma + + ** titlu lasat gol ca sa keme cereTitlu + DO PrepareRptSitOp IN osituatii_operative.prg WITH '462',.F.,"",.T.,.F., +ENDPROC && BAR_3_OF_Situatiiop_FB2P + +PROCEDURE BAR_4_OF_Situatiiop_FB2P + **parametrii: + **tcCont,tlActiv,tlTitlu,tlCauta_alfa_Cu_Toti,tlPerioada_Blocata,tcRaport_sau_Vizualizare,tc_NumeForma + + ** titlu lasat gol ca sa keme cereTitlu + DO PrepareRptSitOp IN osituatii_operative.prg WITH '461',.T.,"",.T.,.F., +ENDPROC && BAR_4_OF_Situatiiop_FB2P + +PROCEDURE BAR_5_OF_Situatiiop_FB2P + **parametrii: + **tcCont,tlActiv,tlTitlu,tlCauta_alfa_Cu_Toti,tlPerioada_Blocata,tcRaport_sau_Vizualizare,tc_NumeForma + + ** titlu lasat gol ca sa keme cereTitlu + DO PrepareRptSitOp IN osituatii_operative.prg WITH '452',.T.,"",.T.,.F., +ENDPROC && BAR_5_OF_Situatiiop_FB2P + +PROCEDURE BAR_6_OF_Situatiiop_FB2P + **parametrii: + **tcCont,tlActiv,tlTitlu,tlCauta_alfa_Cu_Toti,tlPerioada_Blocata,tcRaport_sau_Vizualizare,tc_NumeForma + + ** titlu lasat gol ca sa keme cereTitlu + DO PrepareRptSitOp IN osituatii_operative.prg WITH '455',.F.,"",.T.,.F., +ENDPROC && BAR_6_OF_Situatiiop_FB2P + +PROCEDURE BAR_4_OF_Listare_FB2P + DO rap_fact_grup_pe_lucari_parteneri WITH [], .F., 1 IN orap_terti.prg +ENDPROC && BAR_4_OF_Listare_FB2P + +PROCEDURE BAR_5_OF_Listare_FB2P + DO viz_frm_facturi IN orap_terti_comun WITH 1 +ENDPROC && BAR_5_OF_Listare_FB2P + +PROCEDURE BAR_1_OF_Inregistra_FB2P + Do parteneri_cu_sold_final In orap_terti.prg with .F. +ENDPROC && BAR_1_OF_Inregistra_FB2P + +PROCEDURE BAR_2_OF_Inregistra_FB2P + Do parteneri_cu_sold_final In orap_terti.prg with .T. +ENDPROC && BAR_2_OF_Inregistra_FB2P + +* diff --git a/Meniuri/listtrez.mn2 b/Meniuri/listtrez.mn2 new file mode 100644 index 0000000..23c45d7 --- /dev/null +++ b/Meniuri/listtrez.mn2 @@ -0,0 +1,53 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="listtrez.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "\ + +* +PROCEDURE BAR_1_OF_Jurnalplat_FB2P + DO jurnal_plati_incasari IN orap_trezorerie WITH .f.,.t. +ENDPROC && BAR_1_OF_Jurnalplat_FB2P + +PROCEDURE BAR_2_OF_Jurnalplat_FB2P + DO jurnal_plati_incasari IN orap_trezorerie WITH .t.,.t. +ENDPROC && BAR_2_OF_Jurnalplat_FB2P + +PROCEDURE BAR_1_OF_Jurnalinca_FB2P + DO jurnal_plati_incasari IN orap_trezorerie WITH .f.,.f. +ENDPROC && BAR_1_OF_Jurnalinca_FB2P + +PROCEDURE BAR_2_OF_Jurnalinca_FB2P + DO jurnal_plati_incasari IN orap_trezorerie WITH .t.,.f. +ENDPROC && BAR_2_OF_Jurnalinca_FB2P + +* diff --git a/Meniuri/notei.mn2 b/Meniuri/notei.mn2 new file mode 100644 index 0000000..2cdeea3 --- /dev/null +++ b/Meniuri/notei.mn2 @@ -0,0 +1,123 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="notei.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Inchidere SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Inchidere PROMPT "\ 2013*12+12 ; + MESSAGE 'Note TVA colectat 4428 = 4427 devenit exigibil la 90 de zile dupa data emiterii' + ON SELECTION BAR 2 OF TVA do inchidere_tva with 2 in oproceduri_inchidere.prg + +DEFINE BAR 6 OF Inchidere PROMPT "\ + +* +PROCEDURE BAR_1_OF_Inchidere_FB2P + do inchidere_salarii in ocont2003.prg +ENDPROC && BAR_1_OF_Inchidere_FB2P + +PROCEDURE BAR_2_OF_Inchidere_FB2P + do inchidere_DIURNE in ocont2003.prg +ENDPROC && BAR_2_OF_Inchidere_FB2P + +PROCEDURE BAR_1_OF_Cheltuiala_FB2P + DO cheltprofit2_ana IN ocont2003.prg +ENDPROC && BAR_1_OF_Cheltuiala_FB2P + +PROCEDURE BAR_3_OF_Cheltuiala_FB2P + DO cheltprofit1_ana IN ocont2003.prg +ENDPROC && BAR_3_OF_Cheltuiala_FB2P + +* diff --git a/Meniuri/notei2.mn2 b/Meniuri/notei2.mn2 new file mode 100644 index 0000000..0aef344 --- /dev/null +++ b/Meniuri/notei2.mn2 @@ -0,0 +1,167 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="notei2.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*1 +*REPLACE + +* +DEFINE MENU _msysmenu BAR +DEFINE PAD _000000001 OF _msysmenu PROMPT "In\1 + ON SELECTION BAR 1 OF Inchidere DO BAR_1_OF_Inchidere_FB2P + + DEFINE BAR 2 OF Inchidere PROMPT "A\1 + ON SELECTION BAR 3 OF Inchidere DO BAR_3_OF_Inchidere_FB2P + + DEFINE BAR 4 OF Inchidere PROMPT "\1 + ON SELECTION BAR 4 OF Inchidere DO BAR_4_OF_Inchidere_FB2P + + DEFINE BAR 5 OF Inchidere PROMPT "\1 + ON SELECTION BAR 5 OF Inchidere DO BAR_5_OF_Inchidere_FB2P + + DEFINE BAR 6 OF Inchidere PROMPT "\1 + ON SELECTION BAR 6 OF Inchidere DO BAR_6_OF_Inchidere_FB2P + + DEFINE BAR 7 OF Inchidere PROMPT "Cheltuiala \1 + ON SELECTION BAR 7 OF Inchidere DO BAR_7_OF_Inchidere_FB2P + + DEFINE BAR 8 OF Inchidere PROMPT "\1 + ON SELECTION BAR 8 OF Inchidere DO BAR_8_OF_Inchidere_FB2P + + DEFINE BAR 9 OF Inchidere PROMPT "\-" + ON BAR 9 OF Inchidere ACTIVATE POPUP _08g0oc8ql + + *---------------------------------- + DEFINE POPUP _08g0oc8ql MARGIN RELATIVE SHADOW COLOR SCHEME 4 + DEFINE BAR 10 OF Inchidere PROMPT "\1 + ON BAR 10 OF Inchidere ACTIVATE POPUP Penalitati + + *---------------------------------- + DEFINE POPUP Penalitati MARGIN RELATIVE SHADOW COLOR SCHEME 4 + DEFINE BAR 1 OF Penalitati PROMPT "\ + +* +PROCEDURE BAR_1_OF_Inchidere_FB2P + do salarii19 in inchidere.prg +ENDPROC && BAR_1_OF_Inchidere_FB2P + +PROCEDURE BAR_2_OF_Inchidere_FB2P + + + SELE calendar + LOCATE for nl=m.nl and an=m.an + Skip -1 + IF !bof() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC + ELSE + dateA=dirgen+'\_alfa\an0000\date00\' + ENDIF + + USE &DATEA\BAL IN 0 ALIAS BALP + + M.NRACT=8 + m.NUME='UZURA OB.DE INVENTAR' + M.EXPLICATIA='LUNA '+M.NL + M.SUMA=0 + M.FDOC='NOTA' + + + SELE BALP + SUM RULcred TO M.SUMA FOR CONT='2801' + M.NUME_2='CHELT.CONSTITUIRE' + DO ABC1 WITH '6811','2801' + SELE BALP + SUM RULcred TO M.SUMA FOR CONT='2803' + M.NUME_2='CHELT.CERCET.DEZV.' + DO ABC1 WITH '6811','2803' + SELE BALP + SUM RULcred TO M.SUMA FOR CONT='2805' + M.NUME_2='BREVETE SI INVENTII' + DO ABC1 WITH '6811','2805' + SELE BALP + SUM RULcred TO M.SUMA FOR CONT='2808' + M.NUME_2='ALTE IMOB.NECORP.' + DO ABC1 WITH '6811','2808' + + USE IN BALP + + + + DO STERGE +ENDPROC && BAR_2_OF_Inchidere_FB2P + +PROCEDURE BAR_3_OF_Inchidere_FB2P + do amortizari in inchidere.prg +ENDPROC && BAR_3_OF_Inchidere_FB2P + +PROCEDURE BAR_4_OF_Inchidere_FB2P + do tva in inchidere.prg +ENDPROC && BAR_4_OF_Inchidere_FB2P + +PROCEDURE BAR_5_OF_Inchidere_FB2P + do venituri in inchidere.prg +ENDPROC && BAR_5_OF_Inchidere_FB2P + +PROCEDURE BAR_6_OF_Inchidere_FB2P + do cheltuieli in inchidere.prg +ENDPROC && BAR_6_OF_Inchidere_FB2P + +PROCEDURE BAR_7_OF_Inchidere_FB2P + do cheltprofit in inchidere.prg +ENDPROC && BAR_7_OF_Inchidere_FB2P + +PROCEDURE BAR_8_OF_Inchidere_FB2P + do marfa in inchidere.prg +ENDPROC && BAR_8_OF_Inchidere_FB2P + +PROCEDURE BAR_1_OF_Penalitati_FB2P + DO PENTVA IN PENALITATI.PRG + + IF !USED('PENTVA') + sele 0 + use &dirfirm\tempo\pentva alias pentva + ENDIF + + o=crea('penalitati') + o.show(1) + + sele pentva + use +ENDPROC && BAR_1_OF_Penalitati_FB2P + +* diff --git a/Meniuri/trez.mn2 b/Meniuri/trez.mn2 new file mode 100644 index 0000000..0cdb7c1 --- /dev/null +++ b/Meniuri/trez.mn2 @@ -0,0 +1,87 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="trez.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Trezorerie SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Trezorerie PROMPT "Acreditive in lei" +ON BAR 1 OF Trezorerie ACTIVATE POPUP _2j50up1gp + + *---------------------------------- + DEFINE POPUP _2j50up1gp SHORTCUT RELATIVE + DEFINE BAR 1 OF _2j50up1gp PROMPT "Constituire" ; + MESSAGE '5411 :581 ; 581:5121' + ON SELECTION BAR 1 OF _2j50up1gp DO BAR_1_OF__2j50up1gp_FB2P + + DEFINE BAR 2 OF _2j50up1gp PROMPT "Plata furnizori 401" ; + MESSAGE ' 401: 5411' + ON SELECTION BAR 2 OF _2j50up1gp DO BAR_2_OF__2j50up1gp_FB2P + + DEFINE BAR 3 OF _2j50up1gp PROMPT "Plata furnizori 404" ; + MESSAGE ' 404: 5411' + ON SELECTION BAR 3 OF _2j50up1gp DO BAR_3_OF__2j50up1gp_FB2P + +DEFINE BAR "89" OF Trezorerie PROMPT "Acreditive in valuta" +ON BAR 89 OF Trezorerie ACTIVATE POPUP Acreditive + + *---------------------------------- + DEFINE POPUP Acreditive SHORTCUT RELATIVE + DEFINE BAR "89010" OF Acreditive PROMPT "Constituire" ; + MESSAGE '5412:581 ; 581:5124' + ON SELECTION BAR 89010 OF Acreditive DO BAR_"89010"_OF_Acreditive_FB2P + + DEFINE BAR "89020" OF Acreditive PROMPT "Plata furnizori 401" ; + MESSAGE ' 401: 5412' + ON SELECTION BAR 89020 OF Acreditive DO BAR_"89020"_OF_Acreditive_FB2P + + DEFINE BAR 3 OF Acreditive PROMPT "Plata furnizori 404" ; + MESSAGE ' 404: 5412' + ON SELECTION BAR 3 OF Acreditive DO BAR_3_OF_Acreditive_FB2P + +DEFINE BAR 3 OF Trezorerie PROMPT "\-" +ON BAR 3 OF Trezorerie ACTIVATE POPUP _40o0pi3ci + + *---------------------------------- + DEFINE POPUP _40o0pi3ci SHORTCUT RELATIVE +DEFINE BAR 4 OF Trezorerie PROMPT "Stornare plata/incasare" +ON SELECTION BAR 4 OF Trezorerie DO BAR_4_OF_Trezorerie_FB2P +ACTIVATE POPUP Trezorerie + +* + +* +PROCEDURE BAR_1_OF__2j50up1gp_FB2P + lans(10592) +ENDPROC && BAR_1_OF__2j50up1gp_FB2P + +PROCEDURE BAR_2_OF__2j50up1gp_FB2P + lans(10593) +ENDPROC && BAR_2_OF__2j50up1gp_FB2P + +PROCEDURE BAR_3_OF__2j50up1gp_FB2P + lans(10594) +ENDPROC && BAR_3_OF__2j50up1gp_FB2P + +PROCEDURE BAR_"89010"_OF_Acreditive_FB2P + *DO MENIU89010 + lans(10448) +ENDPROC && BAR_"89010"_OF_Acreditive_FB2P + +PROCEDURE BAR_"89020"_OF_Acreditive_FB2P + *DO MENIU89020 + lans(10449) +ENDPROC && BAR_"89020"_OF_Acreditive_FB2P + +PROCEDURE BAR_3_OF_Acreditive_FB2P + lans(10591) +ENDPROC && BAR_3_OF_Acreditive_FB2P + +PROCEDURE BAR_4_OF_Trezorerie_FB2P + DO stornare_plinc IN ocont2003.prg +ENDPROC && BAR_4_OF_Trezorerie_FB2P + +* diff --git a/Meniuri/trez1.mn2 b/Meniuri/trez1.mn2 new file mode 100644 index 0000000..e68ae76 --- /dev/null +++ b/Meniuri/trez1.mn2 @@ -0,0 +1,155 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="trez1.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Trezorerie SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Trezorerie PROMPT "Ridicat avans din casa" ; + MESSAGE '542:5311' +ON SELECTION BAR 1 OF Trezorerie DO BAR_1_OF_Trezorerie_FB2P + +DEFINE BAR 2 OF Trezorerie PROMPT "Restituire avans in casa" ; + MESSAGE '5311:542' +ON SELECTION BAR 2 OF Trezorerie DO BAR_2_OF_Trezorerie_FB2P + +DEFINE BAR 3 OF Trezorerie PROMPT "\-" +ON BAR 3 OF Trezorerie ACTIVATE POPUP _2070xlhpe + + *---------------------------------- + DEFINE POPUP _2070xlhpe SHORTCUT RELATIVE +DEFINE BAR 4 OF Trezorerie PROMPT "Ridicat avans din banca" ; + MESSAGE '542:5121' +ON SELECTION BAR 4 OF Trezorerie lans(10567) + +DEFINE BAR 5 OF Trezorerie PROMPT "Restituire avans in banca" ; + MESSAGE '5121:542' +ON SELECTION BAR 5 OF Trezorerie lans(10566) + +DEFINE BAR 6 OF Trezorerie PROMPT "\-" +ON BAR 6 OF Trezorerie ACTIVATE POPUP _15s0jven8 + + *---------------------------------- + DEFINE POPUP _15s0jven8 SHORTCUT RELATIVE +DEFINE BAR "89" OF Trezorerie PROMPT "Plati" +ON BAR 89 OF Trezorerie ACTIVATE POPUP Plati + + *---------------------------------- + DEFINE POPUP Plati SHORTCUT RELATIVE + DEFINE BAR "89020" OF Plati PROMPT "Plata furnizori 401" ; + MESSAGE ' 401: 542' + ON SELECTION BAR 89020 OF Plati DO BAR_"89020"_OF_Plati_FB2P + + DEFINE BAR 2 OF Plati PROMPT "Plati multiple furnizori 401" ; + MESSAGE '401 : 542' + ON SELECTION BAR 2 OF Plati lans(10546) + + DEFINE BAR 3 OF Plati PROMPT "Plata furnizori 404" ; + MESSAGE ' 404: 542' + ON SELECTION BAR 3 OF Plati DO BAR_3_OF_Plati_FB2P + + DEFINE BAR 4 OF Plati PROMPT "\-" + ON BAR 4 OF Plati ACTIVATE POPUP _1470mvbgt + + *---------------------------------- + DEFINE POPUP _1470mvbgt SHORTCUT RELATIVE + DEFINE BAR 5 OF Plati PROMPT "Plata deplasari" ; + MESSAGE ' 625: 542' + ON SELECTION BAR 5 OF Plati lans(10343) + + DEFINE BAR 6 OF Plati PROMPT "Plati impozite" + ON SELECTION BAR 6 OF Plati DO BAR_6_OF_Plati_FB2P + + DEFINE BAR 7 OF Plati PROMPT "Alte impozite si taxe" ; + MESSAGE '446 : 542' + ON SELECTION BAR 7 OF Plati DO BAR_7_OF_Plati_FB2P + + DEFINE BAR 8 OF Plati PROMPT "Plata amenzi, penalitati" ; + MESSAGE '448X - 542' + ON SELECTION BAR 8 OF Plati DO BAR_8_OF_Plati_FB2P + + DEFINE BAR 9 OF Plati PROMPT "\-" + ON BAR 9 OF Plati ACTIVATE POPUP _18c0khqgc + + *---------------------------------- + DEFINE POPUP _18c0khqgc SHORTCUT RELATIVE + DEFINE BAR 10 OF Plati PROMPT "Salarii" + ON BAR 10 OF Plati ACTIVATE POPUP Salarii + + *---------------------------------- + DEFINE POPUP Salarii SHORTCUT RELATIVE + DEFINE BAR 1 OF Salarii PROMPT "Plata salarii" ; + MESSAGE '421 : 542' + ON SELECTION BAR 1 OF Salarii lans(10514) + + DEFINE BAR 2 OF Salarii PROMPT "Plata avansuri" ; + MESSAGE '425 : 542' + ON SELECTION BAR 2 OF Salarii lans(10515) + + DEFINE BAR 3 OF Salarii PROMPT "Plata drepturi" ; + MESSAGE '426 : 542' + ON SELECTION BAR 3 OF Salarii lans(10516) +ACTIVATE POPUP Trezorerie + +* + +* +PROCEDURE BAR_1_OF_Trezorerie_FB2P + lans(10340) +ENDPROC && BAR_1_OF_Trezorerie_FB2P + +PROCEDURE BAR_2_OF_Trezorerie_FB2P + LANS(10332) +ENDPROC && BAR_2_OF_Trezorerie_FB2P + +PROCEDURE BAR_"89020"_OF_Plati_FB2P + lans(10341) +ENDPROC && BAR_"89020"_OF_Plati_FB2P + +PROCEDURE BAR_3_OF_Plati_FB2P + lans(10342) +ENDPROC && BAR_3_OF_Plati_FB2P + +PROCEDURE BAR_6_OF_Plati_FB2P + lans(10598) + IF buton=2 + DO deschid_actc + RETURN + ENDIF + DO plati_impozite WITH 10598 IN ocont2003.prg +ENDPROC && BAR_6_OF_Plati_FB2P + +PROCEDURE BAR_7_OF_Plati_FB2P + PRIVATE pcACN + loCont=ret_cont("Selectati contul",'446') &&,4461,4462,4463,4464,4465,4466,4467,4468,4469') + IF TYPE('loCont') # 'O' + RETURN + ENDIF + IF buton=2 + RELEASE loCont + RETURN + ENDIF + CN=locont.cont + PcACN=loCont.Acont + lans(10540) +ENDPROC && BAR_7_OF_Plati_FB2P + +PROCEDURE BAR_8_OF_Plati_FB2P + PRIVATE pcACN + loCont=ret_cont("Selectati contul",'448') && ,4481,4482') + IF TYPE('loCont') # 'O' + RETURN + ENDIF + IF buton=2 + RELEASE loCont + RETURN + ENDIF + CN=locont.cont + PcACN=loCont.Acont + lans(10545) +ENDPROC && BAR_8_OF_Plati_FB2P + +* diff --git a/Meniuri/trez2.mn2 b/Meniuri/trez2.mn2 new file mode 100644 index 0000000..b1fefe4 --- /dev/null +++ b/Meniuri/trez2.mn2 @@ -0,0 +1,227 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="trez2.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Trezorerie SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Trezorerie PROMPT "CEC incasari" +ON BAR 1 OF Trezorerie ACTIVATE POPUP CECincasar + + *---------------------------------- + DEFINE POPUP CECincasar SHORTCUT RELATIVE + DEFINE BAR 1 OF CECincasar PROMPT "Clienti 4111 CEC" ; + MESSAGE '5112: 4111' + ON SELECTION BAR 1 OF CECincasar DO BAR_1_OF_CECincasar_FB2P + + DEFINE BAR 2 OF CECincasar PROMPT "Transfer CEC->Banca" ; + MESSAGE '581 :5112;5121: 581' + ON SELECTION BAR 2 OF CECincasar DO BAR_2_OF_CECincasar_FB2P + +DEFINE BAR 2 OF Trezorerie PROMPT "CEC plati" +ON BAR 2 OF Trezorerie ACTIVATE POPUP CECplati + + *---------------------------------- + DEFINE POPUP CECplati SHORTCUT RELATIVE + DEFINE BAR 1 OF CECplati PROMPT "Plata furnizori 401 CEC" ; + MESSAGE '401 :5112' + ON SELECTION BAR 1 OF CECplati DO BAR_1_OF_CECplati_FB2P + + DEFINE BAR 2 OF CECplati PROMPT "Transfer Banca -> CEC" ; + MESSAGE '581 :5121;5112: 581' + ON SELECTION BAR 2 OF CECplati DO BAR_2_OF_CECplati_FB2P + + DEFINE BAR 3 OF CECplati PROMPT "Avansuri furnizori" ; + MESSAGE '409:5112' + ON SELECTION BAR 3 OF CECplati DO BAR_3_OF_CECplati_FB2P + + DEFINE BAR 4 OF CECplati PROMPT "Salarii" ; + MESSAGE '421:5112' + ON SELECTION BAR 4 OF CECplati DO BAR_4_OF_CECplati_FB2P + + DEFINE BAR 5 OF CECplati PROMPT "Avans salarii" ; + MESSAGE '425:5112' + ON SELECTION BAR 5 OF CECplati DO BAR_5_OF_CECplati_FB2P + + DEFINE BAR 6 OF CECplati PROMPT "Taxe diverse" ; + MESSAGE '447:5112' + ON SELECTION BAR 6 OF CECplati DO BAR_6_OF_CECplati_FB2P + + DEFINE BAR 7 OF CECplati PROMPT "Impozit salariu" ; + MESSAGE '444:5112' + ON SELECTION BAR 7 OF CECplati DO BAR_7_OF_CECplati_FB2P + + DEFINE BAR 8 OF CECplati PROMPT "Impozite la stat" ; + MESSAGE '446:5112' + ON SELECTION BAR 8 OF CECplati DO BAR_8_OF_CECplati_FB2P + + DEFINE BAR 9 OF CECplati PROMPT "Creditori diversi" ; + MESSAGE '462:5112' + ON SELECTION BAR 9 OF CECplati DO BAR_9_OF_CECplati_FB2P + + DEFINE BAR 10 OF CECplati PROMPT "Aprovizionare (avansuri cec)" ; + MESSAGE '542:5112' + ON SELECTION BAR 10 OF CECplati DO BAR_10_OF_CECplati_FB2P +ACTIVATE POPUP Trezorerie + +* + +* +PROCEDURE BAR_1_OF_CECincasar_FB2P + lans(10417) + *!* m.scd='5112 ' + *!* m.scc='411 ' + *!* ***do BANCA.spr + *!* do alfabetaper with; + *!* 'CASAPER',; + *!* "NUMELE CLIENTULUI","CLIENTI","NUME", ; + *!* "","","", ; + *!* "NUMELE CECULUI","CECNUME","CEC", ; + *!* "",'v' + *!* * + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + *!* DO CODARE + *!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT + *!* M.CEC=M.EXPLICATIA + *!* DO INCEC + *!* SELE CLIENTI + *!* REPLACE CLIENTI.incasat WITH CLIENTI.incasat+m.suma + *!* do sterge + *!* RETURN +ENDPROC && BAR_1_OF_CECincasar_FB2P + +PROCEDURE BAR_2_OF_CECincasar_FB2P + lans(10418) + *!* m.scd='581 ' + *!* m.scc='5112' + *!* ***do BANCA.spr + *!* do alfabeta with; + *!* 'CASA',; + *!* "","","", ; + *!* "NUMELE BANCII","BANNUME","NUME_2", ; + *!* "NUMELE CECULUI","CECNUME","CEC", ; + *!* "" + *!* * + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + *!* M.NUME='' + *!* DO CODARE + *!* DO CONTABILIZEAZA WITH '581 ','5112',M.suma,CLASAACT + *!* M.CEC=M.EXPLICATIA + *!* DO PLCEC + *!* DO CONTABILIZEAZA WITH '5121','581 ',M.suma,CLASAACT + *!* do inBANCA + + + *!* do sterge + *!* RETURN +ENDPROC && BAR_2_OF_CECincasar_FB2P + +PROCEDURE BAR_1_OF_CECplati_FB2P + lans(10419) + *!* m.scd='401 ' + *!* m.scc='5112' + *!* *do BANCA.spr + *!* do alfabetaper with; + *!* 'casaPER',; + *!* "NUMELE FURNIZORULUI","FURNIZOR","NUME", ; + *!* "","","", ; + *!* 'NUMELE CECULUI','CECNUME',"CEC", ; + *!* "",'c' + *!* * + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + *!* DO CODARE + *!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT + *!* M.CEC=M.EXPLICATIA + *!* DO PLCEC + + *!* sele furnizor + *!* repl furnizor.platit with furnizor.platit+m.suma + *!* do sterge + *!* RETURN +ENDPROC && BAR_1_OF_CECplati_FB2P + +PROCEDURE BAR_2_OF_CECplati_FB2P + lans(10420) + *!* m.scd='581 ' + *!* m.scc='5121' + + *!* do alfabeta with; + *!* 'casa',; + *!* "","","", ; + *!* "NUMELE BANCII","BANNUME","NUME_2", ; + *!* 'NUMELE CECULUI','CECNUME',"CEC", ; + *!* "" + *!* * + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + *!* DO CODARE + *!* DO CONTABILIZEAZA WITH '581 ','5121',M.suma,CLASAACT + *!* do plBANCA + *!* DO CONTABILIZEAZA WITH '5112','581 ',M.suma,CLASAACT + *!* M.CEC=M.EXPLICATIA + *!* DO INCEC + *!* do sterge + *!* RETURN +ENDPROC && BAR_2_OF_CECplati_FB2P + +PROCEDURE BAR_3_OF_CECplati_FB2P + PRIVATE pcACN, CN + loCont = ret_cont("Selectati contul",'409') && ,4091,4092') + + IF TYPE('loCont') # 'O' + RETURN + ENDIF + + IF buton = 2 + RELEASE loCont + RETURN + ENDIF + + CN = locont.cont + PcACN = loCont.Acont + lans(10552) +ENDPROC && BAR_3_OF_CECplati_FB2P + +PROCEDURE BAR_4_OF_CECplati_FB2P + lans(10553) +ENDPROC && BAR_4_OF_CECplati_FB2P + +PROCEDURE BAR_5_OF_CECplati_FB2P + lans(10554) +ENDPROC && BAR_5_OF_CECplati_FB2P + +PROCEDURE BAR_6_OF_CECplati_FB2P + lans(10555) +ENDPROC && BAR_6_OF_CECplati_FB2P + +PROCEDURE BAR_7_OF_CECplati_FB2P + lans(10556) +ENDPROC && BAR_7_OF_CECplati_FB2P + +PROCEDURE BAR_8_OF_CECplati_FB2P + lans(10557) +ENDPROC && BAR_8_OF_CECplati_FB2P + +PROCEDURE BAR_9_OF_CECplati_FB2P + lans(10558) +ENDPROC && BAR_9_OF_CECplati_FB2P + +PROCEDURE BAR_10_OF_CECplati_FB2P + lans(10559) +ENDPROC && BAR_10_OF_CECplati_FB2P + +* diff --git a/Meniuri/trez3.mn2 b/Meniuri/trez3.mn2 new file mode 100644 index 0000000..b125b10 --- /dev/null +++ b/Meniuri/trez3.mn2 @@ -0,0 +1,97 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="trez3.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Trezorerie SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Trezorerie PROMPT "Ridicat avans din casa" ; + MESSAGE '542:5314' +ON SELECTION BAR 1 OF Trezorerie DO BAR_1_OF_Trezorerie_FB2P + +DEFINE BAR 2 OF Trezorerie PROMPT "Restituire avans in casa" ; + MESSAGE '5314:542' +ON SELECTION BAR 2 OF Trezorerie DO BAR_2_OF_Trezorerie_FB2P + +DEFINE BAR 3 OF Trezorerie PROMPT "\-" +ON BAR 3 OF Trezorerie ACTIVATE POPUP _15s0jven8 + + *---------------------------------- + DEFINE POPUP _15s0jven8 SHORTCUT RELATIVE +DEFINE BAR 4 OF Trezorerie PROMPT "Ridicat avans din banca" ; + MESSAGE '542:5124' +ON SELECTION BAR 4 OF Trezorerie lans(10569) + +DEFINE BAR 5 OF Trezorerie PROMPT "Restituire avans in banca" ; + MESSAGE '5124:542' +ON SELECTION BAR 5 OF Trezorerie lans(10568) + +DEFINE BAR 6 OF Trezorerie PROMPT "\-" +ON BAR 6 OF Trezorerie ACTIVATE POPUP _2070yhzbr + + *---------------------------------- + DEFINE POPUP _2070yhzbr SHORTCUT RELATIVE +DEFINE BAR "89" OF Trezorerie PROMPT "Plati" +ON BAR 89 OF Trezorerie ACTIVATE POPUP Plati + + *---------------------------------- + DEFINE POPUP Plati SHORTCUT RELATIVE + DEFINE BAR "89020" OF Plati PROMPT "Plata furnizori 401" ; + MESSAGE ' 401: 542' + ON SELECTION BAR 89020 OF Plati DO BAR_"89020"_OF_Plati_FB2P + + DEFINE BAR 2 OF Plati PROMPT "Plata furnizori 404" ; + MESSAGE ' 404: 542' + ON SELECTION BAR 2 OF Plati DO BAR_2_OF_Plati_FB2P + + DEFINE BAR 3 OF Plati PROMPT "\-" + ON BAR 3 OF Plati ACTIVATE POPUP _1470mvbgt + + *---------------------------------- + DEFINE POPUP _1470mvbgt SHORTCUT RELATIVE + DEFINE BAR 4 OF Plati PROMPT "Plata deplasari" ; + MESSAGE ' 625: 542' + ON SELECTION BAR 4 OF Plati lans(10484) + + DEFINE BAR 5 OF Plati PROMPT "Plata alte impozite si taxe" + ON SELECTION BAR 5 OF Plati DO BAR_5_OF_Plati_FB2P +ACTIVATE POPUP Trezorerie + +* + +* +PROCEDURE BAR_1_OF_Trezorerie_FB2P + lans(10432) +ENDPROC && BAR_1_OF_Trezorerie_FB2P + +PROCEDURE BAR_2_OF_Trezorerie_FB2P + LANS(10430) +ENDPROC && BAR_2_OF_Trezorerie_FB2P + +PROCEDURE BAR_"89020"_OF_Plati_FB2P + lans(10433) +ENDPROC && BAR_"89020"_OF_Plati_FB2P + +PROCEDURE BAR_2_OF_Plati_FB2P + lans(10485) +ENDPROC && BAR_2_OF_Plati_FB2P + +PROCEDURE BAR_5_OF_Plati_FB2P + PRIVATE pcACN + loCont=ret_cont("Selectati contul",'446') &&,4461,4462,4463,4464,4465,4466,4467,4468,4469') + IF TYPE('loCont') # 'O' + RETURN + ENDIF + IF buton=2 + RELEASE loCont + RETURN + ENDIF + CN=locont.cont + PcACN=loCont.Acont + lans(10544) +ENDPROC && BAR_5_OF_Plati_FB2P + +* diff --git a/Meniuri/venituri.mn2 b/Meniuri/venituri.mn2 new file mode 100644 index 0000000..527bac5 --- /dev/null +++ b/Meniuri/venituri.mn2 @@ -0,0 +1,269 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="venituri.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Venituri SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Venituri PROMPT "Din vanzari si servicii catre clienti" ; + MESSAGE '4111 :X ;4111 :4427' +ON SELECTION BAR 1 OF Venituri DO BAR_1_OF_Venituri_FB2P + +DEFINE BAR 2 OF Venituri PROMPT "\-" +ON BAR 2 OF Venituri ACTIVATE POPUP _09c1aknd0 + + *---------------------------------- + DEFINE POPUP _09c1aknd0 SHORTCUT RELATIVE +DEFINE BAR 3 OF Venituri PROMPT "Din redevente,locatii de gestiune si chirii" ; + MESSAGE '461 :706 ;461 :4427' +ON SELECTION BAR 3 OF Venituri DO BAR_3_OF_Venituri_FB2P + +DEFINE BAR 4 OF Venituri PROMPT "\-" +ON BAR 4 OF Venituri ACTIVATE POPUP NewItem + + *---------------------------------- + DEFINE POPUP NewItem SHORTCUT RELATIVE +DEFINE BAR 5 OF Venituri PROMPT "Din productia de imobilizari" +ON BAR 5 OF Venituri ACTIVATE POPUP Dinproduct + + *---------------------------------- + DEFINE POPUP Dinproduct SHORTCUT RELATIVE + DEFINE BAR 1 OF Dinproduct PROMPT "Necorporale" + ON BAR 1 OF Dinproduct ACTIVATE POPUP Necorporal + + *---------------------------------- + DEFINE POPUP Necorporal SHORTCUT RELATIVE + DEFINE BAR 1 OF Necorporal PROMPT "Cercetere-dezvoltare 203" ; + MESSAGE '203 :721 ' + ON SELECTION BAR 1 OF Necorporal DO BAR_1_OF_Necorporal_FB2P + + DEFINE BAR 2 OF Necorporal PROMPT "Concesiuni,brevete 205" ; + MESSAGE '205 :721 ' + ON SELECTION BAR 2 OF Necorporal DO BAR_2_OF_Necorporal_FB2P + + DEFINE BAR 3 OF Necorporal PROMPT "Alte imobilizari 208" ; + MESSAGE '208 :721 ' + ON SELECTION BAR 3 OF Necorporal DO BAR_3_OF_Necorporal_FB2P + + DEFINE BAR 4 OF Necorporal PROMPT "In curs 230" ; + MESSAGE '230 :721 ' + ON SELECTION BAR 4 OF Necorporal DO BAR_4_OF_Necorporal_FB2P + + DEFINE BAR 2 OF Dinproduct PROMPT "Corporale" + ON BAR 2 OF Dinproduct ACTIVATE POPUP Corporale + + *---------------------------------- + DEFINE POPUP Corporale SHORTCUT RELATIVE + DEFINE BAR 1 OF Corporale PROMPT "Mijloace fixe obtinute din productie proprie" ; + MESSAGE '212 :722 ;4426:4427' + ON SELECTION BAR 1 OF Corporale DO BAR_1_OF_Corporale_FB2P + + DEFINE BAR 2 OF Corporale PROMPT "In curs de productie" ; + MESSAGE '231 :722 ' + ON SELECTION BAR 2 OF Corporale DO BAR_2_OF_Corporale_FB2P + +DEFINE BAR 6 OF Venituri PROMPT "Din dobanzi" +ON BAR 6 OF Venituri ACTIVATE POPUP Dindobanzi + + *---------------------------------- + DEFINE POPUP Dindobanzi SHORTCUT RELATIVE + DEFINE BAR 1 OF Dindobanzi PROMPT "De la debitori diversi" ; + MESSAGE '461 :766 ' + ON SELECTION BAR 1 OF Dindobanzi DO BAR_1_OF_Dindobanzi_FB2P + + DEFINE BAR 2 OF Dindobanzi PROMPT "De la banci" ; + MESSAGE '5187:766 ' + ON SELECTION BAR 2 OF Dindobanzi DO BAR_2_OF_Dindobanzi_FB2P + +DEFINE BAR 7 OF Venituri PROMPT "Imputatii" +ON BAR 7 OF Venituri ACTIVATE POPUP Imputatii + + *---------------------------------- + DEFINE POPUP Imputatii SHORTCUT RELATIVE + DEFINE BAR 1 OF Imputatii PROMPT "Salariati" ; + MESSAGE '4282 :758X ;4282 :4427' + ON SELECTION BAR 1 OF Imputatii DO BAR_1_OF_Imputatii_FB2P + + DEFINE BAR 2 OF Imputatii PROMPT "Debitori diversi" ; + MESSAGE '461 :758 ;461 :4427' + ON SELECTION BAR 2 OF Imputatii DO BAR_2_OF_Imputatii_FB2P + +DEFINE BAR 8 OF Venituri PROMPT "\-" +ON BAR 8 OF Venituri ACTIVATE POPUP _09c1akncz + + *---------------------------------- + DEFINE POPUP _09c1akncz SHORTCUT RELATIVE +DEFINE BAR 9 OF Venituri PROMPT "\ + +* +PROCEDURE BAR_1_OF_Venituri_FB2P + PRIVATE pcACN + loCont=ret_cont("Selectati contul",'7') + + IF TYPE('loCont') # 'O' + RETURN + ENDIF + + IF buton=2 + RELEASE loCont + RETURN + ENDIF + CN=locont.cont + PcACN=loCont.Acont + lans(10298) +ENDPROC && BAR_1_OF_Venituri_FB2P + +PROCEDURE BAR_3_OF_Venituri_FB2P + lans(10275) +ENDPROC && BAR_3_OF_Venituri_FB2P + +PROCEDURE BAR_1_OF_Necorporal_FB2P + lans(10277) +ENDPROC && BAR_1_OF_Necorporal_FB2P + +PROCEDURE BAR_2_OF_Necorporal_FB2P + lans(10278) +ENDPROC && BAR_2_OF_Necorporal_FB2P + +PROCEDURE BAR_3_OF_Necorporal_FB2P + lans(10279) +ENDPROC && BAR_3_OF_Necorporal_FB2P + +PROCEDURE BAR_4_OF_Necorporal_FB2P + lans(10280) +ENDPROC && BAR_4_OF_Necorporal_FB2P + +PROCEDURE BAR_1_OF_Corporale_FB2P + lans(10281) +ENDPROC && BAR_1_OF_Corporale_FB2P + +PROCEDURE BAR_2_OF_Corporale_FB2P + lans(10282) +ENDPROC && BAR_2_OF_Corporale_FB2P + +PROCEDURE BAR_1_OF_Dindobanzi_FB2P + + lans(10283) +ENDPROC && BAR_1_OF_Dindobanzi_FB2P + +PROCEDURE BAR_2_OF_Dindobanzi_FB2P + lans(10284) +ENDPROC && BAR_2_OF_Dindobanzi_FB2P + +PROCEDURE BAR_1_OF_Imputatii_FB2P + PRIVATE pcACN + loCont=ret_cont("Selectati contul",'758') &&,7581,7582,7583,7584,7588') + IF TYPE('loCont') # 'O' + RETURN + ENDIF + IF buton=2 + RELEASE loCont + RETURN + ENDIF + CN=locont.cont + PcACN=loCont.Acont + lans(10285) +ENDPROC && BAR_1_OF_Imputatii_FB2P + +PROCEDURE BAR_2_OF_Imputatii_FB2P + PRIVATE pcACN + loCont=ret_cont("Selectati contul",'758') && ,7581,7582,7583,7584,7588') + IF TYPE('loCont') # 'O' + RETURN + ENDIF + IF buton=2 + RELEASE loCont + RETURN + ENDIF + CN=locont.cont + PcACN=loCont.Acont + lans(10286) +ENDPROC && BAR_2_OF_Imputatii_FB2P + +PROCEDURE BAR_9_OF_Venituri_FB2P + lans(10463) +ENDPROC && BAR_9_OF_Venituri_FB2P + +PROCEDURE BAR_12_OF_Venituri_FB2P + PRIVATE pcACN + loCont=ret_cont("Selectati contul",'7') + + IF TYPE('loCont') # 'O' + RETURN + ENDIF + + IF buton=2 + RELEASE loCont + RETURN + ENDIF + CN=locont.cont + PcACN=loCont.Acont + lans(10472) +ENDPROC && BAR_12_OF_Venituri_FB2P + +PROCEDURE BAR_13_OF_Venituri_FB2P + PRIVATE pcACN + loCont=ret_cont("Selectati contul",'7') + + IF TYPE('loCont') # 'O' + RETURN + ENDIF + + IF buton=2 + RELEASE loCont + RETURN + ENDIF + CN=locont.cont + PcACN=loCont.Acont + lans(10645) +ENDPROC && BAR_13_OF_Venituri_FB2P + +PROCEDURE BAR_16_OF_Venituri_FB2P + LOCAL lcCont + loCont=ret_cont("Selectati contul",'475') + + IF TYPE('loCont') # 'O' OR buton = 2 + RELEASE loCont + RETURN + ENDIF + lcCont = locont.cont + + do repunere_venchelt_avans with m.lcCont in ocont2003.prg +ENDPROC && BAR_16_OF_Venituri_FB2P + +* diff --git a/Meniuri/vizcli1.mn2 b/Meniuri/vizcli1.mn2 new file mode 100644 index 0000000..2b35e0d --- /dev/null +++ b/Meniuri/vizcli1.mn2 @@ -0,0 +1,63 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="vizcli1.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Clienti SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Clienti PROMPT "\ + +* +PROCEDURE BAR_1_OF_Clienti_FB2P + *osetviz.tbrprim.butoncli.click + DO lans_balanta_parteneri WITH gcCont411, .T. IN oparteneri.prg +ENDPROC && BAR_1_OF_Clienti_FB2P + +PROCEDURE BAR_2_OF_Clienti_FB2P + DO lans_balanta_parteneri WITH "419",.F. IN oparteneri.prg +ENDPROC && BAR_2_OF_Clienti_FB2P + +PROCEDURE BAR_3_OF_Clienti_FB2P + DO lans_balanta_cumulata_4111_419 IN oparteneri.prg +ENDPROC && BAR_3_OF_Clienti_FB2P + +PROCEDURE BAR_4_OF_Clienti_FB2P + *lctitlu = 'Situatie analitica clienti incerti' + *DO lans_balante_analitice WITH 'A', 'client4118', lctitlu , '4118 ', 'productie', 'incasat', 'prodval', 'incasval', .f., '' + DO lans_balanta_parteneri WITH "4118",.T. IN oparteneri.prg +ENDPROC && BAR_4_OF_Clienti_FB2P + +PROCEDURE BAR_5_OF_Clienti_FB2P + *lctitlu = 'Situatie analitica facturi neintocmite' + *DO lans_balante_analitice WITH 'A', 'ana418', lctitlu , '418 ', 'productie', 'incasat', 'prodval', 'incasval', .f., '' + DO lans_balanta_parteneri WITH "418",.T. IN oparteneri.prg +ENDPROC && BAR_5_OF_Clienti_FB2P + +* diff --git a/Meniuri/vizcli2.mn2 b/Meniuri/vizcli2.mn2 new file mode 100644 index 0000000..973cbb6 --- /dev/null +++ b/Meniuri/vizcli2.mn2 @@ -0,0 +1,178 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="vizcli2.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Clienti SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Clienti PROMPT "\ + +* +PROCEDURE BAR_1_OF_FacturiVan_FB2P + && PARAMETRII tcFis1,tcFis2,tnCont,tlCuTest,tlVisible,tcTitlu,TcColDeb,TcColCred + *DO viz_facturi WITH 'clienti','vanzlun',411,.t.,.t.,'Situatie Lunara Facturi vanzari','productie','incasat' + + *!* DO lans_ireg_parteneri WITH tlTest,tcCont,tlActiv + DO lans_ireg_parteneri WITH .T.,gcCont411, .T. +ENDPROC && BAR_1_OF_FacturiVan_FB2P + +PROCEDURE BAR_2_OF_FacturiVan_FB2P + && PARAMETRII tcFis1,tcFis2,tnCont,tlCuTest,tlVisible,tcTitlu,TcColDeb,TcColCred + *DO viz_facturi WITH 'clienti','vanzlun',411,.f.,.t.,'Situatie Lunara Facturi vanzari','productie','incasat' + + *!* DO lans_ireg_parteneri WITH tlTest,tcCont,tlActiv + DO lans_ireg_parteneri WITH .F., gcCont411, .T. + + +ENDPROC && BAR_2_OF_FacturiVan_FB2P + +PROCEDURE BAR_1_OF_NewItem_FB2P + && PARAMETRII tcFis1,tcFis2,tnCont,tlCuTest,tlVisible,tcTitlu,TcColDeb,TcColCred + *DO viz_facturi WITH 'client4118','vanzlu4118',4118,.t.,.t.,'Situatie Lunara Facturi Vanzari 4118','productie','incasat' + + *!* DO lans_ireg_parteneri WITH tlTest,tcCont,tlActiv + DO lans_ireg_parteneri WITH .T.,'4118',.T. + +ENDPROC && BAR_1_OF_NewItem_FB2P + +PROCEDURE BAR_2_OF_NewItem_FB2P + && PARAMETRII tcFis1,tcFis2,tnCont,tlCuTest,tlVisible,tcTitlu,TcColDeb,TcColCred + *DO viz_facturi WITH 'client4118','vanzlu4118',4118,.f.,.t.,'Situatie Lunara Facturi Vanzari 4118','productie','incasat' + + *!* DO lans_ireg_parteneri WITH tlTest,tcCont,tlActiv + DO lans_ireg_parteneri WITH .F.,'4118',.T. +ENDPROC && BAR_2_OF_NewItem_FB2P + +PROCEDURE BAR_1_OF_FacturiNei_FB2P + && PARAMETRII tcFis1,tcFis2,tnCont,tlCuTest,tlVisible,tcTitlu,TcColDeb,TcColCred + *DO viz_facturi WITH 'ana418','fact418',418,.t.,.f.,'Situatie Lunara Facturi Neintocmite','productie','incasat' + + *!* DO lans_ireg_parteneri WITH tlTest,tcCont,tlActiv + *DO lans_ireg_parteneri WITH .F.,'411',.T. + + *!* DO lans_ireg_parteneri WITH tlTest,tcCont,tlActiv + DO lans_ireg_parteneri WITH .T.,'418',.T. + + + +ENDPROC && BAR_1_OF_FacturiNei_FB2P + +PROCEDURE BAR_2_OF_FacturiNei_FB2P + && PARAMETRII tcFis1,tcFis2,tnCont,tlCuTest,tlVisible,tcTitlu,TcColDeb,TcColCred + DO lans_ireg_parteneri WITH .T.,'418',.F. +ENDPROC && BAR_2_OF_FacturiNei_FB2P + +PROCEDURE BAR_1_OF_Avansuri41_FB2P + DO lans_ireg_parteneri WITH .T.,'419',.F. +ENDPROC && BAR_1_OF_Avansuri41_FB2P + +PROCEDURE BAR_2_OF_Avansuri41_FB2P + *!* If Used('avans') + *!* Use In avans + *!* Endif + *!* Use &Date\avans419 In 0 Again Alias avans + *!* Sele avans + *!* oav=Crea('avans') + *!* oav.label9.Caption='Avansuri clienti' + *!* oav.Show(1) + *!* Use In avans + + DO lans_ireg_parteneri WITH .F.,'419',.F. +ENDPROC && BAR_2_OF_Avansuri41_FB2P + +PROCEDURE BAR_1_OF_Situatieop_FB2P + **parametrii: + **tcCont,tlActiv,tlTitlu,tlCauta_alfa_Cu_Toti,tlPerioada_Blocata,tcRaport_sau_Vizualizare,tc_NumeForma + + DO PrepareRptSitOp IN osituatii_operative.prg WITH gcCont411, .T.,"",.T.,.T.,"Vizualizare","frm_viz_sit_op", "luna" +ENDPROC && BAR_1_OF_Situatieop_FB2P + +PROCEDURE BAR_2_OF_Situatieop_FB2P + **parametrii: + **tcCont,tlActiv,tlTitlu,tlCauta_alfa_Cu_Toti,tlPerioada_Blocata,tcRaport_sau_Vizualizare,tc_NumeForma + + DO PrepareRptSitOp IN osituatii_operative.prg WITH gcCont411,.T.,"",.T.,.T.,"Vizualizare","frm_viz_sit_op", "perioada" +ENDPROC && BAR_2_OF_Situatieop_FB2P + +* diff --git a/Meniuri/vizdividende.mn2 b/Meniuri/vizdividende.mn2 new file mode 100644 index 0000000..851c59d --- /dev/null +++ b/Meniuri/vizdividende.mn2 @@ -0,0 +1,82 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="vizdividende.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "\ + +* +PROCEDURE BAR_1_OF_Shortcut_FB2P + *lctitlu = 'Situatie analitica - dividende' + *DO lans_balante_analitice WITH 'P', 'dividende', lctitlu , '457 ', 'debit', credit', 'valdebit', 'valcredit', .f., '' + DO lans_balanta_parteneri WITH "457",.F. IN OPARTENERI.prg + +ENDPROC && BAR_1_OF_Shortcut_FB2P + +PROCEDURE BAR_1_OF_Inregistra_FB2P + *!* *PARAMETERS tcFis1,tcFis2,tnCont,tlCuTest,tlVisible,tcTitlu,TcColDeb,TcColCred + *!* pcTotctva='Divid. de plata' + *!* pcAchitat='Divid. platite' + *!* pcSumaTotal='Suma de plata' + *!* pcSumaAchi='Suma platita' + *!* DO viz_facturi WITH 'dividende','divlun',457,.t.,.t.,'Situatie Lunara Dividende','debit','credit' + + *!* DO lans_ireg_parteneri WITH tlTest,tcCont,tlActiv + DO lans_ireg_parteneri WITH .T.,'457',.F. +ENDPROC && BAR_1_OF_Inregistra_FB2P + +PROCEDURE BAR_2_OF_Inregistra_FB2P + *!* *PARAMETERS tcFis1,tcFis2,tnCont,tlCuTest,tlVisible,tcTitlu,TcColDeb,TcColCred + *!* pcTotctva='Divid.de plata' + *!* pcAchitat='Divid.platite' + *!* DO viz_facturi WITH 'dividende','divlun',457,.f.,.t.,'Situatie Lunara Dividende','debit','credit' + + *!* DO lans_ireg_parteneri WITH tlTest,tcCont,tlActiv + DO lans_ireg_parteneri WITH .F.,'457',.F. +ENDPROC && BAR_2_OF_Inregistra_FB2P + +PROCEDURE BAR_1_OF__17d0mxwaz_FB2P + *DO situatie_operativa IN contabilitate_rapoarte WITH 'dividende', '457', 'Dividende' &&, 'Divid. platite', 'Divid.de plata' +ENDPROC && BAR_1_OF__17d0mxwaz_FB2P + +PROCEDURE BAR_2_OF__17d0mxwaz_FB2P + *DO istoric_sit_operativa IN contabilitate_rapoarte WITH 'dividende', '457', 'Dividende' &&, 'Divid. platite', 'Divid.de plata' +ENDPROC && BAR_2_OF__17d0mxwaz_FB2P + +* diff --git a/Meniuri/vizfurn1.mn2 b/Meniuri/vizfurn1.mn2 new file mode 100644 index 0000000..23f59b6 --- /dev/null +++ b/Meniuri/vizfurn1.mn2 @@ -0,0 +1,61 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="vizfurn1.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Furnizori SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Furnizori PROMPT "\ + +* +PROCEDURE BAR_1_OF_Furnizori_FB2P + *osetviz.tbrprim.butonfurn.click + DO lans_balanta_parteneri WITH "401",.F. IN oparteneri.prg +ENDPROC && BAR_1_OF_Furnizori_FB2P + +PROCEDURE BAR_2_OF_Furnizori_FB2P + DO lans_balanta_parteneri WITH "409,4091,4092,4093,4094",.T. IN oparteneri.prg +ENDPROC && BAR_2_OF_Furnizori_FB2P + +PROCEDURE BAR_3_OF_Furnizori_FB2P + DO lans_balanta_cumulata_401_409 IN oparteneri.prg +ENDPROC && BAR_3_OF_Furnizori_FB2P + +PROCEDURE BAR_4_OF_Furnizori_FB2P + *lctitlu = 'Situatie analitica furnizori imobilizari' + *DO lans_balante_analitice WITH 'P', 'furniz404', lctitlu , '404 ', 'platit', 'achizit', 'platival', 'achizitval', .f., '' + DO lans_balanta_parteneri WITH "404",.F. IN oparteneri.prg + +ENDPROC && BAR_4_OF_Furnizori_FB2P + +* diff --git a/Meniuri/vizfurn2.mn2 b/Meniuri/vizfurn2.mn2 new file mode 100644 index 0000000..bfca1c6 --- /dev/null +++ b/Meniuri/vizfurn2.mn2 @@ -0,0 +1,197 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="vizfurn2.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Furnizori SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Furnizori PROMPT "F\ + +* +PROCEDURE BAR_1_OF_FacturiCum_FB2P + *DO viz_facturi WITH 'furnizor','cumplun',401,.t.,.t.,'Situatie lunara facturi cumparari','platit','achizit' + DO lans_ireg_parteneri WITH .T.,'401',.F. +ENDPROC && BAR_1_OF_FacturiCum_FB2P + +PROCEDURE BAR_2_OF_FacturiCum_FB2P + *DO viz_facturi WITH 'furnizor','cumplun',401,.f.,.t.,'Situatie lunara facturi cumparari','platit','achizit' + DO lans_ireg_parteneri WITH .F.,'401',.F. + +ENDPROC && BAR_2_OF_FacturiCum_FB2P + +PROCEDURE BAR_1_OF__0zm11awzq_FB2P + *DO viz_facturi WITH 'furniz404','cumplun404',404,.t.,.t.,'Situatie lunara facturi cumparari-404','platit','achizit' + DO lans_ireg_parteneri WITH .T.,'404',.F. + +ENDPROC && BAR_1_OF__0zm11awzq_FB2P + +PROCEDURE BAR_2_OF__0zm11awzq_FB2P + *DO viz_facturi WITH 'furniz404','cumplun404',404,.f.,.t.,'Situatie lunara facturi cumparari-404','platit','achizit' + DO lans_ireg_parteneri WITH .F.,'404',.F. +ENDPROC && BAR_2_OF__0zm11awzq_FB2P + +PROCEDURE BAR_1_OF_Facturines_FB2P + && PARAMETRII tcFis1,tcFis2,tnCont,tlCuTest,tlVisible,tcTitlu,TcColDeb,TcColCred + *DO viz_facturi WITH 'ana408','fact408',408,.t.,.t.,'Situatie Lunara Facturi Nesosite','platit','achizit' + DO lans_ireg_parteneri WITH .T.,'408',.F. + +ENDPROC && BAR_1_OF_Facturines_FB2P + +PROCEDURE BAR_2_OF_Facturines_FB2P + && PARAMETRII tcFis1,tcFis2,tnCont,tlCuTest,tlVisible,tcTitlu,TcColDeb,TcColCred + *DO viz_facturi WITH 'ana408','fact408',408,.f.,.t.,'Situatie Lunara Facturi Nesosite','platit','achizit' + DO lans_ireg_parteneri WITH .F.,'408',.F. + +ENDPROC && BAR_2_OF_Facturines_FB2P + +PROCEDURE BAR_1_OF_Avansuri40_FB2P + DO lans_ireg_parteneri WITH .T.,'409,4091,4092,4093,4094',.T. +ENDPROC && BAR_1_OF_Avansuri40_FB2P + +PROCEDURE BAR_2_OF_Avansuri40_FB2P + *!* IF USED('avans') + *!* USE IN avans + *!* ENDIF + + *!* use &date\avans409 in 0 again alias avans + + *!* SELECT avans + *!* oav=crea('avans') + *!* oav.label9.caption='Avansuri furnizori' + *!* oav.cmdlist2.visible=.f. + *!* oav.show(1) + + *!* use in avans + + DO lans_ireg_parteneri WITH .F.,'409,4091,4092,4093,4094',.T. +ENDPROC && BAR_2_OF_Avansuri40_FB2P + +PROCEDURE BAR_1_OF__11n15fvwe_FB2P + **parametrii: + **tcCont,tlActiv,tlTitlu,tlCauta_alfa_Cu_Toti,tlPerioada_Blocata,tcRaport_sau_Vizualizare,tc_NumeForma + + DO PrepareRptSitOp IN osituatii_operative.prg WITH '401',.F.,"",.T.,.T.,"Vizualizare","frm_viz_sit_op", "luna" +ENDPROC && BAR_1_OF__11n15fvwe_FB2P + +PROCEDURE BAR_2_OF__11n15fvwe_FB2P + **parametrii: + **tcCont,tlActiv,tlTitlu,tlCauta_alfa_Cu_Toti,tlPerioada_Blocata,tcRaport_sau_Vizualizare,tc_NumeForma + + DO PrepareRptSitOp IN osituatii_operative.prg WITH '401',.F.,"",.T.,.T.,"Vizualizare","frm_viz_sit_op", "perioada" + +ENDPROC && BAR_2_OF__11n15fvwe_FB2P + +PROCEDURE BAR_1_OF__11n15fyq7_FB2P + **parametrii: + **tcCont,tlActiv,tlTitlu,tlCauta_alfa_Cu_Toti,tlPerioada_Blocata,tcRaport_sau_Vizualizare,tc_NumeForma + + DO PrepareRptSitOp IN osituatii_operative.prg WITH '404',.F.,"",.T.,.T.,"Vizualizare","frm_viz_sit_op", "luna" +ENDPROC && BAR_1_OF__11n15fyq7_FB2P + +PROCEDURE BAR_2_OF__11n15fyq7_FB2P + **parametrii: + **tcCont,tlActiv,tlTitlu,tlCauta_alfa_Cu_Toti,tlPerioada_Blocata,tcRaport_sau_Vizualizare,tc_NumeForma + DO PrepareRptSitOp IN osituatii_operative.prg WITH '404',.F.,"",.T.,.T.,"Vizualizare","frm_viz_sit_op", "perioada" +ENDPROC && BAR_2_OF__11n15fyq7_FB2P + +* diff --git a/Meniuri/vnavans.mn2 b/Meniuri/vnavans.mn2 new file mode 100644 index 0000000..9ab691e --- /dev/null +++ b/Meniuri/vnavans.mn2 @@ -0,0 +1,18 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="vnavans.mnx" CPID="1250" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "Balanta venituri in avans 472" +ON SELECTION BAR 1 OF Shortcut DO lans_balanta_parteneri WITH "472",.F. IN OPARTENERI.prg + +DEFINE BAR 2 OF Shortcut PROMPT "Inregistrari venituri in avans 472" +ON SELECTION BAR 2 OF Shortcut DO lans_ireg_parteneri WITH .F.,'472',.F. +ACTIVATE POPUP Shortcut + +* \ No newline at end of file diff --git a/Programe/OVARIABILE_GLOBALE.PRG b/Programe/OVARIABILE_GLOBALE.PRG new file mode 100644 index 0000000..741e1ef --- /dev/null +++ b/Programe/OVARIABILE_GLOBALE.PRG @@ -0,0 +1,20 @@ +**OVARIABILE_GLOBALE.PRG + +*** Citesc setarea pentru ReportBehaviour +IF TYPE('gnReportBehaviour') = 'U' + PUBLIC gnReportBehaviour + gnReportBehaviour = 90 +ENDIF + +LOCAL lcReportBehaviour +lcReportBehaviour = NVL(getini(m.gcGeneralIniFile,'report','reportbehaviour'), '') +IF EMPTY(m.lcReportBehaviour) + setini(m.gcGeneralIniFile,'report','reportbehaviour', '90') + gnReportBehaviour = 90 +ELSE + gnReportBehaviour = VAL(m.lcReportBehaviour) +ENDIF +IF !INLIST(gnReportBehaviour, 80, 90) + setini(m.gcGeneralIniFile,'report','reportbehaviour', '90') + gnReportBehaviour = 90 +ENDIF diff --git a/Programe/export_sf_access.prg b/Programe/export_sf_access.prg new file mode 100644 index 0000000..0620d7d --- /dev/null +++ b/Programe/export_sf_access.prg @@ -0,0 +1,515 @@ +DEFINE CLASS export_sf_access AS custom + cPathKIT = "c:\bilant\" + cPathTempo = "c:\Temp\" + cBilant = "date1" + cCPP = "date2" + cDateInf = "date3" + cActive = "date4" + cFirma = "Date5" +&& ------------------------------INCEPUT: Init ------------------------------ + *!* Procedura: Init + *!* Parametri: + *!* Data/Ora generarii: 17/02/2004 10:56 + *!* Autor: MARIUS.MUTU + PROCEDURE INIT + LPARAMETERS tcPathKIT, tcPathTempo + + IF TYPE('tcPathKIT')='C' + THIS.cPathKIT = ADDBS(tcPathKIT) + ENDIF + THIS.Init_Directoare(THIS.cPathKIT) + + IF TYPE('tcPathTempo')='C' + THIS.cPathTempo = ADDBS(tcPathTempo) + ENDIF + THIS.Init_Directoare(THIS.cPathTempo) + + ENDPROC +&& ------------------------------SFARSIT: Init ------------------------------ + +&& ------------------------------INCEPUT: Error ------------------------------ + *!* Functia: Error + *!* Parametri: tnError, tcProcedura, tcMesaj + *!* Data/Ora generarii: 17/02/2004 11:35 + *!* Autor: MARIUS.MUTU + FUNCTION ERRORH + LPARAMETERS tnError, tcProcedura, tnLinieMesaj + + lcErrorNumber = ALLTRIM(STR(tnError)) + lcProcedura = ALLTRIM(tcProcedura) + lcLinieMesaj = ALLTRIM(STR(tnLinieMesaj)) + lcMesaj = MESSAGE(1) + lcText = "Eroarea nr. " + lcErrorNumber + CHR(13) + CHR(10) +; + "Procedura: " + lcProcedura + CHR(13) + CHR(10) +; + "Mesaj: " + lcMesaj + CHR(13) + CHR(10) +; + "Linia: " + lcLinieMesaj + = MESSAGEBOX(lcText) + + + ENDFUNC +&& ------------------------------SFARSIT: Error ------------------------------ + +&& ------------------------------INCEPUT: Init_Directoare ------------------------------ + *!* Procedura: Init_Directoare + *!* Parametri: tcPath + *!* Data/Ora generarii: 17/02/2004 10:47 + *!* Autor: MARIUS.MUTU + + PROCEDURE Init_Directoare + LPARAMETERS tcPath + + lcPath = ADDBS(tcPath) + + IF !DIRECTORY(lcPath) + MD (lcPath) + ENDIF + + ENDPROC +&& ------------------------------SFARSIT: Init_Directoare ------------------------------ + +&& ------------------------------INCEPUT: Copie_Fisiere_Vide ------------------------------ + *!* Procedura: Copie_Fisiere_Vide + *!* Parametri: tcSPath, tcDPath, tcFileName + *!* Data/Ora generarii: 17/02/2004 11:07 + *!* Autor: MARIUS.MUTU + PROCEDURE Copie_Fisiere_Vide + LPARAMETERS tcSPath, tcDPath, tcFileName + + IF !DIRECTORY(tcSPath) + RETURN .F. + ENDIF + + IF !DIRECTORY(tcDPath) + THIS.Init_Directoare(tcDPath) + ENDIF + + IF EMPTY(tcFileName) + lcFileName = "*.*" + ELSE + lcFileName = ALLTRIM(tcFileName)+".*" + ENDIF + + lcSFile = ADDBS(tcSPath) + lcFileName + lcDFile = ADDBS(tcDPath) + lcFileName + + COPY FILE (lcSFile) TO (lcDFile) + + RETURN .T. + + ENDPROC +&& ------------------------------SFARSIT: Copie_Fisiere_Vide ------------------------------ + +&& ------------------------------INCEPUT: Completeaza_Date_Bilant ------------------------------ + *!* Procedura: Completeaza_Date_Bilant + *!* Parametri: tcAliasBilant + *!* Data/Ora generarii: 17/02/2004 11:12 + *!* Autor: MARIUS.MUTU + PROCEDURE Completeaza_Date_Bilant + LPARAMETERS tcAliasBilant + + LOCAL lnNrRanduri, lcBilant, lcFisBilant, loBilant, llUsed + lnNrRanduri = 34 + + lcBilant = ALLTRIM(THIS.cBilant) + lcFisBilant = ADDBS(THIS.cPathKIT) + lcBilant + ".dbf" + + IF !FILE(lcFisBilant) + RETURN .F. + ENDIF + + llUsed = .T. + IF !USED(lcBilant) + llUsed = .F. + USE (lcFisBilant) IN 0 ALIAS (lcBilant) + ENDIF + + + + IF USED('tBilant') + USE IN tBilant + ENDIF + + SELECT PADL(ALLTRIM(a.nr),2,"0") AS RAND, a.suma2 AS suma1, a.suma AS suma2 ; + FROM (tcAliasBilant) a; + WHERE VAL(a.nr)!=0 ; + INTO CURSOR tBilant + + + + + SELECT (lcBilant) + SCATTER NAME loBilant BLANK + + lcOldError = ON("error") + ON ERROR * && daca lipsesc coloane din tabelul (lcActive) nu procesez eroarea + + SELECT tBilant + SCAN + lcVar1 = "loBilant.F10_"+PADL(ALLTRIM(RAND),3,'0')+'1' + &lcVar1 = suma1 + + lcVar2 = "loBilant.F10_"+PADL(ALLTRIM(RAND),3,'0')+'2' + &lcVar2 = suma2 + ENDSCAN + + ON ERROR &lcOldError + + SELECT (lcBilant) + GATHER NAME loBilant + + USE IN tBilant + + IF !llUsed + USE IN (lcBilant) + ENDIF + + ENDPROC +&& ------------------------------SFARSIT: Completeaza_Date_Bilant ------------------------------ + +&& ------------------------------INCEPUT: Completeaza_Date_Cpp ------------------------------ + *!* Procedura: Completeaza_Date_Cpp + *!* Parametri: + *!* Data/Ora generarii: 17/02/2004 11:12 + *!* Autor: MARIUS.MUTU + PROCEDURE Completeaza_Date_Cpp + LPARAMETERS tcAliasCPP + + LOCAL lnNrRanduri, lcCPP, lcFisCPP, loCPP, llUsed + lnNrRanduri = 63 + + lcCPP = ALLTRIM(THIS.cCPP) + lcFisCPP = ADDBS(THIS.cPathKIT) + lcCPP + ".dbf" + + IF !FILE(lcFisCPP) + RETURN .F. + ENDIF + + llUsed = .T. + IF !USED(lcCPP) + llUsed = .F. + USE (lcFisCPP) IN 0 SHARED ALIAS (lcCPP) + ENDIF + + + + IF USED('tCPP') + USE IN tCPP + ENDIF + + SELECT PADL(ALLTRIM(a.RAND),2,"0") AS RAND, a.sumai AS suma1, a.sumac AS suma2 ; + FROM (tcAliasCPP) a; + WHERE VAL(a.RAND)!=0 ; + INTO CURSOR tCPP + + + + lcOldError = ON("error") + ON ERROR * && daca lipsesc coloane din tabelul (lcActive) nu procesez eroarea + + + SELECT (lcCPP) + SCATTER NAME loCPP BLANK + + SELECT tCPP + SCAN + lcVar1 = "loCPP.F20_"+PADL(ALLTRIM(RAND),3,'0')+'1' + &lcVar1 = suma1 + + lcVar2 = "loCPP.F20_"+PADL(ALLTRIM(RAND),3,'0')+'2' + &lcVar2 = suma2 + ENDSCAN + + ON ERROR &lcOldError + + SELECT (lcCPP) + GATHER NAME loCPP + + USE IN tCPP + + IF !llUsed + USE IN (lcCPP) + ENDIF + + ENDPROC +&& ------------------------------SFARSIT: Completeaza_Date_Cpp ------------------------------ + + +&& ------------------------------INCEPUT: Completeaza_Date_Date_informative ------------------------------ + *!* Procedura: Completeaza_Date_Date_informative + *!* Parametri: + *!* Data/Ora generarii: 17/02/2004 11:13 + *!* Autor: MARIUS.MUTU + PROCEDURE Completeaza_Date_Date_informative + LPARAMETERS tcAliasDateInf + + LOCAL lnNrRanduri, lcDateInf, lcFisDateInf, loDateInf, llUsed + lnNrRanduri = 22 + + lcDateInf = ALLTRIM(THIS.cDateInf) + lcFisDateInf = ADDBS(THIS.cPathKIT) + lcDateInf + ".dbf" + + + IF !FILE(lcFisDateInf) + RETURN .F. + ENDIF + + llUsed = .T. + IF !USED(lcDateInf) + llUsed = .F. + USE (lcFisDateInf) IN 0 SHARED ALIAS (lcDateInf) + ENDIF + + + + IF USED('tDateInf1') + USE IN tDateInf1 + ENDIF + IF USED('tDateInf2') + USE IN tDateInf2 + ENDIF + + lcAliasDateInf = ALLTRIM(tcAliasDateInf) + lcAliasDateInf1 = lcAliasDateInf+"1R" + lcAliasDateInf2 = lcAliasDateInf+"2R" + + + SELECT PADL(ALLTRIM(a.RAND),2,"0") AS RAND, a.unitati AS suma1, a.sume AS suma2 ; + FROM (lcAliasDateInf1) a; + WHERE VAL(a.RAND)!=0 ; + INTO CURSOR tDateInf1 + + SELECT PADL(ALLTRIM(a.RAND),2,"0") AS RAND, a.sold AS suma1, a.col2 AS suma2, a.col3 AS suma3 ; + FROM (lcAliasDateInf2) a ; + WHERE VAL(a.RAND)!=0 ; + INTO CURSOR tDateInf2 + + + + *** DATEINF1 + SELECT (lcDateInf) + SCATTER NAME loDateInf BLANK + + lcOldError = ON("error") + ON ERROR * && daca lipsesc coloane din tabelul (lcActive) nu procesez eroarea + + SELECT tDateInf1 + SCAN + lcVar1 = "loDateInf.F30_"+PADL(ALLTRIM(RAND),3,'0')+'1' + &lcVar1 = suma1 + + lcVar2 = "loDateInf.F30_"+PADL(ALLTRIM(RAND),3,'0')+'2' + &lcVar2 = suma2 + ENDSCAN + + ON ERROR &lcOldError + + SELECT (lcDateInf) + GATHER NAME loDateInf + + USE IN tDateInf1 + + + *** DATEINF2 + + lcOldError = ON("error") + ON ERROR * && daca lipsesc coloane din tabelul (lcActive) nu procesez eroarea + + SELECT tDateInf2 + SCAN + lcVar1 = "loDateInf.F30_"+PADL(ALLTRIM(RAND),3,'0')+'1' + &lcVar1 = suma1 + + lcVar2 = "loDateInf.F30_"+PADL(ALLTRIM(RAND),3,'0')+'2' + &lcVar2 = suma2 + + lcVar3 = "loDateInf.F30_"+PADL(ALLTRIM(RAND),3,'0')+'3' + &lcVar3 = suma3 + ENDSCAN + + + ON ERROR &lcOldError + + SELECT (lcDateInf) + GATHER NAME loDateInf + + USE IN tDateInf2 + + IF !llUsed + USE IN (lcDateInf) + ENDIF + + ENDPROC +&& ------------------------------SFARSIT: Completeaza_Date_Date_informative ------------------------------ + +&& ------------------------------INCEPUT: Completeaza_Date_Active_Imobilizate ------------------------------ + *!* Procedura: Completeaza_Date_Active_Imobilizate + *!* Parametri: + *!* Data/Ora generarii: 17/02/2004 11:13 + *!* Autor: MARIUS.MUTU + PROCEDURE Completeaza_Date_Active_Imobilizate + LPARAMETERS tcAliasActive + + LOCAL lnNrRanduri, lcActive, lcFisActive, loActive, llUsed + lnNrRanduri = 33 + + lcActive = ALLTRIM(THIS.cActive) + lcFisActive = ADDBS(THIS.cPathKIT) + lcActive + ".dbf" + + IF !FILE(lcFisActive) + RETURN .F. + ENDIF + + llUsed = .T. + IF !USED(lcActive) + llUsed = .F. + USE (lcFisActive) IN 0 SHARED ALIAS (lcActive) + ENDIF + + + + IF USED('tActive') + USE IN tActive + ENDIF + + SELECT PADL(ALLTRIM(a.nr),2,"0") AS RAND, a.soldi AS suma1, a.crestere AS suma2, a.reducere AS suma3, a.casare AS suma4, a.soldf AS suma5 ; + FROM (tcAliasActive) a ; + WHERE VAL(a.nr)!=0 ; + INTO CURSOR tActive + + + lcOldError = ON("error") + ON ERROR * && daca lipsesc coloane din tabelul (lcActive) nu procesez eroarea + + SELECT (lcActive) + SCATTER NAME loActive BLANK + + SELECT tActive + SCAN + lcVar1 = "loActive.F40_"+PADL(ALLTRIM(RAND),3,'0')+'1' + &lcVar1 = suma1 + + lcVar2 = "loActive.F40_"+PADL(ALLTRIM(RAND),3,'0')+'2' + &lcVar2 = suma2 + + lcVar3 = "loActive.F40_"+PADL(ALLTRIM(RAND),3,'0')+'3' + &lcVar3 = suma3 + + lcVar4 = "loActive.F40_"+PADL(ALLTRIM(RAND),3,'0')+'4' + &lcVar4 = suma4 + + lcVar5 = "loActive.F40_"+PADL(ALLTRIM(RAND),3,'0')+'5' + &lcVar5 = suma5 + + ENDSCAN + + ON ERROR &lcOldError + + SELECT (lcActive) + GATHER NAME loActive + + USE IN tActive + + IF !llUsed + USE IN (lcActive) + ENDIF + + ENDPROC +&& ------------------------------SFARSIT: Completeaza_Date_Active_Imobilizate ------------------------------ + +&& ------------------------------INCEPUT: Completeaza_Date_Firma ------------------------------ + *!* Procedura: Completeaza_Date_Firma + *!* Parametri: + *!* Data/Ora generarii: 17/02/2004 11:14 + *!* Autor: MARIUS.MUTU + PROCEDURE Completeaza_Date_Firma + LPARAMETERS tcAliasFirma + + LOCAL lnNrRanduri, lcFirma, lcFisFirma, loFirma, llUsed + + + lcFirma = ALLTRIM(THIS.cFirma) + lcFisFirma = ADDBS(THIS.cPathKIT) + lcFirma + ".dbf" + + IF !FILE(lcFisFirma) + RETURN .F. + ENDIF + + llUsed = .T. + IF !USED(lcFirma) + llUsed = .F. + USE (lcFisFirma) IN 0 SHARED ALIAS (lcFirma) + ENDIF + + SELECT (lcFirma) + SCATTER NAME loFirma BLANK + + SELE firma + LOCA FOR ALLT(fscurt)=ALLT(nfscurt) + loFirma.codi=VAL(ALLT(STRTRAN(UPPE(cod_fiscal),'R',''))) + + SELECT (lcFirma) + GATHER NAME loFirma + + IF !llUsed + USE IN (lcFirma) + ENDIF + + ENDPROC +&& ------------------------------SFARSIT: Completeaza_Date_Firma ------------------------------ + +&& ------------------------------INCEPUT: Date_Noi_Bilant------------------------------ + *!* Procedura: Date_Noi_Bilant + *!* Parametri: + *!* Data/Ora generarii: 17/02/2004 14:26 + *!* Autor: MARIUS.MUTU + PROCEDURE Date_Noi_Bilant + + LOCAL lnRaspuns + lnRaspuns = 7 + + lnFisiere = 5 + DECLARE laFisiere[lnFisiere,2] + + laFisiere[1,1] = "Bilant" + laFisiere[2,1] = "Cont Profit si Pierdere" + laFisiere[3,1] = "Date Informative" + laFisiere[4,1] = "Active Imobilizate" + laFisiere[5,1] = "Firma" + + laFisiere[1,2] = "date1" + laFisiere[2,2] = "date2" + laFisiere[3,2] = "date3" + laFisiere[4,2] = "date4" + laFisiere[5,2] = "date5" + + FOR i = 1 TO lnFisiere + + lcMesaj = "Doriti sa creati un fisier gol pentru "+laFisiere[i,1]+"?" + lnRaspuns = AMESSAGEBOX(lcMesaj,4+32) + + IF lnRaspuns = 7 && buton=2 + LOOP + ENDIF + + lcSpath = ADDBS(dirgen)+"_alfa\date_bilant\" + lcDPath = this.cPathKIT + lcFileName = laFisiere[i,2] + + THIS.Copie_Fisiere_Vide(lcSpath, lcDPath, lcFileName) + + IF i=1 && bilant -> copii si bazele de data access + lcFileName = [*.mdb] + lcFileS = lcSPath + lcFileName + lcFileD = lcDPath + lcFileName + COPY FILE (lcFileS) TO (lcFileD) + ENDIF + + ENDFOR + + ENDPROC +&& ------------------------------SFARSIT: Date_Noi_Bilant------------------------------ + +ENDDEFINE + + + diff --git a/Programe/init_program.prg b/Programe/init_program.prg new file mode 100644 index 0000000..96400e0 --- /dev/null +++ b/Programe/init_program.prg @@ -0,0 +1,370 @@ +&& ------------------------------INCEPUT: Citeste_Cheie ------------------------------ +*!* Functie: Citeste_Cheie +*!* Parametri: tcKey, tcBranch, tcLeafe +*!* Data/Ora generarii: 16/02/2004 14:26:22 +*!* Autor: MARIUS.MUTU +FUNCTION Citeste_Cheie + LPARAMETERS tcKey, tnBranch, tcLeafe + + LOCAL lcRet,loApi, lcKey, lnBranch, lcLeafe + + lcKey = ALLTRIM(tcKey) + lnBranch = tnBranch + lcLeafe = ALLTRIM(tcLeafe) + lcRet = [] + + loApi = CREATE("registry") + + IF loApi.iskey(lcKey, lnBranch) + + loApi.openkey(lcKey, lnBranch,.F.) + lcRet = loApi.getkeyvalue(lcLeafe,) + ENDIF + + RELEASE loApi + RETURN lcRet + +ENDFUNC +&& ------------------------------SFARSIT: Citeste_Cheie ------------------------------ + +&& ------------------------------INCEPUT: Exista_Branch ------------------------------ +*!* Functie: Exista_Branch +*!* Parametri: tcKey +*!* Data/Ora generarii: 18/02/2004 14:01:29 +*!* Autor: MARIUS.MUTU +FUNCTION Exista_Branch + LPARAMETERS tcKey, tnBranch,tcCale + + + LOCAL lcRet,loApi, lcKey, lnBranch + + lccale="serverdate_"+STRTRAN(tcCale,"\","") + + IF EMPTY(tcKey) + lcKey = [contafin\] + lccale + [\util] + ELSE + lcKey = ALLTRIM(tcKey) + ENDIF + + IF EMPTY(tnBranch) + lnBranch = -2147483647 + ELSE + lnBranch = tnBranch + ENDIF + + + llRet = .F. + loApi = CREATE("registry") + IF loApi.iskey(lcKey, lnBranch) + llRet = .T. + ENDIF + + RELEASE loApi + + RETURN llRet + +ENDFUNC +&& ------------------------------SFARSIT: Exista_Branch ------------------------------ + +&& ------------------------------INCEPUT: Verific_Start ------------------------------ +*!* Functia: Verific_Start +*!* Parametri: tcParam +*!* Data/Ora generarii: 16/02/2004 13:32:11 +*!* Autor: MARIUS.MUTU +*!* returneza TRUE daca parametrul trimis codat in binar este egal cu variabila citita din registri +FUNCTION Verific_Start + LPARAMETERS tcSesiune,tcCale,tcAppName + + LOCAL llRet,loApi, lcKey, lnBranch, lcSesiune + + lccale="serverdate_"+STRTRAN(tcCale,"\","") + IF EMPTY(tcAppName) + lcAppName = JUSTSTEM(SYS(16,0)) + ELSE + lcAppName = ALLTRIM(tcAppName) + ENDIF + + llRet = .T. + lcKey = [contafin\]+lccale+[\util] + lnBranch = -2147483647 + lcLeafe = [session] + lcSesiune = [] + + IF EMPTY(tcSesiune) + llRet = .F. + ELSE + lcSesiune = tcSesiune + +*!* lcSesiune1 = citeste_cheie(lcKey, lnBranch, lcLeafe) + lcSesiune2 = VAL(Citeste_Cheie(lcKey, lnBranch, lcLeafe)) + lcSesiune3 = BINTOC(lcSesiune2,4) + lcsesiune1=SUBSTR(lcSesiune3,1,1)+SUBSTR(lcSesiune3,3,2) +*!* IF EMPTY(lcSesiune1) +*!* lcSesiune1 = [] +*!* ENDIF + + lcsesiune1 = STUFF(lcsesiune1,2,0,lcAppName) + IF SYS(2007,ALLTRIM(UPPER(lcSesiune))) # SYS(2007,ALLTRIM(UPPER(lcsesiune1))) + llRet = .F. + + ENDIF + ENDIF + + + RETURN llRet + +ENDFUNC +&& ------------------------------SFARSIT: Verific_Start ------------------------------ + +&& ------------------------------INCEPUT: Init_Cale_Temp------------------------------ +*!* Functia: Init_Cale_Temp +*!* Parametri: +*!* Data/Ora generarii: 16/02/2004 13:32:11 +*!* Autor: MARIUS.MUTU +*!* citeste directorul temporar din registrii si il creeaza +FUNCTION Init_Cale_Temp + PARAMETERS tcCale +* lccale="serverdate_"+STRTRAN(tccale,"\","") + + LOCAL lcTempPath,loApi, lcKey, lnBranch, lcSesiune + llRet = .T. + lcKey = [contafin\temporare] +* lcKey = [contafin\]+lccale+[\temporare] + lnBranch = -2147483647 + lcLeafe = [temp] + + + lcTempPath=Citeste_Cheie(lcKey, lnBranch, lcLeafe) + + RETURN lcTempPath + +ENDFUNC +&& ------------------------------SFARSIT: Init_Cale_Temp------------------------------ + +&& ------------------------------INCEPUT: Init_Cale_Server_Date ------------------------------ +*!* Functia: Init_Cale_Server_Date +*!* Parametri: +*!* Data/Ora generarii: 16/02/2004 13:32:11 +*!* Autor: MARIUS.MUTU +*!* citeste calea serverului de date din registri +FUNCTION Init_Cale_Server_Date + PARAMETERS tcCale + lccale="serverdate_"+STRTRAN(tcCale,"\","") + LOCAL lcCaleServerDate, loApi, lcKey, lnBranch, lcSesiune + lcCaleServerDate= [] + lcKey = [contafin\]+lccale + lnBranch = -2147483647 + lcLeafe = [cale] + + + lcCaleServerDate=Citeste_Cheie(lcKey, lnBranch, lcLeafe) + + + RETURN lcCaleServerDate + +ENDFUNC +&& ------------------------------SFARSIT: Init_Cale_Server_Date ------------------------------ + +&& ------------------------------INCEPUT: Init_Nume_Utilizator ------------------------------ +*!* Functia: Init_Nume_Utilizator +*!* Parametri: +*!* Data/Ora generarii: 16/02/2004 13:32:11 +*!* Autor: MARIUS.MUTU +*!* citeste numele utilizatorului logat la START din registri +FUNCTION Init_Nume_Utilizator + PARAMETERS tcCale + + LOCAL lcNumeUtilizator, loApi, lcKey, lnBranch, lcSesiune + + lccale="serverdate_"+STRTRAN(tcCale,"\","") + lcNumeUtilizator = [] + lcKey = [contafin\]+lccale+[\util] + lnBranch = -2147483647 + lcLeafe = [nume] + + + lcNumeUtilizator=Citeste_Cheie(lcKey, lnBranch, lcLeafe) + + + RETURN lcNumeUtilizator + +ENDFUNC +&& ------------------------------SFARSIT: Init_Nume_Utilizator------------------------------ + +&& ------------------------------INCEPUT: Init_Nivel_Utilizator ------------------------------ +*!* Functia: Init_Nivel_Utilizator +*!* Parametri: +*!* Data/Ora generarii: 16/02/2004 13:32:11 +*!* Autor: MARIUS.MUTU +*!* citeste nivelul utilizatorului logat la START din registri +FUNCTION Init_Nivel_Utilizator + PARAMETERS tcCale + lccale="serverdate_"+STRTRAN(tcCale,"\","") + LOCAL lcNivelUtilizator, loApi, lcKey, lnBranch, lcSesiune + lcNumeUtilizator = [] + lcKey = [contafin\]+lccale+[\prog\]+gcAppName + lnBranch = -2147483647 + lcLeafe = [nivel] + + + lcNivelUtilizator=Citeste_Cheie(lcKey, lnBranch, lcLeafe) + + + RETURN lcNivelUtilizator + +ENDFUNC +&& ------------------------------SFARSIT: Init_Nume_Utilizator------------------------------ + +&& ------------------------------INCEPUT: Init_Nume_Statie------------------------------ +*!* Functia: Init_Nume_Statie +*!* Parametri: +*!* Data/Ora generarii: 16/02/2004 13:32:11 +*!* Autor: MARIUS.MUTU +*!* citeste numele statiei +FUNCTION Init_Nume_Statie + PARAMETERS tcCale + lccale="serverdate_"+STRTRAN(tcCale,"\","") + LOCAL lcNumeStatie, loApi, lcKey, lnBranch + lcNumeStatie= [] + lcKey = [contafin\]+lccale + lnBranch = -2147483647 + lcLeafe = [numestatie] + + + lcNumeStatie=Citeste_Cheie(lcKey, lnBranch, lcLeafe) + + + RETURN lcNumeStatie + +ENDFUNC +&& ------------------------------SFARSIT: Init_Nume_Statie + +&& ------------------------------INCEPUT: Init_NumeAlternativ------------------------------ +*!* Functia: Init_NumeAlternativ +*!* Parametri: +*!* Data/Ora generarii: 18/02/2004 16:29:11 +*!* Autor: MARIUS.MUTU +*!* citeste nume2 ex: (CONT2003) CASA +FUNCTION Init_NumeAlternativ + PARAMETERS tcCale,tcAppName + LOCAL lcNumeAlternativ, loApi, lcKey, lnBranch + lccale="serverdate_"+STRTRAN(tcCale,"\","") + IF EMPTY(tcAppName) + lcAppName = JUSTSTEM(SYS(16,0)) + ELSE + lcAppName = ALLTRIM(tcAppName) + ENDIF + + lcNumeAlternativ= [] +* lcKey = [contafin\prog\]+gcAppName + lcKey = [contafin\]+lccale+[\prog\]+lcAppName + lnBranch = -2147483647 + lcLeafe = [nume2] + + + lcNumeAlternativ = Citeste_Cheie(lcKey, lnBranch, lcLeafe) + + + RETURN lcNumeAlternativ + +ENDFUNC +&& ------------------------------SFARSIT: Init_NumeAlternativ + +&& ------------------------------INCEPUT: Start_Istoric ------------------------------ +*!* Functie: Start_Istoric +*!* Parametri: tcNumeUtilizator, tcNumeProgram, tcNumeStatie +*!* Data/Ora generarii: 08/03/2004 15:31:58 +*!* Autor: MARIUS.MUTU +FUNCTION Start_Istoric + LPARAMETERS tcNumeUtilizator, tcNumeProgram, tcNumeStatie, tcCaleIstoric, tcNumeIstoric, tcNumeIds + + lcNumeUtilizator = ALLTRIM(tcNumeUtilizator) + lcNumeProgram = ALLTRIM(tcNumeProgram) + lcNumeStatie = ALLTRIM(tcNumeStatie) + lcCaleIstoric = ADDBS(tcCaleIstoric) + lcNumeIstoric = ALLTRIM(tcNumeIstoric) + lcNumeIds = ALLTRIM(tcNumeIds) + + lcNume = ALLTRIM(lcNumeIstoric) + lcFile = ADDBS(lcCaleIstoric) + lcNumeIstoric + ".dbf" + + IF !FILE(lcFile) + RETURN + ENDIF + + llUsed = .T. + IF !USED('Istoric') + USE (lcFile) IN 0 SHARED AGAIN ALIAS Istoric + llUsed = .F. + ENDIF + + lcFile = ADDBS(lcCaleIstoric) + lcNumeIDS + ".dbf" + IF !FILE(lcFile) + RETURN + ENDIF + + llUsed2 = .T. + IF !USED('ids') + USE (lcFile) IN 0 SHARED AGAIN ALIAS Ids + llUsed2 = .F. + ENDIF + + lnNewId = new_id("istoric","id",.T.) + SELECT Istoric + IF FLOCK() + APPEND BLANK + REPLACE ID WITH lnNewId, statie WITH lcNUMESTATIE, PROGRAM WITH lcNumeProgram, utilizator WITH lcNumeUtilizator, dataoraint WITH DATETIME() + UNLOCK + ENDIF + + IF !llUsed + USE IN Istoric + ENDIF + + IF !llUsed2 + USE IN ids + ENDIF + + RETURN lnNewId + +ENDFUNC +&& ------------------------------SFARSIT: Start_Istoric ------------------------------ + +&& ------------------------------INCEPUT: End_Istoric ------------------------------ +*!* Functie: End_Istoric +*!* Parametri: tnIdIstoric +*!* Data/Ora generarii: 08/03/2004 15:51:32 +*!* Autor: MARIUS.MUTU +FUNCTION End_Istoric + LPARAMETERS tnIdIstoric, tcCaleIstoric, tcNumeIstoric + + lcCaleIstoric = ADDBS(tcCaleIstoric) + lcNumeIstoric = ALLTRIM(tcNumeIstoric) + + lcNume = ALLTRIM(lcNumeIstoric) + lcFile = ADDBS(lcCaleIstoric) + lcNume + ".dbf" + IF !FILE(lcFile) + RETURN + ENDIF + + llUsed = .T. + IF !USED('Istoric') + USE (lcFile) IN 0 SHARED AGAIN ALIAS Istoric + llUsed = .F. + ENDIF + + SELECT Istoric + LOCATE FOR ID = tnIdIstoric + IF FOUND() + IF FLOCK() + REPLACE dataoraies WITH DATETIME() + UNLOCK + ENDIF + ENDIF + + IF !llUsed + USE IN Istoric + ENDIF + +ENDFUNC +&& ------------------------------SFARSIT: End_Istoric ------------------------------ diff --git a/Programe/mesaje.prg b/Programe/mesaje.prg new file mode 100644 index 0000000..db77adf --- /dev/null +++ b/Programe/mesaje.prg @@ -0,0 +1,43 @@ +*_________________________________________ +PROCEDURE anunta_rezultat + LPARAMETERS lcCategorie, lcSursa, lcMesaj, llEroare, llInTabel, lnId_ref + IF llInTabel + scrie_in_mesaje(lcCategorie, lcSursa, lcMesaj, llEroare, lnId_ref) + ELSE + DO mesaj With lcMesaj, '' + ENDIF +ENDPROC + +PROCEDURE scrie_in_mesaje + LPARAMETERS lcCategorie, lcSursa, lcMesaj, llEroare, lnId_ref + LOCAL lnOrdine + SELECT mesaje + CALCULATE MAX(ordine) TO m.lnOrdine + m.lnOrdine = m.lnOrdine + 1 + APPEND BLANK + replace ordine WITH m.lnOrdine, sursa WITH lcSursa, mesaj WITH lcMesaj, ; + eroare WITH llEroare, categorie WITH lcCategorie, id_ref WITH lnId_ref +ENDPROC + +PROCEDURE sterge_mesaje + ZAP IN mesaje +ENDPROC + +PROCEDURE raport_mesaje + PARAMETERS tcPerioada + PRIVATE pcTitlu,pcPerioada,pcDataOra +*!* PRIVATE toFirma +*!* SELECT FIRMA +*!* LOCATE FOR NFSCURT=FSCURT +*!* SCATTER NAME m.toFirma +*!* SELECT mesaje +*!* IF RECNO() > 0 +*!* SET ORDER TO ordine +*!* REPORT FORM mesaje TO PRINTER PROMPT PREVIEW +*!* ENDIF + pcTitlu=[VERIFICARE GLOBALA] + pcPerioada=[Perioada ] + pcdataora = get_ora(2) + SELECT crsverificari + REPORT FORM rap_mesaje TO PRINTER PROMPT preview +ENDPROC \ No newline at end of file diff --git a/Programe/obj2arr.PRG b/Programe/obj2arr.PRG new file mode 100644 index 0000000..5f5e1b5 --- /dev/null +++ b/Programe/obj2arr.PRG @@ -0,0 +1,100 @@ +* Version....: 1.0 +* Author.....: Maurice de Beijer +* Date.......: January 29, 1998 +* Notice.....: Copyright (c) 1996-1998 ABL, All Rights Reserved. +* Compiler...: Visual FoxPro 05.00.00.0415 for Windows +* Abstract...: Creates a one dimensional array with a pointer +* to all object contained within the object +* +* Returns....: The number of selected objects +* +* Parameters.: taTarget +* Target array (passed by reference) +* taObject +* Container object reference +* +LPARAMETERS taTarget, taObject + +LOCAL lnCount +lnCount = 0 + +DIMENSION taTarget[1, 1] +taTarget = NULL + +* +* Make sure an object was passed +* +IF TYPE('taObject') = 'O' AND !ISNULL(taObject) + * + * Object passed into recursive call + * + object2array(@taTarget, taObject) + + IF TYPE('taTarget[1]') = 'O' + * + * Retun the number of objects + * + lnCount = ALEN(taTarget, 1) + ENDIF +ENDIF + +RETURN lnCount + + + + +*------------------------------------------------------- +* Function....: Object2Array +* Called by...: Obj2Arr +* +* Abstract....: Creates a one dimensional array with a pointer +* to all object contained within the object +* +* Returns.....: None +* +* Parameters..: taTarget +* Target array (passed by reference) +* taObject +* Container object reference +* +* Notes.......: +*------------------------------------------------------- +PROCEDURE Object2Array(taTarget, taObject) +LOCAL ARRAY laMembers[1, 1] +LOCAL lnCount, lnI + +* +* Make sure the second parameter is an object before adding it to the array +* +IF TYPE('taObject') = 'O' AND !ISNULL(taObject) + IF TYPE('taTarget[1]') = 'O' AND !ISNULL(taTarget[1]) + * + * Increase the array size + * + lnCount = ALEN(taTarget, 1) + 1 + DIMENSION taTarget[lnCount] + * + * Add the current object to the end + * + taTarget[lnCount] = taObject + ELSE + * + * First object in the array + * + taTarget[1] = taObject + ENDIF + + * + * Get all member names + * + lnCount = AMEMBERS(laMembers, taObject, 2) + + FOR lnI = 1 TO lnCount + * + * Get all contained objects from the member objects + * + object2array(@taTarget, EVAL('taObject.' + laMembers[lnI]) ) + ENDFOR +ENDIF + +RETURN diff --git a/Programe/ocont2003.prg b/Programe/ocont2003.prg new file mode 100644 index 0000000..b449d4a --- /dev/null +++ b/Programe/ocont2003.prg @@ -0,0 +1,2155 @@ +*!* 08.08.2011 +*!* marius.mutu +*!* note_fara_predefinire +*!* se restaureaza nota fara predefinire neterminata anterior (fatal error) la intrarea in nota fara predefinire + +*!* 20.10.2011 +*!* marius.mutu +*!* note_fara_predefinire +*!* prima linie adaugata in cursor se completeaza si campul id_sucursala +*!* intr-o sucursala nu se putea modifica prima linie din cauza ca tact.id_sucursala (0) era diferit de gnIdSucursala (1) + +*!* 22.08.2013 +*!* marius.mutu +*!* repunere_venchelt_avans +*!* repunere automata pentru cheltuielile/veniturile in avans cu rate definite + +*!* 11.08.2014 +*!* marius.mutu +*!* note_fara_predefinire +*!* #4039 tratare eroare explicatie_tva de 2 ori in tact (explicatie_tva_a si explicatie_tva_b) + +*!* 24.10.2014 +*!* marius.mutu +*!* oxSet.SAVE: recreez xml note fara schema inline. pack_seturi.modifica_set dadea eroare cu schema inline + +*!* 20.03.2015 +*!* marius.mutu +*!* repunere_venchelt_avans: se tine cont de ratele si lista_mf sterse, provenite din modificari + + +*!* 08.03.2018 +*!* marius.mutu +*!* import_extras_mt940 corectare + +*!* 09.03.2017 +*!* repunere_venchelt_avans +*!* corectare nume partener debit + +*!* 09.05.2018 +*!* marius.mutu +*!* Inchidere_salarii - import din Contafin + +*!* 25.09.2018 +*!* marius.mutu +*!* stornare_plinc - se da un id_fact distinct pentru notele de stornare incasare/plata 413 = 4111/401=403 astfel incat sa nu apara doua inregistrari 413/403 cu acelasi id_fact +/- care nu se pot inchide + +*!* 02.07.2019 +*!* marius.mutu +*!* repunere_venchelt_avans - cont 4754 SUBVENTII + +*!* 14.04.2020 +*!* marius.mutu +*!* repunere_venchelt_avans - ireg_parteneri join imob_nom_mf.acont + +*!* 27.01.2021 +*!* repunere_venchelt_avans - am limitat selectia intre luna de inceput si luna de expirare a ratelor imobilizarii +*!* punea rate la nesfarsit + +*!* 06.05.2021 +*!* note_fara_predefinire +*!* nu se reincarca nota salvata anterior pentru 90023 import extras bancar + +*!* 25.06.2025 +*!* cheltprofit1_ana - completare taxcode pentru impozit venit/profit + +*!* 29.07.2025 +*!* cheltprofit1_ana, cheltprofit2_ana - corectie taxcode pentru impozit venit/profit + +*!* 29.05.2026 +*!* repunere_venchelt_avans +*!* se foloseste cu prioritate explicatia4 si explicatia5 din imob_nom_mf +*!* asa cum sunt initializate in ireg_parteneri > editare rate in avans + +****************************************************************************************************** +*** INCEPUT PROCEDURA SELECT_CONT +Procedure SELECT_CONT + Private pcselect, pcfiltru, pcschema, pcorder, poplcont, poplcontana, llAfisare + Private lcCont && contul ales din planul de conturi o sa-l returnez de forma "411 .CLI1" SAU "411 " + Store .F. To m.llAfisare + Store "" To m.poplcont, m.poplcontana, m.lcCont + If Used("plcont") + Use In plcont + Endif + If Used("plcontana") + Use In plcontana + Endif + + pcschema = ['ID_PLCONT N(5),ACONT C(4),EXPLICATIE C(100),EXPLICATIES C(30),CONT C(4),TIP_SOLD C(1),AN N(4),TIP_CONT N(1),INACTIV N(1),NEFOLOSIT N(1)'] + pcselect = ['select id_plcont,acont,explicatie,explicaties,cont,tip_sold,an,tip_cont,inactiv,nefolosit from ] + gcs + [.vplcont_sintetic where 2=2'] + pcfiltru = [an=] + Alltrim(Str(gnAn)) + [ and SUBSTR(explicatie,1,3)!=' '] + pcorder = [cont] + gencursor("poplcont", "plcont", m.pcselect, m.pcfiltru, m.pcschema, m.pcorder, m.llAfisare) + m.poplcont.ca_baza1.afisare() + + pcschema = ['ID_PLCONT N(5),ACONT C(4),EXPLICATIE C(100),EXPLICATIES C(30),CONT C(4),TIP_SOLD C(1),AN N(4),TIP_CONT N(1),INACTIV N(1),NEFOLOSIT N(1)'] + pcselect = ['select id_plcont,acont,explicatie,explicaties,cont,tip_sold,an,tip_cont,inactiv,nefolosit from ] + gcs + [.vplcont_analitic where 1=2'] + pcfiltru = [1=2] + pcorder = [] + gencursor("poplcontana", "plcontana", m.pcselect, m.pcfiltru, m.pcschema, m.pcorder, m.llAfisare) + m.poplcontana.ca_baza1.afisare() + + Clear Class "frm_contnou" + ofrmcontnou = Createobject("frm_contnou", 'lcCont') + m.ofrmcontnou.Show(1) + *!* Do Form frm_contnou With "lcCont" + + If Used("plcont") + Use In plcont + Endif + If Used("plcontana") + Use In plcontana + Endif + Release m.poplcont, m.poplcontana, m.ofrmcontnou + Return m.lcCont +Endproc +*** SFARSIT PROCEDURA SELECT_CONT +******************************************************************************************************************** +*** CREEAZA TBALANTA DIN BAL+BALANA+TOTALURI +*!* PROCEDURE make_tbalanta +*!* IF USED('TBALANTA') +*!* USE IN tbalanta +*!* ENDIF + +*!* LNPRECEDENT=0 + +*!* PRIVATE pcselect1,pcfiltru1,pcschema1,potbal1,tbal1,pcselect2,pcfiltru2,pcschema2,potbal2,tbal2 +*!* STORE "" TO potbal1,potbal2 +*!* pcselect1 = ["select rpad(SUBSTR(cont,1,1),4,' ') as g1, rpad(SUBSTR(cont,1,2),4,' ') as g2, rpad(SUBSTR(cont,1,3),4,' ') as g3,"+]+; +*!* ["cont as g4, cont,rpad(' ',4,' ') acont, id_bal, denumire, precdeb, preccred, ruldeb, rulcred, "+]+; +*!* ['totdeb, totcred, solddeb, soldcred, precdeb1, preccred1, 4 as bnivel, difana '+]+; +*!* ['from ] + gcs + [.Vbal where 1=2'] +*!* pcfiltru1 = [AN = ] +ALLTRIM(STR(gnAn)) + [ AND LUNA = ] + ALLTRIM(STR(gnluna)) +*!* pcorder1 = [''] +*!* pcschema1 = [''] +*!* llAfisare = .F. +*!* gencursor('potbal1','tbal1',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfisare) +*!* potbal1.ca_baza1.afisare() + +*!* pcselect2 = ['select rpad(SUBSTR(cont,1,1), 4, CHR(32)) as g1, rpad(SUBSTR(cont,1,2), 4, CHR(32)) as g2, rpad(SUBSTR(cont,1,3),4,CHR(32)) as g3,'+]+; +*!* ['cont as g4, cont, acont, id_balana as id_bal, denumire, precdeb, preccred, ruldeb, rulcred, '+]+; +*!* ['totdeb, totcred, solddeb, soldcred, precdeb1, preccred1, 5 as bnivel, 0 as difana '+]+; +*!* ['from ] + gcs + [.Vbalana where 1=2'] +*!* pcfiltru2 = [AN = ] +ALLTRIM(STR(gnAn)) + [ AND LUNA = ] + ALLTRIM(STR(gnluna)) +*!* pcorder2 = [''] +*!* pcschema2 = [''] +*!* llAfisare = .F. +*!* gencursor('potbal2','tbal2',pcselect2,pcfiltru2,pcschema2,pcorder2,llAfisare) +*!* potbal2.ca_baza1.afisare() + +*!* SELE G1, SPACE(4) AS G2, SPACE(4) AS G3, SPACE(4) AS G4,; +*!* SPACE(4) AS CONT, SPACE(4) AS ACONT, 0000000000000 AS id_bal, PADR("TOTAL "+ALLTRIM(G1),30," ") AS DENUMIRE, ; +*!* SUM(precdeb) AS precdeb, SUM(preccred) AS preccred,; +*!* SUM(ruldeb) AS ruldeb, SUM(rulcred) AS rulcred, SUM(totdeb) AS totdeb, SUM(totcred) AS totcred,; +*!* SUM(solddeb) AS solddeb, SUM(soldcred)AS soldcred, ; +*!* SUM(precdeb1) AS precdeb1, SUM(preccred1) AS preccred1,; +*!* 1 AS bnivel, 0 AS difana; +*!* FROM tbal1 ; +*!* GROUP BY G1 ; +*!* INTO CURSOR TG1 + +*!* SELE G1, G2, SPACE(4) AS G3, SPACE(4) AS G4, ; +*!* SPACE(4) AS CONT, SPACE(4) AS ACONT, 0000000000000 AS id_bal, PADR("TOTAL "+ALLTRIM(G2),30," ")AS DENUMIRE, ; +*!* SUM(precdeb) AS precdeb, SUM(preccred) AS preccred, ; +*!* SUM(ruldeb) AS ruldeb, SUM(rulcred) AS rulcred, SUM(totdeb) AS totdeb, SUM(totcred) AS totcred,; +*!* SUM(solddeb) AS solddeb, SUM(soldcred) AS soldcred, ; +*!* SUM(precdeb1) AS precdeb1, SUM(preccred1) AS preccred1, ; +*!* 2 AS bnivel, 0 AS difana; +*!* FROM tbal1 ; +*!* GROUP BY G1, G2 ; +*!* INTO CURSOR TG2 + +*!* SELE G1, G2, G3, SPACE(4) AS G4,; +*!* SPACE(4) AS CONT, SPACE(4) AS ACONT, 0000000000000 AS id_bal, PADR("TOTAL "+ALLTRIM(G3),30," ") AS DENUMIRE, ; +*!* SUM(precdeb) AS precdeb, SUM(preccred) AS preccred,; +*!* SUM(ruldeb) AS ruldeb, SUM(rulcred) AS rulcred, SUM(totdeb) AS totdeb, SUM(totcred) AS totcred,; +*!* SUM(solddeb) AS solddeb, SUM(soldcred) AS soldcred, ; +*!* SUM(precdeb1) AS precdeb1, SUM(preccred1) AS preccred1,; +*!* 3 AS bnivel, 0 AS difana; +*!* FROM tbal1 ; +*!* GROUP BY G1, G2, G3 ; +*!* INTO CURSOR TG3 + +*!* SELECT * FROM tbal1 ; +*!* UNION ; +*!* SELECT * FROM TG1 ; +*!* UNION ; +*!* SELECT * FROM TG2 ; +*!* UNION ; +*!* SELECT * FROM TG3 ; +*!* UNION ; +*!* SELECT * FROM tbal2 ; +*!* INTO CURSOR tbalanta READWRITE; +*!* ORDER BY 1,2,3,4 + + +*!* USE IN tbal1 +*!* USE IN tbal2 +*!* USE IN TG1 +*!* USE IN TG2 +*!* USE IN TG3 + +*!* SELECT tbalanta +*!* ALTER TABLE tbalanta ADD COLUMN bifa l +*!* ALTER TABLE tbalanta ADD COLUMN g5 c(8) +*!* REPLACE ALL g5 WITH LEFT(G1,1)+SUBSTR(G2,2,1)+SUBSTR(G3,3,1) +*!* REPLACE ALL g5 WITH ALLT(g5)+IIF(bnivel<4,'z',SUBSTR(G4,4,1)) +*!* REPLACE ALL g5 WITH LEFT(ALLTRIM(g5)+'xxxx',4)+ACONT +*!* REPLACE ALL g5 WITH LEFT(ALLTRIM(g5)+'zzzzzzzz',8) +*!* lcIndex = ADDBS(gcTempPath) + 'tbalanta.cdx' +*!* INDEX ON g5 TAG g5 OF (lcIndex) +*!* SET ORDER TO g5 + + +*!* RETURN "TBALANTA" +*!* ENDPROC && MAKE_TBALANTA + +*--------------------------------------------------------------------- + + + + + +Proc cheltprofit1_ana + + lnBut = lans(10506) + If m.lnBut = 1 + Select actactan + Replace All nrACT With 10, explicatia With 'INCHID.IMPOZIT PE PROFIT', proc_tva With 0, id_set With 90001 + UPDATE actactan SET taxcode = 103000 WHERE LEFT(scc,1) = '4' AND EMPTY(NVL(taxcode,0)) + Locate + lVerificAnalitic = .F. + lCompletareParteneri = .T. + Do Form verificare With m.lVerificAnalitic, m.lCompletareParteneri + + If gnButon = 1 + Select actactan + lnSucces = OSCRIE_IN_FISIERE(0) + If m.lnSucces > 1 + Do mesaj With 'Cheltuiala profit.', 'Inchiderea s-a efectuat.' + Endif + Endif + If Used('actactan') + Use In actactan + Endif + Endif + + Return &&cheltprofit1 + + *---------------------------------------- + +Proc cheltprofit2_ana + + lnBut = lans(10505) + + If m.lnBut = 1 + Select actactan + Replace All nrACT With 10, explicatia With 'INCHID.IMPOZIT PE VENIT', proc_tva With 0, id_set With 90002 + UPDATE actactan SET taxcode = 121000 WHERE LEFT(scc,1) = '4' AND EMPTY(NVL(taxcode,0)) + Locate + lVerificAnalitic = .F. + lCompletareParteneri = .T. + Do Form verificare With m.lVerificAnalitic, m.lCompletareParteneri + If gnButon = 1 + Select actactan + lnSucces = OSCRIE_IN_FISIERE(0) + If m.lnSucces > 1 + Do mesaj With 'Cheltuiala profit.', 'Inchiderea s-a efectuat.' + Endif + Endif + Endif + + If Used('actactan') + Use In actactan + Endif + + Return &&cheltprofit2 + + *--------------------------------------------------------------------- + +Procedure plati_impozite + Parameters tn_idset + + If !Used('actactan') + Return + Endif + + If Used('plimp') + Use In plimp + Endif + + lcSql = [select id_note, explicatie, scd, ascd, scc, ascc, in_valuta, cu_tva, id_set, ordine,] + ; + [ptva, id_jtva_coloana, id_jtva_nepl, taxcode, paymentcode from note_contabile where id_set = ] + Alltrim(Str(m.tn_idset)) + lcCursor = [cnote_contabile] + lnSucces = goExecutor.oExecute(m.lcSql, m.lcCursor) + If m.lnSucces < 0 + amessagebox('Note contabile ' + Chr(13) + goExecutor.cEroare, 0 + 16, "Eroare") + Return + Endif + + *!* modificare v 2.5.32 : am pus a.id_factd, a.id_factc, a.pereched, a.perechec in loc de 000000000000000000 + Select N.*, 00000000000000.0000 As suma, 00000000000000 As nrACT, a.id_responsabil, ; + Iif(Alltrim(N.scd) = Alltrim(a.scd), a.id_partd, 000000000000000000) As id_partd, ; + Iif(Alltrim(N.scc) = Alltrim(a.scc), a.id_partc, 000000000000000000) As id_partc, ; + Iif(N.scd = a.scd, a.partd, Space(100)) As partd, ; + Iif(N.scc = a.scc, a.partc, Space(100)) As partc, ; + a.nresp, a.id_sectie, a.sectie, a.id_venchelt, a.dst_chlt, ; + Cast(a.id_factd As N(18)) As id_factd, Cast(a.id_factc As N(18)) As id_factc, Cast(a.pereched As N(18)) As pereched, ; + Cast(a.perechec As N(18)) As perechec, Padr(explicatie, 100, ' ') As explicatia ; + From cnote_contabile N Left Join actactan a On N.id_set = a.id_set ; + Where N.id_set = m.tn_idset ; + Into Cursor plimp Readwrite Order By ordine + *--------------------------- + If Used("crsBal") + Use In crsBal + Endif + If Used("crsBalana") + Use In crsBalana + Endif + + lcSql = "select cont,acont,explicaties as DENUMIRE from plcont where inactiv = 0 and an = ?gnAn " + ; + " and cont in (select scd from note_contabile where id_set = " + Alltrim(Str(m.tn_idset)) + ; + " union " + ; + " select scc from note_contabile where id_set = " + Alltrim(Str(m.tn_idset)) + ")" + + + lcCursorBal = "crsPlcont" + lnSucces = goExecutor.oExecute(m.lcSql, m.lcCursorBal) + If m.lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, "Eroare") + Return + Endif + Select Distinct Cont, denumire From crsPlcont Where Empty(Nvl(ACONT, '')) Into Cursor crsBal + Select Distinct Cont, ACONT, denumire From crsPlcont Where !Empty(Nvl(ACONT, '')) Into Cursor crsBalana + Use In (Select('crsPlcont')) + + Select a.Id_note, a.scd, b.ACONT As ascd, a.scc, a.ascc, a.In_valuta, a.Cu_tva, ; + a.id_set, a.ordine, a.Ptva, a.suma, a.nrACT, a.id_responsabil, ; + a.id_partd, a.id_partc, a.partd, a.partc, a.nresp, a.id_sectie, ; + a.sectie, a.id_venchelt, a.dst_chlt, a.id_factd, a.id_factc, ; + a.pereched, a.perechec, Padr(Nvl(b.denumire, a.explicatia), 100, ' ') As explicatia, ; + a.taxcode, a.paymentcode ; + From plimp a Join crsBalana b On a.scd = b.Cont ; + Into Cursor plimptmp1 + + Select a.Id_note, a.scd, a.ascd, a.scc, a.ascc, a.In_valuta, a.Cu_tva, ; + a.id_set, a.ordine, a.Ptva, a.suma, a.nrACT, a.id_responsabil, ; + a.id_partd, a.id_partc, a.partd, a.partc, a.nresp, a.id_sectie, ; + a.sectie, a.id_venchelt, a.dst_chlt, a.id_factd, a.id_factc, ; + a.pereched, a.perechec, Padr(Nvl(b.denumire, a.explicatia), 100, ' ') As explicatia, ; + a.taxcode, a.paymentcode ; + From plimp a Join crsBal b On a.scd = b.Cont ; + Where a.scd Not In (Select scd From plimptmp1) ; + Into Cursor plimptmp2 + + If Used("crsBal") + Use In crsBal + Endif + If Used("crsBalana") + Use In crsBalana + Endif + If Used("plimp") + Use In plimp + Endif + + Select * From plimptmp1 ; + Union ; + Select * From plimptmp2 ; + Into Cursor plimp Readwrite + + If Used("plimptmp1") + Use In plimptmp1 + Endif + If Used("plimptmp2") + Use In plimptmp2 + Endif + *=========================================== + + Use In (SELECT('cnote_contabile')) + + Select actactan + Locate + Scatter Name m.poVar + Zap + + Select plimp + Replace All ascd With '' For Isnull(ascd) + Replace All ascc With '' For Isnull(ascc) + Replace All explicatia With Alltrim(explicatia) + Iif(!Empty(m.poVar.explicatia), ' ' + Alltrim(m.poVar.explicatia), '') + Go Top + + SELECT plimp + SCAN + SCATTER NAME oplimp + + SELECT actactan + APPEND BLANK + GATHER NAME poVar + GATHER NAME oplimp + SELECT plimp + ENDSCAN + + USE IN (SELECT('plimp')) + + Select .F. As ales, 0 As Cu_tva, Cast(0 As N(2)) As tipnota, a.*, Space(100) As explicatie_tva ; + From actactan a ; + Into Cursor tact Readwrite + + UPDATE tact SET id_sucursala = m.gnIdSucursala + + Use In (Select('crsExplicatiiTVATemp')) + + Select tact + Go Top + llNotaNoua = .T. + llMaximize = .T. + loForm = Createobject([frm_modific2007], m.tn_idset, m.llNotaNoua) + loForm.lb_titlu_alb_b121.Caption = 'Plati impozite' + Select tact + loForm.Show(1, m.llMaximize) + + If m.gnButon = 1 + Use In (Select('actactan')) + + Select tact + Replace id_jtva_coloana With Null, PROC_TVA With 0 For Cu_tva = 0 + Select * From tact WHERE suma <> 0 Into Cursor actactan Readwrite + + Select actactan + Replace All id_util With gnIdUtil, id_set With m.tn_idset + lnSucces = OSCRIE_IN_FISIERE(0) + Endif && gnButon = 1 + + + +*!* Clear Class "FRM_plati_impozite" +*!* obj = Createobject('FRM_plati_impozite') +*!* obj.oact = m.poVar +*!* m.obj.Show() + +*!* If gnButon = 2 +*!* Do deschid_actc +*!* Return +*!* Else +*!* Select actactan +*!* Do OSCRIE_IN_FISIERE.prg +*!* Endif + +Endproc &&plati_impozite + + +******************************************* +* PROCEDURE Inchidere_salarii( ) +* Date : 08/07/2005, 08:58:55 +* author : marius.mutu +* description: +******************************************* +Procedure Inchidere_salarii + + Local lcCursor, llVerificAnalitic, llCompletareParteneri + Local lcAct, lcCSectie, lcDirContafin, lcFile, lcScc, lcScd, lcSql, llStergeNotaPrecedenta, llSucces + Local lnCod, lnIdLucrare, lnIdSectie, lnIdVenchelt, lnId_Set, lnSucces + + lcCursor = [] + If gnNotaSal = 0 && fara program de salarii + lcCursor = ImportTable() + Endif + + + + If gnNotaSal = 1 &¬a de inchidere simpla + lcSql = [begin PACK_SALARII.calcul_nota('] + gcs + [',] + Alltrim(Str(gnAn)) + [,] + Alltrim(Str(gnluna)) + [,' '); end;]&&[select * from ] + gcS + [.calendar] + lcCursor = [crsRezultate] + lnSucces = goExecutor.oExecute(m.lcSql) + + If m.lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, "Eroare") + Endif + + lcSql = [select * from ] + gcs + [.sal_vtmp_nota order by ordine ] + lcCursor = [crsRezultate] + lnSucces = goExecutor.oExecute(m.lcSql, m.lcCursor) + + If m.lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, "Eroare") + Endif + + *!* Select crsRezultate + *!* BROWSE + + Select nume_camp As explicatia, scd, scc, ascd, ascc, suma From crsRezultate Into Cursor crsNota Readwrite && Where suma <> 0 + Use In crsRezultate + lcCursor = [crsNota] + Select &lcCursor + + Endif + + If gnNotaSal = 2 &¬a de inchidere pe sectii + lcSql = [begin PACK_SALARII.calcul_nota_sectii('] + gcs + [',] + Alltrim(Str(gnAn)) + [,] + Alltrim(Str(gnluna)) + [); end;]&&[select * from ] + gcS + [.calendar] + lcCursor = [crsRezultate] + lnSucces = goExecutor.oExecute(m.lcSql) + + If m.lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, "Eroare") + Endif + + lcSql = [select * from ] + gcs + [.sal_vtmp_nota_sect order by ordine ] + lcCursor = [crsRezultate] + lnSucces = goExecutor.oExecute(m.lcSql, m.lcCursor) + + If m.lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, "Eroare") + Endif + Select crsRezultate + Select nume_camp As explicatia, scd, scc, ascd, ascc, suma, id_sectie From crsRezultate Where suma <> 0 Into Cursor crsNota Readwrite + Use In crsRezultate + lcCursor = [crsNota] + Select &lcCursor + Endif + + If gnNotaSal = 3 &¬a de inchidere pe analitice + lcSql = [begin PACK_SALARII.calcul_nota_analit('] + gcs + [',] + Alltrim(Str(gnAn)) + [,] + Alltrim(Str(gnluna)) + [); end;]&&[select * from ] + gcS + [.calendar] + lcCursor = [crsRezultate] + lnSucces = goExecutor.oExecute(m.lcSql) + + If m.lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, "Eroare") + Endif + + lcSql = [select * from ] + gcs + [.sal_vtmp_nota_sect order by scd ] + lcCursor = [crsRezultate] + lnSucces = goExecutor.oExecute(m.lcSql, m.lcCursor) + + If m.lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, "Eroare") + Endif + + Select crsRezultate + Replace All ascd With '' For Left(scd, 1) = '4' + + + Select nume_camp As explicatia, scd, scc, ascd, ascc, suma From crsRezultate Where suma <> 0 Into Cursor crsNota Readwrite + Use In crsRezultate + lcCursor = [crsNota] + Select &lcCursor + Endif + + If gnNotaSal = 4 &¬a de inchidere pe centre de profit (model fruvimed) + lcSql = [begin PACK_SALARII.calcul_nota_chelt('] + gcs + [',] + Alltrim(Str(gnAn)) + [,] + Alltrim(Str(gnluna)) + [); end;]&&[select * from ] + gcS + [.calendar] + lcCursor = [crsRezultate] + lnSucces = goExecutor.oExecute(m.lcSql) + + If m.lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, "Eroare") + Endif + + lcSql = [select * from ] + gcs + [.sal_vtmp_nota_chelt order by ordine ] + lcCursor = [crsRezultate] + lnSucces = goExecutor.oExecute(m.lcSql, m.lcCursor) + Select crsRezultate + + If m.lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, "Eroare") + Endif + Select crsRezultate + Select nume_camp As explicatia, scd, scc, ascd, ascc, suma, id_sectie, ; + id_venchelt, id_lucrare, sectie, nrord, dst_chlt, Nvl(id_partd, 0000000000) As id_partd, Nvl(id_partc, 0000000000) As id_partc From crsRezultate Where suma <> 0 Into Cursor crsNota Readwrite + + Use In crsRezultate + lcCursor = [crsNota] + Select &lcCursor + Endif + + + If gnNotaSal = 5 &¬a de inchidere pe sucursale (model conpress group) + lcSql = [begin PACK_SALARII.calcul_nota_sucursale('] + gcs + [',] + Alltrim(Str(gnAn)) + [,] + Alltrim(Str(gnluna)) + [); end;]&&[select * from ] + gcS + [.calendar] + lcCursor = [crsRezultate] + lnSucces = goExecutor.oExecute(m.lcSql) + + If m.lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, "Eroare") + Endif + + lcSql = [select * from ] + gcs + [.sal_vtmp_nota_sucursale order by ordine ] + lcCursor = [crsRezultate] + lnSucces = goExecutor.oExecute(m.lcSql, m.lcCursor) + Select crsRezultate + + If m.lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, "Eroare") + Endif + + Select crsRezultate + Select nume_camp As explicatia, scd, scc, ascd, ascc, suma, id_sectie, id_sucursala, ; + sectie, sucursala, Nvl(id_partd, 0000000000) As id_partd, Nvl(id_partc, 0000000000) As id_partc From crsRezultate Where suma <> 0 Into Cursor crsNota Readwrite + + Use In crsRezultate + lcCursor = [crsNota] + Select &lcCursor + Endif + + + If m.gnNotaSal = 7 && nota de inchidere import Contafin + lcDirContafin = Getdir('', 'Directorul firmei Contafin', 'Directorul firmei Contafin', 64) + lcAct = Addbs(m.lcDirContafin) + 'AN' + Alltrim(Str(m.gnAn)) + '\DATE' + Padl(Alltrim(Str(m.gnluna, 2, 0)), 2, '0') + '\ACT.DBF' + If File(m.lcAct) + Use (m.lcAct) In 0 Shared Alias c_act_temp + Select explicatia, scd, scc, ascd, ascc, sectie, nrord, dst_chlt, suma From c_act_temp Where id_set = 90008 Into Cursor cActTemp + Use In (Select('c_act_temp')) + If Reccount('cActTemp') = 0 + amessagebox('Nu exista nici o nota cu tipul de operatie 90008 in Registrul jurnal din Contafin!', 0 + 48, _Screen.Caption) + Else + lcSql = [select * from sal_vtmp_nota_chelt where 1=2 order by ordine ] + lcCursor = [crsRezultate] + lnSucces = goExecutor.oExecute(m.lcSql, m.lcCursor) + Select crsRezultate + + If m.lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, "Eroare") + Endif + Select crsRezultate + Select nume_camp As explicatia, scd, scc, ascd, ascc, suma, id_sectie, ; + id_venchelt, id_lucrare, sectie, nrord, dst_chlt, Nvl(id_partd, 0000000000) As id_partd, Nvl(id_partc, 0000000000) As id_partc From crsRezultate Where suma <> 0 Into Cursor crsNota Readwrite + + Use In crsRezultate + lcCursor = [crsNota] + Select &lcCursor + + Select crsNota + Append From Dbf('cActTemp') + Use In (Select('cActTemp')) + Select crsNota + Scan + lnIdSectie = GetIdSectie(crsNota.sectie) + lnIdLucrare = GetIdLucrare(crsNota.nrord) + lnIdVenchelt = GetIdVenchelt(crsNota.dst_chlt) + Select crsNota + Replace id_sectie With m.lnIdSectie, id_lucrare With m.lnIdLucrare, id_venchelt With m.lnIdVenchelt + Endscan + Endif && RECCOUNT + Else + amessagebox('Nu exista fisierul ' + m.lcAct, 0 + 48, _Screen.Caption) + Return + Endif && FILE(m.lcAct) + Endif && gnNotaSal = 7 + + If m.gnNotaSal = 8 && nota de inchidere import xlsx Smartbill sau Saga + lcSql = [select * from sal_vtmp_nota_chelt where 1=2 order by ordine ] + lcCursor = [crsRezultate] + llSucces = goExecutor.oExecuta(m.lcSql, m.lcCursor) + + Select nume_camp As explicatia, scd, scc, ascd, ascc, suma, id_sectie, ; + id_venchelt, id_lucrare, sectie, nrord, dst_chlt, Nvl(id_partd, 0000000000) As id_partd, Nvl(id_partc, 0000000000) As id_partc, ; + CAST(null as N(6)) as taxcode, CAST(null as C(250)) as taxname, CAST(null as C(9)) as paymentcode, CAST(null as C(250)) as paymentname ; + From crsRezultate ; + Where suma <> 0 ; + Into Cursor crsNota Readwrite + + + lcCursor = [crsNota] + + Use In (SELECT('crsRezultate')) + + lcFile = GETFILE('xlsx','Fisier','Deschide',0, 'Fisierul note contabile SmartBill/Saga/ROA (xlsx)') + If File(m.lcFile) + CREATE CURSOR cXLSXTemp (c1 v(250), c2 v(250), c3 v(250), c4 v(250), c5 v(250), c6 v(250), c7 v(250), c8 v(250), c9 v(250), c10 v(250), c11 v(250), c12 v(250), c13 v(250), c14 v(250), c15 v(250) ) + +*!* llSucces = appendfromxlsx(m.lcFile, 'cXLSXTemp') + llSucces = appendfromxlsx(m.lcFile, 'cXLSXTemp', '', 1, '' , .T.) + + IF m.llSucces AND USED('cXLSXTemp') + SELECT cXLSXTemp + GO TOP + + DO CASE + CASE ALLTRIM(LOWER(c2)) = 'ndp' && SAGA + SELECT c3 as explicatia, c4 as scd, c5 as scc, VAL(c6) as suma, c10 as csectie, CAST(0 as N(10)) as id_sectie, SPACE(100) as sectie FROM cXLSXTemp WHERE VAL(c6) <> 0 INTO CURSOR cActTemp READWRITE + IF RECCOUNT('cActTemp') = 0 + amessagebox('Nu exista valori in fisier pe coloana 6 (suma)!', 0 + 48, _Screen.Caption) + ELSE + SELECT distinct UPPER(csectie) as csectie FROM cActTemp WHERE !EMPTY(NVL(cActTemp.cSectie,'')) INTO CURSOR cSectiiTemp + SELECT cSectiiTemp + SCAN + lcCSectie = ALLTRIM(csectie) + loSectie = GetSectieByCsectie(m.lcCSectie) + UPDATE cActTemp SET id_sectie = loSectie.id_sectie, sectie = loSectie.sectie WHERE ALLTRIM(csectie) == m.lcCSectie AND !EMPTY(NVL(loSectie.id_sectie, 0)) + ENDSCAN + USE IN (SELECT('cSectiiTemp')) + + * Completez scd, scc pentru notele cu x = % sau % = x + SELECT cActTemp + GO TOP + lcScd = ALLTRIM(scd) + lcScc = ALLTRIM(scc) + SCAN + IF EMPTY(NVL(scd, '')) + REPLACE scd WITH m.lcScd + ELSE + lcScd = ALLTRIM(scd) + ENDIF + IF EMPTY(NVL(scc, '')) + REPLACE scc WITH m.lcScc + ELSE + lcScc = ALLTRIM(scc) + ENDIF + ENDSCAN + DELETE FROM cActTemp WHERE ALLTRIM(scd) = '%' OR ALLTRIM(scc) = '%' + ENDIF + + CASE ALLTRIM(LOWER(c2)) = 'roa' && ROA - asemanator cu Saga + ascd, ascc, lucrare, sectie, dst_chlt + * DATA NDP EXPLICATIE CONT_D ACONT_D CONT_C ACONT_C SUMA COD_VALUTA CURS SUMA_VAL CATEGORIE SECTIE LUCRARE DST_CHLT + + SELECT c3 as explicatia, c4 as scd, c5 as ascd, c6 as scc, c7 as ascc, VAL(c8) as suma, ; + c12 as csectie, c13 as sectie, CAST(0 as N(10)) as id_sectie, c14 as nrord, CAST(0 as N(10)) as id_lucrare, ; + c15 as dst_chlt, CAST(0 as N(10)) as id_venchelt ; + FROM cXLSXTemp ; + WHERE VAL(c8) <> 0 ; + INTO CURSOR cActTemp READWRITE + + IF RECCOUNT('cActTemp') = 0 + amessagebox('Nu exista valori in fisier pe coloana 8 (suma)!', 0 + 48, _Screen.Caption) + ELSE + SELECT distinct UPPER(csectie) as csectie FROM cActTemp WHERE !EMPTY(NVL(cActTemp.cSectie,'')) INTO CURSOR cSectiiTemp + SELECT cSectiiTemp + SCAN + lcCSectie = ALLTRIM(csectie) + loSectie = GetSectieByCsectie(m.lcCSectie) + UPDATE cActTemp SET id_sectie = loSectie.id_sectie, sectie = loSectie.sectie WHERE ALLTRIM(csectie) == m.lcCSectie AND !EMPTY(NVL(loSectie.id_sectie, 0)) + ENDSCAN + USE IN (SELECT('cSectiiTemp')) + + ENDIF + + OTHERWISE && SMARTBILL + SELECT c3 as explicatia, c7 as scd, c8 as scc, VAL(c9) as suma, SPACE(10) as csectie, CAST(0 as N(10)) as id_sectie, SPACE(100) as sectie FROM cXLSXTemp WHERE VAL(c9) <> 0 AND !EMPTY(NVL(c7,'')) and !EMPTY(NVL(c8,'')) INTO CURSOR cActTemp READWRITE + IF RECCOUNT('cActTemp') = 0 + amessagebox('Nu exista valori in fisier pe coloanele G (scd), H (scc) si I (suma) !', 0 + 48, _Screen.Caption) + ENDIF + ENDCASE + ENDIF + + USE IN (SELECT('cXLSXTemp')) + Endif && File(m.lcFile) + + * Note goale + If !USED('cActTemp') OR Reccount('cActTemp') = 0 + lcSql = [select nume_camp as explicatia, scd, ascd, scc, ascc from sal_nota_campuri t where ] + ALLTRIM(STR(m.gnAn*12+m.gnLuna)) + [ between nvl(lunaaninc, 1900*12+1) and nvl(lunaansf, 2099*12+12) order by ordine] + llSucces = goExecutor.oExecuta(m.lcSql, 'cActTemp') + ENDIF + + Select crsNota + Append From Dbf('cActTemp') + Use In (Select('cActTemp')) + + UPDATE crsNota SET id_sectie = GetIdSectie(crsNota.sectie) WHERE !EMPTY(NVL(crsNota.sectie,'')) AND EMPTY(NVL(crsNota.id_sectie,0)) + UPDATE crsNota SET id_lucrare = GetIdLucrare(crsNota.nrord) WHERE !EMPTY(NVL(crsNota.nrord,'')) AND EMPTY(NVL(crsNota.id_lucrare,0)) + UPDATE crsNota SET id_venchelt = GetIdVenchelt(crsNota.dst_chlt) WHERE !EMPTY(NVL(crsNota.dst_chlt,'')) AND EMPTY(NVL(crsNota.id_venchelt,0)) + + IF m.gl406 + UPDATE crsNota SET taxcode = 412000, taxname = 'Contributia individuala de asigurari sociale retinuta de la asigurati' WHERE scc = '4315' + UPDATE crsNota SET taxcode = 432000, taxname = 'Contributia pentru asigurari de sanatate retinuta de la asigurati' WHERE scc = '4316' + UPDATE crsNota SET taxcode = 480000, taxname = 'Contributie asiguratorie pentru munca' WHERE scc = '436' + UPDATE crsNota SET taxcode = 602000, taxname = 'Impozit pe veniturile din salarii si asimilate salariilor' WHERE scc = '444' + ENDIF + + Endif && gnNotaSal = 8 + + + If !Used(m.lcCursor) Or Empty(m.lcCursor) + Return + Endif + + llStergeNotaPrecedenta = .T. + lnId_Set = 90008 + lnCod = 0 + llVerificAnalitic = .T. + llCompletareParteneri = .T. + + If m.llStergeNotaPrecedenta + lnSucces = sterge_nota(m.lnCod, m.lnId_Set) + Endif + + + If m.lnSucces > 0 + Select (m.lcCursor) + lnSucces = scrie_nota_import(m.lnId_Set, m.llVerificAnalitic, m.llCompletareParteneri, m.lcCursor) + Endif + + If Used(m.lcCursor) + Use In (m.lcCursor) + Endif + +Endproc +*----------------------------------sfarsit procedura Inchidere_salarii ---------------------------------- +Procedure viz_plcont + + Private poHelp + Store '' To m.poHelp + + Local lcSchema1, lcSelect1, lcOrder1, lcFiltru1, lcFiltruOriginal, llAfiseaza, lnAn, lcSelectAnMax + lcSchema1 = [] + ******* modificare v 2.0.92 + lcSelectAnMax = [select max(help_an) as help_an from syn_helpcont] + goExecutor.oExecute(m.lcSelectAnMax, 'cHelpContAn') + lnAn = cHelpContAn.help_an + + lcSelect1 = [select * from syn_helpcont] + + lcOrder1 = [cont] + lcGroup = [] + lcFiltru1 = [] + *!* lcFiltruOriginal = [help_an=]+Alltrim(Str(gnAn)) + ******* modificare v 2.0.92 ^ + lcFiltruOriginal = [help_an=] + Alltrim(Str(m.lnAn)) + llModParam = .T. + llAfiseaza = .F. + + gencursor('poHelp', 'cHelpCont', m.lcSelect1, m.lcFiltru1, m.lcSchema1, m.lcOrder1, m.llAfiseaza, m.lcGroup, m.llModParam, m.lcFiltruOriginal) + m.poHelp.ca_baza1.afisare() + + + Select cHelpCont + + *lcIndex1 = ADDBS(gcTempPath) + 'helpcont_'+ALLTRIM(SYS(2))+'.cdx' + lcIndex1 = Addbs(gcTempPath) + 'helpcont.cdx' + Index On Cont Tag Cont Of (m.lcIndex1) + Set Order To Cont + + lcIndex2 = Addbs(gcTempPath) + 'helpcont.cdx' + Index On nrnod Tag nrnod Of (m.lcIndex2) + Set Order To nrnod + + + Select * From cHelpCont Into Cursor test_helpcont + + Select cHelpCont + ohelpcont = Createobj('help_pltree') + m.ohelpcont.Show(1) + + +Endproc + +************************************ +** Lansare import extras cont MT940 +************************************ +Procedure lans_import_extras + LPARAMETERS tcClassType, tcFileExt, tcFileType, tcContBanca + * tcClassType: RAIFFEISEN / CREDITEUROPE + * tcFileExt: TXT / XML + * tcFileType: MT940 (optional) + * tcContBanca: 5121/5124/5125 (optional) + Local lcHashParam, lnIdSet, loAct + lcHashParam = '' + lcHashParam = IIF(!EMPTY(m.tcClassType), [cClassType=>] + m.tcClassType + [??], []) + lcHashParam = m.lcHashParam + IIF(!EMPTY(m.tcFileExt), [cFileExt=>] + m.tcFileExt + [??], []) + lcHashParam = m.lcHashParam + IIF(!EMPTY(m.tcFileType), [cFileType=>] + m.tcFileType + [??], []) + lcHashParam = m.lcHashParam + IIF(!EMPTY(m.tcContBanca), [cContBanca=>] + m.tcContBanca, []) + + lnIdSet = 90023 + loAct = Null + Do note_fara_predefinire With m.lnIdSet, , m.loAct, m.lcHashParam In ocont2003.prg +Endproc && + +************************************ +** Import extras bancar in tAct (note fara predefinire) +************************************ +Procedure import_extras + Lparameters tcAct, tcHashParam + + * extras cont + Local loImport As "ImportNote" + Local lcClass, lcClassType, lcCont, lcContBanca, lcFile, lcFileExt, lcFileType, lcHashParam, lcParam + Local ldDataIreg, llSucces, loHash + + lcHashParam = Iif(!Empty(m.tcHashParam), m.tcHashParam, '') + loHash = GetHash(m.lcHashParam) + lcClass = "ExtrasBanca" + lcFile = m.loHash.GetValue('cFile') && fisierul de import (optional) + lcClassType = m.loHash.GetValue('cClassType') && RAIFFEISEN + lcFileExt = m.loHash.GetValue('cFileExt') + lcFileType = m.loHash.GetValue('cFileType') + lcContBanca = m.loHash.GetValue('cContBanca') + lcParam = Iif(!Empty(m.lcContBanca), "cContBanca=>" + m.lcContBanca, "") + + loImport = Createobject("ImportNote", m.lcFile, m.lcClass, m.lcClassType, m.lcFileType, m.lcFileExt, m.lcParam) && oproceduri_import.prg + llSucces = m.loImport.Import() + + IF m.llSucces + ldDataIreg = Gomonth(Date(m.gnAn, m.gnluna, 1), 1) - 1 + * cursor cActTemp (denumire, iban, nr, data, suma, explicatie, scd, scc, id_partd, id_partc, partd, partc, id_fdoc, fdoc) + + If Used('cActTemp') + * sterg partenerii si documentele pereche de pe conturile care nu au parteneri, documente + llSucces = goExecutor.oExecuta('SELECT distinct cont, cu_inregistrari FROM vconfig_cont_ireg order by cont', 'cConturiPartTemp') + IF m.llSucces + SELECT a.cont, IIF(!ISNULL(b.cont), 1, 0) as epart, NVL(b.cu_inregistrari, 0) as cu_inregistrari ; + FROM (SELECT scd as cont FROM cActTemp ; + UNION ; + SELECT scc as cont FROM cActTemp) a left join cConturiPartTemp b on a.cont = b.cont ; + INTO CURSOR cConturiTemp + + SELECT cConturiTemp + SCAN FOR epart = 0 + lcCont = ALLTRIM(cont) + IF epart = 0 + UPDATE cActTemp SET id_partd = 0, partd = '', id_factd = 0, pereched = 0 WHERE ALLTRIM(scd) = m.lcCont + UPDATE cActTemp SET id_partc = 0, partc = '', id_factc = 0, perechec = 0 WHERE ALLTRIM(scc) = m.lcCont + ELSE + IF cu_inregistrari = 0 + UPDATE cActTemp SET id_factd = 0, pereched = 0 WHERE ALLTRIM(scd) = m.lcCont + UPDATE cActTemp SET id_factc = 0, perechec = 0 WHERE ALLTRIM(scc) = m.lcCont + ENDIF + ENDIF + ENDSCAN + USE IN (SELECT('cConturiTemp')) + USE IN (SELECT('cConturiPartTemp')) + ENDIF && llSucces + + + Select nr As nrACT, Data As dataact, Iif(Year(Data) * 12 + Month(Data) = m.gnAn * 12 + m.gnluna, Data, m.ldDataIreg) As dataireg, suma, ; + Cast(Upper(Alltrim(explicatie) + Iif(!Empty(Nvl(denumire, '')), ' ' + Alltrim(denumire), '') + ; + Iif(!Empty(Nvl(cod_fiscal, '')), ' ' + Alltrim(cod_fiscal), '')) As C(100)) As explicatia, ; + scd, scc, ascd, ascc, id_partd, id_partc, partd, partc, ; + id_factd, id_factc, pereched, perechec, ; + id_fdoc, fdoc, ; + Cast(gnIdSucursala As N(5) Null) As id_sucursala ; + From cActTemp ; + Into Cursor cActTemp2 + + If _Tally > 0 + Select (m.tcAct) + Delete All + Append From Dbf('cActTemp2') + Else + amessagebox('Nu s-a importat nici o inregistrare!', 0 + 64, _Screen.Caption) + Endif + + Use In (Select('cActTemp2')) + Select (m.tcAct) + Go Top + + ENDIF && used + ENDIF && llSucces + + Release m.loImport + RETURN m.llSucces +Endproc && import_extras + +Procedure note_fara_predefinire + Lparameters tnIdSet, toSet, toAct, tcHashParam + *** tnIdSet = 99999, 99998 (note fara predefinire * = nu se fac verificari de conturi, analitice, parteneri, documente pereche) + *** tnIdSet <> 99999, 99998 - note definite de utilizator + *** toSet (default .F./NULL): Obiect cand este modul de editare nota definita de utilizator din frm_config_tabele.scx + *** toAct (default .F./NULL): este completat cu date din formularul de introducere date lans() pentru notele definite de utilizator si apelate din meniul de introducere + *** tcHashParam (optional): se transmite la import_extras + + *** drepturi pe butonul de stergere + Local loBackupXML As "backupxml" + Local lcCursor, lcSql, lcTitlu, lcXMLFile, lcXMLFileName, llEditare, llImportExtras, llMaximize + Local llNotaFaraPredefinire, llNotaNoua, llRestoredBackupSet, llSucces, llVizualizare, lnIdSet + Local lnSucces, loForm, llRul + llRestoredBackupSet = .F. + llVizualizare = .F. + llRul = .T. && se salveaza si rulajele + llNotaFaraPredefinire = Inlist(m.tnIdSet, 99999, 99998, 90023) && 99999 NOTE FARA PREDEFINIRE, 99998 NOTE FARA PREDEFINIRE*, 90023 IMPORT EXTRAS MT940 + llImportExtras = (m.tnIdSet = 90023) + + *:Global gcAcces + gcAcces = [4;] + gcAcces + *** drepturi pe butonul de stergere ^ + + lcXMLFile = "" + lnSucces = 0 + lnIdSet = Iif(Empty(m.tnIdSet), 99999, m.tnIdSet) + llMaximize = .T. + llNotaNoua = .T. + llEditare = (Type('toSet.lEditare') = 'L' and toSet.lEditare) && din meniul Initializare > Configurare note > Note definite de utilizator - nu exista actactan din lans() sau modificare registru jurnal + lcTitlu = "Nota fara predefinire" + + *** nu se pot face introduceri in luna inchisa sau in firma mama + If m.glLunaInchisa Or m.glEMama + Return + Endif + + *** REINCARCARE NOTA FARA PREDEFINIRE SALVATA ANTERIOR IN FORMAT XML SI NETERMINATA (FATAL ERROR) + If !m.llEditare + IF !m.llImportExtras + * Nu incarc nota daca import extras + lcXMLFileName = 'nota_' + Alltrim(Str(m.tnIdSet)) && Iif(m.tnIdSet = 99998, 'notafarapredefinire2', Iif(m.tnIdSet = 99999, 'notafarapredefinire', 'nota')) + lcXMLFile = ExistsXML(m.lcXMLFileName) + loBackupXML = Createobject("backupxml", m.lcXMLFileName) && oproceduri_comune.prg + If m.loBackupXML.ExistsBackupSet() And amessagebox('Exista o nota nefinalizata.' + Chr(13) + Chr(10) + 'Doriti sa o reincarcati?', 4 + 32, _Screen.Caption) = 6 + llRestoredBackupSet = m.loBackupXML.RestoreBackupSet() + ENDIF + ENDIF && llImportExtras + Endif && llEditare + + update_jtva_coloane("", "crsJtvaTemp", 1) + + If !m.llRestoredBackupSet + * 1. toSet = 'O' modificare set definit de utilizator + * 2. m.llNotaFaraPredefinire = .T. nota fara predefinire + * 3. nota definita de utilizator, lans() creaza actactan (posibil din vact, fara coloanele sters, validat) + + If m.llEditare Or m.llNotaFaraPredefinire OR !EMPTY(NVL(m.tnIdSet,0)) + llSucces = .T. + IF m.llEditare Or m.llNotaFaraPredefinire + llSucces = goExecutor.oExecuta([select * from vact_tot where 1=2], [v_act]) + If m.llSucces + Select * From v_act Into Cursor actactan Readwrite + Use In (Select('v_act')) + ENDIF + ENDIF + + IF m.llSucces + * Creez cursoare trul, trul_obinv + + lcSql = [select * from vrul_tot where 1=2] + lcCursor = [v_rul] + + llSucces = goExecutor.oExecuta(lcSql,lcCursor) + + If m.llSucces + Select *, ; + valoare + valtva As valoarectva, ; + valoarev + valtvav As valoarevctva ; + From v_rul ; + Into Cursor trul READWRITE + + Use In (SELECT('v_rul')) + + lcSql = [select * from vrul_obinv_tot where 1=2] + lcCursor = [v_rul_obinv] + + llSucces = goExecutor.oExecuta(lcSql,lcCursor) + Endif + + If m.llSucces + Select *, ; + valoare + valtva As valoarectva, ; + valoarev + valtvav As valoarevctva ; + From v_rul_obinv ; + Into Cursor trul_obinv READWRITE + + Use In (SELECT('v_rul_obinv')) + Endif + ENDIF && llSucces + + IF !m.llSucces + USE IN (SELECT('tact')) + USE IN (SELECT('trul')) + USE IN (SELECT('trul_obinv')) + Use In (Select('crsJtvaTemp')) + RETURN + ENDIF + ENDIF && toSet + + If Type('actactan.sters') = 'U' + Select a.*, 0 As sters, Cast(0 As N(5)) As id_utils, {//:} As dataoras From actactan a Into Cursor actactanTemp Readwrite + Use In (Select('actactan')) + Select * From actactanTemp Into Cursor actactan Readwrite + Use In (Select('actactanTemp')) + Endif + If Type('actactan.validat') = 'U' + Select a.*, 0 As Validat, Cast(0 As N(5)) As id_utilv, {//:} As dataorav From actactan a Into Cursor actactanTemp Readwrite + Use In (Select('actactan')) + Select * From actactanTemp Into Cursor actactan Readwrite + Use In (Select('actactanTemp')) + Endif + + If Type('actactan.explicatie_tva') = 'U' + Select a.*, jtva.denumire As explicatie_tva ; + From actactan a Left Join crsJtvaTemp jtva On a.id_jtva_coloana = jtva.id_jtva_coloana ; + Into Cursor actactanTemp Readwrite + + Use In (Select('actactan')) + Select * From actactanTemp Into Cursor actactan Readwrite + Use In (Select('actactanTemp')) + Endif + + Select .F. As ales, Iif(Empty(Nvl(a.id_jtva_coloana, 0)), 0, 1) As Cu_tva, Cast(0 As N(2)) As tipnota, a.* ; + From actactan a ; + Into Cursor tact Readwrite + + + *!* modificare v 2.5.40 + lcSql = "SELECT nume_set FROM xsets WHERE id_set = " + Alltrim(Str(m.lnIdSet)) + lnSucces = goExecutor.oSelect2Value(m.lcSql, @m.lcTitlu) + If m.lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, "Eroare") + Endif + + If !Used('saft_taxtable') + update_saft_taxtable() + ENDIF + + *!* If !m.llNotaFaraPredefinire && And Type('toSet') = 'O' + If m.llEditare && modificare note + * Nu sunt linii in actactan/tAct din modificare Registru Jurnal + * le adaug din xnote pentru editare + + Text To m.lcSql Textmerge Noshow + SELECT decode(NVL(a.id_jtva_coloana, 0), 0, 0, 1) As Cu_tva, + Cast(0 As Number(2)) As tipnota, + cast(0 as number(20)) as id_act, + cast(0 as number(2)) as luna, + cast(0 as number(4)) as an, + cast(0 as number(20)) as cod, + a.dataireg, + a.serie_act, + a.nract, + a.dataact, + a.explicatia, + a.xscd as scd, + a.xascd as ascd, + a.xscc as scc, + a.xascc as ascc, + a.suma, + a.pereched, + a.perechec, + a.suma_val, + a.id_valuta, + v.nume_val, + a.curs, + a.datascad, + 0 AS neimpozab, + a.nnir, + cast(0 as number(5)) as id_util, + '' AS util, + sysdate as dataora, + cast(0 as number(5)) as id_utils, + '' AS utils, + sysdate as dataoras, + a.id_responsabil, + resp.denumire AS nresp, + a.id_venchelt, + venchelt.explicatie AS dst_chlt, + a.id_lucrare, + lucr.nrord, + a.id_ctr, + (case when ctr.numar is not null then ctr.numar || '/' else '' end) || TO_CHAR(ctr.data,'DD.MM.YYYY') as contract, + a.id_sectie, + sectii.sectie, + a.proc_tva, + a.id_set, + NVL(a.id_fact, 0) as id_fact, + a.id_partd, + part1.denumire AS partd, + a.id_partc, + part.denumire AS partc, + cast(0 as number(5)) as id_sucursala, + '' as sucursala, + a.id_fdoc, + fdoc.fel_document AS fdoc, + a.explicatia4, + a.explicatia5, + cast(0 as number(5)) as id_gestin, + '' AS gestin, + cast(0 as number(5)) as id_gestout, + '' AS gestout, + NVL(a.id_factd, 0) as id_factd, + NVL(a.id_factc, 0) as id_factc, + a.id_jtva_coloana, + jtva.denumire as explicatie_tva, + cast(0 AS NUMBER(1)) AS validat, + cast(0 as number(5)) as id_utilv, + '' as utilv, + SYSDATE AS dataorav, + NVL(doc.tva_incasare,0) as tva_incasare, + a.taxcode, + a.paymentcode + from xnote a + LEFT JOIN nom_fdoc fdoc ON a.id_fdoc = fdoc.id_fdoc + LEFT JOIN nom_parteneri part ON a.id_partc = part.id_part + LEFT JOIN nom_parteneri part1 ON a.id_partd = part1.id_part + LEFT JOIN vnom_venchel venchelt ON a.id_venchelt = venchelt.id_venchelt + LEFT JOIN nom_parteneri resp ON a.id_responsabil = resp.id_part + LEFT JOIN nom_sectii sectii ON a.id_sectie = sectii.id_sectie + LEFT JOIN vnom_lucrari lucr ON a.id_lucrare = lucr.id_lucrare + LEFT JOIN nom_valute v ON a.id_valuta = v.id_valuta + LEFT JOIN contracte ctr ON ctr.id_ctr = a.id_ctr + LEFT JOIN jtva_coloane jtva ON a.id_jtva_coloana = jtva.id_jtva_coloana + LEFT JOIN documente doc on a.id_fact = doc.id_doc + where a.id_set = <> + order by a.nr_nota + Endtext + llSucces = goExecutor.oExecuta(m.lcSql, 'tactTemp') + + If !m.llSucces + Return + Else + Select tact + Append From Dbf('tactTemp') + Use In (Select('tactTemp')) + Endif + Endif + + ENDIF && !m.llRestoredBackupSet + + *!* modificare v 2.5.41 + If !m.llEditare + Update tact Set id_sucursala = Nvl(gnIdSucursala, 0) + Update trul Set id_sucursala = Nvl(gnIdSucursala, 0) + Update trul_obinv Set id_sucursala = Nvl(gnIdSucursala, 0) + Endif + *!* modificare v 2.5.41 ^ + *** REINCARCARE NOTA FARA PREDEFINIRE SALVATA ANTERIOR IN FORMAT XML SI NETERMINATA (FATAL ERROR) ^ + lcTitlu = Alltrim(m.lcTitlu) + lcTitlu = Iif(m.llEditare, "EDITARE ", "") + m.lcTitlu + " " + Alltrim(Str(m.lnIdSet)) + + If Reccount('tact') = 0 + Select tact + Append Blank + Replace dataireg With GetDataIreg() && oproceduri_comune.prg + Replace dataact With dataireg, datascad With Gomonth(dataact, 1) + *!* 20.10.2011 + Replace id_sucursala With Nvl(gnIdSucursala, 0) + *!* 20.10.2011 ^ + Endif + + Select tact + Go Top + + *!* lansez procedura de import MT940 + llSucces = .T. + If m.llImportExtras + llSucces = import_extras('tAct', m.tcHashParam) + Endif + IF m.llSucces + + loForm = Createobject([frm_modific2024], m.lnIdSet, m.llNotaNoua, m.loBackupXML, m.toSet, m.llVizualizare) + *DO FORM frm_modific_2007 NAME loForm LINKED WITH m.lnIdSet, m.llNotaNoua, m.loBackupXML, m.toSet, m.llVizualizare NOSHOW + loForm.lb_titlu_alb_b121.Caption = m.lcTitlu + Select tact + loForm.Show(1, m.llMaximize) + + *** SALVEZ NOTELE FARA PREDEFINIRE INAINTE DE SCRIEREA IN BAZA DE DATE + If m.llNotaFaraPredefinire And Type('loBackupXML') = 'O' And Used('tact') + m.loBackupXML.SaveBackupSet("tact") + m.loBackupXML.SaveBackupSet("trul") + m.loBackupXML.SaveBackupSet("trul_obinv") + ENDIF + + If buton = 1 + Use In (Select('actactan')) + + Replace id_jtva_coloana With Null, proc_tva With 0 For cu_tva = 0 In tact + Select * From tact Into Cursor actactan Readwrite + Select * From trul Into Cursor rul_temp Readwrite + Select * From trul_obinv Into Cursor rul_temp_obinv Readwrite + + Replace All id_util With gnIdUtil, sters With 0 In actactan + Replace All id_util With gnIdUtil, sters With 0 In rul_temp + Replace All id_util With gnIdUtil, sters With 0 In rul_temp_obinv + + lnSucces = oscrie_in_fisiere(0, .F., m.llRul) + llSucces = (m.lnSucces > 0) + + If m.llSucces + *** STERG NOTELE FARA PREDEFINIRE SALVATE DACA OPERATIA S-A INCHEIAT CU SUCCES + If m.llNotaFaraPredefinire And Type('loBackupXML') = 'O' + m.loBackupXML.DeleteBackupSet() + Endif + + Endif + ENDIF && buton + ENDIF && llSucces + + Use In (Select('actactan')) + Use In (Select('tact')) + Use In (Select('trul')) + Use In (Select('trul_obinv')) + Use In (Select('rul_temp')) + Use In (Select('crsJtvaTemp')) + +Endproc && note_fara_predefinire + + +*----------------------------------------------------------- + +Procedure inchidere_DIURNE + + Local lcCursorInchidere, lcSql, lcCursor, lnSucces + lcCursorInchidere = "" + Private pnIdSet + + *!* llStergeNotaPrecedenta = .T. + *!* lnIdSet = 90008 + *!* lnCod = 0 + *!* llVerificAnalitic = .T. + *!* llCompletareParteneri = .T. + pnIdSet = 90020 + *!* pnIdSet = 90008 + + + + lcSql = [select * from ] + gcs + [.vact where id_set = ?pnIdSet and an = ?gnAn and luna = ?gnLuna] + ; + gcCondSucursala + lcCursor = [actactan] + + lnSucces = goExecutor.oExecute(m.lcSql, m.lcCursor) + goExecutor.oReset() + If m.lnSucces < 0 + amessagebox('Cautare Nota Inchidere Diurne:' + Chr(13) + goExecutor.cEroare, 0 + 16, "Eroare") + Return + Endif + + Select actactan + If Reccount() > 0 + Clear Class "verificare" + overif = Createobject('verificare') + m.overif.Show(1) + If buton = 2 + If Used('actactan') + Use In actactan + Endif + Release m.overif + Return + Else + Do OSCRIE_IN_FISIERE.prg With 2, .F. + Endif + Endif + + lnBut = lans(m.pnIdSet) + If m.lnBut = 1 + pnSectie = 0 + + *!* lcCursorInchidere = GET_CURSOR_INCHIDERE_AMORTIZARI(pnTip, pnSectie, gnAn, gnluna, "crs_inchidere") && oproceduri_comune_imob.prg + + lcSql = [select * from sal_vdiurne_sume ] + lcCursorInchidere = [crs_inchidere] + lnSucces = goExecutor.oExecute(m.lcSql, m.lcCursorInchidere) + + If m.lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, "Eroare") + Endif + + If !Used(m.lcCursorInchidere) + lnBut = 2 && RENUNT + Endif + Endif + + If m.lnBut = 1 + Select actactan + Scatter Name m.oact + Zap + Select crs_inchidere + + *!* 09.05.2007 + *!* marius.mutu + Insert Into actactan (scd, ascd, scc, suma, explicatia, id_sectie, sectie, id_partc, partc, id_sucursala, sucursala) ; + Select scd, ascd, scc, suma - acordat, explicatia, id_sectie, sectie, id_partc, partc, id_sucursala, sucursala From crs_inchidere Where suma <> 0 + + Select actactan + Scan + Gather Name m.oact Fields Except scd, ascd, scc, ascc, suma, id_sectie, sectie, id_partc, partc, id_sucursala, sucursala + Endscan + *!* 09.05.2007 ^ + Select actactan + Locate + lVerificAnalitic = .T. + lCompletareParteneri = .T. + Do Form verificare With m.lVerificAnalitic, m.lCompletareParteneri + + If gnButon = 1 + Select actactan + lnSucces = OSCRIE_IN_FISIERE(0) + Endif + Endif + + If Used('crs_inchidere') + Use In crs_inchidere + Endif + If Used('actactan') + Use In actactan + Endif + +Endproc && inchidere_amortizari + +*_________________________________ + +************************************************** +*** verifica analitice si parteneri din cursorul din act_temp +*** se foloseste pentru scrieri direct pe server (vezi inchidere_tva) +************************************************** +Procedure verificare_completare_act(tcCursorVerificare, tlVerificAnalitic, tlAlegPartener, tcSirDifAcont, tcSirDifPart) + + Local lcCursorFinal, llSucces, lcSelect, llExit + *:Global gnButon + tcSirDifAcont = "" + tcSirDifPart = "" + gnButon = 1 + llSucces = .F. + lcCursorFinal = [actactan] + + lcSelect = Select() + + Select a.*, a.suma As totftva, a.suma As tottva, Ttod(a.dataactt) As dataact, ; + Ttod(a.datairegt) As dataireg, Ttod(a.datascadt) As datascad, ; + 0 As pozitie_1, 0 As pozitie_2 ; + From (m.tcCursorVerificare) a ; + Into Cursor (m.lcCursorFinal) Readwrite + + Select (m.lcCursorFinal) + + Do Form verificare With m.tlVerificAnalitic, m.tlAlegPartener + + If m.gnButon = 1 + llExit = .F. + Select (m.lcCursorFinal) + Scan For (m.tlVerificAnalitic And (Nvl(ascd, '') <> Nvl(ascd1, '') Or Nvl(ascc, '') <> Nvl(ascc1, ''))) Or ; + (m.tlAlegPartener And (Nvl(id_partd, 0) <> Nvl(id_partd1, 0) Or Nvl(id_partc, 0) <> Nvl(id_partc1, 0))) + + If m.tlVerificAnalitic And (Nvl(ascd, '') <> Nvl(ascd1, '') Or Nvl(ascc, '') <> Nvl(ascc1, '')) + tcSirDifAcont = m.tcSirDifAcont + Alltrim(Str(id_act)) + [|] + Alltrim(Nvl(ascd, '')) + [|] + Alltrim(Nvl(ascc, '')) + [;] + Endif + + If m.tlAlegPartener And (Nvl(id_partd, 0) <> Nvl(id_partd1, 0) Or Nvl(id_partc, 0) <> Nvl(id_partc1, 0)) + If (Like([41*], scd) And Nvl(id_partd, 0) <> Nvl(id_partd1, 0)) ; + Or (Like([41*], scc) And Nvl(id_partc, 0) <> Nvl(id_partc1, 0)) + amessagebox("Nu puteti modifica clientul!", 48, "Atentie") + llExit = .T. + Exit + Else + tcSirDifPart = m.tcSirDifPart + Alltrim(Str(id_act)) + [|] + Alltrim(Str(Nvl(id_partd, 0))) + [|] + Alltrim(Str(Nvl(id_partc, 0))) + [;] + Endif + Endif && nvl + Endscan + + llSucces = !m.llExit + + Endif && gnButon = 1 + + Use In (Select(m.lcCursorFinal)) + Select(m.lcSelect) + + Return m.llSucces +Endproc + + +*********************** +Procedure repunere_venchelt_avans + Lparameters tcCont + *** tcCont: 471;472 + + Local loForm As [frm_modific2007] + Local lcSql, lcCrsCheltuieli, lcSel, llNotaNoua, llSucces, lnButon, lnIdSet, lnSucces + Private pcCond, pdDataF, pdDataI, pnFiscala, loAct, pnIdTipImobilizare, pcCont, pnIdSet + + pcCont = Iif(Empty(m.tcCont), '471', m.tcCont) + pnIdTipImobilizare = Iif(m.pcCont = '471', 4, Iif(m.pcCont = '472', 5, 6)) && 4 = cheltuieli in avans / 5 = venituri in avans / 6 = subventii 4754 + + pnIdSet = Iif(m.pcCont = '471', 10611, 10612) + + Use In (Select('actactan')) + *** STERGERE NOTA ANTERIOARA + lcSql = [select * from vact where id_set = ?pnIdSet and an = ?gnAn and luna = ?gnLuna ] + m.gcCondSucursala + If m.pnIdSet = 10612 && 10612 este comun la 472 = 7xx si 475x = 7xx + lcSql = [select * from vact where id_set = ?pnIdSet and an = ?gnAn and luna = ?gnLuna and scd = ?pcCont ] + m.gcCondSucursala + Endif + + lcCursor = [actactan] + + llSucces = goExecutor.oExecuta(m.lcSql, m.lcCursor) + If !m.llSucces + Return + Endif + + Select actactan + If Reccount() > 0 + Clear Class "verificare" + overif = Createobject('verificare') + m.overif.Show(1) + If buton = 2 + Use In (Select('actactan')) + Release m.overif + Return + Endif + Do OSCRIE_IN_FISIERE.prg With 2, .F. + Endif + *** STERGERE NOTA ANTERIOARA ^ + + llNotaNoua = .T. + lnButon = lans(m.pnIdSet) + + If m.lnButon = 2 + Return + Endif + + *** Selectie din imobilizari + Text To m.lcSql Textmerge Noshow + SELECT I.ID_FACT, + I.ID_PART, + I.NRACT, + I.EXPLICATIA, + NVL(MF.DENUMIRE, I.EXPLICATIA4) AS EXPLICATIA4, + NVL(MF.EXPLICATIA, I.EXPLICATIA5) AS EXPLICATIA5, + I.ID_RESPONSABIL, + I.ID_LUCRARE, + I.ID_CTR, + P.DENUMIRE AS NUME, + P.COD_FISCAL, + R.DENUMIRE AS NRESP, + I.ID_VENCHELT, + VC.EXPLICATIE AS VENCHELT, + L.NRORD, + (case + when c.numar is not null then + c.numar || '/' + else + '' + end) || TO_CHAR(c.data, 'DD.MM.YYYY') as contract, + I.ID_SUCURSALA, + NF.SUCURSALA, + I.CONT, + I.ACONT, + MF.CONTVC, + MF.ACONTVC, + MF.ID_SECTIE, + S.SECTIE, + MF.AN, + MF.LUNA, + MF.AN_EXP, + MF.LUNA_EXP, + MF.ID_MF, + MF.DENUMIRE AS DENUMIRE_IMOB, + MF.CONTVC, + MF.ACONTVC, + MF.DATA_OPERATIE, + MF.DPRIMA_RATA, + MF.DULTIMA_RATA, + (CASE when v.moneda_nationala = 1 OR NVL(i.id_valuta,0)= 0 then (CASE + WHEN I.AN = MF.AN_EXP AND I.LUNA = MF.LUNA_EXP THEN + MF.ULTIMA_RATA + ELSE + MF.RATA + END) else 0.00 end) AS SUMA, + (case when v.moneda_nationala = 0 then (CASE + WHEN I.AN = MF.AN_EXP AND I.LUNA = MF.LUNA_EXP THEN + MF.ULTIMA_RATA + ELSE + MF.RATA + END) else 0.00 end) AS SUMA_VAL, + i.id_valuta, + v.nume_val, + i.curs + FROM IREG_PARTENERI I LEFT JOIN NOM_PARTENERI P ON I.ID_PART = P.ID_PART + LEFT JOIN VNOM_VENCHEL VC ON I.ID_VENCHELT = VC.ID_VENCHELT + LEFT JOIN CONTRACTE C ON I.ID_CTR = C.ID_CTR + LEFT JOIN VNOM_SUCURSALE NF ON I.ID_SUCURSALA = NF.ID_SUCURSALA + left join vnom_valute v on i.id_valuta = v.id_valuta + JOIN (SELECT NMF.ID_FACT, + NMF.ID_MF, + NMF.DENUMIRE, + NMF.EXPLICATIA, + LMF.CONT, + LMF.ACONT, + NMF.CONT AS CONTVC, + NMF.ACONT AS ACONTVC, + OMF.DATA_OPERATIE, + CASE + WHEN RMF.LUNA IS NOT NULL THEN + ADD_MONTHS(TO_DATE(RMF.AN || RMF.LUNA, 'YYYYMM'), 1) - 1 + ELSE + CAST(NULL AS DATE) + END AS DPRIMA_RATA, + CASE + WHEN RMF.LUNA_EXP IS NOT NULL THEN + ADD_MONTHS(TO_DATE(RMF.AN_EXP || RMF.LUNA_EXP, + 'YYYYMM'), + 1) - 1 + ELSE + CAST(NULL AS DATE) + END AS DULTIMA_RATA, + RMF.AN, + RMF.LUNA, + RMF.AN_EXP, + RMF.LUNA_EXP, + RMF.RATA, + RMF.ULTIMA_RATA, + LMF.ID_LUCRARE, + LMF.ID_SECTIE, + LMF.ID_RESPONSABIL + FROM IMOB_NOM_MF NMF + JOIN IMOB_LISTA_MF LMF + ON NMF.ID_MF = LMF.ID_MF + AND NMF.STERS = 0 + JOIN (SELECT MF1.ID_MF, MAX(MF1.ID_LISTA_MF) ID_LISTA_MF + FROM IMOB_LISTA_MF MF1 + JOIN IMOB_NOM_MF MF2 ON MF1.ID_MF = MF2.ID_MF + WHERE MF2.ID_TIP_IMOBILIZARE IN (4, 5, 6) + GROUP BY MF1.ID_MF) LMF2 + ON LMF.ID_LISTA_MF = LMF2.ID_LISTA_MF + JOIN IMOB_OPERATII_MF OMF + ON NMF.ID_MF = OMF.ID_MF + AND OMF.STERS = 0 + JOIN IMOB_CALCUL_RATE RMF + ON NMF.ID_MF = RMF.ID_MF + AND RMF.STERS = 0 + WHERE NMF.ID_TIP_IMOBILIZARE IN (4, 5, 6)) MF + ON I.ID_FACT = MF.ID_FACT AND I.AN*12+I.LUNA BETWEEN MF.AN*12+MF.LUNA AND MF.AN_EXP*12+MF.LUNA_EXP + AND NVL(MF.CONT, 'x') = NVL(I.CONT, 'x') + and NVL(MF.ACONT, 'x') = NVL(I.ACONT, 'x') + LEFT JOIN VNOM_LUCRARI L ON MF.ID_LUCRARE = L.ID_LUCRARE + LEFT JOIN NOM_SECTII S ON MF.ID_SECTIE = S.ID_SECTIE + LEFT JOIN NOM_PARTENERI R ON MF.ID_RESPONSABIL = R.ID_PART + WHERE I.AN = ?m.gnAn AND I.LUNA = ?m.gnLuna AND I.CONT = ?m.pcCont <> + Endtext + + llSucces = goExecutor.oExecuta(m.lcSql, 'crsVenChelt') + If !m.llSucces + Return + Endif + + * Calculez suma in lei pentru ratele in valuta + UPDATE crsVenChelt SET suma = ROUND(suma_val * curs, m.gnPC) WHERE suma_val <> 0 + + *** Completare ACT + Select actactan + Go Top + Scatter Name m.loAct + Zap + + If m.pcCont = '471' + * 6xx = 471 + Insert Into actactan (scd, ascd, scc, ascc, id_partc, partc, id_sectie, sectie, id_lucrare, nrord, id_responsabil, nresp, ; + id_ctr, contract, suma, suma_val, id_valuta, nume_val, curs, id_factc, perechec, explicatia, explicatia4, explicatia5, id_sucursala) ; + Select contvc As scd, acontvc As ascd, ; + Cont As scc, ACONT As ascc, ; + id_part As id_partc, nume As partc, ; + Nvl(id_sectie, Cast(0 As I)) As id_sectie, Nvl(sectie, Space(50)) As sectie, ; + Nvl(id_lucrare, Cast(0 As I)) As id_lucrare, Nvl(nrord, Space(50)) As nrord, ; + Nvl(id_responsabil, Cast(0 As I)) As id_responsabil, Nvl(nresp, Space(50)) As nresp, ; + Nvl(id_ctr, Cast(0 As I)) As id_ctr, Nvl(contract, Space(50)) As contract, suma, suma_val, id_valuta, nume_val, curs, ; + id_fact As id_factc, nrACT As perechec, ; + explicatia, ; + 'Rata ' + Alltrim(Str(((m.gnAn * 12 + m.gnluna) - (an * 12 + luna) + 1))) + '/' + Alltrim(Str(((an_exp * 12 + luna_exp) - (an * 12 + luna) + 1))) + ' ' + Alltrim(Nvl(explicatia4, '')) As explicatia4, ; + explicatia5, ; + id_sucursala ; + From crsVenChelt ; + Where !Empty(Nvl(suma, 0)) OR !Empty(Nvl(suma_val, 0)) + Else + * 472 = 7xx + Insert Into actactan (scd, ascd, scc, ascc, id_partd, partd, id_sectie, sectie, id_lucrare, nrord, id_responsabil, nresp, ; + id_ctr, contract, suma, suma_val, id_valuta, nume_val, curs, id_factd, pereched, explicatia, explicatia4, explicatia5, id_sucursala) ; + Select Cont As scd, ACONT As ascd, ; + contvc As scc, acontvc As ascc, ; + id_part As id_partd, nume As partd, ; + Nvl(id_sectie, Cast(0 As I)) As id_sectie, Nvl(sectie, Space(50)) As sectie, ; + Nvl(id_lucrare, Cast(0 As I)) As id_lucrare, Nvl(nrord, Space(50)) As nrord, ; + Nvl(id_responsabil, Cast(0 As I)) As id_responsabil, Nvl(nresp, Space(50)) As nresp, ; + Nvl(id_ctr, Cast(0 As I)) As id_ctr, Nvl(contract, Space(50)) As contract, suma, suma_val, id_valuta, nume_val, curs, ; + id_fact As id_factd, nrACT As pereched, ; + explicatia, ; + 'Rata ' + Alltrim(Str(((m.gnAn * 12 + m.gnluna) - (an * 12 + luna) + 1))) + '/' + Alltrim(Str(((an_exp * 12 + luna_exp) - (an * 12 + luna) + 1))) + ' ' + Alltrim(Nvl(explicatia4, '')) As explicatia4, ; + explicatia5, ; + id_sucursala ; + From crsVenChelt ; + Where !Empty(Nvl(suma, 0)) + Endif + Use In (Select('crsVenChelt')) + + Select actactan + Scan + Gather Name m.loAct Fields Except scd, ascd, scc, ascc, id_partc, partc, id_partd, partd, id_sectie, sectie, id_lucrare, nrord, id_responsabil, nresp, ; + id_ctr, contract, suma, suma_val, id_valuta, nume_val, curs, id_factc, perechec, id_factd, pereched, explicatia, explicatia4, explicatia5, id_sucursala + Endscan + If !Empty(Nvl(m.loAct.explicatia, '')) + Update actactan Set explicatia = m.loAct.explicatia + Endif + + + Select .F. As ales, 0 As Cu_tva, Cast(0 As N(2)) As tipnota, T.* From actactan T Into Cursor tact Readwrite + + Use In (Select('actactan')) + + *** Verificare note contabile + Select tact + Go Top + loForm = Createobject([frm_modific2007], m.pnIdSet, m.llNotaNoua) + loForm.lb_titlu_alb_b121.Caption = Iif(m.pcCont = '471', 'Repunere cheltuieli in avans', Iif(m.pcCont = '472', 'Repunere venituri in avans', 'Subventii')) + Select tact + m.loForm.Show(1) + + If gnButon = 1 + Select tact + Replace id_jtva_coloana With Null, proc_tva With 0 For Cu_tva = 0 + Select * From tact Into Cursor actactan Readwrite + + Select actactan + Replace All id_util With gnIdUtil, id_set With m.pnIdSet + Select actactan + lnSucces = OSCRIE_IN_FISIERE(0) + Endif + + Use In (Select('tact')) + Use In (Select('actactan')) + + +Endproc && repunere_cheltuieli_avans + +******************************************** +*** Editare set note definite de utilizator +******************************************** +Define Class oxSet As Custom + nIdSet = 0 + cXmlSets = '' + cXmlRequest = '' + cXmlNote = '' + nIdSetNou = 99997 && Nota definita de utilizator + + Procedure Init + Lparameters tnIdSet, tlNoLoad + *** tlNoLoad: .T. nu se incarca xsets, xrequest, xnote (ex. la stergerea unui set nu este nevoie de incarcarea datelor) + + If Type('tnIdSet') = 'N' + If !Empty(m.tnIdSet) + This.nIdSet = m.tnIdSet + Else + This.nIdSet = This.nIdSetNou + Endif + Else + This.nIdSet = This.nIdSetNou + Endif + + *** Completez cXmlSets, cXmlRequest, cXmlNote + If !m.tlNoLoad + This.Load() + Endif + + Endproc && Init + + *** schimb id_set in id_set_nou, astfel incat sa creez un set nou, in loc sa il actualizez pe cel vechi + *** la salvarea unui set nou dintr-un set existent + Procedure New + This.nIdSet = This.nIdSetNou + Endproc && New + + Procedure Delete + Local llSucces + Private pnIdSet + + pnIdSet = This.nIdSet + + lcSql = [begin pack_seturi.sterge_set(?pnIdSet); end;] + llSucces = goExecutor.oExecuta(m.lcSql) + Return m.llSucces + Endproc + + Procedure Edit + Local loFrmEditareSet As "frm_editare_set" + Local llSucces, lcSql + Private pnIdSet + + pnIdSet = This.nIdSet + + lcSql = [select label_item, id_item, id_fisier, fis_lista, camp_lista from xitems] + llSucces = goExecutor.oExecuta(m.lcSql, [crsItems]) + If !m.llSucces + Return m.llSucces + Endif + + lcSql = [select categorie, id_categorie from xSetsCategorii where sters = 0 order by ordine] + llSucces = goExecutor.oExecuta(m.lcSql, [crsCategorii]) + If !m.llSucces + Return m.llSucces + Endif + + This.Property2Cursor('cXmlRequest', 'crsRequest') + This.Property2Cursor('cXmlSets', 'crsSet') + + If This.nIdSet = This.nIdSetNou + Update crsSet Set nume_set = "Set nou " + Ttoc(Datetime()), id_set = 0, id_categorie = 0, categorie = "" + Endif + + Select crsRequest + loFrmEditareSet = Createobject("frm_editare_set", This) + m.loFrmEditareSet.Show(1) + llSucces = (m.gnButon = 1) + + Use In (Select('crsItems')) + Use In (Select('crsCategorii')) + Use In (Select('crsRequest')) + Use In (Select('crsSet')) + + Return m.llSucces + Endproc && Edit + + *************************************** + * Converteste un cursor in proprietate (ex: tact -> this.cXmlNote la salvarea unui model nou in nota fara predefinire) + *************************************** + Procedure Cursor2Property + Lparameters tcCursorName, tcProperty, tlNoSchema + + * tcCursorName: numele cursorului pentru conversia in xml + * tcProperty: numele proprietatii: cxmlnote/cxmlsets/cxmlrequest; in functie de proprietate schimb numele nodului cursorului din xml in ceva fix, cunoscut in procedura din baza de date + * tlNoSchema: daca xml-ul are nevoie de schema; in Oracle a dat eroare la parsarea xml cu schema; apelez fara schema in This.Save pentru salvarea xnote in baza de date + + Local lcCursorProp, lcCursorname, lcProperty, lcXML + lcXML = "" + lcCursorname = m.tcCursorName + lcProperty = Alltrim(Lower(m.tcProperty)) + Do Case + Case m.lcProperty = 'cxmlnote' + lcCursorProp = "crsnote" + Case m.lcProperty = 'cxmlsets' + lcCursorProp = "crsset" + Case m.lcProperty = 'cxmlrequest' + lcCursorProp = "crsrequest" + Endcase + + Cursortoxml(m.tcCursorName, 'lcXml', 1, 0 + 2 + 8, 0, Iif(m.tlNoSchema, "", "1")) + + If m.lcCursorname <> m.lcCursorProp + lcXML = Strtran(m.lcXML, m.lcCursorname, m.lcCursorProp, 1, 10000, 1) && tact -> crsnote + Endif + This.&lcProperty = m.lcXML + + Endproc && Cursor2Property + + Procedure Property2Cursor + Lparameters tcProperty, tcCursorName + + Local lcCursorname, lcProperty, lcXML + lcCursorname = m.tcCursorName + lcProperty = Alltrim(Lower(m.tcProperty)) + lcXML = This.&lcProperty + + Xmltocursor(m.lcXML, m.lcCursorname) + Endproc && Property2Cursor + + *************************************** + * Citeste din baza de date informatiile despre xsets, xrequest, xnote si completeaza proprietatile clasei + *************************************** + Procedure Load + Private pnIdSet + Local lcSql, llSucces + pnIdSet = Iif(This.nIdSet <> 0, This.nIdSet, This.nIdSetNou) + + Text To m.lcSql Textmerge Noshow + select s.id_set, + s.nr_set, + s.nume_set, + s.fix, + s.lista_note, + s.explicatia, + s.model, + s.formgest, + s.nu_sterg, + s.param1, + s.listare, + s.param2, + s.frm_date, + s.discount, + s.adaos, + s.factura, + s.id_selst, + s.id_seldr, + s.tip_doc, + s.tip_ctr, + s.expl_fixa, + s.aleg_cont, + s.frm_plata, + s.valuta, + s.compens, + s.id_tip_rul, + s.id_jnetax, + s.id_jtax, + s.tipjurnal, + s.id_jtaxn, + s.productie, + s.formproduc, + s.cursval, + s.id_categorie, + s.procedura_lans, + s.id_sucursala, + c.categorie + from xsets s left join xSetsCategorii c on s.id_categorie = c.id_categorie + where s.id_set = ?pnIdSet + Endtext + + llSucces = goExecutor.oExecuta(m.lcSql, [crsSet]) + If !m.llSucces + Return m.llSucces + Endif + + This.Cursor2Property("crsSet", "cXmlSets") + Use In (Select('crsSet')) + + If This.nIdSet = 0 + Update crsSet Set nume_set = "Set nou " + Ttoc(Datetime()), id_set = 0, id_categorie = 0, categorie = "" + Endif + + + * Selectez din xrequest & xitems toate inregistrarile de pe id_set-ul curent, fara campurile de sume + * Sumele se completeaza in xnote, nu in cererea de date + Text To m.lcSql Textmerge Noshow + select i.label_item, + s.nume_set, + r.valoare_default, + r.nr_item, + r.id_item, + r.id_set, + i.fis_lista, + i.id_fisier, + i.camp_lista, + i.x_init_val, + rpad(case + when i.fis_lista is not null then + pack_util.GetText(i.fis_lista, + i.id_fisier, + to_number(r.valoare_default), + replace(i.camp_lista, ',', ' || '' '' || ')) + ELSE + r.valoare_default + end, + 100, + ' ') as valoare_default_text + from xrequest r + join xsets s + on s.id_set = r.id_set + join xitems i + on i.id_item = r.id_item + where r.id_set = ?pnIdSet and + not ((lower(nvl(i.xinputmask, 'x')) like '%gnpa%' or + lower(nvl(i.xinputmask, 'x')) like '%gnpcurs%' or + lower(nvl(i.xinputmask, 'x')) like '%gnpval%') and i.id_item not in (21,22,23)) + order by i.prioritate, r.nr_item + Endtext + + llSucces = goExecutor.oExecuta(m.lcSql, [crsRequest]) + If !m.llSucces + Return m.llSucces + Endif + + This.Cursor2Property("crsRequest", "cXmlRequest") + Use In (Select('crsRequest')) + + *** verific daca a fost deja completata This.cXmlNote pe INIT + Text To m.lcSql Textmerge Noshow + SELECT decode(NVL(a.id_jtva_coloana, 0), 0, 0, 1) As Cu_tva, + Cast(0 As Number(2)) As tipnota, + cast(0 as number(20)) as id_act, + cast(0 as number(2)) as luna, + cast(0 as number(4)) as an, + cast(0 as number(20)) as cod, + a.dataireg, + a.serie_act, + a.nract, + a.dataact, + a.explicatia, + a.xscd as scd, + a.xascd as ascd, + a.xscc as scc, + a.xascc as ascc, + a.suma, + a.pereched, + a.perechec, + a.suma_val, + a.id_valuta, + v.nume_val, + a.curs, + a.datascad, + 0 AS neimpozab, + a.nnir, + cast(0 as number(5)) as id_util, + '' AS util, + sysdate as dataora, + cast(0 as number(5)) as id_utils, + '' AS utils, + sysdate as dataoras, + a.id_responsabil, + resp.denumire AS nresp, + a.id_venchelt, + venchelt.explicatie AS dst_chlt, + a.id_lucrare, + lucr.nrord, + a.id_ctr, + (case when ctr.numar is not null then ctr.numar || '/' else '' end) || TO_CHAR(ctr.data,'DD.MM.YYYY') as contract, + a.id_sectie, + sectii.sectie, + a.proc_tva, + a.id_set, + NVL(a.id_fact, 0) as id_fact, + a.id_partd, + part1.denumire AS partd, + a.id_partc, + part.denumire AS partc, + cast(0 as number(5)) as id_sucursala, + '' as sucursala, + a.id_fdoc, + fdoc.fel_document AS fdoc, + a.explicatia4, + a.explicatia5, + cast(0 as number(5)) as id_gestin, + '' AS gestin, + cast(0 as number(5)) as id_gestout, + '' AS gestout, + NVL(a.id_factd, 0) as id_factd, + NVL(a.id_factc, 0) as id_factc, + a.id_jtva_coloana, + jtva.denumire as explicatie_tva, + cast(0 AS NUMBER(1)) AS validat, + cast(0 as number(5)) as id_utilv, + '' as utilv, + SYSDATE AS dataorav, + NVL(doc.tva_incasare,0) as tva_incasare + from xnote a + LEFT JOIN nom_fdoc fdoc ON a.id_fdoc = fdoc.id_fdoc + LEFT JOIN nom_parteneri part ON a.id_partc = part.id_part + LEFT JOIN nom_parteneri part1 ON a.id_partd = part1.id_part + LEFT JOIN vnom_venchel venchelt ON a.id_venchelt = venchelt.id_venchelt + LEFT JOIN nom_parteneri resp ON a.id_responsabil = resp.id_part + LEFT JOIN nom_sectii sectii ON a.id_sectie = sectii.id_sectie + LEFT JOIN vnom_lucrari lucr ON a.id_lucrare = lucr.id_lucrare + LEFT JOIN nom_valute v ON a.id_valuta = v.id_valuta + LEFT JOIN contracte ctr ON ctr.id_ctr = a.id_ctr + LEFT JOIN jtva_coloane jtva ON a.id_jtva_coloana = jtva.id_jtva_coloana + LEFT JOIN documente doc on a.id_fact = doc.id_doc + where a.id_set = ?pnIdSet + order by nr_nota + Endtext + + llSucces = goExecutor.oExecuta(m.lcSql, 'crsNote') + + If !m.llSucces + Return m.llSucces + Endif + + This.Cursor2Property("crsNote", "cXmlNote") + Use In (Select('crsNote')) + + Return m.llSucces + Endproc && Load + + Procedure Save + Local lcSql, llSucces, lcXmlNote + Private pcXmlNote, pcXmlRequest, pcXmlSets, pnIdSet + + pcXmlSets = This.cXmlSets + pcXmlRequest = This.cXmlRequest + pcXmlNote = "" + + * recreez xml note fara schema inline. pack_seturi.modifica_set dadea eroare cu schema inline + Xmltocursor(This.cXmlNote, "cxmlnotetemp") + Cursortoxml("cxmlnotetemp", 'pcXmlNote', 1, 0 + 2 + 8, 0, "") + Use In (Select("cxmlnotetemp")) + pcXmlNote = Strtran(m.pcXmlNote, "cxmlnotetemp", "crsnote", 1, 10000, 1) && crsnotetemp -> crsnote + + + pnIdSet = Iif(This.nIdSet <> 0, This.nIdSet, This.nIdSetNou) && variabila privata declarata in oxSet.EditareSet() + + lcSql = [begin pack_seturi.modifica_set(?@m.pnIdSet, ?m.pcXmlSets, ?m.pcXmlNote, ?m.pcXmlRequest, ?gnIdUtil); end;] + llSucces = goExecutor.oExecuta(m.lcSql) + + *** Pentru seturile noi se salveaza noul ID_SET in proprietatile clasei + If m.llSucces + This.nIdSet = m.pnIdSet + Endif + + Return m.llSucces + + Endproc && Save + +Enddefine && oSet +******************************************************************* +Procedure stornare_plinc + Local loStornarePlInc, ldData, lnIdSet, lcCursorAct, lcCursorActan, lnSucces + Private poRec, pnIdFact + lnSucces = 1 + pnIdFact = 0 + lnIdSet = 10616 + ldData = Ttod(get_ora()) + If Month(m.ldData) <> gnluna Or Year(m.ldData) <> gnAn + ldData = Gomonth(Date(gnAn, gnluna, 1), 1) - 1 + Endif + poRec = Createobject('custom') + With m.poRec + .AddProperty('dataireg', m.ldData) + .AddProperty('id_fdoc', 0) + .AddProperty('fdoc', '') + .AddProperty('nract', 0) + .AddProperty('dataact', m.ldData) + .AddProperty('cont', '') + .AddProperty('tip_sold', '') + .AddProperty('id_part', 0) + .AddProperty('denumire', '') + .AddProperty('datai', Date(gnAn, gnluna, 1)) + .AddProperty('dataf', m.ldData) + .AddProperty('cod', 0) + .AddProperty('cursor', '') + Endwith + + Do Form frm_stornare_plinc Noshow Name m.loStornarePlInc Linked + m.loStornarePlInc.Show(1) + If gnButon = 1 + Select (m.poRec.Cursor) + poRec.cod = cod + + Local loForm As [frm_modific2007] + lcSql = [select a.*,a.suma as suma_orig,a.suma_val as suma_val_orig,0 as tipnota,decode(Nvl(id_jtva_coloana,0),0,0,1) as cu_tva ] + ; + [from vact_tot a where a.cod = ] + Alltrim(Str(m.poRec.cod)) + [ order by a.id_act] + lcCursor = Sys(2015) + lcCursorModificare = [tact] + lcCursorScriere = [actactan] + If goExecutor.oExecuta(m.lcSql, m.lcCursor) + Select .F. As ales, a.* From (m.lcCursor) a Into Cursor (m.lcCursorModificare) Readwrite + + Use In (Select(m.lcCursor)) + + Update (m.lcCursorModificare) Set ; + id_set = m.lnIdSet, ; + id_util = gnIdUtil, ; + dataireg = m.poRec.dataireg, ; + dataact = m.poRec.dataact, ; + serie_act = '', ; + nrACT = m.poRec.nrACT, ; + id_fdoc = m.poRec.id_fdoc, ; + fdoc = m.poRec.fdoc, ; + suma = (-1) * suma, ; + suma_val = (-1) * suma_val + + * la notele de stornare 413 = 4111/401 = 403/ 404 = 405 nu trebuie sa am acelasi ID_FACT pe incasare/plata pentru ca apar in 413/403 doua inregistrari cu acelasi ID_FACT (+/-) si nu se pot inchide + * generez alte ID_FACT + Select (m.lcCursorModificare) + Scan For scd = '413' Or Inlist(scc, '403', '405') + pnIdFact = Nvl(id_fact, 0) + If !Empty(m.pnIdFact) + lnSucces = goExecutor.oSelect2Value("select seq_idfact.nextval from dual", @m.pnIdFact) + If m.lnSucces > 0 + Replace id_fact With m.pnIdFact In (m.lcCursorModificare) + Else + amessagebox(goExecutor.cEroare, 0 + 48, _Screen.Caption) + Exit + Endif + Endif + Endscan + + Select (m.lcCursorModificare) + Go Top + + loForm = Createobject([frm_modific2007], m.lnIdSet) + loForm.lb_titlu_alb_b121.Caption = [Stornare plata / încasare] + m.loForm.Show(1) + + If gnButon = 1 + Select * From (m.lcCursorModificare) Where suma <> 0 Into Cursor (m.lcCursorScriere) Readwrite + Select (m.lcCursorScriere) + OSCRIE_IN_FISIERE(0) + Use In (m.lcCursorScriere) + Endif + Use In (m.lcCursorModificare) + Endif + Use In (m.poRec.Cursor) + Endif +Endproc \ No newline at end of file diff --git a/Programe/oproceduri_actualizari.prg b/Programe/oproceduri_actualizari.prg new file mode 100644 index 0000000..ec9faea --- /dev/null +++ b/Programe/oproceduri_actualizari.prg @@ -0,0 +1,203 @@ +Procedure actualizare_tva2007 + Private pnActAct,pnActIregPart,pnActNote,pcAnLuna1,pcAnLuna2,pnLunaI,pnAnI,pnLunaF,pnAnF + Store 0 To pnActAct,pnActIregPart,pnActNote,pnLunaI,pnAnI,pnLunaF,pnAnF + Store "" To pcAnLuna1, pcAnLuna2 + IF m.glLunaInchisa + AMESSAGEBOX('Luna este inchisa! Operatia nu este permisa.',0+64,_screen.Caption) + RETURN + ENDIF + IF m.gnAn<>2007 + AMESSAGEBOX('Operatia este permisa doar pentru 2007!',0+64,_screen.Caption) + RETURN + ENDIF + + loActTva = Createobject("frm_actualizare_tva") + loActTva.Show(1) + If gnButon = 1 + pnLunaI = Val(Substr(pcAnLuna1,1,2)) + pnAnI = Val(Substr(pcAnLuna1,3)) + pnLunaF = Val(Substr(pcAnLuna2,1,2)) + pnAnF = Val(Substr(pcAnLuna2,3)) + _Screen.MousePointer = 11 + lcSql = [begin actualizare_TVA2007(?pnActAct,?pnActIregPart,?pnActNote,?pnLunaI,?pnAnI,?pnLunaF,?pnAnF); end;] + lnSucces = goExecutor.oExecute(lcSql) + _Screen.MousePointer = 0 + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0+16, "Eroare") + Else + amessagebox("Inregistrarile au fost actualizate!" + Chr(13) + Chr(10) + ; + "Trebuie sa dati refacere in registrele de vanzari si cumparari incepand cu luna "+Iif(pnAnI<=2006,[01],Substr(pcAnLuna1,1,2)) +"/2007!",0+64,"Info actualizare") + Endif + Endif +Endproc +************************************************************************************************************************ +Procedure actualizare_solduri_valuta + + IF m.glLunaInchisa + AMESSAGEBOX('Luna este inchisa! Operatia nu este permisa.',0+64,_screen.Caption) + RETURN + ENDIF + + Local lnIdSet, llVerificAnalitic, llCompletareParteneri, lcContAles + Local loHash + Local lcSql, lcCursor, lnSucces, lcSelect, lcSchema, lcSql, lcSelect2, lcOrder, lcFiltru, lcFiltruOriginal, loActualizare + + lnIdSet = 90501 + llVerificAnalitic = .T. + llCompletareParteneri = .T. + + && valute + *!* 08.05.2008 + *!* lcSql = "select ID_VALUTA, NUME_VAL, 0000000.0000 as curs from vnom_valute where moneda_nationala = 0 order by nume_val" + && ultima zi din luna curenta pentru cursul valutar + ldUltimaZi = Gomonth(Date(gnAn, gnLuna, 1),1) - 1 + + TEXT TO lcSql textmerge noshow +select V.ID_VALUTA, V.NUME_VAL, CAST(NVL(C.CURS, 0) AS NUMBER(18,6)) as curs + from vnom_valute V + LEFT JOIN (SELECT ID_VALUTA, MAX(CURS) AS CURS + FROM CURS + WHERE TO_DATE('<>', 'YYYYMMDD') BETWEEN DATA AND DATA2 + GROUP BY ID_VALUTA) C ON V.ID_VALUTA = C.ID_VALUTA + where V.moneda_nationala = 0 + order by V.nume_val + ENDTEXT + *!* 08.05.2008 ^ + + lcCursor = "crsValute" + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0+16, "Eroare") + Endif + + *!* SELECT * FROM crsValuteTemp INTO CURSOR crsValute READWRITE + *!* USE IN crsValuteTemp + + && conturi cu inregistrari sau trezorerie +*!* 08.05.2008 +*!* selecta sumele din balanta_parteneri si pentru 542 (trebuia doar pentru 5124, 5314) +*!* acum se poate face reevaluarea pentru toate conturile cu balanta de parteneri, nu numai pentru clasa 5 +*!* lcSql = "select cont, explicatie, fel_cont,cu_inregistrari from config_cont_ireg where cu_inregistrari = 1 or SUBSTR(cont,1,1) = '5' order by cont" + lcSql = "select cont, explicatie, fel_cont,cu_inregistrari from config_cont_ireg order by cont" +*!* 09.05.2008 ^ + lcCursor = "crsConturi" + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0+16, "Eroare") + Endif + + + && cursor gol cu facturi + Private poireg_parteneri, pobalanta_parteneri + Store '' To poireg_parteneri, pobalanta_parteneri + + + lcSchema = [an n(4), luna n(2), ales N(1), id_fact n(20), id_part n(20), cont c(4), acont c(4), ID_VALUTA N(5), ] + ; + [PRECDEB N(20,4),PRECCRED N(20,4),PRECVALDEB N(20,4),PRECVALCRED N(20,4), ] + ; + [debit n(20,4),credit n(20,4),valdebit n(20,4), valcredit n(20,4), ] + ; + [nract N(20),DATAACT D,DATAIREG D,DATASCAD D,CURS N(18,6), ] + ; + [NUME C(100), NUME_VAL C(10), ] + ; + [CURSBNR N(18,6), SOLDVAL n(20,4), SOLDLEI n(20,4), DIFERENTA N(20,4), proc_tva n(10,4), id_jtva_coloana i] + + lcSelect = [SELECT AN, LUNA, 1 as ales, ID_FACT, ID_PART, CONT, ACONT, ID_VALUTA, ] +; + [PRECDEB, PRECCRED, PRECVALDEB, PRECVALCRED, ] +; + [DEBIT, CREDIT, VALDEBIT, VALCREDIT, ] +; + [NRACT, DATAACT, DATAIREG, DATASCAD, CURS, ] +; + [NUME, NUME_VAL, ] + ; + [000000.000000 as cursbnr, 000000000.0000 as soldval, 000000000.0000 as soldlei, 000000000.0000 as diferenta, proc_tva, id_jtva_coloana ] + ; + [ FROM VIREG_PARTENERI] + + lcSelect2 = [SELECT AN, LUNA, 1 as ales, 0 AS ID_FACT, ID_PART, CONT, ACONT, ID_VALUTA, ] +; + [PRECDEB, PRECCRED, PRECVALDEB, PRECVALCRED, ] +; + [DEBIT, CREDIT, VALDEBIT, VALCREDIT, ] +; + [0 AS NRACT, TO_DATE('', 'YYYYMMDD') AS DATAACT, TO_DATE('', 'YYYYMMDD') AS DATAIREG, TO_DATE('', 'YYYYMMDD') AS DATASCAD, 000000.0000 AS CURS, ] +; + [NUME, NUME_VAL, ] + ; + [000000.0000 as cursbnr, 000000000.0000 as soldval, 000000000.0000 as soldlei, 000000000.0000 as diferenta, 0000.0000 as proc_tva, 0000000000 as id_jtva_coloana ] + ; + [ FROM VBALANTA_PARTENERI] + + lcOrder = [dataact] + lcFiltru = [1=2] + lcFiltruOriginal = [an = ?gnAn and luna = ?gnLuna and (precvaldeb + valdebit - precvalcred - valcredit <> 0)] + loHash = GetHash() + loHash.SetValue('cNume', 'poireg_parteneri') + loHash.SetValue('cAlias', 'crsFacturi') + loHash.SetValue('cSelect', lcSelect) + loHash.SetValue('cFiltru', lcFiltru) + loHash.SetValue('cSchema', lcSchema) + loHash.SetValue('cOrder', lcOrder) + loHash.SetValue('lAfisare', .F.) + *!* loHash.SetValue('cGroup', '' ) + loHash.SetValue('lModParam', .T.) + loHash.SetValue('cFiltruOriginal', lcFiltruOriginal) + + && cursor adapter pentru inregistrari parteneri + gencursor_hash(loHash) + poireg_parteneri.ca_baza1.afisare() + + && cursor adapter pentru balanta parteneri + loHash.SetValue('cNume', 'pobalanta_parteneri') + loHash.SetValue('cSelect', lcSelect2) + gencursor_hash(loHash) + + *!* formular calcul diferente - creeaza cursorul crsActTemp + *!* SELECT crsValute + loActualizare = Createobject("frm_actualizare_facturi_valuta") + loActualizare.Show(1) + + *!* lcCursor = "crsActTemp" + *!* IF gnButon = 1 + + *!* SELECT crsFacturi + *!* LOCATE + *!* lcContAles = ALLTRIM(CONT) + *!* SELECT crsConturi + *!* LOCATE FOR ALLTRIM(CONT) == lcContAles + *!* IF FOUND() + *!* lnFelCont = fel_cont + *!* ELSE + *!* lnFelCont = 0 + *!* ENDIF + + *!* + *!* SELECT an, luna, ID_FACT, ID_PART AS ID_PARTD, NUME AS PARTD, ID_PART AS ID_PARTC, NUME AS PARTC, ; + *!* SPACE(4) as scd, acont AS ascd, SPACE(4) as scc, acont AS ascc, diferenta AS SUMA, ; + *!* nract AS pereched, ID_FACT AS id_factd, ; + *!* nract AS perechec, ID_FACT AS id_factc, ; + *!* cursBNR AS CURS, nume_val, id_valuta, ; + *!* PADR('DIFERENTE REEVALUARE;' + ALLTRIM(TRANSFORM(CURS)) + ';' + ALLTRIM(TRANSFORM(CURSBNR)), 50, ' ') as explicatia, ; + *!* PADR(ALLTRIM(TRANSFORM(CURS)), 50, ' ') AS EXPLICATIA4 ; + *!* FROM crsFacturi ; + *!* WHERE diferenta <> 0 ; + *!* INTO CURSOR crsActTemp ; + *!* READWRITE + + *!* IF _TALLY > 0 + + *!* SELECT crsActTemp + *!* REPLACE ALL SCD WITH lcContAles, SCC WITH "765 ", ascc WITH '', ID_PARTC WITH 0, PARTC WITH '', PERECHEC WITH 0 ; + *!* FOR (SUMA>0 AND lnFelCont = 0) OR (SUMA<0 AND lnFelCont = 0) + + *!* REPLACE ALL SCD WITH "665 ", ascd WITH '', SCC WITH lcContAles, ID_PARTD WITH 0, PARTD WITH '', PERECHED WITH 0 ; + *!* FOR (SUMA<0 AND lnFelCont = 0) OR (SUMA>0 AND lnFelCont = 1) + *!* + *!* REPLACE ALL EXPLICATIA WITH STRTRAN(EXPLICATIA, 'REEVALUARE', 'FAVORABILE') FOR SCC = '765' + *!* REPLACE ALL EXPLICATIA WITH STRTRAN(EXPLICATIA, 'REEVALUARE', 'NEFAVORABILE') FOR SCD = '665' + + *!* REPLACE ALL SUMA WITH ABS(SUMA) + + + *!* lnSucces = scrie_nota_import(lnIdSet, llVerificAnalitic, llCompletareParteneri, "crsActTemp") + *!* ENDIF + *!* ENDIF + + + If Used('crsValute') + Use In crsValute + Endif + If Used('crsConturi') + Use In crsConturi + Endif + If Used('crsFacturi') + Use In crsFacturi + Endif +Endproc && actualizare_solduri_valuta diff --git a/Programe/oproceduri_casademarcat.prg b/Programe/oproceduri_casademarcat.prg new file mode 100644 index 0000000..95e2ec0 --- /dev/null +++ b/Programe/oproceduri_casademarcat.prg @@ -0,0 +1,173 @@ +*!* 30.11.2011 +*!* marius.mutu +*!* creare_bon_fiscal +*!* procentul de tva nu se afla corect: str(lnidfact,20) + +*!* 25.11.2014 +*!* marius.mutu +*!* casademarcat_roacont - functioneaza si pentru incasare cu bon fiscal prin POS (banca) id_set 10576 +*!* creare_bon_fiscal - functioneaza si pentru incasare cu bon fiscal prin POS (banca) id_set 10576, cont 5125 sume in curs de decontare + +*!* 11.05.2015 +*!* marius.mutu +*!* gcArticolBonFiscalCont: numele articolului care se va lista pe bonul fiscal. daca nu este completat se listeaza (Fact. Nr.) + +Procedure casademarcat_roacont + Lparameters tnIdSet + + Local lnLungime, lnRaspuns, lnIdSet, lnSucces + + *:Global glListareBonFiscalCont, taValori[1] + *!* Private poGeneratorNumere + *!* poGeneratorNumere = Createobject('oGeneratorNumere') + If Empty(tnIdSet) Or Type('tnIdSet') <> 'N' + lnIdSet = 10576 && Casa incasari - Clienti ( cu bon fiscal ) + Else + lnIdSet = m.tnIdSet && (10617 Banca incasari - Clienti (cu bon fiscal POS)) + ENDIF + + gcArticolBonFiscalCont = "" + IF INLIST(m.lnIdSet, 10619, 10620) && Bacsis fara TVA; Bacsis cu TVA + gcArticolBonFiscalCont = 'BACSIS' + ENDIF + + lnLungime = 2 + lnRaspuns = 6 + Dimension taValori[lnLungime, 3] + Do While lnRaspuns = 6 + glListareBonFiscalCont = .T. + taValori[1, 1] = "poAct.id_fdoc" + taValori[1, 2] = Alltrim(Str(gnid_fdoc_bonfiscal)) + taValori[1, 3] = .T. + + taValori[2, 1] = "poAct.fdoc" + taValori[2, 2] = [BON FISCAL] + taValori[2, 3] = .T. + + *!* Store -1 To lnNumarBon + *!* lnRezultat = poGeneratorNumere.creeaza_cursor_serii_bf() + *!* lnNumarBon = poGeneratorNumere.aloca_numar_bf() + *!* If lnNumarBon = -1 + *!* glListareBonFiscalCont=.F. + *!* Return + *!* Endif + + *!* taValori[3,1]="poAct.nract" + *!* taValori[3,2]=Alltrim(Str(lnNumarBon)) + *!* taValori[3,3]=.T. + + lnSucces = lans(m.lnIdSet, .F., .T., @taValori) + *!* lnSucces=lans(10329,.F.,.T.,@taValori) + *!* If lnSucces=2 + *!* poGeneratorNumere.dezaloca_numar_bf() && in oserii_numere.prg + *!* Endif + glListareBonFiscalCont = .F. + gcArticolBonFiscalCont = "" + lnRaspuns = AMESSAGEBOX('Doriti sa continuati cu operatii de acest fel?', 4 + 32, "Confirmare") + Enddo + Release poGeneratorNumere +Endproc +****************************************************************************************** +Procedure creare_bon_fiscal + Local lnNumarBonFiscal, lnTotalSuma, lnIdCasa, lnTip, lnNrFact, lnSuma, lnProcTva + *!* Local lcSirBonFiscal,lnTip,lnIdCasa,lnTotalSuma,ldDataBonFiscal,lnNumarBonFiscal,lnTotalSuma + lnNumarBonFiscal = 0 + lnTotalSuma = 0 + lnSumaNumerar = 0 + lnSumaCard = 0 + + *!* modificare v 2.0.74 + *!* lcSirBonFiscal=[] + && lcSirBonFiscal (explicatii) : + && 5 (incasare);suma achitata;0(numerar);0(moneda);0(numar card credit) + *!* ldDataBonFiscal=get_ora() + *!* Select actactan + *!* Set Filter To scd='5311' + *!* Scan + *!* lnNumarBonFiscal=nract + *!* lnIdCasa=id_partd + *!* Do Case + *!* Case Type('gnId_casa_achit')<>'U' And lnIdCasa=gnId_casa_achit && optiune din Devize + *!* lnTip=1 + *!* *!* Case TYPE('gnId_Part_Bufet')<>'U' AND lnIdCasa=gnId_Part_Bufet && optiune din Gestiuni + *!* *!* lnTip=2 + *!* Otherwise + *!* lnTip=3 + *!* Endcase + *!* lcSirBonFiscal=lcSirBonFiscal+[1;Fact.]+Alltrim(Str(perechec))+[;1;]+Alltrim(Str(lnTip))+[;1;]+Alltrim(Str(suma*100))+[;1000;0]+CRLF + *!* lnTotalSuma=lnTotalSuma+suma + *!* Endscan + *!* Set Filter To + *!* If !Empty(lcSirBonFiscal) + *!* lcSirBonFiscal=lcSirBonFiscal+[5;]+Alltrim(Str(lnTotalSuma*100))+[;0;0;0]+CRLF+CRLF + *!* imprimare_bon_fiscal(lcSirBonFiscal,ldDataBonFiscal,lnNumarBonFiscal) + *!* Else + *!* aMessagebox("Bonul nu contine nici un element!",0+48,"Atentie") + *!* Endif + Local lcCursor + lcCursor = [crsDateBon] + Create Cursor (lcCursor) (DENUMIRE C(100), UM C(10), CANT N(10, 4), Pret N(18, 4), DEPARTAMENT N(2), PROC_TVAV N(5, 2)) + + + Select actactan + Set Filter To Inlist(scd, '5311', '5125') + Scan + lnNumarBonFiscal = nract + lnIdCasa = id_partd + Do Case + Case Type('gnId_casa_achit') <> 'U' And lnIdCasa = gnId_casa_achit && optiune din Devize + lnTip = 1 + Otherwise + lnTip = 3 + Endcase + lnNrFact = perechec + lnIdFactC = id_Factc + lnProcTva = proc_tva + lnSuma = suma + lnTotalSuma = lnTotalSuma + lnSuma + IF scd = '5311' + lnSumaNumerar = m.lnSumaNumerar + m.lnSuma + ELSE + lnSumaCard = m.lnSumaCard + m.lnSuma + ENDIF + + *!* nu am proc_tva completat asa ca trebuie sa-l citesc din inregistrari + If Empty(lnProcTva) And !Empty(lnIdFactC) + lcSql = [select 1 + (cota_tva / 100) as proc_tva from ] + gcS + [.jtva_coloane where id_jtva_coloana in (select id_jtva_coloana ] + ; + [ from ] + gcS + [.act where id_fact = ] + Alltrim(Str(lnIdFactC, 20)) + [ and sters = 0) and afisat <> 0 and id_jtva_coloana>0 and sters = 0] + lnSucces = goExecutor.oExecute(lcSql, [crsbfpt]) + If lnSucces < 0 + AMESSAGEBOX(goExecutor.cEroare, 16, "Eroare") + Else + If Reccount('crsbfpt') > 0 + Select crsbfpt + lnProcTva = proc_tva + Endif + Endif + Use In (Select([crsbfpt])) + Endif + Select (lcCursor) + Append Blank + Replace DENUMIRE With IIF(!EMPTY(m.gcArticolBonFiscalCont), m.gcArticolBonFiscalCont, [Fact.] + Alltrim(Str(lnNrFact))), CANT With 1, Pret With lnSuma, PROC_TVAV With lnProcTva, DEPARTAMENT With lnTip + Select actactan + Endscan + Set Filter To + If Reccount(lcCursor) > 0 + Local loHash + loHash = GetHash() + loHash.SetValue("cTip", "1;") + loHash.SetValue("nNumarBon", lnNumarBonFiscal) + loHash.SetValue("nValoareNumerar", m.lnSumaNumerar) + loHash.SetValue("nValoareCard", m.lnSumaCard) + loHash.SetValue("nValoareTotal", lnTotalSuma) + loHash.SetValue("cCursor", lcCursor) + loHash.SetValue("tDataOra", get_ora()) + goControllerEcr.imprima(loHash) + Release loHash + Else + AMESSAGEBOX("Bonul nu contine nici un element!", 0 + 48, "Atentie") + Endif + Use In (lcCursor) + *!* modificare v 2.0.74 ^ +Endproc +****************************************************************************************** \ No newline at end of file diff --git a/Programe/oproceduri_conversie.prg b/Programe/oproceduri_conversie.prg new file mode 100644 index 0000000..741f0ae --- /dev/null +++ b/Programe/oproceduri_conversie.prg @@ -0,0 +1,123 @@ +*** OPROCEDURI_ACTUALIZARI + +*** SE ALEGE O CONVERSIE EXISTENTA SAU UNA NOUA +FUNCTION GETCONVERSIE + LOCAL lcselect,lcfiltru,lcschema,lcorder,lccoloana,lcTitlu,lcTitluColoana,lcNume_Proc,llAllInList,lcFiltruOriginal,lcPrimaColoana, lnPornire, lnTipReturn, lcIdColumn, llDesktop + LOCAL loCauta, lcConversie + lcConversie = "" + + lcselect = "select distinct conversie from conversie_conturi" + lcfiltru = "" + lcschema = "" + lcorder = "conversie" + lccoloana = "conversie" + lcTitlu = "Alegeti conversia" + lcTitluColoana = "Conversie" + lcNumeProc = "" + llAllInList = .F. + lcFiltruOriginal = "" + lcPrimaColoana = "conversie" + lnPornire = 1 + lnTipReturn = 0 + lcIdColumn = "" + llDesktop = .F. + + IF AMESSAGEBOX('Conversie existenta (DA) / Noua (NU)?',4+32,'Conversie') = 6 + loCauta = cauta_alfa(lcselect,lcfiltru,lcschema,lcorder,lccoloana,lcTitlu,lcTitluColoana,lcNume_Proc,llAllInList,lcFiltruOriginal,lcPrimaColoana, lnPornire, lnTipReturn, lcIdColumn, llDesktop) && 11.07.2007 + lcConversie = UPPER(ALLTRIM(loCauta.conversie)) + ELSE + lcConversie = UPPER(ALLTRIM(INPUTBOX("Conversie","Conversie","Ordin ..."))) + ENDIF + RETURN UPPER(ALLTRIM(lcConversie)) + +ENDFUNC && GETCONVERSIE + +*** SE EDITEAZA INREGISTRARILE DIN CONVERSIA ALEASA +*** SE APLICA CONVERSIA PLAN/BALANTA/JURNAL +PROCEDURE CONVERSIE_CONTURI + LPARAMETERS tcSubiect, tnAn, tnLuna + + && tcSubiect : PLAN;BALANTA + + IF m.glLunaInchisa + AMESSAGEBOX('Luna este inchisa! Operatia nu este permisa.',0+64,_screen.Caption) + RETURN + ENDIF + + LOCAL lcnume, lcalias, lcselect, lcfiltru, lcschema, lcorder, llAfisare, lcgroup, llModParam, lcFiltruOriginal + LOCAL lcSql, lnSucces, lcMesaj + + PRIVATE pnAn, poConversie, pcConversie + poConversie = NULL + + IF EMPTY(tcSubiect) OR TYPE('tcSubiect') # 'C' + RETURN + ENDIF + IF PCOUNT() < 2 OR TYPE('tnAn') # 'N' + pnAn = gnAn + ELSE + pnAn = tnAn + ENDIF + + IF PCOUNT() < 3 OR TYPE('tnLuna') # 'N' + pnLuna = gnLuna + ELSE + pnLuna = tnLuna + ENDIF + + pcConversie = GETCONVERSIE() + IF EMPTY(ALLTRIM(pcConversie)) + RETURN + ENDIF + + lcnume = [poConversie] + lcalias = [crsConversieConturi] + lcselect = [SELECT ACONT_NOU, ACONT_VECHI, CONT_NOU, CONT_VECHI, EXPLICATIE, ID, SE_APLICA, TIP_SOLD, CONVERSIE FROM CONVERSIE_CONTURI] + lcschema = [ACONT_NOU C(4), ACONT_VECHI C(4), CONT_NOU C(4), CONT_VECHI C(4), EXPLICATIE C(100), ID N(10), SE_APLICA N(1), TIP_SOLD C(1), CONVERSIE C(100)] + lcfiltru = [] + lcorder = [cont_vechi, acont_vechi, cont_nou, acont_nou] + llAfisare = .F. + lcgroup = [] + llModParam = .T. + lcFiltruOriginal = [UPPER(TRIM(conversie)) = '] + UPPER(ALLTRIM(pcConversie)) + ['] + gencursor(lcnume, lcalias, lcselect, lcfiltru, lcschema, lcorder, llAfisare, lcgroup, llModParam, lcFiltruOriginal) + poConversie.ca_baza1.afisare() + + *!* SELECT crsConversieConturi + *!* INDEX on cont_nou + acont_nou + cont_vechi + acont_vechi TAG ordonare + + loFrmConversie = CREATEOBJECT("frm_conversie_conturi") + loFrmConversie.cSubiectConversie = UPPER(ALLTRIM(tcSubiect)) + loFrmConversie.lb_titlu_alb_b121.CAPTION = "Configurare conturi " + ALLTRIM(pcConversie) + loFrmConversie.cConversie = pcConversie + loFrmConversie.SHOW(1) + + lcMesaj = "" + lcSql = "" + IF INLIST(UPPER(ALLTRIM(tcSubiect)), "PLAN", "BALANTA", "JURNAL") + DO CASE + CASE UPPER(ALLTRIM(tcSubiect)) = 'PLAN' + lcMesaj = 'Doriti sa actualizati planul de conturi?' + lcSql = [begin pack_conversie.conversie_plan_cont(?pcConversie, ?pnAn); end;] + CASE UPPER(ALLTRIM(tcSubiect)) = 'BALANTA' + lcMesaj = 'Doriti sa actualizati balanta de verificare?' + lcSql = [begin pack_conversie.conversie_balanta(?pcConversie, ?pnAn,?pnLuna); end;] + CASE UPPER(ALLTRIM(tcSubiect)) = 'JURNAL' + lcMesaj = 'Doriti sa actualizati registrul jurnal?' + lcSql = [begin pack_conversie.conversie_jurnal(?pcConversie, ?pnAn,?pnLuna); end;] + ENDCASE + + IF gnButon = 1 AND AMESSAGEBOX(lcMesaj, 4+32, 'Actualizare') = 6 + lnSucces = goExecutor.oExecute(lcSql) + IF lnSucces < 0 + AMESSAGEBOX(goExecutor.cEroare,0+16,'Eroare') + ELSE + AMESSAGEBOX('Actualizarea s-a terminat cu succes',0+64) + ENDIF + ENDIF + ENDIF + +ENDPROC && CONVERSIE_CONTURI + + + diff --git a/Programe/oproceduri_decont.prg b/Programe/oproceduri_decont.prg new file mode 100644 index 0000000..ceeced6 --- /dev/null +++ b/Programe/oproceduri_decont.prg @@ -0,0 +1,18904 @@ +*!* 23.07.2010 +*!* marius.mutu +*!* declaratia394 - este optional daca se aduna si achizitiile din tara scutite sau neimpozabile (ROSCN) + +*!* 09.08.2010 +*!* marius.mutu +*!* viz_decontTVA_0710 && 07/2010 TVA 24% + +*!* 12.04.2011 +*!* marius.mutu +*!* viz_decl390 - tratare coduri fiscale nule + +*!* 08.02.2012 +*!* marius.mutu +*!* viz_decontTVA_0112 && 01/2012 CORELARE D394, CEREALE +*!* RANDURI NOI 17, 17.1., 27.1 + +*!* 09.02.2012 +*!* D394 +*!* nu se lua in considerare TAXARE INVERSA IN cursorul final D394 + +*!* 10.02.2012 +*!* D390 +*!* nu trebuie incluse in declaratie livrari scutite cu drept de deducere cf. art. 143 b,c (coduri nevalide) + +*!* 21.02.2012 +*!* D394 - nu se mai sterg fisierele PDF, XDP daca se apeleaza din D300 silentios +*!* daca se genera D394 si apoi D300, se stergeau fisierele D394 fara sa stie utilizatorul +*!* XDP D394,D300 - nu se mai pune tag-ul universalcode in XDP - suprascria versiunea PDF-ului + +*!* 23.02.2012 +*!* marius.mutu +*!* D394.do_executa - cursorul cu codurifiscale pentru verificare are si coloana "atribut_fiscal" +*!* necesara pentru formularul de verificare coduri fiscale + +*!* 07.03.2012 +*!* marius.mutu +*!* calculeaza_decl101 +*!* rd 28 6582 (in cod) +*!* rd 40.1 = 16% rd. 39 (in formula total tabel) +*!* rd 43 6582 maxim 20% rd.40.1 si maxim 3/1000 CA (in cod si in formula total tabel) (rd. 1 din Contul de Profit si Pierdere) (in cod +*!* rd 27 protocol peste limita legala 2% (rd. 10 + rd. 24 + 623.protocol) + +*!* 26.03.2012 +*!* marius.mutu +*!* D394.do_executa +*!* TVA LIVRARI TAXARE INVERSA = 0 IN LOC DE 0.24 * BAZA + +*!* 18.05.2012 +*!* marius.mutu +*!* D390.do_executa +*!* nu se includeau achizitiile de bunuri (era de 2 ori cesb <> 0 in loc de cebb <> 0) + +*!* 20.07.2012 +*!* marius.mutu +*!* D300 viz_decontTVA0112 +*!* randul 20 si randul 7 nu se mai aduna TAXARE INVERSA DIN TARA +*!* la livrari, taxarea inversa era si pe randul 7 si pe randul 12, care faceau parte din randul 17 total si se aduna de doua ori +*!* in plus, la livrari, rd 1 - 17 sunt doar COMERT INTRACOMUNITAR SI IN AFARA UE; TX INV este interna si nu avea ce cauta in sectiunea aceasta. + +*!* D100 +*!* corectat randul 02 - impozit pe profit persoane juridice +*!* nu se mai completeaza randul 07 cu impozitul din salarii + +*!* 09.11.2012 +*!* marius.mutu +*!* D300 - nu mai completez id_jtva 1001 si 1002 pe randurile 30 si 16 (regularizare taxa dedusa/colectata) +*** id_jtva = 1001 s-a redenumit in limitare deducere TVA 4426 ROTN si se scade din rd 28 = rd 27 - ROTN + +*!* 16.11.2012 +*!* marius.mutu +*!* s-a introdus ID_JTVA 1003 regularizare taxa dedusa, ID_JTVA 1001 s-a schimbat in limitare deducere TVA 4426 +*!* D300 - completez din nou ID_JTVA 1002 (regularizare taxa colectata) pe rd. 30 si ID_JTVA 1003 (regularizare taxa dedusa) pe rd. 16 + +*!* 25.01.2013 +*!* marius.mutu +*!* D394 - se afiseaza tipurile de documente si pentru partenerii fara RO in cod fiscal + +*!* 22.03.2013 +*!* marius.mutu +*!* viz_regvanz, viz_regcump - adaugare coloana diferenta_tva_incasare (plata - (baza+tva exigibil)) la cautare + +*!* 16.04.2013 +*!* marius.mutu +*!* viz_decontTVA_0113 - sold neexigibil din ultima luna, in loc de toate lunile din perioada + +*!* 18.07.2013 +*!* marius.mutu +*!* viz_decontTVA_0113 randul 35 ia platile 4423 = X, din toata perioada + +*!* 08.01.2014 +*!* marius.mutu +*!* Declaratia 394 valabila din 12/2013 +*!* D394.do_executa, + do_genereaza_xdp_201312 + +*!* 15.01.2014 +*!* marius.mutu +*!* D394.do_executa - defalcare nrfact, nrfact taxare inversa (nu calcula corect pentru un partener care avea si facturi normale si facturi taxare inversa, punea toate facturile pe ambele randuri) + +*!* 23.01.2014 +*!* marius.mutu +*!* D394 +*!* do_genereaza_xdp_201312 se iau in considerare clientii / furnizorii cu nrfact <> 0, in loc de baza <> 0 (este posibil sa am un furnizori cu factura + si factura -, pe total 0, dar are 2 facturi) + +*!* 04.03.2014 +*!* marius.mutu +*!* D101 - recalculare sold 711 la fel ca la SITFIN.F20 (venituri exploatare) + +*!* 12.03.2014 +*!* marius.mutu +*!* D101 - se poate calcula pe perioade 02-12,04-12,07-12,10-13 + +*!* 13.03.2014 +*!* marius.mutu +*!* D101 +*!* la randul 02 ch. din exploatare se aduna si ch. impozit profit/venit 691/698 (care apoi se scade ca cheltuiala nedeductibila) +*!* la randul 24 ch. cu impozitul pe profit se include si impozitul pe venit +*!* Se completeaza randul 49 Impozit pe venit declarat in D100 la 30.09 + +*!* 13.03.2014 +*!* marius.mutu +*!* D097.do_executa - reparat eroare instantiere clasa frm_aleg_tipdoc + +*!* 27.01.2015 +*!* marius.mutu +*!* viz_decontTVA_0113 - Rd. 35 doar 4423 = 5311/5121 in locd e 4423 = x +*!* D101 valabil 2014 +*!* viz_decl100_102: impozit pe profit se ia rulaj debitor 691 in loc de rulaj creditor 441/4411 + +*!* 20.03.2015 +*!* marius.mutu +*!* viz_decl101. Rd. 16 Rezerva legala deductibila = 0 daca profitul brut < 0 + +*!* 10.12.2015 +*!* marius.mutu +*!* D392 - cifra de afaceri este suma livrarilor - 7583 (vanzari de active) CF art 152 a 2 +*!* #4252 +*!* D097 - se calculeaza cifra de afaceri pentru perioda ianuarie - (luna curenta-1) in loc de un an in urma +*!* #4247 + +*!* 02.02.2016 +*!* marius.mutu +*!* D392, D101 - declaratii pdf 2015 + +*!* 02.02.2016 +*!* marius.mutu +*!* d394.do_executa - cota TVA 20% 2016 + +*!* 24.08.2016 +*!* marius.mutu +*!* d394_2016.do_genereaza_xdp - nu se declara decat tipul document F si M. Nu mai declar si achizitii bonurile fiscale cu CUI (ex: ROMPETROL) +*!* NU STIU SIGUR!!! in instructiuni se spune facturi si/sau alte documente. Ce sunt alte documente? + +*!* 26.09.2016 +*!* marius.mutu +*!* D394_2016.LIST crsFacturiEmiseTip seria NULL - dadea eroare la insert de facturi stornate fara serie + +*!* 26.09.2016 +*!* marius.mutu +*!* d394_2016.configureaza_date_jtva, do_genereaza_xdp: se rapoarteaza facturile tip LS, AS (livrari, achizitii regim special - servicii turism, second hand fara TVA pe factura (tva la marja de profit) +*!* do_genereaza_xdp - cota 0 pentru LS, AS, N, V + +*!* 14.10.2016 +*!* d394_2016.pregateste_sectiunea_1_2 +*!* IdTipDoc = 24 sau 5 plaja de facturi special creata pentru declararea in D394. Nu se foloseste la generarea de numere de facturi + +*!* 26.10.2016 +*!* marius.mutu +*!* d394_2016.pregateste_sectiunea_facturi_pers_fizice_10000 - se iau doar tip_persoana = 2 (pers fizica) +*!* d394_2016 * emisa_in_perioada = dataireg in perioada, in loc de dataact in perioada +*!* d394_2016 * se ia si tip_persoana fizica/juridica din vjv2013, vjc2013 +*!* d394_2016.citeste_date_jtva - se iau dor facturile din jurnalele de tva care au tva <> 0 sau TOTAL = 0, nu mai iau si pe cele cu tva = 0 (ex: neimpozabile) +*!* d394_2016.pregateste_sectiunea_1_2 cursorul cu serii/plaje facturi emise nu lua prima factura daca erau doar o singura factura + +*!* 09.11.2016 +*!* marius.mutu +*!* d394_2016.do_genereaza_xdp - corectie , facturi pers fizice valoare absoluta > 10000 +*!* d394_2016.pregateste_sectiunea_facturi_pers_fizice_10000 facturi pers fizice valoare absoluta > 10000, doar documentele tip factura F,M,U,H + +*!* 21.11.2016 +*!* marius.mutu +*!* citeste_date_jtva - corectie numar bonuri fiscale B,C, exceptate de la AMEF E + +*!* 25.11.2016 +*!* d394_2016.genereaza_xdp - se sterg facturile catre pers fizice < 10.000 lei. apareau daca totalul facturilor pe o persoana fizica > 10.000 lei +*!* s-au inclus si achizitiile ROSCN (pers neinregistrate - pers juridice fara RO sau pers fizice). nu mai erau incluse pentru ca pusesem conditie TVA <> 0, la fel ca la livrari + +*!* citeste_date_jtva sterg facturile de achizitie de la platitorii de TVA (RO) care au doar baza00 <> 0 (ROSCN). nu trebuie sa apara in declaratie. doar la tipul 2 (neinregistrati in scopuri TVA) + +*!* 19.12.2016 +*!* d394_2016.citeste_date_jtva - nu se sterg facturile de achizitie de la platitorii de TVA (RO), cu TVA 0, de tip AS (turism, second hand) + +*!* 19.01.2017 +*!* marius.mutu +*!* D097.do_executa - includere RO20B in calculul cifrei de afaceri + +*!* 11.02.2017 +*!* marius.mutu +*!* D300 viz_decontTVA_0117 + +*!* 15.02.2017 +*!* marius.mtuut +*!* D394_2016 +*!* + TVA 19% neexigibil, facturile persoane fizice <10000 doar in perioada 07/2016-12/2016 + +*!* 25.04.2017 +*!* marius.mutu +*!* D394_2016.citeste_date_jtva - facturile anulate din act chiar si fara serie (exproton nu are serii) +*!* viz_decontTVA_0117 - se calculeaza Regularizare taxa colectata (rd 16) si regularizare taxa dedusa (rd 32) din facturile cu data act din alta luna decat data inregistrarii, in perioada declaratiei + +*!* 19.06.2017 +*!* marius.mutu +*!* viz_decontTVA_0117. nu se pune pe Rd. 26 regularizari taxa dedusa taxare inversa 9% si 19% + +*!* 26.07.2017 +*!* marius.mutu +*!* d394_2016.do_genereaza_xdp - tratare caz fara facturi + +*!* 19.12.2017 +*!* marius.mutu +*!* viz_decontTVA_0117 - corectare suma rand 3 din decontul de TVA D300 + +*!* 27.03.2018 +*!* D394_2016 +*!* corectie autofacturi + +*!* 27.09.2018 +*!* d394.2016.do_genereaza_xdp - eliminare xmlcharacters si diacritice din strada, bloc, numar + +*!* 24.01.2019 +*!* d394_2016.do_genereaza_xdp - tratare tip_document = 4 ('R' - contract) + +*!* 11.03.2019 +*!* d101.calculare_2018 se foloseste setul cont profit si pierdere sem. II 2018 in loc de II 2015. au fost adaugate conturi + +*!* 19.08.2019 +*!* viz_decontTVA_0719 + +*!* 23.08.2019 +*!* d394_2016.do_genereaza_xdp - se exclud facturile simplificate (M) din sectiunea de facturi. Se declara in sectiunea I1.3 + +*!* 27.01.2020 +*!* viz_decl392 12/2019 + +*!* 25.02.2020 +*!* d394_2016.pregateste_sectiunea_1_2: plaje numere tin cont de prefix si an2caractere + +*!* 24.03.2020 +*!* Actualizare D390 02/2020 + +*!* 23.04.2020 +*!* Actualizare D100 03/2020 + +*!* 22.09.2020 +*!* D394_2016 + bifa persoane afiliate + +*!* 09.12.2020 +*!* D097 - nu se afiseaza tipuri documente cu id_fdoc NULL + +*!* 26.01.2021 +*!* d394_2016.pregateste_sectiunea_1_2 +*!* plaje numere alocate facturi nu tinea cont de facturi alocate d394 sterse + +*!* 25.01.2022 +*!* viz_decontTVA_0719, viz_regcump + XX19TIB, XX19TIT, ROTN50, ROTN100 + +*!* 25.03.2022 +*!* D101 12/2021 +*!* D394 tippart=4 dupa codtara <> RO sau UE + +*!* 03.08.2022 +*!* D394_2016. tippart=2 persoane neinregistrate si din afara RO (fara atribut fiscal sau persoane fizice) + +*!* 23.02.2023 +*!* D394_2016 - facturi anulate doar din documentele anulate cu tip_doc = M,F + +*!* 21.06.2024 +*!* D394_2016 - se completeaza xml sectiunile 2.3, 2.4 facturi emise de beneficiari, terti in numele persoanei impozabile + +*!* 17.10.2024 +*!* D394 - CORECTARE calcul numar bonuri fiscale daca sunt introduse cu acelasi cod + +*!* 20.02.2025 +*!* ACTUALIZARE D300, D394 - CAEN REV3 +*!* ACTUALIZAER D205 12/2024 + +*!* 12.05.2025 +*!* viz_decontTVA_0719, d394 + ACH. TAXARE INVERSA NON-CE XX9TIB, XX19TIT + + +*!* 21.08.2025 +*!* viz_regcump 07/2025 corectie afisare limitare deducere 50% + + +*!* 08.01.2026 +*!* d394_2025.citeste_date_jtva - am inclus si XX21TI, XX11TI - ACH. TX. INV. NON-CE 21%/11% +*!* am corectat tipul 4 de persoane - in afara RO, NON-CE, pers. juridice, fara cod fiscal +*!* do_genereaza_xdp - corectat crsamef 21% + + +*!* 04.02.2026 +*!* calculeaza_2024 +*!* modificat din scrierea pe randul 50, in loc randul 49 +*!* pn49 a devenit pn50 + +*!* 25.02.2026 +*!* D394 bonuri fiscale 11% le pune pe 19% +*!* do_genereaza_xdp - corectat crsamef 11% + +#Include COMUN\Include\COMUN.H + +*=========================================== +Procedure viz_decontTVA + Parameters tlTrim + LOCAL lcPerioadaTVA + + IF PCOUNT() = 0 + tlTrim = 1 + lcPerioadaTVA = UPPER(ALLTRIM(NVL(m.gcPERIOADA_TVA, 'LUNAR'))) + DO CASE + CASE m.lcPerioadaTVA = 'LUNAR' + tlTrim = 1 + CASE m.lcPerioadaTVA = 'TRIMESTRIAL' + tlTrim = 3 + CASE m.lcPerioadaTVA = 'SEMESTRIAL' + tlTrim = 6 + CASE m.lcPerioadaTVA = 'ANUAL' + tlTrim = 12 + ENDCASE + ENDIF + + Private pnNr_facturi, pnBaza, pnTVA, pnNr_facturi2, pnBaza2, pnTVA2, pnNr_facturi3, pnBaza3, pnTVA3, pnBaza41, pnBaza42 + Store 0 To pnNr_facturi, pnBaza, pnTVA, pnNr_facturi2, pnBaza2, pnTVA2, pnNr_facturi3, pnBaza3, pnTVA3, pnBaza41, pnBaza42 + + Do Case + Case gnAn * 12 + gnLuna >= 2026 * 12 + 1 + Do viz_decontTVA_2601 With tlTrim && s-au scos cotele 19,9,5 + Case gnAn * 12 + gnLuna >= 2025 * 12 + 8 + Do viz_decontTVA_2508 With tlTrim + Case gnAn * 12 + gnLuna <= 2007 * 12 + 4 + Do viz_decontTVA_0107 + Case Between(gnAn * 12 + gnLuna, 2007 * 12 + 5, 2008 * 12 + 11) && 05/2007 - 11/2008 ORDIN 273 din 28/05/2007 (MO 392 11/06/2007) + Do viz_decontTVA_0507 With tlTrim + Case Between(gnAn * 12 + gnLuna, 2008 * 12 + 12, 2010 * 12 + 6) && 12/2008 - 06/2010 + Do viz_decontTVA_0110 With tlTrim + Case Between(gnAn * 12 + gnLuna, 2010 * 12 + 7, 2011 * 12 + 12) && 07/2010 - 12/2011 TVA 24% + Do viz_decontTVA_0710 With tlTrim + Case Between(gnAn * 12 + gnLuna, 2012 * 12 + 1, 2012 * 12 + 12) && 01/2012 - 12/2012 + Do viz_decontTVA_0112 With tlTrim + Case Between(gnAn * 12 + gnLuna, 2013 * 12 + 1, 2015 * 12 + 12) && 01/2013 - 12/2015 + Do viz_decontTVA_0113 With tlTrim + Case gnAn * 12 + gnLuna = 2016 * 12 + 1 && 01/2016 + Do viz_decontTVA_0116 With tlTrim + Case gnAn * 12 + gnLuna <= 2018 * 12 + 12 && 01/2017 - 12/2018 + Do viz_decontTVA_0117 With tlTrim + Otherwise + Do viz_decontTVA_0719 With tlTrim && 01/2019 - + Endcase + +Endproc && viz_decontTVA + +*=========================================== +Procedure viz_decontTVA_2601 + Lparameters tnNumarLuni + *Parameters tlTrim + + *** tnNumarLuni: 1 = o luna, 3 = 3 luni trimestrial, 6 = 6 luni semestrial, 12 = 12 luni anual + + Private pnLunaI, pnLunaF, pnLunaPrec, pnAnPrec + + Local lodt As 'frm_decontTVA' + Local lcCursor, lcSql, ldDataCurenta, ldDataPrecedenta, lnAnCurent, lnAnPrecedent, lnLunaCurenta + Local lnLunaMin, lnLunaPrecedenta, lnPerioada, lnPlati, lnSucces, lnTP, lnTR, loEx As Exception, lnROTN + Local lcRand, llSucces, lnSuma + PRIVATE pn10B, pn10T, pn11B, pn11T, pn121B, pn121T, pn122B, pn122T, pn12B, pn12T, pn13B, pn14B + PRIVATE pn15B, pn1B, pn201B, pn201T, pn20B, pn20T, pn21B, pn21T, pn221B, pn221T, pn22B, pn22T + PRIVATE pn23B, pn23T, pn24B, pn24T, pn25B, pn25T, pn261B, pn261T, pn262B, pn262T, pn26B, pn26T + PRIVATE pn291B, pn29B, pn31B, pn33B, pn33T, pn3B, pn51B, pn51T, pn5B, pn5T, pn6B, pn6T, pn71B + PRIVATE pn71T, pn7B, pn7T, pn8B, pn8T, pn9B, pn9T, pnRegularizareB, pnRegularizareT + + lnAnCurent = m.gnAn + lnLunaCurenta = m.gnLuna + ldDataCurenta = Date(m.lnAnCurent, m.lnLunaCurenta, 1) + lnROTN = 0 + + * Luna de inceput a perioadei + * 1 = gnLuna + * 3 = 1,4,7,10 + * 6 = 1,7 + * 12 = 1 + lnPerioada = Ceil(m.lnLunaCurenta / tnNumarLuni) + lnLunaMin = (lnPerioada - 1) * tnNumarLuni + 1 + + *** luna pentru balanta precedenta + ldDataPrecedenta = Gomonth(Date(m.lnAnCurent, m.lnLunaMin, 1), -1) + lnLunaPrecedenta = Month(m.ldDataPrecedenta) + lnAnPrecedent = Year(m.ldDataPrecedenta) + && --- + pnLunaI = lnLunaMin + pnLunaF = m.lnLunaCurenta + + pnLunaPrec = m.lnLunaPrecedenta + pnAnPrec = m.lnAnPrecedent + + Private poDecont + Store '' To poDecont + + Private pnProRata, pnAchizitieBazaN, pnAchizitieTVAN, pnLivrareBazaN, pnLivrareTVAN, pnAchizitieBaza6N, pnAchizitieTVA6N, pnLivrareBaza6N, pnLivrareTVA6N + pnProRata = 100 + pnAchizitieBazaN = 0 + pnAchizitieTVAN = 0 + pnLivrareBazaN = 0 + pnLivrareTVAN = 0 + pnAchizitieBaza6N = 0 + pnAchizitieTVA6N = 0 + pnLivrareBaza6N = 0 + pnLivrareTVA6N = 0 + + Local lcSchema1, lcSelect1, lcOrder1, lcFiltru1, lcFiltruOriginal, llAfiseaza + lcSchema1 = [] + + && schimbare cota TVA standard de la 19% la 21% + s-au scos cotele 19,9,5. a ramas o situatie doar cu 9% + lcSql = [select d.*, 00000000000 as valoare, 00000000000 as tva from decontTVA d ] + ; + [where valabil = '2601' order by id_decont] + + lcCursor = [cDecont] + + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Text To lcSql Noshow Textmerge + SELECT + ROUND(SUM(RO21B),0) AS RO21B, + ROUND(SUM(RO21T),0) AS RO21T, + ROUND(SUM(RO11B),0) AS RO11B, + ROUND(SUM(RO11T),0) AS RO11T, + ROUND(SUM(RO19B),0) AS RO19B, + ROUND(SUM(RO19T),0) AS RO19T, + ROUND(SUM(RO9B),0) AS RO9B, + ROUND(SUM(RO9T),0) AS RO9T, + ROUND(SUM(RO5B),0) AS RO5B, + ROUND(SUM(RO5T),0) AS RO5T, + ROUND(SUM(RO20B),0) AS RO20B, + ROUND(SUM(RO20T),0) AS RO20T, + ROUND(SUM(RO24B),0) AS RO24B, + ROUND(SUM(RO24T),0) AS RO24T, + ROUND(SUM(ROTI),0) AS ROTI, + ROUND(SUM(CASE WHEN EXTRACT(YEAR FROM DATAIREG)*12+EXTRACT(MONTH FROM DATAIREG) between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF AND EXTRACT(YEAR FROM DATAACT)*12+EXTRACT(MONTH FROM DATAACT) not between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF THEN RO21B ELSE 0 END),0) AS RO21Br, + ROUND(SUM(CASE WHEN EXTRACT(YEAR FROM DATAIREG)*12+EXTRACT(MONTH FROM DATAIREG) between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF AND EXTRACT(YEAR FROM DATAACT)*12+EXTRACT(MONTH FROM DATAACT) not between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF THEN RO21T ELSE 0 END),0) AS RO21Tr, + ROUND(SUM(CASE WHEN EXTRACT(YEAR FROM DATAIREG)*12+EXTRACT(MONTH FROM DATAIREG) between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF AND EXTRACT(YEAR FROM DATAACT)*12+EXTRACT(MONTH FROM DATAACT) not between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF THEN RO11B ELSE 0 END),0) AS RO11Br, + ROUND(SUM(CASE WHEN EXTRACT(YEAR FROM DATAIREG)*12+EXTRACT(MONTH FROM DATAIREG) between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF AND EXTRACT(YEAR FROM DATAACT)*12+EXTRACT(MONTH FROM DATAACT) not between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF THEN RO11T ELSE 0 END),0) AS RO11Tr, + ROUND(SUM(CESCDD1),0) AS CESCDD1, + ROUND(SUM(CESCDD2),0) AS CESCDD2, + ROUND(SUM(CEOPTR),0) AS CEOPTR, + ROUND(SUM(CESVDD),0) AS CESVDD, + ROUND(SUM(CESVFDD),0) AS CESVFDD, + ROUND(SUM(CESVFS),0) AS CESVFS, + ROUND(SUM(WRSCDD),0) AS WRSCDD, + ROUND(SUM(WRSCDDAB),0) AS WRSCDDAB, + ROUND(SUM(WRSCDDCD),0) AS WRSCDDCD, + ROUND(SUM(FODD),0) AS FODD, + ROUND(SUM(FOFDD),0) AS FOFDD, + ROUND(SUM(CEOPTR),0) AS CEOPTR, + ROUND(SUM(CESVDD),0) AS CESVDD, + ROUND(SUM(CESVFDD),0) AS CESVFDD, + ROUND(SUM(CESVFS),0) AS CESVFS, + ROUND(SUM(WRSCFDD),0) AS WRSCFDD, + ROUND(SUM(WRN),0) AS WRN, + ROUND(SUM(rortc21),0) AS rortc21, + ROUND(SUM(rortc11),0) AS rortc11, + ROUND(SUM(rortc24),0) AS rortc24, + ROUND(SUM(rortc20),0) AS rortc20, + ROUND(SUM(rortc19),0) AS rortc19, + ROUND(SUM(rortc9),0) AS rortc9, + ROUND(SUM(rortc5),0) AS rortc5 + FROM JV2007 + WHERE an*12+luna between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF <> + Endtext + && [ WHERE AN = ?gnAn AND LUNA= ?gnLuna ] + gcCondSucursala + + + lcCursor = [crsJV] + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crsJV + Go Top + pn1B = Nvl(cescdd1, 0) + Nvl(ceoptr, 0) + pn3B = Nvl(cescdd2, 0) + Nvl(fodd, 0) + Nvl(fofdd, 0) + Nvl(cesvdd, 0) + Nvl(cesvfdd, 0) + Nvl(cesvfs, 0) + pn31B = Nvl(cesvfs, 0) + + && scad tva exigibil cu data act in afara perioadei de declarare. il pun pe regularizare rd. 16 + pn9B = Nvl(ro21b, 0) - Nvl(ro21br, 0) + pn9T = Nvl(ro21t, 0) - Nvl(ro21tr, 0) + + pn10B = Nvl(ro11b, 0) - Nvl(ro11br, 0) + pn10T = Nvl(ro11t, 0) - Nvl(ro11tr, 0) + + pn11B = 0 && 9% achizitii apartamente cu cota 9% + pn11T = 0 + + pnRegularizareB = Nvl(ro20b, 0) + Nvl(ro24b, 0) + Nvl(ro21br, 0) + Nvl(ro11br, 0)+ Nvl(ro19b, 0) + Nvl(ro9b, 0) + Nvl(ro5b, 0) + pnRegularizareT = Nvl(ro20t, 0) + Nvl(ro24t, 0) + Nvl(ro21tr, 0) + Nvl(ro11tr, 0)+ Nvl(ro19t, 0) + Nvl(ro9t, 0) + Nvl(ro5t, 0) + + pn13B = Nvl(roti, 0) + pn14B = Nvl(wrscdd, 0) + Nvl(wrscddab, 0) + Nvl(wrscddcd, 0) +*!* pn141B = Nvl(wrscddab, 0) +*!* pn142B = Nvl(wrscddcd, 0) + + pn15B = Nvl(wrscfdd, 0) + + *!* *** LIVRARI D394 + *!* pn171B = Nvl(loD394.livb + loD394.livtib,0) + *!* pn171T = Nvl(loD394.livt + loD394.livtit,0) + + Select cDecont + Locate For Alltrim(Rand) = '1' + If Found() + Replace valoare With pn1B + Endif + + Locate For Alltrim(Rand) = '3' + If Found() + Replace valoare With pn3B + Endif + + Locate For Alltrim(Rand) = '3.1' + If Found() + Replace valoare With pn31B + Endif + + Locate For Alltrim(Rand) = '9' + If Found() + Replace valoare With pn9B, TVA With pn9T + Endif + + Locate For Alltrim(Rand) = '10' + If Found() + Replace valoare With pn10B, TVA With pn10T + Endif + + Locate For Alltrim(Rand) = '11' + If Found() + Replace valoare With pn11B, TVA With pn11T + Endif + + Locate For Alltrim(Rand) = '13' + If Found() + Replace valoare With pn13B + Endif + + Locate For Alltrim(Rand) = '14' + If Found() + Replace valoare With pn14B + Endif + + + Locate For Alltrim(Rand) = '15' + If Found() + Replace valoare With pn15B + Endif + + *!* REGULARIZARE 19% + Locate For Alltrim(Rand) = '16' + If Found() + Replace valoare With pnRegularizareB, TVA With pnRegularizareT + Endif + + + Text To lcSql Noshow Textmerge + SELECT Round(Sum(RO21B),0) As RO21B, + Round(Sum(RO21T),0) As RO21T, + ROUND(SUM(RO11B),0) AS RO11B, + ROUND(SUM(RO11T),0) AS RO11T, + Round(Sum(RO24B),0) As RO24B, + Round(Sum(RO24T),0) As RO24T, + ROUND(SUM(RO20B),0) AS RO20B, + ROUND(SUM(RO20T),0) AS RO20T, + ROUND(SUM(RO19BCB),0) AS RO19BCB, + ROUND(SUM(RO19BCT),0) AS RO19BCT, + ROUND(SUM(RO19BVB),0) AS RO19BVB, + ROUND(SUM(RO19BVT),0) AS RO19BVT, + ROUND(SUM(RO19BFB),0) AS RO19BFB, + ROUND(SUM(RO19BFT),0) AS RO19BFT, + ROUND(SUM(RO09BCB),0) AS RO09BCB, + ROUND(SUM(RO09BCT),0) AS RO09BCT, + ROUND(SUM(RO09BVB),0) AS RO09BVB, + ROUND(SUM(RO09BVT),0) AS RO09BVT, + ROUND(SUM(RO09BFB),0) AS RO09BFB, + ROUND(SUM(RO09BFT),0) AS RO09BFT, + ROUND(SUM(RO05B),0) AS RO05B, + ROUND(SUM(RO05T),0) AS RO05T, + ROUND(SUM(ROSCN),0) AS ROSCN, + ROUND(SUM(CASE WHEN EXTRACT(YEAR FROM DATAIREG)*12+EXTRACT(MONTH FROM DATAIREG) between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF AND EXTRACT(YEAR FROM DATAACT)*12+EXTRACT(MONTH FROM DATAACT) not between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF THEN RO21B ELSE 0 END),0) AS RO21Br, + ROUND(SUM(CASE WHEN EXTRACT(YEAR FROM DATAIREG)*12+EXTRACT(MONTH FROM DATAIREG) between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF AND EXTRACT(YEAR FROM DATAACT)*12+EXTRACT(MONTH FROM DATAACT) not between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF THEN RO21T ELSE 0 END),0) AS RO21Tr, + ROUND(SUM(CASE WHEN EXTRACT(YEAR FROM DATAIREG)*12+EXTRACT(MONTH FROM DATAIREG) between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF AND EXTRACT(YEAR FROM DATAACT)*12+EXTRACT(MONTH FROM DATAACT) not between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF THEN RO11B ELSE 0 END),0) AS RO11Br, + ROUND(SUM(CASE WHEN EXTRACT(YEAR FROM DATAIREG)*12+EXTRACT(MONTH FROM DATAIREG) between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF AND EXTRACT(YEAR FROM DATAACT)*12+EXTRACT(MONTH FROM DATAACT) not between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF THEN RO11T ELSE 0 END),0) AS RO11Tr, + Round(Sum(FO21B),0) As FO21B, + Round(Sum(FO21T),0) As FO21T, + Round(Sum(FO11B),0) As FO11B, + Round(Sum(FO11T),0) As FO11T, + Round(Sum(FO24B),0) As FO24B, + Round(Sum(FO24T),0) As FO24T, + Round(Sum(FO20B),0) As FO20B, + Round(Sum(FO20T),0) As FO20T, + ROUND(SUM(FO19BCB),0) AS FO19BCB, + ROUND(SUM(FO19BCT),0) AS FO19BCT, + ROUND(SUM(FO19BVB),0) AS FO19BVB, + ROUND(SUM(FO19BVT),0) AS FO19BVT, + ROUND(SUM(FO19BFB),0) AS FO19BFB, + ROUND(SUM(FO19BFT),0) AS FO19BFT, + ROUND(SUM(FO09BCB),0) AS FO09BCB, + ROUND(SUM(FO09BCT),0) AS FO09BCT, + ROUND(SUM(FO09BVB),0) AS FO09BVB, + ROUND(SUM(FO09BVT),0) AS FO09BVT, + ROUND(SUM(FO09BFB),0) AS FO09BFB, + ROUND(SUM(FO09BFT),0) AS FO09BFT, + ROUND(SUM(FOSCN),0) AS FOSCN, + ROUND(SUM(XX21TIB),0) AS XX21TIB, + ROUND(SUM(XX21TIT),0) AS XX21TIT, + ROUND(SUM(XX11TIB),0) AS XX11TIB, + ROUND(SUM(XX11TIT),0) AS XX11TIT, + ROUND(SUM(XX19TIB),0) AS XX19TIB, + ROUND(SUM(XX19TIT),0) AS XX19TIT, + ROUND(SUM(XX9TIB),0) AS XX9TIB, + ROUND(SUM(XX9TIT),0) AS XX9TIT, + Round(Sum(CE24B),0) As CE24B, + Round(Sum(CE24T),0) As CE24T, + Round(Sum(CE20B),0) As CE20B, + Round(Sum(CE20T),0) As CE20T, + ROUND(SUM(ce21ctb),0) AS ce21ctb, + ROUND(SUM(ce21ctt),0) AS ce21ctt, + ROUND(SUM(ce11ctb),0) AS ce11ctb, + ROUND(SUM(ce11ctt),0) AS ce11ctt, + ROUND(SUM(ce19ctb),0) AS ce19ctb, + ROUND(SUM(ce19ctt),0) AS ce19ctt, + ROUND(SUM(ce9ctb),0) AS ce9ctb, + ROUND(SUM(ce9ctt),0) AS ce9ctt, + ROUND(SUM(ce5ctb),0) AS ce5ctb, + ROUND(SUM(ce5ctt),0) AS ce5ctt, + ROUND(SUM(ce21ftb),0) AS ce21ftb, + ROUND(SUM(ce21ftt),0) AS ce21ftt, + ROUND(SUM(ce11ftb),0) AS ce11ftb, + ROUND(SUM(ce11ftt),0) AS ce11ftt, + ROUND(SUM(ce19ftb),0) AS ce19ftb, + ROUND(SUM(ce19ftt),0) AS ce19ftt, + ROUND(SUM(ce9ftb),0) AS ce9ftb, + ROUND(SUM(ce9ftt),0) AS ce9ftt, + ROUND(SUM(ce5ftb),0) AS ce5ftb, + ROUND(SUM(ce5ftt),0) AS ce5ftt, + Round(Sum(CE21SB),0) As CE21SB, + Round(Sum(CE21ST),0) As CE21ST, + Round(Sum(CE11SB),0) As CE11SB, + Round(Sum(CE11ST),0) As CE11ST, + Round(Sum(CE24SB),0) As CE24SB, + Round(Sum(CE24ST),0) As CE24ST, + Round(Sum(CE20SB),0) As CE20SB, + Round(Sum(CE20ST),0) As CE20ST, + Round(Sum(CE5SB),0) As CE5SB, + Round(Sum(CE5ST),0) As CE5ST, + Round(Sum(CE9SB),0) As CE9SB, + Round(Sum(CE9ST),0) As CE9ST, + Round(Sum(CE19SB),0) As CE19SB, + Round(Sum(CE19ST),0) As CE19ST, + ROUND(SUM(CEBCB),0) AS CEBCB, + ROUND(SUM(CEBCT),0) AS CEBCT, + ROUND(SUM(CEBVB),0) AS CEBVB, + ROUND(SUM(CEBVT),0) AS CEBVT, + ROUND(SUM(CEBVSC),0) AS CEBVSC, + ROUND(SUM(CEBVN),0) AS CEBVN, + ROUND(SUM(CEBFB),0) AS CEBFB, + ROUND(SUM(CEBFT),0) AS CEBFT, + ROUND(SUM(CEBFSC),0) AS CEBFSC, + ROUND(SUM(CEBFN),0) AS CEBFN, + Round(Sum(TI21B), 0) As TI21B, + Round(Sum(TI21T), 0) As TI21T, + Round(Sum(TI11B), 0) As TI11B, + Round(Sum(TI11T), 0) As TI11T, + Round(Sum(TI24B), 0) As TI24B, + Round(Sum(TI24T), 0) As TI24T, + Round(Sum(TI20B), 0) As TI20B, + Round(Sum(TI20T), 0) As TI20T, + ROUND(SUM(TI19BCB),0) AS TI19BCBRO, + ROUND(SUM(TI19BCT),0) AS TI19BCTRO, + ROUND(SUM(TI19BVB),0) AS TI19BVBRO, + ROUND(SUM(TI19BVT),0) AS TI19BVTRO, + ROUND(SUM(TI19BFB),0) AS TI19BFBRO, + ROUND(SUM(TI19BFT),0) AS TI19BFTRO, + ROUND(SUM(TI09BVB),0) AS TI09BVBRO, + ROUND(SUM(TI09BVT),0) AS TI09BVTRO, + ROUND(SUM(TI09BFB),0) AS TI09BFBRO, + ROUND(SUM(TI09BFT),0) AS TI09BFTRO, + ROUND(SUM(ROTN+ROTN50+ROTN100),0) AS ROTN, + ROUND(SUM(rortd21),0) AS rortd21, + ROUND(SUM(rortd11),0) AS rortd11, + ROUND(SUM(rortd24),0) AS rortd24, + ROUND(SUM(rortd20),0) AS rortd20, + ROUND(SUM(rortd19),0) AS rortd19, + ROUND(SUM(rortd9),0) AS rortd9, + ROUND(SUM(rortd5),0) AS rortd5 + FROM JC2007 WHERE an*12+luna between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF <> + Endtext + ** [ FROM VJC2007 WHERE AN = ?gnAn AND LUNA= ?gnLuna ] + gcCondSucursala + + lcCursor = [crsJC] + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crsJC + Go Top + pn20B = NVL(CE21CTB,0) + NVL(CE11CTB,0) + NVL(CE21FTB,0) + NVL(CE11FTB,0) && ach. intracomunitare pre SAFT + ach. intracomunitare furnizori inregistrati/neinregistrati TVA + pn20T = NVL(CE21CTT,0) + NVL(CE11CTT,0) + NVL(CE21FTT,0) + NVL(CE11FTT,0) + pn201B = NVL(CE21CTB,0) + NVL(CE11CTB,0) && ach. intracomunitare pre SAFT + ach. intracomunitare furnizori inregistrati TVA + pn201T = NVL(CE21CTT,0) + NVL(CE11CTT,0) + pn5B = pn20B + pn5T = pn20T + pn51B = pn201B + pn51T = pn201T + + *** rd.21 = rd.6 + *** Regularizari privind achizitiile intracomunitare de bunuri pentru care cumparatorul este obligat la plata TVA (taxare inversa) (rd.19=rd.6) + pn21B = Nvl(cebcb, 0) + Nvl(cebvb, 0) + Nvl(cebfb, 0) + NVL(CE19CTB,0) + NVL(CE9CTB,0) + NVL(CE5CTB,0) + NVL(CE19FTB,0) + NVL(CE9FTB,0) + NVL(CE5FTB,0) + Nvl(ce20b, 0) + Nvl(ce24b, 0) + pn21T = Nvl(cebct, 0) + Nvl(cebvt, 0) + Nvl(cebft, 0) + NVL(CE19CTT,0) + NVL(CE9CTT,0) + NVL(CE5CTT,0) + NVL(CE19FTT,0) + NVL(CE9FTT,0) + NVL(CE5FTT,0) + Nvl(ce20t, 0) + Nvl(ce24t, 0) + pn6B = pn21B + pn6T = pn21T + + *** Achizitii de bunuri, altele decat cele de la rd. 18 si 19, si achizitii de servicii pentru care beneficiarul din Romania este obligat la plata TVA (taxare + *** inversa) (rd.22=rd.7), din care + pn22B = Nvl(CE21SB, 0) + Nvl(XX21TIB, 0) + Nvl(XX11TIB, 0) + pn22T = Nvl(CE21ST, 0) + Nvl(XX21TIT, 0) + Nvl(XX11TIT, 0) + pn7B = pn22B + pn7T = pn22T + + *** Achizitii de servicii intracomunitare pentru care beneficiarul este obligat la plata TVA (taxare inversa) (rd.22.1=rd.7.1) + pn221B = Nvl(CE21SB, 0) + pn221T = Nvl(CE21ST, 0) + pn71B = pn221B + pn71T = pn221T + + *** Regularizari privind achizitii de servicii intracomunitare pentru care beneficiarul din Romania este obligat la plata TVA (taxare inversa)(rd.23=rd.8) + pn23B = Nvl(CE19SB, 0) + Nvl(XX19TIB, 0) + Nvl(XX9TIB, 0) + Nvl(CE24SB, 0) + Nvl(CE20SB, 0) + Nvl(CE9SB, 0) + Nvl(CE5SB, 0) + pn23T = Nvl(CE19ST, 0) + Nvl(XX19TIT, 0) + Nvl(XX9TIT, 0) + Nvl(CE24ST, 0) + Nvl(CE20ST, 0) + Nvl(CE9ST, 0) + Nvl(CE5ST, 0) + pn8B = pn23B + pn8T = pn23T + + *** Achizitii de bunuri si servicii taxabile cu cota de 21%, altele decat cele de la rd.27 + && scad tva exigibil din operatiile cu data act in afara perioadei de declarare. le pun pe regularizari, rd. 34 + pn24B = Nvl(ro21b, 0) + Nvl(fo21b, 0) - Nvl(ro21br, 0) + pn24T = Nvl(ro21t, 0) + Nvl(fo21t, 0) - Nvl(ro21tr, 0) + + *** Achizitii de bunuri si servicii taxabile cu cota de 11%, altele decat cele de la rd.27 + pn25B = Nvl(ro11b, 0) + Nvl(fo11b, 0) - Nvl(ro11br, 0) + pn25T = Nvl(ro11t, 0) + Nvl(fo11t, 0) - Nvl(ro11tr, 0) + + *** Achizitii de bunuri si servicii supuse masurilor de simplificare pentru care beneficiarul este obligat la plata TVA (taxare inversa),din care (rd.26=rd.12) + pn26B = Nvl(ti21b, 0) + Nvl(ti11b, 0) && ACH. TI + pn26T = Nvl(ti21t, 0) + Nvl(ti11t, 0) + pn12B = pn26B + pn12T = pn26T + + pn261B = Nvl(ti21b, 0) && ACH. TI 21% + pn261T = Nvl(ti21t, 0) + pn121B = pn261B + pn121T = pn261T + + pn262B = Nvl(ti11b, 0) && && ACH. TI 11% + pn262T = Nvl(ti11t, 0) + pn122B = pn262B + pn122T = pn262T + + *** Achizitii de bunuri si servicii scutite de taxa sau neimpozabile, din care + pn29B = Nvl(roscn, 0) + Nvl(cebvsc, 0) + Nvl(cebvn, 0) + Nvl(cebfsc, 0) + Nvl(cebfn, 0) + Nvl(foscn, 0) && Achizi_ii de bunuri ºi servicii scutite de taxa sau neimpozabile + pn291B = Nvl(cebvsc, 0) + Nvl(cebfsc, 0) && Achizitii de servicii intracomunitare scutite de taxa + + *** Regularizari taxa dedusa + pn33B = Nvl(ro21br, 0) + Nvl(ro11br, 0) + ; + Nvl(ro20b, 0) + Nvl(ro24b, 0) + Nvl(fo20b, 0) + Nvl(fo24b, 0) + Nvl(ti24b, 0) + Nvl(ti20b, 0) + ; + Nvl(ro19bcb, 0) + Nvl(ro19bvb, 0) + Nvl(ro19bfb, 0) + Nvl(fo19bcb, 0) + Nvl(fo19bvb, 0) + Nvl(fo19bfb, 0) + ; + Nvl(ro09bcb, 0) + Nvl(ro09bvb, 0) + Nvl(ro09bfb, 0) + Nvl(fo09bcb, 0) + Nvl(fo09bvb, 0) + Nvl(fo09bfb, 0) + ; + Nvl(ro05b, 0) + ; + Nvl(ti24b, 0) + Nvl(ti20b, 0) + Nvl(ti19bcbro, 0) + Nvl(ti19bvbro, 0) + Nvl(ti19bfbro, 0) + Nvl(ti09bvbro, 0) + Nvl(ti09bfbro, 0) + + pn33T = Nvl(ro21tr, 0) + Nvl(ro11tr, 0) + ; + Nvl(ro20t, 0) + Nvl(ro24t, 0) + Nvl(fo20t, 0) + Nvl(fo24t, 0) + Nvl(ti24b, 0) + Nvl(ti20b, 0) + ; + Nvl(ro19bct, 0) + Nvl(ro19bvt, 0) + Nvl(ro19bft, 0) + Nvl(fo19bct, 0) + Nvl(fo19bvt, 0) + Nvl(fo19bft, 0) + ; + Nvl(ro09bct, 0) + Nvl(ro09bvt, 0) + Nvl(ro09bft, 0) + Nvl(fo09bct, 0) + Nvl(fo09bvt, 0) + Nvl(fo09bft, 0) + ; + Nvl(ro05t, 0) + ; + Nvl(ti24t, 0) + Nvl(ti20t, 0) + Nvl(ti19bctro, 0) + Nvl(ti19bvtro, 0) + Nvl(ti19bftro, 0) + Nvl(ti09bvtro, 0) + Nvl(ti09bftro, 0) + + + lnROTN = Int(Round(Nvl(ROTN, 0), 0)) && && LIMITARE DEDUCERE TVA 4426 ID_JTVA = 1001 + + Select cDecont + Locate For Alltrim(Rand) = '20' + If Found() + Replace valoare With pn20B, TVA With pn20T + Endif + + Locate For Alltrim(Rand) = '20.1' + If Found() + Replace valoare With pn201B, TVA With pn201T + Endif + + Locate For Alltrim(Rand) = '5' + If Found() + Replace valoare With pn5B, TVA With pn5T + Endif + + Locate For Alltrim(Rand) = '5.1' + If Found() + Replace valoare With pn51B, TVA With pn51T + Endif + + Locate For Alltrim(Rand) = '21' + If Found() + Replace valoare With pn21B, TVA With pn21T + Endif + + Locate For Alltrim(Rand) = '6' + If Found() + Replace valoare With pn6B, TVA With pn6T + Endif + + Locate For Alltrim(Rand) = '22' + If Found() + Replace valoare With pn22B, TVA With pn22T + Endif + + Locate For Alltrim(Rand) = '22.1' + If Found() + Replace valoare With pn221B, TVA With pn221T + Endif + + Locate For Alltrim(Rand) = '7' + If Found() + Replace valoare With pn7B, TVA With pn7T + Endif + + Locate For Alltrim(Rand) = '7.1' + If Found() + Replace valoare With pn71B, TVA With pn71T + Endif + + Locate For Alltrim(Rand) = '23' + If Found() + Replace valoare With pn23B, TVA With pn23T + Endif + + Locate For Alltrim(Rand) = '8' + If Found() + Replace valoare With pn8B, TVA With pn8T + Endif + + Locate For Alltrim(Rand) = '24' + If Found() + Replace valoare With pn24B, TVA With pn24T + Endif + + Locate For Alltrim(Rand) = '25' + If Found() + Replace valoare With pn25B, TVA With pn25T + Endif + + Locate For Alltrim(Rand) = '26' + If Found() + Replace valoare With pn26B, TVA With pn26T + Endif + + Locate For Alltrim(Rand) = '26.1' + If Found() + Replace valoare With pn261B, TVA With pn261T + Endif + + Locate For Alltrim(Rand) = '26.2' + If Found() + Replace valoare With pn262B, TVA With pn262T + Endif + + Locate For Alltrim(Rand) = '12' + If Found() + Replace valoare With pn12B, TVA With pn12T + Endif + + Locate For Alltrim(Rand) = '12.1' + If Found() + Replace valoare With pn121B, TVA With pn121T + Endif + + Locate For Alltrim(Rand) = '12.2' + If Found() + Replace valoare With pn122B, TVA With pn122T + Endif + + Locate For Alltrim(Rand) = '29' + If Found() + Replace valoare With pn29B + Endif + + Locate For Alltrim(Rand) = '29.1' + If Found() + Replace valoare With pn291B + Endif + + *!* REGULARIZARE + Locate For Alltrim(Rand) = '33' + If Found() + Replace valoare With pn33B, TVA With pn33T + Endif + + *** Rd. 41 Soldul sumei negative a TVA reportate din perioada precedenta pentru care nu s-a solicitat rambursare (rd.44 din decontul perioadei fiscale precedente) + lcSql = [SELECT solddeb ] + ; + [ from vbal ] + ; + [ where cont = 4424 ] + ; + [ and AN = ?pnAnPrec AND LUNA= ?pnLunaPrec] + gcCondSucursala + + lnTR = 0 + llSucces = goExecutor.oSelecteaza2Value(m.lcSql, @lnTR) + IF m.llSucces + lnTR = Int(Round(lnTR, 0)) + ENDIF + + Select cDecont + Locate For Alltrim(Rand) = '41' + If Found() + Replace TVA With lnTR + Endif + + + *** Rd. 38 Soldul TVA de plata din decontul perioadei fiscale precedente (rd.45 din decontul perioadei fiscale precedente) neachitate pana la data depunerii decontului de TVA + Text To lcSql Textmerge Noshow + SELECT NVL(soldcred,0) as soldcred + from vbal + where cont = '4423' and AN = ?pnAnPrec AND LUNA = ?pnLunaPrec + <> + Endtext + + lnTP = 0 + llSucces = goExecutor.oSelecteaza2Value(m.lcSql, @lnTP) + IF m.llSucces + lnTP = Int(Round(lnTP, 0)) + ENDIF + + * cat TVA am achitat in perioada curenta pentru TVA de plata 4423 + Text To lcSql Textmerge Noshow + select nvl(sum(suma),0) as suma + from act + where an = ?gnAn and luna between ?pnLunaI and ?pnLunaF + and sters = 0 + and scd = '4423' and scc In ('5121', '5311') + <> + Endtext + + lnPlati = 0 + llSucces = goExecutor.oSelecteaza2Value(m.lcSql, @lnPlati) + IF m.llSucces + lnPlati = Int(Round(lnPlati, 0)) + ENDIF + + lnTP = Max(m.lnTP - m.lnPlati, 0) + + Select cDecont + Locate For Alltrim(Rand) = '38' + If Found() + Replace TVA With Nvl(m.lnTP, 0) + Endif + + *** Regularizari + lcSql = [select sum(suma) as suma, id_jtva_coloana from act ] + ; + [where sters = 0 and id_jtva_coloana in (1002,1003,1006,1007,1008,1009,1010,1011,1012,1013,1014,1015,1016,1017,1018,1019) and ] + ; + [an*12+luna between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF ] + m.gcCondSucursala + ; + [ group by id_jtva_coloana order by id_jtva_coloana] + lcCursor = [crsRegTaxe] + If goExecutor.oExecuta(lcSql, lcCursor) + Select (lcCursor) + Scan + lnSuma = Int(Round(suma, 0)) + IF INLIST(id_jtva_coloana, 1003,1011,1012,1013,1014,1015,1018,1019) && regularizare taxa dedusa + lcRand = '33' && regularizare taxa dedusa + ELSE + lcRand = '16' && regularizare taxa colectata + ENDIF + Select cDecont + Replace TVA With TVA - lnSuma For Rand = lcRand + Select (lcCursor) + Endscan + Endif + Use In (Select(lcCursor)) + + *** SOLD NEEXIGIBIL + Text To lcSql Noshow Textmerge + select sum(RO21NB+RO11NB+RO24NB+RO20NB+RO19NB+RO9NB+RO5NB) as bazan, sum(RO21NT+RO11NT+RO24NT+RO20NT+RO19NT+RO9NT+RO5NT) as tvan + from vjc2010 + where an = ?gnAn and luna = ?pnLunaF <> + Endtext + llSucces = goExecutor.oExecuta(m.lcSql, "cNeexTemp") + If m.llSucces + pnAchizitieBazaN = Int(Round(bazan, 0)) + pnAchizitieTVAN = Int(Round(tvan, 0)) + Endif + Use In (Select('cNeexTemp')) + + * sold neexigibil doar de la facturile din ultimele 6 luni, inclusiv luna de raportare + Text To lcSql Noshow Textmerge + select sum(RO21NB+RO11NB+RO24NB+RO20NB+RO19NB+RO9NB+RO5NB) as bazan, sum(RO21NT+RO11NT+RO24NT+RO20NT+RO19NT+RO9NT+RO5NT) as tvan + from vjc2010 + where an = ?gnAn and luna = ?pnLunaF and (extract(year from dataact) * 12 + extract(month from dataact) > ?gnan*12+?pnLunaF-6) <> + Endtext + llSucces = goExecutor.oExecuta(m.lcSql, "cNeexTemp") + If m.llSucces + pnAchizitieBaza6N = Int(Round(bazan, 0)) + pnAchizitieTVA6N = Int(Round(tvan, 0)) + Endif + Use In (Select('cNeexTemp')) + + + Text To lcSql Noshow Textmerge + select sum(RO21NB+RO11NB+RO24NB+RO20NB+RO19NB+RO9NB+RO5NB) as bazan, sum(RO21NT+RO11NT+RO24NT+RO20NT+RO19NT+RO9NT+RO5NT) as tvan + from vjv2010 + where an = ?gnAn and luna = ?pnLunaF <> + Endtext + llSucces = goExecutor.oExecuta(m.lcSql, "cNeexTemp") + If m.llSucces + pnLivrareBazaN = Int(Round(bazan, 0)) + pnLivrareTVAN = Int(Round(tvan, 0)) + Endif + Use In (Select('cNeexTemp')) + + * sold neexigibil doar de la facturile din ultimele 6 luni, inclusiv luna de raportare + Text To lcSql Noshow Textmerge + select sum(RO21NB+RO11NB+RO24NB+RO20NB+RO19NB+RO9NB+RO5NB) as bazan, sum(RO21NT+RO11NT+RO24NT+RO20NT+RO19NT+RO9NT+RO5NT) as tvan + from vjv2010 + where an = ?gnAn and luna = ?pnLunaF and (extract(year from dataact) * 12 + extract(month from dataact) > ?gnan*12+?pnLunaF-6) <> + Endtext + llSucces = goExecutor.oExecuta(m.lcSql, "cNeexTemp") + If m.llSucces + pnLivrareBaza6N = Int(Round(bazan, 0)) + pnLivrareTVA6N = Int(Round(tvan, 0)) + Endif + Use In (Select('cNeexTemp')) + + Select cDecont + lodt = Createobject('frm_decontTVA_202601', m.tnNumarLuni) + + lodt.nROTN = Nvl(m.lnROTN, 0) && LIMITARE DEDUCERE TVA 4426 ID_JTVA = 1001 + lodt.lblRandAtentie.Caption = lodt.lblRandAtentie.Caption + ' (' + Alltrim(Str(m.lnROTN)) + ' lei)' + lodt.Show(1) +Endproc && viz_decontTVA_2601 +*=========================================== +Procedure viz_decontTVA_2508 + Lparameters tnNumarLuni + *Parameters tlTrim + + *** tnNumarLuni: 1 = o luna, 3 = 3 luni trimestrial, 6 = 6 luni semestrial, 12 = 12 luni anual + + Private pnLunaI, pnLunaF, pnLunaPrec, pnAnPrec + + Local lodt As 'frm_decontTVA' + Local lcCursor, lcSql, ldDataCurenta, ldDataPrecedenta, lnAnCurent, lnAnPrecedent, lnLunaCurenta + Local lnLunaMin, lnLunaPrecedenta, lnPerioada, lnPlati, lnSucces, lnTP, lnTR, loEx As Exception, lnROTN + *:Global pn10B, pn10T, pn11B, pn11T, pn13B, pn14B, pn15B, pn171B, pn171T, pn17B, pn17T, pn1911B + *:Global pn1911T, pn191B, pn191T, pn19B, pn19T, pn1B, pn21B, pn21T, pn22B, pn22T, pn23B, pn23T + *:Global pn241B, pn24B, pn31B, pn3B, pn51B, pn51T, pn5B, pn5T, pn711B, pn711T, pn71B, pn71T, pn7B + *:Global pn7T, pn9B, pn9T, pnRegularizareB, pnRegularizareT + + lnAnCurent = m.gnAn + lnLunaCurenta = m.gnLuna + ldDataCurenta = Date(m.lnAnCurent, m.lnLunaCurenta, 1) + lnROTN = 0 + + * Luna de inceput a perioadei + * 1 = gnLuna + * 3 = 1,4,7,10 + * 6 = 1,7 + * 12 = 1 + lnPerioada = Ceil(m.lnLunaCurenta / tnNumarLuni) + lnLunaMin = (lnPerioada - 1) * tnNumarLuni + 1 + + *** luna pentru balanta precedenta + ldDataPrecedenta = Gomonth(Date(m.lnAnCurent, m.lnLunaMin, 1), -1) + lnLunaPrecedenta = Month(m.ldDataPrecedenta) + lnAnPrecedent = Year(m.ldDataPrecedenta) + && --- + pnLunaI = lnLunaMin + pnLunaF = m.lnLunaCurenta + + pnLunaPrec = m.lnLunaPrecedenta + pnAnPrec = m.lnAnPrecedent + + Private poDecont + Store '' To poDecont + + Private pnProRata, pnAchizitieBazaN, pnAchizitieTVAN, pnLivrareBazaN, pnLivrareTVAN, pnAchizitieBaza6N, pnAchizitieTVA6N, pnLivrareBaza6N, pnLivrareTVA6N + pnProRata = 100 + pnAchizitieBazaN = 0 + pnAchizitieTVAN = 0 + pnLivrareBazaN = 0 + pnLivrareTVAN = 0 + pnAchizitieBaza6N = 0 + pnAchizitieTVA6N = 0 + pnLivrareBaza6N = 0 + pnLivrareTVA6N = 0 + + Local lcSchema1, lcSelect1, lcOrder1, lcFiltru1, lcFiltruOriginal, llAfiseaza + lcSchema1 = [] + + && schimbare cota TVA standard de la 19% la 21% + Do Case + CASE m.gnAn*12+m.gnLuna >= 2025*12+8 + lcSql = [select d.*, 00000000000 as valoare, 00000000000 as tva from decontTVA d ] + ; + [where valabil = '2508' order by id_decont] + Endcase + lcCursor = [cDecont] + + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Text To lcSql Noshow Textmerge + SELECT + ROUND(SUM(RO21B),0) AS RO21B, + ROUND(SUM(RO21T),0) AS RO21T, + ROUND(SUM(RO11B),0) AS RO11B, + ROUND(SUM(RO11T),0) AS RO11T, + ROUND(SUM(RO19B),0) AS RO19B, + ROUND(SUM(RO19T),0) AS RO19T, + ROUND(SUM(RO9B),0) AS RO9B, + ROUND(SUM(RO9T),0) AS RO9T, + ROUND(SUM(RO5B),0) AS RO5B, + ROUND(SUM(RO5T),0) AS RO5T, + ROUND(SUM(RO20B),0) AS RO20B, + ROUND(SUM(RO20T),0) AS RO20T, + ROUND(SUM(RO24B),0) AS RO24B, + ROUND(SUM(RO24T),0) AS RO24T, + ROUND(SUM(ROTI),0) AS ROTI, + ROUND(SUM(CASE WHEN EXTRACT(YEAR FROM DATAIREG)*12+EXTRACT(MONTH FROM DATAIREG) between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF AND EXTRACT(YEAR FROM DATAACT)*12+EXTRACT(MONTH FROM DATAACT) not between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF THEN RO21B ELSE 0 END),0) AS RO21Br, + ROUND(SUM(CASE WHEN EXTRACT(YEAR FROM DATAIREG)*12+EXTRACT(MONTH FROM DATAIREG) between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF AND EXTRACT(YEAR FROM DATAACT)*12+EXTRACT(MONTH FROM DATAACT) not between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF THEN RO21T ELSE 0 END),0) AS RO21Tr, + ROUND(SUM(CASE WHEN EXTRACT(YEAR FROM DATAIREG)*12+EXTRACT(MONTH FROM DATAIREG) between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF AND EXTRACT(YEAR FROM DATAACT)*12+EXTRACT(MONTH FROM DATAACT) not between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF THEN RO11B ELSE 0 END),0) AS RO11Br, + ROUND(SUM(CASE WHEN EXTRACT(YEAR FROM DATAIREG)*12+EXTRACT(MONTH FROM DATAIREG) between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF AND EXTRACT(YEAR FROM DATAACT)*12+EXTRACT(MONTH FROM DATAACT) not between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF THEN RO11T ELSE 0 END),0) AS RO11Tr, + ROUND(SUM(CASE WHEN EXTRACT(YEAR FROM DATAIREG)*12+EXTRACT(MONTH FROM DATAIREG) between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF AND EXTRACT(YEAR FROM DATAACT)*12+EXTRACT(MONTH FROM DATAACT) not between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF THEN RO19B ELSE 0 END),0) AS RO19Br, + ROUND(SUM(CASE WHEN EXTRACT(YEAR FROM DATAIREG)*12+EXTRACT(MONTH FROM DATAIREG) between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF AND EXTRACT(YEAR FROM DATAACT)*12+EXTRACT(MONTH FROM DATAACT) not between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF THEN RO19T ELSE 0 END),0) AS RO19Tr, + ROUND(SUM(CASE WHEN EXTRACT(YEAR FROM DATAIREG)*12+EXTRACT(MONTH FROM DATAIREG) between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF AND EXTRACT(YEAR FROM DATAACT)*12+EXTRACT(MONTH FROM DATAACT) not between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF THEN RO9B ELSE 0 END),0) AS RO9Br, + ROUND(SUM(CASE WHEN EXTRACT(YEAR FROM DATAIREG)*12+EXTRACT(MONTH FROM DATAIREG) between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF AND EXTRACT(YEAR FROM DATAACT)*12+EXTRACT(MONTH FROM DATAACT) not between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF THEN RO9T ELSE 0 END),0) AS RO9Tr, + ROUND(SUM(CASE WHEN EXTRACT(YEAR FROM DATAIREG)*12+EXTRACT(MONTH FROM DATAIREG) between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF AND EXTRACT(YEAR FROM DATAACT)*12+EXTRACT(MONTH FROM DATAACT) not between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF THEN RO5B ELSE 0 END),0) AS RO5Br, + ROUND(SUM(CASE WHEN EXTRACT(YEAR FROM DATAIREG)*12+EXTRACT(MONTH FROM DATAIREG) between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF AND EXTRACT(YEAR FROM DATAACT)*12+EXTRACT(MONTH FROM DATAACT) not between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF THEN RO5T ELSE 0 END),0) AS RO5Tr, + ROUND(SUM(CESCDD1),0) AS CESCDD1, + ROUND(SUM(CESCDD2),0) AS CESCDD2, + ROUND(SUM(CEOPTR),0) AS CEOPTR, + ROUND(SUM(CESVDD),0) AS CESVDD, + ROUND(SUM(CESVFDD),0) AS CESVFDD, + ROUND(SUM(CESVFS),0) AS CESVFS, + ROUND(SUM(WRSCDD),0) AS WRSCDD, + ROUND(SUM(WRSCDDAB),0) AS WRSCDDAB, + ROUND(SUM(WRSCDDCD),0) AS WRSCDDCD, + ROUND(SUM(FODD),0) AS FODD, + ROUND(SUM(FOFDD),0) AS FOFDD, + ROUND(SUM(CEOPTR),0) AS CEOPTR, + ROUND(SUM(CESVDD),0) AS CESVDD, + ROUND(SUM(CESVFDD),0) AS CESVFDD, + ROUND(SUM(CESVFS),0) AS CESVFS, + ROUND(SUM(WRSCFDD),0) AS WRSCFDD, + ROUND(SUM(WRN),0) AS WRN, + ROUND(SUM(rortc21),0) AS rortc21, + ROUND(SUM(rortc11),0) AS rortc11, + ROUND(SUM(rortc24),0) AS rortc24, + ROUND(SUM(rortc20),0) AS rortc20, + ROUND(SUM(rortc19),0) AS rortc19, + ROUND(SUM(rortc9),0) AS rortc9, + ROUND(SUM(rortc5),0) AS rortc5 + FROM JV2007 + WHERE an*12+luna between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF <> + Endtext + && [ WHERE AN = ?gnAn AND LUNA= ?gnLuna ] + gcCondSucursala + + + lcCursor = [crsJV] + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crsJV + Go Top + pn1B = Nvl(cescdd1, 0) + Nvl(ceoptr, 0) + pn3B = Nvl(cescdd2, 0) + Nvl(fodd, 0) + Nvl(fofdd, 0) + Nvl(cesvdd, 0) + Nvl(cesvfdd, 0) + Nvl(cesvfs, 0) + pn31B = Nvl(cesvfs, 0) + + && scad tva exigibil cu data act in afara perioadei de declarare. il pun pe regularizare rd. 16 + pn9B = Nvl(ro21b, 0) - Nvl(ro21br, 0) + pn9T = Nvl(ro21t, 0) - Nvl(ro21tr, 0) + pn9_1B = Nvl(ro19b, 0) - Nvl(ro19br, 0) + pn9_1T = Nvl(ro19t, 0) - Nvl(ro19tr, 0) + + pn10B = Nvl(ro11b, 0) - Nvl(ro11br, 0) + pn10T = Nvl(ro11t, 0) - Nvl(ro11tr, 0) + pn10_1B = Nvl(ro9b, 0) - Nvl(ro9br, 0) + pn10_1T = Nvl(ro9t, 0) - Nvl(ro9tr, 0) + + pn11B = Nvl(ro5b, 0) - Nvl(ro5br, 0) + pn11T = Nvl(ro5t, 0) - Nvl(ro5tr, 0) + pnRegularizareB = Nvl(ro20b, 0) + Nvl(ro24b, 0) + Nvl(ro21br, 0) + Nvl(ro11br, 0)+ Nvl(ro19br, 0) + Nvl(ro9br, 0) + Nvl(ro5br, 0) + pnRegularizareT = Nvl(ro20t, 0) + Nvl(ro24t, 0) + Nvl(ro21tr, 0) + Nvl(ro11tr, 0)+ Nvl(ro19tr, 0) + Nvl(ro9tr, 0) + Nvl(ro5tr, 0) + + pn13B = Nvl(roti, 0) + pn14B = Nvl(wrscdd, 0) + Nvl(wrscddab, 0) + Nvl(wrscddcd, 0) +*!* pn141B = Nvl(wrscddab, 0) +*!* pn142B = Nvl(wrscddcd, 0) + + pn15B = Nvl(wrscfdd, 0) + + *!* *** LIVRARI D394 + *!* pn171B = Nvl(loD394.livb + loD394.livtib,0) + *!* pn171T = Nvl(loD394.livt + loD394.livtit,0) + + Select cDecont + Locate For Alltrim(Rand) = '1' + If Found() + Replace valoare With pn1B + Endif + + Locate For Alltrim(Rand) = '3' + If Found() + Replace valoare With pn3B + Endif + + Locate For Alltrim(Rand) = '3.1' + If Found() + Replace valoare With pn31B + Endif + + Locate For Alltrim(Rand) = '9' + If Found() + Replace valoare With pn9B, TVA With pn9T + Endif + + Locate For Alltrim(Rand) = '9.1' + If Found() + Replace valoare With pn9_1B, TVA With pn9_1T + ENDIF + + Locate For Alltrim(Rand) = '10' + If Found() + Replace valoare With pn10B, TVA With pn10T + Endif + + Locate For Alltrim(Rand) = '10.1' + If Found() + Replace valoare With pn10_1B, TVA With pn10_1T + ENDIF + + Locate For Alltrim(Rand) = '11' + If Found() + Replace valoare With pn11B, TVA With pn11T + Endif + + Locate For Alltrim(Rand) = '13' + If Found() + Replace valoare With pn13B + Endif + + Locate For Alltrim(Rand) = '14' + If Found() + Replace valoare With pn14B + Endif + +*!* Locate For Alltrim(Rand) = '14.1' +*!* If Found() +*!* Replace valoare With pn141B +*!* Endif + +*!* Locate For Alltrim(Rand) = '14.2' +*!* If Found() +*!* Replace valoare With pn142B +*!* Endif + + Locate For Alltrim(Rand) = '15' + If Found() + Replace valoare With pn15B + Endif + + *!* REGULARIZARE 19% + Locate For Alltrim(Rand) = '16' + If Found() + Replace valoare With pnRegularizareB, TVA With pnRegularizareT + Endif + + *!* *!* LIVRARI INTERNE CATRE CLIENTI PLATITORI TVA IN ROMANIA (LIVRARI D394) + *!* Locate For Alltrim(Rand) = '17.1' + *!* If Found() + *!* Replace valoare With pn171B, TVA With pn171T + *!* Endif + + Text To lcSql Noshow Textmerge + SELECT Round(Sum(RO21B),0) As RO21B, + Round(Sum(RO21T),0) As RO21T, + ROUND(SUM(RO11B),0) AS RO11B, + ROUND(SUM(RO11T),0) AS RO11T, + Round(Sum(RO24B),0) As RO24B, + Round(Sum(RO24T),0) As RO24T, + ROUND(SUM(RO20B),0) AS RO20B, + ROUND(SUM(RO20T),0) AS RO20T, + ROUND(SUM(RO19BCB),0) AS RO19BCB, + ROUND(SUM(RO19BCT),0) AS RO19BCT, + ROUND(SUM(RO19BVB),0) AS RO19BVB, + ROUND(SUM(RO19BVT),0) AS RO19BVT, + ROUND(SUM(RO19BFB),0) AS RO19BFB, + ROUND(SUM(RO19BFT),0) AS RO19BFT, + ROUND(SUM(RO09BCB),0) AS RO09BCB, + ROUND(SUM(RO09BCT),0) AS RO09BCT, + ROUND(SUM(RO09BVB),0) AS RO09BVB, + ROUND(SUM(RO09BVT),0) AS RO09BVT, + ROUND(SUM(RO09BFB),0) AS RO09BFB, + ROUND(SUM(RO09BFT),0) AS RO09BFT, + ROUND(SUM(RO05B),0) AS RO05B, + ROUND(SUM(RO05T),0) AS RO05T, + ROUND(SUM(ROSCN),0) AS ROSCN, + ROUND(SUM(CASE WHEN EXTRACT(YEAR FROM DATAIREG)*12+EXTRACT(MONTH FROM DATAIREG) between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF AND EXTRACT(YEAR FROM DATAACT)*12+EXTRACT(MONTH FROM DATAACT) not between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF THEN RO21B ELSE 0 END),0) AS RO21Br, + ROUND(SUM(CASE WHEN EXTRACT(YEAR FROM DATAIREG)*12+EXTRACT(MONTH FROM DATAIREG) between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF AND EXTRACT(YEAR FROM DATAACT)*12+EXTRACT(MONTH FROM DATAACT) not between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF THEN RO21T ELSE 0 END),0) AS RO21Tr, + ROUND(SUM(CASE WHEN EXTRACT(YEAR FROM DATAIREG)*12+EXTRACT(MONTH FROM DATAIREG) between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF AND EXTRACT(YEAR FROM DATAACT)*12+EXTRACT(MONTH FROM DATAACT) not between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF THEN RO11B ELSE 0 END),0) AS RO11Br, + ROUND(SUM(CASE WHEN EXTRACT(YEAR FROM DATAIREG)*12+EXTRACT(MONTH FROM DATAIREG) between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF AND EXTRACT(YEAR FROM DATAACT)*12+EXTRACT(MONTH FROM DATAACT) not between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF THEN RO11T ELSE 0 END),0) AS RO11Tr, + ROUND(SUM(CASE WHEN EXTRACT(YEAR FROM DATAIREG)*12+EXTRACT(MONTH FROM DATAIREG) between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF AND EXTRACT(YEAR FROM DATAACT)*12+EXTRACT(MONTH FROM DATAACT) not between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF THEN RO19BCB + RO19BVB + RO19BFB ELSE 0 END),0) AS RO19Br, + ROUND(SUM(CASE WHEN EXTRACT(YEAR FROM DATAIREG)*12+EXTRACT(MONTH FROM DATAIREG) between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF AND EXTRACT(YEAR FROM DATAACT)*12+EXTRACT(MONTH FROM DATAACT) not between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF THEN RO19BCT + RO19BVT + RO19BFT ELSE 0 END),0) AS RO19Tr, + ROUND(SUM(CASE WHEN EXTRACT(YEAR FROM DATAIREG)*12+EXTRACT(MONTH FROM DATAIREG) between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF AND EXTRACT(YEAR FROM DATAACT)*12+EXTRACT(MONTH FROM DATAACT) not between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF THEN RO09BCB + RO09BVB + RO09BFB ELSE 0 END),0) AS RO09Br, + ROUND(SUM(CASE WHEN EXTRACT(YEAR FROM DATAIREG)*12+EXTRACT(MONTH FROM DATAIREG) between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF AND EXTRACT(YEAR FROM DATAACT)*12+EXTRACT(MONTH FROM DATAACT) not between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF THEN RO09BCT + RO09BVT + RO09BFT ELSE 0 END),0) AS RO09Tr, + ROUND(SUM(CASE WHEN EXTRACT(YEAR FROM DATAIREG)*12+EXTRACT(MONTH FROM DATAIREG) between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF AND EXTRACT(YEAR FROM DATAACT)*12+EXTRACT(MONTH FROM DATAACT) not between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF THEN RO05B ELSE 0 END),0) AS RO05Br, + ROUND(SUM(CASE WHEN EXTRACT(YEAR FROM DATAIREG)*12+EXTRACT(MONTH FROM DATAIREG) between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF AND EXTRACT(YEAR FROM DATAACT)*12+EXTRACT(MONTH FROM DATAACT) not between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF THEN RO05T ELSE 0 END),0) AS RO05Tr, + Round(Sum(FO21B),0) As FO21B, + Round(Sum(FO21T),0) As FO21T, + Round(Sum(FO11B),0) As FO11B, + Round(Sum(FO11T),0) As FO11T, + Round(Sum(FO24B),0) As FO24B, + Round(Sum(FO24T),0) As FO24T, + Round(Sum(FO20B),0) As FO20B, + Round(Sum(FO20T),0) As FO20T, + ROUND(SUM(FO19BCB),0) AS FO19BCB, + ROUND(SUM(FO19BCT),0) AS FO19BCT, + ROUND(SUM(FO19BVB),0) AS FO19BVB, + ROUND(SUM(FO19BVT),0) AS FO19BVT, + ROUND(SUM(FO19BFB),0) AS FO19BFB, + ROUND(SUM(FO19BFT),0) AS FO19BFT, + ROUND(SUM(FO09BCB),0) AS FO09BCB, + ROUND(SUM(FO09BCT),0) AS FO09BCT, + ROUND(SUM(FO09BVB),0) AS FO09BVB, + ROUND(SUM(FO09BVT),0) AS FO09BVT, + ROUND(SUM(FO09BFB),0) AS FO09BFB, + ROUND(SUM(FO09BFT),0) AS FO09BFT, + ROUND(SUM(FOSCN),0) AS FOSCN, + ROUND(SUM(XX21TIB),0) AS XX21TIB, + ROUND(SUM(XX21TIT),0) AS XX21TIT, + ROUND(SUM(XX11TIB),0) AS XX11TIB, + ROUND(SUM(XX11TIT),0) AS XX11TIT, + ROUND(SUM(XX19TIB),0) AS XX19TIB, + ROUND(SUM(XX19TIT),0) AS XX19TIT, + ROUND(SUM(XX9TIB),0) AS XX9TIB, + ROUND(SUM(XX9TIT),0) AS XX9TIT, + Round(Sum(CE24B),0) As CE24B, + Round(Sum(CE24T),0) As CE24T, + Round(Sum(CE20B),0) As CE20B, + Round(Sum(CE20T),0) As CE20T, + ROUND(SUM(ce21ctb),0) AS ce21ctb, + ROUND(SUM(ce21ctt),0) AS ce21ctt, + ROUND(SUM(ce11ctb),0) AS ce11ctb, + ROUND(SUM(ce11ctt),0) AS ce11ctt, + ROUND(SUM(ce19ctb),0) AS ce19ctb, + ROUND(SUM(ce19ctt),0) AS ce19ctt, + ROUND(SUM(ce9ctb),0) AS ce9ctb, + ROUND(SUM(ce9ctt),0) AS ce9ctt, + ROUND(SUM(ce5ctb),0) AS ce5ctb, + ROUND(SUM(ce5ctt),0) AS ce5ctt, + ROUND(SUM(ce21ftb),0) AS ce21ftb, + ROUND(SUM(ce21ftt),0) AS ce21ftt, + ROUND(SUM(ce11ftb),0) AS ce11ftb, + ROUND(SUM(ce11ftt),0) AS ce11ftt, + ROUND(SUM(ce19ftb),0) AS ce19ftb, + ROUND(SUM(ce19ftt),0) AS ce19ftt, + ROUND(SUM(ce9ftb),0) AS ce9ftb, + ROUND(SUM(ce9ftt),0) AS ce9ftt, + ROUND(SUM(ce5ftb),0) AS ce5ftb, + ROUND(SUM(ce5ftt),0) AS ce5ftt, + Round(Sum(CE21SB),0) As CE21SB, + Round(Sum(CE21ST),0) As CE21ST, + Round(Sum(CE11SB),0) As CE11SB, + Round(Sum(CE11ST),0) As CE11ST, + Round(Sum(CE24SB),0) As CE24SB, + Round(Sum(CE24ST),0) As CE24ST, + Round(Sum(CE20SB),0) As CE20SB, + Round(Sum(CE20ST),0) As CE20ST, + Round(Sum(CE5SB),0) As CE5SB, + Round(Sum(CE5ST),0) As CE5ST, + Round(Sum(CE9SB),0) As CE9SB, + Round(Sum(CE9ST),0) As CE9ST, + Round(Sum(CE19SB),0) As CE19SB, + Round(Sum(CE19ST),0) As CE19ST, + ROUND(SUM(CEBCB),0) AS CEBCB, + ROUND(SUM(CEBCT),0) AS CEBCT, + ROUND(SUM(CEBVB),0) AS CEBVB, + ROUND(SUM(CEBVT),0) AS CEBVT, + ROUND(SUM(CEBVSC),0) AS CEBVSC, + ROUND(SUM(CEBVN),0) AS CEBVN, + ROUND(SUM(CEBFB),0) AS CEBFB, + ROUND(SUM(CEBFT),0) AS CEBFT, + ROUND(SUM(CEBFSC),0) AS CEBFSC, + ROUND(SUM(CEBFN),0) AS CEBFN, + Round(Sum(TI21B), 0) As TI21B, + Round(Sum(TI21T), 0) As TI21T, + Round(Sum(TI11B), 0) As TI11B, + Round(Sum(TI11T), 0) As TI11T, + Round(Sum(TI24B), 0) As TI24B, + Round(Sum(TI24T), 0) As TI24T, + Round(Sum(TI20B), 0) As TI20B, + Round(Sum(TI20T), 0) As TI20T, + ROUND(SUM(TI19BCB),0) AS TI19BCBRO, + ROUND(SUM(TI19BCT),0) AS TI19BCTRO, + ROUND(SUM(TI19BVB),0) AS TI19BVBRO, + ROUND(SUM(TI19BVT),0) AS TI19BVTRO, + ROUND(SUM(TI19BFB),0) AS TI19BFBRO, + ROUND(SUM(TI19BFT),0) AS TI19BFTRO, + ROUND(SUM(TI09BVB),0) AS TI09BVBRO, + ROUND(SUM(TI09BVT),0) AS TI09BVTRO, + ROUND(SUM(TI09BFB),0) AS TI09BFBRO, + ROUND(SUM(TI09BFT),0) AS TI09BFTRO, + ROUND(SUM(ROTN+ROTN50+ROTN100),0) AS ROTN, + ROUND(SUM(rortd21),0) AS rortd21, + ROUND(SUM(rortd11),0) AS rortd11, + ROUND(SUM(rortd24),0) AS rortd24, + ROUND(SUM(rortd20),0) AS rortd20, + ROUND(SUM(rortd19),0) AS rortd19, + ROUND(SUM(rortd9),0) AS rortd9, + ROUND(SUM(rortd5),0) AS rortd5 + FROM JC2007 WHERE an*12+luna between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF <> + Endtext + ** [ FROM VJC2007 WHERE AN = ?gnAn AND LUNA= ?gnLuna ] + gcCondSucursala + + lcCursor = [crsJC] + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crsJC + Go Top + pn20B = NVL(CE21CTB,0) + NVL(CE11CTB,0) + NVL(CE21FTB,0) + NVL(CE11FTB,0) && ach. intracomunitare pre SAFT + ach. intracomunitare furnizori inregistrati/neinregistrati TVA + pn20T = NVL(CE21CTT,0) + NVL(CE11CTT,0) + NVL(CE21FTT,0) + NVL(CE11FTT,0) + pn201B = NVL(CE21CTB,0) + NVL(CE11CTB,0) && ach. intracomunitare pre SAFT + ach. intracomunitare furnizori inregistrati TVA + pn201T = NVL(CE21CTT,0) + NVL(CE11CTT,0) + pn5B = pn20B + pn5T = pn20T + pn51B = pn201B + pn51T = pn201T + + *** rd.21 = rd.6 + *** Regularizari privind achizi_iile intracomunitare de bunuri pentru care cumparatorul este obligat la plata TVA (taxare inversa) (rd.19=rd.6) + pn21B = Nvl(cebcb, 0) + Nvl(cebvb, 0) + Nvl(cebfb, 0) + NVL(CE19CTB,0) + NVL(CE9CTB,0) + NVL(CE5CTB,0) + NVL(CE19FTB,0) + NVL(CE9FTB,0) + NVL(CE5FTB,0) + Nvl(ce20b, 0) + Nvl(ce24b, 0) + pn21T = Nvl(cebct, 0) + Nvl(cebvt, 0) + Nvl(cebft, 0) + NVL(CE19CTT,0) + NVL(CE9CTT,0) + NVL(CE5CTT,0) + NVL(CE19FTT,0) + NVL(CE9FTT,0) + NVL(CE5FTT,0) + Nvl(ce20t, 0) + Nvl(ce24t, 0) + pn6B = pn21B + pn6T = pn21T + + *** Achizi_ii de bunuri, altele decat cele de la rd. 18 ºi 19, si achizitii de servicii pentru care beneficiarul din Romania este obligat la plata TVA (taxare + *** inversa) (rd.22=rd.7), din care + pn22B = Nvl(CE21SB, 0) + Nvl(XX21TIB, 0) + Nvl(XX11TIB, 0) + pn22T = Nvl(CE21ST, 0) + Nvl(XX21TIT, 0) + Nvl(XX11TIT, 0) + pn7B = pn22B + pn7T = pn22T + + *** Achizitii de servicii intracomunitare pentru care beneficiarul este obligat la plata TVA (taxare inversa) (rd.22.1=rd.7.1) + pn221B = Nvl(CE21SB, 0) + pn221T = Nvl(CE21ST, 0) + pn71B = pn221B + pn71T = pn221T + + *** Regularizari privind achizitii de servicii intracomunitare pentru care beneficiarul din Romania este obligat la plata TVA (taxare inversa)(rd.23=rd.8) + pn23B = Nvl(CE19SB, 0) + Nvl(XX19TIB, 0) + Nvl(XX9TIB, 0) + Nvl(CE24SB, 0) + Nvl(CE20SB, 0) + Nvl(CE9SB, 0) + Nvl(CE5SB, 0) + pn23T = Nvl(CE19ST, 0) + Nvl(XX19TIT, 0) + Nvl(XX9TIT, 0) + Nvl(CE24ST, 0) + Nvl(CE20ST, 0) + Nvl(CE9ST, 0) + Nvl(CE5ST, 0) + pn8B = pn23B + pn8T = pn23T + + *** Achizitii de bunuri si servicii taxabile cu cota de 21%, altele decat cele de la rd.27 + && scad tva exigibil din operatiile cu data act in afara perioadei de declarare. le pun pe regularizari, rd. 34 + pn24B = Nvl(ro21b, 0) + Nvl(fo21b, 0) - Nvl(ro21br, 0) + pn24T = Nvl(ro21t, 0) + Nvl(fo21t, 0) - Nvl(ro21tr, 0) + + *** Achizitii de bunuri si servicii taxabile cu cota de 19%, altele decat cele de la rd.27 + pn241B = Nvl(ro19bcb, 0) + Nvl(ro19bvb, 0) + Nvl(ro19bfb, 0) + Nvl(fo19bcb, 0) + Nvl(fo19bvb, 0) + Nvl(fo19bfb, 0) - Nvl(ro19br, 0) + pn241T = Nvl(ro19bct, 0) + Nvl(ro19bvt, 0) + Nvl(ro19bft, 0) + Nvl(fo19bct, 0) + Nvl(fo19bvt, 0) + Nvl(fo19bft, 0) - Nvl(ro19tr, 0) + + *** Achizitii de bunuri si servicii taxabile cu cota de 11%, altele decat cele de la rd.27 + pn25B = Nvl(ro11b, 0) + Nvl(fo11b, 0) - Nvl(ro11br, 0) + pn25T = Nvl(ro11t, 0) + Nvl(fo11t, 0) - Nvl(ro11tr, 0) + + *** Achizitii de bunuri si servicii taxabile cu cota de 9% + pn251B = Nvl(ro09bcb, 0) + Nvl(ro09bvb, 0) + Nvl(ro09bfb, 0) + Nvl(fo09bcb, 0) + Nvl(fo09bvb, 0) + Nvl(fo09bfb, 0) - Nvl(ro09br, 0) + pn251T = Nvl(ro09bct, 0) + Nvl(ro09bvt, 0) + Nvl(ro09bft, 0) + Nvl(fo09bct, 0) + Nvl(fo09bvt, 0) + Nvl(fo09bft, 0) - Nvl(ro09tr, 0) + + *** Achizitii de bunuri taxabile cu cota de 5% + pn26B = Nvl(ro05b, 0) - Nvl(ro05br, 0) + pn26T = Nvl(ro05t, 0) - Nvl(ro05tr, 0) + + *** Achizitii de bunuri si servicii supuse masurilor de simplificare pentru care beneficiarul este obligat la plata TVA (taxare inversa),din care (rd.27=rd.12) + pn27B = Nvl(ti21b, 0) + Nvl(ti11b, 0) + Nvl(ti24b, 0) + Nvl(ti20b, 0) + Nvl(ti19bcbro, 0) + Nvl(ti19bvbro, 0) + Nvl(ti19bfbro, 0) + Nvl(ti09bvbro, 0) + Nvl(ti09bfbro, 0) && ACH. TI + pn27T = Nvl(ti21t, 0) + Nvl(ti11t, 0) + Nvl(ti24t, 0) + Nvl(ti20t, 0) + Nvl(ti19bctro, 0) + Nvl(ti19bvtro, 0) + Nvl(ti19bftro, 0) + Nvl(ti09bvtro, 0) + Nvl(ti09bftro, 0) + pn12B = pn27B + pn12T = pn27T + + pn271B = Nvl(ti21b, 0) && ACH. TI 21% + pn271T = Nvl(ti21t, 0) + pn121B = pn271B + pn121T = pn271T + + pn272B = Nvl(ti11b, 0) && && ACH. TI 11% + pn272T = Nvl(ti11t, 0) + pn122B = pn272B + pn122T = pn272T + + pn273B = Nvl(ti19bcbro, 0) + Nvl(ti19bvbro, 0) + Nvl(ti19bfbro, 0) && ACH. TI 19% + pn273T = Nvl(ti19bctro, 0) + Nvl(ti19bvtro, 0) + Nvl(ti19bftro, 0) + pn123B = pn273B + pn123T = pn273T + + pn274B = Nvl(ti09bvbro, 0) + Nvl(ti09bfbro, 0) && && ACH. TI 9% + pn274T = Nvl(ti09bvtro, 0) + Nvl(ti09bftro, 0) + pn124B = pn274B + pn124T = pn274T + + pn275B = 0 && ACH. TI 5% - NU AM EXPLICATIE TVA PENTRU TI 5%. AR TREBUI ADAUGATA + pn275T = 0 + pn125B = pn275B + pn125T = pn275T + + *** Achizitii de bunuri si servicii scutite de taxa sau neimpozabile, din care + pn30B = Nvl(roscn, 0) + Nvl(cebvsc, 0) + Nvl(cebvn, 0) + Nvl(cebfsc, 0) + Nvl(cebfn, 0) + Nvl(foscn, 0) && Achizi_ii de bunuri ºi servicii scutite de taxa sau neimpozabile + pn301B = Nvl(cebvsc, 0) + Nvl(cebfsc, 0) && Achizitii de servicii intracomunitare scutite de taxa + + *** Regularizari taxa dedusa + pn34B = Nvl(ro20b, 0) + Nvl(ro24b, 0) + Nvl(fo20b, 0) + Nvl(fo24b, 0) + Nvl(ti24b, 0) + Nvl(ti20b, 0) + Nvl(ro21br, 0) + Nvl(ro11br, 0)+ Nvl(ro19br, 0) + Nvl(ro09br, 0) + Nvl(ro05br, 0) + pn34T = Nvl(ro20t, 0) + Nvl(ro24t, 0) + Nvl(fo20t, 0) + Nvl(fo24t, 0) + Nvl(ti24b, 0) + Nvl(ti20b, 0) + Nvl(ro21tr, 0) + Nvl(ro11tr, 0)+ Nvl(ro19tr, 0) + Nvl(ro09tr, 0) + Nvl(ro05tr, 0) + + lnROTN = Int(Round(Nvl(ROTN, 0), 0)) && && LIMITARE DEDUCERE TVA 4426 ID_JTVA = 1001 + + Select cDecont + Locate For Alltrim(Rand) = '20' + If Found() + Replace valoare With pn20B, TVA With pn20T + Endif + + Locate For Alltrim(Rand) = '20.1' + If Found() + Replace valoare With pn201B, TVA With pn201T + Endif + + Locate For Alltrim(Rand) = '5' + If Found() + Replace valoare With pn5B, TVA With pn5T + Endif + + Locate For Alltrim(Rand) = '5.1' + If Found() + Replace valoare With pn51B, TVA With pn51T + Endif + + Locate For Alltrim(Rand) = '21' + If Found() + Replace valoare With pn21B, TVA With pn21T + Endif + + Locate For Alltrim(Rand) = '6' + If Found() + Replace valoare With pn6B, TVA With pn6T + Endif + + Locate For Alltrim(Rand) = '22' + If Found() + Replace valoare With pn22B, TVA With pn22T + Endif + + Locate For Alltrim(Rand) = '22.1' + If Found() + Replace valoare With pn221B, TVA With pn221T + Endif + + Locate For Alltrim(Rand) = '7' + If Found() + Replace valoare With pn7B, TVA With pn7T + Endif + + Locate For Alltrim(Rand) = '7.1' + If Found() + Replace valoare With pn71B, TVA With pn71T + Endif + + Locate For Alltrim(Rand) = '23' + If Found() + Replace valoare With pn23B, TVA With pn23T + Endif + + Locate For Alltrim(Rand) = '8' + If Found() + Replace valoare With pn8B, TVA With pn8T + Endif + + Locate For Alltrim(Rand) = '24' + If Found() + Replace valoare With pn24B, TVA With pn24T + Endif + + Locate For Alltrim(Rand) = '24.1' + If Found() + Replace valoare With pn241B, TVA With pn241T + Endif + + Locate For Alltrim(Rand) = '25' + If Found() + Replace valoare With pn25B, TVA With pn25T + Endif + + Locate For Alltrim(Rand) = '25.1' + If Found() + Replace valoare With pn251B, TVA With pn251T + Endif + + Locate For Alltrim(Rand) = '26' + If Found() + Replace valoare With pn26B, TVA With pn26T + Endif + + Locate For Alltrim(Rand) = '27' + If Found() + Replace valoare With pn27B, TVA With pn27T + Endif + + Locate For Alltrim(Rand) = '27.1' + If Found() + Replace valoare With pn271B, TVA With pn271T + Endif + + Locate For Alltrim(Rand) = '27.2' + If Found() + Replace valoare With pn272B, TVA With pn272T + Endif + + Locate For Alltrim(Rand) = '27.3' + If Found() + Replace valoare With pn273B, TVA With pn273T + Endif + + Locate For Alltrim(Rand) = '27.4' + If Found() + Replace valoare With pn274B, TVA With pn274T + ENDIF + + Locate For Alltrim(Rand) = '27.5' + If Found() + Replace valoare With pn275B, TVA With pn275T + ENDIF + + Locate For Alltrim(Rand) = '12' + If Found() + Replace valoare With pn12B, TVA With pn12T + Endif + + Locate For Alltrim(Rand) = '12.1' + If Found() + Replace valoare With pn121B, TVA With pn121T + Endif + + Locate For Alltrim(Rand) = '12.2' + If Found() + Replace valoare With pn122B, TVA With pn122T + Endif + + Locate For Alltrim(Rand) = '12.3' + If Found() + Replace valoare With pn123B, TVA With pn123T + Endif + + Locate For Alltrim(Rand) = '12.4' + If Found() + Replace valoare With pn124B, TVA With pn124T + ENDIF + + Locate For Alltrim(Rand) = '12.5' + If Found() + Replace valoare With pn125B, TVA With pn125T + ENDIF + + Locate For Alltrim(Rand) = '30' + If Found() + Replace valoare With pn30B + Endif + + Locate For Alltrim(Rand) = '30.1' + If Found() + Replace valoare With pn301B + Endif + + *!* REGULARIZARE + Locate For Alltrim(Rand) = '34' + If Found() + Replace valoare With pn34B, TVA With pn34T + Endif + + *** Rd. 42 Soldul sumei negative a TVA reportate din perioada precedenta pentru care nu s-a solicitat rambursare (rd.44 din decontul perioadei fiscale precedente) + lcSql = [SELECT solddeb ] + ; + [ from vbal ] + ; + [ where cont = 4424 ] + ; + [ and AN = ?pnAnPrec AND LUNA= ?pnLunaPrec] + gcCondSucursala + + lnTR = 0 + llSucces = goExecutor.oSelecteaza2Value(m.lcSql, @lnTR) + IF m.llSucces + lnTR = Int(Round(lnTR, 0)) + ENDIF + + Select cDecont + Locate For Alltrim(Rand) = '42' + If Found() + Replace TVA With lnTR + Endif + + + *** Rd. 37 Soldul TVA de plata din decontul perioadei fiscale precedente (rd.43 din decontul perioadei fiscale precedente) neachitate pana la data depunerii decontului de TVA + Text To lcSql Textmerge Noshow + SELECT NVL(soldcred,0) as soldcred + from vbal + where cont = '4423' and AN = ?pnAnPrec AND LUNA = ?pnLunaPrec + <> + Endtext + + lnTP = 0 + llSucces = goExecutor.oSelecteaza2Value(m.lcSql, @lnTP) + IF m.llSucces + lnTP = Int(Round(lnTP, 0)) + ENDIF + + * cat TVA am achitat in perioada curenta pentru TVA de plata 4423 + Text To lcSql Textmerge Noshow + select nvl(sum(suma),0) as suma + from act + where an = ?gnAn and luna between ?pnLunaI and ?pnLunaF + and sters = 0 + and scd = '4423' and scc In ('5121', '5311') + <> + Endtext + + lnPlati = 0 + llSucces = goExecutor.oSelecteaza2Value(m.lcSql, @lnPlati) + IF m.llSucces + lnPlati = Int(Round(lnPlati, 0)) + ENDIF + + lnTP = Max(m.lnTP - m.lnPlati, 0) + + Select cDecont + Locate For Alltrim(Rand) = '39' + If Found() + Replace TVA With Nvl(m.lnTP, 0) + Endif + + *** Regularizari + lcSql = [select sum(suma) as suma, id_jtva_coloana from act ] + ; + [where sters = 0 and id_jtva_coloana in (1002, 1003) and ] + ; + [an*12+luna between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF ] + m.gcCondSucursala + ; + [ group by id_jtva_coloana order by id_jtva_coloana] + lcCursor = [crsRegTaxe] + If goExecutor.oExecuta(lcSql, lcCursor) + Select (lcCursor) + Scan + lnSuma = Int(Round(suma, 0)) + lcRand = Iif(id_jtva_coloana = 1003, '34', '16') + Select cDecont + Replace TVA With TVA - lnSuma For Rand = lcRand + Select (lcCursor) + Endscan + Endif + Use In (Select(lcCursor)) + + *** SOLD NEEXIGIBIL + Text To lcSql Noshow Textmerge + select sum(RO21NB+RO11NB+RO24NB+RO20NB+RO19NB+RO9NB+RO5NB) as bazan, sum(RO21NT+RO11NT+RO24NT+RO20NT+RO19NT+RO9NT+RO5NT) as tvan + from vjc2010 + where an = ?gnAn and luna = ?pnLunaF <> + Endtext + llSucces = goExecutor.oExecuta(m.lcSql, "cNeexTemp") + If m.llSucces + pnAchizitieBazaN = Int(Round(bazan, 0)) + pnAchizitieTVAN = Int(Round(tvan, 0)) + Endif + Use In (Select('cNeexTemp')) + + * sold neexigibil doar de la facturile din ultimele 6 luni, inclusiv luna de raportare + Text To lcSql Noshow Textmerge + select sum(RO21NB+RO11NB+RO24NB+RO20NB+RO19NB+RO9NB+RO5NB) as bazan, sum(RO21NT+RO11NT+RO24NT+RO20NT+RO19NT+RO9NT+RO5NT) as tvan + from vjc2010 + where an = ?gnAn and luna = ?pnLunaF and (extract(year from dataact) * 12 + extract(month from dataact) > ?gnan*12+?pnLunaF-6) <> + Endtext + llSucces = goExecutor.oExecuta(m.lcSql, "cNeexTemp") + If m.llSucces + pnAchizitieBaza6N = Int(Round(bazan, 0)) + pnAchizitieTVA6N = Int(Round(tvan, 0)) + Endif + Use In (Select('cNeexTemp')) + + + Text To lcSql Noshow Textmerge + select sum(RO21NB+RO11NB+RO24NB+RO20NB+RO19NB+RO9NB+RO5NB) as bazan, sum(RO21NT+RO11NT+RO24NT+RO20NT+RO19NT+RO9NT+RO5NT) as tvan + from vjv2010 + where an = ?gnAn and luna = ?pnLunaF <> + Endtext + llSucces = goExecutor.oExecuta(m.lcSql, "cNeexTemp") + If m.llSucces + pnLivrareBazaN = Int(Round(bazan, 0)) + pnLivrareTVAN = Int(Round(tvan, 0)) + Endif + Use In (Select('cNeexTemp')) + + * sold neexigibil doar de la facturile din ultimele 6 luni, inclusiv luna de raportare + Text To lcSql Noshow Textmerge + select sum(RO21NB+RO11NB+RO24NB+RO20NB+RO19NB+RO9NB+RO5NB) as bazan, sum(RO21NT+RO11NT+RO24NT+RO20NT+RO19NT+RO9NT+RO5NT) as tvan + from vjv2010 + where an = ?gnAn and luna = ?pnLunaF and (extract(year from dataact) * 12 + extract(month from dataact) > ?gnan*12+?pnLunaF-6) <> + Endtext + llSucces = goExecutor.oExecuta(m.lcSql, "cNeexTemp") + If m.llSucces + pnLivrareBaza6N = Int(Round(bazan, 0)) + pnLivrareTVA6N = Int(Round(tvan, 0)) + Endif + Use In (Select('cNeexTemp')) + + Select cDecont + lodt = Createobject('frm_decontTVA_201701', m.tnNumarLuni) + + lodt.nROTN = Nvl(m.lnROTN, 0) && LIMITARE DEDUCERE TVA 4426 ID_JTVA = 1001 + lodt.lblRandAtentie.Caption = lodt.lblRandAtentie.Caption + ' (' + Alltrim(Str(m.lnROTN)) + ' lei)' + lodt.Show(1) +Endproc && viz_decontTVA_2508 + +*=========================================== +Procedure viz_decontTVA_0719 + Lparameters tnNumarLuni + *Parameters tlTrim + + *** tnNumarLuni: 1 = o luna, 3 = 3 luni trimestrial, 6 = 6 luni semestrial, 12 = 12 luni anual + + Private pnLunaI, pnLunaF, pnLunaPrec, pnAnPrec + + Local lodt As 'frm_decontTVA' + Local lcCursor, lcSql, ldDataCurenta, ldDataPrecedenta, lnAnCurent, lnAnPrecedent, lnLunaCurenta + Local lnLunaMin, lnLunaPrecedenta, lnPerioada, lnPlati, lnSucces, lnTP, lnTR, loEx As Exception, lnROTN + *:Global pn10B, pn10T, pn11B, pn11T, pn13B, pn14B, pn15B, pn171B, pn171T, pn17B, pn17T, pn1911B + *:Global pn1911T, pn191B, pn191T, pn19B, pn19T, pn1B, pn21B, pn21T, pn22B, pn22T, pn23B, pn23T + *:Global pn241B, pn24B, pn31B, pn3B, pn51B, pn51T, pn5B, pn5T, pn711B, pn711T, pn71B, pn71T, pn7B + *:Global pn7T, pn9B, pn9T, pnRegularizareB, pnRegularizareT + + lnAnCurent = m.gnAn + lnLunaCurenta = m.gnLuna + ldDataCurenta = Date(m.lnAnCurent, m.lnLunaCurenta, 1) + lnROTN = 0 + + * Luna de inceput a perioadei + * 1 = gnLuna + * 3 = 1,4,7,10 + * 6 = 1,7 + * 12 = 1 + lnPerioada = Ceil(m.lnLunaCurenta / tnNumarLuni) + lnLunaMin = (lnPerioada - 1) * tnNumarLuni + 1 + + *** luna pentru balanta precedenta + ldDataPrecedenta = Gomonth(Date(m.lnAnCurent, m.lnLunaMin, 1), -1) + lnLunaPrecedenta = Month(m.ldDataPrecedenta) + lnAnPrecedent = Year(m.ldDataPrecedenta) + && --- + pnLunaI = lnLunaMin + pnLunaF = m.lnLunaCurenta + + pnLunaPrec = m.lnLunaPrecedenta + pnAnPrec = m.lnAnPrecedent + + Private poDecont + Store '' To poDecont + + Private pnProRata, pnAchizitieBazaN, pnAchizitieTVAN, pnLivrareBazaN, pnLivrareTVAN, pnAchizitieBaza6N, pnAchizitieTVA6N, pnLivrareBaza6N, pnLivrareTVA6N + pnProRata = 100 + pnAchizitieBazaN = 0 + pnAchizitieTVAN = 0 + pnLivrareBazaN = 0 + pnLivrareTVAN = 0 + pnAchizitieBaza6N = 0 + pnAchizitieTVA6N = 0 + pnLivrareBaza6N = 0 + pnLivrareTVA6N = 0 + + Local lcSchema1, lcSelect1, lcOrder1, lcFiltru1, lcFiltruOriginal, llAfiseaza + lcSchema1 = [] + + && schimbare cota TVA standard de la 24% la 20% + Do Case + CASE m.gnAn*12+m.gnLuna >= 2024*12+5 + lcSql = [select d.*, 00000000000 as valoare, 00000000000 as tva from decontTVA d ] + ; + [where valabil = '0524' order by id_decont] + CASE m.gnAn*12+m.gnLuna >= 2023*12+8 + lcSql = [select d.*, 00000000000 as valoare, 00000000000 as tva from decontTVA d ] + ; + [where valabil = '0823' order by id_decont] + Case m.gnAn * 12 + m.gnLuna >= 2019*12+7 + lcSql = [select d.*, 00000000000 as valoare, 00000000000 as tva from decontTVA d ] + ; + [where valabil = '0719' order by id_decont] + Case m.gnAn * 12 + m.gnLuna >= 2017*12+1 + lcSql = [select d.*, 00000000000 as valoare, 00000000000 as tva from decontTVA d ] + ; + [where valabil = '0117' order by id_decont] + Case m.gnAn * 12 + m.gnLuna >= 2013*12+1 + lcSql = [select d.*, 00000000000 as valoare, 00000000000 as tva from decontTVA d ] + ; + [where valabil = '0113' order by id_decont] + OTHERWISE && Case m.gnAn * 12 + m.gnLuna >= 2016*12+1 + lcSql = [select d.*, 00000000000 as valoare, 00000000000 as tva from decontTVA d ] + ; + [where valabil = '0116' order by id_decont] + Endcase + lcCursor = [cDecont] + + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Text To lcSql Noshow Textmerge + SELECT ROUND(SUM(RO19B),0) AS RO19B, + ROUND(SUM(RO19T),0) AS RO19T, + ROUND(SUM(RO9B),0) AS RO9B, + ROUND(SUM(RO9T),0) AS RO9T, + ROUND(SUM(RO5B),0) AS RO5B, + ROUND(SUM(RO5T),0) AS RO5T, + ROUND(SUM(RO20B),0) AS RO20B, + ROUND(SUM(RO20T),0) AS RO20T, + ROUND(SUM(RO24B),0) AS RO24B, + ROUND(SUM(RO24T),0) AS RO24T, + ROUND(SUM(ROTI),0) AS ROTI, + ROUND(SUM(CASE WHEN EXTRACT(YEAR FROM DATAIREG)*12+EXTRACT(MONTH FROM DATAIREG) between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF AND EXTRACT(YEAR FROM DATAACT)*12+EXTRACT(MONTH FROM DATAACT) not between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF THEN RO19B ELSE 0 END),0) AS RO19Br, + ROUND(SUM(CASE WHEN EXTRACT(YEAR FROM DATAIREG)*12+EXTRACT(MONTH FROM DATAIREG) between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF AND EXTRACT(YEAR FROM DATAACT)*12+EXTRACT(MONTH FROM DATAACT) not between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF THEN RO19T ELSE 0 END),0) AS RO19Tr, + ROUND(SUM(CASE WHEN EXTRACT(YEAR FROM DATAIREG)*12+EXTRACT(MONTH FROM DATAIREG) between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF AND EXTRACT(YEAR FROM DATAACT)*12+EXTRACT(MONTH FROM DATAACT) not between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF THEN RO9B ELSE 0 END),0) AS RO9Br, + ROUND(SUM(CASE WHEN EXTRACT(YEAR FROM DATAIREG)*12+EXTRACT(MONTH FROM DATAIREG) between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF AND EXTRACT(YEAR FROM DATAACT)*12+EXTRACT(MONTH FROM DATAACT) not between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF THEN RO9T ELSE 0 END),0) AS RO9Tr, + ROUND(SUM(CASE WHEN EXTRACT(YEAR FROM DATAIREG)*12+EXTRACT(MONTH FROM DATAIREG) between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF AND EXTRACT(YEAR FROM DATAACT)*12+EXTRACT(MONTH FROM DATAACT) not between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF THEN RO5B ELSE 0 END),0) AS RO5Br, + ROUND(SUM(CASE WHEN EXTRACT(YEAR FROM DATAIREG)*12+EXTRACT(MONTH FROM DATAIREG) between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF AND EXTRACT(YEAR FROM DATAACT)*12+EXTRACT(MONTH FROM DATAACT) not between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF THEN RO5T ELSE 0 END),0) AS RO5Tr, + ROUND(SUM(CESCDD1),0) AS CESCDD1, + ROUND(SUM(CESCDD2),0) AS CESCDD2, + ROUND(SUM(CEOPTR),0) AS CEOPTR, + ROUND(SUM(CESVDD),0) AS CESVDD, + ROUND(SUM(CESVFDD),0) AS CESVFDD, + ROUND(SUM(CESVFS),0) AS CESVFS, + ROUND(SUM(WRSCDD),0) AS WRSCDD, + ROUND(SUM(WRSCDDAB),0) AS WRSCDDAB, + ROUND(SUM(WRSCDDCD),0) AS WRSCDDCD, + ROUND(SUM(FODD),0) AS FODD, + ROUND(SUM(FOFDD),0) AS FOFDD, + ROUND(SUM(CEOPTR),0) AS CEOPTR, + ROUND(SUM(CESVDD),0) AS CESVDD, + ROUND(SUM(CESVFDD),0) AS CESVFDD, + ROUND(SUM(CESVFS),0) AS CESVFS, + ROUND(SUM(WRSCFDD),0) AS WRSCFDD, + ROUND(SUM(WRN),0) AS WRN, + ROUND(SUM(rortc24),0) AS rortc24, + ROUND(SUM(rortc20),0) AS rortc20, + ROUND(SUM(rortc19),0) AS rortc19, + ROUND(SUM(rortc9),0) AS rortc9, + ROUND(SUM(rortc5),0) AS rortc5 + FROM JV2007 + WHERE an*12+luna between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF <> + Endtext + && [ WHERE AN = ?gnAn AND LUNA= ?gnLuna ] + gcCondSucursala + + + lcCursor = [crsJV] + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crsJV + Go Top + pn1B = Nvl(cescdd1, 0) + Nvl(ceoptr, 0) + pn3B = Nvl(cescdd2, 0) + Nvl(fodd, 0) + Nvl(fofdd, 0) + Nvl(cesvdd, 0) + Nvl(cesvfdd, 0) + Nvl(cesvfs, 0) + pn31B = Nvl(cesvfs, 0) + + && scad tva exigibil cu data act in afara perioadei de declarare. il pun pe regularizare rd. 16 + pn9B = Nvl(ro19b, 0) - Nvl(ro19br, 0) + pn9T = Nvl(ro19t, 0) - Nvl(ro19tr, 0) + pn10B = Nvl(ro9b, 0) - Nvl(ro9br, 0) + pn10T = Nvl(ro9t, 0) - Nvl(ro9tr, 0) + pn11B = Nvl(ro5b, 0) - Nvl(ro5br, 0) + pn11T = Nvl(ro5t, 0) - Nvl(ro5tr, 0) + pnRegularizareB = Nvl(ro20b, 0) + Nvl(ro24b, 0) + Nvl(ro19br, 0) + Nvl(ro9br, 0) + Nvl(ro5br, 0) + pnRegularizareT = Nvl(ro20t, 0) + Nvl(ro24t, 0) + Nvl(ro19tr, 0) + Nvl(ro9tr, 0) + Nvl(ro5tr, 0) + + pn13B = Nvl(roti, 0) + pn14B = Nvl(wrscdd, 0) + Nvl(wrscddab, 0) + Nvl(wrscddcd, 0) + pn141B = Nvl(wrscddab, 0) + pn142B = Nvl(wrscddcd, 0) + + pn15B = Nvl(wrscfdd, 0) + + *!* *** LIVRARI D394 + *!* pn171B = Nvl(loD394.livb + loD394.livtib,0) + *!* pn171T = Nvl(loD394.livt + loD394.livtit,0) + + Select cDecont + Locate For Alltrim(Rand) = '1' + If Found() + Replace valoare With pn1B + Endif + + Locate For Alltrim(Rand) = '3' + If Found() + Replace valoare With pn3B + Endif + + Locate For Alltrim(Rand) = '3.1' + If Found() + Replace valoare With pn31B + Endif + + Locate For Alltrim(Rand) = '9' + If Found() + Replace valoare With pn9B, TVA With pn9T + Endif + + Locate For Alltrim(Rand) = '10' + If Found() + Replace valoare With pn10B, TVA With pn10T + Endif + + Locate For Alltrim(Rand) = '11' + If Found() + Replace valoare With pn11B, TVA With pn11T + Endif + + Locate For Alltrim(Rand) = '13' + If Found() + Replace valoare With pn13B + Endif + + Locate For Alltrim(Rand) = '14' + If Found() + Replace valoare With pn14B + Endif + + Locate For Alltrim(Rand) = '14.1' + If Found() + Replace valoare With pn141B + Endif + + Locate For Alltrim(Rand) = '14.2' + If Found() + Replace valoare With pn142B + Endif + + Locate For Alltrim(Rand) = '15' + If Found() + Replace valoare With pn15B + Endif + + *!* REGULARIZARE 19% + Locate For Alltrim(Rand) = '16' + If Found() + Replace valoare With pnRegularizareB, TVA With pnRegularizareT + Endif + + *!* *!* LIVRARI INTERNE CATRE CLIENTI PLATITORI TVA IN ROMANIA (LIVRARI D394) + *!* Locate For Alltrim(Rand) = '17.1' + *!* If Found() + *!* Replace valoare With pn171B, TVA With pn171T + *!* Endif + + Text To lcSql Noshow Textmerge + SELECT Round(Sum(RO24B),0) As RO24B, + Round(Sum(RO24T),0) As RO24T, + ROUND(SUM(RO20B),0) AS RO20B, + ROUND(SUM(RO20T),0) AS RO20T, + ROUND(SUM(RO19BCB),0) AS RO19BCB, + ROUND(SUM(RO19BCT),0) AS RO19BCT, + ROUND(SUM(RO19BVB),0) AS RO19BVB, + ROUND(SUM(RO19BVT),0) AS RO19BVT, + ROUND(SUM(RO19BFB),0) AS RO19BFB, + ROUND(SUM(RO19BFT),0) AS RO19BFT, + ROUND(SUM(RO09BCB),0) AS RO09BCB, + ROUND(SUM(RO09BCT),0) AS RO09BCT, + ROUND(SUM(RO09BVB),0) AS RO09BVB, + ROUND(SUM(RO09BVT),0) AS RO09BVT, + ROUND(SUM(RO09BFB),0) AS RO09BFB, + ROUND(SUM(RO09BFT),0) AS RO09BFT, + ROUND(SUM(RO05B),0) AS RO05B, + ROUND(SUM(RO05T),0) AS RO05T, + ROUND(SUM(ROSCN),0) AS ROSCN, + ROUND(SUM(CASE WHEN EXTRACT(YEAR FROM DATAIREG)*12+EXTRACT(MONTH FROM DATAIREG) between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF AND EXTRACT(YEAR FROM DATAACT)*12+EXTRACT(MONTH FROM DATAACT) not between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF THEN RO19BCB + RO19BVB + RO19BFB ELSE 0 END),0) AS RO19Br, + ROUND(SUM(CASE WHEN EXTRACT(YEAR FROM DATAIREG)*12+EXTRACT(MONTH FROM DATAIREG) between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF AND EXTRACT(YEAR FROM DATAACT)*12+EXTRACT(MONTH FROM DATAACT) not between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF THEN RO19BCT + RO19BVT + RO19BFT ELSE 0 END),0) AS RO19Tr, + ROUND(SUM(CASE WHEN EXTRACT(YEAR FROM DATAIREG)*12+EXTRACT(MONTH FROM DATAIREG) between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF AND EXTRACT(YEAR FROM DATAACT)*12+EXTRACT(MONTH FROM DATAACT) not between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF THEN RO09BCB + RO09BVB + RO09BFB ELSE 0 END),0) AS RO09Br, + ROUND(SUM(CASE WHEN EXTRACT(YEAR FROM DATAIREG)*12+EXTRACT(MONTH FROM DATAIREG) between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF AND EXTRACT(YEAR FROM DATAACT)*12+EXTRACT(MONTH FROM DATAACT) not between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF THEN RO09BCT + RO09BVT + RO09BFT ELSE 0 END),0) AS RO09Tr, + ROUND(SUM(CASE WHEN EXTRACT(YEAR FROM DATAIREG)*12+EXTRACT(MONTH FROM DATAIREG) between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF AND EXTRACT(YEAR FROM DATAACT)*12+EXTRACT(MONTH FROM DATAACT) not between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF THEN RO05B ELSE 0 END),0) AS RO05Br, + ROUND(SUM(CASE WHEN EXTRACT(YEAR FROM DATAIREG)*12+EXTRACT(MONTH FROM DATAIREG) between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF AND EXTRACT(YEAR FROM DATAACT)*12+EXTRACT(MONTH FROM DATAACT) not between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF THEN RO05T ELSE 0 END),0) AS RO05Tr, + Round(Sum(FO24B),0) As FO24B, + Round(Sum(FO24T),0) As FO24T, + Round(Sum(FO20B),0) As FO20B, + Round(Sum(FO20T),0) As FO20T, + ROUND(SUM(FO19BCB),0) AS FO19BCB, + ROUND(SUM(FO19BCT),0) AS FO19BCT, + ROUND(SUM(FO19BVB),0) AS FO19BVB, + ROUND(SUM(FO19BVT),0) AS FO19BVT, + ROUND(SUM(FO19BFB),0) AS FO19BFB, + ROUND(SUM(FO19BFT),0) AS FO19BFT, + ROUND(SUM(XX19TIB),0) AS XX19TIB, + ROUND(SUM(XX19TIT),0) AS XX19TIT, + ROUND(SUM(XX9TIB),0) AS XX9TIB, + ROUND(SUM(XX9TIT),0) AS XX9TIT, + ROUND(SUM(FO09BCB),0) AS FO09BCB, + ROUND(SUM(FO09BCT),0) AS FO09BCT, + ROUND(SUM(FO09BVB),0) AS FO09BVB, + ROUND(SUM(FO09BVT),0) AS FO09BVT, + ROUND(SUM(FO09BFB),0) AS FO09BFB, + ROUND(SUM(FO09BFT),0) AS FO09BFT, + ROUND(SUM(FOSCN),0) AS FOSCN, + Round(Sum(CE24B),0) As CE24B, + Round(Sum(CE24T),0) As CE24T, + Round(Sum(CE20B),0) As CE20B, + Round(Sum(CE20T),0) As CE20T, + Round(Sum(CE24SB),0) As CE24SB, + Round(Sum(CE24ST),0) As CE24ST, + Round(Sum(CE20SB),0) As CE20SB, + Round(Sum(CE20ST),0) As CE20ST, + Round(Sum(CE5SB),0) As CE5SB, + Round(Sum(CE5ST),0) As CE5ST, + Round(Sum(CE9SB),0) As CE9SB, + Round(Sum(CE9ST),0) As CE9ST, + Round(Sum(CE19SB),0) As CE19SB, + Round(Sum(CE19ST),0) As CE19ST, + ROUND(SUM(CEBCB),0) AS CEBCB, + ROUND(SUM(CEBCT),0) AS CEBCT, + ROUND(SUM(CEBVB),0) AS CEBVB, + ROUND(SUM(CEBVT),0) AS CEBVT, + ROUND(SUM(CEBVSC),0) AS CEBVSC, + ROUND(SUM(CEBVN),0) AS CEBVN, + ROUND(SUM(CEBFB),0) AS CEBFB, + ROUND(SUM(CEBFT),0) AS CEBFT, + ROUND(SUM(CEBFSC),0) AS CEBFSC, + ROUND(SUM(CEBFN),0) AS CEBFN, + ROUND(SUM(ce19ctb),0) AS ce19ctb, + ROUND(SUM(ce19ctt),0) AS ce19ctt, + ROUND(SUM(ce9ctb),0) AS ce9ctb, + ROUND(SUM(ce9ctt),0) AS ce9ctt, + ROUND(SUM(ce5ctb),0) AS ce5ctb, + ROUND(SUM(ce5ctt),0) AS ce5ctt, + ROUND(SUM(ce19ftb),0) AS ce19ftb, + ROUND(SUM(ce19ftt),0) AS ce19ftt, + ROUND(SUM(ce9ftb),0) AS ce9ftb, + ROUND(SUM(ce9ftt),0) AS ce9ftt, + ROUND(SUM(ce5ftb),0) AS ce5ftb, + ROUND(SUM(ce5ftt),0) AS ce5ftt, + Round(Sum(TI24B), 0) As TI24B, + Round(Sum(TI24T), 0) As TI24T, + Round(Sum(TI20B), 0) As TI20B, + Round(Sum(TI20T), 0) As TI20T, + ROUND(SUM(TI19BCB),0) AS TI19BCBWR, + ROUND(SUM(TI19BCT),0) AS TI19BCTWR, + ROUND(SUM(TI19BVB),0) AS TI19BVBWR, + ROUND(SUM(TI19BVT),0) AS TI19BVTWR, + ROUND(SUM(TI19BFB),0) AS TI19BFBWR, + ROUND(SUM(TI19BFT),0) AS TI19BFTWR, + ROUND(SUM(TI09BVB),0) AS TI09BVBWR, + ROUND(SUM(TI09BVT),0) AS TI09BVTWR, + ROUND(SUM(TI09BFB),0) AS TI09BFBWR, + ROUND(SUM(TI09BFT),0) AS TI09BFTWR, + ROUND(SUM(TI19BCB),0) AS TI19BCBRO, + ROUND(SUM(TI19BCT),0) AS TI19BCTRO, + ROUND(SUM(TI19BVB),0) AS TI19BVBRO, + ROUND(SUM(TI19BVT),0) AS TI19BVTRO, + ROUND(SUM(TI19BFB),0) AS TI19BFBRO, + ROUND(SUM(TI19BFT),0) AS TI19BFTRO, + ROUND(SUM(TI09BVB),0) AS TI09BVBRO, + ROUND(SUM(TI09BVT),0) AS TI09BVTRO, + ROUND(SUM(TI09BFB),0) AS TI09BFBRO, + ROUND(SUM(TI09BFT),0) AS TI09BFTRO, + ROUND(SUM(ROTN+ROTN50+ROTN100),0) AS ROTN, + ROUND(SUM(rortd24),0) AS rortd24, + ROUND(SUM(rortd20),0) AS rortd20, + ROUND(SUM(rortd19),0) AS rortd19, + ROUND(SUM(rortd9),0) AS rortd9, + ROUND(SUM(rortd5),0) AS rortd5 + FROM JC2007 WHERE an*12+luna between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF <> + Endtext + ** [ FROM VJC2007 WHERE AN = ?gnAn AND LUNA= ?gnLuna ] + gcCondSucursala + + lcCursor = [crsJC] + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crsJC + Go Top + pn20B = Nvl(cebcb, 0) + Nvl(cebvb, 0) + Nvl(cebfb, 0) + NVL(CE19CTB,0) + NVL(CE9CTB,0) + NVL(CE5CTB,0) + NVL(CE19FTB,0) + NVL(CE9FTB,0) + NVL(CE5FTB,0) && ach. intracomunitare pre SAFT + ach. intracomunitare furnizori inregistrati/neinregistrati TVA + pn20T = Nvl(cebct, 0) + Nvl(cebvt, 0) + Nvl(cebft, 0) + NVL(CE19CTT,0) + NVL(CE9CTT,0) + NVL(CE5CTT,0) + NVL(CE19FTT,0) + NVL(CE9FTT,0) + NVL(CE5FTT,0) + pn201B = Nvl(cebcb, 0) + Nvl(cebvb, 0) + Nvl(cebfb, 0) + NVL(CE19CTB,0) + NVL(CE9CTB,0) + NVL(CE5CTB,0) && ach. intracomunitare pre SAFT + ach. intracomunitare furnizori inregistrati TVA + pn201T = Nvl(cebct, 0) + Nvl(cebvt, 0) + Nvl(cebft, 0) + NVL(CE19CTT,0) + NVL(CE9CTT,0) + NVL(CE5CTT,0) + pn5B = pn20B + pn5T = pn20T + pn51B = pn201B + pn51T = pn201T + + *** rd.21 = rd.6 + *** Regularizari privind achizi_iile intracomunitare de bunuri pentru care cumparatorul este obligat la plata TVA (taxare inversa) (rd.19=rd.6) + pn21B = Nvl(ce20b, 0) + Nvl(ce24b, 0) + pn21T = Nvl(ce20t, 0) + Nvl(ce24t, 0) + pn6B = pn21B + pn6T = pn21T + + *** Achizi_ii de bunuri, altele decat cele de la rd. 18 ºi 19, si achizitii de servicii pentru care beneficiarul din Romania este obligat la plata TVA (taxare + *** inversa) (rd.22=rd.7), din care + pn22B = Nvl(CE19SB, 0) + Nvl(XX19TIB, 0) + Nvl(XX9TIB, 0) + pn22T = Nvl(CE19ST, 0) + Nvl(XX19TIT, 0) + Nvl(XX9TIT, 0) + pn7B = pn22B + pn7T = pn22T + + *** Achizitii de servicii intracomunitare pentru care beneficiarul este obligat la plata TVA (taxare inversa) (rd.22.1=rd.7.1) + pn221B = Nvl(CE19SB, 0) + pn221T = Nvl(CE19ST, 0) + pn71B = pn221B + pn71T = pn221T + + *** Regularizari privind achizitii de servicii intracomunitare pentru care beneficiarul din Romania este obligat la plata TVA (taxare inversa)(rd.23=rd.8) + pn23B = Nvl(CE24SB, 0) + Nvl(CE20SB, 0) + Nvl(CE9SB, 0) + Nvl(CE5SB, 0) + pn23T = Nvl(CE24ST, 0) + Nvl(CE20ST, 0) + Nvl(CE9ST, 0) + Nvl(CE5ST, 0) + pn8B = pn23B + pn8T = pn23T + + *** Achizi_ii de bunuri ºi servicii taxabile cu cota de 19%, altele decat cele de la rd.27 + && scad tva exigibil din operatiile cu data act in afara perioadei de declarare. le pun pe regularizari, rd. 34 + pn24B = Nvl(ro19bcb, 0) + Nvl(ro19bvb, 0) + Nvl(ro19bfb, 0) + Nvl(fo19bcb, 0) + Nvl(fo19bvb, 0) + Nvl(fo19bfb, 0) - Nvl(ro19br, 0) + pn24T = Nvl(ro19bct, 0) + Nvl(ro19bvt, 0) + Nvl(ro19bft, 0) + Nvl(fo19bct, 0) + Nvl(fo19bvt, 0) + Nvl(fo19bft, 0) - Nvl(ro19tr, 0) + + *** Achizi_ii de bunuri ºi servicii taxabile cu cota de 9% + pn25B = Nvl(ro09bcb, 0) + Nvl(ro09bvb, 0) + Nvl(ro09bfb, 0) + Nvl(fo09bcb, 0) + Nvl(fo09bvb, 0) + Nvl(fo09bfb, 0) - Nvl(ro09br, 0) + pn25T = Nvl(ro09bct, 0) + Nvl(ro09bvt, 0) + Nvl(ro09bft, 0) + Nvl(fo09bct, 0) + Nvl(fo09bvt, 0) + Nvl(fo09bft, 0) - Nvl(ro09tr, 0) + + *** Achizi_ii de bunuri taxabile cu cota de 5% + pn26B = Nvl(ro05b, 0) - Nvl(ro05br, 0) + pn26T = Nvl(ro05t, 0) - Nvl(ro05tr, 0) + + *** Achizi_ii de bunuri ºi servicii supuse masurilor de simplificare pentru care beneficiarul este obligat la plata TVA (taxare inversa),din care (rd.27=rd.12) + pn27B = Nvl(ti24b, 0) + Nvl(ti20b, 0) + Nvl(ti19bcbro, 0) + Nvl(ti19bvbro, 0) + Nvl(ti19bfbro, 0) + Nvl(ti09bvbro, 0) + Nvl(ti09bfbro, 0) && ACH. TI + pn27T = Nvl(ti24t, 0) + Nvl(ti20t, 0) + Nvl(ti19bctro, 0) + Nvl(ti19bvtro, 0) + Nvl(ti19bftro, 0) + Nvl(ti09bvtro, 0) + Nvl(ti09bftro, 0) + pn12B = pn27B + pn12T = pn27T + + pn271B = Nvl(ti19bcbro, 0) + Nvl(ti19bvbro, 0) + Nvl(ti19bfbro, 0) && ACH. TI 19% + pn271T = Nvl(ti19bctro, 0) + Nvl(ti19bvtro, 0) + Nvl(ti19bftro, 0) + pn121B = pn271B + pn121T = pn271T + + pn272B = Nvl(ti09bvbro, 0) + Nvl(ti09bfbro, 0) && && ACH. TI 9% + pn272T = Nvl(ti09bvtro, 0) + Nvl(ti09bftro, 0) + pn122B = pn272B + pn122T = pn272T + + pn273B = 0 && ACH. TI 5% - NU AM EXPLICATIE TVA PENTRU TI 5%. AR TREBUI ADAUGATA + pn273T = 0 + pn123B = pn273B + pn123T = pn273T + + *** Achizi_ii de bunuri ºi servicii scutite de taxa sau neimpozabile, din care + pn30B = Nvl(roscn, 0) + Nvl(cebvsc, 0) + Nvl(cebvn, 0) + Nvl(cebfsc, 0) + Nvl(cebfn, 0) + Nvl(foscn, 0) && Achizi_ii de bunuri ºi servicii scutite de taxa sau neimpozabile + pn301B = Nvl(cebvsc, 0) + Nvl(cebfsc, 0) && Achizitii de servicii intracomunitare scutite de taxa + + *** Regularizari taxa dedusa + pn34B = Nvl(ro20b, 0) + Nvl(ro24b, 0) + Nvl(fo20b, 0) + Nvl(fo24b, 0) + Nvl(ti24b, 0) + Nvl(ti20b, 0) + Nvl(ro19br, 0) + Nvl(ro09br, 0) + Nvl(ro05br, 0) + pn34T = Nvl(ro20t, 0) + Nvl(ro24t, 0) + Nvl(fo20t, 0) + Nvl(fo24t, 0) + Nvl(ti24b, 0) + Nvl(ti20b, 0) + Nvl(ro19tr, 0) + Nvl(ro09tr, 0) + Nvl(ro05tr, 0) + + lnROTN = Int(Round(Nvl(ROTN, 0), 0)) && && LIMITARE DEDUCERE TVA 4426 ID_JTVA = 1001 + + Select cDecont + Locate For Alltrim(Rand) = '20' + If Found() + Replace valoare With pn20B, TVA With pn20T + Endif + + Locate For Alltrim(Rand) = '20.1' + If Found() + Replace valoare With pn201B, TVA With pn201T + Endif + + Locate For Alltrim(Rand) = '5' + If Found() + Replace valoare With pn5B, TVA With pn5T + Endif + + Locate For Alltrim(Rand) = '5.1' + If Found() + Replace valoare With pn51B, TVA With pn51T + Endif + + Locate For Alltrim(Rand) = '21' + If Found() + Replace valoare With pn21B, TVA With pn21T + Endif + + Locate For Alltrim(Rand) = '6' + If Found() + Replace valoare With pn6B, TVA With pn6T + Endif + + Locate For Alltrim(Rand) = '22' + If Found() + Replace valoare With pn22B, TVA With pn22T + Endif + + Locate For Alltrim(Rand) = '22.1' + If Found() + Replace valoare With pn221B, TVA With pn221T + Endif + + Locate For Alltrim(Rand) = '7' + If Found() + Replace valoare With pn7B, TVA With pn7T + Endif + + Locate For Alltrim(Rand) = '7.1' + If Found() + Replace valoare With pn71B, TVA With pn71T + Endif + + Locate For Alltrim(Rand) = '23' + If Found() + Replace valoare With pn23B, TVA With pn23T + Endif + + Locate For Alltrim(Rand) = '8' + If Found() + Replace valoare With pn8B, TVA With pn8T + Endif + + Locate For Alltrim(Rand) = '24' + If Found() + Replace valoare With pn24B, TVA With pn24T + Endif + + Locate For Alltrim(Rand) = '25' + If Found() + Replace valoare With pn25B, TVA With pn25T + Endif + + Locate For Alltrim(Rand) = '26' + If Found() + Replace valoare With pn26B, TVA With pn26T + Endif + + Locate For Alltrim(Rand) = '27' + If Found() + Replace valoare With pn27B, TVA With pn27T + Endif + + Locate For Alltrim(Rand) = '27.1' + If Found() + Replace valoare With pn271B, TVA With pn271T + Endif + + Locate For Alltrim(Rand) = '27.2' + If Found() + Replace valoare With pn272B, TVA With pn272T + Endif + + Locate For Alltrim(Rand) = '27.3' + If Found() + Replace valoare With pn273B, TVA With pn273T + Endif + + Locate For Alltrim(Rand) = '12' + If Found() + Replace valoare With pn12B, TVA With pn12T + Endif + + Locate For Alltrim(Rand) = '12.1' + If Found() + Replace valoare With pn121B, TVA With pn121T + Endif + + Locate For Alltrim(Rand) = '12.2' + If Found() + Replace valoare With pn122B, TVA With pn122T + Endif + + Locate For Alltrim(Rand) = '12.3' + If Found() + Replace valoare With pn123B, TVA With pn123T + Endif + + Locate For Alltrim(Rand) = '30' + If Found() + Replace valoare With pn30B + Endif + + Locate For Alltrim(Rand) = '30.1' + If Found() + Replace valoare With pn301B + Endif + + *!* REGULARIZARE + Locate For Alltrim(Rand) = '34' + If Found() + Replace valoare With pn34B, TVA With pn34T + Endif + + *** Rd. 42 Soldul sumei negative a TVA reportate din perioada precedenta pentru care nu s-a solicitat rambursare (rd.44 din decontul perioadei fiscale precedente) + lcSql = [SELECT solddeb ] + ; + [ from vbal ] + ; + [ where cont = 4424 ] + ; + [ and AN = ?pnAnPrec AND LUNA= ?pnLunaPrec] + gcCondSucursala + + + lcCursor = [crsTR] && TVA de recuperat + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crsTR + lnTR = Int(Round(solddeb, 0)) + + Select cDecont + Locate For Alltrim(Rand) = '42' + If Found() + Replace TVA With lnTR + Endif + + If Used('crsTR') + Use In crsTR + Endif + + *** Rd. 37 Soldul TVA de plata din decontul perioadei fiscale precedente (rd.43 din decontul perioadei fiscale precedente) neachitate pana la data depunerii decontului de TVA + Text To lcSql Textmerge Noshow + SELECT NVL(soldcred,0) as soldcred + from vbal + where cont = '4423' and AN = ?pnAnPrec AND LUNA = ?pnLunaPrec + <> + Endtext + + lcCursor = [crsTP] && nu si-au platit tva din luna precedenta + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crsTP + lnTP = Int(Round(soldcred, 0)) + + Use In (Select('crsTP')) + + Text To lcSql Textmerge Noshow + select nvl(sum(suma),0) as suma + from act + where an = ?gnAn and luna between ?pnLunaI and ?pnLunaF + and sters = 0 + and scd = '4423' and scc In ('5121', '5311') + <> + Endtext + + lcCursor = [crsPlati] + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crsPlati + lnPlati = Int(Round(suma, 0)) + + Use In (Select('crsPlati')) + + lnTP = Max(m.lnTP - m.lnPlati, 0) + + Select cDecont + Locate For Alltrim(Rand) = '39' + If Found() + Replace TVA With Nvl(m.lnTP, 0) + Endif + + *** Regularizari + lcSql = [select sum(suma) as suma, id_jtva_coloana from act ] + ; + [where sters = 0 and id_jtva_coloana in (1002, 1003) and ] + ; + [an*12+luna between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF ] + m.gcCondSucursala + ; + [ group by id_jtva_coloana order by id_jtva_coloana] + lcCursor = [crsRegTaxe] + If goExecutor.oExecuta(lcSql, lcCursor) + Select (lcCursor) + Scan + lnSuma = Int(Round(suma, 0)) + lcRand = Iif(id_jtva_coloana = 1003, '34', '16') + Select cDecont + Replace TVA With TVA - lnSuma For Rand = lcRand + Select (lcCursor) + Endscan + Endif + Use In (Select(lcCursor)) + + *** SOLD NEEXIGIBIL + Text To lcSql Noshow Textmerge + select sum(RO24NB+RO20NB+RO19NB+RO9NB+RO5NB) as bazan, sum(RO24NT+RO20NT+RO19NT+RO9NT+RO5NT) as tvan + from vjc2010 + where an = ?gnAn and luna = ?pnLunaF <> + Endtext + llSucces = goExecutor.oExecuta(m.lcSql, "cNeexTemp") + If m.llSucces + pnAchizitieBazaN = Int(Round(bazan, 0)) + pnAchizitieTVAN = Int(Round(tvan, 0)) + Endif + Use In (Select('cNeexTemp')) + + * sold neexigibil doar de la facturile din ultimele 6 luni, inclusiv luna de raportare + Text To lcSql Noshow Textmerge + select sum(RO24NB+RO20NB+RO19NB+RO9NB+RO5NB) as bazan, sum(RO24NT+RO20NT+RO19NT+RO9NT+RO5NT) as tvan + from vjc2010 + where an = ?gnAn and luna = ?pnLunaF and (extract(year from dataact) * 12 + extract(month from dataact) > ?gnan*12+?pnLunaF-6) <> + Endtext + llSucces = goExecutor.oExecuta(m.lcSql, "cNeexTemp") + If m.llSucces + pnAchizitieBaza6N = Int(Round(bazan, 0)) + pnAchizitieTVA6N = Int(Round(tvan, 0)) + Endif + Use In (Select('cNeexTemp')) + + + Text To lcSql Noshow Textmerge + select sum(RO24NB+RO20NB+RO19NB+RO9NB+RO5NB) as bazan, sum(RO24NT+RO20NT+RO19NT+RO9NT+RO5NT) as tvan + from vjv2010 + where an = ?gnAn and luna = ?pnLunaF <> + Endtext + llSucces = goExecutor.oExecuta(m.lcSql, "cNeexTemp") + If m.llSucces + pnLivrareBazaN = Int(Round(bazan, 0)) + pnLivrareTVAN = Int(Round(tvan, 0)) + Endif + Use In (Select('cNeexTemp')) + + * sold neexigibil doar de la facturile din ultimele 6 luni, inclusiv luna de raportare + Text To lcSql Noshow Textmerge + select sum(RO24NB+RO20NB+RO19NB+RO9NB+RO5NB) as bazan, sum(RO24NT+RO20NT+RO19NT+RO9NT+RO5NT) as tvan + from vjv2010 + where an = ?gnAn and luna = ?pnLunaF and (extract(year from dataact) * 12 + extract(month from dataact) > ?gnan*12+?pnLunaF-6) <> + Endtext + llSucces = goExecutor.oExecuta(m.lcSql, "cNeexTemp") + If m.llSucces + pnLivrareBaza6N = Int(Round(bazan, 0)) + pnLivrareTVA6N = Int(Round(tvan, 0)) + Endif + Use In (Select('cNeexTemp')) + + Select cDecont + Do Case + CASE m.gnAn >= 2017 + lodt = Createobject('frm_decontTVA_201701', m.tnNumarLuni) && la fel ca 2016, lblRandAtentie + Case m.gnAn = 2016 + lodt = Createobject('frm_decontTVA_201601', m.tnNumarLuni) && s-au mai adaugat 2 campuri la sfarsit - sold livrari/ach. neex pt livrari in ultimele 6 luni + OTHERWISE + lodt = Createobject('frm_decontTVA', m.tnNumarLuni) + Endcase + lodt.nROTN = Nvl(m.lnROTN, 0) && LIMITARE DEDUCERE TVA 4426 ID_JTVA = 1001 + lodt.lblRandAtentie.Caption = lodt.lblRandAtentie.Caption + ' (' + Alltrim(Str(m.lnROTN)) + ' lei)' + lodt.Show(1) +Endproc && viz_decontTVA_0719 + +*=========================================== +*!* 01.01.2017 TVA 19% +Procedure viz_decontTVA_0117 + Lparameters tnNumarLuni + *Parameters tlTrim + + *** tnNumarLuni: 1 = o luna, 3 = 3 luni trimestrial, 6 = 6 luni semestrial, 12 = 12 luni anual + + Private pnLunaI, pnLunaF, pnLunaPrec, pnAnPrec + + Local lodt As 'frm_decontTVA' + Local lcCursor, lcSql, ldDataCurenta, ldDataPrecedenta, lnAnCurent, lnAnPrecedent, lnLunaCurenta + Local lnLunaMin, lnLunaPrecedenta, lnPerioada, lnPlati, lnSucces, lnTP, lnTR, loEx As Exception, lnROTN + *:Global pn10B, pn10T, pn11B, pn11T, pn13B, pn14B, pn15B, pn171B, pn171T, pn17B, pn17T, pn1911B + *:Global pn1911T, pn191B, pn191T, pn19B, pn19T, pn1B, pn21B, pn21T, pn22B, pn22T, pn23B, pn23T + *:Global pn241B, pn24B, pn31B, pn3B, pn51B, pn51T, pn5B, pn5T, pn711B, pn711T, pn71B, pn71T, pn7B + *:Global pn7T, pn9B, pn9T, pnRegularizareB, pnRegularizareT + + lnAnCurent = m.gnAn + lnLunaCurenta = m.gnLuna + ldDataCurenta = Date(m.lnAnCurent, m.lnLunaCurenta, 1) + lnROTN = 0 + + * Luna de inceput a perioadei + * 1 = gnLuna + * 3 = 1,4,7,10 + * 6 = 1,7 + * 12 = 1 + lnPerioada = Ceil(m.lnLunaCurenta / tnNumarLuni) + lnLunaMin = (lnPerioada - 1) * tnNumarLuni + 1 + + *** luna pentru balanta precedenta + ldDataPrecedenta = Gomonth(Date(m.lnAnCurent, m.lnLunaMin, 1), -1) + lnLunaPrecedenta = Month(m.ldDataPrecedenta) + lnAnPrecedent = Year(m.ldDataPrecedenta) + && ---- + pnLunaI = lnLunaMin + pnLunaF = m.lnLunaCurenta + + pnLunaPrec = m.lnLunaPrecedenta + pnAnPrec = m.lnAnPrecedent + + Private poDecont + Store '' To poDecont + + Private pnProRata, pnAchizitieBazaN, pnAchizitieTVAN, pnLivrareBazaN, pnLivrareTVAN, pnAchizitieBaza6N, pnAchizitieTVA6N, pnLivrareBaza6N, pnLivrareTVA6N + pnProRata = 100 + pnAchizitieBazaN = 0 + pnAchizitieTVAN = 0 + pnLivrareBazaN = 0 + pnLivrareTVAN = 0 + pnAchizitieBaza6N = 0 + pnAchizitieTVA6N = 0 + pnLivrareBaza6N = 0 + pnLivrareTVA6N = 0 + + Local lcSchema1, lcSelect1, lcOrder1, lcFiltru1, lcFiltruOriginal, llAfiseaza + lcSchema1 = [] + + && schimbare cota TVA standard de la 24% la 20% + Do Case + Case m.gnAn < 2016 + lcSql = [select d.*, 00000000000 as valoare, 00000000000 as tva from decontTVA d ] + ; + [where valabil = '0113' order by id_decont] + Case m.gnAn = 2016 + lcSql = [select d.*, 00000000000 as valoare, 00000000000 as tva from decontTVA d ] + ; + [where valabil = '0116' order by id_decont] + Otherwise + lcSql = [select d.*, 00000000000 as valoare, 00000000000 as tva from decontTVA d ] + ; + [where valabil = '0117' order by id_decont] + Endcase + lcCursor = [cDecont] + + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Text To lcSql Noshow Textmerge + SELECT ROUND(SUM(RO19B),0) AS RO19B, + ROUND(SUM(RO19T),0) AS RO19T, + ROUND(SUM(RO9B),0) AS RO9B, + ROUND(SUM(RO9T),0) AS RO9T, + ROUND(SUM(RO5B),0) AS RO5B, + ROUND(SUM(RO5T),0) AS RO5T, + ROUND(SUM(RO20B),0) AS RO20B, + ROUND(SUM(RO20T),0) AS RO20T, + ROUND(SUM(RO24B),0) AS RO24B, + ROUND(SUM(RO24T),0) AS RO24T, + ROUND(SUM(ROTI),0) AS ROTI, + ROUND(SUM(CASE WHEN EXTRACT(YEAR FROM DATAIREG)*12+EXTRACT(MONTH FROM DATAIREG) between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF AND EXTRACT(YEAR FROM DATAACT)*12+EXTRACT(MONTH FROM DATAACT) not between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF THEN RO19B ELSE 0 END),0) AS RO19Br, + ROUND(SUM(CASE WHEN EXTRACT(YEAR FROM DATAIREG)*12+EXTRACT(MONTH FROM DATAIREG) between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF AND EXTRACT(YEAR FROM DATAACT)*12+EXTRACT(MONTH FROM DATAACT) not between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF THEN RO19T ELSE 0 END),0) AS RO19Tr, + ROUND(SUM(CASE WHEN EXTRACT(YEAR FROM DATAIREG)*12+EXTRACT(MONTH FROM DATAIREG) between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF AND EXTRACT(YEAR FROM DATAACT)*12+EXTRACT(MONTH FROM DATAACT) not between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF THEN RO9B ELSE 0 END),0) AS RO9Br, + ROUND(SUM(CASE WHEN EXTRACT(YEAR FROM DATAIREG)*12+EXTRACT(MONTH FROM DATAIREG) between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF AND EXTRACT(YEAR FROM DATAACT)*12+EXTRACT(MONTH FROM DATAACT) not between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF THEN RO9T ELSE 0 END),0) AS RO9Tr, + ROUND(SUM(CASE WHEN EXTRACT(YEAR FROM DATAIREG)*12+EXTRACT(MONTH FROM DATAIREG) between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF AND EXTRACT(YEAR FROM DATAACT)*12+EXTRACT(MONTH FROM DATAACT) not between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF THEN RO5B ELSE 0 END),0) AS RO5Br, + ROUND(SUM(CASE WHEN EXTRACT(YEAR FROM DATAIREG)*12+EXTRACT(MONTH FROM DATAIREG) between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF AND EXTRACT(YEAR FROM DATAACT)*12+EXTRACT(MONTH FROM DATAACT) not between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF THEN RO5T ELSE 0 END),0) AS RO5Tr, + ROUND(SUM(CESCDD1),0) AS CESCDD1, + ROUND(SUM(CESCDD2),0) AS CESCDD2, + ROUND(SUM(CEOPTR),0) AS CEOPTR, + ROUND(SUM(CESVDD),0) AS CESVDD, + ROUND(SUM(CESVFDD),0) AS CESVFDD, + ROUND(SUM(CESVFS),0) AS CESVFS, + ROUND(SUM(WRSCDD),0) AS WRSCDD, + ROUND(SUM(FODD),0) AS FODD, + ROUND(SUM(FOFDD),0) AS FOFDD, + ROUND(SUM(CEOPTR),0) AS CEOPTR, + ROUND(SUM(CESVDD),0) AS CESVDD, + ROUND(SUM(CESVFDD),0) AS CESVFDD, + ROUND(SUM(CESVFS),0) AS CESVFS, + ROUND(SUM(WRSCFDD),0) AS WRSCFDD, + ROUND(SUM(WRN),0) AS WRN FROM JV2007 + WHERE an*12+luna between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF <> + Endtext + && [ WHERE AN = ?gnAn AND LUNA= ?gnLuna ] + gcCondSucursala + + + lcCursor = [crsJV] + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crsJV + Go Top + pn1B = Nvl(cescdd1, 0) + Nvl(ceoptr, 0) + pn3B = Nvl(cescdd2, 0) + Nvl(fodd, 0) + Nvl(fofdd, 0) + Nvl(cesvdd, 0) + Nvl(cesvfdd, 0) + Nvl(cesvfs, 0) + pn31B = Nvl(cesvfs, 0) + + && scad tva exigibil cu data act in afara perioadei de declarare. il pun pe regularizare rd. 16 + pn9B = Nvl(ro19b, 0) - Nvl(ro19br, 0) + pn9T = Nvl(ro19t, 0) - Nvl(ro19tr, 0) + pn10B = Nvl(ro9b, 0) - Nvl(ro9br, 0) + pn10T = Nvl(ro9t, 0) - Nvl(ro9tr, 0) + pn11B = Nvl(ro5b, 0) - Nvl(ro5br, 0) + pn11T = Nvl(ro5t, 0) - Nvl(ro5tr, 0) + pnRegularizareB = Nvl(ro20b, 0) + Nvl(ro24b, 0) + Nvl(ro19br, 0) + Nvl(ro9br, 0) + Nvl(ro5br, 0) + pnRegularizareT = Nvl(ro20t, 0) + Nvl(ro24t, 0) + Nvl(ro19tr, 0) + Nvl(ro9tr, 0) + Nvl(ro5tr, 0) + + pn13B = Nvl(roti, 0) + pn14B = Nvl(wrscdd, 0) + + pn15B = Nvl(wrscfdd, 0) + + *!* *** LIVRARI D394 + *!* pn171B = Nvl(loD394.livb + loD394.livtib,0) + *!* pn171T = Nvl(loD394.livt + loD394.livtit,0) + + Select cDecont + Locate For Alltrim(Rand) = '1' + If Found() + Replace valoare With pn1B + Endif + + Locate For Alltrim(Rand) = '3' + If Found() + Replace valoare With pn3B + Endif + + Locate For Alltrim(Rand) = '3.1' + If Found() + Replace valoare With pn31B + Endif + + Locate For Alltrim(Rand) = '9' + If Found() + Replace valoare With pn9B, TVA With pn9T + Endif + + Locate For Alltrim(Rand) = '10' + If Found() + Replace valoare With pn10B, TVA With pn10T + Endif + + Locate For Alltrim(Rand) = '11' + If Found() + Replace valoare With pn11B, TVA With pn11T + Endif + + Locate For Alltrim(Rand) = '13' + If Found() + Replace valoare With pn13B + Endif + + Locate For Alltrim(Rand) = '14' + If Found() + Replace valoare With pn14B + Endif + + Locate For Alltrim(Rand) = '15' + If Found() + Replace valoare With pn15B + Endif + + *!* REGULARIZARE 19% + Locate For Alltrim(Rand) = '16' + If Found() + Replace valoare With pnRegularizareB, TVA With pnRegularizareT + Endif + + *!* *!* LIVRARI INTERNE CATRE CLIENTI PLATITORI TVA IN ROMANIA (LIVRARI D394) + *!* Locate For Alltrim(Rand) = '17.1' + *!* If Found() + *!* Replace valoare With pn171B, TVA With pn171T + *!* Endif + + Text To lcSql Noshow Textmerge + SELECT Round(Sum(RO24B),0) As RO24B, + Round(Sum(RO24T),0) As RO24T, + ROUND(SUM(RO20B),0) AS RO20B, + ROUND(SUM(RO20T),0) AS RO20T, + ROUND(SUM(RO19BCB),0) AS RO19BCB, + ROUND(SUM(RO19BCT),0) AS RO19BCT, + ROUND(SUM(RO19BVB),0) AS RO19BVB, + ROUND(SUM(RO19BVT),0) AS RO19BVT, + ROUND(SUM(RO19BFB),0) AS RO19BFB, + ROUND(SUM(RO19BFT),0) AS RO19BFT, + ROUND(SUM(RO09BCB),0) AS RO09BCB, + ROUND(SUM(RO09BCT),0) AS RO09BCT, + ROUND(SUM(RO09BVB),0) AS RO09BVB, + ROUND(SUM(RO09BVT),0) AS RO09BVT, + ROUND(SUM(RO09BFB),0) AS RO09BFB, + ROUND(SUM(RO09BFT),0) AS RO09BFT, + ROUND(SUM(RO05B),0) AS RO05B, + ROUND(SUM(RO05T),0) AS RO05T, + ROUND(SUM(ROSCN),0) AS ROSCN, + ROUND(SUM(CASE WHEN EXTRACT(YEAR FROM DATAIREG)*12+EXTRACT(MONTH FROM DATAIREG) between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF AND EXTRACT(YEAR FROM DATAACT)*12+EXTRACT(MONTH FROM DATAACT) not between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF THEN RO19BCB + RO19BVB + RO19BFB ELSE 0 END),0) AS RO19Br, + ROUND(SUM(CASE WHEN EXTRACT(YEAR FROM DATAIREG)*12+EXTRACT(MONTH FROM DATAIREG) between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF AND EXTRACT(YEAR FROM DATAACT)*12+EXTRACT(MONTH FROM DATAACT) not between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF THEN RO19BCT + RO19BVT + RO19BFT ELSE 0 END),0) AS RO19Tr, + ROUND(SUM(CASE WHEN EXTRACT(YEAR FROM DATAIREG)*12+EXTRACT(MONTH FROM DATAIREG) between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF AND EXTRACT(YEAR FROM DATAACT)*12+EXTRACT(MONTH FROM DATAACT) not between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF THEN RO09BCB + RO09BVB + RO09BFB ELSE 0 END),0) AS RO09Br, + ROUND(SUM(CASE WHEN EXTRACT(YEAR FROM DATAIREG)*12+EXTRACT(MONTH FROM DATAIREG) between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF AND EXTRACT(YEAR FROM DATAACT)*12+EXTRACT(MONTH FROM DATAACT) not between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF THEN RO09BCT + RO09BVT + RO09BFT ELSE 0 END),0) AS RO09Tr, + ROUND(SUM(CASE WHEN EXTRACT(YEAR FROM DATAIREG)*12+EXTRACT(MONTH FROM DATAIREG) between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF AND EXTRACT(YEAR FROM DATAACT)*12+EXTRACT(MONTH FROM DATAACT) not between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF THEN RO05B ELSE 0 END),0) AS RO05Br, + ROUND(SUM(CASE WHEN EXTRACT(YEAR FROM DATAIREG)*12+EXTRACT(MONTH FROM DATAIREG) between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF AND EXTRACT(YEAR FROM DATAACT)*12+EXTRACT(MONTH FROM DATAACT) not between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF THEN RO05T ELSE 0 END),0) AS RO05Tr, + Round(Sum(FO24B),0) As FO24B, + Round(Sum(FO24T),0) As FO24T, + Round(Sum(FO20B),0) As FO20B, + Round(Sum(FO20T),0) As FO20T, + ROUND(SUM(FO19BCB),0) AS FO19BCB, + ROUND(SUM(FO19BCT),0) AS FO19BCT, + ROUND(SUM(FO19BVB),0) AS FO19BVB, + ROUND(SUM(FO19BVT),0) AS FO19BVT, + ROUND(SUM(FO19BFB),0) AS FO19BFB, + ROUND(SUM(FO19BFT),0) AS FO19BFT, + ROUND(SUM(FO09BCB),0) AS FO09BCB, + ROUND(SUM(FO09BCT),0) AS FO09BCT, + ROUND(SUM(FO09BVB),0) AS FO09BVB, + ROUND(SUM(FO09BVT),0) AS FO09BVT, + ROUND(SUM(FO09BFB),0) AS FO09BFB, + ROUND(SUM(FO09BFT),0) AS FO09BFT, + ROUND(SUM(FOSCN),0) AS FOSCN, + Round(Sum(CE24B),0) As CE24B, + Round(Sum(CE24T),0) As CE24T, + Round(Sum(CE20B),0) As CE20B, + Round(Sum(CE20T),0) As CE20T, + Round(Sum(CE24SB),0) As CE24SB, + Round(Sum(CE24ST),0) As CE24ST, + Round(Sum(CE20SB),0) As CE20SB, + Round(Sum(CE20ST),0) As CE20ST, + Round(Sum(CE5SB),0) As CE5SB, + Round(Sum(CE5ST),0) As CE5ST, + Round(Sum(CE9SB),0) As CE9SB, + Round(Sum(CE9ST),0) As CE9ST, + Round(Sum(CE19SB),0) As CE19SB, + Round(Sum(CE19ST),0) As CE19ST, + ROUND(SUM(CEBCB),0) AS CEBCB, + ROUND(SUM(CEBCT),0) AS CEBCT, + ROUND(SUM(CEBVB),0) AS CEBVB, + ROUND(SUM(CEBVT),0) AS CEBVT, + ROUND(SUM(CEBVSC),0) AS CEBVSC, + ROUND(SUM(CEBVN),0) AS CEBVN, + ROUND(SUM(CEBFB),0) AS CEBFB, + ROUND(SUM(CEBFT),0) AS CEBFT, + ROUND(SUM(CEBFSC),0) AS CEBFSC, + ROUND(SUM(CEBFN),0) AS CEBFN, + Round(Sum(TI24B), 0) As TI24B, + Round(Sum(TI24T), 0) As TI24T, + Round(Sum(TI20B), 0) As TI20B, + Round(Sum(TI20T), 0) As TI20T, + ROUND(SUM(TI19BCB),0) AS TI19BCBWR, + ROUND(SUM(TI19BCT),0) AS TI19BCTWR, + ROUND(SUM(TI19BVB),0) AS TI19BVBWR, + ROUND(SUM(TI19BVT),0) AS TI19BVTWR, + ROUND(SUM(TI19BFB),0) AS TI19BFBWR, + ROUND(SUM(TI19BFT),0) AS TI19BFTWR, + ROUND(SUM(TI09BVB),0) AS TI09BVBWR, + ROUND(SUM(TI09BVT),0) AS TI09BVTWR, + ROUND(SUM(TI09BFB),0) AS TI09BFBWR, + ROUND(SUM(TI09BFT),0) AS TI09BFTWR, + ROUND(SUM(TI19BCB),0) AS TI19BCBRO, + ROUND(SUM(TI19BCT),0) AS TI19BCTRO, + ROUND(SUM(TI19BVB),0) AS TI19BVBRO, + ROUND(SUM(TI19BVT),0) AS TI19BVTRO, + ROUND(SUM(TI19BFB),0) AS TI19BFBRO, + ROUND(SUM(TI19BFT),0) AS TI19BFTRO, + ROUND(SUM(TI09BVB),0) AS TI09BVBRO, + ROUND(SUM(TI09BVT),0) AS TI09BVTRO, + ROUND(SUM(TI09BFB),0) AS TI09BFBRO, + ROUND(SUM(TI09BFT),0) AS TI09BFTRO, + ROUND(SUM(ROTN),0) AS ROTN + FROM JC2007 WHERE an*12+luna between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF <> + Endtext + ** [ FROM VJC2007 WHERE AN = ?gnAn AND LUNA= ?gnLuna ] + gcCondSucursala + + lcCursor = [crsJC] + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crsJC + Go Top + pn18B = Nvl(cebcb, 0) + Nvl(cebvb, 0) + Nvl(cebfb, 0) && 19% + pn18T = Nvl(cebct, 0) + Nvl(cebvt, 0) + Nvl(cebft, 0) + pn181B = pn18B + pn181T = pn18T + pn5B = pn18B + pn5T = pn18T + pn51B = pn181B + pn51T = pn181T + + *** rd.19 = rd.6 + *** Regularizari privind achizi_iile intracomunitare de bunuri pentru care cumparatorul este obligat la plata TVA (taxare inversa) (rd.19=rd.6) + pn19B = Nvl(ce20b, 0) + Nvl(ce24b, 0) + pn19T = Nvl(ce20t, 0) + Nvl(ce24t, 0) + pn6B = pn19B + pn6T = pn19T + + *** Achizi_ii de bunuri, altele decat cele de la rd. 18 ºi 19, si achizitii de servicii pentru care beneficiarul din Romania este obligat la plata TVA (taxare + *** inversa) (rd.20=rd.7), din care + pn20B = Nvl(CE19SB, 0) + pn20T = Nvl(CE19ST, 0) + pn7B = pn20B + pn7T = pn20T + + *** Achizitii de servicii intracomunitare pentru care beneficiarul este obligat la plata TVA (taxare inversa) (rd.20.1=rd.7.1) + pn201B = Nvl(CE19SB, 0) + pn201T = Nvl(CE19ST, 0) + pn71B = pn201B + pn71T = pn201T + + *** Regularizari privind achizitii de servicii intracomunitare pentru care beneficiarul din Romania este obligat la plata TVA (taxare inversa)(rd.21=rd.8) + pn21B = Nvl(CE24SB, 0) + Nvl(CE20SB, 0) + Nvl(CE9SB, 0) + Nvl(CE5SB, 0) + pn21T = Nvl(CE24ST, 0) + Nvl(CE20ST, 0) + Nvl(CE9ST, 0) + Nvl(CE5ST, 0) + pn8B = pn21B + pn8T = pn21T + + *** Achizi_ii de bunuri ºi servicii taxabile cu cota de 19%, altele decat cele de la rd.25 + && scad tva exigibil din operatiile cu data act in afara perioadei de declarare. le pun pe regularizari, rd. 32 + pn22B = Nvl(ro19bcb, 0) + Nvl(ro19bvb, 0) + Nvl(ro19bfb, 0) + Nvl(fo19bcb, 0) + Nvl(fo19bvb, 0) + Nvl(fo19bfb, 0) - Nvl(ro19br, 0) + pn22T = Nvl(ro19bct, 0) + Nvl(ro19bvt, 0) + Nvl(ro19bft, 0) + Nvl(fo19bct, 0) + Nvl(fo19bvt, 0) + Nvl(fo19bft, 0) - Nvl(ro19tr, 0) + + *** Achizi_ii de bunuri ºi servicii taxabile cu cota de 9% + pn23B = Nvl(ro09bcb, 0) + Nvl(ro09bvb, 0) + Nvl(ro09bfb, 0) + Nvl(fo09bcb, 0) + Nvl(fo09bvb, 0) + Nvl(fo09bfb, 0) - Nvl(ro09br, 0) + pn23T = Nvl(ro09bct, 0) + Nvl(ro09bvt, 0) + Nvl(ro09bft, 0) + Nvl(fo09bct, 0) + Nvl(fo09bvt, 0) + Nvl(fo09bft, 0) - Nvl(ro09tr, 0) + + *** Achizi_ii de bunuri taxabile cu cota de 5% + pn24B = Nvl(ro05b, 0) - Nvl(ro05br, 0) + pn24T = Nvl(ro05t, 0) - Nvl(ro05tr, 0) + + *** Achizi_ii de bunuri ºi servicii supuse masurilor de simplificare pentru care beneficiarul este obligat la plata TVA (taxare inversa),din care (rd.25=rd.12) + pn25B = Nvl(ti24b, 0) + Nvl(ti20b, 0) + Nvl(ti19bcbro, 0) + Nvl(ti19bvbro, 0) + Nvl(ti19bfbro, 0) + Nvl(ti09bvbro, 0) + Nvl(ti09bfbro, 0) && ACH. TI + pn25T = Nvl(ti24t, 0) + Nvl(ti20t, 0) + Nvl(ti19bctro, 0) + Nvl(ti19bvtro, 0) + Nvl(ti19bftro, 0) + Nvl(ti09bvtro, 0) + Nvl(ti09bftro, 0) + pn12B = pn25B + pn12T = pn25T + + pn251B = Nvl(ti19bcbro, 0) + Nvl(ti19bvbro, 0) + Nvl(ti19bfbro, 0) && ACH. TI 19% + pn251T = Nvl(ti19bctro, 0) + Nvl(ti19bctro, 0) + Nvl(ti19bvtro, 0) + Nvl(ti19bftro, 0) + pn121B = pn251B + pn121T = pn251T + + pn252B = Nvl(ti09bvbro, 0) + Nvl(ti09bfbro, 0) && && ACH. TI 9% + pn252T = Nvl(ti09bvtro, 0) + Nvl(ti09bftro, 0) + pn122B = pn252B + pn122T = pn252T + + pn253B = 0 && ACH. TI 5% - NU AM EXPLICATIE TVA PENTRU TI 5%. AR TREBUI ADAUGATA + pn253T = 0 + pn123B = pn253B + pn123T = pn253T + + *** Achizi_ii de bunuri ºi servicii scutite de taxa sau neimpozabile, din care + pn28B = Nvl(roscn, 0) + Nvl(cebvsc, 0) + Nvl(cebvn, 0) + Nvl(cebfsc, 0) + Nvl(cebfn, 0) + Nvl(foscn, 0) && Achizi_ii de bunuri ºi servicii scutite de taxa sau neimpozabile + pn281B = Nvl(cebvsc, 0) + Nvl(cebfsc, 0) && Achizitii de servicii intracomunitare scutite de taxa + + *** Regularizari taxa dedusa + pn32B = Nvl(ro20b, 0) + Nvl(ro24b, 0) + Nvl(fo20b, 0) + Nvl(fo24b, 0) + Nvl(ti24b, 0) + Nvl(ti20b, 0) + Nvl(ro19br, 0) + Nvl(ro09br, 0) + Nvl(ro05br, 0) + pn32T = Nvl(ro20t, 0) + Nvl(ro24t, 0) + Nvl(fo20t, 0) + Nvl(fo24t, 0) + Nvl(ti24b, 0) + Nvl(ti20b, 0) + Nvl(ro19tr, 0) + Nvl(ro09tr, 0) + Nvl(ro05tr, 0) + + lnROTN = Nvl(ROTN, 0) && && LIMITARE DEDUCERE TVA 4426 ID_JTVA = 1001 + + Select cDecont + Locate For Alltrim(Rand) = '18' + If Found() + Replace valoare With pn18B, TVA With pn18T + Endif + + Locate For Alltrim(Rand) = '18.1' + If Found() + Replace valoare With pn181B, TVA With pn181T + Endif + + Locate For Alltrim(Rand) = '5' + If Found() + Replace valoare With pn5B, TVA With pn5T + Endif + + Locate For Alltrim(Rand) = '5.1' + If Found() + Replace valoare With pn51B, TVA With pn51T + Endif + + Locate For Alltrim(Rand) = '19' + If Found() + Replace valoare With pn19B, TVA With pn19T + Endif + + Locate For Alltrim(Rand) = '6' + If Found() + Replace valoare With pn6B, TVA With pn6T + Endif + + Locate For Alltrim(Rand) = '20' + If Found() + Replace valoare With pn20B, TVA With pn20T + Endif + + Locate For Alltrim(Rand) = '20.1' + If Found() + Replace valoare With pn201B, TVA With pn201T + Endif + + Locate For Alltrim(Rand) = '7' + If Found() + Replace valoare With pn7B, TVA With pn7T + Endif + + Locate For Alltrim(Rand) = '7.1' + If Found() + Replace valoare With pn71B, TVA With pn71T + Endif + + Locate For Alltrim(Rand) = '21' + If Found() + Replace valoare With pn21B, TVA With pn21T + Endif + + Locate For Alltrim(Rand) = '8' + If Found() + Replace valoare With pn8B, TVA With pn8T + Endif + + Locate For Alltrim(Rand) = '22' + If Found() + Replace valoare With pn22B, TVA With pn22T + Endif + + Locate For Alltrim(Rand) = '23' + If Found() + Replace valoare With pn23B, TVA With pn23T + Endif + + Locate For Alltrim(Rand) = '24' + If Found() + Replace valoare With pn24B, TVA With pn24T + Endif + + Locate For Alltrim(Rand) = '25' + If Found() + Replace valoare With pn25B, TVA With pn25T + Endif + + Locate For Alltrim(Rand) = '25.1' + If Found() + Replace valoare With pn251B, TVA With pn251T + Endif + + Locate For Alltrim(Rand) = '25.2' + If Found() + Replace valoare With pn252B, TVA With pn252T + Endif + + Locate For Alltrim(Rand) = '25.3' + If Found() + Replace valoare With pn253B, TVA With pn253T + Endif + + Locate For Alltrim(Rand) = '12' + If Found() + Replace valoare With pn12B, TVA With pn12T + Endif + + Locate For Alltrim(Rand) = '12.1' + If Found() + Replace valoare With pn121B, TVA With pn121T + Endif + + Locate For Alltrim(Rand) = '12.2' + If Found() + Replace valoare With pn122B, TVA With pn122T + Endif + + Locate For Alltrim(Rand) = '12.3' + If Found() + Replace valoare With pn123B, TVA With pn123T + Endif + + Locate For Alltrim(Rand) = '28' + If Found() + Replace valoare With pn28B + Endif + + Locate For Alltrim(Rand) = '28.1' + If Found() + Replace valoare With pn281B + Endif + + *!* REGULARIZARE + Locate For Alltrim(Rand) = '32' + If Found() + Replace valoare With pn32B, TVA With pn32T + Endif + + *** Rd. 40 Soldul sumei negative a TVA reportate din perioada precedenta pentru care nu s-a solicitat rambursare (rd.44 din decontul perioadei fiscale precedente) + lcSql = [SELECT solddeb ] + ; + [ from vbal ] + ; + [ where cont = 4424 ] + ; + [ and AN = ?pnAnPrec AND LUNA= ?pnLunaPrec] + gcCondSucursala + + + lcCursor = [crsTR] && TVA de recuperat + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crsTR + lnTR = solddeb + + Select cDecont + Locate For Alltrim(Rand) = '40' + If Found() + Replace TVA With lnTR + Endif + + If Used('crsTR') + Use In crsTR + Endif + + *** Rd. 37 Soldul TVA de plata din decontul perioadei fiscale precedente (rd.43 din decontul perioadei fiscale precedente) neachitate pana la data depunerii decontului de TVA + Text To lcSql Textmerge Noshow + SELECT NVL(soldcred,0) as soldcred + from vbal + where cont = '4423' and AN = ?pnAnPrec AND LUNA = ?pnLunaPrec + <> + Endtext + + lcCursor = [crsTP] && nu si-au platit tva din luna precedenta + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crsTP + lnTP = soldcred + + Use In (Select('crsTP')) + + Text To lcSql Textmerge Noshow + select nvl(sum(suma),0) as suma + from act + where an = ?gnAn and luna between ?pnLunaI and ?pnLunaF + and sters = 0 + and scd = '4423' and scc In ('5121', '5311') + <> + Endtext + + lcCursor = [crsPlati] + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crsPlati + lnPlati = suma + + Use In (Select('crsPlati')) + + lnTP = Max(m.lnTP - m.lnPlati, 0) + + Select cDecont + Locate For Alltrim(Rand) = '37' + If Found() + Replace TVA With Nvl(m.lnTP, 0) + Endif + + *** Regularizari + lcSql = [select sum(suma) as suma, id_jtva_coloana from act ] + ; + [where sters = 0 and id_jtva_coloana in (1002, 1003) and ] + ; + [an*12+luna between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF ] + m.gcCondSucursala + ; + [ group by id_jtva_coloana order by id_jtva_coloana] + lcCursor = [crsRegTaxe] + If goExecutor.oExecuta(lcSql, lcCursor) + Select (lcCursor) + Scan + lnSuma = suma + lcRand = Iif(id_jtva_coloana = 1003, '32', '16') + Select cDecont + Replace TVA With TVA - lnSuma For Rand = lcRand + Select (lcCursor) + Endscan + Endif + Use In (Select(lcCursor)) + + *** SOLD NEEXIGIBIL + Text To lcSql Noshow Textmerge + select sum(RO24NB+RO20NB+RO19NB+RO9NB+RO5NB) as bazan, sum(RO24NT+RO20NT+RO19NT+RO9NT+RO5NT) as tvan + from vjc2010 + where an = ?gnAn and luna = ?pnLunaF <> + Endtext + llSucces = goExecutor.oExecuta(m.lcSql, "cNeexTemp") + If m.llSucces + pnAchizitieBazaN = Round(bazan, 0) + pnAchizitieTVAN = Round(tvan, 0) + Endif + Use In (Select('cNeexTemp')) + + * sold neexigibil doar de la facturile din ultimele 6 luni, inclusiv luna de raportare + Text To lcSql Noshow Textmerge + select sum(RO24NB+RO20NB+RO19NB+RO9NB+RO5NB) as bazan, sum(RO24NT+RO20NT+RO19NT+RO9NT+RO5NT) as tvan + from vjc2010 + where an = ?gnAn and luna = ?pnLunaF and (extract(year from dataact) * 12 + extract(month from dataact) > ?gnan*12+?pnLunaF-6) <> + Endtext + llSucces = goExecutor.oExecuta(m.lcSql, "cNeexTemp") + If m.llSucces + pnAchizitieBaza6N = Round(bazan, 0) + pnAchizitieTVA6N = Round(tvan, 0) + Endif + Use In (Select('cNeexTemp')) + + + Text To lcSql Noshow Textmerge + select sum(RO24NB+RO20NB+RO19NB+RO9NB+RO5NB) as bazan, sum(RO24NT+RO20NT+RO19NT+RO9NT+RO5NT) as tvan + from vjv2010 + where an = ?gnAn and luna = ?pnLunaF <> + Endtext + llSucces = goExecutor.oExecuta(m.lcSql, "cNeexTemp") + If m.llSucces + pnLivrareBazaN = Round(bazan, 0) + pnLivrareTVAN = Round(tvan, 0) + Endif + Use In (Select('cNeexTemp')) + + * sold neexigibil doar de la facturile din ultimele 6 luni, inclusiv luna de raportare + Text To lcSql Noshow Textmerge + select sum(RO24NB+RO20NB+RO19NB+RO9NB+RO5NB) as bazan, sum(RO24NT+RO20NT+RO19NT+RO9NT+RO5NT) as tvan + from vjv2010 + where an = ?gnAn and luna = ?pnLunaF and (extract(year from dataact) * 12 + extract(month from dataact) > ?gnan*12+?pnLunaF-6) <> + Endtext + llSucces = goExecutor.oExecuta(m.lcSql, "cNeexTemp") + If m.llSucces + pnLivrareBaza6N = Round(bazan, 0) + pnLivrareTVA6N = Round(tvan, 0) + Endif + Use In (Select('cNeexTemp')) + + Select cDecont + Do Case + Case m.gnAn < 2016 + lodt = Createobject('frm_decontTVA', m.tnNumarLuni) + Case m.gnAn = 2016 + lodt = Createobject('frm_decontTVA_201601', m.tnNumarLuni) && s-au mai adaugat 2 campuri la sfarsit - sold livrari/ach. neex pt livrari in ultimele 6 luni + Otherwise && 2017 + lodt = Createobject('frm_decontTVA_201701', m.tnNumarLuni) && la fel ca 2016, lblRandAtentie + Endcase + lodt.nROTN = m.lnROTN && LIMITARE DEDUCERE TVA 4426 ID_JTVA = 1001 + lodt.lblRandAtentie.Caption = lodt.lblRandAtentie.Caption + ' (' + Alltrim(Str(m.lnROTN)) + ' lei)' + lodt.Show(1) +Endproc && viz_decontTVA_0117 + +*=========================================== +*!* 01.01.2016 TVA 20% +Procedure viz_decontTVA_0116 + Lparameters tnNumarLuni + *Parameters tlTrim + + *** tnNumarLuni: 1 = o luna, 3 = 3 luni trimestrial, 6 = 6 luni semestrial, 12 = 12 luni anual + + Private pnLunaI, pnLunaF, pnLunaPrec, pnAnPrec + + Local lodt As 'frm_decontTVA' + Local lcCursor, lcSql, ldDataCurenta, ldDataPrecedenta, lnAnCurent, lnAnPrecedent, lnLunaCurenta + Local lnLunaMin, lnLunaPrecedenta, lnPerioada, lnPlati, lnSucces, lnTP, lnTR, loEx As Exception, lnROTN + *:Global pn10B, pn10T, pn11B, pn11T, pn13B, pn14B, pn15B, pn171B, pn171T, pn17B, pn17T, pn1911B + *:Global pn1911T, pn191B, pn191T, pn19B, pn19T, pn1B, pn21B, pn21T, pn22B, pn22T, pn23B, pn23T + *:Global pn241B, pn24B, pn31B, pn3B, pn51B, pn51T, pn5B, pn5T, pn711B, pn711T, pn71B, pn71T, pn7B + *:Global pn7T, pn9B, pn9T, pnRegularizareB, pnRegularizareT + + lnAnCurent = m.gnAn + lnLunaCurenta = m.gnLuna + ldDataCurenta = Date(m.lnAnCurent, m.lnLunaCurenta, 1) + lnROTN = 0 + + * Luna de inceput a perioadei + * 1 = gnLuna + * 3 = 1,4,7,10 + * 6 = 1,7 + * 12 = 1 + lnPerioada = Ceil(m.lnLunaCurenta / tnNumarLuni) + lnLunaMin = (lnPerioada - 1) * tnNumarLuni + 1 + + *** luna pentru balanta precedenta + ldDataPrecedenta = Gomonth(Date(m.lnAnCurent, m.lnLunaMin, 1), -1) + lnLunaPrecedenta = Month(m.ldDataPrecedenta) + lnAnPrecedent = Year(m.ldDataPrecedenta) + && ---- + pnLunaI = lnLunaMin + pnLunaF = m.lnLunaCurenta + + pnLunaPrec = m.lnLunaPrecedenta + pnAnPrec = m.lnAnPrecedent + + Private poDecont + Store '' To poDecont + + Private pnProRata, pnAchizitieBazaN, pnAchizitieTVAN, pnLivrareBazaN, pnLivrareTVAN, pnAchizitieBaza6N, pnAchizitieTVA6N, pnLivrareBaza6N, pnLivrareTVA6N + pnProRata = 100 + pnAchizitieBazaN = 0 + pnAchizitieTVAN = 0 + pnLivrareBazaN = 0 + pnLivrareTVAN = 0 + pnAchizitieBaza6N = 0 + pnAchizitieTVA6N = 0 + pnLivrareBaza6N = 0 + pnLivrareTVA6N = 0 + + Local lcSchema1, lcSelect1, lcOrder1, lcFiltru1, lcFiltruOriginal, llAfiseaza + lcSchema1 = [] + + && schimbare cota TVA standard de la 24% la 20% + If gnAn < 2016 + lcSql = [select d.*, 00000000000 as valoare, 00000000000 as tva from decontTVA d ] + ; + [where valabil = '0113' order by id_decont] + Else + lcSql = [select d.*, 00000000000 as valoare, 00000000000 as tva from decontTVA d ] + ; + [where valabil = '0116' order by id_decont] + Endif + lcCursor = [cDecont] + + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + + lcSql = [SELECT ROUND(SUM(RO19B),0) AS RO19B, ] + ; + [ ROUND(SUM(RO19T),0) AS RO19T, ] + ; + [ ROUND(SUM(RO9B),0) AS RO9B, ] + ; + [ ROUND(SUM(RO9T),0) AS RO9T,] + ; + [ ROUND(SUM(RO5B),0) AS RO5B, ] + ; + [ ROUND(SUM(RO5T),0) AS RO5T, ] + ; + [ ROUND(SUM(RO20B),0) AS RO20B, ] + ; + [ ROUND(SUM(RO20T),0) AS RO20T,] + ; + [ ROUND(SUM(RO24B),0) AS RO24B, ] + ; + [ ROUND(SUM(RO24T),0) AS RO24T,] + ; + [ ROUND(SUM(ROTI),0) AS ROTI, ] + ; + [ ROUND(SUM(CESCDD1),0) AS CESCDD1,] + ; + [ ROUND(SUM(CESCDD2),0) AS CESCDD2,] + ; + [ ROUND(SUM(CEOPTR),0) AS CEOPTR,] + ; + [ ROUND(SUM(CESVDD),0) AS CESVDD,] + ; + [ ROUND(SUM(CESVFDD),0) AS CESVFDD,] + ; + [ ROUND(SUM(CESVFS),0) AS CESVFS,] + ; + [ ROUND(SUM(WRSCDD),0) AS WRSCDD, ] + ; + [ ROUND(SUM(FODD),0) AS FODD, ] + ; + [ ROUND(SUM(FOFDD),0) AS FOFDD, ] + ; + [ ROUND(SUM(CEOPTR),0) AS CEOPTR, ] + ; + [ ROUND(SUM(CESVDD),0) AS CESVDD, ] + ; + [ ROUND(SUM(CESVFDD),0) AS CESVFDD, ] + ; + [ ROUND(SUM(CESVFS),0) AS CESVFS, ] + ; + [ ROUND(SUM(WRSCFDD),0) AS WRSCFDD,] + ; + [ ROUND(SUM(WRN),0) AS WRN FROM JV2007 ] + ; + [ WHERE an*12+luna between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF ] + gcCondSucursala + && [ WHERE AN = ?gnAn AND LUNA= ?gnLuna ] + gcCondSucursala + + + lcCursor = [crsJV] + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crsJV + Go Top + pn1B = Nvl(cescdd1, 0) + Nvl(ceoptr, 0) + pn3B = Nvl(cescdd2, 0) + Nvl(fodd, 0) + Nvl(fofdd, 0) + Nvl(cesvdd, 0) + Nvl(cesvfdd, 0) + Nvl(cesvfs, 0) + Nvl(cesvfs, 0) + pn31B = Nvl(cesvfs, 0) + + pn9B = Nvl(ro20b, 0) + pn9T = Nvl(ro20t, 0) + pn10B = Nvl(ro9b, 0) + pn10T = Nvl(ro9t, 0) + pn11B = Nvl(ro5b, 0) + pn11T = Nvl(ro5t, 0) + pnRegularizareB = Nvl(ro19b, 0) + Nvl(ro24b, 0) + pnRegularizareT = Nvl(ro19t, 0) + Nvl(ro24t, 0) + + pn13B = Nvl(roti, 0) + pn14B = Nvl(wrscdd, 0) + + pn15B = Nvl(wrscfdd, 0) + + *!* *** LIVRARI D394 + *!* pn171B = Nvl(loD394.livb + loD394.livtib,0) + *!* pn171T = Nvl(loD394.livt + loD394.livtit,0) + + Select cDecont + Locate For Alltrim(Rand) = '1' + If Found() + Replace valoare With pn1B + Endif + + Locate For Alltrim(Rand) = '3' + If Found() + Replace valoare With pn3B + Endif + + Locate For Alltrim(Rand) = '3.1' + If Found() + Replace valoare With pn31B + Endif + + Locate For Alltrim(Rand) = '9' + If Found() + Replace valoare With pn9B, TVA With pn9T + Endif + + Locate For Alltrim(Rand) = '10' + If Found() + Replace valoare With pn10B, TVA With pn10T + Endif + + Locate For Alltrim(Rand) = '11' + If Found() + Replace valoare With pn11B, TVA With pn11T + Endif + + Locate For Alltrim(Rand) = '13' + If Found() + Replace valoare With pn13B + Endif + + Locate For Alltrim(Rand) = '14' + If Found() + Replace valoare With pn14B + Endif + + Locate For Alltrim(Rand) = '15' + If Found() + Replace valoare With pn15B + Endif + + *!* REGULARIZARE 19% + Locate For Alltrim(Rand) = '16' + If Found() + Replace valoare With pnRegularizareB, TVA With pnRegularizareT + Endif + + *!* *!* LIVRARI INTERNE CATRE CLIENTI PLATITORI TVA IN ROMANIA (LIVRARI D394) + *!* Locate For Alltrim(Rand) = '17.1' + *!* If Found() + *!* Replace valoare With pn171B, TVA With pn171T + *!* Endif + + + lcSql = [SELECT Round(Sum(RO24B),0) As RO24B, ] + ; + [ Round(Sum(RO24T),0) As RO24T, ] + ; + [ ROUND(SUM(RO20B),0) AS RO20B, ] + ; + [ ROUND(SUM(RO20T),0) AS RO20T, ] + ; + [ ROUND(SUM(RO19BCB),0) AS RO19BCB, ] + ; + [ ROUND(SUM(RO19BCT),0) AS RO19BCT, ] + ; + [ ROUND(SUM(RO19BVB),0) AS RO19BVB, ] + ; + [ ROUND(SUM(RO19BVT),0) AS RO19BVT, ] + ; + [ ROUND(SUM(RO19BFB),0) AS RO19BFB, ] + ; + [ ROUND(SUM(RO19BFT),0) AS RO19BFT, ] + ; + [ ROUND(SUM(RO09BCB),0) AS RO09BCB, ] + ; + [ ROUND(SUM(RO09BCT),0) AS RO09BCT, ] + ; + [ ROUND(SUM(RO09BVB),0) AS RO09BVB, ] + ; + [ ROUND(SUM(RO09BVT),0) AS RO09BVT, ] + ; + [ ROUND(SUM(RO09BFB),0) AS RO09BFB, ] + ; + [ ROUND(SUM(RO09BFT),0) AS RO09BFT, ] + ; + [ ROUND(SUM(RO05B),0) AS RO05B, ] + ; + [ ROUND(SUM(RO05T),0) AS RO05T, ] + ; + [ ROUND(SUM(ROSCN),0) AS ROSCN, ] + ; + [ Round(Sum(FO24B),0) As FO24B, ] + ; + [ Round(Sum(FO24T),0) As FO24T, ] + ; + [ Round(Sum(FO20B),0) As FO20B, ] + ; + [ Round(Sum(FO20T),0) As FO20T, ] + ; + [ ROUND(SUM(FO19BCB),0) AS FO19BCB, ] + ; + [ ROUND(SUM(FO19BCT),0) AS FO19BCT, ] + ; + [ ROUND(SUM(FO19BVB),0) AS FO19BVB, ] + ; + [ ROUND(SUM(FO19BVT),0) AS FO19BVT, ] + ; + [ ROUND(SUM(FO19BFB),0) AS FO19BFB, ] + ; + [ ROUND(SUM(FO19BFT),0) AS FO19BFT, ] + ; + [ ROUND(SUM(FO09BCB),0) AS FO09BCB, ] + ; + [ ROUND(SUM(FO09BCT),0) AS FO09BCT, ] + ; + [ ROUND(SUM(FO09BVB),0) AS FO09BVB, ] + ; + [ ROUND(SUM(FO09BVT),0) AS FO09BVT, ] + ; + [ ROUND(SUM(FO09BFB),0) AS FO09BFB, ] + ; + [ ROUND(SUM(FO09BFT),0) AS FO09BFT, ] + ; + [ ROUND(SUM(FOSCN),0) AS FOSCN, ] + ; + [ Round(Sum(CE24B),0) As CE24B, ] + ; + [ Round(Sum(CE24T),0) As CE24T, ] + ; + [ Round(Sum(CE20B),0) As CE20B, ] + ; + [ Round(Sum(CE20T),0) As CE20T, ] + ; + [ Round(Sum(CE24SB),0) As CE24SB, ] + ; + [ Round(Sum(CE24ST),0) As CE24ST, ] + ; + [ Round(Sum(CE20SB),0) As CE20SB, ] + ; + [ Round(Sum(CE20ST),0) As CE20ST, ] + ; + [ Round(Sum(CE5SB),0) As CE5SB, ] + ; + [ Round(Sum(CE5ST),0) As CE5ST, ] + ; + [ Round(Sum(CE9SB),0) As CE9SB, ] + ; + [ Round(Sum(CE9ST),0) As CE9ST, ] + ; + [ ROUND(SUM(CEBCB),0) AS CEBCB, ] + ; + [ ROUND(SUM(CEBCT),0) AS CEBCT, ] + ; + [ ROUND(SUM(CEBVB),0) AS CEBVB, ] + ; + [ ROUND(SUM(CEBVT),0) AS CEBVT, ] + ; + [ ROUND(SUM(CEBVSC),0) AS CEBVSC, ] + ; + [ ROUND(SUM(CEBVN),0) AS CEBVN, ] + ; + [ ROUND(SUM(CEBFB),0) AS CEBFB, ] + ; + [ ROUND(SUM(CEBFT),0) AS CEBFT, ] + ; + [ ROUND(SUM(CEBFSC),0) AS CEBFSC, ] + ; + [ ROUND(SUM(CEBFN),0) AS CEBFN, ] + ; + [ Round(Sum(TI24B), 0) As TI24B, ] + ; + [ Round(Sum(TI24T), 0) As TI24T, ] + ; + [ Round(Sum(TI20B), 0) As TI20B, ] + ; + [ Round(Sum(TI20T), 0) As TI20T, ] + ; + [ ROUND(SUM(TI19BCB),0) AS TI19BCBWR, ] + ; + [ ROUND(SUM(TI19BCT),0) AS TI19BCTWR, ] + ; + [ ROUND(SUM(TI19BVB),0) AS TI19BVBWR, ] + ; + [ ROUND(SUM(TI19BVT),0) AS TI19BVTWR, ] + ; + [ ROUND(SUM(TI19BFB),0) AS TI19BFBWR, ] + ; + [ ROUND(SUM(TI19BFT),0) AS TI19BFTWR, ] + ; + [ ROUND(SUM(TI09BVB),0) AS TI09BVBWR, ] + ; + [ ROUND(SUM(TI09BVT),0) AS TI09BVTWR, ] + ; + [ ROUND(SUM(TI09BFB),0) AS TI09BFBWR, ] + ; + [ ROUND(SUM(TI09BFT),0) AS TI09BFTWR, ] + ; + [ ROUND(SUM(TI19BCB),0) AS TI19BCBRO, ] + ; + [ ROUND(SUM(TI19BCT),0) AS TI19BCTRO, ] + ; + [ ROUND(SUM(TI19BVB),0) AS TI19BVBRO, ] + ; + [ ROUND(SUM(TI19BVT),0) AS TI19BVTRO, ] + ; + [ ROUND(SUM(TI19BFB),0) AS TI19BFBRO, ] + ; + [ ROUND(SUM(TI19BFT),0) AS TI19BFTRO, ] + ; + [ ROUND(SUM(TI09BVB),0) AS TI09BVBRO, ] + ; + [ ROUND(SUM(TI09BVT),0) AS TI09BVTRO, ] + ; + [ ROUND(SUM(TI09BFB),0) AS TI09BFBRO, ] + ; + [ ROUND(SUM(TI09BFT),0) AS TI09BFTRO, ] + ; + [ ROUND(SUM(ROTN),0) AS ROTN ] + ; + [ FROM JC2007 WHERE an*12+luna between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF ] + gcCondSucursala + ** [ FROM VJC2007 WHERE AN = ?gnAn AND LUNA= ?gnLuna ] + gcCondSucursala + + lcCursor = [crsJC] + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crsJC + Go Top + pn18B = Nvl(cebcb, 0) + Nvl(cebvb, 0) + Nvl(cebfb, 0) + Nvl(ce20b, 0) + Nvl(ce24b, 0) + pn18T = Nvl(cebct, 0) + Nvl(cebvt, 0) + Nvl(cebft, 0) + Nvl(ce20t, 0) + Nvl(ce24t, 0) + pn181B = pn18B + pn181T = pn18T + pn5B = pn18B + pn5T = pn18T + pn51B = pn181B + pn51T = pn181T + + pn22B = Nvl(ro20b, 0) + Nvl(fo20b, 0) && Nvl(ro24b, 0) + Nvl(fo24b, 0) + pn22T = Nvl(ro20t, 0) + Nvl(fo20t, 0) && Nvl(ro24t, 0) + Nvl(fo24t, 0) + + pn23B = Nvl(ro09bcb, 0) + Nvl(ro09bvb, 0) + Nvl(ro09bfb, 0) + Nvl(fo09bcb, 0) + Nvl(fo09bvb, 0) + Nvl(fo09bfb, 0) + pn23T = Nvl(ro09bct, 0) + Nvl(ro09bvt, 0) + Nvl(ro09bft, 0) + Nvl(fo09bct, 0) + Nvl(fo09bvt, 0) + Nvl(fo09bft, 0) + + pn24B = Nvl(ro05b, 0) + pn24T = Nvl(ro05t, 0) + + pn25B = Nvl(ti24b, 0) + Nvl(ti20b, 0) + Nvl(ti09bvbro, 0) + Nvl(ti09bfbro, 0) && ACH. TI + pn25T = Nvl(ti24t, 0) + Nvl(ti20t, 0) + Nvl(ti09bvtro, 0) + Nvl(ti09bftro, 0) + pn12B = pn25B + pn12T = pn25T + + pn251B = Nvl(ti20b, 0) && ACH. TI 20% + pn251T = Nvl(ti20t, 0) + pn121B = pn251B + pn121T = pn251T + + pn252B = Nvl(ti09bvbro, 0) + Nvl(ti09bfbro, 0) && && ACH. TI 9% + pn252T = Nvl(ti09bvtro, 0) + Nvl(ti09bftro, 0) + pn122B = pn252B + pn122T = pn252T + + pn253B = 0 && ACH. TI 5% - NU AM EXPLICATIE TVA PENTRU TI 5%. AR TREBUI ADAUGATA + pn253T = 0 + pn123B = pn253B + pn123T = pn253T + + pn26B = Nvl(roscn, 0) + Nvl(cebvsc, 0) + Nvl(cebvn, 0) + Nvl(cebfsc, 0) + Nvl(cebfn, 0) + Nvl(foscn, 0) + pn261B = Nvl(cebvsc, 0) + Nvl(cebfsc, 0) + + *** rd.19=rd.6 ??? + pnRegularizareB = Nvl(ro19bcb, 0) + Nvl(ro19bvb, 0) + Nvl(ro19bfb, 0) + Nvl(ro24b, 0) + Nvl(fo19bcb, 0) + Nvl(fo19bvb, 0) + Nvl(fo19bfb, 0) + Nvl(fo24b, 0) + pnRegularizareT = Nvl(ro19bct, 0) + Nvl(ro19bvt, 0) + Nvl(ro19bft, 0) + Nvl(ro24t, 0) + Nvl(fo19bct, 0) + Nvl(fo19bvt, 0) + Nvl(fo19bft, 0) + Nvl(fo24t, 0) + + + pn20B = Nvl(CE20SB, 0) + Nvl(CE24SB, 0) + Nvl(CE9SB, 0) + Nvl(CE5SB, 0) + pn20T = Nvl(CE20ST, 0) + Nvl(CE24ST, 0) + Nvl(CE9ST, 0) + Nvl(CE5ST, 0) + pn201B = Nvl(CE20SB, 0) + Nvl(CE24SB, 0) + Nvl(CE9SB, 0) + Nvl(CE5SB, 0) + pn201T = Nvl(CE20ST, 0) + Nvl(CE24ST, 0) + Nvl(CE9ST, 0) + Nvl(CE5ST, 0) + pn7B = pn20B + pn7T = pn20T + pn71B = pn201B + pn71T = pn201T + + *!* *** ACHIZITII D394 + *!* pn271B = Nvl(loD394.achb + loD394.achtib,0) + *!* pn271T = Nvl(loD394.acht + loD394.achtit,0) + + lnROTN = Nvl(ROTN, 0) && && LIMITARE DEDUCERE TVA 4426 ID_JTVA = 1001 + + pnRegularizareB = pnRegularizareB + Nvl(ti19bcbwr, 0) + Nvl(ti19bvbwr, 0) + Nvl(ti19bfbwr, 0) + Nvl(ti09bvbwr, 0) + Nvl(ti09bfbwr, 0) + pnRegularizareT = pnRegularizareT + Nvl(ti19bctwr, 0) + Nvl(ti19bvtwr, 0) + Nvl(ti19bftwr, 0) + Nvl(ti09bvtwr, 0) + Nvl(ti09bftwr, 0) + + Select cDecont + Locate For Alltrim(Rand) = '18' + If Found() + Replace valoare With pn18B, TVA With pn18T + Endif + + Locate For Alltrim(Rand) = '18.1' + If Found() + Replace valoare With pn181B, TVA With pn181T + Endif + + Locate For Alltrim(Rand) = '5' + If Found() + Replace valoare With pn5B, TVA With pn5T + Endif + + Locate For Alltrim(Rand) = '5.1' + If Found() + Replace valoare With pn51B, TVA With pn51T + Endif + + Locate For Alltrim(Rand) = '20' + If Found() + Replace valoare With pn20B, TVA With pn20T + Endif + + Locate For Alltrim(Rand) = '20.1' + If Found() + Replace valoare With pn201B, TVA With pn201T + Endif + + Locate For Alltrim(Rand) = '7' + If Found() + Replace valoare With pn7B, TVA With pn7T + Endif + + Locate For Alltrim(Rand) = '7.1' + If Found() + Replace valoare With pn71B, TVA With pn71T + Endif + + Locate For Alltrim(Rand) = '22' + If Found() + Replace valoare With pn22B, TVA With pn22T + Endif + + Locate For Alltrim(Rand) = '23' + If Found() + Replace valoare With pn23B, TVA With pn23T + Endif + + Locate For Alltrim(Rand) = '24' + If Found() + Replace valoare With pn24B, TVA With pn24T + Endif + + Locate For Alltrim(Rand) = '25' + If Found() + Replace valoare With pn25B, TVA With pn25T + Endif + + Locate For Alltrim(Rand) = '25.1' + If Found() + Replace valoare With pn251B, TVA With pn251T + Endif + + Locate For Alltrim(Rand) = '25.2' + If Found() + Replace valoare With pn252B, TVA With pn252T + Endif + + Locate For Alltrim(Rand) = '25.3' + If Found() + Replace valoare With pn253B, TVA With pn253T + Endif + + Locate For Alltrim(Rand) = '12' + If Found() + Replace valoare With pn12B, TVA With pn12T + Endif + + Locate For Alltrim(Rand) = '12.1' + If Found() + Replace valoare With pn121B, TVA With pn121T + Endif + + Locate For Alltrim(Rand) = '12.2' + If Found() + Replace valoare With pn122B, TVA With pn122T + Endif + + Locate For Alltrim(Rand) = '12.3' + If Found() + Replace valoare With pn123B, TVA With pn123T + Endif + + Locate For Alltrim(Rand) = '26' + If Found() + Replace valoare With pn26B + Endif + + Locate For Alltrim(Rand) = '26.1' + If Found() + Replace valoare With pn261B + Endif + + *!* Locate For Alltrim(Rand) = '27.1' + *!* If Found() + *!* Replace valoare With pn271B, TVA WITH pn271T + *!* Endif + + *!* REGULARIZARE 19% + Locate For Alltrim(Rand) = '30' + If Found() + Replace valoare With pnRegularizareB, TVA With pnRegularizareT + Endif + + lcSql = [SELECT solddeb ] + ; + [ from vbal ] + ; + [ where cont = 4424 ] + ; + [ and AN = ?pnAnPrec AND LUNA= ?pnLunaPrec] + gcCondSucursala + + + lcCursor = [crsTR] && TVA de recuperat + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crsTR + lnTR = solddeb + + Select cDecont + Locate For Alltrim(Rand) = '38' + If Found() + Replace TVA With lnTR + Endif + + If Used('crsTR') + Use In crsTR + Endif + + + ***---- + Text To lcSql Textmerge Noshow + SELECT NVL(soldcred,0) as soldcred + from vbal + where cont = '4423' and + AN = ?pnAnPrec AND LUNA = ?pnLunaPrec + <> + Endtext + + lcCursor = [crsTP] && nu si-au platit tva din luna precedenta + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crsTP + lnTP = soldcred + + Use In (Select('crsTP')) + + Text To lcSql Textmerge Noshow + select nvl(sum(suma),0) as suma + from act + where an = ?gnAn + and luna between ?pnLunaI and ?pnLunaF + and sters = 0 + and scd = '4423' and scc In ('5121', '5311') + <> + Endtext + + lcCursor = [crsPlati] + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crsPlati + lnPlati = suma + + Use In (Select('crsPlati')) + + lnTP = Max(m.lnTP - m.lnPlati, 0) + + Select cDecont + Locate For Alltrim(Rand) = '35' + If Found() + Replace TVA With Nvl(m.lnTP, 0) + Endif + + lcSql = [select sum(suma) as suma, id_jtva_coloana from act ] + ; + [where sters = 0 and id_jtva_coloana in (1002, 1003) and ] + ; + [an*12+luna between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF ] + gcCondSucursala + ; + [ group by id_jtva_coloana order by id_jtva_coloana] + lcCursor = [crsRegTaxe] + If goExecutor.oExecuta(lcSql, lcCursor) + Select (lcCursor) + Scan + lnSuma = suma + lcRand = Iif(id_jtva_coloana = 1003, '30', '16') + Select cDecont + Replace TVA With TVA - lnSuma For Rand = lcRand + Select (lcCursor) + Endscan + Endif + Use In (Select(lcCursor)) + + *** SOLD NEEXIGIBIL + Text To lcSql Noshow Textmerge + select sum(RO24NB+RO20NB+RO9NB+RO5NB) as bazan, sum(RO24NT+RO20NT+RO9NT+RO5NT) as tvan + from vjc2010 + where an = ?gnAn and luna = ?pnLunaF <> + Endtext + llSucces = goExecutor.oExecuta(m.lcSql, "cNeexTemp") + If m.llSucces + pnAchizitieBazaN = Round(bazan, 0) + pnAchizitieTVAN = Round(tvan, 0) + Endif + Use In (Select('cNeexTemp')) + + * sold neexigibil doar de la facturile din ultimele 6 luni, inclusiv luna de raportare + Text To lcSql Noshow Textmerge + select sum(RO24NB+RO20NB+RO9NB+RO5NB) as bazan, sum(RO24NT+RO20NT+RO9NT+RO5NT) as tvan + from vjc2010 + where an = ?gnAn and luna = ?pnLunaF and (extract(year from dataact) * 12 + extract(month from dataact) > ?gnan*12+?pnLunaF-6) <> + Endtext + llSucces = goExecutor.oExecuta(m.lcSql, "cNeexTemp") + If m.llSucces + pnAchizitieBaza6N = Round(bazan, 0) + pnAchizitieTVA6N = Round(tvan, 0) + Endif + Use In (Select('cNeexTemp')) + + + Text To lcSql Noshow Textmerge + select sum(RO24NB+RO20NB+RO9NB+RO5NB) as bazan, sum(RO24NT+RO20NT+RO9NT+RO5NT) as tvan + from vjv2010 + where an = ?gnAn and luna = ?pnLunaF <> + Endtext + llSucces = goExecutor.oExecuta(m.lcSql, "cNeexTemp") + If m.llSucces + pnLivrareBazaN = Round(bazan, 0) + pnLivrareTVAN = Round(tvan, 0) + Endif + Use In (Select('cNeexTemp')) + + * sold neexigibil doar de la facturile din ultimele 6 luni, inclusiv luna de raportare + Text To lcSql Noshow Textmerge + select sum(RO24NB+RO20NB+RO9NB+RO5NB) as bazan, sum(RO24NT+RO20NT+RO9NT+RO5NT) as tvan + from vjv2010 + where an = ?gnAn and luna = ?pnLunaF and (extract(year from dataact) * 12 + extract(month from dataact) > ?gnan*12+?pnLunaF-6) <> + Endtext + llSucces = goExecutor.oExecuta(m.lcSql, "cNeexTemp") + If m.llSucces + pnLivrareBaza6N = Round(bazan, 0) + pnLivrareTVA6N = Round(tvan, 0) + Endif + Use In (Select('cNeexTemp')) + + Select cDecont + If gnAn < 2016 + lodt = Createobject('frm_decontTVA', m.tnNumarLuni) + Else + lodt = Createobject('frm_decontTVA_201601', m.tnNumarLuni) && s-au mai adaugat 2 campuri la sfarsit - sold livrari/ach. neex pt livrari in ultimele 6 luni + Endif + lodt.nROTN = m.lnROTN && LIMITARE DEDUCERE TVA 4426 ID_JTVA = 1001 + lodt.lblRand28.Caption = lodt.lblRand28.Caption + ' (' + Alltrim(Str(m.lnROTN)) + ' lei)' + lodt.Show(1) +Endproc && viz_decontTVA_0116 + + +*=========================================== +*!* 19.02.2013 +*!* TVA INCASARE +Procedure viz_decontTVA_0113 + Lparameters tnNumarLuni + *Parameters tlTrim + + *** tnNumarLuni: 1 = o luna, 3 = 3 luni trimestrial, 6 = 6 luni semestrial, 12 = 12 luni anual + + Private pnLunaI, pnLunaF, pnLunaPrec, pnAnPrec + + Local lodt As 'frm_decontTVA' + Local lcCursor, lcSql, ldDataCurenta, ldDataPrecedenta, lnAnCurent, lnAnPrecedent, lnLunaCurenta + Local lnLunaMin, lnLunaPrecedenta, lnPerioada, lnPlati, lnSucces, lnTP, lnTR, loEx As Exception, lnROTN + *:Global pn10B, pn10T, pn11B, pn11T, pn13B, pn14B, pn15B, pn171B, pn171T, pn17B, pn17T, pn1911B + *:Global pn1911T, pn191B, pn191T, pn19B, pn19T, pn1B, pn21B, pn21T, pn22B, pn22T, pn23B, pn23T + *:Global pn241B, pn24B, pn31B, pn3B, pn51B, pn51T, pn5B, pn5T, pn711B, pn711T, pn71B, pn71T, pn7B + *:Global pn7T, pn9B, pn9T, pnRegularizareB, pnRegularizareT + + lnAnCurent = m.gnAn + lnLunaCurenta = m.gnLuna + ldDataCurenta = Date(m.lnAnCurent, m.lnLunaCurenta, 1) + lnROTN = 0 + + * Luna de inceput a perioadei + * 1 = gnLuna + * 3 = 1,4,7,10 + * 6 = 1,7 + * 12 = 1 + lnPerioada = Ceil(m.lnLunaCurenta / tnNumarLuni) + lnLunaMin = (lnPerioada - 1) * tnNumarLuni + 1 + + *** luna pentru balanta precedenta + ldDataPrecedenta = Gomonth(Date(m.lnAnCurent, m.lnLunaMin, 1), -1) + lnLunaPrecedenta = Month(m.ldDataPrecedenta) + lnAnPrecedent = Year(m.ldDataPrecedenta) + && ---- + pnLunaI = lnLunaMin + pnLunaF = m.lnLunaCurenta + + pnLunaPrec = m.lnLunaPrecedenta + pnAnPrec = m.lnAnPrecedent + + Private poDecont + Store '' To poDecont + + Private pnProRata, pnAchizitieBazaN, pnAchizitieTVAN, pnLivrareBazaN, pnLivrareTVAN + pnProRata = 100 + pnAchizitieBazaN = 0 + pnAchizitieTVAN = 0 + pnLivrareBazaN = 0 + pnLivrareTVAN = 0 + + Local lcSchema1, lcSelect1, lcOrder1, lcFiltru1, lcFiltruOriginal, llAfiseaza + lcSchema1 = [] + + lcSql = [select d.*, 00000000000 as valoare, 00000000000 as tva from decontTVA d ] + ; + [where valabil = '0113' order by id_decont] + lcCursor = [cDecont] + + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + + lcSql = [SELECT ROUND(SUM(RO19B),0) AS RO19B, ] + ; + [ ROUND(SUM(RO19T),0) AS RO19T, ] + ; + [ ROUND(SUM(RO9B),0) AS RO9B, ] + ; + [ ROUND(SUM(RO9T),0) AS RO9T,] + ; + [ ROUND(SUM(RO5B),0) AS RO5B, ] + ; + [ ROUND(SUM(RO5T),0) AS RO5T, ] + ; + [ ROUND(SUM(RO24B),0) AS RO24B, ] + ; + [ ROUND(SUM(RO24T),0) AS RO24T,] + ; + [ ROUND(SUM(ROTI),0) AS ROTI, ] + ; + [ ROUND(SUM(CESCDD1),0) AS CESCDD1,] + ; + [ ROUND(SUM(CESCDD2),0) AS CESCDD2,] + ; + [ ROUND(SUM(CEOPTR),0) AS CEOPTR,] + ; + [ ROUND(SUM(CESVDD),0) AS CESVDD,] + ; + [ ROUND(SUM(CESVFDD),0) AS CESVFDD,] + ; + [ ROUND(SUM(CESVFS),0) AS CESVFS,] + ; + [ ROUND(SUM(WRSCDD),0) AS WRSCDD, ] + ; + [ ROUND(SUM(FODD),0) AS FODD, ] + ; + [ ROUND(SUM(FOFDD),0) AS FOFDD, ] + ; + [ ROUND(SUM(CEOPTR),0) AS CEOPTR, ] + ; + [ ROUND(SUM(CESVDD),0) AS CESVDD, ] + ; + [ ROUND(SUM(CESVFDD),0) AS CESVFDD, ] + ; + [ ROUND(SUM(CESVFS),0) AS CESVFS, ] + ; + [ ROUND(SUM(WRSCFDD),0) AS WRSCFDD,] + ; + [ ROUND(SUM(WRN),0) AS WRN FROM JV2007 ] + ; + [ WHERE an*12+luna between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF ] + gcCondSucursala + && [ WHERE AN = ?gnAn AND LUNA= ?gnLuna ] + gcCondSucursala + + + lcCursor = [crsJV] + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crsJV + Go Top + pn1B = Nvl(cescdd1, 0) + Nvl(ceoptr, 0) + pn3B = Nvl(cescdd2, 0) + Nvl(fodd, 0) + Nvl(fofdd, 0) + Nvl(cesvdd, 0) + Nvl(cesvfdd, 0) + Nvl(cesvfs, 0) + Nvl(cesvfs, 0) + pn31B = Nvl(cesvfs, 0) + + pn9B = Nvl(ro24b, 0) + pn9T = Nvl(ro24t, 0) + pn10B = Nvl(ro9b, 0) + pn10T = Nvl(ro9t, 0) + pn11B = Nvl(ro5b, 0) + pn11T = Nvl(ro5t, 0) + pnRegularizareB = Nvl(ro19b, 0) + pnRegularizareT = Nvl(ro19t, 0) + + pn13B = Nvl(roti, 0) + pn14B = Nvl(wrscdd, 0) + + pn15B = Nvl(wrscfdd, 0) + + *!* *** LIVRARI D394 + *!* pn171B = Nvl(loD394.livb + loD394.livtib,0) + *!* pn171T = Nvl(loD394.livt + loD394.livtit,0) + + Select cDecont + Locate For Alltrim(Rand) = '1' + If Found() + Replace valoare With pn1B + Endif + + Locate For Alltrim(Rand) = '3' + If Found() + Replace valoare With pn3B + Endif + + Locate For Alltrim(Rand) = '3.1' + If Found() + Replace valoare With pn31B + Endif + + Locate For Alltrim(Rand) = '9' + If Found() + Replace valoare With pn9B, TVA With pn9T + Endif + + Locate For Alltrim(Rand) = '10' + If Found() + Replace valoare With pn10B, TVA With pn10T + Endif + + Locate For Alltrim(Rand) = '11' + If Found() + Replace valoare With pn11B, TVA With pn11T + Endif + + Locate For Alltrim(Rand) = '13' + If Found() + Replace valoare With pn13B + Endif + + Locate For Alltrim(Rand) = '14' + If Found() + Replace valoare With pn14B + Endif + + Locate For Alltrim(Rand) = '15' + If Found() + Replace valoare With pn15B + Endif + + *!* REGULARIZARE 19% + Locate For Alltrim(Rand) = '16' + If Found() + Replace valoare With pnRegularizareB, TVA With pnRegularizareT + Endif + + *!* *!* LIVRARI INTERNE CATRE CLIENTI PLATITORI TVA IN ROMANIA (LIVRARI D394) + *!* Locate For Alltrim(Rand) = '17.1' + *!* If Found() + *!* Replace valoare With pn171B, TVA With pn171T + *!* Endif + + + lcSql = [SELECT Round(Sum(RO24B),0) As RO24B, ] + ; + [ Round(Sum(RO24T),0) As RO24T, ] + ; + [ ROUND(SUM(RO19BCB),0) AS RO19BCB, ] + ; + [ ROUND(SUM(RO19BCT),0) AS RO19BCT, ] + ; + [ ROUND(SUM(RO19BVB),0) AS RO19BVB, ] + ; + [ ROUND(SUM(RO19BVT),0) AS RO19BVT, ] + ; + [ ROUND(SUM(RO19BFB),0) AS RO19BFB, ] + ; + [ ROUND(SUM(RO19BFT),0) AS RO19BFT, ] + ; + [ ROUND(SUM(RO09BCB),0) AS RO09BCB, ] + ; + [ ROUND(SUM(RO09BCT),0) AS RO09BCT, ] + ; + [ ROUND(SUM(RO09BVB),0) AS RO09BVB, ] + ; + [ ROUND(SUM(RO09BVT),0) AS RO09BVT, ] + ; + [ ROUND(SUM(RO09BFB),0) AS RO09BFB, ] + ; + [ ROUND(SUM(RO09BFT),0) AS RO09BFT, ] + ; + [ ROUND(SUM(RO05B),0) AS RO05B, ] + ; + [ ROUND(SUM(RO05T),0) AS RO05T, ] + ; + [ ROUND(SUM(ROSCN),0) AS ROSCN, ] + ; + [ Round(Sum(FO24B),0) As FO24B, ] + ; + [ Round(Sum(FO24T),0) As FO24T, ] + ; + [ ROUND(SUM(FO19BCB),0) AS FO19BCB, ] + ; + [ ROUND(SUM(FO19BCT),0) AS FO19BCT, ] + ; + [ ROUND(SUM(FO19BVB),0) AS FO19BVB, ] + ; + [ ROUND(SUM(FO19BVT),0) AS FO19BVT, ] + ; + [ ROUND(SUM(FO19BFB),0) AS FO19BFB, ] + ; + [ ROUND(SUM(FO19BFT),0) AS FO19BFT, ] + ; + [ ROUND(SUM(FO09BCB),0) AS FO09BCB, ] + ; + [ ROUND(SUM(FO09BCT),0) AS FO09BCT, ] + ; + [ ROUND(SUM(FO09BVB),0) AS FO09BVB, ] + ; + [ ROUND(SUM(FO09BVT),0) AS FO09BVT, ] + ; + [ ROUND(SUM(FO09BFB),0) AS FO09BFB, ] + ; + [ ROUND(SUM(FO09BFT),0) AS FO09BFT, ] + ; + [ ROUND(SUM(FOSCN),0) AS FOSCN, ] + ; + [ Round(Sum(CE24B),0) As CE24B, ] + ; + [ Round(Sum(CE24T),0) As CE24T, ] + ; + [ Round(Sum(CE24SB),0) As CE24SB, ] + ; + [ Round(Sum(CE24ST),0) As CE24ST, ] + ; + [ Round(Sum(CE5SB),0) As CE5SB, ] + ; + [ Round(Sum(CE5ST),0) As CE5ST, ] + ; + [ Round(Sum(CE9SB),0) As CE9SB, ] + ; + [ Round(Sum(CE9ST),0) As CE9ST, ] + ; + [ ROUND(SUM(CEBCB),0) AS CEBCB, ] + ; + [ ROUND(SUM(CEBCT),0) AS CEBCT, ] + ; + [ ROUND(SUM(CEBVB),0) AS CEBVB, ] + ; + [ ROUND(SUM(CEBVT),0) AS CEBVT, ] + ; + [ ROUND(SUM(CEBVSC),0) AS CEBVSC, ] + ; + [ ROUND(SUM(CEBVN),0) AS CEBVN, ] + ; + [ ROUND(SUM(CEBFB),0) AS CEBFB, ] + ; + [ ROUND(SUM(CEBFT),0) AS CEBFT, ] + ; + [ ROUND(SUM(CEBFSC),0) AS CEBFSC, ] + ; + [ ROUND(SUM(CEBFN),0) AS CEBFN, ] + ; + [ Round(Sum(TI24B), 0) As TI24B, ] + ; + [ Round(Sum(TI24T), 0) As TI24T, ] + ; + [ ROUND(SUM(TI19BCB),0) AS TI19BCBWR, ] + ; + [ ROUND(SUM(TI19BCT),0) AS TI19BCTWR, ] + ; + [ ROUND(SUM(TI19BVB),0) AS TI19BVBWR, ] + ; + [ ROUND(SUM(TI19BVT),0) AS TI19BVTWR, ] + ; + [ ROUND(SUM(TI19BFB),0) AS TI19BFBWR, ] + ; + [ ROUND(SUM(TI19BFT),0) AS TI19BFTWR, ] + ; + [ ROUND(SUM(TI09BVB),0) AS TI09BVBWR, ] + ; + [ ROUND(SUM(TI09BVT),0) AS TI09BVTWR, ] + ; + [ ROUND(SUM(TI09BFB),0) AS TI09BFBWR, ] + ; + [ ROUND(SUM(TI09BFT),0) AS TI09BFTWR, ] + ; + [ ROUND(SUM(TI19BCB),0) AS TI19BCBRO, ] + ; + [ ROUND(SUM(TI19BCT),0) AS TI19BCTRO, ] + ; + [ ROUND(SUM(TI19BVB),0) AS TI19BVBRO, ] + ; + [ ROUND(SUM(TI19BVT),0) AS TI19BVTRO, ] + ; + [ ROUND(SUM(TI19BFB),0) AS TI19BFBRO, ] + ; + [ ROUND(SUM(TI19BFT),0) AS TI19BFTRO, ] + ; + [ ROUND(SUM(TI09BVB),0) AS TI09BVBRO, ] + ; + [ ROUND(SUM(TI09BVT),0) AS TI09BVTRO, ] + ; + [ ROUND(SUM(TI09BFB),0) AS TI09BFBRO, ] + ; + [ ROUND(SUM(TI09BFT),0) AS TI09BFTRO, ] + ; + [ ROUND(SUM(ROTN),0) AS ROTN ] + ; + [ FROM JC2007 WHERE an*12+luna between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF ] + gcCondSucursala + ** [ FROM VJC2007 WHERE AN = ?gnAn AND LUNA= ?gnLuna ] + gcCondSucursala + + lcCursor = [crsJC] + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crsJC + Go Top + pn18B = Nvl(cebcb, 0) + Nvl(cebvb, 0) + Nvl(cebfb, 0) + Nvl(ce24b, 0) + pn18T = Nvl(cebct, 0) + Nvl(cebvt, 0) + Nvl(cebft, 0) + Nvl(ce24t, 0) + pn181B = pn18B + pn181T = pn18T + pn5B = pn18B + pn5T = pn18T + pn51B = pn181B + pn51T = pn181T + + pn22B = Nvl(ro24b, 0) + Nvl(fo24b, 0) + pn22T = Nvl(ro24t, 0) + Nvl(fo24t, 0) + + pn23B = Nvl(ro09bcb, 0) + Nvl(ro09bvb, 0) + Nvl(ro09bfb, 0) + Nvl(fo09bcb, 0) + Nvl(fo09bvb, 0) + Nvl(fo09bfb, 0) + pn23T = Nvl(ro09bct, 0) + Nvl(ro09bvt, 0) + Nvl(ro09bft, 0) + Nvl(fo09bct, 0) + Nvl(fo09bvt, 0) + Nvl(fo09bft, 0) + + pn24B = Nvl(ro05b, 0) + pn24T = Nvl(ro05t, 0) + + pn25B = Nvl(ti24b, 0) + Nvl(ti09bvbro, 0) + Nvl(ti09bfbro, 0) + pn25T = Nvl(ti24t, 0) + Nvl(ti09bvtro, 0) + Nvl(ti09bftro, 0) + pn12B = pn25B + pn12T = pn25T + pn26B = Nvl(roscn, 0) + Nvl(cebvsc, 0) + Nvl(cebvn, 0) + Nvl(cebfsc, 0) + Nvl(cebfn, 0) + Nvl(foscn, 0) + pn261B = Nvl(cebvsc, 0) + Nvl(cebfsc, 0) + + *** rd.19=rd.6 ??? + pnRegularizareB = Nvl(ro19bcb, 0) + Nvl(ro19bvb, 0) + Nvl(ro19bfb, 0) + Nvl(fo19bcb, 0) + Nvl(fo19bvb, 0) + Nvl(fo19bfb, 0) + pnRegularizareT = Nvl(ro19bct, 0) + Nvl(ro19bvt, 0) + Nvl(ro19bft, 0) + Nvl(fo19bct, 0) + Nvl(fo19bvt, 0) + Nvl(fo19bft, 0) + + + pn20B = Nvl(CE24SB, 0) + Nvl(CE9SB, 0) + Nvl(CE5SB, 0) + pn20T = Nvl(CE24ST, 0) + Nvl(CE9ST, 0) + Nvl(CE5ST, 0) + pn201B = Nvl(CE24SB, 0) + Nvl(CE9SB, 0) + Nvl(CE5SB, 0) + pn201T = Nvl(CE24ST, 0) + Nvl(CE9ST, 0) + Nvl(CE5ST, 0) + pn7B = pn20B + pn7T = pn20T + pn71B = pn201B + pn71T = pn201T + + *!* *** ACHIZITII D394 + *!* pn271B = Nvl(loD394.achb + loD394.achtib,0) + *!* pn271T = Nvl(loD394.acht + loD394.achtit,0) + + lnROTN = Nvl(ROTN, 0) && && LIMITARE DEDUCERE TVA 4426 ID_JTVA = 1001 + + pnRegularizareB = pnRegularizareB + Nvl(ti19bcbwr, 0) + Nvl(ti19bvbwr, 0) + Nvl(ti19bfbwr, 0) + Nvl(ti09bvbwr, 0) + Nvl(ti09bfbwr, 0) + pnRegularizareT = pnRegularizareT + Nvl(ti19bctwr, 0) + Nvl(ti19bvtwr, 0) + Nvl(ti19bftwr, 0) + Nvl(ti09bvtwr, 0) + Nvl(ti09bftwr, 0) + + Select cDecont + Locate For Alltrim(Rand) = '18' + If Found() + Replace valoare With pn18B, TVA With pn18T + Endif + + Locate For Alltrim(Rand) = '18.1' + If Found() + Replace valoare With pn181B, TVA With pn181T + Endif + + Locate For Alltrim(Rand) = '5' + If Found() + Replace valoare With pn5B, TVA With pn5T + Endif + + Locate For Alltrim(Rand) = '5.1' + If Found() + Replace valoare With pn51B, TVA With pn51T + Endif + + Locate For Alltrim(Rand) = '20' + If Found() + Replace valoare With pn20B, TVA With pn20T + Endif + + Locate For Alltrim(Rand) = '20.1' + If Found() + Replace valoare With pn201B, TVA With pn201T + Endif + + Locate For Alltrim(Rand) = '7' + If Found() + Replace valoare With pn7B, TVA With pn7T + Endif + + Locate For Alltrim(Rand) = '7.1' + If Found() + Replace valoare With pn71B, TVA With pn71T + Endif + + Locate For Alltrim(Rand) = '22' + If Found() + Replace valoare With pn22B, TVA With pn22T + Endif + + Locate For Alltrim(Rand) = '23' + If Found() + Replace valoare With pn23B, TVA With pn23T + Endif + + Locate For Alltrim(Rand) = '24' + If Found() + Replace valoare With pn24B, TVA With pn24T + Endif + + Locate For Alltrim(Rand) = '25' + If Found() + Replace valoare With pn25B, TVA With pn25T + Endif + + Locate For Alltrim(Rand) = '12' + If Found() + Replace valoare With pn12B, TVA With pn12T + Endif + + Locate For Alltrim(Rand) = '26' + If Found() + Replace valoare With pn26B + Endif + + Locate For Alltrim(Rand) = '26.1' + If Found() + Replace valoare With pn261B + Endif + + *!* Locate For Alltrim(Rand) = '27.1' + *!* If Found() + *!* Replace valoare With pn271B, TVA WITH pn271T + *!* Endif + + *!* REGULARIZARE 19% + Locate For Alltrim(Rand) = '30' + If Found() + Replace valoare With pnRegularizareB, TVA With pnRegularizareT + Endif + + lcSql = [SELECT solddeb ] + ; + [ from vbal ] + ; + [ where cont = 4424 ] + ; + [ and AN = ?pnAnPrec AND LUNA= ?pnLunaPrec] + gcCondSucursala + + + lcCursor = [crsTR] && TVA de recuperat + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crsTR + lnTR = solddeb + + Select cDecont + Locate For Alltrim(Rand) = '38' + If Found() + Replace TVA With lnTR + Endif + + If Used('crsTR') + Use In crsTR + Endif + + + ***---- + Text To lcSql Textmerge Noshow + SELECT NVL(soldcred,0) as soldcred + from vbal + where cont = '4423' and + AN = ?pnAnPrec AND LUNA = ?pnLunaPrec + <> + Endtext + + lcCursor = [crsTP] && nu si-au platit tva din luna precedenta + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crsTP + lnTP = soldcred + + Use In (Select('crsTP')) + + Text To lcSql Textmerge Noshow + select nvl(sum(suma),0) as suma + from act + where an = ?gnAn + and luna between ?pnLunaI and ?pnLunaF + and sters = 0 + and scd = '4423' and scc In ('5121', '5311') + <> + Endtext + + lcCursor = [crsPlati] + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crsPlati + lnPlati = suma + + Use In (Select('crsPlati')) + + lnTP = Max(m.lnTP - m.lnPlati, 0) + + Select cDecont + Locate For Alltrim(Rand) = '35' + If Found() + Replace TVA With Nvl(m.lnTP, 0) + Endif + + lcSql = [select sum(suma) as suma, id_jtva_coloana from act ] + ; + [where sters = 0 and id_jtva_coloana in (1002, 1003) and ] + ; + [an*12+luna between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF ] + gcCondSucursala + ; + [ group by id_jtva_coloana order by id_jtva_coloana] + lcCursor = [crsRegTaxe] + If goExecutor.oExecuta(lcSql, lcCursor) + Select (lcCursor) + Scan + lnSuma = suma + lcRand = Iif(id_jtva_coloana = 1003, '30', '16') + Select cDecont + Replace TVA With TVA - lnSuma For Rand = lcRand + Select (lcCursor) + Endscan + Endif + Use In (Select(lcCursor)) + + *** SOLD NEEXIGIBIL + Text To lcSql Noshow Textmerge + select sum(RO24NB+RO9NB+RO5NB) as bazan, sum(RO24NT+RO9NT+RO5NT) as tvan + from vjc2010 + where an = ?gnAn and luna = ?pnLunaF <> + Endtext + llSucces = goExecutor.oExecuta(m.lcSql, "cNeexTemp") + If m.llSucces + pnAchizitieBazaN = Round(bazan, 0) + pnAchizitieTVAN = Round(tvan, 0) + Endif + Use In (Select('cNeexTemp')) + + Text To lcSql Noshow Textmerge + select sum(RO24NB+RO9NB+RO5NB) as bazan, sum(RO24NT+RO9NT+RO5NT) as tvan + from vjv2010 + where an = ?gnAn and luna = ?pnLunaF <> + Endtext + llSucces = goExecutor.oExecuta(m.lcSql, "cNeexTemp") + If m.llSucces + pnLivrareBazaN = Round(bazan, 0) + pnLivrareTVAN = Round(tvan, 0) + Endif + Use In (Select('cNeexTemp')) + + + Select cDecont + lodt = Createobject('frm_decontTVA', m.tnNumarLuni) + lodt.nROTN = m.lnROTN && LIMITARE DEDUCERE TVA 4426 ID_JTVA = 1001 + lodt.lblRand28.Caption = lodt.lblRand28.Caption + ' (' + Alltrim(Str(m.lnROTN)) + ' lei)' + lodt.Show(1) +Endproc && viz_decontTVA_0113 + + +*=========================================== +*!* 08.02.2012 +*!* CORELARE D394, CEREALE +Procedure viz_decontTVA_0112 + Lparameters tnNumarLuni + *Parameters tlTrim + + *** tnNumarLuni: 1 = o luna, 3 = 3 luni trimestrial, 6 = 6 luni semestrial, 12 = 12 luni anual + + Private pnLunaI, pnLunaF, pnLunaPrec, pnAnPrec + + Local lodt As 'frm_decontTVA' + Local lcCursor, lcSql, ldDataCurenta, ldDataPrecedenta, lnAnCurent, lnAnPrecedent, lnLunaCurenta + Local lnLunaMin, lnLunaPrecedenta, lnPerioada, lnPlati, lnSucces, lnTP, lnTR, loEx As Exception, lnROTN + *:Global pn10B, pn10T, pn11B, pn11T, pn13B, pn14B, pn15B, pn171B, pn171T, pn17B, pn17T, pn1911B + *:Global pn1911T, pn191B, pn191T, pn19B, pn19T, pn1B, pn21B, pn21T, pn22B, pn22T, pn23B, pn23T + *:Global pn241B, pn24B, pn31B, pn3B, pn51B, pn51T, pn5B, pn5T, pn711B, pn711T, pn71B, pn71T, pn7B + *:Global pn7T, pn9B, pn9T, pnRegularizareB, pnRegularizareT + + lnAnCurent = m.gnAn + lnLunaCurenta = m.gnLuna + ldDataCurenta = Date(m.lnAnCurent, m.lnLunaCurenta, 1) + lnROTN = 0 + + * Luna de inceput a perioadei + * 1 = gnLuna + * 3 = 1,4,7,10 + * 6 = 1,7 + * 12 = 1 + lnPerioada = Ceil(m.lnLunaCurenta / tnNumarLuni) + lnLunaMin = (lnPerioada - 1) * tnNumarLuni + 1 + + *** luna pentru balanta precedenta + ldDataPrecedenta = Gomonth(Date(m.lnAnCurent, m.lnLunaMin, 1), -1) + lnLunaPrecedenta = Month(m.ldDataPrecedenta) + lnAnPrecedent = Year(m.ldDataPrecedenta) + && ---- + pnLunaI = lnLunaMin + pnLunaF = m.lnLunaCurenta + + pnLunaPrec = m.lnLunaPrecedenta + pnAnPrec = m.lnAnPrecedent + + Private poDecont + Store '' To poDecont + + Private pnProRata + pnProRata = 100 + Local lcSchema1, lcSelect1, lcOrder1, lcFiltru1, lcFiltruOriginal, llAfiseaza + lcSchema1 = [] + + lcSql = [select d.*, 00000000000 as valoare, 00000000000 as tva from decontTVA d ] + ; + [where valabil = '0112' order by id_decont] + lcCursor = [cDecont] + + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + *** D394 + *** randurile 17.1 si 27.1 (facturi livrari si achizitii din RO catre persoane juridice platitoare de TVA) + Local loD394 As "D394" + Try + loD394 = Createobject("D394") && ovanzcump.vcx + loD394.do_executa(.T., m.tnNumarLuni) + Catch To loEx + loD394 = Createobject("custom") + loD394.AddProperty("livb", 0) + loD394.AddProperty("livt", 0) + loD394.AddProperty("livtib", 0) + loD394.AddProperty("livtit", 0) + loD394.AddProperty("achb", 0) + loD394.AddProperty("acht", 0) + loD394.AddProperty("achtib", 0) + loD394.AddProperty("achtit", 0) + loD394.AddProperty("Total", 0) + loD394.AddProperty("rectificativa", 0) + loD394.AddProperty("TIP", 'L') + loD394.AddProperty("Perioada", 1) + loD394.AddProperty("NumarCoduriFiscale", 0) + amessagebox('Eroare calcul D394 pentru randurile 17.1 si 27.1' + CRLF + loEx.Message + ' ' + Transform(loEx.ErrorNo), 0 + 48, _Screen.Caption) + Endtry + + + lcSql = [SELECT ROUND(SUM(RO19B),0) AS RO19B, ] + ; + [ ROUND(SUM(RO19T),0) AS RO19T, ] + ; + [ ROUND(SUM(RO9B),0) AS RO9B, ] + ; + [ ROUND(SUM(RO9T),0) AS RO9T,] + ; + [ ROUND(SUM(RO5B),0) AS RO5B, ] + ; + [ ROUND(SUM(RO5T),0) AS RO5T, ] + ; + [ ROUND(SUM(RO24B),0) AS RO24B, ] + ; + [ ROUND(SUM(RO24T),0) AS RO24T,] + ; + [ ROUND(SUM(ROTI),0) AS ROTI, ] + ; + [ ROUND(SUM(CESCDD1),0) AS CESCDD1,] + ; + [ ROUND(SUM(CESCDD2),0) AS CESCDD2,] + ; + [ ROUND(SUM(CEOPTR),0) AS CEOPTR,] + ; + [ ROUND(SUM(CESVDD),0) AS CESVDD,] + ; + [ ROUND(SUM(CESVFDD),0) AS CESVFDD,] + ; + [ ROUND(SUM(CESVFS),0) AS CESVFS,] + ; + [ ROUND(SUM(WRSCDD),0) AS WRSCDD, ] + ; + [ ROUND(SUM(FODD),0) AS FODD, ] + ; + [ ROUND(SUM(FOFDD),0) AS FOFDD, ] + ; + [ ROUND(SUM(CEOPTR),0) AS CEOPTR, ] + ; + [ ROUND(SUM(CESVDD),0) AS CESVDD, ] + ; + [ ROUND(SUM(CESVFDD),0) AS CESVFDD, ] + ; + [ ROUND(SUM(CESVFS),0) AS CESVFS, ] + ; + [ ROUND(SUM(WRSCFDD),0) AS WRSCFDD,] + ; + [ ROUND(SUM(WRN),0) AS WRN FROM JV2007 ] + ; + [ WHERE an*12+luna between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF ] + gcCondSucursala + && [ WHERE AN = ?gnAn AND LUNA= ?gnLuna ] + gcCondSucursala + + + lcCursor = [crsJV] + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crsJV + Go Top + pn1B = Nvl(cescdd1, 0) + Nvl(ceoptr, 0) + pn3B = Nvl(cescdd2, 0) + Nvl(fodd, 0) + Nvl(fofdd, 0) + Nvl(cesvdd, 0) + Nvl(cesvfdd, 0) + Nvl(cesvfs, 0) + Nvl(cesvfs, 0) + pn31B = Nvl(cesvfs, 0) + + pn9B = Nvl(ro24b, 0) + pn9T = Nvl(ro24t, 0) + pn10B = Nvl(ro9b, 0) + pn10T = Nvl(ro9t, 0) + pn11B = Nvl(ro5b, 0) + pn11T = Nvl(ro5t, 0) + pnRegularizareB = Nvl(ro19b, 0) + pnRegularizareT = Nvl(ro19t, 0) + + pn13B = Nvl(roti, 0) + pn14B = Nvl(wrscdd, 0) + + pn15B = Nvl(wrscfdd, 0) + + *** LIVRARI D394 + pn171B = Nvl(loD394.livb + loD394.livtib, 0) + pn171T = Nvl(loD394.livt + loD394.livtit, 0) + + Select cDecont + Locate For Alltrim(Rand) = '1' + If Found() + Replace valoare With pn1B + Endif + + Locate For Alltrim(Rand) = '3' + If Found() + Replace valoare With pn3B + Endif + + Locate For Alltrim(Rand) = '3.1' + If Found() + Replace valoare With pn31B + Endif + + Locate For Alltrim(Rand) = '9' + If Found() + Replace valoare With pn9B, TVA With pn9T + Endif + + Locate For Alltrim(Rand) = '10' + If Found() + Replace valoare With pn10B, TVA With pn10T + Endif + + Locate For Alltrim(Rand) = '11' + If Found() + Replace valoare With pn11B, TVA With pn11T + Endif + + Locate For Alltrim(Rand) = '13' + If Found() + Replace valoare With pn13B + Endif + + Locate For Alltrim(Rand) = '14' + If Found() + Replace valoare With pn14B + Endif + + Locate For Alltrim(Rand) = '15' + If Found() + Replace valoare With pn15B + Endif + + *!* REGULARIZARE 19% + Locate For Alltrim(Rand) = '16' + If Found() + Replace valoare With pnRegularizareB, TVA With pnRegularizareT + Endif + + *!* LIVRARI INTERNE CATRE CLIENTI PLATITORI TVA IN ROMANIA (LIVRARI D394) + Locate For Alltrim(Rand) = '17.1' + If Found() + Replace valoare With pn171B, TVA With pn171T + Endif + + + lcSql = [SELECT Round(Sum(RO24B),0) As RO24B, ] + ; + [ Round(Sum(RO24T),0) As RO24T, ] + ; + [ ROUND(SUM(RO19BCB),0) AS RO19BCB, ] + ; + [ ROUND(SUM(RO19BCT),0) AS RO19BCT, ] + ; + [ ROUND(SUM(RO19BVB),0) AS RO19BVB, ] + ; + [ ROUND(SUM(RO19BVT),0) AS RO19BVT, ] + ; + [ ROUND(SUM(RO19BFB),0) AS RO19BFB, ] + ; + [ ROUND(SUM(RO19BFT),0) AS RO19BFT, ] + ; + [ ROUND(SUM(RO09BCB),0) AS RO09BCB, ] + ; + [ ROUND(SUM(RO09BCT),0) AS RO09BCT, ] + ; + [ ROUND(SUM(RO09BVB),0) AS RO09BVB, ] + ; + [ ROUND(SUM(RO09BVT),0) AS RO09BVT, ] + ; + [ ROUND(SUM(RO09BFB),0) AS RO09BFB, ] + ; + [ ROUND(SUM(RO09BFT),0) AS RO09BFT, ] + ; + [ ROUND(SUM(RO05B),0) AS RO05B, ] + ; + [ ROUND(SUM(RO05T),0) AS RO05T, ] + ; + [ ROUND(SUM(ROSCN),0) AS ROSCN, ] + ; + [ Round(Sum(FO24B),0) As FO24B, ] + ; + [ Round(Sum(FO24T),0) As FO24T, ] + ; + [ ROUND(SUM(FO19BCB),0) AS FO19BCB, ] + ; + [ ROUND(SUM(FO19BCT),0) AS FO19BCT, ] + ; + [ ROUND(SUM(FO19BVB),0) AS FO19BVB, ] + ; + [ ROUND(SUM(FO19BVT),0) AS FO19BVT, ] + ; + [ ROUND(SUM(FO19BFB),0) AS FO19BFB, ] + ; + [ ROUND(SUM(FO19BFT),0) AS FO19BFT, ] + ; + [ ROUND(SUM(FO09BCB),0) AS FO09BCB, ] + ; + [ ROUND(SUM(FO09BCT),0) AS FO09BCT, ] + ; + [ ROUND(SUM(FO09BVB),0) AS FO09BVB, ] + ; + [ ROUND(SUM(FO09BVT),0) AS FO09BVT, ] + ; + [ ROUND(SUM(FO09BFB),0) AS FO09BFB, ] + ; + [ ROUND(SUM(FO09BFT),0) AS FO09BFT, ] + ; + [ ROUND(SUM(FOSCN),0) AS FOSCN, ] + ; + [ Round(Sum(CE24B),0) As CE24B, ] + ; + [ Round(Sum(CE24T),0) As CE24T, ] + ; + [ Round(Sum(CE24SB),0) As CE24SB, ] + ; + [ Round(Sum(CE24ST),0) As CE24ST, ] + ; + [ Round(Sum(CE5SB),0) As CE5SB, ] + ; + [ Round(Sum(CE5ST),0) As CE5ST, ] + ; + [ Round(Sum(CE9SB),0) As CE9SB, ] + ; + [ Round(Sum(CE9ST),0) As CE9ST, ] + ; + [ ROUND(SUM(CEBCB),0) AS CEBCB, ] + ; + [ ROUND(SUM(CEBCT),0) AS CEBCT, ] + ; + [ ROUND(SUM(CEBVB),0) AS CEBVB, ] + ; + [ ROUND(SUM(CEBVT),0) AS CEBVT, ] + ; + [ ROUND(SUM(CEBVSC),0) AS CEBVSC, ] + ; + [ ROUND(SUM(CEBVN),0) AS CEBVN, ] + ; + [ ROUND(SUM(CEBFB),0) AS CEBFB, ] + ; + [ ROUND(SUM(CEBFT),0) AS CEBFT, ] + ; + [ ROUND(SUM(CEBFSC),0) AS CEBFSC, ] + ; + [ ROUND(SUM(CEBFN),0) AS CEBFN, ] + ; + [ Round(Sum(TI24B), 0) As TI24B, ] + ; + [ Round(Sum(TI24T), 0) As TI24T, ] + ; + [ ROUND(SUM(TI19BCB),0) AS TI19BCBWR, ] + ; + [ ROUND(SUM(TI19BCT),0) AS TI19BCTWR, ] + ; + [ ROUND(SUM(TI19BVB),0) AS TI19BVBWR, ] + ; + [ ROUND(SUM(TI19BVT),0) AS TI19BVTWR, ] + ; + [ ROUND(SUM(TI19BFB),0) AS TI19BFBWR, ] + ; + [ ROUND(SUM(TI19BFT),0) AS TI19BFTWR, ] + ; + [ ROUND(SUM(TI09BVB),0) AS TI09BVBWR, ] + ; + [ ROUND(SUM(TI09BVT),0) AS TI09BVTWR, ] + ; + [ ROUND(SUM(TI09BFB),0) AS TI09BFBWR, ] + ; + [ ROUND(SUM(TI09BFT),0) AS TI09BFTWR, ] + ; + [ ROUND(SUM(TI19BCB),0) AS TI19BCBRO, ] + ; + [ ROUND(SUM(TI19BCT),0) AS TI19BCTRO, ] + ; + [ ROUND(SUM(TI19BVB),0) AS TI19BVBRO, ] + ; + [ ROUND(SUM(TI19BVT),0) AS TI19BVTRO, ] + ; + [ ROUND(SUM(TI19BFB),0) AS TI19BFBRO, ] + ; + [ ROUND(SUM(TI19BFT),0) AS TI19BFTRO, ] + ; + [ ROUND(SUM(TI09BVB),0) AS TI09BVBRO, ] + ; + [ ROUND(SUM(TI09BVT),0) AS TI09BVTRO, ] + ; + [ ROUND(SUM(TI09BFB),0) AS TI09BFBRO, ] + ; + [ ROUND(SUM(TI09BFT),0) AS TI09BFTRO, ] + ; + [ ROUND(SUM(ROTN),0) AS ROTN ] + ; + [ FROM JC2007 WHERE an*12+luna between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF ] + gcCondSucursala + ** [ FROM VJC2007 WHERE AN = ?gnAn AND LUNA= ?gnLuna ] + gcCondSucursala + + lcCursor = [crsJC] + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crsJC + Go Top + pn18B = Nvl(cebcb, 0) + Nvl(cebvb, 0) + Nvl(cebfb, 0) + Nvl(ce24b, 0) + pn18T = Nvl(cebct, 0) + Nvl(cebvt, 0) + Nvl(cebft, 0) + Nvl(ce24t, 0) + pn181B = pn18B + pn181T = pn18T + pn5B = pn18B + pn5T = pn18T + pn51B = pn181B + pn51T = pn181T + + pn22B = Nvl(ro24b, 0) + Nvl(fo24b, 0) + pn22T = Nvl(ro24t, 0) + Nvl(fo24t, 0) + + pn23B = Nvl(ro09bcb, 0) + Nvl(ro09bvb, 0) + Nvl(ro09bfb, 0) + Nvl(fo09bcb, 0) + Nvl(fo09bvb, 0) + Nvl(fo09bfb, 0) + pn23T = Nvl(ro09bct, 0) + Nvl(ro09bvt, 0) + Nvl(ro09bft, 0) + Nvl(fo09bct, 0) + Nvl(fo09bvt, 0) + Nvl(fo09bft, 0) + + pn24B = Nvl(ro05b, 0) + pn24T = Nvl(ro05t, 0) + + pn25B = Nvl(ti24b, 0) + Nvl(ti09bvbro, 0) + Nvl(ti09bfbro, 0) + pn25T = Nvl(ti24t, 0) + Nvl(ti09bvtro, 0) + Nvl(ti09bftro, 0) + pn12B = pn25B + pn12T = pn25T + pn26B = Nvl(roscn, 0) + Nvl(cebvsc, 0) + Nvl(cebvn, 0) + Nvl(cebfsc, 0) + Nvl(cebfn, 0) + Nvl(foscn, 0) + pn261B = Nvl(cebvsc, 0) + Nvl(cebfsc, 0) + + *** rd.19=rd.6 ??? + pnRegularizareB = Nvl(ro19bcb, 0) + Nvl(ro19bvb, 0) + Nvl(ro19bfb, 0) + Nvl(fo19bcb, 0) + Nvl(fo19bvb, 0) + Nvl(fo19bfb, 0) + pnRegularizareT = Nvl(ro19bct, 0) + Nvl(ro19bvt, 0) + Nvl(ro19bft, 0) + Nvl(fo19bct, 0) + Nvl(fo19bvt, 0) + Nvl(fo19bft, 0) + + + pn20B = Nvl(CE24SB, 0) + Nvl(CE9SB, 0) + Nvl(CE5SB, 0) + pn20T = Nvl(CE24ST, 0) + Nvl(CE9ST, 0) + Nvl(CE5ST, 0) + pn201B = Nvl(CE24SB, 0) + Nvl(CE9SB, 0) + Nvl(CE5SB, 0) + pn201T = Nvl(CE24ST, 0) + Nvl(CE9ST, 0) + Nvl(CE5ST, 0) + pn7B = pn20B + pn7T = pn20T + pn71B = pn201B + pn71T = pn201T + + *** ACHIZITII D394 + pn271B = Nvl(loD394.achb + loD394.achtib, 0) + pn271T = Nvl(loD394.acht + loD394.achtit, 0) + + lnROTN = Nvl(ROTN, 0) && && LIMITARE DEDUCERE TVA 4426 ID_JTVA = 1001 + + pnRegularizareB = pnRegularizareB + Nvl(ti19bcbwr, 0) + Nvl(ti19bvbwr, 0) + Nvl(ti19bfbwr, 0) + Nvl(ti09bvbwr, 0) + Nvl(ti09bfbwr, 0) + pnRegularizareT = pnRegularizareT + Nvl(ti19bctwr, 0) + Nvl(ti19bvtwr, 0) + Nvl(ti19bftwr, 0) + Nvl(ti09bvtwr, 0) + Nvl(ti09bftwr, 0) + + Select cDecont + Locate For Alltrim(Rand) = '18' + If Found() + Replace valoare With pn18B, TVA With pn18T + Endif + + Locate For Alltrim(Rand) = '18.1' + If Found() + Replace valoare With pn181B, TVA With pn181T + Endif + + Locate For Alltrim(Rand) = '5' + If Found() + Replace valoare With pn5B, TVA With pn5T + Endif + + Locate For Alltrim(Rand) = '5.1' + If Found() + Replace valoare With pn51B, TVA With pn51T + Endif + + Locate For Alltrim(Rand) = '20' + If Found() + Replace valoare With pn20B, TVA With pn20T + Endif + + Locate For Alltrim(Rand) = '20.1' + If Found() + Replace valoare With pn201B, TVA With pn201T + Endif + + Locate For Alltrim(Rand) = '7' + If Found() + Replace valoare With pn7B, TVA With pn7T + Endif + + Locate For Alltrim(Rand) = '7.1' + If Found() + Replace valoare With pn71B, TVA With pn71T + Endif + + Locate For Alltrim(Rand) = '22' + If Found() + Replace valoare With pn22B, TVA With pn22T + Endif + + Locate For Alltrim(Rand) = '23' + If Found() + Replace valoare With pn23B, TVA With pn23T + Endif + + Locate For Alltrim(Rand) = '24' + If Found() + Replace valoare With pn24B, TVA With pn24T + Endif + + Locate For Alltrim(Rand) = '25' + If Found() + Replace valoare With pn25B, TVA With pn25T + Endif + + Locate For Alltrim(Rand) = '12' + If Found() + Replace valoare With pn12B, TVA With pn12T + Endif + + Locate For Alltrim(Rand) = '26' + If Found() + Replace valoare With pn26B + Endif + + Locate For Alltrim(Rand) = '26.1' + If Found() + Replace valoare With pn261B + Endif + + Locate For Alltrim(Rand) = '27.1' + If Found() + Replace valoare With pn271B, TVA With pn271T + Endif + + *!* REGULARIZARE 19% + Locate For Alltrim(Rand) = '30' + If Found() + Replace valoare With pnRegularizareB, TVA With pnRegularizareT + Endif + + lcSql = [SELECT solddeb ] + ; + [ from vbal ] + ; + [ where cont = 4424 ] + ; + [ and AN = ?pnAnPrec AND LUNA= ?pnLunaPrec] + gcCondSucursala + + + lcCursor = [crsTR] && TVA de recuperat + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crsTR + lnTR = solddeb + + Select cDecont + Locate For Alltrim(Rand) = '38' + If Found() + Replace TVA With lnTR + Endif + + If Used('crsTR') + Use In crsTR + Endif + + + ***---- + lcSql = [SELECT NVL(soldcred,0) as soldcred ] + ; + [ from vbal ] + ; + [ where cont = '4423' ] + ; + [ and AN = ?pnAnPrec AND LUNA= ?pnLunaPrec ] + gcCondSucursala + + lcCursor = [crsTP] && nu si-au platit tva din luna precedenta + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crsTP + lnTP = soldcred + + If Used('crsTP') + Use In crsTP + Endif + + lcSql = [ select nvl(sum(suma),0) as suma ] + ; + [from act ] + ; + [where an=?gnAn ] + ; + [and luna=?gnLuna ] + ; + [and sters=0 ] + ; + [and scd='4423' and scc in ('5121','5311')] + gcCondSucursala + + lcCursor = [crsPlati] + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crsPlati + lnPlati = suma + + If Used('crsPlati') + Use In crsPlati + Endif + + lnTP = lnTP - lnPlati + + Select cDecont + Locate For Alltrim(Rand) = '35' + If Found() + Replace TVA With Nvl(lnTP, 0) + Endif + + lcSql = [select sum(suma) as suma, id_jtva_coloana from act ] + ; + [where sters = 0 and id_jtva_coloana in (1002, 1003) and ] + ; + [an*12+luna between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF ] + gcCondSucursala + ; + [ group by id_jtva_coloana order by id_jtva_coloana] + lcCursor = [crsRegTaxe] + If goExecutor.oExecuta(lcSql, lcCursor) + Select (lcCursor) + Scan + lnSuma = suma + lcRand = Iif(id_jtva_coloana = 1003, '30', '16') + Select cDecont + Replace TVA With TVA - lnSuma For Rand = lcRand + Select (lcCursor) + Endscan + Endif + Use In (Select(lcCursor)) + + ***---- + + Select cDecont + lodt = Createobject('frm_decontTVA', m.tnNumarLuni) + lodt.nROTN = m.lnROTN && LIMITARE DEDUCERE TVA 4426 ID_JTVA = 1001 + lodt.lblRand28.Caption = lodt.lblRand28.Caption + ' (' + Alltrim(Str(m.lnROTN)) + ' lei)' + lodt.Show(1) +Endproc && viz_decontTVA_0112 + + +*=========================================== +*!* 09.08.2010 +*!* TVA 24% +Procedure viz_decontTVA_0710 + Lparameters tnNumarLuni + *Parameters tlTrim + + *** tnNumarLuni: 1 = o luna, 3 = 3 luni trimestrial, 6 = 6 luni semestrial, 12 = 12 luni anual + + Private pnLunaI, pnLunaF, pnLunaPrec, pnAnPrec + + + *** JC, JV lunile precedente + lnAnCurent = m.gnAn + lnLunaCurenta = m.gnLuna + ldDataCurenta = Date(m.lnAnCurent, m.lnLunaCurenta, 1) + + * Luna de inceput a perioadei + * 1 = gnLuna + * 3 = 1,4,7,10 + * 6 = 1,7 + * 12 = 1 + lnPerioada = Ceil(m.lnLunaCurenta / tnNumarLuni) + lnLunaMin = (lnPerioada - 1) * tnNumarLuni + 1 + + *** luna pentru balanta precedenta + ldDataPrecedenta = Gomonth(Date(m.lnAnCurent, m.lnLunaMin, 1), -1) + lnLunaPrecedenta = Month(m.ldDataPrecedenta) + lnAnPrecedent = Year(m.ldDataPrecedenta) + && ---- + pnLunaI = lnLunaMin + pnLunaF = m.lnLunaCurenta + + pnLunaPrec = m.lnLunaPrecedenta + pnAnPrec = m.lnAnPrecedent + + Private poDecont + Store '' To poDecont + + Private pnProRata + pnProRata = 100 + Local lcSchema1, lcSelect1, lcOrder1, lcFiltru1, lcFiltruOriginal, llAfiseaza + lcSchema1 = [] + + lcSql = [select d.*, 00000000000 as valoare, 00000000000 as tva from decontTVA d ] + ; + [where valabil = '0111' order by id_decont] + lcCursor = [cDecont] + + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + lcSql = [SELECT ROUND(SUM(RO19B),0) AS RO19B, ] + ; + [ ROUND(SUM(RO19T),0) AS RO19T, ] + ; + [ ROUND(SUM(RO9B),0) AS RO9B, ] + ; + [ ROUND(SUM(RO9T),0) AS RO9T,] + ; + [ ROUND(SUM(RO5B),0) AS RO5B, ] + ; + [ ROUND(SUM(RO5T),0) AS RO5T, ] + ; + [ ROUND(SUM(RO24B),0) AS RO24B, ] + ; + [ ROUND(SUM(RO24T),0) AS RO24T,] + ; + [ ROUND(SUM(ROTI),0) AS ROTI, ] + ; + [ ROUND(SUM(CESCDD1),0) AS CESCDD1,] + ; + [ ROUND(SUM(CESCDD2),0) AS CESCDD2,] + ; + [ ROUND(SUM(CEOPTR),0) AS CEOPTR,] + ; + [ ROUND(SUM(CESVDD),0) AS CESVDD,] + ; + [ ROUND(SUM(CESVFDD),0) AS CESVFDD,] + ; + [ ROUND(SUM(CESVFS),0) AS CESVFS,] + ; + [ ROUND(SUM(WRSCDD),0) AS WRSCDD, ] + ; + [ ROUND(SUM(FODD),0) AS FODD, ] + ; + [ ROUND(SUM(FOFDD),0) AS FOFDD, ] + ; + [ ROUND(SUM(CEOPTR),0) AS CEOPTR, ] + ; + [ ROUND(SUM(CESVDD),0) AS CESVDD, ] + ; + [ ROUND(SUM(CESVFDD),0) AS CESVFDD, ] + ; + [ ROUND(SUM(CESVFS),0) AS CESVFS, ] + ; + [ ROUND(SUM(WRSCFDD),0) AS WRSCFDD,] + ; + [ ROUND(SUM(WRN),0) AS WRN FROM JV2007 ] + ; + [ WHERE an*12+luna between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF ] + gcCondSucursala + && [ WHERE AN = ?gnAn AND LUNA= ?gnLuna ] + gcCondSucursala + + + lcCursor = [crsJV] + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crsJV + *!* modificare v 2.0.126 + *!* pn1B = Nvl(cescdd1,0) + *!* pn3B = Nvl(cescdd2,0) + Nvl(fodd,0) + Nvl(fofdd,0) + pn1B = Nvl(cescdd1, 0) + Nvl(ceoptr, 0) + pn3B = Nvl(cescdd2, 0) + Nvl(fodd, 0) + Nvl(fofdd, 0) + Nvl(cesvdd, 0) + Nvl(cesvfdd, 0) + Nvl(cesvfs, 0) + Nvl(cesvfs, 0) + pn31B = Nvl(cesvfs, 0) + *!* modificare v 2.0.126 ^ + pn9B = Nvl(ro24b, 0) + pn9T = Nvl(ro24t, 0) + pn10B = Nvl(ro9b, 0) + pn10T = Nvl(ro9t, 0) + pn11B = Nvl(ro5b, 0) + pn11T = Nvl(ro5t, 0) + pnRegularizareB = Nvl(ro19b, 0) + pnRegularizareT = Nvl(ro19t, 0) + + pn13B = Nvl(roti, 0) + Nvl(wrscdd, 0) + pn14B = Nvl(wrscfdd, 0) &&+ NVL(wrscfdd,0) + + Select cDecont + + Locate For Alltrim(Rand) = '1' + If Found() + Replace valoare With pn1B + Endif + + Locate For Alltrim(Rand) = '3' + If Found() + Replace valoare With pn3B + Endif + + *!* modificare v 2.0.126 + Locate For Alltrim(Rand) = '3.1' + If Found() + Replace valoare With pn31B + Endif + *!* modificare v 2.0.126 ^ + Locate For Alltrim(Rand) = '9' && '7' + If Found() + Replace valoare With pn9B, TVA With pn9T + Endif + + Locate For Alltrim(Rand) = '10' && '8' + If Found() + Replace valoare With pn10B, TVA With pn10T + Endif + + Locate For Alltrim(Rand) = '11' && '9' + If Found() + Replace valoare With pn11B, TVA With pn11T + Endif + + Locate For Alltrim(Rand) = '13' && '11' + If Found() + Replace valoare With pn13B + Endif + + Locate For Alltrim(Rand) = '14' && '12' + If Found() + Replace valoare With pn14B + Endif + + *!* REGULARIZARE 19% + Locate For Alltrim(Rand) = '15' + If Found() + Replace valoare With pnRegularizareB, TVA With pnRegularizareT + Endif + + lcSql = [SELECT Round(Sum(RO24B),0) As RO24B, ] + ; + [ Round(Sum(RO24T),0) As RO24T, ] + ; + [ ROUND(SUM(RO19BCB),0) AS RO19BCB, ] + ; + [ ROUND(SUM(RO19BCT),0) AS RO19BCT, ] + ; + [ ROUND(SUM(RO19BVB),0) AS RO19BVB, ] + ; + [ ROUND(SUM(RO19BVT),0) AS RO19BVT, ] + ; + [ ROUND(SUM(RO19BFB),0) AS RO19BFB, ] + ; + [ ROUND(SUM(RO19BFT),0) AS RO19BFT, ] + ; + [ ROUND(SUM(RO09BCB),0) AS RO09BCB, ] + ; + [ ROUND(SUM(RO09BCT),0) AS RO09BCT, ] + ; + [ ROUND(SUM(RO09BVB),0) AS RO09BVB, ] + ; + [ ROUND(SUM(RO09BVT),0) AS RO09BVT, ] + ; + [ ROUND(SUM(RO09BFB),0) AS RO09BFB, ] + ; + [ ROUND(SUM(RO09BFT),0) AS RO09BFT, ] + ; + [ ROUND(SUM(RO05B),0) AS RO05B, ] + ; + [ ROUND(SUM(RO05T),0) AS RO05T, ] + ; + [ ROUND(SUM(ROSCN),0) AS ROSCN, ] + ; + [ Round(Sum(FO24B),0) As FO24B, ] + ; + [ Round(Sum(FO24T),0) As FO24T, ] + ; + [ ROUND(SUM(FO19BCB),0) AS FO19BCB, ] + ; + [ ROUND(SUM(FO19BCT),0) AS FO19BCT, ] + ; + [ ROUND(SUM(FO19BVB),0) AS FO19BVB, ] + ; + [ ROUND(SUM(FO19BVT),0) AS FO19BVT, ] + ; + [ ROUND(SUM(FO19BFB),0) AS FO19BFB, ] + ; + [ ROUND(SUM(FO19BFT),0) AS FO19BFT, ] + ; + [ ROUND(SUM(FO09BCB),0) AS FO09BCB, ] + ; + [ ROUND(SUM(FO09BCT),0) AS FO09BCT, ] + ; + [ ROUND(SUM(FO09BVB),0) AS FO09BVB, ] + ; + [ ROUND(SUM(FO09BVT),0) AS FO09BVT, ] + ; + [ ROUND(SUM(FO09BFB),0) AS FO09BFB, ] + ; + [ ROUND(SUM(FO09BFT),0) AS FO09BFT, ] + ; + [ ROUND(SUM(FOSCN),0) AS FOSCN, ] + ; + [ Round(Sum(CE24B),0) As CE24B, ] + ; + [ Round(Sum(CE24T),0) As CE24T, ] + ; + [ Round(Sum(CE24SB),0) As CE24SB, ] + ; + [ Round(Sum(CE24ST),0) As CE24ST, ] + ; + [ Round(Sum(CE5SB),0) As CE5SB, ] + ; + [ Round(Sum(CE5ST),0) As CE5ST, ] + ; + [ Round(Sum(CE9SB),0) As CE9SB, ] + ; + [ Round(Sum(CE9ST),0) As CE9ST, ] + ; + [ ROUND(SUM(CEBCB),0) AS CEBCB, ] + ; + [ ROUND(SUM(CEBCT),0) AS CEBCT, ] + ; + [ ROUND(SUM(CEBVB),0) AS CEBVB, ] + ; + [ ROUND(SUM(CEBVT),0) AS CEBVT, ] + ; + [ ROUND(SUM(CEBVSC),0) AS CEBVSC, ] + ; + [ ROUND(SUM(CEBVN),0) AS CEBVN, ] + ; + [ ROUND(SUM(CEBFB),0) AS CEBFB, ] + ; + [ ROUND(SUM(CEBFT),0) AS CEBFT, ] + ; + [ ROUND(SUM(CEBFSC),0) AS CEBFSC, ] + ; + [ ROUND(SUM(CEBFN),0) AS CEBFN, ] + ; + [ Round(Sum(TI24B), 0) As TI24B, ] + ; + [ Round(Sum(TI24T), 0) As TI24T, ] + ; + [ ROUND(SUM(TI19BCB),0) AS TI19BCBWR, ] + ; + [ ROUND(SUM(TI19BCT),0) AS TI19BCTWR, ] + ; + [ ROUND(SUM(TI19BVB),0) AS TI19BVBWR, ] + ; + [ ROUND(SUM(TI19BVT),0) AS TI19BVTWR, ] + ; + [ ROUND(SUM(TI19BFB),0) AS TI19BFBWR, ] + ; + [ ROUND(SUM(TI19BFT),0) AS TI19BFTWR, ] + ; + [ ROUND(SUM(TI09BVB),0) AS TI09BVBWR, ] + ; + [ ROUND(SUM(TI09BVT),0) AS TI09BVTWR, ] + ; + [ ROUND(SUM(TI09BFB),0) AS TI09BFBWR, ] + ; + [ ROUND(SUM(TI09BFT),0) AS TI09BFTWR, ] + ; + [ ROUND(SUM(TI19BCB),0) AS TI19BCBRO, ] + ; + [ ROUND(SUM(TI19BCT),0) AS TI19BCTRO, ] + ; + [ ROUND(SUM(TI19BVB),0) AS TI19BVBRO, ] + ; + [ ROUND(SUM(TI19BVT),0) AS TI19BVTRO, ] + ; + [ ROUND(SUM(TI19BFB),0) AS TI19BFBRO, ] + ; + [ ROUND(SUM(TI19BFT),0) AS TI19BFTRO, ] + ; + [ ROUND(SUM(TI09BVB),0) AS TI09BVBRO, ] + ; + [ ROUND(SUM(TI09BVT),0) AS TI09BVTRO, ] + ; + [ ROUND(SUM(TI09BFB),0) AS TI09BFBRO, ] + ; + [ ROUND(SUM(TI09BFT),0) AS TI09BFTRO ] + ; + [ FROM JC2007 WHERE an*12+luna between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF ] + gcCondSucursala + ** [ FROM VJC2007 WHERE AN = ?gnAn AND LUNA= ?gnLuna ] + gcCondSucursala + + lcCursor = [crsJC] + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crsJC + + pn21B = Nvl(ro24b, 0) + Nvl(fo24b, 0) + pn21T = Nvl(ro24t, 0) + Nvl(fo24t, 0) + + pn22B = Nvl(ro09bcb, 0) + Nvl(ro09bvb, 0) + Nvl(ro09bfb, 0) + Nvl(fo09bcb, 0) + Nvl(fo09bvb, 0) + Nvl(fo09bfb, 0) + pn22T = Nvl(ro09bct, 0) + Nvl(ro09bvt, 0) + Nvl(ro09bft, 0) + Nvl(fo09bct, 0) + Nvl(fo09bvt, 0) + Nvl(fo09bft, 0) + + pn23B = Nvl(ro05b, 0) + pn23T = Nvl(ro05t, 0) + pn24B = Nvl(roscn, 0) + Nvl(cebvsc, 0) + Nvl(cebvn, 0) + Nvl(cebfsc, 0) + Nvl(cebfn, 0) + Nvl(foscn, 0) + pn241B = Nvl(cebvsc, 0) + Nvl(cebfsc, 0) + + pnRegularizareB = Nvl(ro19bcb, 0) + Nvl(ro19bvb, 0) + Nvl(ro19bfb, 0) + Nvl(fo19bcb, 0) + Nvl(fo19bvb, 0) + Nvl(fo19bfb, 0) + pnRegularizareT = Nvl(ro19bct, 0) + Nvl(ro19bvt, 0) + Nvl(ro19bft, 0) + Nvl(fo19bct, 0) + Nvl(fo19bvt, 0) + Nvl(fo19bft, 0) + + + pn17B = Nvl(cebcb, 0) + Nvl(cebvb, 0) + Nvl(cebfb, 0) + Nvl(ce24b, 0) + pn17T = Nvl(cebct, 0) + Nvl(cebvt, 0) + Nvl(cebft, 0) + Nvl(ce24t, 0) + + pn171B = pn17B + pn171T = pn17T + + pn19B = Nvl(ti24b, 0) + Nvl(ti09bvbro, 0) + Nvl(ti09bfbro, 0) + Nvl(CE24SB, 0) + Nvl(CE9SB, 0) + Nvl(CE5SB, 0) + pn19T = Nvl(ti24t, 0) + Nvl(ti09bvtro, 0) + Nvl(ti09bftro, 0) + Nvl(CE24ST, 0) + Nvl(CE9ST, 0) + Nvl(CE5ST, 0) + + pn191B = Nvl(CE24SB, 0) + Nvl(CE9SB, 0) + Nvl(CE5SB, 0) + pn191T = Nvl(CE24ST, 0) + Nvl(CE9ST, 0) + Nvl(CE5ST, 0) + + pn1911B = pn191B + pn1911T = pn191T + + pn5B = pn17B + pn5T = pn17T + pn51B = pn171B + pn51T = pn171T + pn7B = pn19B + pn7T = pn19T + pn71B = pn191B + pn71T = pn191T + pn711B = pn1911B + pn711T = pn1911T + + pnRegularizareB = pnRegularizareB + Nvl(ti19bcbwr, 0) + Nvl(ti19bvbwr, 0) + Nvl(ti19bfbwr, 0) + Nvl(ti09bvbwr, 0) + Nvl(ti09bfbwr, 0) + pnRegularizareT = pnRegularizareT + Nvl(ti19bctwr, 0) + Nvl(ti19bvtwr, 0) + Nvl(ti19bftwr, 0) + Nvl(ti09bvtwr, 0) + Nvl(ti09bftwr, 0) + + Select cDecont + + Locate For Alltrim(Rand) = '21' + If Found() + Replace valoare With pn21B, TVA With pn21T + Endif + + Locate For Alltrim(Rand) = '22' + If Found() + Replace valoare With pn22B, TVA With pn22T + Endif + + Locate For Alltrim(Rand) = '23' + If Found() + Replace valoare With pn23B, TVA With pn23T + Endif + + Locate For Alltrim(Rand) = '24' + If Found() + Replace valoare With pn24B + Endif + + + Locate For Alltrim(Rand) = '24.1' + If Found() + Replace valoare With pn241B + Endif + + Locate For Alltrim(Rand) = '17' + If Found() + Replace valoare With pn17B, TVA With pn17T + Endif + + Locate For Alltrim(Rand) = '17.1' + If Found() + Replace valoare With pn171B, TVA With pn171T + Endif + + Locate For Alltrim(Rand) = '5' + If Found() + Replace valoare With pn5B, TVA With pn5T + Endif + + Locate For Alltrim(Rand) = '5.1' + If Found() + Replace valoare With pn51B, TVA With pn51T + Endif + + Locate For Alltrim(Rand) = '19' + If Found() + Replace valoare With pn19B, TVA With pn19T + Endif + + Locate For Alltrim(Rand) = '19.1' + If Found() + Replace valoare With pn191B, TVA With pn191T + Endif + + Locate For Alltrim(Rand) = '19.1.1' + If Found() + Replace valoare With pn1911B, TVA With pn1911T + Endif + + Locate For Alltrim(Rand) = '7' + If Found() + Replace valoare With pn7B, TVA With pn7T + Endif + + Locate For Alltrim(Rand) = '7.1' + If Found() + Replace valoare With pn71B, TVA With pn71T + Endif + + Locate For Alltrim(Rand) = '7.1.1' + If Found() + Replace valoare With pn711B, TVA With pn711T + Endif + + *!* REGULARIZARE 19% + Locate For Alltrim(Rand) = '28' + If Found() + Replace valoare With pnRegularizareB, TVA With pnRegularizareT + Endif + + lcSql = [SELECT solddeb ] + ; + [ from vbal ] + ; + [ where cont = 4424 ] + ; + [ and AN = ?pnAnPrec AND LUNA= ?pnLunaPrec] + gcCondSucursala + + + lcCursor = [crsTR] && TVA de recuperat + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crsTR + lnTR = solddeb + + Select cDecont + Locate For Alltrim(Rand) = '35' + If Found() + Replace TVA With lnTR + Endif + + If Used('crsTR') + Use In crsTR + Endif + + + ***---- + lcSql = [SELECT NVL(soldcred,0) as soldcred ] + ; + [ from vbal ] + ; + [ where cont = '4423' ] + ; + [ and AN = ?pnAnPrec AND LUNA= ?pnLunaPrec ] + gcCondSucursala + + lcCursor = [crsTP] && nu si-au platit tva din luna precedenta + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crsTP + lnTP = soldcred + + If Used('crsTP') + Use In crsTP + Endif + + lcSql = [ select nvl(sum(suma),0) as suma ] + ; + [from act ] + ; + [where an=?gnAn ] + ; + [and luna=?gnLuna ] + ; + [and sters=0 ] + ; + [and scd='4423' and scc in ('5121','5311')] + gcCondSucursala + + lcCursor = [crsPlati] + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crsPlati + lnPlati = suma + + If Used('crsPlati') + Use In crsPlati + Endif + + lnTP = lnTP - lnPlati + + Select cDecont + Locate For Alltrim(Rand) = '33' + If Found() + Replace TVA With Nvl(lnTP, 0) + Endif + + + ***---- + + + Select cDecont + lodt = Createobject('frm_decontTVA', m.tnNumarLuni) + lodt.Show(1) +Endproc && viz_decontTVA_0710 + + + + +*=========================================== +Procedure viz_decontTVA_0110 + Parameters tlTrim + + Private pnLunaI, pnLunaF, pnLunaPrec, pnAnPrec + Local llTrim + + llTrim = tlTrim + + If llTrim + Do Case + Case Inlist(gnLuna, 1, 2, 3) + pnLunaI = 1 + pnLunaF = 3 + pnLunaPrec = 12 + pnAnPrec = gnAn - 1 + Case Inlist(gnLuna, 4, 5, 6) + pnLunaI = 4 + pnLunaF = 6 + pnLunaPrec = 3 + pnAnPrec = gnAn + Case Inlist(gnLuna, 7, 8, 9) + pnLunaI = 7 + pnLunaF = 9 + pnLunaPrec = 6 + pnAnPrec = gnAn + Case Inlist(gnLuna, 10, 11, 12) + pnLunaI = 10 + pnLunaF = 12 + pnLunaPrec = 9 + pnAnPrec = gnAn + Endcase + Else + pnLunaI = gnLuna + pnLunaF = gnLuna + If gnLuna = 1 + pnLunaPrec = 12 + pnAnPrec = gnAn - 1 + Else + pnLunaPrec = gnLuna - 1 + pnAnPrec = gnAn + Endif + Endif + + + Private poDecont + Store '' To poDecont + + Private pnProRata + pnProRata = 100 + Local lcSchema1, lcSelect1, lcOrder1, lcFiltru1, lcFiltruOriginal, llAfiseaza + lcSchema1 = [] + + lcSql = [select d.*, 00000000000 as valoare, 00000000000 as tva from decontTVA d ] + ; + [where valabil = '0110' order by id_decont] + lcCursor = [cDecont] + + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + + lcSql = [SELECT ROUND(SUM(RO19B),0) AS RO19B, ] + ; + [ ROUND(SUM(RO19T),0) AS RO19T, ] + ; + [ ROUND(SUM(RO9B),0) AS RO9B, ] + ; + [ ROUND(SUM(RO9T),0) AS RO9T,] + ; + [ ROUND(SUM(RO5B),0) AS RO5B, ] + ; + [ ROUND(SUM(RO5T),0) AS RO5T, ] + ; + [ ROUND(SUM(ROTI),0) AS ROTI, ] + ; + [ ROUND(SUM(CESCDD1),0) AS CESCDD1,] + ; + [ ROUND(SUM(CESCDD2),0) AS CESCDD2,] + ; + [ ROUND(SUM(WRSCDD),0) AS WRSCDD, ] + ; + [ ROUND(SUM(FODD),0) AS FODD, ] + ; + [ ROUND(SUM(FOFDD),0) AS FOFDD, ] + ; + [ ROUND(SUM(WRSCFDD),0) AS WRSCFDD,] + ; + [ ROUND(SUM(WRN),0) AS WRN FROM JV2007 ] + ; + [ WHERE an*12+luna between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF ] + gcCondSucursala + && [ WHERE AN = ?gnAn AND LUNA= ?gnLuna ] + gcCondSucursala + + lcCursor = [crsJV] + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crsJV + pn1B = Nvl(cescdd1, 0) + pn3B = Nvl(cescdd2, 0) + Nvl(fodd, 0) + Nvl(fofdd, 0) + pn7B = Nvl(ro19b, 0) + pn7T = Nvl(ro19t, 0) + pn8B = Nvl(ro9b, 0) + pn8T = Nvl(ro9t, 0) + pn9B = Nvl(ro5b, 0) + pn9T = Nvl(ro5t, 0) + + pn11B = Nvl(roti, 0) + Nvl(wrscdd, 0) + pn12B = Nvl(wrscfdd, 0) &&+ NVL(wrscfdd,0) + + Select cDecont + + Locate For Alltrim(Rand) = '1' + If Found() + Replace valoare With pn1B + Endif + + Locate For Alltrim(Rand) = '3' + If Found() + Replace valoare With pn3B + Endif + + Locate For Alltrim(Rand) = '9' && '7' + If Found() + Replace valoare With pn7B, TVA With pn7T + Endif + + Locate For Alltrim(Rand) = '10' && '8' + If Found() + Replace valoare With pn8B, TVA With pn8T + Endif + + Locate For Alltrim(Rand) = '11' && '9' + If Found() + Replace valoare With pn9B, TVA With pn9T + Endif + + Locate For Alltrim(Rand) = '13' && '11' + If Found() + Replace valoare With pn11B + Endif + + Locate For Alltrim(Rand) = '14' && '12' + If Found() + Replace valoare With pn12B + Endif + + + lcSql = [SELECT ROUND(SUM(RO19BCB),0) AS RO19BCB, ] + ; + [ ROUND(SUM(RO19BCT),0) AS RO19BCT, ] + ; + [ ROUND(SUM(RO19BVB),0) AS RO19BVB, ] + ; + [ ROUND(SUM(RO19BVT),0) AS RO19BVT, ] + ; + [ ROUND(SUM(RO19BFB),0) AS RO19BFB, ] + ; + [ ROUND(SUM(RO19BFT),0) AS RO19BFT, ] + ; + [ ROUND(SUM(RO09BCB),0) AS RO09BCB, ] + ; + [ ROUND(SUM(RO09BCT),0) AS RO09BCT, ] + ; + [ ROUND(SUM(RO09BVB),0) AS RO09BVB, ] + ; + [ ROUND(SUM(RO09BVT),0) AS RO09BVT, ] + ; + [ ROUND(SUM(RO09BFB),0) AS RO09BFB, ] + ; + [ ROUND(SUM(RO09BFT),0) AS RO09BFT, ] + ; + [ ROUND(SUM(ROSCN),0) AS ROSCN, ] + ; + [ ROUND(SUM(FO19BCB),0) AS FO19BCB, ] + ; + [ ROUND(SUM(FO19BCT),0) AS FO19BCT, ] + ; + [ ROUND(SUM(FO19BVB),0) AS FO19BVB, ] + ; + [ ROUND(SUM(FO19BVT),0) AS FO19BVT, ] + ; + [ ROUND(SUM(FO19BFB),0) AS FO19BFB, ] + ; + [ ROUND(SUM(FO19BFT),0) AS FO19BFT, ] + ; + [ ROUND(SUM(FO09BCB),0) AS FO09BCB, ] + ; + [ ROUND(SUM(FO09BCT),0) AS FO09BCT, ] + ; + [ ROUND(SUM(FO09BVB),0) AS FO09BVB, ] + ; + [ ROUND(SUM(FO09BVT),0) AS FO09BVT, ] + ; + [ ROUND(SUM(FO09BFB),0) AS FO09BFB, ] + ; + [ ROUND(SUM(FO09BFT),0) AS FO09BFT, ] + ; + [ ROUND(SUM(RO05B),0) AS RO05B, ] + ; + [ ROUND(SUM(RO05T),0) AS RO05T, ] + ; + [ ROUND(SUM(FOSCN),0) AS FOSCN, ] + ; + [ ROUND(SUM(CEBCB),0) AS CEBCB, ] + ; + [ ROUND(SUM(CEBCT),0) AS CEBCT, ] + ; + [ ROUND(SUM(CEBVB),0) AS CEBVB, ] + ; + [ ROUND(SUM(CEBVT),0) AS CEBVT, ] + ; + [ ROUND(SUM(CEBVSC),0) AS CEBVSC, ] + ; + [ ROUND(SUM(CEBVN),0) AS CEBVN, ] + ; + [ ROUND(SUM(CEBFB),0) AS CEBFB, ] + ; + [ ROUND(SUM(CEBFT),0) AS CEBFT, ] + ; + [ ROUND(SUM(CEBFSC),0) AS CEBFSC, ] + ; + [ ROUND(SUM(CEBFN),0) AS CEBFN, ] + ; + [ ROUND(SUM(TI19BCB),0) AS TI19BCBWR, ] + ; + [ ROUND(SUM(TI19BCT),0) AS TI19BCTWR, ] + ; + [ ROUND(SUM(TI19BVB),0) AS TI19BVBWR, ] + ; + [ ROUND(SUM(TI19BVT),0) AS TI19BVTWR, ] + ; + [ ROUND(SUM(TI19BFB),0) AS TI19BFBWR, ] + ; + [ ROUND(SUM(TI19BFT),0) AS TI19BFTWR, ] + ; + [ ROUND(SUM(TI09BVB),0) AS TI09BVBWR, ] + ; + [ ROUND(SUM(TI09BVT),0) AS TI09BVTWR, ] + ; + [ ROUND(SUM(TI09BFB),0) AS TI09BFBWR, ] + ; + [ ROUND(SUM(TI09BFT),0) AS TI09BFTWR, ] + ; + [ ROUND(SUM(TI19BCB),0) AS TI19BCBRO, ] + ; + [ ROUND(SUM(TI19BCT),0) AS TI19BCTRO, ] + ; + [ ROUND(SUM(TI19BVB),0) AS TI19BVBRO, ] + ; + [ ROUND(SUM(TI19BVT),0) AS TI19BVTRO, ] + ; + [ ROUND(SUM(TI19BFB),0) AS TI19BFBRO, ] + ; + [ ROUND(SUM(TI19BFT),0) AS TI19BFTRO, ] + ; + [ ROUND(SUM(TI09BVB),0) AS TI09BVBRO, ] + ; + [ ROUND(SUM(TI09BVT),0) AS TI09BVTRO, ] + ; + [ ROUND(SUM(TI09BFB),0) AS TI09BFBRO, ] + ; + [ ROUND(SUM(TI09BFT),0) AS TI09BFTRO ] + ; + [ FROM VJC2007 WHERE an*12+luna between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF ] + gcCondSucursala + ** [ FROM VJC2007 WHERE AN = ?gnAn AND LUNA= ?gnLuna ] + gcCondSucursala + + lcCursor = [crsJC] + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crsJC + + pn18B = Nvl(ro19bcb, 0) + Nvl(ro19bvb, 0) + Nvl(ro19bfb, 0) + Nvl(fo19bcb, 0) + Nvl(fo19bvb, 0) + Nvl(fo19bfb, 0) + + pn18T = Nvl(ro19bct, 0) + Nvl(ro19bvt, 0) + Nvl(ro19bft, 0) + Nvl(fo19bct, 0) + Nvl(fo19bvt, 0) + Nvl(fo19bft, 0) + + + pn19B = Nvl(ro09bcb, 0) + Nvl(ro09bvb, 0) + Nvl(ro09bfb, 0) + Nvl(fo09bcb, 0) + Nvl(fo09bvb, 0) + Nvl(fo09bfb, 0) + ; + Nvl(ti09bvbro, 0) + Nvl(ti09bfbro, 0) + + pn19T = Nvl(ro09bct, 0) + Nvl(ro09bvt, 0) + Nvl(ro09bft, 0) + Nvl(fo09bct, 0) + Nvl(fo09bvt, 0) + Nvl(fo09bft, 0) + ; + Nvl(ti09bvtro, 0) + Nvl(ti09bftro, 0) + + pn20B = Nvl(ro05b, 0) + pn20T = Nvl(ro05t, 0) + pn21B = Nvl(roscn, 0) + Nvl(cebvsc, 0) + Nvl(cebvn, 0) + Nvl(cebfsc, 0) + Nvl(cebfn, 0) + Nvl(foscn, 0) + + + + pn15B = Nvl(cebcb, 0) + Nvl(cebvb, 0) + Nvl(cebfb, 0) + pn15T = Nvl(cebct, 0) + Nvl(cebvt, 0) + Nvl(cebft, 0) + pn4B = pn15B + pn4T = pn15T + pn10B = Nvl(ti19bcbro, 0) + Nvl(ti19bvbro, 0) + Nvl(ti19bfbro, 0) + Nvl(ti09bvbro, 0) + Nvl(ti09bfbro, 0) &&pn17B + pn18B + pn10T = Nvl(ti19bctro, 0) + Nvl(ti19bvtro, 0) + Nvl(ti19bftro, 0) + Nvl(ti09bvtro, 0) + Nvl(ti09bftro, 0) && pn17T + pn18T + + pn17B = Nvl(ti19bcbwr, 0) + Nvl(ti19bvbwr, 0) + Nvl(ti19bfbwr, 0) + Nvl(ti09bvbwr, 0) + Nvl(ti09bfbwr, 0) + pn17T = Nvl(ti19bctwr, 0) + Nvl(ti19bvtwr, 0) + Nvl(ti19bftwr, 0) + Nvl(ti09bvtwr, 0) + Nvl(ti09bftwr, 0) + pn6B = pn17B + pn6T = pn17T + + + Select cDecont + + Locate For Alltrim(Rand) = '21' && '18' + If Found() + Replace valoare With pn18B, TVA With pn18T + Endif + + Locate For Alltrim(Rand) = '22' && '19' + If Found() + Replace valoare With pn19B, TVA With pn19T + Endif + + Locate For Alltrim(Rand) = '23' && '20' + If Found() + Replace valoare With pn20B, TVA With pn20T + Endif + + + Locate For Alltrim(Rand) = '24' && '21' + If Found() + Replace valoare With pn21B + Endif + + Locate For Alltrim(Rand) = '17' && '15' + If Found() + Replace valoare With pn15B, TVA With pn15T + Endif + + Locate For Alltrim(Rand) = '17.1' && '15.1' + If Found() + Replace valoare With pn15B, TVA With pn15T + Endif + + Locate For Alltrim(Rand) = '5' && '4' + If Found() + Replace valoare With pn4B, TVA With pn4T + Endif + + Locate For Alltrim(Rand) = '5.1' && '4.1' + If Found() + Replace valoare With pn4B, TVA With pn4T + Endif + + *!* Locate For Alltrim(Rand) = '9' + *!* If Found() + *!* Replace valoare With pn9B, tva With pn9T + *!* Endif + + Locate For Alltrim(Rand) = '19' && '17' + If Found() + Replace valoare With pn17B, TVA With pn17T + Endif + + Locate For Alltrim(Rand) = '7' && '6' + If Found() + Replace valoare With pn6B, TVA With pn6T + Endif + + lcSql = [SELECT solddeb ] + ; + [ from vbal ] + ; + [ where cont = 4424 ] + ; + [ and AN = ?pnAnPrec AND LUNA= ?pnLunaPrec] + gcCondSucursala + + + lcCursor = [crsTR] && TVA de recuperat + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crsTR + lnTR = solddeb + + Select cDecont + Locate For Alltrim(Rand) = '35' && '32' + If Found() + Replace TVA With lnTR + Endif + + If Used('crsTR') + Use In crsTR + Endif + + + ***---- + lcSql = [SELECT NVL(soldcred,0) as soldcred ] + ; + [ from vbal ] + ; + [ where cont = '4423' ] + ; + [ and AN = ?pnAnPrec AND LUNA= ?pnLunaPrec ] + gcCondSucursala + + lcCursor = [crsTP] && nu si-au platit tva din luna precedenta + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crsTP + lnTP = soldcred + + If Used('crsTP') + Use In crsTP + Endif + + lcSql = [ select nvl(sum(suma),0) as suma ] + ; + [from act ] + ; + [where an=?gnAn ] + ; + [and luna=?gnLuna ] + ; + [and sters=0 ] + ; + [and scd='4423' and scc in ('5121','5311')] + gcCondSucursala + + lcCursor = [crsPlati] + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crsPlati + lnPlati = suma + + If Used('crsPlati') + Use In crsPlati + Endif + + lnTP = lnTP - lnPlati + + Select cDecont &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& + Locate For Alltrim(Rand) = '33' && '30' + If Found() + Replace TVA With Nvl(lnTP, 0) + Endif + + + ***---- + + + Select cDecont + lodt = Createobject('frm_decontTVA') + lodt.Show(1) +Endproc && viz_decontTVA_0110 + + +****************************************** sfarsit viz_decontTVA_0110 ******************************************* +*=========================================== +Procedure viz_decontTVA_1208 + Parameters tlTrim + + Private pnLunaI, pnLunaF, pnLunaPrec, pnAnPrec + Local llTrim + + llTrim = tlTrim + + If llTrim + Do Case + Case Inlist(gnLuna, 1, 2, 3) + pnLunaI = 1 + pnLunaF = 3 + pnLunaPrec = 12 + pnAnPrec = gnAn - 1 + Case Inlist(gnLuna, 4, 5, 6) + pnLunaI = 4 + pnLunaF = 6 + pnLunaPrec = 3 + pnAnPrec = gnAn + Case Inlist(gnLuna, 7, 8, 9) + pnLunaI = 7 + pnLunaF = 9 + pnLunaPrec = 6 + pnAnPrec = gnAn + Case Inlist(gnLuna, 10, 11, 12) + pnLunaI = 10 + pnLunaF = 12 + pnLunaPrec = 9 + pnAnPrec = gnAn + Endcase + Else + pnLunaI = gnLuna + pnLunaF = gnLuna + If gnLuna = 1 + pnLunaPrec = 12 + pnAnPrec = gnAn - 1 + Else + pnLunaPrec = gnLuna - 1 + pnAnPrec = gnAn + Endif + Endif + + + Private poDecont + Store '' To poDecont + + Private pnProRata + pnProRata = 100 + Local lcSchema1, lcSelect1, lcOrder1, lcFiltru1, lcFiltruOriginal, llAfiseaza + lcSchema1 = [] + + lcSql = [select d.*, 00000000000 as valoare, 00000000000 as tva from decontTVA d ] + ; + [where valabil = '1208' order by id_decont] + lcCursor = [cDecont] + + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + + lcSql = [SELECT ROUND(SUM(RO19B),0) AS RO19B, ] + ; + [ ROUND(SUM(RO19T),0) AS RO19T, ] + ; + [ ROUND(SUM(RO9B),0) AS RO9B, ] + ; + [ ROUND(SUM(RO9T),0) AS RO9T,] + ; + [ ROUND(SUM(RO5B),0) AS RO5B, ] + ; + [ ROUND(SUM(RO5T),0) AS RO5T, ] + ; + [ ROUND(SUM(ROTI),0) AS ROTI, ] + ; + [ ROUND(SUM(CESCDD1),0) AS CESCDD1,] + ; + [ ROUND(SUM(CESCDD2),0) AS CESCDD2,] + ; + [ ROUND(SUM(WRSCDD),0) AS WRSCDD, ] + ; + [ ROUND(SUM(FODD),0) AS FODD, ] + ; + [ ROUND(SUM(FOFDD),0) AS FOFDD, ] + ; + [ ROUND(SUM(WRSCFDD),0) AS WRSCFDD,] + ; + [ ROUND(SUM(WRN),0) AS WRN FROM JV2007 ] + ; + [ WHERE an*12+luna between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF ] + gcCondSucursala + && [ WHERE AN = ?gnAn AND LUNA= ?gnLuna ] + gcCondSucursala + + lcCursor = [crsJV] + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crsJV + pn1B = Nvl(cescdd1, 0) + pn3B = Nvl(cescdd2, 0) + Nvl(fodd, 0) + Nvl(fofdd, 0) + pn7B = Nvl(ro19b, 0) + pn7T = Nvl(ro19t, 0) + pn8B = Nvl(ro9b, 0) + pn8T = Nvl(ro9t, 0) + pn9B = Nvl(ro5b, 0) + pn9T = Nvl(ro5t, 0) + + pn11B = Nvl(roti, 0) + Nvl(wrscdd, 0) + pn12B = Nvl(wrscfdd, 0) &&+ NVL(wrscfdd,0) + + Select cDecont + + Locate For Alltrim(Rand) = '1' + If Found() + Replace valoare With pn1B + Endif + + Locate For Alltrim(Rand) = '3' + If Found() + Replace valoare With pn3B + Endif + + Locate For Alltrim(Rand) = '7' + If Found() + Replace valoare With pn7B, TVA With pn7T + Endif + + Locate For Alltrim(Rand) = '8' + If Found() + Replace valoare With pn8B, TVA With pn8T + Endif + + Locate For Alltrim(Rand) = '9' + If Found() + Replace valoare With pn9B, TVA With pn9T + Endif + + Locate For Alltrim(Rand) = '11' + If Found() + Replace valoare With pn11B + Endif + + Locate For Alltrim(Rand) = '12' + If Found() + Replace valoare With pn12B + Endif + + + lcSql = [SELECT ROUND(SUM(RO19BCB),0) AS RO19BCB, ] + ; + [ ROUND(SUM(RO19BCT),0) AS RO19BCT, ] + ; + [ ROUND(SUM(RO19BVB),0) AS RO19BVB, ] + ; + [ ROUND(SUM(RO19BVT),0) AS RO19BVT, ] + ; + [ ROUND(SUM(RO19BFB),0) AS RO19BFB, ] + ; + [ ROUND(SUM(RO19BFT),0) AS RO19BFT, ] + ; + [ ROUND(SUM(RO09BCB),0) AS RO09BCB, ] + ; + [ ROUND(SUM(RO09BCT),0) AS RO09BCT, ] + ; + [ ROUND(SUM(RO09BVB),0) AS RO09BVB, ] + ; + [ ROUND(SUM(RO09BVT),0) AS RO09BVT, ] + ; + [ ROUND(SUM(RO09BFB),0) AS RO09BFB, ] + ; + [ ROUND(SUM(RO09BFT),0) AS RO09BFT, ] + ; + [ ROUND(SUM(ROSCN),0) AS ROSCN, ] + ; + [ ROUND(SUM(FO19BCB),0) AS FO19BCB, ] + ; + [ ROUND(SUM(FO19BCT),0) AS FO19BCT, ] + ; + [ ROUND(SUM(FO19BVB),0) AS FO19BVB, ] + ; + [ ROUND(SUM(FO19BVT),0) AS FO19BVT, ] + ; + [ ROUND(SUM(FO19BFB),0) AS FO19BFB, ] + ; + [ ROUND(SUM(FO19BFT),0) AS FO19BFT, ] + ; + [ ROUND(SUM(FO09BCB),0) AS FO09BCB, ] + ; + [ ROUND(SUM(FO09BCT),0) AS FO09BCT, ] + ; + [ ROUND(SUM(FO09BVB),0) AS FO09BVB, ] + ; + [ ROUND(SUM(FO09BVT),0) AS FO09BVT, ] + ; + [ ROUND(SUM(FO09BFB),0) AS FO09BFB, ] + ; + [ ROUND(SUM(FO09BFT),0) AS FO09BFT, ] + ; + [ ROUND(SUM(RO05B),0) AS RO05B, ] + ; + [ ROUND(SUM(RO05T),0) AS RO05T, ] + ; + [ ROUND(SUM(FOSCN),0) AS FOSCN, ] + ; + [ ROUND(SUM(CEBCB),0) AS CEBCB, ] + ; + [ ROUND(SUM(CEBCT),0) AS CEBCT, ] + ; + [ ROUND(SUM(CEBVB),0) AS CEBVB, ] + ; + [ ROUND(SUM(CEBVT),0) AS CEBVT, ] + ; + [ ROUND(SUM(CEBVSC),0) AS CEBVSC, ] + ; + [ ROUND(SUM(CEBVN),0) AS CEBVN, ] + ; + [ ROUND(SUM(CEBFB),0) AS CEBFB, ] + ; + [ ROUND(SUM(CEBFT),0) AS CEBFT, ] + ; + [ ROUND(SUM(CEBFSC),0) AS CEBFSC, ] + ; + [ ROUND(SUM(CEBFN),0) AS CEBFN, ] + ; + [ ROUND(SUM(TI19BCB),0) AS TI19BCBWR, ] + ; + [ ROUND(SUM(TI19BCT),0) AS TI19BCTWR, ] + ; + [ ROUND(SUM(TI19BVB),0) AS TI19BVBWR, ] + ; + [ ROUND(SUM(TI19BVT),0) AS TI19BVTWR, ] + ; + [ ROUND(SUM(TI19BFB),0) AS TI19BFBWR, ] + ; + [ ROUND(SUM(TI19BFT),0) AS TI19BFTWR, ] + ; + [ ROUND(SUM(TI09BVB),0) AS TI09BVBWR, ] + ; + [ ROUND(SUM(TI09BVT),0) AS TI09BVTWR, ] + ; + [ ROUND(SUM(TI09BFB),0) AS TI09BFBWR, ] + ; + [ ROUND(SUM(TI09BFT),0) AS TI09BFTWR, ] + ; + [ ROUND(SUM(TI19BCB),0) AS TI19BCBRO, ] + ; + [ ROUND(SUM(TI19BCT),0) AS TI19BCTRO, ] + ; + [ ROUND(SUM(TI19BVB),0) AS TI19BVBRO, ] + ; + [ ROUND(SUM(TI19BVT),0) AS TI19BVTRO, ] + ; + [ ROUND(SUM(TI19BFB),0) AS TI19BFBRO, ] + ; + [ ROUND(SUM(TI19BFT),0) AS TI19BFTRO, ] + ; + [ ROUND(SUM(TI09BVB),0) AS TI09BVBRO, ] + ; + [ ROUND(SUM(TI09BVT),0) AS TI09BVTRO, ] + ; + [ ROUND(SUM(TI09BFB),0) AS TI09BFBRO, ] + ; + [ ROUND(SUM(TI09BFT),0) AS TI09BFTRO ] + ; + [ FROM VJC2007 WHERE an*12+luna between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF ] + gcCondSucursala + ** [ FROM VJC2007 WHERE AN = ?gnAn AND LUNA= ?gnLuna ] + gcCondSucursala + + lcCursor = [crsJC] + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crsJC + + pn18B = Nvl(ro19bcb, 0) + Nvl(ro19bvb, 0) + Nvl(ro19bfb, 0) + Nvl(fo19bcb, 0) + Nvl(fo19bvb, 0) + Nvl(fo19bfb, 0) + + pn18T = Nvl(ro19bct, 0) + Nvl(ro19bvt, 0) + Nvl(ro19bft, 0) + Nvl(fo19bct, 0) + Nvl(fo19bvt, 0) + Nvl(fo19bft, 0) + + + pn19B = Nvl(ro09bcb, 0) + Nvl(ro09bvb, 0) + Nvl(ro09bfb, 0) + Nvl(fo09bcb, 0) + Nvl(fo09bvb, 0) + Nvl(fo09bfb, 0) + ; + Nvl(ti09bvbro, 0) + Nvl(ti09bfbro, 0) + + pn19T = Nvl(ro09bct, 0) + Nvl(ro09bvt, 0) + Nvl(ro09bft, 0) + Nvl(fo09bct, 0) + Nvl(fo09bvt, 0) + Nvl(fo09bft, 0) + ; + Nvl(ti09bvtro, 0) + Nvl(ti09bftro, 0) + + pn20B = Nvl(ro05b, 0) + pn20T = Nvl(ro05t, 0) + pn21B = Nvl(roscn, 0) + Nvl(cebvsc, 0) + Nvl(cebvn, 0) + Nvl(cebfsc, 0) + Nvl(cebfn, 0) + Nvl(foscn, 0) + + + + pn15B = Nvl(cebcb, 0) + Nvl(cebvb, 0) + Nvl(cebfb, 0) + pn15T = Nvl(cebct, 0) + Nvl(cebvt, 0) + Nvl(cebft, 0) + pn4B = pn15B + pn4T = pn15T + pn10B = Nvl(ti19bcbro, 0) + Nvl(ti19bvbro, 0) + Nvl(ti19bfbro, 0) + Nvl(ti09bvbro, 0) + Nvl(ti09bfbro, 0) &&pn17B + pn18B + pn10T = Nvl(ti19bctro, 0) + Nvl(ti19bvtro, 0) + Nvl(ti19bftro, 0) + Nvl(ti09bvtro, 0) + Nvl(ti09bftro, 0) && pn17T + pn18T + + pn17B = Nvl(ti19bcbwr, 0) + Nvl(ti19bvbwr, 0) + Nvl(ti19bfbwr, 0) + Nvl(ti09bvbwr, 0) + Nvl(ti09bfbwr, 0) + pn17T = Nvl(ti19bctwr, 0) + Nvl(ti19bvtwr, 0) + Nvl(ti19bftwr, 0) + Nvl(ti09bvtwr, 0) + Nvl(ti09bftwr, 0) + pn6B = pn17B + pn6T = pn17T + + + Select cDecont + + Locate For Alltrim(Rand) = '18' + If Found() + Replace valoare With pn18B, TVA With pn18T + Endif + + Locate For Alltrim(Rand) = '19' + If Found() + Replace valoare With pn19B, TVA With pn19T + Endif + + Locate For Alltrim(Rand) = '20' + If Found() + Replace valoare With pn20B, TVA With pn20T + Endif + + + Locate For Alltrim(Rand) = '21' + If Found() + Replace valoare With pn21B + Endif + + Locate For Alltrim(Rand) = '15' + If Found() + Replace valoare With pn15B, TVA With pn15T + Endif + + Locate For Alltrim(Rand) = '15.1' + If Found() + Replace valoare With pn15B, TVA With pn15T + Endif + + Locate For Alltrim(Rand) = '4' + If Found() + Replace valoare With pn4B, TVA With pn4T + Endif + + Locate For Alltrim(Rand) = '4.1' + If Found() + Replace valoare With pn4B, TVA With pn4T + Endif + + *!* Locate For Alltrim(Rand) = '9' + *!* If Found() + *!* Replace valoare With pn9B, tva With pn9T + *!* Endif + + Locate For Alltrim(Rand) = '17' + If Found() + Replace valoare With pn17B, TVA With pn17T + Endif + + Locate For Alltrim(Rand) = '6' + If Found() + Replace valoare With pn6B, TVA With pn6T + Endif + + lcSql = [SELECT solddeb ] + ; + [ from vbal ] + ; + [ where cont = 4424 ] + ; + [ and AN = ?pnAnPrec AND LUNA= ?pnLunaPrec] + gcCondSucursala + + + lcCursor = [crsTR] && TVA de recuperat + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crsTR + lnTR = solddeb + + Select cDecont + Locate For Alltrim(Rand) = '32' + If Found() + Replace TVA With lnTR + Endif + + If Used('crsTR') + Use In crsTR + Endif + + + ***---- + lcSql = [SELECT NVL(soldcred,0) as soldcred ] + ; + [ from vbal ] + ; + [ where cont = '4423' ] + ; + [ and AN = ?pnAnPrec AND LUNA= ?pnLunaPrec ] + gcCondSucursala + + lcCursor = [crsTP] && nu si-au platit tva din luna precedenta + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crsTP + lnTP = soldcred + + If Used('crsTP') + Use In crsTP + Endif + + lcSql = [ select nvl(sum(suma),0) as suma ] + ; + [from act ] + ; + [where an=?gnAn ] + ; + [and luna=?gnLuna ] + ; + [and sters=0 ] + ; + [and scd='4423' and scc in ('5121','5311')] + gcCondSucursala + + lcCursor = [crsPlati] + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crsPlati + lnPlati = suma + + If Used('crsPlati') + Use In crsPlati + Endif + + lnTP = lnTP - lnPlati + + Select cDecont &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& + Locate For Alltrim(Rand) = '30' + If Found() + Replace TVA With Nvl(lnTP, 0) + Endif + + + ***---- + + + Select cDecont + lodt = Createobject('frm_decontTVA') + lodt.Show(1) +Endproc && viz_decontTVA_1208 + + +****************************************** inceput viz_decontTVA_0507 ******************************************* +Procedure viz_decontTVA_0507 + Parameters tlTrim + + Private pnLunaI, pnLunaF, pnLunaPrec, pnAnPrec + Local llTrim + + *!* If Mod(gnLuna,3)=0 + *!* llTrim = .T. + *!* Else + *!* llTrim=.F. + *!* ENDIF + + llTrim = tlTrim + + If llTrim + Do Case + Case Inlist(gnLuna, 1, 2, 3) + pnLunaI = 1 + pnLunaF = 3 + pnLunaPrec = 12 + pnAnPrec = gnAn - 1 + Case Inlist(gnLuna, 4, 5, 6) + pnLunaI = 4 + pnLunaF = 6 + pnLunaPrec = 3 + pnAnPrec = gnAn + Case Inlist(gnLuna, 7, 8, 9) + pnLunaI = 7 + pnLunaF = 9 + pnLunaPrec = 6 + pnAnPrec = gnAn + Case Inlist(gnLuna, 10, 11, 12) + pnLunaI = 10 + pnLunaF = 12 + pnLunaPrec = 9 + pnAnPrec = gnAn + Endcase + Else + pnLunaI = gnLuna + pnLunaF = gnLuna + If gnLuna = 1 + pnLunaPrec = 12 + pnAnPrec = gnAn - 1 + Else + pnLunaPrec = gnLuna - 1 + pnAnPrec = gnAn + Endif + Endif + + + Private poDecont + Store '' To poDecont + + Private pnProRata + pnProRata = 100 + Local lcSchema1, lcSelect1, lcOrder1, lcFiltru1, lcFiltruOriginal, llAfiseaza + lcSchema1 = [] + + lcSql = [select d.*, 00000000000 as valoare, 00000000000 as tva from decontTVA d where valabil = '0507' order by id_decont] + lcCursor = [cDecont] + + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + + lcSql = [SELECT ROUND(SUM(RO19B),0) AS RO19B, ] + ; + [ ROUND(SUM(RO19T),0) AS RO19T, ] + ; + [ ROUND(SUM(RO9B),0) AS RO9B, ] + ; + [ ROUND(SUM(RO9T),0) AS RO9T,] + ; + [ ROUND(SUM(ROTI),0) AS ROTI, ] + ; + [ ROUND(SUM(CESCDD1),0) AS CESCDD1,] + ; + [ ROUND(SUM(CESCDD2),0) AS CESCDD2,] + ; + [ ROUND(SUM(WRSCDD),0) AS WRSCDD, ] + ; + [ ROUND(SUM(FODD),0) AS FODD, ] + ; + [ ROUND(SUM(FOFDD),0) AS FOFDD, ] + ; + [ ROUND(SUM(WRSCFDD),0) AS WRSCFDD,] + ; + [ ROUND(SUM(WRN),0) AS WRN FROM JV2007 ] + ; + [ WHERE an*12+luna between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF ] + gcCondSucursala + && [ WHERE AN = ?gnAn AND LUNA= ?gnLuna ] + gcCondSucursala + + lcCursor = [crsJV] + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crsJV + pn1B = Nvl(cescdd1, 0) + pn3B = Nvl(cescdd2, 0) + Nvl(fodd, 0) + Nvl(fofdd, 0) + pn7B = Nvl(ro19b, 0) + pn7T = Nvl(ro19t, 0) + pn8B = Nvl(ro9b, 0) + pn8T = Nvl(ro9t, 0) + pn10B = Nvl(roti, 0) + Nvl(wrscdd, 0) + pn11B = Nvl(wrscfdd, 0) &&+ NVL(wrscfdd,0) + + Select cDecont + + Locate For Alltrim(Rand) = '1' + If Found() + Replace valoare With pn1B + Endif + + Locate For Alltrim(Rand) = '3' + If Found() + Replace valoare With pn3B + Endif + + Locate For Alltrim(Rand) = '7' + If Found() + Replace valoare With pn7B, TVA With pn7T + Endif + + Locate For Alltrim(Rand) = '8' + If Found() + Replace valoare With pn8B, TVA With pn8T + Endif + + Locate For Alltrim(Rand) = '10' + If Found() + Replace valoare With pn10B + Endif + + Locate For Alltrim(Rand) = '11' + If Found() + Replace valoare With pn11B + Endif + + *!* lcSql = [SELECT ROUND(SUM(RO19BCB),0) AS RO19BCB, ]+; + *!* [ ROUND(SUM(RO19BCT),0) AS RO19BCT, ]+; + *!* [ ROUND(SUM(RO19BVB),0) AS RO19BVB, ]+; + *!* [ ROUND(SUM(RO19BVT),0) AS RO19BVT, ]+; + *!* [ ROUND(SUM(RO19BFB),0) AS RO19BFB, ]+; + *!* [ ROUND(SUM(RO19BFT),0) AS RO19BFT, ]+; + *!* [ ROUND(SUM(RO09BCB),0) AS RO09BCB, ]+; + *!* [ ROUND(SUM(RO09BCT),0) AS RO09BCT, ]+; + *!* [ ROUND(SUM(RO09BVB),0) AS RO09BVB, ]+; + *!* [ ROUND(SUM(RO09BVT),0) AS RO09BVT, ]+; + *!* [ ROUND(SUM(RO09BFB),0) AS RO09BFB, ]+; + *!* [ ROUND(SUM(RO09BFT),0) AS RO09BFT, ]+; + *!* [ ROUND(SUM(ROSCN),0) AS ROSCN, ]+; + *!* [ ROUND(SUM(FO19BCB),0) AS FO19BCB, ]+; + *!* [ ROUND(SUM(FO19BCT),0) AS FO19BCT, ]+; + *!* [ ROUND(SUM(FO19BVB),0) AS FO19BVB, ]+; + *!* [ ROUND(SUM(FO19BVT),0) AS FO19BVT, ]+; + *!* [ ROUND(SUM(FO19BFB),0) AS FO19BFB, ]+; + *!* [ ROUND(SUM(FO19BFT),0) AS FO19BFT, ]+; + *!* [ ROUND(SUM(FO09BCB),0) AS FO09BCB, ]+; + *!* [ ROUND(SUM(FO09BCT),0) AS FO09BCT, ]+; + *!* [ ROUND(SUM(FO09BVB),0) AS FO09BVB, ]+; + *!* [ ROUND(SUM(FO09BVT),0) AS FO09BVT, ]+; + *!* [ ROUND(SUM(FO09BFB),0) AS FO09BFB, ]+; + *!* [ ROUND(SUM(FO09BFT),0) AS FO09BFT, ]+; + *!* [ ROUND(SUM(FOSCN),0) AS FOSCN, ]+; + *!* [ ROUND(SUM(CEBCB),0) AS CEBCB, ]+; + *!* [ ROUND(SUM(CEBCT),0) AS CEBCT, ]+; + *!* [ ROUND(SUM(CEBVB),0) AS CEBVB, ]+; + *!* [ ROUND(SUM(CEBVT),0) AS CEBVT, ]+; + *!* [ ROUND(SUM(CEBVSC),0) AS CEBVSC, ]+; + *!* [ ROUND(SUM(CEBVN),0) AS CEBVN, ]+; + *!* [ ROUND(SUM(CEBFB),0) AS CEBFB, ]+; + *!* [ ROUND(SUM(CEBFT),0) AS CEBFT, ]+; + *!* [ ROUND(SUM(CEBFSC),0) AS CEBFSC, ]+; + *!* [ ROUND(SUM(CEBFN),0) AS CEBFN, ]+; + *!* [ ROUND(SUM(CASE WHEN SUBSTR(UPPER(TRIM(COD_FISCAL)),1,2) <> 'RO' THEN TI19BCB ELSE 0 END),0) AS TI19BCBWR, ]+; + *!* [ ROUND(SUM(CASE WHEN SUBSTR(UPPER(TRIM(COD_FISCAL)),1,2) <> 'RO' THEN TI19BCT ELSE 0 END),0) AS TI19BCTWR, ]+; + *!* [ ROUND(SUM(CASE WHEN SUBSTR(UPPER(TRIM(COD_FISCAL)),1,2) <> 'RO' THEN TI19BVB ELSE 0 END),0) AS TI19BVBWR, ]+; + *!* [ ROUND(SUM(CASE WHEN SUBSTR(UPPER(TRIM(COD_FISCAL)),1,2) <> 'RO' THEN TI19BVT ELSE 0 END),0) AS TI19BVTWR, ]+; + *!* [ ROUND(SUM(CASE WHEN SUBSTR(UPPER(TRIM(COD_FISCAL)),1,2) <> 'RO' THEN TI19BFB ELSE 0 END),0) AS TI19BFBWR, ]+; + *!* [ ROUND(SUM(CASE WHEN SUBSTR(UPPER(TRIM(COD_FISCAL)),1,2) <> 'RO' THEN TI19BFT ELSE 0 END),0) AS TI19BFTWR, ]+; + *!* [ ROUND(SUM(CASE WHEN SUBSTR(UPPER(TRIM(COD_FISCAL)),1,2) <> 'RO' THEN TI09BVB ELSE 0 END),0) AS TI09BVBWR, ]+; + *!* [ ROUND(SUM(CASE WHEN SUBSTR(UPPER(TRIM(COD_FISCAL)),1,2) <> 'RO' THEN TI09BVT ELSE 0 END),0) AS TI09BVTWR, ]+; + *!* [ ROUND(SUM(CASE WHEN SUBSTR(UPPER(TRIM(COD_FISCAL)),1,2) <> 'RO' THEN TI09BFB ELSE 0 END),0) AS TI09BFBWR, ]+; + *!* [ ROUND(SUM(CASE WHEN SUBSTR(UPPER(TRIM(COD_FISCAL)),1,2) <> 'RO' THEN TI09BFT ELSE 0 END),0) AS TI09BFTWR, ]+; + *!* [ ROUND(SUM(CASE WHEN SUBSTR(UPPER(TRIM(COD_FISCAL)),1,2) = 'RO' THEN TI19BCB ELSE 0 END),0) AS TI19BCBRO, ]+; + *!* [ ROUND(SUM(CASE WHEN SUBSTR(UPPER(TRIM(COD_FISCAL)),1,2) = 'RO' THEN TI19BCT ELSE 0 END),0) AS TI19BCTRO, ]+; + *!* [ ROUND(SUM(CASE WHEN SUBSTR(UPPER(TRIM(COD_FISCAL)),1,2) = 'RO' THEN TI19BVB ELSE 0 END),0) AS TI19BVBRO, ]+; + *!* [ ROUND(SUM(CASE WHEN SUBSTR(UPPER(TRIM(COD_FISCAL)),1,2) = 'RO' THEN TI19BVT ELSE 0 END),0) AS TI19BVTRO, ]+; + *!* [ ROUND(SUM(CASE WHEN SUBSTR(UPPER(TRIM(COD_FISCAL)),1,2) = 'RO' THEN TI19BFB ELSE 0 END),0) AS TI19BFBRO, ]+; + *!* [ ROUND(SUM(CASE WHEN SUBSTR(UPPER(TRIM(COD_FISCAL)),1,2) = 'RO' THEN TI19BFT ELSE 0 END),0) AS TI19BFTRO, ]+; + *!* [ ROUND(SUM(CASE WHEN SUBSTR(UPPER(TRIM(COD_FISCAL)),1,2) = 'RO' THEN TI09BVB ELSE 0 END),0) AS TI09BVBRO, ]+; + *!* [ ROUND(SUM(CASE WHEN SUBSTR(UPPER(TRIM(COD_FISCAL)),1,2) = 'RO' THEN TI09BVT ELSE 0 END),0) AS TI09BVTRO, ]+; + *!* [ ROUND(SUM(CASE WHEN SUBSTR(UPPER(TRIM(COD_FISCAL)),1,2) = 'RO' THEN TI09BFB ELSE 0 END),0) AS TI09BFBRO, ]+; + *!* [ ROUND(SUM(CASE WHEN SUBSTR(UPPER(TRIM(COD_FISCAL)),1,2) = 'RO' THEN TI09BFT ELSE 0 END),0) AS TI09BFTRO ]+; + *!* [ FROM VJC2007 WHERE AN = ?gnAn AND LUNA= ?gnLuna ] + gcCondSucursala + + + lcSql = [SELECT ROUND(SUM(RO19BCB),0) AS RO19BCB, ] + ; + [ ROUND(SUM(RO19BCT),0) AS RO19BCT, ] + ; + [ ROUND(SUM(RO19BVB),0) AS RO19BVB, ] + ; + [ ROUND(SUM(RO19BVT),0) AS RO19BVT, ] + ; + [ ROUND(SUM(RO19BFB),0) AS RO19BFB, ] + ; + [ ROUND(SUM(RO19BFT),0) AS RO19BFT, ] + ; + [ ROUND(SUM(RO09BCB),0) AS RO09BCB, ] + ; + [ ROUND(SUM(RO09BCT),0) AS RO09BCT, ] + ; + [ ROUND(SUM(RO09BVB),0) AS RO09BVB, ] + ; + [ ROUND(SUM(RO09BVT),0) AS RO09BVT, ] + ; + [ ROUND(SUM(RO09BFB),0) AS RO09BFB, ] + ; + [ ROUND(SUM(RO09BFT),0) AS RO09BFT, ] + ; + [ ROUND(SUM(ROSCN),0) AS ROSCN, ] + ; + [ ROUND(SUM(FO19BCB),0) AS FO19BCB, ] + ; + [ ROUND(SUM(FO19BCT),0) AS FO19BCT, ] + ; + [ ROUND(SUM(FO19BVB),0) AS FO19BVB, ] + ; + [ ROUND(SUM(FO19BVT),0) AS FO19BVT, ] + ; + [ ROUND(SUM(FO19BFB),0) AS FO19BFB, ] + ; + [ ROUND(SUM(FO19BFT),0) AS FO19BFT, ] + ; + [ ROUND(SUM(FO09BCB),0) AS FO09BCB, ] + ; + [ ROUND(SUM(FO09BCT),0) AS FO09BCT, ] + ; + [ ROUND(SUM(FO09BVB),0) AS FO09BVB, ] + ; + [ ROUND(SUM(FO09BVT),0) AS FO09BVT, ] + ; + [ ROUND(SUM(FO09BFB),0) AS FO09BFB, ] + ; + [ ROUND(SUM(FO09BFT),0) AS FO09BFT, ] + ; + [ ROUND(SUM(FOSCN),0) AS FOSCN, ] + ; + [ ROUND(SUM(CEBCB),0) AS CEBCB, ] + ; + [ ROUND(SUM(CEBCT),0) AS CEBCT, ] + ; + [ ROUND(SUM(CEBVB),0) AS CEBVB, ] + ; + [ ROUND(SUM(CEBVT),0) AS CEBVT, ] + ; + [ ROUND(SUM(CEBVSC),0) AS CEBVSC, ] + ; + [ ROUND(SUM(CEBVN),0) AS CEBVN, ] + ; + [ ROUND(SUM(CEBFB),0) AS CEBFB, ] + ; + [ ROUND(SUM(CEBFT),0) AS CEBFT, ] + ; + [ ROUND(SUM(CEBFSC),0) AS CEBFSC, ] + ; + [ ROUND(SUM(CEBFN),0) AS CEBFN, ] + ; + [ ROUND(SUM(TI19BCB),0) AS TI19BCBWR, ] + ; + [ ROUND(SUM(TI19BCT),0) AS TI19BCTWR, ] + ; + [ ROUND(SUM(TI19BVB),0) AS TI19BVBWR, ] + ; + [ ROUND(SUM(TI19BVT),0) AS TI19BVTWR, ] + ; + [ ROUND(SUM(TI19BFB),0) AS TI19BFBWR, ] + ; + [ ROUND(SUM(TI19BFT),0) AS TI19BFTWR, ] + ; + [ ROUND(SUM(TI09BVB),0) AS TI09BVBWR, ] + ; + [ ROUND(SUM(TI09BVT),0) AS TI09BVTWR, ] + ; + [ ROUND(SUM(TI09BFB),0) AS TI09BFBWR, ] + ; + [ ROUND(SUM(TI09BFT),0) AS TI09BFTWR, ] + ; + [ ROUND(SUM(TI19BCB),0) AS TI19BCBRO, ] + ; + [ ROUND(SUM(TI19BCT),0) AS TI19BCTRO, ] + ; + [ ROUND(SUM(TI19BVB),0) AS TI19BVBRO, ] + ; + [ ROUND(SUM(TI19BVT),0) AS TI19BVTRO, ] + ; + [ ROUND(SUM(TI19BFB),0) AS TI19BFBRO, ] + ; + [ ROUND(SUM(TI19BFT),0) AS TI19BFTRO, ] + ; + [ ROUND(SUM(TI09BVB),0) AS TI09BVBRO, ] + ; + [ ROUND(SUM(TI09BVT),0) AS TI09BVTRO, ] + ; + [ ROUND(SUM(TI09BFB),0) AS TI09BFBRO, ] + ; + [ ROUND(SUM(TI09BFT),0) AS TI09BFTRO ] + ; + [ FROM VJC2007 WHERE an*12+luna between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF ] + gcCondSucursala + ** [ FROM VJC2007 WHERE AN = ?gnAn AND LUNA= ?gnLuna ] + gcCondSucursala + + lcCursor = [crsJC] + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crsJC + + *!* pn17B = Nvl(ro19bcb,0) + Nvl(ro19bvb,0) + Nvl(ro19bfb,0) + Nvl(fo19bcb,0) + Nvl(fo19bvb,0) + Nvl(fo19bfb,0) + ; + *!* NVL(ti19bcbro,0) + Nvl(ti19bvbro,0) + Nvl(ti19bfbro,0) + + *!* pn17T = Nvl(ro19bct,0) + Nvl(ro19bvt,0) + Nvl(ro19bft,0) + Nvl(fo19bct,0) + Nvl(fo19bvt,0) + Nvl(fo19bft,0) + ; + *!* NVL(ti19bctro,0) + Nvl(ti19bvtro,0) + Nvl(ti19bftro,0) + + + pn17B = Nvl(ro19bcb, 0) + Nvl(ro19bvb, 0) + Nvl(ro19bfb, 0) + Nvl(fo19bcb, 0) + Nvl(fo19bvb, 0) + Nvl(fo19bfb, 0) + + pn17T = Nvl(ro19bct, 0) + Nvl(ro19bvt, 0) + Nvl(ro19bft, 0) + Nvl(fo19bct, 0) + Nvl(fo19bvt, 0) + Nvl(fo19bft, 0) + + + pn18B = Nvl(ro09bcb, 0) + Nvl(ro09bvb, 0) + Nvl(ro09bfb, 0) + Nvl(fo09bcb, 0) + Nvl(fo09bvb, 0) + Nvl(fo09bfb, 0) + ; + Nvl(ti09bvbro, 0) + Nvl(ti09bfbro, 0) + + pn18T = Nvl(ro09bct, 0) + Nvl(ro09bvt, 0) + Nvl(ro09bft, 0) + Nvl(fo09bct, 0) + Nvl(fo09bvt, 0) + Nvl(fo09bft, 0) + ; + Nvl(ti09bvtro, 0) + Nvl(ti09bftro, 0) + + pn19B = Nvl(roscn, 0) + Nvl(cebvsc, 0) + Nvl(cebvn, 0) + Nvl(cebfsc, 0) + Nvl(cebfn, 0) + Nvl(foscn, 0) + + + + pn14B = Nvl(cebcb, 0) + Nvl(cebvb, 0) + Nvl(cebfb, 0) + pn14T = Nvl(cebct, 0) + Nvl(cebvt, 0) + Nvl(cebft, 0) + pn4B = pn14B + pn4T = pn14T + pn9B = Nvl(ti19bcbro, 0) + Nvl(ti19bvbro, 0) + Nvl(ti19bfbro, 0) + Nvl(ti09bvbro, 0) + Nvl(ti09bfbro, 0) &&pn17B + pn18B + pn9T = Nvl(ti19bctro, 0) + Nvl(ti19bvtro, 0) + Nvl(ti19bftro, 0) + Nvl(ti09bvtro, 0) + Nvl(ti09bftro, 0) && pn17T + pn18T + + pn16B = Nvl(ti19bcbwr, 0) + Nvl(ti19bvbwr, 0) + Nvl(ti19bfbwr, 0) + Nvl(ti09bvbwr, 0) + Nvl(ti09bfbwr, 0) + pn16T = Nvl(ti19bctwr, 0) + Nvl(ti19bvtwr, 0) + Nvl(ti19bftwr, 0) + Nvl(ti09bvtwr, 0) + Nvl(ti09bftwr, 0) + pn6B = pn16B + pn6T = pn16T + + Select cDecont + + Locate For Alltrim(Rand) = '17' + If Found() + Replace valoare With pn17B, TVA With pn17T + Endif + + Locate For Alltrim(Rand) = '18' + If Found() + Replace valoare With pn18B, TVA With pn18T + Endif + + Locate For Alltrim(Rand) = '19' + If Found() + Replace valoare With pn19B + Endif + + Locate For Alltrim(Rand) = '14' + If Found() + Replace valoare With pn14B, TVA With pn14T + Endif + + Locate For Alltrim(Rand) = '14.1' + If Found() + Replace valoare With pn14B, TVA With pn14T + Endif + + Locate For Alltrim(Rand) = '4' + If Found() + Replace valoare With pn4B, TVA With pn4T + Endif + + Locate For Alltrim(Rand) = '4.1' + If Found() + Replace valoare With pn4B, TVA With pn4T + Endif + + *!* Locate For Alltrim(Rand) = '9' + *!* If Found() + *!* Replace valoare With pn9B, tva With pn9T + *!* Endif + + Locate For Alltrim(Rand) = '16' + If Found() + Replace valoare With pn16B, TVA With pn16T + Endif + + Locate For Alltrim(Rand) = '6' + If Found() + Replace valoare With pn6B, TVA With pn6T + Endif + + lcSql = [SELECT solddeb ] + ; + [ from vbal ] + ; + [ where cont = 4424 ] + ; + [ and AN = ?pnAnPrec AND LUNA= ?pnLunaPrec] + gcCondSucursala + + + lcCursor = [crsTR] && TVA de recuperat + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crsTR + lnTR = solddeb + + Select cDecont + Locate For Alltrim(Rand) = '30' + If Found() + Replace TVA With lnTR + Endif + + If Used('crsTR') + Use In crsTR + Endif + + + ***---- + lcSql = [SELECT NVL(soldcred,0) as soldcred ] + ; + [ from vbal ] + ; + [ where cont = '4423' ] + ; + [ and AN = ?pnAnPrec AND LUNA= ?pnLunaPrec ] + gcCondSucursala + + lcCursor = [crsTP] && nu si-au platit tva din luna precedenta + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crsTP + lnTP = soldcred + + If Used('crsTP') + Use In crsTP + Endif + + lcSql = [ select nvl(sum(suma),0) as suma ] + ; + [from act ] + ; + [where an=?gnAn ] + ; + [and luna=?gnLuna ] + ; + [and sters=0 ] + ; + [and scd='4423' and scc in ('5121','5311')] + gcCondSucursala + + lcCursor = [crsPlati] + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crsPlati + lnPlati = suma + + If Used('crsPlati') + Use In crsPlati + Endif + + lnTP = lnTP - lnPlati + + Select cDecont + Locate For Alltrim(Rand) = '28' + If Found() + Replace TVA With Nvl(lnTP, 0) + Endif + + + ***---- + + + Select cDecont + lodt = Createobject('frm_decontTVA') + lodt.Show(1) +Endproc && viz_decontTVA_0507 + +*=========================================== +Procedure viz_decontTVA_0107 + Private poDecont + Store '' To poDecont + + Private pnProRata + pnProRata = 100 + + Local lcSchema1, lcSelect1, lcOrder1, lcFiltru1, lcFiltruOriginal, llAfiseaza + lcSchema1 = [] + + lcSql = [select d.*, 00000000000 as valoare, 00000000000 as tva from decontTVA d where valabil = '0107' order by id_decont] + lcCursor = "cDecont" + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + lcSql = [SELECT ROUND(SUM(RO19B),0) AS RO19B, ] + ; + [ ROUND(SUM(RO19T),0) AS RO19T, ] + ; + [ ROUND(SUM(RO9B),0) AS RO9B, ] + ; + [ ROUND(SUM(RO9T),0) AS RO9T,] + ; + [ ROUND(SUM(ROTI),0) AS ROTI, ] + ; + [ ROUND(SUM(CESCDD1),0) AS CESCDD1,] + ; + [ ROUND(SUM(CESCDD2),0) AS CESCDD2,] + ; + [ ROUND(SUM(WRSCDD),0) AS WRSCDD, ] + ; + [ ROUND(SUM(FODD),0) AS FODD, ] + ; + [ ROUND(SUM(FOFDD),0) AS FOFDD, ] + ; + [ ROUND(SUM(WRSCFDD),0) AS WRSCFDD,] + ; + [ ROUND(SUM(WRN),0) AS WRN FROM JV2007 WHERE AN=?gnAn AND LUNA=?gnLuna] + gcCondSucursala + + lcCursor = [crsJV] + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crsJV + pn06B = Nvl(ro19b, 0) + pn06T = Nvl(ro19t, 0) + pn07B = Nvl(ro9b, 0) + pn07T = Nvl(ro9t, 0) + pn08B = Nvl(roti, 0) + Nvl(wrscdd, 0) + pn09B = Nvl(wrscfdd, 0) &&+ NVL(wrscfdd,0) + + pn01B = Nvl(cescdd1, 0) + pn02B = Nvl(cescdd2, 0) + Nvl(fodd, 0) + Nvl(fofdd, 0) + + Select cDecont + + Locate For Alltrim(Rand) = '01' + If Found() + Replace valoare With pn01B + Endif + + Locate For Alltrim(Rand) = '02' + If Found() + Replace valoare With pn02B + Endif + + Locate For Alltrim(Rand) = '06' + If Found() + Replace valoare With pn06B, TVA With pn06T + Endif + + Locate For Alltrim(Rand) = '07' + If Found() + Replace valoare With pn07B, TVA With pn07T + Endif + + Locate For Alltrim(Rand) = '08' + If Found() + Replace valoare With pn08B + Endif + + Locate For Alltrim(Rand) = '09' + If Found() + Replace valoare With pn09B + Endif + + lcSql = [SELECT ROUND(SUM(RO19BCB),0) AS RO19BCB, ] + ; + [ ROUND(SUM(RO19BCT),0) AS RO19BCT, ] + ; + [ ROUND(SUM(RO19BVB),0) AS RO19BVB, ] + ; + [ ROUND(SUM(RO19BVT),0) AS RO19BVT, ] + ; + [ ROUND(SUM(RO19BFB),0) AS RO19BFB, ] + ; + [ ROUND(SUM(RO19BFT),0) AS RO19BFT, ] + ; + [ ROUND(SUM(RO09BCB),0) AS RO09BCB, ] + ; + [ ROUND(SUM(RO09BCT),0) AS RO09BCT, ] + ; + [ ROUND(SUM(RO09BVB),0) AS RO09BVB, ] + ; + [ ROUND(SUM(RO09BVT),0) AS RO09BVT, ] + ; + [ ROUND(SUM(RO09BFB),0) AS RO09BFB, ] + ; + [ ROUND(SUM(RO09BFT),0) AS RO09BFT, ] + ; + [ ROUND(SUM(ROSCN),0) AS ROSCN, ] + ; + [ ROUND(SUM(FO19BCB),0) AS FO19BCB, ] + ; + [ ROUND(SUM(FO19BCT),0) AS FO19BCT, ] + ; + [ ROUND(SUM(FO19BVB),0) AS FO19BVB, ] + ; + [ ROUND(SUM(FO19BVT),0) AS FO19BVT, ] + ; + [ ROUND(SUM(FO19BFB),0) AS FO19BFB, ] + ; + [ ROUND(SUM(FO19BFT),0) AS FO19BFT, ] + ; + [ ROUND(SUM(FO09BCB),0) AS FO09BCB, ] + ; + [ ROUND(SUM(FO09BCT),0) AS FO09BCT, ] + ; + [ ROUND(SUM(FO09BVB),0) AS FO09BVB, ] + ; + [ ROUND(SUM(FO09BVT),0) AS FO09BVT, ] + ; + [ ROUND(SUM(FO09BFB),0) AS FO09BFB, ] + ; + [ ROUND(SUM(FO09BFT),0) AS FO09BFT, ] + ; + [ ROUND(SUM(FOSCN),0) AS FOSCN, ] + ; + [ ROUND(SUM(CEBCB),0) AS CEBCB, ] + ; + [ ROUND(SUM(CEBCT),0) AS CEBCT, ] + ; + [ ROUND(SUM(CEBVB),0) AS CEBVB, ] + ; + [ ROUND(SUM(CEBVT),0) AS CEBVT, ] + ; + [ ROUND(SUM(CEBVSC),0) AS CEBVSC, ] + ; + [ ROUND(SUM(CEBVN),0) AS CEBVN, ] + ; + [ ROUND(SUM(CEBFB),0) AS CEBFB, ] + ; + [ ROUND(SUM(CEBFT),0) AS CEBFT, ] + ; + [ ROUND(SUM(CEBFSC),0) AS CEBFSC, ] + ; + [ ROUND(SUM(CEBFN),0) AS CEBFN, ] + ; + [ ROUND(SUM(TI19BCB),0) AS TI19BCB, ] + ; + [ ROUND(SUM(TI19BCT),0) AS TI19BCT, ] + ; + [ ROUND(SUM(TI19BVB),0) AS TI19BVB, ] + ; + [ ROUND(SUM(TI19BVT),0) AS TI19BVT, ] + ; + [ ROUND(SUM(TI19BFB),0) AS TI19BFB, ] + ; + [ ROUND(SUM(TI19BFT),0) AS TI19BFT, ] + ; + [ ROUND(SUM(TI09BVB),0) AS TI09BVB, ] + ; + [ ROUND(SUM(TI09BVT),0) AS TI09BVT, ] + ; + [ ROUND(SUM(TI09BFB),0) AS TI09BFB, ] + ; + [ ROUND(SUM(TI09BFT),0) AS TI09BFT ] + ; + [ FROM JC2007 WHERE AN=?gnAn AND LUNA=?gnLuna] + gcCondSucursala + + lcCursor = [crsJC] + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crsJC + pn03B = Nvl(cebcb, 0) + Nvl(cebvb, 0) + Nvl(cebfb, 0) + pn03T = Nvl(cebct, 0) + Nvl(cebvt, 0) + Nvl(cebft, 0) + + pn04B = Nvl(ti19bcb, 0) + Nvl(ti19bvb, 0) + Nvl(ti19bfb, 0) + Nvl(ti09bvb, 0) + Nvl(ti09bfb, 0) + pn04T = Nvl(ti19bct, 0) + Nvl(ti19bvt, 0) + Nvl(ti19bft, 0) + Nvl(ti09bvt, 0) + Nvl(ti09bft, 0) + + pn13B = Nvl(cebvb, 0) + pn13T = Nvl(cebvt, 0) + + pn14B = Nvl(cebcb, 0) + Nvl(cebfb, 0) + pn14T = Nvl(cebct, 0) + Nvl(cebft, 0) + + pn15B = Nvl(ti19bcb, 0) + Nvl(ti19bvb, 0) + Nvl(ti19bfb, 0) + Nvl(ti09bvb, 0) + Nvl(ti09bfb, 0) + pn15T = Nvl(ti19bct, 0) + Nvl(ti19bvt, 0) + Nvl(ti19bft, 0) + Nvl(ti09bvt, 0) + Nvl(ti09bft, 0) + + pn18B = Nvl(ro19bvb, 0) + Nvl(fo19bvb, 0) + pn18T = Nvl(ro19bvt, 0) + Nvl(fo19bvt, 0) + + pn19B = Nvl(ro09bvb, 0) + Nvl(fo09bvb, 0) + pn19T = Nvl(ro09bvt, 0) + Nvl(fo09bvt, 0) + + pn20B = Nvl(roscn, 0) + Nvl(cebvsc, 0) + Nvl(cebvn, 0) + Nvl(cebfsc, 0) + Nvl(cebfn, 0) + Nvl(foscn, 0) + + pn21B = Nvl(ro19bcb, 0) + Nvl(fo19bcb, 0) + pn21T = Nvl(ro19bct, 0) + Nvl(fo19bct, 0) + + pn22B = Nvl(ro19bfb, 0) + Nvl(fo19bfb, 0) + pn22T = Nvl(ro19bft, 0) + Nvl(fo19bft, 0) + + pn23B = Nvl(ro09bfb, 0) + Nvl(fo09bfb, 0) + pn23T = Nvl(ro09bft, 0) + Nvl(fo09bft, 0) + + Select cDecont + + Locate For Alltrim(Rand) = '03' + If Found() + Replace valoare With pn03B, TVA With pn03T + Endif + + Locate For Alltrim(Rand) = '04' + If Found() + Replace valoare With pn04B, TVA With pn04T + Endif + + Locate For Alltrim(Rand) = '13' + If Found() + Replace valoare With pn13B, TVA With pn13T + Endif + + Locate For Alltrim(Rand) = '14' + If Found() + Replace valoare With pn14B, TVA With pn14T + Endif + + Locate For Alltrim(Rand) = '15' + If Found() + Replace valoare With pn15B, TVA With pn15T + Endif + + Locate For Alltrim(Rand) = '18' + If Found() + Replace valoare With pn18B, TVA With pn18T + Endif + + Locate For Alltrim(Rand) = '19' + If Found() + Replace valoare With pn19B, TVA With pn19T + Endif + + Locate For Alltrim(Rand) = '20' + If Found() + Replace valoare With pn20B + Endif + + Locate For Alltrim(Rand) = '21' + If Found() + Replace valoare With pn21B, TVA With pn21T + Endif + + Locate For Alltrim(Rand) = '22' + If Found() + Replace valoare With pn22B, TVA With pn22T + Endif + + Locate For Alltrim(Rand) = '23' + If Found() + Replace valoare With pn23B, TVA With pn23T + Endif + + Select cDecont + lodt = Createobject('frm_decontTVA') + lodt.Show(1) + +Endproc && viz_decontTVA_0107_0407 +***-------------------------------------- inceput date_identif ------------------------ +Procedure date_identif + Lparameters tcCale + + Local lcSelect, lcFiltru, lcSchema, lcOrder, llAfisare, lcGroup, llModParam, lcFiltruOriginal + + If !Empty(tcCale) + gcDecont_caleExport = tcCale + Else + gcDecont_caleExport = "C:\Program Files\Declaratii fiscale " + Alltrim(Str(gnAn)) + Endif + + If !Directory(gcDecont_caleExport) + gcDecont_caleExport = Getdir("C:", "Directorul Declaratii fiscale", "Declaratii fiscale") + Endif + If Empty(gcDecont_caleExport) + Return + Endif + + + lcDir = Addbs(Alltrim(gcDecont_caleExport)) + Addbs(Alltrim(gofirma.firma)) + If !Directory(lcDir) + Md (lcDir) + Endif + + lcFisUnitate = lcDir + "unitate.dbf" + If !File(lcFisUnitate) + Create Table (lcFisUnitate) (caen N(4), codi N(10), deni c(50), adr c(150), telf c(10), banca c(100), Cont c(100), intocmitf c(30), calIntoc c(30)) + Else + Use (lcFisUnitate) In 0 Alias unitate + Endif + + Select unitate + If Eof() + Append Blank + Else + Go Top + Endif + + Select unitate + Scatter Name pounitate + + If Empty(codi) + lccf = Nvl(Alltrim(gofirma.cod_fiscal), '') + lccf_tot = '' + For i = 1 To Len(lccf) + If Type(Substr(lccf, i, 1)) = "N" + lcnc = Substr(lccf, i, 1) + lccf_tot = lccf_tot + lcnc + Endif + Endfor + pounitate.codi = Val(lccf_tot) + Endif + + If Empty(deni) + pounitate.deni = Alltrim(gofirma.firma) + Endif + *** + + lcCaen = "" + lcCalIntoc = "" + + *!* ** caen + *!* Private poCaen + *!* Store '' To poCaen + *!* lcSchema1 = [ID N(4), CODCAEN C(100), COD N(4)] + *!* lcSelect1 = ['select id, codcaen, cod from sitfin_codCaen where 1=2'] + *!* lcOrder1 = [] + *!* lcFiltru1 = [2=2] + *!* llAfiseaza = .F. + *!* gencursor('poCaen','crsCodCaen', lcSelect1, lcFiltru1, lcSchema1, lcOrder1, llAfiseaza) + *!* poCaen.ca_baza1.afisare() + + + ** caen + Private poCaen + Store '' To poCaen + + lcSchema = [] + lcSelect = [select clasa as cod, trim(clasa)||'--'||substr(trim(caen),1,100) As codcaen from caen] + lcOrder = [clasa] + lcFiltru = [clasa is not null] + + llAfisare = .F. + llModParam = .T. + lcFiltruOriginal = [] + + gencursor('poCaen', 'crsCodCaen', lcSelect, lcFiltru, lcSchema, lcOrder, llAfisare, lcGroup, llModParam, lcFiltruOriginal ) + poCaen.ca_baza1.afisare() + + If Empty(pounitate.caen) + Select crsCodCaen + Locate For Alltrim(cod) = Alltrim(gofirma.caen) + If Found() + pounitate.caen = cod + lcCaen = codCaen + Endif + Else + Select crsCodCaen + Locate For Alltrim(cod) = Alltrim(Str(pounitate.caen)) + If Found() + lcCaen = codCaen + Endif + Endif + + Select unitate + If Empty(adr) + pounitate.adr = Nvl(Alltrim(gofirma.adresa), '') + Endif + + If Empty(telf) + pounitate.telf = Nvl(Alltrim(gofirma.telefon), '') + ' ' + Nvl(Alltrim(gofirma.fax), '') + ' ' + Nvl(Alltrim(gofirma.email), '') + Endif + + If Empty(banca) + pounitate.banca = Nvl(Alltrim(gofirma.banca1), '') + Endif + + If Empty(Cont) + pounitate.Cont = Nvl(Alltrim(gofirma.cont_banca1), '') + Endif + + If Empty(intocmitf) + pounitate.intocmitf = Nvl(Alltrim(gofirma.declarant), '') + Endif + + If Empty(calIntoc) + pounitate.calIntoc = Nvl(Alltrim(gofirma.functie), '') + Endif + + Select unitate + + lodi = Createobject("frm_dateIdentificare") + lodi.cCaen = lcCaen + lodi.Show(1) + + Release poCaen + + If buton = 2 + Use In unitate + Return + Endif + + Select unitate + Gather Name pounitate + + Use In unitate +Endproc && date_identif + +***------------------------------------------------------------------------------------------------------------------------- +Procedure export_decont + Parameters tcAlias + + Local lcSir, lcDirTabele, lcFisUnitate, lcCodFiscal, lcDirDecont, lcFile, lcFisAdresa, lcfisDec300T, lcfisDec300T9 + lcSir = '' + lcFisAdresa = [] + lcfisDec300T = [] + lcfisDec300T9 = [] + + If gnAn > 2007 + gcDecont_caleExport = "C:\Program Files\Declaratii fiscale " + Alltrim(Str(gnAn)) + Else + gcDecont_caleExport = "C:\Program Files\Declaratii fiscale 2007" + Endif + If !Directory(gcDecont_caleExport) + gcDecont_caleExport = Getdir("C:", "Directorul Declaratii fiscale", "Declaratii fiscale") + Endif + If Empty(gcDecont_caleExport) + Return + Endif + + lcDirTabele = Addbs(Alltrim(gcDecont_caleExport)) + Alltrim(gofirma.firma) + "\" + lcFisUnitate = lcDirTabele + "Unitate.dbf" + If !File(lcFisUnitate) + amessage("Nu ati salvat Date de identificare unitate!", 0 + 48, _Screen.Caption) + Return + Endif + + Use (lcFisUnitate) In 0 Alias unitate + Select unitate + lcCodFiscal = Alltrim(Str(codi)) + Use In unitate + + lcDirDecont = Addbs(Alltrim(gcDecont_caleExport)) + lcCodFiscal + + *** creez unitate.txt + Set Textmerge To + lcFile = lcDirTabele + "adresa.txt" + Set Textmerge On To (lcFile) Noshow + + Use (lcFisUnitate) In 0 Alias unitate + Select unitate + Go Top + lcSir = "##,#" + Alltrim(Str(codi)) + "#,#" + ; + Alltrim(deni) + "#,#" + ; + Alltrim(deni) + "#,#" + ; + Alltrim(adr) + "#,#" + ; + Alltrim(telf) + "#,#" + ; + Alltrim(banca) + "#,#" + ; + Alltrim(Cont) + "#,#" + ; + "#,##,##,#" + ; + Alltrim(intocmitf) + "#,#" + ; + Alltrim(calIntoc) + "#," + ; + Alltrim(Str(caen)) + + *USE IN unitate + +\\<> + Set Textmerge To + Wait Window "S-a exportat adresa.txt..." Timeout 1 + + **** + *** + *** creez Dec300T.txt + Set Textmerge To + lcFile = lcDirTabele + "\Dec300T.txt" + Set Textmerge On To (lcFile) Noshow + + lcSir = '' + + lcTest = '' + *lcSir = lcSir + '300,,' + PADL(gnLuna,2,'0') + ',' + ALLTRIM(STR(gnAn,4,0)) + ',,,' + lcSir = lcCodFiscal + ',' + Padl(gnLuna, 2, '0') + ',' + Alltrim(Str(gnAn, 4, 0)) + ',,' + Alltrim(Transform(pnProRata)) + ',' + Select (tcAlias) + Scan For !Empty(Nvl(Rand, 0)) + lcSir = lcSir + ; + Iif(Nvl(inactivB, 0) <> 1, Iif(valoare <> 0, Alltrim(Str(valoare, 15, 0)), []) + [,], []) + ; + Iif(Nvl(inactivT, 0) <> 1, Iif(TVA <> 0, Alltrim(Str(TVA, 15, 0)), []) + [,], []) + Endscan + + lcSir = lcSir + Alltrim(Str(pnNr_facturi, 15, 0)) + ',' + Alltrim(Str(pnBaza, 15, 0)) + ',' + Alltrim(Str(pnTVA, 15, 0)) + ',' + + Select unitate + * lcSir = lcSir + ALLTRIM(STR(caen))+',#N#,#'+ALLTRIM(banca)+'#,#'+ALLTRIM(cont) + '#' + lcSir = lcSir + Alltrim(Str(caen)) + ',#N#' + + Use In unitate + + + *!* IF !EMPTY(lcSir) + *!* lcSir = LEFT(lcSir,LEN(lcSir)-1) + *!* ENDIF + lcSir = lcSir + Chr(13) + Chr(10) + + +\\<> + Set Textmerge To + Wait Window "S-a exportat Dec300T.txt..." Timeout 1 + + lcA = lcDirTabele + "\" + "adresa.txt" + lcD = lcDirTabele + "\" + "dec300T.txt" + + If !Directory(lcDirDecont) + Md (lcDirDecont) + Endif + lcFisAdresa = lcDirDecont + "\adresa.txt" + lcfisDec300T = lcDirDecont + "\dec300T.txt" + lcfisDec300T9 = lcDirDecont + "\dec300T9.txt" + + Copy File (lcA) To (lcFisAdresa) + Copy File (lcD) To (lcfisDec300T) + Copy File (lcD) To (lcfisDec300T9) + + amessagebox([Fisierele au fost exportate in directorul ] + Alltrim(Addbs(Justpath(lcfisDec300T))) + Chr(13) + Chr(10) + ; + [Intrati in programul de Declaratii Fiscale si selectati Declaratia 300], 0 + 64, 'Decont TVA') +Endproc && export_decont +***-------------------------------------------------------------- +********************************************************* +*** DECLARATIA 392 +********************************************************* +Procedure viz_decl392 + Lparameters tcTip + Local lcTip + lcTip = Iif(Type('tcTip') = 'C', m.tcTip, Iif(Substr(Alltrim(gofirma.cod_fiscal), 1, 2) = 'RO', 'A', 'B')) + + If m.gnLuna = 12 + Local loD392 As "D392" + loD392 = Createobject("D392", m.lcTip) && ovanzcump.vcx + loD392.do_executa() + Else + amessagebox("Pentru a putea genera declaratia 392 " + Alltrim(tcTip) + " trebuie sa intrati in luna decembrie!", 48, "Atentie") + Endif +Endproc + +Define Class D392 As Custom + + cTip = [] && A sau B + nAn = 0 + nLuna = 0 + cCodFiscal = 0 + cCodCaen = [] + lPlatitorTVA = .F. + cDenumireFirma = [] + cAdresa = [] + cTelefon = [] + cFax = [] + cEmail = [] + cDeclarant = [] + cNumeDeclarant = [] + cPrenumeDeclarant = [] + cFunctieDeclarant = [] + + nCifraDeAfaceri = 0 + nBazaLivrPlTVA = 0 + nTVALivrPlTVA = 0 + nBazaLivrNeplTVA = 0 + nTVALivrNeplTVA = 0 + nBazaAchPlTVA = 0 + nTVAAchPlTVA = 0 + nBazaAchNeplTVA = 0 + + nProcTVATI = 0.24 + + Procedure Init + Lparameters tcTip + With This + .cTip = tcTip + .nAn = gnAn + .nLuna = m.gnLuna + .cCodFiscal = Strtran(Alltrim(Upper(Nvl(gofirma.cod_fiscal, ''))), 'RO', '') + .cCodCaen = Alltrim(gofirma.caen) + .lPlatitorTVA = (Substr(Alltrim(Upper(Nvl(gofirma.cod_fiscal, ''))), 1, 2) == 'RO') + .cDenumireFirma = Nvl(Alltrim(gofirma.firma), '') + .cAdresa = Nvl(Alltrim(gofirma.adresa), '') + .cTelefon = Nvl(Alltrim(gofirma.telefon), '') + .cFax = Nvl(Alltrim(gofirma.fax), '') + .cEmail = Nvl(Alltrim(gofirma.email), '') + .cDeclarant = Alltrim(gofirma.declarant) + .cNumeDeclarant = Alltrim(gofirma.nume_declarant) + .cPrenumeDeclarant = Alltrim(gofirma.prenume_declarant) + .cFunctieDeclarant = Alltrim(gofirma.functie) + + .nCifraDeAfaceri = 0 + .nBazaLivrPlTVA = 0 + .nTVALivrPlTVA = 0 + .nBazaLivrNeplTVA = 0 + .nTVALivrNeplTVA = 0 + .nBazaAchPlTVA = 0 + .nTVAAchPlTVA = 0 + .nBazaAchNeplTVA = 0 + Endwith + Endproc + + Procedure do_executa + Local loFrmDoc As "frm_decl_tipdoc" + Local lcAppPath, lcCaleFisier, lcCaleFisierPDF, lcCaleTemp, lcComunPath, lcConditieAct, lcCursor + Local lcFileName, lcFileNamePDF, lcFirma, lcFisierPDFNou, lcFisierPDFOriginal, lcFisierTXT + Local lcFisierXDP, lcFisierXLS, lcMesaj, lcNumeFisier, lcRun, lcSelect, lcSirId, lcSql, llSucces + Local lnPos, loEx + lcSelect = Select() + *** Initializare cai export + lcAppPath = Addbs(gcAppPath) + lcComunPath = lcAppPath + lnPos = Rat("\", Addbs(m.lcAppPath), 2) + If lnPos > 0 + lcComunPath = Left(m.lcAppPath, lnPos) + Endif + lcComunPath = lcComunPath + Iif(gcAppName = "CONCONT", "COMUNCONTAFIN\", "COMUNROA\") && d:\contafin\comuncontafin\ + + *** Creez structura director export : caletemp\D392\aaaa\firma\ + llSucces = .F. + Try + lcCaleTemp = m.gcBasePath + lcCaleFisier = m.lcCaleTemp + "D392\" + If !Directory(m.lcCaleFisier) + Md (m.lcCaleFisier) + Endif + + lcFirma = Iif(gcAppName = "CONCONT", Alltrim(gofirma.fscurt), m.gcFirma) + lcCaleFisier = m.lcCaleFisier + Strtran(lcFirma, [ ], [_]) + "\" + + lcCaleFisierPDF = m.lcCaleFisier && c:\temp\D392\2014\firma\ + + If !Directory(m.lcCaleFisier) + Md (m.lcCaleFisier) + Endif + + lcFirma = Iif(gcAppName = "CONCONT", Alltrim(gofirma.fscurt), m.gcFirma) + lcCaleFisier = m.lcCaleFisier + Strtran(lcFirma, [ ], [_]) + "\" + If !Directory(m.lcCaleFisier) + Md (m.lcCaleFisier) + Endif + + llSucces = .T. + Catch To loEx + lcMesaj = "Creare director " + lcCaleFisier + " " + loEx.Message + + amessagebox(lcMesaj, 0 + 48) + Endtry + If !llSucces + Return + Endif + + If Type('gofirma.codfiscalfro') = 'U' + AddProperty(gofirma, 'codfiscalfro', Strtran(Alltrim(gofirma.cod_fiscal), 'RO', '')) + Endif + + lcNumeFisier = "d392_" + gofirma.codfiscalfro + "_" + Alltrim(Str(gnAn)) + Do Case + Case gnAn >= 2019 + lcFisierPDFOriginal = lcComunPath + "d392_2019.pdf" && d:\contafin\comuncontafin\d392.pdf + + Case gnAn >= 2015 + lcFisierPDFOriginal = lcComunPath + "d392_2015.pdf" && d:\contafin\comuncontafin\d392.pdf + Otherwise + lcFisierPDFOriginal = lcComunPath + "d392_2014.pdf" && d:\contafin\comuncontafin\d392.pdf + Endcase + + This.UpdatePDF(m.lcFisierPDFOriginal) && actualizez pdf de la romfast + + lcFileName = m.lcCaleFisier + lcNumeFisier + + lcFileNamePDF = m.lcCaleFisierPDF + lcNumeFisier + lcFisierPDFNou = m.lcFileNamePDF + [.pdf] + lcFisierXDP = m.lcFileNamePDF + [.xdp] + + lcFisierTXT = m.lcCaleFisier + lcNumeFisier + [.txt] + lcFisierXLS = m.lcCaleFisier + lcNumeFisier + [.xls] + + If File(lcFisierTXT) + Delete File (lcFisierTXT) + Endif + + If File(lcFisierXLS) + Delete File (lcFisierXLS) + Endif + If File(lcFisierPDFNou) + Delete File (lcFisierPDFNou) + Endif + If File(lcFisierXDP) + Delete File (lcFisierXDP) + Endif + + + *** ALEGERE DOCUMENTE FACTURI + lcConditieAct = [ and (extract(year from dataact)*12+extract(month from dataact) = an*12+luna)] + + Text To lcSql Textmerge Noshow + SELECT 0 AS ALES, FEL_DOCUMENT AS FDOC, ID_FDOC + FROM vjv2010 + WHERE an = <> + <> + <> + UNION + SELECT 0 AS ALES, FEL_DOCUMENT AS FDOC, ID_FDOC + FROM vjc2010 + WHERE an = <> + <> + <> + Endtext + goLog.Log(lcSql) + + If !goExecutor.oExecuta(lcSql, "crsFdoc") + Return + Endif + + Update crsFDoc Set ales = 1 Where Inlist(Alltrim(fdoc), 'FACTURA', 'BON FISCAL') + Go Top In crsFDoc + + loFrmDoc = Createobject("frm_decl_tipdoc", "392") + loFrmDoc.label1.Caption = 'Alegeti tipurile de documente care vor intra' + loFrmDoc.label2.Caption = 'in declaratie' + loFrmDoc.Show(1) + + *!* sir tipuri document alese + lcSirId = "" + Select id_fdoc From crsFDoc With (Buffering = .T.) Where ales = 1 Into Cursor crsFdocTemp + Use In (Select("crsFDoc")) + If _Tally = 0 + amessagebox('Trebuie sa alegeti un tip de document!', 0 + 48, 'Atentie') + Use In (Select("crsFdocTemp")) + Return + Endif + + Select crsFdocTemp + Scan + lcSirId = lcSirId + [, ] + Alltrim(Str(id_fdoc)) + Endscan + If !Empty(lcSirId) + lcSirId = Substr(lcSirId, 2) + Endif + Use In (Select("crsFdocTemp")) + + *** citesc JV + Text To lcSql Textmerge Noshow + SELECT ID_PART, COD_FISCAL, REGEXP_REPLACE(COD_FISCAL, '[^[:digit:]]', '') AS COD_FISCALFRO, SUBSTR(TRIM(UPPER(COD_FISCAL)),1,2) AS ATRIBUT_FISCAL, DENUMIRE, + ROUND(SUM(RO24B + RO19B + RO9B + RO5B + RO24NB + RO9NB + RO5NB + WRN + WRSCDD + WRSCFDD), 0) AS BAZA, + ROUND(SUM(RO24T + RO19T + RO9T + Ro5T + RO24NT + RO9NT + RO5NT), 0) AS TVA, + ROUND(SUM(ROTI), 0) AS TIBAZA, + 0 AS TITVA, + SUM(case when ROTI = 0 then 1 else 0 end ) as NRFACT, + SUM(case when ROTI <> 0 then 1 else 0 end ) as NRFACTTI + FROM VJV2013 + WHERE AN = <> + <> + AND ID_FDOC IN (<>) + <> + GROUP BY ID_PART, COD_FISCAL, REGEXP_REPLACE(COD_FISCAL, '[^[:digit:]]', ''), SUBSTR(TRIM(UPPER(COD_FISCAL)),1,2), DENUMIRE + Endtext + goLog.Log(lcSql) + + lcCursor = [crsJV] + If !goExecutor.oExecuta(lcSql, lcCursor) + Return + Endif + + Update crsJV Set atribut_fiscal = '' Where Isdigit(atribut_fiscal) + + *!* citesc JC + Text To lcSql Textmerge Noshow + SELECT ID_PART, COD_FISCAL, REGEXP_REPLACE(COD_FISCAL, '[^[:digit:]]', '') AS COD_FISCALFRO, SUBSTR(TRIM(UPPER(COD_FISCAL)),1,2) AS ATRIBUT_FISCAL, DENUMIRE, + ROUND(SUM(RO24B + RO19B + RO09B + RO05B + RO24NB + RO9NB + RO5NB + ROSCN), 0) AS BAZA, + ROUND(SUM(RO24T + RO19T + RO09T + RO05T + RO24NT + RO9NT + RO5NT), 0) AS TVA, + ROUND(SUM(TI19B + TI09B + TI24B), 0) as TIBAZA, + ROUND(SUM(TI19T + TI09T + TI24T), 0) as TITVA, + SUM(case when TI19B = 0 and TI09B = 0 and TI24B = 0 then 1 else 0 end ) as NRFACT, + SUM(case when TI19B <> 0 or TI09B <> 0 or TI24B <> 0 then 1 else 0 end ) as NRFACTTI + FROM VJC2013 + WHERE AN = <> + <> + AND ID_FDOC IN (<>) + <> + GROUP BY ID_PART, COD_FISCAL, REGEXP_REPLACE(COD_FISCAL, '[^[:digit:]]', ''), SUBSTR(TRIM(UPPER(COD_FISCAL)),1,2), DENUMIRE + Endtext + goLog.Log(lcSql) + + lcCursor = [crsJC] + If !goExecutor.oExecuta(lcSql, lcCursor) + Use In (Select("crsJV")) + Return + Endif + Update crsJC Set atribut_fiscal = '' Where Isdigit(atribut_fiscal) + + *!* D392 + Create Cursor crsTipA (TIP c(1)) + Insert Into crsTipA (TIP) Values ('A') + Insert Into crsTipA (TIP) Values ('C') && ACHIZITII TAXARE INVERSA + + Create Cursor crsTipL (TIP c(1)) + Insert Into crsTipL (TIP) Values ('L') + Insert Into crsTipL (TIP) Values ('V') && LIVRARI TAXARE INVERSA + + Select b.TIP, Iif(Substr(Alltrim(cod_fiscal), 1, 2) = [RO], 1, 0) As plTVA, ; + Left(cod_fiscal, 30) As cod_fiscal, Left(cod_fiscalfro, 30) As cod_fiscalfro, Padr(Nvl(atribut_fiscal, ''), 2, ' ') As atribut_fiscal, denumire, ; + Cast(Iif(b.TIP = 'A', baza, tibaza) As N(20)) As baza, ; + Cast(Iif(b.TIP = 'A', TVA, titva) As N(20)) As TVA, ; + Cast(Iif(b.TIP = 'A', NRFACT, NRFACTTI) As N(20)) As NRFACT ; + From crsJC a, crsTipA b ; + Where a.baza <> 0 Or a.TVA <> 0 Or a.tibaza <> 0 Or a.titva <> 0 ; && modificare v 2.5.26 + Union ; + Select b.TIP, Iif(Substr(Alltrim(cod_fiscal), 1, 2) = [RO], 1, 0) As plTVA, ; + Left(cod_fiscal, 30) As cod_fiscal, Left(cod_fiscalfro, 30) As cod_fiscalfro, Padr(Nvl(atribut_fiscal, ''), 2, ' ') As atribut_fiscal, denumire, ; + Cast(Iif(b.TIP = 'L', baza, tibaza) As N(20)) As baza, ; + Cast(Iif(b.TIP = 'L', TVA, titva) As N(20)) As TVA, ; + Cast(Iif(b.TIP = 'L', NRFACT, NRFACTTI) As N(20)) As NRFACT ; + From crsJV a, crsTipL b ; + Where a.baza <> 0 Or a.TVA <> 0 Or a.tibaza <> 0 Or a.titva <> 0 ; && modificare v 2.5.26 : HAVING baza <> 0 Or tva <> 0 Or tibaza <> 0 Or titva <> 0 + Order By 1, 3 ; + Into Cursor crsD392 Readwrite + + Use In (Select('crsTipA')) + Use In (Select('crsTipL')) + Use In (Select('crsJV')) + Use In (Select('crsJC')) + + *!* cifra de afaceri + *!* Text To lcSql Textmerge Noshow + *!* SELECT SUM(totcred) as totalcredit FROM vbal + *!* WHERE (SUBSTR(cont,1,2) = '70' OR cont = '7583') AND AN = <> AND LUNA = 12 + *!* ENDTEXT + + Text To lcSql Textmerge Noshow + SELECT SUM(totcred) as totalcredit FROM vbal + WHERE (cont = '7583') AND AN = <> AND LUNA = 12 + Endtext goLog.Log(lcSql) + + lcCursor = [crsTotalCifraAfaceri] + If !goExecutor.oExecuta(lcSql, lcCursor) + Use In (Select('crsD392')) + Return + Endif + + llSucces = .T. + If m.llSucces + Select crsTotalCifraAfaceri + This.nCifraDeAfaceri = - Nvl(totalcredit, 0) && -7583 (vanzarile de active nu se iau in considerare) && CF art 152 alin 2 + + + Calculate Sum(Iif(TIP = 'L' And plTVA = 1, baza, 0)), Sum(Iif(TIP = 'L' And plTVA = 1, TVA, 0)), ; + Sum(Iif(TIP = 'L' And plTVA = 0, baza, 0)), Sum(Iif(TIP = 'L' And plTVA = 0, TVA, 0)), ; + Sum(Iif(TIP = 'A' And plTVA = 1, baza, 0)), Sum(Iif(TIP = 'A' And plTVA = 1, TVA, 0)), ; + Sum(Iif(TIP = 'A' And plTVA = 0, baza, 0)) ; + To This.nBazaLivrPlTVA, This.nTVALivrPlTVA, ; + This.nBazaLivrNeplTVA, This.nTVALivrNeplTVA, ; + This.nBazaAchPlTVA, This.nTVAAchPlTVA, ; + This.nBazaAchNeplTVA In crsD392 + + This.nCifraDeAfaceri = This.nCifraDeAfaceri + This.nBazaLivrPlTVA + This.nBazaLivrNeplTVA && cifra de afaceri sunt livrarile fara 7583. S-ar putea sa intre si livrarile intracomunitare??? + + *!* am nume diferite cu acelasi cod fiscal in JV, JC sau in amandoua + *!* exista nume fara cod fiscal??? (nu stiu de ce am pus conditia asta - le-am luat pe cele cu RO - au cod fiscal) + This.do_genereaza_xls(m.lcFisierXLS) + Do Case + Case This.nAn >= 2019 + This.do_genereaza_xdp_2014(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + + If File(m.lcFisierXDP) + open_default_app(m.lcFisierXDP) + Endif + + Case This.nAn >= 2015 + This.do_genereaza_xdp_2014(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + + If File(m.lcFisierXDP) + open_default_app(m.lcFisierXDP) + Endif + + Case This.nAn >= 2014 + This.do_genereaza_xdp_2014(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + + If File(m.lcFisierXDP) + open_default_app(m.lcFisierXDP) + Endif + + Otherwise + This.do_genereaza_txt(lcFisierTXT) + Endcase + + *** deschid explorer in directorul de export + lcRun = [RUN /N7 explorer.exe "] + m.lcCaleFisier + ["] + &lcRun + Endif && llSucces + + Use In (Select('crsTotalCifraAfaceri')) + Use In (Select('crsD392')) + + Select (m.lcSelect) + + Endproc && do_executa + *=========================================== + Procedure do_genereaza_xls + Lparameters tcFisierXLS + + Local lcSelect + lcSelect = Select() + + If Type('crsD392.nrfact') <> 'U' + Select TIP, Left(Alltrim(cod_fiscal), 10) As cod_fiscal, Left(denumire, 100) As denumire, baza + TVA As Total, baza, TVA, NRFACT ; + From crsD392 ; + Where NRFACT <> 0 ; + Order By 1 Desc, 3 ; + Into Cursor cExportXLS + Else + Select TIP, Left(Alltrim(cod_fiscal), 10) As cod_fiscal, Left(denumire, 100) As denumire, baza + TVA As Total, baza, TVA ; + From crsD392 ; + Where baza <> 0 Or TVA <> 0; + Order By 1 Desc, 3 ; + Into Cursor cExportXLS + Endif + + Select cExportXLS + Copy To (m.tcFisierXLS) Type Xl5 + *OPEN_DEFAULT_APP(m.tcFisierXLS) + + Use In (Select('cExportXLS')) + + Select (m.lcSelect) + + Endproc && do_genereaza_xls + + *=========================================== + Procedure do_genereaza_txt + Lparameters tcFisierTXT + *!* Cale fisier : + *!* Windows 7 : C:\Users\\AppData\Local\VirtualStore\Program Files\D392 (an = 2013)\ + *!* Windows XP : C:\Program Files\D392 (an = 2013)\ + *!* Nume fisier : + *!* D392.txt + *!* Structura fisier : ( 2 linii ) + *!* linia 1 : 392,,,,##,##,, + *!* ,,,, + *!* ,, + *!* linia 2 : ##,##,##,##,##,##, + *!* ##,## + + Local lcOS, lcCaleFisierD392 + lcOS = Os(1) + lcCaleFisierD392 = [\Program Files\D392 (an = 2013)\] + Do Case + Case ("6.02" $ lcOS And Os(11) = "1") ; && WIN 8 + Or ("6.01" $ lcOS And Os(11) = "1") ; && WIN 7 + Or ("6.01" $ lcOS) ; && WIN 2008 R2 + Or ("6.00" $ lcOS And Os(11) = "1") ; && VISTA + Or ("6.00" $ lcOS) && WIN 2008 + lcCaleFisierD392 = Alltrim(Getenv("LOCALAPPDATA")) + [\VirtualStore] + lcCaleFisierD392 + Case ("5.02" $ lcOS) ; && WIN 2003 + Or ("5.01" $ lcOS) ; && WIN XP + Or ("5.0" $ lcOS) ; && WIN 2000 + Or ("NT" $ lcOS) && WIN NT + lcCaleFisierD392 = Alltrim(Getenv("SystemDrive")) + lcCaleFisierD392 + Otherwise + && WIN 98, WIN 95, WIN ME, WIN 31, necunoscut + amessagebox("Nu se poate copia automat fisierul pentru D392!", 16, "Eroare") + Return + Endcase + + If !Directory(lcCaleFisierD392) + lcCaleFisierD392 = Getdir("c:\", "D392", "Alegeti directorul D392\") + If Empty(lcCaleFisierD392) + amessagebox("Nu ati ales directorul!", 16, "Eroare") + Return + Endif + Endif + + Local lcDecl392, lcPoint + + lcPoint = Set("Point") + Set Point To '.' + Set Textmerge On To Memv lcDecl392 Noshow + *!* linia 1 : 392,,,,##,##,, + *!* ,,,, + *!* ,, + *!* linia 2 : ##,##,##,##,##,##, + *!* ##,## + With This + \392,<>,<>,<>,#<>#,#<>#,<>, + \\<>,<>, + \\<>,<>, + \\<>,<>, + \\<> + \#<>#,#<>#,#<>#,#<>#, + \\#<>#,#<>#,#<>#,#<># + Endwith + Set Textmerge To + Set Point To &lcPoint + + Strtofile(lcDecl392, lcCaleFisierD392 + [D392.txt]) + Strtofile(lcDecl392, tcFisierTXT) + + amessagebox([Fisierul a fost exportat!] + Chr(13) + Chr(10) + [Intrati in aplicatia D392 si apasati pe butonul ] + ; + ["START"], 0 + 64, 'Declaratia 392') + Endproc && do_genereaza_txt + + *========================================== + Procedure do_genereaza_xdp_2014 + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou + + Local lcSelect, lcXDP + lcSelect = Select() + + + lcXDP = "" + With This + Text To lcXDP Additive Textmerge Noshow Pretext 1 + + + + + + + + + <><><>0<> + + + <><> + <><><> + <><> + + + + + + +<> + + <><> + + <> + <> + + + + <> + <> + <> + + + <><><> + + + + + + + Endtext + Endwith + Wait Window "Se exporta datele in format PDF" Nowait + Strtofile(lcXDP, tcFisierXDP) + If File(tcFisierXDP) + *** copiez fisierul pdf inteligent original in directorul de export + If File(m.tcFisierPDFOriginal) + Copy File (tcFisierPDFOriginal) To (tcFisierPDFNou) + Else + amessagebox('Nu exista fisierul ' + m.tcFisierPDFOriginal, 0 + 48, _Screen.Caption) + Endif + Endif + + Select (lcSelect) + Endproc && do_genereaza_xdp_2014 + + Procedure UpdatePDF + Lparameters tcPDFFile + *** tcPDFFile: calea completa a fisierului pdf D:\CONTAFIN\COMUNCONTAFIN\d392.pdf + + Local lcFile, lcPath, llOpen + lcFile = Justfname(m.tcPDFFile) + lcPath = Addbs(Justpath(m.tcPDFFile)) + llOpen = .F. + + Return DownloadSupportFile(m.lcFile, m.lcPath, m.llOpen) && proceduri_comune.prg + + Endproc && UpdatePDF + +Enddefine && D392 +*======================================================================= + + +********************************************************* +*** DECLARATIA 205 IMPOZIT DIVIDENDE +********************************************************* +Procedure viz_decl205 + + If m.gnLuna = 12 + Local loD205 As "D205" + loD205 = Createobject("D205") && ovanzcump.vcx + loD205.do_executa() + Else + amessagebox("Pentru a putea genera declaratia 205 trebuie sa intrati in luna decembrie!", 48, "Atentie") + Endif +Endproc + +Define Class D205 As Custom + + nAn = 0 + nLuna = 0 + cCodFiscal = 0 + cCodCaen = [] + lPlatitorTVA = .F. + cDenumireFirma = [] + cAdresa = [] + cTelefon = [] + cFax = [] + cEmail = [] + cDeclarant = [] + cNumeDeclarant = [] + cPrenumeDeclarant = [] + cFunctieDeclarant = [] + + nBeneficiari = 0 + nDividende = 0 + + Procedure Init + + With This + .nAn = gnAn + .nLuna = m.gnLuna + .cCodFiscal = Strtran(Alltrim(Upper(Nvl(gofirma.cod_fiscal, ''))), 'RO', '') + .cCodCaen = Alltrim(gofirma.caen) + .lPlatitorTVA = (Substr(Alltrim(Upper(Nvl(gofirma.cod_fiscal, ''))), 1, 2) == 'RO') + .cDenumireFirma = Nvl(Alltrim(gofirma.firma), '') + .cAdresa = Nvl(Alltrim(gofirma.adresa), '') + .cTelefon = Nvl(Alltrim(gofirma.telefon), '') + .cFax = Nvl(Alltrim(gofirma.fax), '') + .cEmail = Nvl(Alltrim(gofirma.email), '') + .cDeclarant = Alltrim(gofirma.declarant) + .cNumeDeclarant = Alltrim(gofirma.nume_declarant) + .cPrenumeDeclarant = Alltrim(gofirma.prenume_declarant) + .cFunctieDeclarant = Alltrim(gofirma.functie) + Endwith + Endproc + + Procedure do_executa + Local loFrmDoc As "frm_decl_tipdoc" + Local lcAppPath, lcCaleFisier, lcCaleFisierPDF, lcCaleTemp, lcComunPath, lcConditieAct, lcCursor + Local lcFileName, lcFileNamePDF, lcFirma, lcFisierPDFNou, lcFisierPDFOriginal, lcFisierTXT + Local lcFisierXDP, lcFisierXLS, lcMesaj, lcNumeFisier, lcRun, lcSelect, lcSirId, lcSql, llSucces + Local lnPos, loEx, lndividende, lnImpozit + lcSelect = Select() + *** Initializare cai export + lcAppPath = Addbs(gcAppPath) + lcComunPath = lcAppPath + lnPos = Rat("\", Addbs(m.lcAppPath), 2) + If lnPos > 0 + lcComunPath = Left(m.lcAppPath, lnPos) + Endif + lcComunPath = lcComunPath + Iif(gcAppName = "CONCONT", "COMUNCONTAFIN\", "COMUNROA\") && d:\contafin\comuncontafin\ + + *** Creez structura director export (caletemp\D394\aaaa_ll\firma\ + llSucces = .F. + Try + lcTempPath = m.gcBasePath + lcCaleFisier = m.lcTempPath + "D205\" && d:\roa\D205\ + + If !Directory(m.lcCaleFisier) + Md (m.lcCaleFisier) + Endif + + lcCaleFisier = m.lcCaleFisier + Alltrim(Str(gnAn)) + "_" + Padl(Alltrim(Str(gnLuna)), 2, "0") + "\"&& d:\roa\D205\2023_12\ + If !Directory(m.lcCaleFisier) + Md (m.lcCaleFisier) + Endif + + lcCaleFisier = m.lcCaleFisier + Strtran(gcFirma, [ ], [_]) + "\" && d:\roa\D205\2023_12\firma\ + If !Directory(m.lcCaleFisier) + Md (m.lcCaleFisier) + Endif + + lcCaleFisierPDF = m.lcCaleFisier && d:\roa\D205\2023_12\firma\ + If !Directory(m.lcCaleFisierPDF) + Md (m.lcCaleFisierPDF) + Endif + + llSucces = .T. + Catch To loEx + lcMesaj = "Creare director " + lcCaleFisier + " " + loEx.Message + + amessagebox(lcMesaj, 0 + 48) + Endtry + If !llSucces + Return + Endif + + If Type('gofirma.codfiscalfro') = 'U' + AddProperty(gofirma, 'codfiscalfro', ALLTRIM(Strtran(Alltrim(gofirma.cod_fiscal), 'RO', ''))) + Endif + + lcNumeFisier = "d205_" + gofirma.codfiscalfro + "_" + Alltrim(Str(gnAn)) + Do Case + Case gnAn >= 2024 + lcFisierPDFOriginal = lcComunPath + "d205_2024.pdf" + + Case gnAn >= 2023 + lcFisierPDFOriginal = lcComunPath + "d205_2023.pdf" + + Case gnAn >= 2022 + lcFisierPDFOriginal = lcComunPath + "d205_2022.pdf" + + Otherwise + lcFisierPDFOriginal = lcComunPath + "d205_" + ALLTRIM(STR(INT(m.gnAn))) + ".pdf" + Endcase + + This.UpdatePDF(m.lcFisierPDFOriginal) && actualizez pdf de la romfast + + lcFileName = m.lcCaleFisier + lcNumeFisier + + lcFileNamePDF = m.lcCaleFisierPDF + lcNumeFisier + lcFisierPDFNou = m.lcFileNamePDF + [.pdf] + lcFisierXDP = m.lcFileNamePDF + [.xdp] + + lcFisierTXT = m.lcCaleFisier + lcNumeFisier + [.txt] + lcFisierXLS = m.lcCaleFisier + lcNumeFisier + [.xls] + + If File(lcFisierTXT) + Delete File (lcFisierTXT) + Endif + + If File(lcFisierXLS) + Delete File (lcFisierXLS) + Endif + If File(lcFisierPDFNou) + Delete File (lcFisierPDFNou) + Endif + If File(lcFisierXDP) + Delete File (lcFisierXDP) + Endif + + *** citesc notele x = 457 din Reg. Jurnal (inregistrare dividende) + Text To lcSql Textmerge Noshow + SELECT UPPER(PARTC) AS BENEFICIAR, COD_FISCALC AS CNP, ROUND(SUM(SUMA),0) AS DIVIDENDE, CAST(0 as Number(20)) as DIVIDENDEP, CAST(0 as Number(20)) as IMPOZIT + FROM VACT + WHERE AN = <> AND SCC LIKE '457%' + GROUP BY PARTC, COD_FISCALC + Endtext + + lcCursor = [crs205] + llSucces = goExecutor.oExecuta(lcSql, lcCursor) + + IF m.llSucces + *** citesc notele 457 = 5xx din Reg. Jurnal (plata dividende) + *** citesc notele 457 = 446 din Reg. Jurnal (impozit retinut) + + Text To lcSql Textmerge Noshow + SELECT UPPER(PARTD) AS BENEFICIAR, COD_FISCALD AS CNP, + ROUND(SUM(CASE WHEN SCC LIKE '5%' THEN SUMA ELSE 0 END),0) AS DIVIDENDE, + ROUND(SUM(CASE WHEN SCC LIKE '446%' THEN SUMA ELSE 0 END),0) AS IMPOZIT + FROM VACT + WHERE AN = <> AND SCD LIKE '457%' and (SCC LIKE '5%' or SCC LIKE '446%') + GROUP BY PARTD, COD_FISCALD + Endtext + + lcCursor = [crs205p] + llSucces = goExecutor.oExecuta(lcSql, lcCursor) + IF m.llSucces + SELECT crs205p + SCAN + lcBeneficiar = ALLTRIM(NVL(beneficiar, 'x')) + lcCNP = ALLTRIM(NVL(cnp, 'x')) + lnDividende = NVL(dividende, 0) + lnImpozit = NVL(impozit, 0) + + SELECT crs205 + LOCATE FOR NVL(beneficiar, 'x') = m.lcBeneficiar AND NVL(cnp, 'x') = m.lcCNP + IF FOUND() + REPLACE dividendep WITH m.lnDividende, impozit WITH m.lnImpozit + ENDIF + ENDSCAN + ENDIF + USE IN (SELECT('crs205p')) + ENDIF + + If m.llSucces + Do Case + Case This.nAn >= 2024 + This.do_genereaza_xdp_2024(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + + If File(lcFisierXDP) And File(m.lcFisierPDFNou) + open_default_app(lcFisierXDP) + ENDIF + + Case This.nAn >= 2023 + This.do_genereaza_xdp_2023(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + + If File(lcFisierXDP) And File(m.lcFisierPDFNou) + open_default_app(lcFisierXDP) + ENDIF + + Case This.nAn >= 2022 + This.do_genereaza_xdp_2022(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + + If File(m.lcFisierXDP) + open_default_app(m.lcFisierXDP) + Endif + + Endcase + + + *** deschid explorer in directorul de export + lcRun = [RUN /N7 explorer.exe "] + m.lcCaleFisier + ["] + &lcRun + Endif && llSucces + + Use In (Select('crs205')) + + Select (m.lcSelect) + + Endproc && do_executa + + *========================================== + Procedure do_genereaza_xdp_2024 + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou + + Local lcSelect, lcXDP + lcSelect = Select() + + This.nBeneficiari = RECCOUNT('crs205') + CALCULATE SUM(dividende) TO lnDividende IN crs205 + This.nDividende = INT(m.lnDividende) + lnTotalPlata = this.nBeneficiari + this.nDividende + + lcXDP = "" + With This + Text To lcXDP Additive Textmerge Noshow Pretext 1 + + + + + + + + + 0 + <> + <> + + 0 + + + <> + RO + <> + <> + <> + <> + <> + + + <> + <> + <> + <> + + + 1 + + + + 08. Venituri din dividende (col.7,8,9,10) + + ENDTEXT + + SELECT crs205 + SCAN + Text To lcXDP Additive Textmerge Noshow Pretext 1 + + + <> + <> + 1 + + <> + + <> + <> + <> + <> + 2 + + ENDTEXT + ENDSCAN + + Text To lcXDP Additive Textmerge Noshow Pretext 1 + + + + + + + + + Endtext + Endwith + + Wait Window "Se exporta datele in format PDF" Nowait + Strtofile(lcXDP, tcFisierXDP) + If File(tcFisierXDP) + *** copiez fisierul pdf inteligent original in directorul de export + If File(m.tcFisierPDFOriginal) + Copy File (tcFisierPDFOriginal) To (tcFisierPDFNou) + Else + amessagebox('Nu exista fisierul ' + m.tcFisierPDFOriginal, 0 + 48, _Screen.Caption) + Endif + Endif + + Select (lcSelect) + Endproc && do_genereaza_xdp_2024 + + *========================================== + Procedure do_genereaza_xdp_2023 + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou + + Local lcSelect, lcXDP + lcSelect = Select() + + This.nBeneficiari = RECCOUNT('crs205') + CALCULATE SUM(dividende) TO lnDividende IN crs205 + This.nDividende = INT(m.lnDividende) + lnTotalPlata = this.nBeneficiari + this.nDividende + + lcXDP = "" + With This + Text To lcXDP Additive Textmerge Noshow Pretext 1 + + + + + + + + + 0 + <> + <> + + 0 + + + <> + RO + <> + <> + <> + <> + <> + + + <> + <> + <> + <> + + + 0 + 0 + 0 + 0 + 1 + 0 + 0 + 0 + 0 + 0 + 0 + 0 + 0 + 0 + 0 + 0 + 0 + 0 + 0 + 0 + 0 + 0 + 0 + 0 + + + 1 + + + + 08. Venituri din dividende (col.7,8) + + ENDTEXT + + SELECT crs205 + SCAN + Text To lcXDP Additive Textmerge Noshow Pretext 1 + + + <> + <> + 1 + + <> + + <> + + 0 + 0 + 2 + + ENDTEXT + ENDSCAN + + Text To lcXDP Additive Textmerge Noshow Pretext 1 + + + + + + + + + Endtext + Endwith + + Wait Window "Se exporta datele in format PDF" Nowait + Strtofile(lcXDP, tcFisierXDP) + If File(tcFisierXDP) + *** copiez fisierul pdf inteligent original in directorul de export + If File(m.tcFisierPDFOriginal) + Copy File (tcFisierPDFOriginal) To (tcFisierPDFNou) + Else + amessagebox('Nu exista fisierul ' + m.tcFisierPDFOriginal, 0 + 48, _Screen.Caption) + Endif + Endif + + Select (lcSelect) + Endproc && do_genereaza_xdp_2023 + + *========================================== + Procedure do_genereaza_xdp_2022 + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou + + Local lcSelect, lcXDP + lcSelect = Select() + + This.nBeneficiari = RECCOUNT('crs205') + CALCULATE SUM(dividende) TO lnDividende IN crs205 + This.nDividende = INT(m.lnDividende) + lnTotalPlata = this.nBeneficiari + this.nDividende + + lcXDP = "" + With This + Text To lcXDP Additive Textmerge Noshow Pretext 1 + + + + + + + + + 0 + <> + <> + + 0 + + + <> + RO + <> + <> + <> + <> + <> + + + <> + <> + <> + <> + + + 0 + 0 + 0 + 0 + 1 + 0 + 0 + 0 + 0 + 0 + 0 + 0 + 0 + 0 + 0 + 0 + 0 + 0 + 0 + 0 + 0 + 0 + 0 + 0 + + + 1 + + + + 08. Venituri din dividende + + ENDTEXT + + SELECT crs205 + SCAN + Text To lcXDP Additive Textmerge Noshow Pretext 1 + + + <> + <> + 1 + + <> + + <> + + 0 + 0 + 2 + + ENDTEXT + ENDSCAN + + Text To lcXDP Additive Textmerge Noshow Pretext 1 + + + + + + + + + Endtext + Endwith + + Wait Window "Se exporta datele in format PDF" Nowait + Strtofile(lcXDP, tcFisierXDP) + If File(tcFisierXDP) + *** copiez fisierul pdf inteligent original in directorul de export + If File(m.tcFisierPDFOriginal) + Copy File (tcFisierPDFOriginal) To (tcFisierPDFNou) + Else + amessagebox('Nu exista fisierul ' + m.tcFisierPDFOriginal, 0 + 48, _Screen.Caption) + Endif + Endif + + Select (lcSelect) + Endproc && do_genereaza_xdp_2022 + + Procedure UpdatePDF + Lparameters tcPDFFile + *** tcPDFFile: calea completa a fisierului pdf D:\CONTAFIN\COMUNCONTAFIN\d392.pdf + + Local lcFile, lcPath, llOpen + lcFile = Justfname(m.tcPDFFile) + lcPath = Addbs(Justpath(m.tcPDFFile)) + llOpen = .F. + + Return DownloadSupportFile(m.lcFile, m.lcPath, m.llOpen) && proceduri_comune.prg + + Endproc && UpdatePDF + +Enddefine && D205 +*======================================================================= + +********************************************************* +*** DECLARATIA 394 ACHIZITII/LIVRARI INTERNE +********************************************************* +Procedure viz_decl394 + Local loD394 As "D394" + + Do Case + Case m.gnAn * 12 + m.gnLuna >= 2025 * 12 + 8 && TVA 21%, 11% de la 01.08.2025 + * 08/2025 + loD394 = Createobject("D394_2025") && ovanzcump.vcx + loD394.List() + Case m.gnAn * 12 + m.gnLuna >= 2016 * 12 + 7 && 'AMDX4'$UPPER(SYS(0)) AND MESSAGEBOX('D394 2016?',4+32,_screen.Caption) = 6 + * 07/2016 + loD394 = Createobject("D394_2016") && ovanzcump.vcx + loD394.List() + Otherwise + loD394 = Createobject("D394") && ovanzcump.vcx + loD394.do_executa() + Endcase + +Endproc + +Define Class D394_2025 As Custom + + Total = 0 + rectificativa = 0 + TIP = 'L' + Perioada = 1 + NumarCoduriFiscale = 0 + + oForm = Null && formular D384 + oUnitate = Null + + CaleFisierPDF = '' && director fisier pdf + cFisierPDF = '' && fisier pdf + + * Afiseaza formularul 394 fara facturi, pentru alegerea tipurilor de documente, optiuni etc. + * Din formular se vor selecta facturile in functie de optiuni + Procedure List + + Local loDecl As "frm_decl394_2025" + Local lcSelect, lcTip, llSilent, llSucces, lnNumarLuni, lcValoare + llSilent = .F. && m.tlSilent + + lcTip = Upper(Nvl(citeste_optiune('D394_TIP'), 'LUNAR')) + lcTip = Iif(!Inlist(m.lcTip, 'LUNAR', 'TRIMESTRIAL', 'SEMESTRIAL', 'ANUAL'), 'LUNAR', m.lcTip) + + lcSelect = Select() + + If Type('gofirma.codfiscalfro') = 'U' + AddProperty(gofirma, 'codfiscalfro', Strtran(Alltrim(gofirma.cod_fiscal), 'RO', '')) + Endif + + Private pounitate + pounitate = Createobject("empty") + AddProperty(pounitate, "tva_incasare", goCalendar.tva_incasare) + + AddProperty(pounitate, "an", m.gnAn) + AddProperty(pounitate, "luna1", m.gnLuna) + AddProperty(pounitate, "luna2", m.gnLuna) + + AddProperty(pounitate, "tip", m.lcTip) + AddProperty(pounitate, "luniextra", 0) + AddProperty(pounitate, "tvanedeductibil", 0) + AddProperty(pounitate, "codi", Strtran(Strtran(Alltrim(Upper(Nvl(gofirma.cod_fiscal, ''))), 'RO', ''), 'R', '')) + AddProperty(pounitate, "deni", Nvl(Alltrim(gofirma.firma), '')) + AddProperty(pounitate, "adr", Nvl(Alltrim(gofirma.adresa), '')) + poUnitate.adr = PADR(poUnitate.adr, 150, ' ') + AddProperty(pounitate, "tel", Nvl(Alltrim(gofirma.telefon), '')) + AddProperty(pounitate, "fax", Nvl(Alltrim(gofirma.fax), '')) + AddProperty(pounitate, "email", Nvl(Alltrim(gofirma.email), '')) + + AddProperty(pounitate, "taraR", "") + AddProperty(pounitate, "codiR", "") + AddProperty(pounitate, "deniR", "") + AddProperty(pounitate, "adrR", "") + AddProperty(pounitate, "telR", "") + AddProperty(pounitate, "faxR", "") + AddProperty(pounitate, "emailR", "") + + AddProperty(pounitate, "numeD", "") + AddProperty(pounitate, "functieD", "") + + AddProperty(pounitate, "operatiuni", 1) + AddProperty(pounitate, "tvaincasare", goCalendar.tva_incasare) + AddProperty(pounitate, "nr_facturi_emise", 0) + AddProperty(pounitate, "nr_facturi_beneficiari", 0) + AddProperty(pounitate, "nr_facturi_terti", 0) + + AddProperty(pounitate, "lPerioadaDoarRO", Between(m.gnAn * 12 + m.gnLuna, 2016 * 12 + 7, 2016 * 12 + 9)) && intre 07/2016 si 09/2016 se declara doar partenerii cu RO + AddProperty(pounitate, "ExportSectiuneaI", 1) && intre 07/2016 si 09/2016 nu se completeaza sectiunea I + AddProperty(pounitate, "PersoaneAfiliate", 0) && 0 = fara persoane afiliate, 1 = cu persoane afiliate + + AddProperty(pounitate, "DenRepr", Alltrim(citeste_optiune('D394_DEN_REPREZ'))) + AddProperty(pounitate, "AdrRepr", Alltrim(citeste_optiune('D394_ADR_REPREZ'))) + poUnitate.AdrRepr = PADR(poUnitate.AdrRepr, 150, ' ') + AddProperty(pounitate, "CuiRepr", Alltrim(citeste_optiune('D394_CUI_REPREZ'))) + AddProperty(pounitate, "TipRepr", Alltrim(citeste_optiune('D394_TIP_REPREZ'))) + AddProperty(pounitate, "TelRepr", Alltrim(citeste_optiune('D394_TEL_REPREZ'))) + AddProperty(pounitate, "FaxRepr", Alltrim(citeste_optiune('D394_FAX_REPREZ'))) + AddProperty(pounitate, "EmailRepr", Alltrim(citeste_optiune('D394_EMAIL_REPREZ'))) + + AddProperty(pounitate, "DenIntocmit", Alltrim(citeste_optiune('D394_DEN_INTOCMIT'))) + AddProperty(pounitate, "CuiIntocmit", Alltrim(citeste_optiune('D394_CUI_INTOCMIT'))) + AddProperty(pounitate, "PJIntocmit", Int(Val(Nvl(citeste_optiune('D394_PJ_INTOCMIT'), '1'))) ) + AddProperty(pounitate, "CalitateIntocmit", Alltrim(citeste_optiune('D394_CALITATE_INTOCMIT'))) + poUnitate.CalitateIntocmit = PADR(poUnitate.CalitateIntocmit, 100, ' ') + AddProperty(pounitate, "Calitate2Intocmit", Alltrim(citeste_optiune('D394_CALITATE2_INTOCMIT'))) + poUnitate.Calitate2Intocmit = PADR(poUnitate.Calitate2Intocmit, 100, ' ') + AddProperty(pounitate, "FunctieIntocmit", Alltrim(citeste_optiune('D394_FUNCTIE_INTOCMIT'))) + poUnitate.FunctieIntocmit= PADR(poUnitate.FunctieIntocmit, 100, ' ') + + AddProperty(pounitate, "NrAMEF", Int(Val(Nvl(citeste_optiune('D394_NR_AMEF'), '1')))) + AddProperty(pounitate, "OptiuneANAF", Int(Val(Nvl(citeste_optiune('D394_OPTIUNE_ANAF'), '0')))) && 1 = Se da acordul pentru consultarea D394 de catre furnizori/clienti + + AddProperty(pounitate, "cTextFacturiEmiseAlocate", "") && facturi emise care nu sunt in plaja de facturi alocate + + This.oUnitate = pounitate + + + Create Cursor crsFdocTip (id_fdoc N(10) null, fel_document c(100) null, tip_doc c(10) Null, bifa N(1)) + + *!* llSucces = update_fdoc([NVL(tip_doc,'!') <> '!'], 'crsFdocTipTemp') && doar fel document cu tip + *!* AddProperty(pounitate, "tipdoc_factura", cursor2lista("crsFDocTipTemp", "id_fdoc", ",", [tip_doc = 'F'])) && lista tip documente = factura + *!* AddProperty(pounitate, "tipdoc_bonfiscal_cu_cui", cursor2lista("crsFDocTipTemp", "id_fdoc", ",", [tip_doc = 'C'])) && lista tip documente = bon fiscal cu factura + *!* AddProperty(pounitate, "tipdoc_bonfiscal_fara_cui", cursor2lista("crsFDocTipTemp", "id_fdoc", ",", [tip_doc = 'B'])) && lista tip documente = bon fiscal fara factura + *!* AddProperty(pounitate, "tipdoc_factura_simplificata", cursor2lista("crsFDocTipTemp", "id_fdoc", ",", [tip_doc = 'M'])) && lista tip documente = factura simplificata + *!* AddProperty(pounitate, "tipdoc_exceptate_amef", cursor2lista("crsFDocTipTemp", "id_fdoc", ",", [tip_doc = 'E'])) && lista tip documente = exceptate de la AMEF (bilete) + *!* AddProperty(pounitate, "tipdoc_borderou_achizitii", cursor2lista("crsFDocTipTemp", "id_fdoc", ",", [tip_doc = 'O'])) && lista tip documente = borderou achizitii + *!* AddProperty(pounitate, "tipdoc_carnet_comercializare", cursor2lista("crsFDocTipTemp", "id_fdoc", ",", [tip_doc = 'Z'])) && lista tip documente = carnet comercialziare + *!* AddProperty(pounitate, "tipdoc_achizitii_second_hand", cursor2lista("crsFDocTipTemp", "id_fdoc", ",", [tip_doc = 'H'])) && lista tip documente = achizitii second hand + *!* AddProperty(pounitate, "tipdoc_servicii_turism", cursor2lista("crsFDocTipTemp", "id_fdoc", ",", [tip_doc = 'U'])) && lista tip documente = servicii turism + + + llSucces = update_serii(.F., [isautofactura = 1 or isbeneficiari = 1 or isterti = 1 or isfurnizori = 1]) && crsSerii - seriile marcate autofactura/emise de beneficiari/emise de terti/emise in numele furnizorilor! + If !m.llSucces + Create Cursor crsSerii (seria c(20), isautofactura N(1), isbeneficiari N(1), isterti N(1), isfurnizori N(1)) + Endif + + Create Cursor crsSectiuneaI (punct c(4) Null, baza N(20) Null, TVA N(20) Null, proctva N(2) Null) + Create Cursor crsSectiuneaI4 (punct c(4) Null, TVA21 N(20) Null, TVA11 N(20) Null, TVA19 N(20) Null, TVA09 N(20) Null, TVA05 N(20) Null, TVA24 N(20) Null, TVA20 N(20) Null) + Create Cursor crsSectiuneaI6 (punct c(4) Null, incasari N(20) Null, costuri N(20) Null, marja N(20) Null, TVA N(20) Null) && agentii turism si second hand + Create Cursor crsSectiuneaI7 (caen c(4) Null, TIP c(10), baza N(20), TVA21 N(20) Null, TVA11 N(20) Null, TVA19 N(20) Null, TVA09 N(20) Null, TVA05 N(20) Null, TVA24 N(20) Null, TVA20 N(20) Null) + + Create Cursor crsFacturiAlocate (seria c(20) Null, nr1 N(20), nr2 N(20)) + Create Cursor crsFacturiEmise (seria c(20) Null, nr1 N(20), nr2 N(20)) + Create Cursor crsFacturiEmiseTip (TIP c(20), ntip N(1), seria c(20) Null, nr N(20)) + Create Cursor crsAutoFacturi (seria c(20) Null, nr N(20), baza21 N(16, 4) Null, baza11 N(16, 4) Null, baza19 N(16, 4) Null, baza09 N(16, 4) Null, baza05 N(16, 4) Null, baza24 N(16, 4) Null, baza20 N(16, 4) Null, ; + TVA21 N(16, 4) Null, TVA11 N(16, 4) Null, TVA19 N(16, 4) Null, TVA09 N(16, 4) Null, TVA05 N(16, 4) Null, TVA24 N(16, 4) Null, TVA20 N(16, 4) Null) + + Create Cursor crsFacturiTerti (punct c(4) Null, seria c(20) Null, nr1 N(20), nr2 N(20), denumire c(100) Null, cod_fiscal c(20) Null) + Create Cursor crsSeriiFacturi (TIP c(20), seria c(20), descriere c(100)) + Insert Into crsSeriiFacturi (TIP, seria, descriere) ; + Select 'AUTOFACTURA' As TIP, serie As seria, 'serie autofacturi' As descriere ; + From crsSerii Where isautofactura = 1 ; + Union ; + Select 'BENEFICIARI' As TIP, serie As seria, 'serie facturi emise de beneficiari in numele persoanei impozabile' As descriere ; + From crsSerii Where isbeneficiari = 1 ; + Union ; + Select 'TERTI' As TIP, serie As seria, 'serie facturi emise de terti in numele persoanei impozabile' As descriere ; + From crsSerii Where isterti = 1 ; + Union ; + Select 'FURNIZORI' As TIP, serie As seria, 'serie facturi emise de pers impozabila in calitate de beneficiar, in numele furnizorilor' As descriere ; + From crsSerii Where isfurnizori = 1 + + Go Top In crsSeriiFacturi + AddProperty(pounitate, "serie_autofacturare", cursor2lista("crsSerii", "serie", ",", [isautofactura=1])) + AddProperty(pounitate, "serie_facturi_beneficiari", cursor2lista("crsSerii", "serie", ",", [isbeneficiari=1])) + AddProperty(pounitate, "serie_facturi_terti", cursor2lista("crsSerii", "serie", ",", [isterti=1])) + AddProperty(pounitate, "serie_facturi_furnizori", cursor2lista("crsSerii", "serie", ",", [isfurnizori=1])) + + close_serii() + + Create Cursor crsAMEF (TIP N(1), luna N(2), nramef N(10), nrbonuri N(10), incasari N(16, 4), ; + baza21 N(16, 4) Null, baza11 N(16, 4) Null, baza19 N(16, 4) Null, baza09 N(16, 4) Null, baza05 N(16, 4) Null, baza20 N(16, 4) Null, ; + TVA21 N(16, 4) Null, TVA11 N(16, 4) Null, TVA19 N(16, 4) Null, TVA09 N(16, 4) Null, TVA05 N(16, 4) Null, TVA20 N(16, 4) Null) + + Create Cursor crsJTVA(seq N(20), tipj c(2), tippart N(1), tipdoc c(2) Null, TIP c(2), dataact D Null, dataireg D Null, serie_act c(10) Null, nract N(20) Null, id_fdoc N(12) Null, fel_document c(30) Null, id_sucursala N(7) Null, sucursala c(100) Null, ; + iscif N(1) Null, cifvalid N(1) Null, id_part N(20) Null, cod_fiscal c(30) Null, cod_fiscalfro c(30) Null, atribut_fiscal c(2) Null, denumire c(100) Null, TIP_PERSOANA N(1) Null, AFILIAT N(5) Null, CODTARA V(5) NULL, ; + TARA c(100) Null, COD_TARA c(10) Null, JUDET c(100) Null, COD_JUDET c(10) Null, LOCALITATE c(100) Null, STRADA c(100) Null, NUMAR c(20) Null, Bloc c(20) Null, SCARA c(50) Null, APART c(100) Null, ; + baza N(16, 4) Null, TVA N(16, 4) Null, tibaza N(16, 4) Null, titva N(16, 4) Null, ; + baza21 N(16, 4) Null, baza11 N(16, 4) Null, baza19 N(16, 4) Null, baza09 N(16, 4) Null, baza05 N(16, 4) Null, baza24 N(16, 4) Null, baza20 N(16, 4) Null, baza00 N(16, 4) Null, ; + TVA21 N(16, 4) Null, TVA11 N(16, 4) Null, TVA19 N(16, 4) Null, TVA09 N(16, 4) Null, TVA05 N(16, 4) Null, TVA24 N(16, 4) Null, TVA20 N(16, 4) Null, ; + tibaza21 N(16, 4) Null, tibaza11 N(16, 4) Null, tibaza19 N(16, 4) Null, tibaza09 N(16, 4) Null, tibaza05 N(16, 4) Null, tibaza24 N(16, 4) Null, tibaza20 N(16, 4) Null, ; + titva21 N(16, 4) Null, titva11 N(16, 4) Null, titva19 N(16, 4) Null, titva09 N(16, 4) Null, titva05 N(16, 4) Null, titva24 N(16, 4) Null, titva20 N(16, 4) Null, ; + tva_incasare N(1), FACT_TVA_INCASARE N(1), NRFACT N(1), EMISA_PERIOADA N(1), ; + ro21t N(16, 4) Null, ro11t N(16, 4) Null, ro19t N(16, 4) Null, RO09T N(16, 4) Null, ro05t N(16, 4) Null, ro24t N(16, 4) Null, ro20t N(16, 4) Null) + + loDecl = Createobject("frm_decl394_2025") + *DO FORM frm_decl394_2016 NAME loDecl NOSHOW + loDecl.oParent = This + This.oForm = loDecl + loDecl.Show(1) + + scrie_optiune('D394_DEN_REPREZ', pounitate.DenRepr, 'D394 denumire reprezentant') + scrie_optiune('D394_ADR_REPREZ', pounitate.AdrRepr, 'D394 adresa reprezentant') + scrie_optiune('D394_CUI_REPREZ', pounitate.CUIRepr, 'D394 CUI reprezentant') + scrie_optiune('D394_TIP_REPREZ', pounitate.TipRepr, 'D394 tip reprezentant') + scrie_optiune('D394_TEL_REPREZ', pounitate.TelRepr, 'D394 telefon reprezentant') + scrie_optiune('D394_FAX_REPREZ', pounitate.FaxRepr, 'D394 fax reprezentant') + scrie_optiune('D394_EMAIL_REPREZ', pounitate.EmailRepr, 'D394 email reprezentant') + scrie_optiune('D394_DEN_INTOCMIT', pounitate.DenIntocmit, 'D394 denumire intocmit') + scrie_optiune('D394_CUI_INTOCMIT', pounitate.CUIIntocmit, 'D394 CUI intocmit') + scrie_optiune('D394_PJ_INTOCMIT', Alltrim(Str(pounitate.PJIntocmit)), 'D394 persoana juridica intocmit') + scrie_optiune('D394_CALITATE_INTOCMIT', pounitate.CalitateIntocmit, 'D394 calitate intocmit') + scrie_optiune('D394_CALITATE2_INTOCMIT', pounitate.Calitate2Intocmit, 'D394 alta calitate intocmit') + scrie_optiune('D394_FUNCTIE_INTOCMIT', pounitate.FunctieIntocmit, 'D394 functie intocmit') + scrie_optiune('D394_TIP', pounitate.TIP, 'Tip declaratie 394: LUNAR/TRIMESTRIAL/SEMESTRIAL/ANUAL') + scrie_optiune('D394_NR_AMEF', Alltrim(Str(pounitate.nramef)), 'D394 nr AMEF') + scrie_optiune('D394_OPTIUNE_ANAF', Alltrim(Str(pounitate.OptiuneANAF)), 'D394 optiunea ANAF; 1=DA/0=NU') + + close_fdoc() + Endproc && List + + *************************************************** + * Citeste JV/JC + * Configureaza tipurile de documente (facturi, facturi simplificate, bonuri fiscale etc.) + *************************************************** + Procedure do_citeste_date + Local llSucces, lcSelect, loUnitate + Local lcTip, lnAn, lnLuna1, lnLuna2, lnNumarLuni, lnPerioada + lcSelect = Select() + loUnitate = This.oUnitate + + * Luna de inceput a perioadei + * 1 = gnLuna + * 3 = 1,4,7,10 + * 6 = 1,7 + * 12 = 1 + lnAn = loUnitate.an + lcTip = loUnitate.TIP + This.TIP = Left(m.lcTip, 1) + lnNumarLuni = Iif(m.lcTip = "TRIMESTRIAL", 3, Iif(m.lcTip = "SEMESTRIAL", 6, Iif(m.lcTip = "ANUAL", 12, 1))) + + lnPerioada = Ceil(m.gnLuna / m.lnNumarLuni) + lnLuna1 = (lnPerioada - 1) * lnNumarLuni + 1 + lnLuna2 = lnPerioada * lnNumarLuni + + loUnitate.luna1 = m.lnLuna1 + loUnitate.luna2 = m.lnLuna2 + + llPerioadaDoarRO = Between(m.gnAn * 12 + m.gnLuna, 2016 * 12 + 7, 2016 * 12 + 9) && intre 07/2016 si 09/2016 se iau doar partenerii cu RO + + * Citeste JV/JC + Wait Window 'Se citesc date din Registrele TVA...' Nowait + llSucces = This.citeste_date_jtva() + + If m.llSucces And Used('crsJtva') + Wait Window 'Se proceseaza datele din Registrele TVA...' Nowait + llSucces = This.configureaza_date_jtva() + Else + llSucces = .F. + Endif + + If m.llSucces + Wait Window 'Se pregatesc sectiunile 1 si 2...' Nowait + llSucces = This.pregateste_sectiunea_1_2() + Endif + + If m.llSucces + Wait Window 'Se pregatesc sectiunile 4 si 5...' Nowait + llSucces = This.pregateste_sectiunea_4_5() + Endif + + If m.llSucces + Wait Window 'Se pregateste sectiunea 6...' Nowait + llSucces = This.pregateste_sectiunea_6() + Endif + + If m.llSucces + Wait Window 'Se pregateste sectiunea 7...' Nowait + llSucces = This.pregateste_sectiunea_7() + Endif + + If m.llSucces + Wait Window 'Se pregateste sectiunea AMEF...' Nowait + llSucces = This.pregateste_sectiunea_amef() + If loUnitate.lPerioadaDoarRO + Delete From crsAMEF && nu se declara bonurile fiscale in perioada 07-09/2016 + Endif + Endif + +*!* If m.llSucces +*!* Wait Window 'Se pregateste sectiunea persoane fizice...' Nowait +*!* llSucces = This.pregateste_sectiunea_facturi_pers_fizice_10000() +*!* If loUnitate.lPerioadaDoarRO +*!* Delete From crsPersFizice && nu se declara bonurile fiscale in perioada 07-09/2016 +*!* Endif +*!* Endif + + Go Top In crsJTVA + + Select (m.lcSelect) + Return m.llSucces + Endproc + + * Citeste JV/JC + Procedure citeste_date_jtva + + Private pnIdSetAnulat && set facturi anulate + pnIdSetAnulat = Iif(Type('gnIdSetAnulat') = 'N', m.gnIdSetAnulat, 99996) + + Local lcConditieAct, lcConditieLuna, lcCursor, lcSql, lnAn, lnLuna1, lnLuna2, lnSucces, loUnitate, llPerioadaDoarRO + loUnitate = This.oUnitate + lnAn = loUnitate.an + lnLuna1 = loUnitate.luna1 + lnLuna2 = loUnitate.luna2 + llPerioadaDoarRO = loUnitate.lPerioadaDoarRO + + lcConditieLuna = [ (AN = ] + Alltrim(Str(m.lnAn)) + [ and (luna BETWEEN ] + Alltrim(Str(m.lnLuna1)) + [ and ] + Alltrim(Str(m.lnLuna2)) + [ ))] + + *** iau doar facturile din luna emiterii + lcConditieAct = [ and (extract(year from dataact)*12+extract(month from dataact) = an*12+luna)] + + * Iau toate inregistrarile din Registrele de TVA, INCLUSIV FATURILE EMISE ANTERIOR PERIOADEI DE DECLARARE, pentru calcul sectiune 4 si 5 (TVA EXIGIBIL) + Text To lcSql Textmerge Noshow +SELECT 'JV' AS TIPJ, 0 AS TIPPART, TIP_DOC as tipdoc, 'L ' as tip, dataact, dataireg, serie_act, nract, id_fdoc, fel_document, id_sucursala, sucursala, + 0 as ISCIF, 0 AS CIFVALID, + J.ID_PART, COD_FISCAL, REGEXP_REPLACE(COD_FISCAL, '[^[:digit:]]', '') AS COD_FISCALFRO, SUBSTR(TRIM(UPPER(COD_FISCAL)),1,2) AS ATRIBUT_FISCAL, DENUMIRE, TIP_PERSOANA, AFILIAT, CODTARA, + A.TARA, A.COD_TARA, A.JUDET, A.COD_JUDET, A.LOCALITATE, A.STRADA, A.BLOC, A.SCARA, A.NUMAR, A.APART, + RO21B + RO11B + RO19B + RO9B + RO5B + RO21NB + RO11NB + RO19NB + RO9NB + RO5NB AS BAZA, + RO21T + RO11T + RO19T + RO9T + RO5T + RO21NT + RO11NT + RO19NT + RO9NT + RO5NT AS TVA, + ROTI AS TIBAZA, + 0 AS TITVA, + RO21B + RO21NB as BAZA21, RO11B + RO11NB AS BAZA11, RO19B + RO19NB AS BAZA19, RO9B + RO9NB AS BAZA09, RO5B + RO5NB AS BAZA05, RO24B + RO24NB as BAZA24, RO20B + RO20NB AS BAZA20, 0.00 AS BAZA00, + RO21T + RO21NT as TVA21, RO11T + RO11NT AS TVA11, RO19T + RO19NT AS TVA19, RO9T + RO9NT AS TVA09, RO5T + RO5NT AS TVA05, RO24T + RO24NT AS TVA24, RO20T + RO20NT AS TVA20, + ROTI AS TIBAZA21, 0.00 AS TIBAZA11, 0.00 AS TIBAZA19, 0.00 AS TIBAZA09, 0.00 AS TIBAZA05, 0.00 AS TIBAZA24, 0 AS TIBAZA20, + 0.00 as TITVA21, 0.00 AS TITVA11, 0.00 AS TITVA19, 0.00 AS TITVA09, 0.00 AS TITVA05, 0.00 as TITVA24, 0.00 AS TITVA20, + TVA_INCASARE, 0 as FACT_TVA_INCASARE, 1 as NRFACT, decode(extract(year from dataireg)*12+extract(month from dataireg), an*12+luna, 1, 0) as EMISA_PERIOADA, + RO21T, RO11T, RO19T, RO9T AS RO09T, RO5T AS RO05T, RO24T, RO20T + FROM VJV2025 J + LEFT JOIN (SELECT ID_PART,TARA,PRESCURTARE AS COD_TARA,JUDET,COD_JUDET,LOCALITATE,STRADA,NUMAR,APART,SCARA,BLOC FROM VADRESE_PARTENERI WHERE PRINCIPALA = 1) A ON J.ID_PART = A.ID_PART + WHERE (TOTCTVA = 0 OR RO21T <> 0 OR RO11T <> 0 OR RO19T <> 0 OR RO9T <> 0 OR RO5T <> 0 OR RO24T <> 0 OR RO20T <> 0 OR RO21NT <> 0 OR RO11NT <> 0 OR RO19NT <> 0 OR RO9NT <> 0 OR RO5NT <> 0 OR RO24NT <> 0 OR RO20NT <> 0 OR ROTI <> 0) AND + <> +UNION +SELECT 'JC' AS TIPJ, 0 AS TIPPART, TIP_DOC as tipdoc, 'A ' as tip, dataact, dataireg, serie_act, nract, id_fdoc, fel_document, id_sucursala, sucursala, + 0 as ISCIF, 0 AS CIFVALID, + J.ID_PART, COD_FISCAL, REGEXP_REPLACE(COD_FISCAL, '[^[:digit:]]', '') AS COD_FISCALFRO, SUBSTR(TRIM(UPPER(COD_FISCAL)),1,2) AS ATRIBUT_FISCAL, DENUMIRE, TIP_PERSOANA, AFILIAT, CODTARA, + A.TARA, A.COD_TARA, A.JUDET, A.COD_JUDET, A.LOCALITATE, A.STRADA, A.BLOC, A.SCARA, A.NUMAR, A.APART, + RO21B + RO11B + RO19B + RO09B + RO05B + RO24B + RO20B + RO21NB + RO11NB + RO19NB + RO9NB + RO5NB + RO24NB + RO20NB + ROSCN AS BAZA, + RO21T + RO11T + RO19T + RO09T + RO05T + RO21NT + RO11NT + RO19NT + RO9NT + RO5NT AS TVA, + TI21B + TI11B + TI19B + TI09B + TI24B + TI20B + XX21TIB + XX11TIB + XX19TIB + XX9TIB as TIBAZA, + TI21T + TI11T + TI19T + TI09T + TI24T + TI20T + XX21TIT + XX11TIT + XX19TIT + XX9TIT as TITVA, + RO21B + RO21NB AS BAZA21, RO11B + RO11NB AS BAZA11, RO19B + RO19NB AS BAZA19, RO09B + RO9NB AS BAZA09, RO05B + RO5NB AS BAZA05, RO24B + RO24NB AS BAZA24, RO20B + RO20NB AS BAZA20, ROSCN AS BAZA00, + RO21T + RO21NT AS TVA21, RO11T + RO11NT AS TVA11, RO19T + RO19NT AS TVA19, RO09T + RO9NT AS TVA09, RO05T + RO5NT AS TVA05, RO24T + RO24NT AS TVA24, RO20T + RO20NT AS TVA20, + TI21B + XX21TIB AS TIBAZA21, TI11B + XX11TIB AS TIBAZA11, TI19B + XX19TIB AS TIBAZA19, TI09B + XX9TIB AS TIBAZA09, 0.00 AS TIBAZA05, TI24B AS TIBAZA24, TI20B AS TIBAZA20, + TI21T + XX21TIT as TITVA21, TI11T + XX11TIT AS TITVA11, TI19T + XX19TIT AS TITVA19, TI09T + XX9TIT AS TITVA09, 0.00 AS TITVA05, TI24T as TITVA24, TI20T AS TITVA20, + TVA_INCASARE, 0 as FACT_TVA_INCASARE, 1 as NRFACT, decode(extract(year from dataireg)*12+extract(month from dataireg), an*12+luna, 1, 0) as EMISA_PERIOADA, + RO21T, RO11T, RO19T, RO09T, RO05T, RO24T, RO20T + FROM VJC2025 J + LEFT JOIN (SELECT ID_PART,TARA,PRESCURTARE AS COD_TARA,JUDET,COD_JUDET,LOCALITATE,STRADA,NUMAR,APART,SCARA,BLOC FROM VADRESE_PARTENERI WHERE PRINCIPALA = 1) A ON J.ID_PART = A.ID_PART + WHERE (TOTCTVA = 0 OR RO21T <> 0 OR RO11T <> 0 OR RO19T <> 0 OR RO09T <> 0 OR RO05T <> 0 OR RO24T <> 0 OR RO20T <> 0 OR + RO21NT <> 0 OR RO11NT <> 0 OR RO19NT <> 0 OR RO9NT <> 0 OR RO5NT <> 0 OR RO24NT <> 0 OR RO20NT <> 0 OR + TI21T <> 0 OR TI11T <> 0 OR TI19T <> 0 OR TI09T <> 0 OR TI24T <> 0 OR TI24T <> 0 OR + XX21TIB<>0 OR XX21TIT <> 0 OR XX11TIB<>0 OR XX11TIT <> 0 OR XX19TIB<>0 OR XX19TIT <> 0 OR XX9TIB<>0 OR XX9TIT <> 0 OR + ROSCN <> 0) AND + <> + Endtext + + goLog.Log(lcSql) + + lcCursor = [crsJTVATemp] + llSucces = goExecutor.oExecuta(lcSql, lcCursor) + + If m.llSucces + Select crsJTVA + Append From Dbf('crsJTVATemp') + Use In (Select('crsJTVATemp')) + + * sterg facturile de achizitie de la platitorii de TVA (RO) care au doar baza00 <> 0 (ROSCN). nu trebuie sa apara in declaratie. doar la tipul 2 (neinregistrati in scopuri TVA) + * sunt permise facturile cu TVA 0 tip AS - achizitii regim special (servicii turism, second hand, obiecte arta care aplica TVA la marja de profit) + Delete From crsJTVA Where tipj = 'JC' And atribut_fiscal = 'RO' And TVA21 = 0 And TVA11 = 0 And TVA19 = 0 And TVA09 = 0 And TVA05 = 0 And TVA24 = 0 And TVA20 = 0 And baza00 <> 0 And !Inlist(Alltrim(tipdoc), 'U', 'H') + Update crsJTVA Set seq = Recno() + + * Bifa Persoane Afiliate + Select crsJTVA + Locate For Nvl(AFILIAT, 0) <> 0 + If Found() + pounitate.PersoaneAfiliate = 1 + Endif + Endif && llSucces + + * Facturi Anulate din Reg. Jurnal cu gnIdSetAnulate + If m.llSucces + Text To lcSql Textmerge Noshow +SELECT distinct a.serie_act as seria, a.nract as nr + FROM act a left join nom_fdoc f on a.id_fdoc = f.id_fdoc + WHERE a.sters = 0 and a.id_set = <> and f.tip_doc in ('F', 'M') and + <> + <> + <> + Endtext + + lcCursor = [crsFacturiAnulate] + llSucces = goExecutor.oExecuta(lcSql, lcCursor) + Endif && llSucces + * Numar bonuri fiscale cu si fara CUI, B si C (AMEF) + If m.llSucces + + * 07-09/2016 se declara doar operatiile cu persoane impozabile, deci nu bonuri AMEF + If m.llPerioadaDoarRO + Create Cursor crsBonuriAMEF (luna N(2), nr N(10)) + llSucces = .T. + Else + *BON=10* + * se numara toate bonurile fiscale emise, indiferent ca au cod fiscal sau nu. Doar bonurile fiscale pentru care s-au emis facturi nu se iau in considerare! + * dar acelea trebuie sa fie marcate ca FACTURA + Text To lcSql Textmerge Noshow +SELECT extract(month FROM dataact) as luna, SUM(case when nr is null then 1 else to_number(nr) end) as nr FROM +(SELECT a.id_fact, a.cod, MAX(a.dataact) as dataact, MAX(replace(replace(upper(regexp_substr(a.explicatia,'\*BON=(\d)*\*',1,1,'i')),'*BON=',''),'*','')) as nr + FROM act a + WHERE a.sters = 0 and + <> + <> + and id_fact in (SELECT j.id_fact + from jv2007 j + where <> <> and + id_fdoc in (select id_fdoc + from NOM_FDOC t + where sters = 0 + and tip_doc in ('B','C'))) + and id_fdoc in (select id_fdoc + from NOM_FDOC t + where sters = 0 + and tip_doc in ('B','C')) + group by a.id_fact, a.cod) + group by extract(month from dataact) + Endtext + + Wait Window 'Calculare numar bonuri AMEF...' Nowait + lcCursor = [crsBonuriAMEF] + llSucces = goExecutor.oExecuta(lcSql, lcCursor) + Endif && m.llPerioadaDoarRO + Endif && llSucces + + * Numar bilete E(xceptate) AMEF + If m.llSucces + * 07-09/2016 se declara doar operatiile cu persoane impozabile, deci nu bonuri AMEF + If m.llPerioadaDoarRO + Create Cursor crsBonuriEAMEF(luna N(2), nr N(10)) + llSucces = .T. + Else + Text To lcSql Textmerge Noshow +SELECT extract(month FROM dataact) as luna, SUM(case when nr is null then 1 else to_number(nr) end) as nr FROM +(SELECT a.id_fact, a.cod, MAX(a.dataact) as dataact, MAX(replace(replace(upper(regexp_substr(a.explicatia,'\*BON=(\d)*\*',1,1,'i')),'*BON=',''),'*','')) as nr + FROM act a + WHERE a.sters = 0 and + <> + <> + and id_fact in (SELECT j.id_fact + from jv2007 j + where <> <> and + id_fdoc in (select id_fdoc + from NOM_FDOC t + where sters = 0 + and tip_doc = 'E')) + and id_fdoc in (select id_fdoc + from NOM_FDOC t + where sters = 0 + and tip_doc = 'E') + group by a.id_fact, a.cod) + group by extract(month from dataact) + Endtext + + Wait Window 'Calculare numar bonuri exceptate AMEF...' Nowait + lcCursor = [crsBonuriEAMEF] + llSucces = goExecutor.oExecuta(lcSql, lcCursor) + Endif && m.llPerioadaDoarRO + Endif && llSucces + + Return m.llSucces + Endproc && citeste_date_jtva + + * Configureaza tipurile de documente (facturi, facturi simplificate, bonuri fiscale etc.) + Procedure configureaza_date_jtva + + Local loVerificare As "verificarecod" + Local loRec + + Update crsJTVA Set atribut_fiscal = '' Where Isdigit(atribut_fiscal) Or Empty(Nvl(cod_fiscal, '')) + Update crsJTVA Set codtara = 'RO' WHERE EMPTY(NVL(codtara,'')) + + * Completez Tip partener: 1/2/3/4 + Update crsJTVA Set tippart = 1 Where tippart = 0 And atribut_fiscal = 'RO' && persoane impozabile inregistrate in scopuri de TVA in Romania + Update crsJTVA Set tippart = 2 Where tippart = 0 And (codtara = 'RO' AND Empty(atribut_fiscal)) OR Nvl(TIP_PERSOANA,0) <> 1 && persoane din RO neinregistrate in scopuri de TVA /fara atribut fiscal sau persoane fizice + Update crsJTVA Set tippart = 3 Where tippart = 0 And ; + (INLIST(atribut_fiscal,'AT', 'BE', 'BG', 'CY', 'CZ', 'DE', 'DK', 'EE', 'EL', 'ES', 'FI', 'FR') OR INLIST(atribut_fiscal, 'HR', 'HU', 'IE', 'IT', 'LT', 'LU', 'LV', 'MT', 'NL', 'PL', 'PT', 'SE', 'SI', 'SK') OR ; + INLIST(codtara, 'AT', 'BE', 'BG', 'CY', 'CZ', 'DE', 'DK', 'EE', 'GR', 'ES', 'FI', 'FR') OR INLIST(codtara, 'HR', 'HU', 'IE', 'IT', 'LT', 'LU', 'LV', 'MT', 'NL', 'PL', 'PT', 'SE', 'SI', 'SK')) && persoane impozabile nestabilite in RO, in UE + Update crsJTVA Set tippart = 4 Where tippart = 0 And Nvl(TIP_PERSOANA,0) = 1 AND codtara <> 'RO'&& persoane impozabile nestabilite in RO, in afara UE si tip persoana = persoana juridica + + * Completez tip document: FACTURA/BON FISCAL FARA FACTURA/BON FISCAL CU FACTURA/FACTURA SIMPLIFICATA/AUTOFACTURA + *!* Update crsJTVA Set tipdoc = '' + *!* Update crsJTVA Set tipdoc = 'B' Where Empty(tipdoc) And ',' + Alltrim(Str(id_fdoc)) + ',' $ ',' + This.oUnitate.tipdoc_bonfiscal_fara_cui + ',' + *!* Update crsJTVA Set tipdoc = 'C' Where Empty(tipdoc) And ',' + Alltrim(Str(id_fdoc)) + ',' $ ',' + This.oUnitate.tipdoc_bonfiscal_cu_cui + ',' + *!* Update crsJTVA Set tipdoc = 'M' Where Empty(tipdoc) And ',' + Alltrim(Str(id_fdoc)) + ',' $ ',' + This.oUnitate.tipdoc_factura_simplificata + ',' + *!* Update crsJTVA Set tipdoc = 'E' Where Empty(tipdoc) And ',' + Alltrim(Str(id_fdoc)) + ',' $ ',' + This.oUnitate.tipdoc_exceptate_amef + ',' + *!* Update crsJTVA Set tipdoc = 'O' Where Empty(tipdoc) And ',' + Alltrim(Str(id_fdoc)) + ',' $ ',' + This.oUnitate.tipdoc_borderou_achizitii + ',' + *!* Update crsJTVA Set tipdoc = 'Z' Where Empty(tipdoc) And ',' + Alltrim(Str(id_fdoc)) + ',' $ ',' + This.oUnitate.tipdoc_carnet_comercializare + ',' + *!* Update crsJTVA Set tipdoc = 'H' Where Empty(tipdoc) And ',' + Alltrim(Str(id_fdoc)) + ',' $ ',' + This.oUnitate.tipdoc_achizitii_second_hand + ',' + *!* Update crsJTVA Set tipdoc = 'U' Where Empty(tipdoc) And ',' + Alltrim(Str(id_fdoc)) + ',' $ ',' + This.oUnitate.tipdoc_servicii_turism + ',' + *!* Update crsJTVA Set tipdoc = 'AF' Where Empty(tipdoc) And ',' + Alltrim(serie_act) + ',' $ ',' + This.oUnitate.serie_autofacturare + ',' + *!* Update crsJTVA Set tipdoc = 'F' Where Empty(tipdoc) And ',' + Alltrim(Str(id_fdoc)) + ',' $ ',' + This.oUnitate.tipdoc_factura + ',' + * Update crsJTVA Set tipdoc = 'F' Where Empty(tipdoc) && completez restul documentelor cu tip = F(actura) + + Insert Into crsFdocTip (id_fdoc, fel_document, tip_doc, bifa) ; + Select Distinct id_fdoc, fel_document, tipdoc As tip_doc, Iif(Empty(Nvl(tipdoc, '')), 1, 0) As bifa ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 + + Go Top In crsFdocTip + + * Determin CUI/CNP si verific validitate + Select Distinct cod_fiscal, .F. As iscif, .F. As cifvalid ; + From crsJTVA ; + Where !Empty(Nvl(cod_fiscal, '')) ; + Into Cursor cCUITemp Readwrite + + loVerificare = Createobject("verificarecod") && validare.prg + Update cCUITemp Set iscif = loVerificare.iscif(cCUITemp.cod_fiscal) + Update cCUITemp Set cifvalid = loVerificare.Validare(Iif(cCUITemp.iscif, 'CIF', 'CNP'), cCUITemp.cod_fiscal) + Select cCUITemp + Scan + Update crsJTVA Set iscif = Iif(cCUITemp.iscif, 1, 0), cifvalid = Iif(cCUITemp.cifvalid, 1, 0) Where cod_fiscal = cCUITemp.cod_fiscal + Endscan + Update crsJTVA Set iscif = 0, cifvalid = 0 Where Empty(Nvl(cod_fiscal, '')) + + Use In (Select('cCUITemp')) + + *!* L - livrari + *!* V - livrari cu taxare inversa + *!* LS - livrari regim special + + *!* A - achizitii + *!* C - achizitii cu taxare inversa + *!* AS - achizitii regim special + *!* N - achizitii de bunuri/servicii pt care au fost primite facturi/borderouri de achizitii/ file din carnete de comercializare de la persoane neinregistrate + *!* AI - achizitii de la persoane impozabile care aplica TVA la incasare + + * V/C - taxare inversa + Select * From crsJTVA Where .F. Into Cursor crsJTVATemp Readwrite + + Select crsJTVA + Scan For EMISA_PERIOADA = 1 And titva <> 0 Or tibaza <> 0 And Inlist(TIP, 'L', 'A') + If TVA = 0 And baza = 0 + * daca are doar taxare inversa, marchez factura tip V/C + Replace TIP With Iif(TIP = 'L', 'V', 'C'), ; + baza With tibaza, TVA With titva, ; + baza21 With tibaza21, baza11 With tibaza11, baza19 With tibaza19, baza09 With tibaza09, baza05 With tibaza05, ; + TVA21 With titva21, TVA11 With titva11, TVA19 With titva19, TVA09 With titva09, TVA05 With titva05 In crsJTVA + + If TIP = 'V' && livrare taxare inversa nu are cota de TVA + Replace baza00 With 0, titva21 WITH 0, baza11 With 0, tibaza11 With 0 In crsJTVA + Endif + Else + * daca are taxare inversa si tva normal, marchez factura tip V/C si adaug o linie noua cu tva normal + Select crsJTVA + Scatter Name loRec + Replace TIP With Iif(TIP = 'L', 'V', 'C'), ; + baza With tibaza, TVA With titva, ; + baza21 With tibaza21, baza11 With tibaza11, baza19 With tibaza19, baza09 With tibaza09, baza05 With tibaza05, baza24 With tibaza24, baza20 With tibaza20, ; + TVA21 With titva21, TVA11 With titva11, TVA19 With titva19, TVA09 With titva09, TVA05 With titva05, TVA24 With titva24, TVA20 With titva20, ; + ro21t With 0, ro11t With 0, ro19t With 0, RO09T With 0, ro05t With 0, ro24t With 0, ro20t With 0 In crsJTVA + + With loRec + .NRFACT = 0 && am deja nrfact = 1 pe linia cu taxare inversa, sa nu duplic numarul de facturi + .tibaza = 0 + .titva = 0 + .tibaza21 = 0 + .tibaza11 = 0 + .tibaza19 = 0 + .tibaza09 = 0 + .tibaza05 = 0 + .tibaza24 = 0 + .tibaza20 = 0 + .titva21 = 0 + .titva11 = 0 + .titva19 = 0 + .titva09 = 0 + .titva05 = 0 + .titva24 = 0 + .titva20 = 0 + Endwith + Insert Into crsJTVATemp From Name loRec + Select crsJTVA + Endif + Endscan + Select crsJTVA + Append From Dbf('crsJTVATemp') + Use In (Select('crsJTVATemp')) + + * LS - livrari regim special (servicii turism, second hand, obiecte arta care aplica TVA la marja de profit) + Update crsJTVA Set TIP = 'LS' Where TIP = 'L' And Inlist(Alltrim(tipdoc), 'U', 'H') + + * AS - achizitii regim special (servicii turism, second hand, obiecte arta care aplica TVA la marja de profit) + Update crsJTVA Set TIP = 'AS' Where TIP = 'A' And Inlist(Alltrim(tipdoc), 'U', 'H') + + * N - achizitii de bunuri/servicii pt care au fost primite facturi/borderouri de achizitii/ file din carnete de comercializare de la persoane neinregistrate + * Achizitii de la persoane fizice sau persoane juridice neplatitoare de TVA + Update crsJTVA Set TIP = 'N' Where TIP = 'A' And (iscif = 0 Or (iscif = 1 And !'RO' $ cod_fiscal)) + + * Facturi de achizitie provenite de la persoane care aplica sistemul TVA la Incasare, pentru sectiunea I5.2 + Update crsJTVA Set FACT_TVA_INCASARE = 1 Where tipj = 'JC' And iscif = 1 And 'RO' $ (Upper(cod_fiscal)) And VERIFICA_RTVAI_DATA(crsJTVA.cod_fiscal, crsJTVA.dataact) + + * AI - achizitii de la persoane impozabile care aplica TVA la incasare + Update crsJTVA Set TIP = 'AI' Where TIP = 'A' And FACT_TVA_INCASARE = 1 + + * Documentele fara tipdoc asociat nu se iau in considerare la generarea D394 + Update crsJTVA Set TIP = '' Where Empty(Nvl(tipdoc, '')) + + Return .T. + + Endproc && configureaza_date_jtva + + *=========================================== + * Creeaza cursoare pentru sectiunile declaratiei din crsJTVA + Procedure pregateste_sectiunea_1_2 + Private pnPlaje24 + Local lnAn, lnLuna1, lnLuna2, llSucces + Local lcSeria, lcSql, lnNr1, lnNr2, loUnitate + pnPlaje24 = 0 + + loUnitate = This.oUnitate + lnAn = Int(loUnitate.an) + lnLuna1 = Int(loUnitate.luna1) + lnLuna2 = Int(loUnitate.luna2) + + + * I. ALTE INFORMATII: + * I 1.1 Livrari de bunuri/prestari de servicii pentru care s-au emis facturi simplificate care au inscris codul de inregistrare in scopuri de TVA al beneficiarului + Insert Into crsSectiuneaI (punct, baza, TVA, proctva) ; + Select '1.1' As punct, Sum(baza21) As baza, Sum(TVA21) As TVA, 21 As proctva ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JV' And tipdoc = 'M' And !Empty(Nvl(cod_fiscal, '')) ; + Union ; + Select '1.1' As punct, Sum(baza11) As baza, Sum(TVA11) As TVA, 11 As proctva ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JV' And tipdoc = 'M' And !Empty(Nvl(cod_fiscal, '')) ; + Union ; + Select '1.1' As punct, Sum(baza19) As baza, Sum(TVA19) As TVA, 19 As proctva ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JV' And tipdoc = 'M' And !Empty(Nvl(cod_fiscal, '')) ; + Union ; + Select '1.1' As punct, Sum(baza09) As baza, Sum(TVA09) As TVA, 9 As proctva ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JV' And tipdoc = 'M' And !Empty(Nvl(cod_fiscal, '')) ; + Union ; + Select '1.1' As punct, Sum(baza05) As baza, Sum(TVA05) As TVA, 5 As proctva ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JV' And tipdoc = 'M' And !Empty(Nvl(cod_fiscal, '')) ; + Union ; + Select '1.1' As punct, Sum(baza24) As baza, Sum(TVA24) As TVA, 24 As proctva ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JV' And tipdoc = 'M' And !Empty(Nvl(cod_fiscal, '')) ; + Union ; + Select '1.1' As punct, Sum(baza20) As baza, Sum(TVA05) As TVA, 20 As proctva ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JV' And tipdoc = 'M' And !Empty(Nvl(cod_fiscal, '')) + + + * I 1.2 Livrari de bunuri/prestari de servicii pentru care s-au emis facturi simplificate fara a avea inscris codul de inregistrare in scopuri de TVA al beneficiarului + Insert Into crsSectiuneaI (punct, baza, TVA, proctva) ; + Select '1.2' As punct, Sum(baza21) As baza, Sum(TVA21) As TVA, 21 As proctva ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JV' And tipdoc = 'M' And Empty(Nvl(cod_fiscal, '')) ; + Union ; + Select '1.2' As punct, Sum(baza11) As baza, Sum(TVA11) As TVA, 11 As proctva ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JV' And tipdoc = 'M' And Empty(Nvl(cod_fiscal, '')) ; + Union ; + Select '1.2' As punct, Sum(baza19) As baza, Sum(TVA19) As TVA, 19 As proctva ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JV' And tipdoc = 'M' And Empty(Nvl(cod_fiscal, '')) ; + Union ; + Select '1.2' As punct, Sum(baza09) As baza, Sum(TVA09) As TVA, 9 As proctva ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JV' And tipdoc = 'M' And Empty(Nvl(cod_fiscal, '')) ; + Union ; + Select '1.2' As punct, Sum(baza05) As baza, Sum(TVA05) As TVA, 5 As proctva ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JV' And tipdoc = 'M' And Empty(Nvl(cod_fiscal, '')) ; + Union ; + Select '1.2' As punct, Sum(baza24) As baza, Sum(TVA24) As TVA, 24 As proctva ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JV' And tipdoc = 'M' And Empty(Nvl(cod_fiscal, '')) ; + Union ; + Select '1.2' As punct, Sum(baza20) As baza, Sum(TVA20) As TVA, 20 As proctva ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JV' And tipdoc = 'M' And Empty(Nvl(cod_fiscal, '')) + + + * I 1.3 Achizitii de bunuri si servicii pentru care s-au primit facturi simplificate de la persoane impozabile care aplica sistemul normal de TVA si care au inscris codul de inregistrare in scopuri de TVA al beneficiarului + Insert Into crsSectiuneaI (punct, baza, TVA, proctva) ; + Select '1.3' As punct, Sum(baza21) As baza, Sum(TVA21) As TVA, 21 As proctva ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JC' And tipdoc = 'M' And atribut_fiscal = 'RO' And FACT_TVA_INCASARE = 0 ; + Union ; + Select '1.3' As punct, Sum(baza11) As baza, Sum(TVA11) As TVA, 11 As proctva ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JC' And tipdoc = 'M' And atribut_fiscal = 'RO' And FACT_TVA_INCASARE = 0 ; + Union ; + Select '1.3' As punct, Sum(baza19) As baza, Sum(TVA19) As TVA, 19 As proctva ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JC' And tipdoc = 'M' And atribut_fiscal = 'RO' And FACT_TVA_INCASARE = 0 ; + Union ; + Select '1.3' As punct, Sum(baza09) As baza, Sum(TVA09) As TVA, 9 As proctva ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JC' And tipdoc = 'M' And atribut_fiscal = 'RO' And FACT_TVA_INCASARE = 0 ; + Union ; + Select '1.3' As punct, Sum(baza05) As baza, Sum(TVA05) As TVA, 5 As proctva ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JC' And tipdoc = 'M' And atribut_fiscal = 'RO' And FACT_TVA_INCASARE = 0 ; + Union ; + Select '1.3' As punct, Sum(baza24) As baza, Sum(TVA24) As TVA, 24 As proctva ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JC' And tipdoc = 'M' And atribut_fiscal = 'RO' And FACT_TVA_INCASARE = 0 ; + Union ; + Select '1.3' As punct, Sum(baza20) As baza, Sum(TVA20) As TVA, 20 As proctva ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JC' And tipdoc = 'M' And atribut_fiscal = 'RO' And FACT_TVA_INCASARE = 0 + + + * I 1.4 Achizitii de bunuri si servicii pentru care s-au primit facturi simplificate de la persoane impozabile care aplica sistemul de TVA la incasare si care au inscris codul de inregistrare in scopuri de TVA al beneficiarului + Insert Into crsSectiuneaI (punct, baza, TVA, proctva) ; + Select '1.4' As punct, Sum(baza21) As baza, Sum(TVA21) As TVA, 21 As proctva ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JC' And tipdoc = 'M' And atribut_fiscal = 'RO' And FACT_TVA_INCASARE = 1 ; + Union ; + Select '1.4' As punct, Sum(baza11) As baza, Sum(TVA11) As TVA, 11 As proctva ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JC' And tipdoc = 'M' And atribut_fiscal = 'RO' And FACT_TVA_INCASARE = 1 ; + Union ; + Select '1.4' As punct, Sum(baza19) As baza, Sum(TVA19) As TVA, 19 As proctva ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JC' And tipdoc = 'M' And atribut_fiscal = 'RO' And FACT_TVA_INCASARE = 1 ; + Union ; + Select '1.4' As punct, Sum(baza09) As baza, Sum(TVA09) As TVA, 9 As proctva ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JC' And tipdoc = 'M' And atribut_fiscal = 'RO' And FACT_TVA_INCASARE = 1 ; + Union ; + Select '1.4' As punct, Sum(baza05) As baza, Sum(TVA05) As TVA, 5 As proctva ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JC' And tipdoc = 'M' And atribut_fiscal = 'RO' And FACT_TVA_INCASARE = 1 ; + Union ; + Select '1.4' As punct, Sum(baza24) As baza, Sum(TVA24) As TVA, 24 As proctva ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JC' And tipdoc = 'M' And atribut_fiscal = 'RO' And FACT_TVA_INCASARE = 1 ; + Union ; + Select '1.4' As punct, Sum(baza20) As baza, Sum(TVA20) As TVA, 20 As proctva ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JC' And tipdoc = 'M' And atribut_fiscal = 'RO' And FACT_TVA_INCASARE = 1 + + * I 1.5 Achizitii de bunuri si servicii pentru care s-au primit bonuri fiscale care indeplinesc conditiile unei facturi simplificate si care au inscris codul de inregistrare in scopuri de TVA al beneficiarului + Insert Into crsSectiuneaI (punct, baza, TVA, proctva) ; + Select '1.5' As punct, Sum(baza21) As baza, Sum(TVA21) As TVA, 21 As proctva ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JC' And tipdoc = 'C' ; + Union ; + Select '1.5' As punct, Sum(baza11) As baza, Sum(TVA11) As TVA, 11 As proctva ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JC' And tipdoc = 'C' ; + Union ; + Select '1.5' As punct, Sum(baza19) As baza, Sum(TVA19) As TVA, 19 As proctva ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JC' And tipdoc = 'C' ; + Union ; + Select '1.5' As punct, Sum(baza09) As baza, Sum(TVA09) As TVA, 9 As proctva ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JC' And tipdoc = 'C' ; + Union ; + Select '1.5' As punct, Sum(baza05) As baza, Sum(TVA05) As TVA, 5 As proctva ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JC' And tipdoc = 'C' ; + Union ; + Select '1.5' As punct, Sum(baza24) As baza, Sum(TVA24) As TVA, 24 As proctva ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JC' And tipdoc = 'C' ; + Union ; + Select '1.5' As punct, Sum(baza20) As baza, Sum(TVA20) As TVA, 20 As proctva ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JC' And tipdoc = 'C' + + Delete From crsSectiuneaI Where Nvl(baza, 0) = 0 And Nvl(TVA, 0) = 0 + + * 2.1 Plaja de facturi alocate in perioada de facturare + pnPlaje24 = 0 && plaja de facturi special creata pentru declararea in D394. Nu se foloseste la generarea de numere de facturi + lnSucces = goExecutor.oSelect2Value("SELECT COUNT(*) as nr FROM plaje_numere WHERE id_tipdoc = 24 and sters = 0", @pnPlaje24) + If m.lnSucces = CT_INSUCCES + amessagebox(goExecutor.cEroare, 0 + 16, "Eroare") + pnPlaje24 = 0 + Endif + lnIdTipDocFact = Iif(m.pnPlaje24 > 0, 24, 5) + + Text To lcSql Textmerge Noshow +select s.serie as seria, + s.prefix || SUBSTR(decode(nvl(s.an, 0), 1, + decode(NVL(s.an2caractere,0), 1, + '<>', '<>') || decode(s.luna, 1, lpad('<>', 2, '0'), + ''), + '') || lpad(p.pl_inf, nvl(s.lungime, 14), '0'), 1, 30) as nr1, + s.prefix || SUBSTR(decode(nvl(s.an, 0), 1, + decode(NVL(s.an2caractere,0), 1, + '<>', '<>') || decode(s.luna, 1, lpad('<>', 2, '0'), ''),'') + || lpad(p.pl_sup, nvl(s.lungime, 14), '0'), 1, 30) as nr2 + from plaje_numere p + join serii s + on p.id_serie = s.id_serie + where p.sters = 0 + and p.inactiv = 0 + and p.id_tipdoc = <> + and ((<> between extract(year from p.datai) * 12 + extract(month from p.datai) and extract(year from p.datas) * 12 + extract(month from p.datas)) or + (<> between extract(year from p.datai) * 12 + extract(month from p.datai) and extract(year from p.datas) * 12 + extract(month from p.datas))) + Endtext + + llSucces = goExecutor.oExecuta(m.lcSql, [crsFacturiAlocateTemp]) + If m.llSucces + Insert Into crsFacturiAlocate (seria, nr1, nr2) ; + Select seria, Int(Val(nr1)) As nr1, Int(Val(nr2)) As nr2 ; + From crsFacturiAlocateTemp + Endif + + * Nu pot sa configurez plaje de numar fara serie. Conventional seria xxx este NULL + Update crsFacturiAlocate Set seria = '' Where seria = 'XXX' + + * In facturi alocate nu intra seriile de facturi emise de beneficiari/terti + IF !EMPTY(NVL(loUnitate.serie_facturi_beneficiari,'')) + DELETE FROM crsFacturiAlocate WHERE !EMPTY(seria) AND ',' + Alltrim(seria) + ',' $ ',' + Alltrim(loUnitate.serie_facturi_beneficiari) + ',' + ENDIF + IF !EMPTY(NVL(loUnitate.serie_facturi_terti,'')) + DELETE FROM crsFacturiAlocate WHERE !EMPTY(seria) AND ',' + Alltrim(seria) + ',' $ ',' + Alltrim(loUnitate.serie_facturi_terti) + ',' + ENDIF + + Use In (Select('crsFacturiAlocateTemp')) + + * 2.2 Numarul total de facturi emise, in perioada de raportare, din plaja de facturi alocate: + If m.llSucces + * selectez seriile si numerele de facturi (sectiunea 2.1), in afara de facturi emise de beneficiari/terti in numele persoanei impozabile (sectiunile 2.3, 2.4) + Select Distinct serie_act As seria, nract As nr ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JV' And Inlist(tipdoc, 'F', 'M') ; + Union ; + Select Distinct seria, nr ; + From crsFacturiAnulate ; + Into Cursor crsNract READWRITE + + IF !EMPTY(NVL(loUnitate.serie_facturi_beneficiari,'')) + DELETE FROM crsNrAct WHERE !EMPTY(seria) AND ',' + Alltrim(seria) + ',' $ ',' + Alltrim(loUnitate.serie_facturi_beneficiari) + ',' + ENDIF + IF !EMPTY(NVL(loUnitate.serie_facturi_terti,'')) + DELETE FROM crsNrAct WHERE !EMPTY(seria) AND ',' + Alltrim(seria) + ',' $ ',' + Alltrim(loUnitate.serie_facturi_terti) + ',' + ENDIF + CALCULATE CNT() TO loUnitate.nr_facturi_emise IN crsNrAct +*!* loUnitate.nr_facturi_emise = _Tally + Select Distinct seria From crsNract Into Cursor crsSeriiAct + + Select crsSeriiAct + Scan + lcSeria = seria + Select Cast(0 As N(20)) As rec, nr From crsNract Where Nvl(seria, 'XXX') = Nvl(m.lcSeria, 'XXX') Order By nr Into Cursor crsSeriaAct1 Readwrite + Replace All rec With Recno() In crsSeriaAct1 + Select rec, nr From crsSeriaAct1 Into Cursor crsSeriaAct2 + + Select c1.nr As nr1, c2.nr As nr2, c2.nr - Nvl(c1.nr, c2.nr) As Dif ; + From crsSeriaAct1 c1 Left Join crsSeriaAct2 c2 On c1.rec = c2.rec - 1 ; + Into Cursor crsSeriaActDif + + Use In (Select('crsSeriaAct1')) + Use In (Select('crsSeriaAct2')) + + Select crsSeriaActDif + Go Top + lnNr1 = nr1 + lnNr2 = nr1 + Scan + If Dif = 1 + lnNr2 = nr2 + Else + Insert Into crsFacturiEmise (seria, nr1, nr2) Values (m.lcSeria, m.lnNr1, m.lnNr2) + lnNr1 = nr2 + lnNr2 = nr2 + Endif + Endscan + If m.lnNr1 <> m.lnNr2 + Insert Into crsFacturiEmise (seria, nr1, nr2) Values (m.lcSeria, m.lnNr1, m.lnNr2) + Endif + Use In (Select('crsSeriaActDif')) + + Endscan && crsSeriiAct + + * Verificare facturi emise in plajele de facturi alocate!!! + * Asociez facturile emise cu plajele de facturi alocate + Select a.seria, a.nr, b.seria As aseria, b.nr1, b.nr2 ; + From crsNract a Left Join crsFacturiAlocate b On Padr(Nvl(a.seria, ''), 20, ' ') = Padr(Nvl(b.seria, ''), 20, ' ') And Between(a.nr, b.nr1, b.nr2) ; + Into Cursor cFacturiEmiseAlocateTemp + + * Selectez facturile care nu s-au incadrat in nici o plaja de facturi alocate + Select seria, nr ; + From cFacturiEmiseAlocateTemp ; + Where Isnull(nr1) ; + Order By seria, nr ; + Into Cursor cFacturiEmiseAlocate + + Use In (Select('cFacturiEmiseAlocateTemp')) + + This.oUnitate.cTextFacturiEmiseAlocate = "" + If _Tally > 0 + This.oUnitate.cTextFacturiEmiseAlocate = 'Facturi emise care nu sunt in plajele de facturi alocate:' + Chr(13) + Chr(10) + Select cFacturiEmiseAlocate + Scan + This.oUnitate.cTextFacturiEmiseAlocate = This.oUnitate.cTextFacturiEmiseAlocate + Transform(seria) + ' ' + Transform(nr) + Chr(13) + Chr(10) + Endscan + Else + This.oUnitate.cTextFacturiEmiseAlocate = 'Toate facturile emise sunt in plajele de facturi alocate.' + Endif + Use In (Select('cFacturiEmiseAlocate')) + + Use In (Select('crsSeriiAct')) + Use In (Select('crsNrAct')) + + * 2.2 din care (Tip: stornate/anulate/autofacturare/emisa in numele furnizorilor) + * Facturi stornate + Insert Into crsFacturiEmiseTip (TIP, ntip, seria, nr) ; + Select Distinct 'STORNAT' As TIP, 1 As ntip, serie_act As seria, nract As nr ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JV' And Inlist(tipdoc, 'F', 'M') And baza + TVA < 0 + + * Facturi anulate + Insert Into crsFacturiEmiseTip (TIP, ntip, seria, nr) ; + Select Distinct 'ANULAT' As TIP, 2 As ntip, seria, nr ; + From crsFacturiAnulate + + * Autofacturi + Insert Into crsFacturiEmiseTip (TIP, ntip, seria, nr) ; + Select Distinct 'AUTOFACTURA' As TIP, 3 As ntip, serie_act As seria, nract As nr ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JV' And Inlist(tipdoc, 'F', 'M') And ',' + Alltrim(serie_act) + ',' $ ',' + Alltrim(loUnitate.serie_autofacturare) + ',' + + * Facturi emise in numele furnizorilor + Insert Into crsFacturiEmiseTip (TIP, ntip, seria, nr) ; + Select Distinct 'FURNIZOR' As TIP, 4 As ntip, serie_act As seria, nract As nr ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JC' And Inlist(tipdoc, 'F', 'M') And ',' + Alltrim(serie_act) + ',' $ ',' + Alltrim(loUnitate.serie_facturi_furnizori) + ',' + + * 2.2 Autofacturare + Insert Into crsAutoFacturi (seria, nr, baza21, TVA21, baza11, TVA11, baza19, TVA19, baza09, TVA09, baza05, TVA05, baza24, TVA24, baza20, TVA20) ; + Select serie_act As seria, nract As nr, ; + Sum(baza21) As baza21, Sum(TVA21) As TVA21, ; + Sum(baza11) As baza11, Sum(TVA11) As TVA11, ; + Sum(baza19) As baza19, Sum(TVA19) As TVA19, ; + Sum(baza09) As baza09, Sum(TVA09) As TVA09, ; + Sum(baza05) As baza05, Sum(TVA05) As TVA05, ; + Sum(baza24) As baza24, Sum(TVA24) As TVA24, ; + Sum(baza20) As baza20, Sum(TVA20) As TVA20 ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JV' And Inlist(tipdoc, 'F', 'M') And ',' + Alltrim(serie_act) + ',' $ ',' + Alltrim(loUnitate.serie_autofacturare) + ',' ; + Group By serie_act, nract + + + * 2.3 Numarul total de facturi emise, in perioada de raportare, de beneficiari in numele persoanei impozabile: + Insert Into crsFacturiTerti (punct, denumire, cod_fiscal, seria, nr1, nr2) ; + Select '2.3' As punct, denumire, cod_fiscal, serie_act As seria, Min(nract) As nr1, Max(nract) As nr2 ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JV' And Inlist(tipdoc, 'F', 'M') And ',' + Alltrim(serie_act) + ',' $ ',' + Alltrim(loUnitate.serie_facturi_beneficiari) + ',' ; + Group By denumire, cod_fiscal, serie_act ; + Union ; + Select '2.4' As punct, denumire, cod_fiscal, serie_act As seria, Min(nract) As nr1, Max(nract) As nr2 ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JV' And Inlist(tipdoc, 'F', 'M') And ',' + Alltrim(serie_act) + ',' $ ',' + Alltrim(loUnitate.serie_facturi_terti) + ',' ; + Group By denumire, cod_fiscal, serie_act ; + Order By punct, denumire, cod_fiscal, serie_act + + Select Distinct serie_act As seria, nract As nr ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JV' And Inlist(tipdoc, 'F', 'M') And ',' + Alltrim(serie_act) + ',' $ ',' + Alltrim(loUnitate.serie_facturi_beneficiari) + ',' ; + Into Cursor crsNract + + loUnitate.nr_facturi_beneficiari = _Tally + USE IN (SELECT('crsNract')) + + Select Distinct serie_act As seria, nract As nr ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JV' And Inlist(tipdoc, 'F', 'M') And ',' + Alltrim(serie_act) + ',' $ ',' + Alltrim(loUnitate.serie_facturi_terti) + ',' ; + Into Cursor crsNract + + loUnitate.nr_facturi_terti = _Tally + USE IN (SELECT('crsNract')) + + Endif && m.llSucces + + + Return m.llSucces + Endproc && pregateste_sectiunea_1_2 + + + * TVA Exigibil + Procedure pregateste_sectiunea_4_5 + If This.oUnitate.tva_incasare = 0 + * 4. Date aferente operatiunilor desfasurate de catre persoana impozabila care aplica sistemul normal de TVA + * 4.1 TVA deductibila aferenta facturilor achitate in perioada de raportare indiferent de data in care acestea au fost primite de la + * persoane impozabile care aplica sistemul de TVA la incasare, defalcata pe fiecare cota de TVA + Insert Into crsSectiuneaI4 (punct, TVA21, TVA11, TVA19, TVA09, TVA05, TVA24, TVA20) ; + Select '4.1' As punct, Sum(ro21t) As TVA21, Sum(ro11t) As TVA11, Sum(ro19t) As TVA19, Sum(RO09T) As TVA09, Sum(ro05t) As TVA05, Sum(RO24T) As TVA24, Sum(ro20t) As TVA20 ; + From crsJTVA Where tipj = 'JC' And atribut_fiscal = 'RO' And tva_incasare = 1 And Inlist(tipdoc, 'F', 'M') + Else + * 5. Date aferente operatiunilor desfasurate de catre persoana impozabila care aplica sistemul de TVA la incasare + * 5.1 TVA colectata aferenta facturilor incasate in perioada de raportare indiferent de data in care acestea au fost emise de catre + * persoana impozabila care aplica sistemul de TVA la incasare, defalcata pe fiecare cota de TVA + Insert Into crsSectiuneaI4 (punct, TVA21, TVA11, TVA19, TVA09, TVA05, TVA24, TVA20) ; + Select '5.1' As punct, Sum(ro21t) As TVA21, Sum(ro11t) As TVA11, Sum(ro19t) As TVA19, Sum(RO09T) As TVA09, Sum(ro05t) As TVA05, Sum(ro24t) As TVA24, Sum(ro20t) As TVA20 ; + From crsJTVA Where tipj = 'JV' And tva_incasare = 1 And Inlist(tipdoc, 'F', 'M') + + * 5.2 TVA deductibila aferenta facturilor achitate in perioada de raportare indiferent de data in care acestea au fost primite de la + * persoane impozabile care aplica sistemul normal de TVA, defalcata pe fiecare cota de TVA + Insert Into crsSectiuneaI4 (punct, TVA21, TVA11, TVA19, TVA09, TVA05, TVA24, TVA20) ; + Select '5.2' As punct, Sum(ro21t) As TVA21, Sum(ro11t) As TVA11, Sum(ro19t) As TVA19, Sum(RO09T) As TVA09, Sum(ro05t) As TVA05, Sum(ro24t) As TVA24, Sum(ro20t) As TVA20 ; + From crsJTVA Where tipj = 'JC' And atribut_fiscal = 'RO' And FACT_TVA_INCASARE = 0 And Inlist(tipdoc, 'F', 'M') + + * 5.3 TVA deductibila aferenta facturilor achitate in perioada de raportare indiferent de data in care acestea au fost primite de la + * persoane impozabile care aplica sistemul de TVA la incasare, defalcata pe fiecare cota de TVA + Insert Into crsSectiuneaI4 (punct, TVA21, TVA11, TVA19, TVA09, TVA05, TVA24, TVA20) ; + Select '5.3' As punct, Sum(ro21t) As TVA21, Sum(ro11t) As TVA11, Sum(ro19t) As TVA19, Sum(RO09T) As TVA09, Sum(ro05t) As TVA05, Sum(ro24t) As TVA24, Sum(ro20t) As TVA20 ; + From crsJTVA Where tipj = 'JC' And atribut_fiscal = 'RO' And FACT_TVA_INCASARE = 1 And Inlist(tipdoc, 'F', 'M') + Endif + + Endproc && pregateste_sectiunea_4_5 + + + * 6. TVA colectata aferenta marjei de profit din perioada de raportare indiferent de data la care au fost efectuate operatiunile de catre + * persoanele impozabile care aplica regimul special pt agentiile de turism, pt bunurile second-hand, opere de arta, obiecte de colectie si antichitati + Procedure pregateste_sectiunea_6 + Return .T. + Endproc && pregateste_sectiunea_6 + + + * 7. In situatia in care ati desfasurat, in perioada de raportare, activitati dintre cele inscrise in lista veti selecta activitatea corespunzatoare + * si veti inscrie valoarea livrarilor/prestarilor, precum si TVA aferenta + Procedure pregateste_sectiunea_7 + Local lcCodCaen, lcCodCaen1, lcCodCaen2, lcCodCaenTemp, lcListaCAEN, llSucces + lcCodCaen1 = Alltrim(Nvl(gofirma.caen, '')) + lcCodCaen2 = Alltrim(Nvl(gofirma.caen394, '')) + lcCodCaen = Iif(!Empty(m.lcCodCaen2), m.lcCodCaen2, m.lcCodCaen1) + + lcCodCaenTemp = ',' + m.lcCodCaen + ',' + lcListaCAEN = ',1071,4520,4730,47761,47762,4932,55101,55102,56103,5630,812,9313,9602,9603,' + llSucces = .T. + If !m.lcCodCaenTemp $ m.lcListaCAEN + Return m.llSucces + Endif + + ccsectii() && vnom_sectii + Select id_sectie, sectie, caen From vnom_sectii Where ',' + Alltrim(Nvl(caen, '')) + ',' $ m.lcListaCAEN Into Cursor cSectii394 Readwrite + If _Tally = 0 + Select cSectii394 + Append Blank + Replace caen With m.lcCodCaen + Endif + + Use In (Select('vnom_sectii')) + * Insert Into crsSectiuneaI7 (caen, TIP) Values (m.lcCodCaen, 'LIVRARI') + * Insert Into crsSectiuneaI7 (caen, TIP) Values (m.lcCodCaen, 'PRESTARI') + Use In (Select('cSectii394')) + + Return .T. + + Endproc && pregateste_sectiunea_7 + + Procedure pregateste_sectiunea_amef + Insert Into crsAMEF (TIP, luna, nramef, nrbonuri, incasari, baza05, TVA05, baza09, TVA09, baza19, TVA19, baza11, TVA11, baza21, TVA21, baza20, TVA20) ; + Select 1 As TIP, Month(dataact) As luna, Cast(pounitate.nramef As N(10)) As nramef, Cast(Nvl(b.nr, 0) As N(10)) As nrbonuri, ; + Round(Sum(baza + TVA), 0) As incasari, Round(Sum(baza05), 0) As baza05, Round(Sum(TVA05), 0) As TVA05, Round(Sum(baza09), 0) As baza09, Round(Sum(TVA09), 0) As TVA09, ; + Round(Sum(baza19), 0) As baza19, Round(Sum(TVA19), 0) As TVA19, Round(Sum(baza11), 0) As baza11, Round(Sum(TVA11), 0) As TVA11, Round(Sum(baza21), 0) As baza21, Round(Sum(TVA21), 0) As TVA21, ; + Round(Sum(baza20), 0) As baza20, Round(Sum(TVA20), 0) As TVA20 ; + From crsJTVA j Left Join crsBonuriAMEF b On Month(j.dataact) = b.luna ; + Where EMISA_PERIOADA = 1 And tipj = 'JV' And Inlist(Alltrim(tipdoc), 'B', 'C') ; + Group By 1, 2, 3, 4 ; + Union ; + Select 2 As TIP, Month(dataact) As luna, Cast(0 As N(10)) As nramef, Cast(Nvl(b.nr, 0) As N(10)) As nrbonuri, ; + Round(Sum(baza + TVA), 0) As incasari, Round(Sum(baza05), 0) As baza05, Round(Sum(TVA05), 0) As TVA05, Round(Sum(baza09), 0) As baza09, Round(Sum(TVA09), 0) As TVA09, ; + Round(Sum(baza19), 0) As baza19, Round(Sum(TVA19), 0) As TVA19, Round(Sum(baza11), 0) As baza11, Round(Sum(TVA11), 0) As TVA11, Round(Sum(baza21), 0) As baza21, Round(Sum(TVA21), 0) As TVA21, ; + Round(Sum(baza20), 0) As baza20, Round(Sum(TVA20), 0) As TVA20 ; + From crsJTVA j Left Join crsBonuriEAMEF b On Month(j.dataact) = b.luna ; + Where EMISA_PERIOADA = 1 And tipj = 'JV' And tipdoc = 'E' ; + Group By 1, 2, 3, 4 ; + Order By 1, 2 + + Return .T. + Endproc && pregateste_sectiunea_amef + +*!* Procedure pregateste_sectiunea_facturi_pers_fizice_10000 +*!* Local llPerioada122016 +*!* llPerioada122016 = Between(m.gnAn * 12 + m.gnLuna, 2016 * 12 + 7, 2016 * 12 + 12) && intre 07/2016 si 12/2016 nu se declara individual facturile < 10.000 lei catre persoanele fizice + +*!* Insert Into crsPersFizice (TIP, NRFACT, baza, baza05, TVA05, baza09, TVA09, baza19, TVA19, baza11, TVA11, baza21, TVA21) ; +*!* Select TIP, Sum(NRFACT) As NRFACT, ; +*!* Sum(baza) As baza, Sum(baza05) As baza05, Sum(TVA05) As TVA05, Sum(baza09) As baza09, Sum(TVA09) As TVA09, ; +*!* Sum(baza19) As baza19, Sum(TVA19) As TVA19, Sum(baza11) As baza11, Sum(TVA11) As TVA11, Sum(baza21) As baza21, Sum(TVA21) As TVA21 ; +*!* From crsJTVA j ; +*!* Where EMISA_PERIOADA = 1 And tipj = 'JV' And Inlist(Alltrim(TIP), 'L', 'LS') And Inlist(tipdoc, 'F', 'M', 'U', 'H') And tippart = 2 And Nvl(TIP_PERSOANA, 0) = 2 And (Abs(baza + TVA) <= 10000) And m.llPerioada122016; +*!* Group By 1 ; +*!* Order By 1 + +*!* Return .T. +*!* Endproc && pregateste_sectiunea_facturi_pers_fizice_10000 + + *=========================================== + Procedure do_genereaza_xdp + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou + + + Local lcAdresa, lcAn, lcCodFiscalF, lcDen, lcLuna, lcSelect, lcTag, lcXDP, llPerioadaDoarRO, lnSeq, llExportSectiuneaI, lnCotaTVAStandard + Local lnTipPart, llTvaNedeductibil + lcSelect = Select() + lcCodFiscalF = Alltrim(gofirma.codfiscalfro) + lcLuna = Padl(Alltrim(Str(gnLuna)), 2, [0]) + lcAn = Alltrim(Str(gnAn)) + lnCotaTVAStandard = Iif(m.gnAn*12+m.gnLuna <= 2025*12+7, 19, 21) + llTvaNedeductibil = (This.oUnitate.tvanedeductibil = 1) + + llPerioadaDoarRO = Between(m.gnAn * 12 + m.gnLuna, 2016 * 12 + 7, 2016 * 12 + 9) && intre 07/2016 si 09/2016 se iau doar partenerii cu RO + + lcDen = XmlSpecialCharacters(RemoveCharacters(Alltrim(gofirma.antet), .T.)) + lcAdresa = XmlSpecialCharacters(RemoveCharacters(Alltrim(gofirma.adresa), .T.)) + + This.TIP = Left(This.oUnitate.TIP, 1) + llExportSectiuneaI = (This.oUnitate.ExportSectiuneaI = 1) + lcXDP = "" + + Create Cursor cCote (cota N(3)) + Insert Into cCote (cota) Values (21) + Insert Into cCote (cota) Values (11) + Insert Into cCote (cota) Values (19) + Insert Into cCote (cota) Values (9) + Insert Into cCote (cota) Values (5) + Insert Into cCote (cota) Values (24) + Insert Into cCote (cota) Values (20) + Insert Into cCote (cota) Values (0) + *) Tip Cod de inregistrare fiscala + *L/A/V/C/AI/N/LS/AS + + * Centralizator achizitii/livrari defalcat pe tip parteneri 1/2/3/4, parteneri, cote, tip livrare/achizitie, tip document + * Ordonez facturile dupa cota de TVA, sa las nrfact = 1 pe linia cu cota cea mai mare + * In perioada 07/2016-09/2016 se raporteaza doar facturile cu RO + If m.llPerioadaDoarRO + lcWhere = [j.atribut_fiscal = 'RO'] + Else + lcWhere = [.T.] + Endif + + Select Cast(0 As N(20)) As rn, j.seq As id_fact, j.tippart, c.cota, j.denumire As denp, j.cod_fiscalfro As cuip, j.TIP, j.TIP_PERSOANA, ; + j.TARA, j.COD_TARA, j.JUDET, j.COD_JUDET, j.LOCALITATE, j.STRADA, j.Bloc, j.SCARA, j.NUMAR, j.APART, ; + Iif(j.tipdoc = 'F', 1, Iif(j.tipdoc = 'O', 2, Iif(j.tipdoc = 'Z', 3, Iif(j.tipdoc = 'R', 4, 5)))) As tip_document, ; + NRFACT, ; + Iif(c.cota = 21, baza21, Iif(c.cota = 11, baza11, Iif(c.cota = 19, baza19, Iif(c.cota = 9, baza09, Iif(c.cota = 5, baza05, Iif(c.cota = 24, baza24, Iif(c.cota = 20, baza20, ; + Iif(c.cota = 0, Iif(m.llTvaNedeductibil Or Inlist(j.tipdoc, 'U', 'H') Or Inlist(j.TIP, 'V', 'C') Or tippart = 2, baza00, 0.00), baza11)))))))) As baza, ; + Iif(c.cota = 21, TVA21, Iif(c.cota = 11, TVA11, Iif(c.cota = 19, TVA19, Iif(c.cota = 9, TVA09, Iif(c.cota = 5, TVA05, Iif(c.cota = 24, TVA24, Iif(c.cota = 20, TVA20, Iif(c.cota = 0, 0, TVA11)))))))) As TVA ; + From crsJTVA j, cCote c ; + Where j.EMISA_PERIOADA = 1 And Alltrim(j.TIP) In ('L', 'A', 'V', 'C', 'AI', 'N', 'LS', 'AS') And Inlist(tipdoc, 'F', 'U', 'H', 'O', 'Z', 'R') And &lcWhere ; + Order By 1, 10 Desc ; + Into Cursor cFacturiTemp Readwrite + + Select cFacturiTemp + Replace All rn With Recno() + + * Sterg toate liniile cu baza = 0 si tva = 0 in afara de prima linie pentru facturile cu valoare totala = 0 + * Facturile care au valoare 0 + Select id_fact, Min(rn) As rn, Sum(baza) As baza, Sum(TVA) As TVA ; + From cFacturiTemp ; + Group By id_fact ; + Having Sum(baza) = 0 And Sum(TVA) = 0 ; + Into Cursor cFacturi0 + + Select F.*, f0.rn As rn0 ; + From cFacturiTemp F Left Join cFacturi0 f0 On F.id_fact = f0.id_fact ; + Into Cursor cFacturitemp2 Readwrite + + Use In (Select('cFacturiTemp')) + Use In (Select('cFacturi0')) + + Delete From cFacturitemp2 Where baza = 0 And TVA = 0 And (rn <> rn0 Or Isnull(rn0)) + + * Pun cota 11 pe facturile cu valoare 0, altfel apar cu 21% sau alta cota + Update cFacturitemp2 Set cota = m.lnCotaTVAStandard Where baza = 0 And TVA = 0 + Update cFacturitemp2 Set cota = 0 Where Inlist(TIP, 'LS', 'AS', 'ASI', 'N', 'V') + * DELETE FROM cFacturiTemp WHERE baza = 0 AND tva = 0 AND RECNO() NOT in (Select rn FROM cFacturi0) && EROARE + + * Actualizez nrfact cu 0 in afara de prima aparitie a fiecarei facturi. S-au multiplicat din cauza join-ului cu cotele de TVA + Select id_fact, Min(rn) As rn ; + From cFacturitemp2 ; + Group By id_fact ; + Into Cursor cFacturi2 + + Update cFacturitemp2 Set NRFACT = 0 Where rn Not In (Select rn From cFacturi2) + Use In (Select('cFacturi2')) + + Update cFacturitemp2 Set LOCALITATE = '' Where LOCALITATE = '' + + Select tippart, Cast(0 As i) As seq, cota, denp, cuip, TIP, tip_document, TIP_PERSOANA, ; + TARA, COD_TARA, JUDET, COD_JUDET, LOCALITATE, STRADA, Bloc, SCARA, NUMAR, APART, ; + Sum(NRFACT) As NRFACT, ; + Round(Sum(baza), 0) As baza, ; + Round(Sum(TVA), 0) As TVA ; + From cFacturitemp2 ; + Group By 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18 ; + Order By tippart, denp, cota, TIP ; + Into Cursor cFacturi Readwrite + + Use In (Select('cFacturiTemp2')) + + *!* Select j.tippart, Cast(0 As i) As seq, c.cota, j.denumire As denp, j.cod_fiscalfro As cuip, j.TIP, ; + *!* IIF(j.tipdoc = 'F', 1, Iif(j.tipdoc = 'O', 2, Iif(j.tipdoc = 'Z', 3, 1))) As tip_document, ; + *!* SUM(NRFACT) As NRFACT, ; + *!* SUM(Iif(c.cota = 21, baza21, Iif(c.cota = 20, baza20, Iif(c.cota = 19, baza19, Iif(c.cota = 9, baza09, Iif(c.cota = 5, baza05, Iif(c.cota = 0, baza00, baza20))))))) As baza, ; + *!* SUM(Iif(c.cota = 21, TVA21, Iif(c.cota = 20, TVA20, Iif(c.cota = 19, TVA19, Iif(c.cota = 9, TVA09, Iif(c.cota = 5, TVA05, Iif(c.cota = 0, 0, TVA20))))))) As TVA ; + *!* FROM crsJTVA j, cCote c ; + *!* WHERE Alltrim(j.TIP) In ('L','A','V','C','AI','N','LS','AS') ; + *!* GROUP By 1,2,3,4,5,6,7 ; + *!* ORDER By j.tippart, j.denumire, c.cota, j.TIP ; + *!* INTO Cursor cFacturi Readwrite + + lnSeq = 1 + lnTipPart = 0 + Select cFacturi + Scan + If lnTipPart <> tippart + lnSeq = 1 + Else + lnSeq = lnSeq + 1 + Endif + lnTipPart = cFacturi.tippart + Replace seq With m.lnSeq In cFacturi + Endscan + + lcCaenRevizie = NVL(goFirma.caen_revizie, '2') + lnCaenRevizie = INT(VAL(m.lcCaenRevizie)) + lcCaenRev2 = IIF(m.lnCaenRevizie = 2, ALLTRIM(LOWER(goFirma.caen)), '') + lcCaenRev3 = IIF(m.lnCaenRevizie > 2, ALLTRIM(LOWER(goFirma.caen)), '') + + Text To lcXDP Additive Textmerge Noshow Pretext 1 + + + + + + + + + +
+ + <><><><><> + <> + + + <><><><><> + <>0<><> + + + + Endtext + + + * Sectiunea Facturi + Set Textmerge On To Memvar lcXDP Additive Noshow +\ + lnTipPart = 0 + lnNrFacturi = 0 + Select cFacturi + Scan + * Exceptie : Pentru perioada 01.07.2016 - 31.12.2016 in cazul selectarii tip L pentru facturi emise catre persoane fizice, + * cu valoare individuala/persoana mai mica sau egala cu 10.000 lei + * Le-am sters la inceput + *!* If cFacturi.tippart = 2 AND cFacturi.tip_persoana = 2 and cFacturi.TIP = 'L' And ABS(cFacturi.baza + cFacturi.TVA) <= 10000 AND m.llPerioada122016 && persoane fizice + *!* Loop + *!* Endif + lnNrFacturi = lnNrFacturi + 1 + + If m.lnTipPart <> cFacturi.tippart + If m.lnTipPart <> 0 +\ + Endif + + Do Case + Case tippart = 1 +\ + Case tippart = 2 +\ + Case tippart = 3 +\ + Case tippart = 4 +\ + Endcase + +\ +\<> + Endif +\ +\ +\ <> +\ <> +\ <> +\ <> +\ <> +\ <> +\ <> +\ <> + If cFacturi.tippart = 2 && persoane neinregistrate in scopuri TVA + If ALLTRIM(cFacturi.TIP) = 'N' && persoane neinregistrate in scopuri TVA +\ <> + ENDIF +\ +\ <> +\ <> +\ <> +\ <> +\ <> +\ <> +\ <> +\ + Endif +\ + If cFacturi.tippart = 2 OR INLIST(ALLTRIM(cFacturi.tip), 'V', 'C') && persoane neinregistrate in scopuri TVA sau taxare inversa, completez produsele - nu am produse :(, doar nrfacturi, baza si tva +\ +\ +\ 1 +\ +\ <> +\ <> +\ <> +\ + ENDIF && tippart = 2 OR INLIST(ALLTRIM(tip), 'V', 'C') +\ + + lnTipPart = cFacturi.tippart + ENDSCAN && cFacturi + IF m.lnNrFacturi > 0 +\ + ENDIF + * Sectiunea AMEF +\ +\ + + Select crsAMEF + Scan +\ +\ <> +\ <> +IF tip <> 2 +\ <> +\ <> +ENDIF +\ <> +\ 5<><> +\ 9<><> +\ 11<><> +\ 19<><> +\ 20<><> +\ 21<><> +\ + Endscan && crsAMEF + +\ + +IF m.llExportSectiuneaI + * Sectiunea I1 facturi simplificate si bonuri fiscale cu CUI +\ +\ +\ + Select crsSectiuneaI + Scan + lcTag = Iif(punct = '1.1', 'L', Iif(punct = '1.2', 'LI', Iif(punct = '1.3', 'A', Iif(punct = '1.4', 'AI', Iif(punct = '1.5', 'AB', 'L'))))) + Alltrim(Str(proctva)) && L21 +\<<'<' + m.lcTag + '>'>><><>'>> + Endscan +\ +\ + + * Sectiunea I2 Alte informatii +\ +\ + Select crsFacturiAlocate + Scan +\ <><><><> + Endscan +\ +\ + +\ <> + Select crsFacturiEmise + Scan +\ <><><><> + Endscan + +\ +\ +\ +\ + Sele crsFacturiEmiseTip + Scan +\ +\ <> +\ <> +\ <> + If ntip = 3 && autofacturare + Select crsAutoFacturi + Locate For Alltrim(crsAutoFacturi.seria) = Alltrim(crsFacturiEmiseTip.seria) And crsAutoFacturi.nr = crsFacturiEmiseTip.nr + If Found() +\ +\ <><> +\ <><> +\ <><> +\ <><> +\ <><> +\ <><> +\ <><> +\ + Endif && FOUND + Endif +\ + Endscan && crsFacturiEmiseTip + +\ + +\ +\ +\ <> + + Select crsFacturiTerti + SCAN FOR punct = '2.3' +\ <><><><><><> + ENDSCAN +\ + +\ +\ +\ <> + Select crsFacturiTerti + SCAN FOR punct = '2.4' +\ <><><><><><> + ENDSCAN +\ + +\ + + * Sectiunea 4 + Select crsSectiuneaI4 + Locate For punct = '4.1' + If Found() +\ <><><><><><><> + Endif && FOUND + + * Sectiunea 5 +\ + Select crsSectiuneaI4 + Locate For punct = '5.1' + If Found() +\ <><><><><><><> + Endif + Locate For punct = '5.2' + If Found() +\ <><><><><><><> + Endif + Locate For punct = '5.3' + If Found() +\ <><><><><><><> + Endif + + * Nu am adunat date despre sectiunea 6 si 7 + If .F. +\ +\ +\ +\ +\ 1 +\ 4520 +\ 1001 +\ +\ +\ 201 +\ +\ +\ +\ 2 +\ 4520 +\ 1000 +\ +\ 90 +\ +\ +\ +\ + Endif && .F. + +\ + +ENDIF && llExportSectiuneaI + + * Reprezentant fiscal +\ +\ +\ <> +\ <> +\ <> +\ <> +\ <> +\ <> +\ +\ +\ +\<> +\<> +\<> +\<> +\<> +\<> +\<> +\<> +\0 +\<> +\ + +\ + +\ + +\ +\ +\ +\ + Set Textmerge To + + Wait Window "Se exporta datele in format PDF" Nowait + Strtofile(lcXDP, tcFisierXDP) + If File(tcFisierXDP) + *** copiez fisierul pdf inteligent original in directorul de export + If File(m.tcFisierPDFOriginal) + Copy File (tcFisierPDFOriginal) To (tcFisierPDFNou) + Else + open_default_app("http://static.anaf.ro/static/10/Anaf/Declaratii_R/394.html") + amessagebox('Nu exista fisierul ' + m.lcFisierPDFOriginal + CRLF + ; + 'Copiati pdf-ul inteligent D394 de pe website-ul ANAF in directorul ' + Justpath(m.lcFisierPDFOriginal) + CRLF + ; + 'cu numele ' + Justfname(m.lcFisierPDFOriginal) + '.', 0 + 48, _Screen.Caption) + Endif + Endif + + Select (lcSelect) + + Endproc && do_genereaza_xdp + + *========================================== + Procedure UpdatePDF + Lparameters tcPDFFile + *** tcPDFFile: calea completa a fisierului pdf D:\CONTAFIN\COMUNCONTAFIN\d390.pdf + + Local lcFile, lcPath, llOpen + lcFile = Justfname(m.tcPDFFile) + lcPath = Addbs(Justpath(m.tcPDFFile)) + llOpen = .F. + + Return DownloadSupportFile(m.lcFile, m.lcPath, m.llOpen) && proceduri_comune.prg + + Endproc && UpdatePDF + + Procedure do_executa + + *** EXPORT D394 + Local lcAppPath, lcCaleFisier, lcCaleFisierPDF, lcComunPath, lcFileName, lcFileNamePDF + Local lcFisierPDFNou, lcFisierPDFOriginal, lcFisierTXT, lcFisierXDP, lcFisierXLS, lcMesaj + Local lcNumeFisier, lcRun, lcTempPath, llSucces, lnPos, loEx, lcCaenRevizie, lnCaenRevizie + lcAppPath = Addbs(gcAppPath) + lcComunPath = lcAppPath + lnPos = Rat("\", Addbs(m.lcAppPath), 2) + If lnPos > 0 + lcComunPath = Left(m.lcAppPath, lnPos) + Endif + lcComunPath = lcComunPath + Iif(gcAppName = "CONCONT", "COMUNCONTAFIN\", "COMUNROA\") && d:\contafin\comuncontafin\ + + *** Creez structura director export (caletemp\D394\aaaa_ll\firma\ + llSucces = .F. + Try + lcTempPath = m.gcBasePath + lcCaleFisier = m.lcTempPath + "D394\" && c:\temp\D394\ + + If !Directory(m.lcCaleFisier) + Md (m.lcCaleFisier) + Endif + + lcCaleFisier = m.lcCaleFisier + Alltrim(Str(gnAn)) + "_" + Padl(Alltrim(Str(gnLuna)), 2, "0") + "\"&& c:\temp\D394\2011_01\ + If !Directory(m.lcCaleFisier) + Md (m.lcCaleFisier) + Endif + + lcCaleFisier = m.lcCaleFisier + Strtran(gcFirma, [ ], [_]) + "\" && c:\temp\D390\2011_01\firma\ + If !Directory(m.lcCaleFisier) + Md (m.lcCaleFisier) + Endif + + lcCaleFisierPDF = m.lcCaleFisier && c:\temp\D394\2011_01\firma\ + If !Directory(m.lcCaleFisierPDF) + Md (m.lcCaleFisierPDF) + Endif + This.CaleFisierPDF = m.lcCaleFisierPDF + + llSucces = .T. + Catch To loEx + lcMesaj = "Creare director " + lcCaleFisier + " " + loEx.Message + + amessagebox(lcMesaj, 0 + 48) + Endtry + If !m.llSucces + Return + Endif + + If Type('gofirma.codfiscalfro') = 'U' + AddProperty(gofirma, 'codfiscalfro', Strtran(Alltrim(Nvl(gofirma.cod_fiscal, '')), 'RO', '')) + Endif + + lcCaenRevizie = NVL(goFirma.caen_revizie, '2') + lnCaenRevizie = INT(VAL(m.lcCaenRevizie)) + + lcNumeFisier = "d394_" + gofirma.codfiscalfro + "_" + Alltrim(Str(gnAn)) + "_" + Padl(gnLuna, 2, "0") + Do Case + Case m.gnAn * 12 + m.gnLuna >= 2025 * 12 + 8 + lcFisierPDFOriginal = lcComunPath + "d394_202508.pdf" + + Otherwise + lcFisierPDFOriginal = lcComunPath + "d394_202508.pdf" + Endcase + + This.UpdatePDF(m.lcFisierPDFOriginal) && actualizez pdf de la romfast + + lcFileName = m.lcCaleFisier + lcNumeFisier + + lcFileNamePDF = m.lcCaleFisierPDF + lcNumeFisier + lcFisierPDFNou = m.lcFileNamePDF + [.pdf] + lcFisierXDP = m.lcFileNamePDF + [.xdp] + + lcFisierTXT = m.lcFileName + [.txt] + lcFisierXLS = m.lcFileName + [.xls] + + If File(lcFisierTXT) + Delete File (lcFisierTXT) + Endif + If File(lcFisierPDFNou) + Delete File (lcFisierPDFNou) + Endif + If File(lcFisierXDP) + Delete File (lcFisierXDP) + Endif + + This.do_genereaza_xdp(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + This.cFisierPDF = '' + If File(lcFisierXDP) And File(m.lcFisierPDFNou) + This.cFisierPDF = m.lcFisierPDFNou + open_default_app(lcFisierXDP) + Endif + + *** deschid explorer in directorul de export + lcRun = [RUN /N7 explorer.exe "] + m.lcCaleFisier + ["] + &lcRun + Endproc && do_executa + + Procedure do_verifica_pdf + Local loProcess As "api_apprun" Of "process.vcx" + Local lcAppPath, lcValidatorFile, lcComunPath, lcFisierPDF, lnPos + lcAppPath = Addbs(gcAppPath) + lcComunPath = m.lcAppPath + lnPos = Rat("\", Addbs(m.lcAppPath), 2) + If m.lnPos > 0 + lcComunPath = Left(m.lcAppPath, m.lnPos) + Endif + lcComunPath = m.lcComunPath + Iif(gcAppName = "CONCONT", "COMUNCONTAFIN\", "COMUNROA\") && d:\contafin\comuncontafin\ + + lcValidatorFile = m.lcComunPath + [dist\DUKIntegrator.jar] + + amessagebox('Validati PDF si salvati-l. Apoi inchideti acest mesaj. Dupa ce porneste DukIntegrator, apasati validare in validator pentru a verifica fisierul PDF', 0 + 48, _Screen.Caption) + + lcFisierPDF = This.cFisierPDF + If !File(m.lcFisierPDF) + amessagebox('Nu exista fisierul ' + m.lcFisierPDF , 0 + 48, _Screen.Caption) + Endif + + loProcess = Newobject("api_apprun", "process.vcx") + loProcess.icLaunchDir = Justpath(m.lcValidatorFile) + loProcess.iccommandline = [java -jar "DUKIntegrator.jar" "] + m.lcFisierPDF + ["] + + *!* loProcess.launchappandwait() + m.loProcess.launchapp() + Endproc && do_verifica_pdf + +Enddefine && D394_2025 +************************************************************************* + +Define Class D394_2016 As Custom + + Total = 0 + rectificativa = 0 + TIP = 'L' + Perioada = 1 + NumarCoduriFiscale = 0 + + oForm = Null && formular D384 + oUnitate = Null + + CaleFisierPDF = '' && director fisier pdf + + + * Afiseaza formularul 394 fara facturi, pentru alegerea tipurilor de documente, optiuni etc. + * Din formular se vor selecta facturile in functie de optiuni + Procedure List + + Local loDecl As "frm_decl394_2016" + Local lcSelect, lcTip, llSilent, llSucces, lnNumarLuni, lcValoare + llSilent = .F. && m.tlSilent + + lcTip = Upper(Nvl(citeste_optiune('D394_TIP'), 'LUNAR')) + lcTip = Iif(!Inlist(m.lcTip, 'LUNAR', 'TRIMESTRIAL', 'SEMESTRIAL', 'ANUAL'), 'LUNAR', m.lcTip) + + lcSelect = Select() + + If Type('gofirma.codfiscalfro') = 'U' + AddProperty(gofirma, 'codfiscalfro', Strtran(Alltrim(gofirma.cod_fiscal), 'RO', '')) + Endif + + Private pounitate + pounitate = Createobject("empty") + AddProperty(pounitate, "tva_incasare", goCalendar.tva_incasare) + + AddProperty(pounitate, "an", m.gnAn) + AddProperty(pounitate, "luna1", m.gnLuna) + AddProperty(pounitate, "luna2", m.gnLuna) + + AddProperty(pounitate, "tip", m.lcTip) + AddProperty(pounitate, "luniextra", 0) + AddProperty(pounitate, "tvanedeductibil", 0) + AddProperty(pounitate, "codi", Strtran(Strtran(Alltrim(Upper(Nvl(gofirma.cod_fiscal, ''))), 'RO', ''), 'R', '')) + AddProperty(pounitate, "deni", Nvl(Alltrim(gofirma.firma), '')) + AddProperty(pounitate, "adr", Nvl(Alltrim(gofirma.adresa), '')) + poUnitate.adr = PADR(poUnitate.adr, 150, ' ') + AddProperty(pounitate, "tel", Nvl(Alltrim(gofirma.telefon), '')) + AddProperty(pounitate, "fax", Nvl(Alltrim(gofirma.fax), '')) + AddProperty(pounitate, "email", Nvl(Alltrim(gofirma.email), '')) + + AddProperty(pounitate, "taraR", "") + AddProperty(pounitate, "codiR", "") + AddProperty(pounitate, "deniR", "") + AddProperty(pounitate, "adrR", "") + AddProperty(pounitate, "telR", "") + AddProperty(pounitate, "faxR", "") + AddProperty(pounitate, "emailR", "") + + AddProperty(pounitate, "numeD", "") + AddProperty(pounitate, "functieD", "") + + AddProperty(pounitate, "operatiuni", 1) + AddProperty(pounitate, "tvaincasare", goCalendar.tva_incasare) + AddProperty(pounitate, "nr_facturi_emise", 0) + AddProperty(pounitate, "nr_facturi_beneficiari", 0) + AddProperty(pounitate, "nr_facturi_terti", 0) + + AddProperty(pounitate, "lPerioadaDoarRO", Between(m.gnAn * 12 + m.gnLuna, 2016 * 12 + 7, 2016 * 12 + 9)) && intre 07/2016 si 09/2016 se declara doar partenerii cu RO + AddProperty(pounitate, "ExportSectiuneaI", 1) && intre 07/2016 si 09/2016 nu se completeaza sectiunea I + AddProperty(pounitate, "PersoaneAfiliate", 0) && 0 = fara persoane afiliate, 1 = cu persoane afiliate + + AddProperty(pounitate, "DenRepr", Alltrim(citeste_optiune('D394_DEN_REPREZ'))) + AddProperty(pounitate, "AdrRepr", Alltrim(citeste_optiune('D394_ADR_REPREZ'))) + poUnitate.AdrRepr = PADR(poUnitate.AdrRepr, 150, ' ') + AddProperty(pounitate, "CuiRepr", Alltrim(citeste_optiune('D394_CUI_REPREZ'))) + AddProperty(pounitate, "TipRepr", Alltrim(citeste_optiune('D394_TIP_REPREZ'))) + AddProperty(pounitate, "TelRepr", Alltrim(citeste_optiune('D394_TEL_REPREZ'))) + AddProperty(pounitate, "FaxRepr", Alltrim(citeste_optiune('D394_FAX_REPREZ'))) + AddProperty(pounitate, "EmailRepr", Alltrim(citeste_optiune('D394_EMAIL_REPREZ'))) + + AddProperty(pounitate, "DenIntocmit", Alltrim(citeste_optiune('D394_DEN_INTOCMIT'))) + AddProperty(pounitate, "CuiIntocmit", Alltrim(citeste_optiune('D394_CUI_INTOCMIT'))) + AddProperty(pounitate, "PJIntocmit", Int(Val(Nvl(citeste_optiune('D394_PJ_INTOCMIT'), '1'))) ) + AddProperty(pounitate, "CalitateIntocmit", Alltrim(citeste_optiune('D394_CALITATE_INTOCMIT'))) + poUnitate.CalitateIntocmit = PADR(poUnitate.CalitateIntocmit, 100, ' ') + AddProperty(pounitate, "Calitate2Intocmit", Alltrim(citeste_optiune('D394_CALITATE2_INTOCMIT'))) + poUnitate.Calitate2Intocmit = PADR(poUnitate.Calitate2Intocmit, 100, ' ') + AddProperty(pounitate, "FunctieIntocmit", Alltrim(citeste_optiune('D394_FUNCTIE_INTOCMIT'))) + poUnitate.FunctieIntocmit= PADR(poUnitate.FunctieIntocmit, 100, ' ') + + AddProperty(pounitate, "NrAMEF", Int(Val(Nvl(citeste_optiune('D394_NR_AMEF'), '1')))) + AddProperty(pounitate, "OptiuneANAF", Int(Val(Nvl(citeste_optiune('D394_OPTIUNE_ANAF'), '0')))) && 1 = Se da acordul pentru consultarea D394 de catre furnizori/clienti + + AddProperty(pounitate, "cTextFacturiEmiseAlocate", "") && facturi emise care nu sunt in plaja de facturi alocate + + This.oUnitate = pounitate + + + Create Cursor crsFdocTip (id_fdoc N(10) null, fel_document c(100) null, tip_doc c(10) Null, bifa N(1)) + + *!* llSucces = update_fdoc([NVL(tip_doc,'!') <> '!'], 'crsFdocTipTemp') && doar fel document cu tip + *!* AddProperty(pounitate, "tipdoc_factura", cursor2lista("crsFDocTipTemp", "id_fdoc", ",", [tip_doc = 'F'])) && lista tip documente = factura + *!* AddProperty(pounitate, "tipdoc_bonfiscal_cu_cui", cursor2lista("crsFDocTipTemp", "id_fdoc", ",", [tip_doc = 'C'])) && lista tip documente = bon fiscal cu factura + *!* AddProperty(pounitate, "tipdoc_bonfiscal_fara_cui", cursor2lista("crsFDocTipTemp", "id_fdoc", ",", [tip_doc = 'B'])) && lista tip documente = bon fiscal fara factura + *!* AddProperty(pounitate, "tipdoc_factura_simplificata", cursor2lista("crsFDocTipTemp", "id_fdoc", ",", [tip_doc = 'M'])) && lista tip documente = factura simplificata + *!* AddProperty(pounitate, "tipdoc_exceptate_amef", cursor2lista("crsFDocTipTemp", "id_fdoc", ",", [tip_doc = 'E'])) && lista tip documente = exceptate de la AMEF (bilete) + *!* AddProperty(pounitate, "tipdoc_borderou_achizitii", cursor2lista("crsFDocTipTemp", "id_fdoc", ",", [tip_doc = 'O'])) && lista tip documente = borderou achizitii + *!* AddProperty(pounitate, "tipdoc_carnet_comercializare", cursor2lista("crsFDocTipTemp", "id_fdoc", ",", [tip_doc = 'Z'])) && lista tip documente = carnet comercialziare + *!* AddProperty(pounitate, "tipdoc_achizitii_second_hand", cursor2lista("crsFDocTipTemp", "id_fdoc", ",", [tip_doc = 'H'])) && lista tip documente = achizitii second hand + *!* AddProperty(pounitate, "tipdoc_servicii_turism", cursor2lista("crsFDocTipTemp", "id_fdoc", ",", [tip_doc = 'U'])) && lista tip documente = servicii turism + + + llSucces = update_serii(.F., [isautofactura = 1 or isbeneficiari = 1 or isterti = 1 or isfurnizori = 1]) && crsSerii - seriile marcate autofactura/emise de beneficiari/emise de terti/emise in numele furnizorilor! + If !m.llSucces + Create Cursor crsSerii (seria c(20), isautofactura N(1), isbeneficiari N(1), isterti N(1), isfurnizori N(1)) + Endif + + Create Cursor crsSectiuneaI (punct c(4) Null, baza N(20) Null, TVA N(20) Null, proctva N(2) Null) + Create Cursor crsSectiuneaI4 (punct c(4) Null, TVA24 N(20) Null, TVA20 N(20) Null, TVA19 N(20) Null, TVA09 N(20) Null, TVA05 N(20) Null) + Create Cursor crsSectiuneaI6 (punct c(4) Null, incasari N(20) Null, costuri N(20) Null, marja N(20) Null, TVA N(20) Null) && agentii turism si second hand + Create Cursor crsSectiuneaI7 (caen c(4) Null, TIP c(10), baza N(20), TVA24 N(20) Null, TVA20 N(20) Null, TVA19 N(20) Null, TVA09 N(20) Null, TVA05 N(20) Null) + + Create Cursor crsFacturiAlocate (seria c(20) Null, nr1 N(20), nr2 N(20)) + Create Cursor crsFacturiEmise (seria c(20) Null, nr1 N(20), nr2 N(20)) + Create Cursor crsFacturiEmiseTip (TIP c(20), ntip N(1), seria c(20) Null, nr N(20)) + Create Cursor crsAutoFacturi (seria c(20) Null, nr N(20), baza24 N(16, 4) Null, baza20 N(16, 4) Null, baza19 N(16, 4) Null, baza09 N(16, 4) Null, baza05 N(16, 4) Null, ; + TVA24 N(16, 4) Null, TVA20 N(16, 4) Null, TVA19 N(16, 4) Null, TVA09 N(16, 4) Null, TVA05 N(16, 4) Null) + + Create Cursor crsFacturiTerti (punct c(4) Null, seria c(20) Null, nr1 N(20), nr2 N(20), denumire c(100) Null, cod_fiscal c(20) Null) + Create Cursor crsSeriiFacturi (TIP c(20), seria c(20), descriere c(100)) + Insert Into crsSeriiFacturi (TIP, seria, descriere) ; + Select 'AUTOFACTURA' As TIP, serie As seria, 'serie autofacturi' As descriere ; + From crsSerii Where isautofactura = 1 ; + Union ; + Select 'BENEFICIARI' As TIP, serie As seria, 'serie facturi emise de beneficiari in numele persoanei impozabile' As descriere ; + From crsSerii Where isbeneficiari = 1 ; + Union ; + Select 'TERTI' As TIP, serie As seria, 'serie facturi emise de terti in numele persoanei impozabile' As descriere ; + From crsSerii Where isterti = 1 ; + Union ; + Select 'FURNIZORI' As TIP, serie As seria, 'serie facturi emise de pers impozabila in calitate de beneficiar, in numele furnizorilor' As descriere ; + From crsSerii Where isfurnizori = 1 + + Go Top In crsSeriiFacturi + AddProperty(pounitate, "serie_autofacturare", cursor2lista("crsSerii", "serie", ",", [isautofactura=1])) + AddProperty(pounitate, "serie_facturi_beneficiari", cursor2lista("crsSerii", "serie", ",", [isbeneficiari=1])) + AddProperty(pounitate, "serie_facturi_terti", cursor2lista("crsSerii", "serie", ",", [isterti=1])) + AddProperty(pounitate, "serie_facturi_furnizori", cursor2lista("crsSerii", "serie", ",", [isfurnizori=1])) + + close_serii() + + Create Cursor crsAMEF (TIP N(1), luna N(2), nramef N(10), nrbonuri N(10), incasari N(16, 4), ; + baza24 N(16, 4) Null, baza20 N(16, 4) Null, baza19 N(16, 4) Null, baza09 N(16, 4) Null, baza05 N(16, 4) Null, ; + TVA24 N(16, 4) Null, TVA20 N(16, 4) Null, TVA19 N(16, 4) Null, TVA09 N(16, 4) Null, TVA05 N(16, 4) Null) + + Create Cursor crsPersFizice (TIP c(2), NRFACT N(10), baza N(16, 4) Null, ; + baza24 N(16, 4) Null, baza20 N(16, 4) Null, baza19 N(16, 4) Null, baza09 N(16, 4) Null, baza05 N(16, 4) Null, ; + TVA24 N(16, 4) Null, TVA20 N(16, 4) Null, TVA19 N(16, 4) Null, TVA09 N(16, 4) Null, TVA05 N(16, 4) Null) + + Create Cursor crsJTVA(seq N(20), tipj c(2), tippart N(1), tipdoc c(2) Null, TIP c(2), dataact D Null, dataireg D Null, serie_act c(10) Null, nract N(20) Null, id_fdoc N(12) Null, fel_document c(30) Null, id_sucursala N(7) Null, sucursala c(100) Null, ; + iscif N(1) Null, cifvalid N(1) Null, id_part N(20) Null, cod_fiscal c(30) Null, cod_fiscalfro c(30) Null, atribut_fiscal c(2) Null, denumire c(100) Null, TIP_PERSOANA N(1) Null, AFILIAT N(5) Null, CODTARA V(5) NULL, ; + TARA c(100) Null, COD_TARA c(10) Null, JUDET c(100) Null, COD_JUDET c(10) Null, LOCALITATE c(100) Null, STRADA c(100) Null, NUMAR c(20) Null, Bloc c(20) Null, SCARA c(50) Null, APART c(100) Null, ; + baza N(16, 4) Null, TVA N(16, 4) Null, tibaza N(16, 4) Null, titva N(16, 4) Null, ; + baza24 N(16, 4) Null, baza20 N(16, 4) Null, baza19 N(16, 4) Null, baza09 N(16, 4) Null, baza05 N(16, 4) Null, baza00 N(16, 4) Null, ; + TVA24 N(16, 4) Null, TVA20 N(16, 4) Null, TVA19 N(16, 4) Null, TVA09 N(16, 4) Null, TVA05 N(16, 4) Null, ; + tibaza24 N(16, 4) Null, tibaza20 N(16, 4) Null, tibaza19 N(16, 4) Null, tibaza09 N(16, 4) Null, tibaza05 N(16, 4) Null, ; + titva24 N(16, 4) Null, titva20 N(16, 4) Null, titva19 N(16, 4) Null, titva09 N(16, 4) Null, titva05 N(16, 4) Null, ; + tva_incasare N(1), FACT_TVA_INCASARE N(1), NRFACT N(1), EMISA_PERIOADA N(1), ; + ro24t N(16, 4) Null, ro20t N(16, 4) Null, ro19t N(16, 4) Null, RO09T N(16, 4) Null, ro05t N(16, 4) Null) + + loDecl = Createobject("frm_decl394_2016") + *DO FORM frm_decl394_2016 NAME loDecl NOSHOW + loDecl.oParent = This + This.oForm = loDecl + loDecl.Show(1) + + scrie_optiune('D394_DEN_REPREZ', pounitate.DenRepr, 'D394 denumire reprezentant') + scrie_optiune('D394_ADR_REPREZ', pounitate.AdrRepr, 'D394 adresa reprezentant') + scrie_optiune('D394_CUI_REPREZ', pounitate.CUIRepr, 'D394 CUI reprezentant') + scrie_optiune('D394_TIP_REPREZ', pounitate.TipRepr, 'D394 tip reprezentant') + scrie_optiune('D394_TEL_REPREZ', pounitate.TelRepr, 'D394 telefon reprezentant') + scrie_optiune('D394_FAX_REPREZ', pounitate.FaxRepr, 'D394 fax reprezentant') + scrie_optiune('D394_EMAIL_REPREZ', pounitate.EmailRepr, 'D394 email reprezentant') + scrie_optiune('D394_DEN_INTOCMIT', pounitate.DenIntocmit, 'D394 denumire intocmit') + scrie_optiune('D394_CUI_INTOCMIT', pounitate.CUIIntocmit, 'D394 CUI intocmit') + scrie_optiune('D394_PJ_INTOCMIT', Alltrim(Str(pounitate.PJIntocmit)), 'D394 persoana juridica intocmit') + scrie_optiune('D394_CALITATE_INTOCMIT', pounitate.CalitateIntocmit, 'D394 calitate intocmit') + scrie_optiune('D394_CALITATE2_INTOCMIT', pounitate.Calitate2Intocmit, 'D394 alta calitate intocmit') + scrie_optiune('D394_FUNCTIE_INTOCMIT', pounitate.FunctieIntocmit, 'D394 functie intocmit') + scrie_optiune('D394_TIP', pounitate.TIP, 'Tip declaratie 394: LUNAR/TRIMESTRIAL/SEMESTRIAL/ANUAL') + scrie_optiune('D394_NR_AMEF', Alltrim(Str(pounitate.nramef)), 'D394 nr AMEF') + scrie_optiune('D394_OPTIUNE_ANAF', Alltrim(Str(pounitate.OptiuneANAF)), 'D394 optiunea ANAF; 1=DA/0=NU') + + close_fdoc() + Endproc && List + + *************************************************** + * Citeste JV/JC + * Configureaza tipurile de documente (facturi, facturi simplificate, bonuri fiscale etc.) + *************************************************** + Procedure do_citeste_date + Local llSucces, lcSelect, loUnitate + Local lcTip, lnAn, lnLuna1, lnLuna2, lnNumarLuni, lnPerioada + lcSelect = Select() + loUnitate = This.oUnitate + + * Luna de inceput a perioadei + * 1 = gnLuna + * 3 = 1,4,7,10 + * 6 = 1,7 + * 12 = 1 + lnAn = loUnitate.an + lcTip = loUnitate.TIP + This.TIP = Left(m.lcTip, 1) + lnNumarLuni = Iif(m.lcTip = "TRIMESTRIAL", 3, Iif(m.lcTip = "SEMESTRIAL", 6, Iif(m.lcTip = "ANUAL", 12, 1))) + + lnPerioada = Ceil(m.gnLuna / m.lnNumarLuni) + lnLuna1 = (lnPerioada - 1) * lnNumarLuni + 1 + lnLuna2 = lnPerioada * lnNumarLuni + + loUnitate.luna1 = m.lnLuna1 + loUnitate.luna2 = m.lnLuna2 + + llPerioadaDoarRO = Between(m.gnAn * 12 + m.gnLuna, 2016 * 12 + 7, 2016 * 12 + 9) && intre 07/2016 si 09/2016 se iau doar partenerii cu RO + + * Citeste JV/JC + Wait Window 'Se citesc date din Registrele TVA...' Nowait + llSucces = This.citeste_date_jtva() + + If m.llSucces And Used('crsJtva') + Wait Window 'Se proceseaza datele din Registrele TVA...' Nowait + llSucces = This.configureaza_date_jtva() + Else + llSucces = .F. + Endif + + If m.llSucces + Wait Window 'Se pregatesc sectiunile 1 si 2...' Nowait + llSucces = This.pregateste_sectiunea_1_2() + Endif + + If m.llSucces + Wait Window 'Se pregatesc sectiunile 4 si 5...' Nowait + llSucces = This.pregateste_sectiunea_4_5() + Endif + + If m.llSucces + Wait Window 'Se pregateste sectiunea 6...' Nowait + llSucces = This.pregateste_sectiunea_6() + Endif + + If m.llSucces + Wait Window 'Se pregateste sectiunea 7...' Nowait + llSucces = This.pregateste_sectiunea_7() + Endif + + If m.llSucces + Wait Window 'Se pregateste sectiunea AMEF...' Nowait + llSucces = This.pregateste_sectiunea_amef() + If loUnitate.lPerioadaDoarRO + Delete From crsAMEF && nu se declara bonurile fiscale in perioada 07-09/2016 + Endif + Endif + + If m.llSucces + Wait Window 'Se pregateste sectiunea persoane fizice...' Nowait + llSucces = This.pregateste_sectiunea_facturi_pers_fizice_10000() + If loUnitate.lPerioadaDoarRO + Delete From crsPersFizice && nu se declara bonurile fiscale in perioada 07-09/2016 + Endif + Endif + + Go Top In crsJTVA + + Select (m.lcSelect) + Return m.llSucces + Endproc + + * Citeste JV/JC + Procedure citeste_date_jtva + + Private pnIdSetAnulat && set facturi anulate + pnIdSetAnulat = Iif(Type('gnIdSetAnulat') = 'N', m.gnIdSetAnulat, 99996) + + Local lcConditieAct, lcConditieLuna, lcCursor, lcSql, lnAn, lnLuna1, lnLuna2, lnSucces, loUnitate, llPerioadaDoarRO + loUnitate = This.oUnitate + lnAn = loUnitate.an + lnLuna1 = loUnitate.luna1 + lnLuna2 = loUnitate.luna2 + llPerioadaDoarRO = loUnitate.lPerioadaDoarRO + + lcConditieLuna = [ (AN = ] + Alltrim(Str(m.lnAn)) + [ and (luna BETWEEN ] + Alltrim(Str(m.lnLuna1)) + [ and ] + Alltrim(Str(m.lnLuna2)) + [ ))] + + *** iau doar facturile din luna emiterii + lcConditieAct = [ and (extract(year from dataact)*12+extract(month from dataact) = an*12+luna)] + + * Iau toate inregistrarile din Registrele de TVA, INCLUSIV FATURILE EMISE ANTERIOR PERIOADEI DE DECLARARE, pentru calcul sectiune 4 si 5 (TVA EXIGIBIL) + Text To lcSql Textmerge Noshow +SELECT 'JV' AS TIPJ, 0 AS TIPPART, TIP_DOC as tipdoc, 'L ' as tip, dataact, dataireg, serie_act, nract, id_fdoc, fel_document, id_sucursala, sucursala, + 0 as ISCIF, 0 AS CIFVALID, + J.ID_PART, COD_FISCAL, REGEXP_REPLACE(COD_FISCAL, '[^[:digit:]]', '') AS COD_FISCALFRO, SUBSTR(TRIM(UPPER(COD_FISCAL)),1,2) AS ATRIBUT_FISCAL, DENUMIRE, TIP_PERSOANA, AFILIAT, CODTARA, + A.TARA, A.COD_TARA, A.JUDET, A.COD_JUDET, A.LOCALITATE, A.STRADA, A.BLOC, A.SCARA, A.NUMAR, A.APART, + RO24B + RO20B + RO19B + RO9B + RO5B + RO24NB + RO20NB + RO19NB + RO9NB + RO5NB AS BAZA, + RO24T + RO20T + RO19T + RO9T + RO5T + RO24NT + RO20NT + RO19NT + RO9NT + RO5NT AS TVA, + ROTI AS TIBAZA, + 0 AS TITVA, + RO24B + RO24NB as BAZA24, RO20B + RO20NB AS BAZA20, RO19B + RO19NB AS BAZA19, RO9B + RO9NB AS BAZA09, RO5B + RO5NB AS BAZA05, 0.00 AS BAZA00, + RO24T + RO24NT as TVA24, RO20T + RO20NT AS TVA20, RO19T + RO19NT AS TVA19, RO9T + RO9NT AS TVA09, RO5T + RO5NT AS TVA05, + 0.00 AS TIBAZA24, ROTI AS TIBAZA20, 0.00 AS TIBAZA19, 0.00 AS TIBAZA09, 0.00 AS TIBAZA05, + 0.00 as TITVA24, 0.00 AS TITVA20, 0.00 AS TITVA19, 0.00 AS TITVA09, 0.00 AS TITVA05, + TVA_INCASARE, 0 as FACT_TVA_INCASARE, 1 as NRFACT, decode(extract(year from dataireg)*12+extract(month from dataireg), an*12+luna, 1, 0) as EMISA_PERIOADA, + RO24T, RO20T, RO19T, RO9T AS RO09T, RO5T AS RO05T + FROM VJV2013 J + LEFT JOIN (SELECT ID_PART,TARA,PRESCURTARE AS COD_TARA,JUDET,COD_JUDET,LOCALITATE,STRADA,NUMAR,APART,SCARA,BLOC FROM VADRESE_PARTENERI WHERE PRINCIPALA = 1) A ON J.ID_PART = A.ID_PART + WHERE (TOTCTVA = 0 OR RO24T <> 0 OR RO20T <> 0 OR RO19T <> 0 OR RO9T <> 0 OR RO5T <> 0 OR RO24NT <> 0 OR RO20NT <> 0 OR RO19NT <> 0 OR RO9NT <> 0 OR RO5NT <> 0 OR ROTI <> 0) AND + <> +UNION +SELECT 'JC' AS TIPJ, 0 AS TIPPART, TIP_DOC as tipdoc, 'A ' as tip, dataact, dataireg, serie_act, nract, id_fdoc, fel_document, id_sucursala, sucursala, + 0 as ISCIF, 0 AS CIFVALID, + J.ID_PART, COD_FISCAL, REGEXP_REPLACE(COD_FISCAL, '[^[:digit:]]', '') AS COD_FISCALFRO, SUBSTR(TRIM(UPPER(COD_FISCAL)),1,2) AS ATRIBUT_FISCAL, DENUMIRE, TIP_PERSOANA, AFILIAT, CODTARA, + A.TARA, A.COD_TARA, A.JUDET, A.COD_JUDET, A.LOCALITATE, A.STRADA, A.BLOC, A.SCARA, A.NUMAR, A.APART, + RO24B + RO20B + RO19B + RO09B + RO05B + RO24NB + RO20NB + RO19NB + RO9NB + RO5NB + ROSCN AS BAZA, + RO24T + RO20T + RO19T + RO09T + RO05T + RO24NT + RO20NT + RO19NT + RO9NT + RO5NT AS TVA, + TI19B + TI09B + TI20B + TI24B + XX19TIB + XX9TIB as TIBAZA, + TI19T + TI09T + TI20T + TI24T + XX19TIT + XX9TIT as TITVA, + RO24B + RO24NB AS BAZA24, RO20B + RO20NB AS BAZA20, RO19B + RO19NB AS BAZA19, RO09B + RO9NB AS BAZA09, RO05B + RO5NB AS BAZA05, ROSCN AS BAZA00, + RO24T + RO24NT AS TVA24, RO20T + RO20NT AS TVA20, RO19T + RO19NT AS TVA19, RO09T + RO9NT AS TVA09, RO05T + RO5NT AS TVA05, + TI24B AS TIBAZA24, TI20B AS TIBAZA20, TI19B + XX19TIB AS TIBAZA19, TI09B + XX9TIB AS TIBAZA09, 0.00 AS TIBAZA05, + TI24T as TITVA24, TI20T AS TITVA20, TI19T + XX19TIT AS TITVA19, TI09T + XX9TIT AS TITVA09, 0.00 AS TITVA05, + TVA_INCASARE, 0 as FACT_TVA_INCASARE, 1 as NRFACT, decode(extract(year from dataireg)*12+extract(month from dataireg), an*12+luna, 1, 0) as EMISA_PERIOADA, + RO24T, RO20T, RO19T, RO09T, RO05T + FROM VJC2013 J + LEFT JOIN (SELECT ID_PART,TARA,PRESCURTARE AS COD_TARA,JUDET,COD_JUDET,LOCALITATE,STRADA,NUMAR,APART,SCARA,BLOC FROM VADRESE_PARTENERI WHERE PRINCIPALA = 1) A ON J.ID_PART = A.ID_PART + WHERE (TOTCTVA = 0 OR RO24T <> 0 OR RO20T <> 0 OR RO19T <> 0 OR RO09T <> 0 OR RO05T <> 0 OR RO24NT <> 0 OR RO20NT <> 0 OR RO19NT <> 0 OR RO9NT <> 0 OR RO5NT <> 0 OR TI19T <> 0 OR TI09T <> 0 OR TI20T <> 0 OR TI24T <> 0 OR + XX19TIB<>0 OR XX19TIT <> 0 OR XX9TIB<>0 OR XX9TIT <> 0 OR ROSCN <> 0) AND + <> + Endtext + + + + goLog.Log(lcSql) + + lcCursor = [crsJTVATemp] + llSucces = goExecutor.oExecuta(lcSql, lcCursor) + + If m.llSucces + Select crsJTVA + Append From Dbf('crsJTVATemp') + Use In (Select('crsJTVATemp')) + + * sterg facturile de achizitie de la platitorii de TVA (RO) care au doar baza00 <> 0 (ROSCN). nu trebuie sa apara in declaratie. doar la tipul 2 (neinregistrati in scopuri TVA) + * sunt permise facturile cu TVA 0 tip AS - achizitii regim special (servicii turism, second hand, obiecte arta care aplica TVA la marja de profit) + Delete From crsJTVA Where tipj = 'JC' And atribut_fiscal = 'RO' And TVA24 = 0 And TVA20 = 0 And TVA19 = 0 And TVA09 = 0 And TVA05 = 0 And baza00 <> 0 And !Inlist(Alltrim(tipdoc), 'U', 'H') + Update crsJTVA Set seq = Recno() + + * Bifa Persoane Afiliate + Select crsJTVA + Locate For Nvl(AFILIAT, 0) <> 0 + If Found() + pounitate.PersoaneAfiliate = 1 + Endif + Endif && llSucces + + * Facturi Anulate din Reg. Jurnal cu gnIdSetAnulate + If m.llSucces + Text To lcSql Textmerge Noshow +SELECT distinct a.serie_act as seria, a.nract as nr + FROM act a left join nom_fdoc f on a.id_fdoc = f.id_fdoc + WHERE a.sters = 0 and a.id_set = <> and f.tip_doc in ('F', 'M') and + <> + <> + <> + Endtext + + lcCursor = [crsFacturiAnulate] + llSucces = goExecutor.oExecuta(lcSql, lcCursor) + Endif && llSucces + * Numar bonuri fiscale cu si fara CUI, B si C (AMEF) + If m.llSucces + + * 07-09/2016 se declara doar operatiile cu persoane impozabile, deci nu bonuri AMEF + If m.llPerioadaDoarRO + Create Cursor crsBonuriAMEF (luna N(2), nr N(10)) + llSucces = .T. + Else + *BON=10* + * se numara toate bonurile fiscale emise, indiferent ca au cod fiscal sau nu. Doar bonurile fiscale pentru care s-au emis facturi nu se iau in considerare! + * dar acelea trebuie sa fie marcate ca FACTURA + Text To lcSql Textmerge Noshow +SELECT extract(month FROM dataact) as luna, SUM(case when nr is null then 1 else to_number(nr) end) as nr FROM +(SELECT a.id_fact, a.cod, MAX(a.dataact) as dataact, MAX(replace(replace(upper(regexp_substr(a.explicatia,'\*BON=(\d)*\*',1,1,'i')),'*BON=',''),'*','')) as nr + FROM act a + WHERE a.sters = 0 and + <> + <> + and id_fact in (SELECT j.id_fact + from jv2007 j + where <> <> and + id_fdoc in (select id_fdoc + from NOM_FDOC t + where sters = 0 + and tip_doc in ('B','C'))) + and id_fdoc in (select id_fdoc + from NOM_FDOC t + where sters = 0 + and tip_doc in ('B','C')) + group by a.id_fact, a.cod) + group by extract(month from dataact) + Endtext + + Wait Window 'Calculare numar bonuri AMEF...' Nowait + lcCursor = [crsBonuriAMEF] + llSucces = goExecutor.oExecuta(lcSql, lcCursor) + Endif && m.llPerioadaDoarRO + Endif && llSucces + + * Numar bilete E(xceptate) AMEF + If m.llSucces + * 07-09/2016 se declara doar operatiile cu persoane impozabile, deci nu bonuri AMEF + If m.llPerioadaDoarRO + Create Cursor crsBonuriEAMEF(luna N(2), nr N(10)) + llSucces = .T. + Else + Text To lcSql Textmerge Noshow +SELECT extract(month FROM dataact) as luna, SUM(case when nr is null then 1 else to_number(nr) end) as nr FROM +(SELECT a.id_fact, a.cod, MAX(a.dataact) as dataact, MAX(replace(replace(upper(regexp_substr(a.explicatia,'\*BON=(\d)*\*',1,1,'i')),'*BON=',''),'*','')) as nr + FROM act a + WHERE a.sters = 0 and + <> + <> + and id_fact in (SELECT j.id_fact + from jv2007 j + where <> <> and + id_fdoc in (select id_fdoc + from NOM_FDOC t + where sters = 0 + and tip_doc = 'E')) + and id_fdoc in (select id_fdoc + from NOM_FDOC t + where sters = 0 + and tip_doc = 'E') + group by a.id_fact, a.cod) + group by extract(month from dataact) + Endtext + + Wait Window 'Calculare numar bonuri exceptate AMEF...' Nowait + lcCursor = [crsBonuriEAMEF] + llSucces = goExecutor.oExecuta(lcSql, lcCursor) + Endif && m.llPerioadaDoarRO + Endif && llSucces + + Return m.llSucces + Endproc && citeste_date_jtva + + * Configureaza tipurile de documente (facturi, facturi simplificate, bonuri fiscale etc.) + Procedure configureaza_date_jtva + + Local loVerificare As "verificarecod" + Local loRec + + + Update crsJTVA Set atribut_fiscal = '' Where Isdigit(atribut_fiscal) Or Empty(Nvl(cod_fiscal, '')) + Update crsJTVA Set codtara = 'RO' WHERE EMPTY(NVL(codtara,'')) +SET STEP ON + * Completez Tip partener: 1/2/3/4 + Update crsJTVA Set tippart = 1 Where tippart = 0 And atribut_fiscal = 'RO' && persoane impozabile inregistrate in scopuri de TVA in Romania + Update crsJTVA Set tippart = 2 Where tippart = 0 And (Empty(atribut_fiscal) OR Nvl(TIP_PERSOANA,0) <> 1) && persoane neinregistrate in scopuri de TVA (fara atribut fiscal sau persoane fizice) + Update crsJTVA Set tippart = 3 Where tippart = 0 And ; + (INLIST(atribut_fiscal,'AT', 'BE', 'BG', 'CY', 'CZ', 'DE', 'DK', 'EE', 'EL', 'ES', 'FI', 'FR') OR INLIST(atribut_fiscal, 'HR', 'HU', 'IE', 'IT', 'LT', 'LU', 'LV', 'MT', 'NL', 'PL', 'PT', 'SE', 'SI', 'SK') OR ; + INLIST(codtara, 'AT', 'BE', 'BG', 'CY', 'CZ', 'DE', 'DK', 'EE', 'GR', 'ES', 'FI', 'FR') OR INLIST(codtara, 'HR', 'HU', 'IE', 'IT', 'LT', 'LU', 'LV', 'MT', 'NL', 'PL', 'PT', 'SE', 'SI', 'SK')) && persoane impozabile nestabilite in RO, in UE + Update crsJTVA Set tippart = 4 Where tippart = 0 And Nvl(TIP_PERSOANA,0) = 1 AND codtara <> 'RO'&& persoane impozabile nestabilite in RO, in afara UE si tip persoana = persoana juridica + + * Completez tip document: FACTURA/BON FISCAL FARA FACTURA/BON FISCAL CU FACTURA/FACTURA SIMPLIFICATA/AUTOFACTURA + *!* Update crsJTVA Set tipdoc = '' + *!* Update crsJTVA Set tipdoc = 'B' Where Empty(tipdoc) And ',' + Alltrim(Str(id_fdoc)) + ',' $ ',' + This.oUnitate.tipdoc_bonfiscal_fara_cui + ',' + *!* Update crsJTVA Set tipdoc = 'C' Where Empty(tipdoc) And ',' + Alltrim(Str(id_fdoc)) + ',' $ ',' + This.oUnitate.tipdoc_bonfiscal_cu_cui + ',' + *!* Update crsJTVA Set tipdoc = 'M' Where Empty(tipdoc) And ',' + Alltrim(Str(id_fdoc)) + ',' $ ',' + This.oUnitate.tipdoc_factura_simplificata + ',' + *!* Update crsJTVA Set tipdoc = 'E' Where Empty(tipdoc) And ',' + Alltrim(Str(id_fdoc)) + ',' $ ',' + This.oUnitate.tipdoc_exceptate_amef + ',' + *!* Update crsJTVA Set tipdoc = 'O' Where Empty(tipdoc) And ',' + Alltrim(Str(id_fdoc)) + ',' $ ',' + This.oUnitate.tipdoc_borderou_achizitii + ',' + *!* Update crsJTVA Set tipdoc = 'Z' Where Empty(tipdoc) And ',' + Alltrim(Str(id_fdoc)) + ',' $ ',' + This.oUnitate.tipdoc_carnet_comercializare + ',' + *!* Update crsJTVA Set tipdoc = 'H' Where Empty(tipdoc) And ',' + Alltrim(Str(id_fdoc)) + ',' $ ',' + This.oUnitate.tipdoc_achizitii_second_hand + ',' + *!* Update crsJTVA Set tipdoc = 'U' Where Empty(tipdoc) And ',' + Alltrim(Str(id_fdoc)) + ',' $ ',' + This.oUnitate.tipdoc_servicii_turism + ',' + *!* Update crsJTVA Set tipdoc = 'AF' Where Empty(tipdoc) And ',' + Alltrim(serie_act) + ',' $ ',' + This.oUnitate.serie_autofacturare + ',' + *!* Update crsJTVA Set tipdoc = 'F' Where Empty(tipdoc) And ',' + Alltrim(Str(id_fdoc)) + ',' $ ',' + This.oUnitate.tipdoc_factura + ',' + * Update crsJTVA Set tipdoc = 'F' Where Empty(tipdoc) && completez restul documentelor cu tip = F(actura) + + Insert Into crsFdocTip (id_fdoc, fel_document, tip_doc, bifa) ; + Select Distinct id_fdoc, fel_document, tipdoc As tip_doc, Iif(Empty(Nvl(tipdoc, '')), 1, 0) As bifa ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 + + Go Top In crsFdocTip + + * Determin CUI/CNP si verific validitate + Select Distinct cod_fiscal, .F. As iscif, .F. As cifvalid ; + From crsJTVA ; + Where !Empty(Nvl(cod_fiscal, '')) ; + Into Cursor cCUITemp Readwrite + + loVerificare = Createobject("verificarecod") && validare.prg + Update cCUITemp Set iscif = loVerificare.iscif(cCUITemp.cod_fiscal) + Update cCUITemp Set cifvalid = loVerificare.Validare(Iif(cCUITemp.iscif, 'CIF', 'CNP'), cCUITemp.cod_fiscal) + Select cCUITemp + Scan + Update crsJTVA Set iscif = Iif(cCUITemp.iscif, 1, 0), cifvalid = Iif(cCUITemp.cifvalid, 1, 0) Where cod_fiscal = cCUITemp.cod_fiscal + Endscan + Update crsJTVA Set iscif = 0, cifvalid = 0 Where Empty(Nvl(cod_fiscal, '')) + + Use In (Select('cCUITemp')) + + *!* L - livrari + *!* V - livrari cu taxare inversa + *!* LS - livrari regim special + + *!* A - achizitii + *!* C - achizitii cu taxare inversa + *!* AS - achizitii regim special + *!* N - achizitii de bunuri/servicii pt care au fost primite facturi/borderouri de achizitii/ file din carnete de comercializare de la persoane neinregistrate + *!* AI - achizitii de la persoane impozabile care aplica TVA la incasare + + * V/C - taxare inversa + Select * From crsJTVA Where .F. Into Cursor crsJTVATemp Readwrite + + Select crsJTVA + Scan For EMISA_PERIOADA = 1 And titva <> 0 Or tibaza <> 0 And Inlist(TIP, 'L', 'A') + If TVA = 0 And baza = 0 + * daca are doar taxare inversa, marchez factura tip V/C + Replace TIP With Iif(TIP = 'L', 'V', 'C'), ; + baza With tibaza, TVA With titva, baza24 With tibaza24, baza20 With tibaza20, baza19 With tibaza19, baza09 With tibaza09, baza05 With tibaza05, ; + TVA With titva, TVA With titva, TVA24 With titva24, TVA20 With titva20, TVA19 With titva19, TVA09 With titva09, TVA05 With titva05 In crsJTVA + + If TIP = 'V' && livrare taxare inversa nu are cota de TVA + Replace baza00 With tibaza, baza20 With 0, tibaza20 With 0 In crsJTVA + Endif + Else + * daca are taxare inversa si tva normal, marchez factura tip V/C si adaug o linie noua cu tva normal + Select crsJTVA + Scatter Name loRec + Replace TIP With Iif(TIP = 'L', 'V', 'C'), ; + baza With tibaza, TVA With titva, baza24 With tibaza24, baza20 With tibaza20, baza19 With tibaza19, baza09 With tibaza09, baza05 With tibaza05, ; + TVA24 With titva24, TVA20 With titva20, TVA19 With titva19, TVA09 With titva09, TVA05 With titva05, ; + ro24t With 0, ro20t With 0, ro19t With 0, RO09T With 0, ro05t With 0 In crsJTVA + + With loRec + .NRFACT = 0 && am deja nrfact = 1 pe linia cu taxare inversa, sa nu duplic numarul de facturi + .tibaza = 0 + .titva = 0 + .tibaza24 = 0 + .tibaza20 = 0 + .tibaza19 = 0 + .tibaza09 = 0 + .tibaza05 = 0 + .titva24 = 0 + .titva20 = 0 + .titva19 = 0 + .titva09 = 0 + .titva05 = 0 + Endwith + Insert Into crsJTVATemp From Name loRec + Select crsJTVA + Endif + Endscan + Select crsJTVA + Append From Dbf('crsJTVATemp') + Use In (Select('crsJTVATemp')) + + * LS - livrari regim special (servicii turism, second hand, obiecte arta care aplica TVA la marja de profit) + Update crsJTVA Set TIP = 'LS' Where TIP = 'L' And Inlist(Alltrim(tipdoc), 'U', 'H') + + * AS - achizitii regim special (servicii turism, second hand, obiecte arta care aplica TVA la marja de profit) + Update crsJTVA Set TIP = 'AS' Where TIP = 'A' And Inlist(Alltrim(tipdoc), 'U', 'H') + + * N - achizitii de bunuri/servicii pt care au fost primite facturi/borderouri de achizitii/ file din carnete de comercializare de la persoane neinregistrate + * Achizitii de la persoane fizice sau persoane juridice neplatitoare de TVA + Update crsJTVA Set TIP = 'N' Where TIP = 'A' And (iscif = 0 Or (iscif = 1 And !'RO' $ cod_fiscal)) + + * Facturi de achizitie provenite de la persoane care aplica sistemul TVA la Incasare, pentru sectiunea I5.2 + Update crsJTVA Set FACT_TVA_INCASARE = 1 Where tipj = 'JC' And iscif = 1 And 'RO' $ (Upper(cod_fiscal)) And VERIFICA_RTVAI_DATA(crsJTVA.cod_fiscal, crsJTVA.dataact) + + * AI - achizitii de la persoane impozabile care aplica TVA la incasare + Update crsJTVA Set TIP = 'AI' Where TIP = 'A' And FACT_TVA_INCASARE = 1 + + * Documentele fara tipdoc asociat nu se iau in considerare la generarea D394 + Update crsJTVA Set TIP = '' Where Empty(Nvl(tipdoc, '')) + + Return .T. + + Endproc && configureaza_date_jtva + + *=========================================== + * Creeaza cursoare pentru sectiunile declaratiei din crsJTVA + Procedure pregateste_sectiunea_1_2 + Private pnPlaje24 + Local lnAn, lnLuna1, lnLuna2, llSucces + Local lcSeria, lcSql, lnNr1, lnNr2, loUnitate + pnPlaje24 = 0 + + loUnitate = This.oUnitate + lnAn = Int(loUnitate.an) + lnLuna1 = Int(loUnitate.luna1) + lnLuna2 = Int(loUnitate.luna2) + + + * I. ALTE INFORMATII: + * I 1.1 Livrari de bunuri/prestari de servicii pentru care s-au emis facturi simplificate care au inscris codul de inregistrare in scopuri de TVA al beneficiarului + Insert Into crsSectiuneaI (punct, baza, TVA, proctva) ; + Select '1.1' As punct, Sum(baza24) As baza, Sum(TVA24) As TVA, 24 As proctva ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JV' And tipdoc = 'M' And !Empty(Nvl(cod_fiscal, '')) ; + Union ; + Select '1.1' As punct, Sum(baza20) As baza, Sum(TVA20) As TVA, 20 As proctva ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JV' And tipdoc = 'M' And !Empty(Nvl(cod_fiscal, '')) ; + Union ; + Select '1.1' As punct, Sum(baza19) As baza, Sum(TVA19) As TVA, 19 As proctva ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JV' And tipdoc = 'M' And !Empty(Nvl(cod_fiscal, '')) ; + Union ; + Select '1.1' As punct, Sum(baza09) As baza, Sum(TVA09) As TVA, 9 As proctva ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JV' And tipdoc = 'M' And !Empty(Nvl(cod_fiscal, '')) ; + Union ; + Select '1.1' As punct, Sum(baza05) As baza, Sum(TVA05) As TVA, 5 As proctva ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JV' And tipdoc = 'M' And !Empty(Nvl(cod_fiscal, '')) + + * I 1.2 Livrari de bunuri/prestari de servicii pentru care s-au emis facturi simplificate fara a avea inscris codul de inregistrare in scopuri de TVA al beneficiarului + Insert Into crsSectiuneaI (punct, baza, TVA, proctva) ; + Select '1.2' As punct, Sum(baza24) As baza, Sum(TVA24) As TVA, 24 As proctva ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JV' And tipdoc = 'M' And Empty(Nvl(cod_fiscal, '')) ; + Union ; + Select '1.2' As punct, Sum(baza20) As baza, Sum(TVA20) As TVA, 20 As proctva ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JV' And tipdoc = 'M' And Empty(Nvl(cod_fiscal, '')) ; + Union ; + Select '1.2' As punct, Sum(baza19) As baza, Sum(TVA19) As TVA, 19 As proctva ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JV' And tipdoc = 'M' And Empty(Nvl(cod_fiscal, '')) ; + Union ; + Select '1.2' As punct, Sum(baza09) As baza, Sum(TVA09) As TVA, 9 As proctva ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JV' And tipdoc = 'M' And Empty(Nvl(cod_fiscal, '')) ; + Union ; + Select '1.2' As punct, Sum(baza05) As baza, Sum(TVA05) As TVA, 5 As proctva ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JV' And tipdoc = 'M' And Empty(Nvl(cod_fiscal, '')) + + + * I 1.3 Achizitii de bunuri si servicii pentru care s-au primit facturi simplificate de la persoane impozabile care aplica sistemul normal de TVA si care au inscris codul de inregistrare in scopuri de TVA al beneficiarului + Insert Into crsSectiuneaI (punct, baza, TVA, proctva) ; + Select '1.3' As punct, Sum(baza24) As baza, Sum(TVA24) As TVA, 24 As proctva ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JC' And tipdoc = 'M' And atribut_fiscal = 'RO' And FACT_TVA_INCASARE = 0 ; + Union ; + Select '1.3' As punct, Sum(baza20) As baza, Sum(TVA20) As TVA, 20 As proctva ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JC' And tipdoc = 'M' And atribut_fiscal = 'RO' And FACT_TVA_INCASARE = 0 ; + Union ; + Select '1.3' As punct, Sum(baza19) As baza, Sum(TVA19) As TVA, 19 As proctva ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JC' And tipdoc = 'M' And atribut_fiscal = 'RO' And FACT_TVA_INCASARE = 0 ; + Union ; + Select '1.3' As punct, Sum(baza09) As baza, Sum(TVA09) As TVA, 9 As proctva ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JC' And tipdoc = 'M' And atribut_fiscal = 'RO' And FACT_TVA_INCASARE = 0 ; + Union ; + Select '1.3' As punct, Sum(baza05) As baza, Sum(TVA05) As TVA, 5 As proctva ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JC' And tipdoc = 'M' And atribut_fiscal = 'RO' And FACT_TVA_INCASARE = 0 + + * I 1.4 Achizitii de bunuri si servicii pentru care s-au primit facturi simplificate de la persoane impozabile care aplica sistemul de TVA la incasare si care au inscris codul de inregistrare in scopuri de TVA al beneficiarului + Insert Into crsSectiuneaI (punct, baza, TVA, proctva) ; + Select '1.4' As punct, Sum(baza24) As baza, Sum(TVA24) As TVA, 24 As proctva ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JC' And tipdoc = 'M' And atribut_fiscal = 'RO' And FACT_TVA_INCASARE = 1 ; + Union ; + Select '1.4' As punct, Sum(baza20) As baza, Sum(TVA20) As TVA, 20 As proctva ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JC' And tipdoc = 'M' And atribut_fiscal = 'RO' And FACT_TVA_INCASARE = 1 ; + Union ; + Select '1.4' As punct, Sum(baza19) As baza, Sum(TVA19) As TVA, 19 As proctva ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JC' And tipdoc = 'M' And atribut_fiscal = 'RO' And FACT_TVA_INCASARE = 1 ; + Union ; + Select '1.4' As punct, Sum(baza09) As baza, Sum(TVA09) As TVA, 9 As proctva ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JC' And tipdoc = 'M' And atribut_fiscal = 'RO' And FACT_TVA_INCASARE = 1 ; + Union ; + Select '1.4' As punct, Sum(baza05) As baza, Sum(TVA05) As TVA, 5 As proctva ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JC' And tipdoc = 'M' And atribut_fiscal = 'RO' And FACT_TVA_INCASARE = 1 + + * I 1.5 Achizitii de bunuri si servicii pentru care s-au primit bonuri fiscale care indeplinesc conditiile unei facturi simplificate si care au inscris codul de inregistrare in scopuri de TVA al beneficiarului + Insert Into crsSectiuneaI (punct, baza, TVA, proctva) ; + Select '1.5' As punct, Sum(baza24) As baza, Sum(TVA24) As TVA, 24 As proctva ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JC' And tipdoc = 'C' ; + Union ; + Select '1.5' As punct, Sum(baza20) As baza, Sum(TVA20) As TVA, 20 As proctva ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JC' And tipdoc = 'C' ; + Union ; + Select '1.5' As punct, Sum(baza19) As baza, Sum(TVA19) As TVA, 19 As proctva ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JC' And tipdoc = 'C' ; + Union ; + Select '1.5' As punct, Sum(baza09) As baza, Sum(TVA09) As TVA, 9 As proctva ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JC' And tipdoc = 'C' ; + Union ; + Select '1.5' As punct, Sum(baza05) As baza, Sum(TVA05) As TVA, 5 As proctva ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JC' And tipdoc = 'C' + + Delete From crsSectiuneaI Where Nvl(baza, 0) = 0 And Nvl(TVA, 0) = 0 + + * 2.1 Plaja de facturi alocate in perioada de facturare + pnPlaje24 = 0 && plaja de facturi special creata pentru declararea in D394. Nu se foloseste la generarea de numere de facturi + lnSucces = goExecutor.oSelect2Value("SELECT COUNT(*) as nr FROM plaje_numere WHERE id_tipdoc = 24 and sters = 0", @pnPlaje24) + If m.lnSucces = CT_INSUCCES + amessagebox(goExecutor.cEroare, 0 + 16, "Eroare") + pnPlaje24 = 0 + Endif + lnIdTipDocFact = Iif(m.pnPlaje24 > 0, 24, 5) + + Text To lcSql Textmerge Noshow +select s.serie as seria, + s.prefix || SUBSTR(decode(nvl(s.an, 0), 1, + decode(NVL(s.an2caractere,0), 1, + '<>', '<>') || decode(s.luna, 1, lpad('<>', 2, '0'), + ''), + '') || lpad(p.pl_inf, nvl(s.lungime, 14), '0'), 1, 30) as nr1, + s.prefix || SUBSTR(decode(nvl(s.an, 0), 1, + decode(NVL(s.an2caractere,0), 1, + '<>', '<>') || decode(s.luna, 1, lpad('<>', 2, '0'), ''),'') + || lpad(p.pl_sup, nvl(s.lungime, 14), '0'), 1, 30) as nr2 + from plaje_numere p + join serii s + on p.id_serie = s.id_serie + where p.sters = 0 + and p.inactiv = 0 + and p.id_tipdoc = <> + and ((<> between extract(year from p.datai) * 12 + extract(month from p.datai) and extract(year from p.datas) * 12 + extract(month from p.datas)) or + (<> between extract(year from p.datai) * 12 + extract(month from p.datai) and extract(year from p.datas) * 12 + extract(month from p.datas))) + Endtext + + llSucces = goExecutor.oExecuta(m.lcSql, [crsFacturiAlocateTemp]) + If m.llSucces + Insert Into crsFacturiAlocate (seria, nr1, nr2) ; + Select seria, Int(Val(nr1)) As nr1, Int(Val(nr2)) As nr2 ; + From crsFacturiAlocateTemp + Endif + + * Nu pot sa configurez plaje de numar fara serie. Conventional seria xxx este NULL + Update crsFacturiAlocate Set seria = '' Where seria = 'XXX' + + * In facturi alocate nu intra seriile de facturi emise de beneficiari/terti + IF !EMPTY(NVL(loUnitate.serie_facturi_beneficiari,'')) + DELETE FROM crsFacturiAlocate WHERE !EMPTY(seria) AND ',' + Alltrim(seria) + ',' $ ',' + Alltrim(loUnitate.serie_facturi_beneficiari) + ',' + ENDIF + IF !EMPTY(NVL(loUnitate.serie_facturi_terti,'')) + DELETE FROM crsFacturiAlocate WHERE !EMPTY(seria) AND ',' + Alltrim(seria) + ',' $ ',' + Alltrim(loUnitate.serie_facturi_terti) + ',' + ENDIF + + Use In (Select('crsFacturiAlocateTemp')) + + * 2.2 Numarul total de facturi emise, in perioada de raportare, din plaja de facturi alocate: + If m.llSucces + * selectez seriile si numerele de facturi (sectiunea 2.1), in afara de facturi emise de beneficiari/terti in numele persoanei impozabile (sectiunile 2.3, 2.4) + Select Distinct serie_act As seria, nract As nr ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JV' And Inlist(tipdoc, 'F', 'M') ; + Union ; + Select Distinct seria, nr ; + From crsFacturiAnulate ; + Into Cursor crsNract READWRITE + + IF !EMPTY(NVL(loUnitate.serie_facturi_beneficiari,'')) + DELETE FROM crsNrAct WHERE !EMPTY(seria) AND ',' + Alltrim(seria) + ',' $ ',' + Alltrim(loUnitate.serie_facturi_beneficiari) + ',' + ENDIF + IF !EMPTY(NVL(loUnitate.serie_facturi_terti,'')) + DELETE FROM crsNrAct WHERE !EMPTY(seria) AND ',' + Alltrim(seria) + ',' $ ',' + Alltrim(loUnitate.serie_facturi_terti) + ',' + ENDIF + CALCULATE CNT() TO loUnitate.nr_facturi_emise IN crsNrAct +*!* loUnitate.nr_facturi_emise = _Tally + Select Distinct seria From crsNract Into Cursor crsSeriiAct + + Select crsSeriiAct + Scan + lcSeria = seria + Select Cast(0 As N(20)) As rec, nr From crsNract Where Nvl(seria, 'XXX') = Nvl(m.lcSeria, 'XXX') Order By nr Into Cursor crsSeriaAct1 Readwrite + Replace All rec With Recno() In crsSeriaAct1 + Select rec, nr From crsSeriaAct1 Into Cursor crsSeriaAct2 + + Select c1.nr As nr1, c2.nr As nr2, c2.nr - Nvl(c1.nr, c2.nr) As Dif ; + From crsSeriaAct1 c1 Left Join crsSeriaAct2 c2 On c1.rec = c2.rec - 1 ; + Into Cursor crsSeriaActDif + + Use In (Select('crsSeriaAct1')) + Use In (Select('crsSeriaAct2')) + + Select crsSeriaActDif + Go Top + lnNr1 = nr1 + lnNr2 = nr1 + Scan + If Dif = 1 + lnNr2 = nr2 + Else + Insert Into crsFacturiEmise (seria, nr1, nr2) Values (m.lcSeria, m.lnNr1, m.lnNr2) + lnNr1 = nr2 + lnNr2 = nr2 + Endif + Endscan + If m.lnNr1 <> m.lnNr2 + Insert Into crsFacturiEmise (seria, nr1, nr2) Values (m.lcSeria, m.lnNr1, m.lnNr2) + Endif + Use In (Select('crsSeriaActDif')) + + Endscan && crsSeriiAct + + * Verificare facturi emise in plajele de facturi alocate!!! + * Asociez facturile emise cu plajele de facturi alocate + Select a.seria, a.nr, b.seria As aseria, b.nr1, b.nr2 ; + From crsNract a Left Join crsFacturiAlocate b On Padr(Nvl(a.seria, ''), 20, ' ') = Padr(Nvl(b.seria, ''), 20, ' ') And Between(a.nr, b.nr1, b.nr2) ; + Into Cursor cFacturiEmiseAlocateTemp + + * Selectez facturile care nu s-au incadrat in nici o plaja de facturi alocate + Select seria, nr ; + From cFacturiEmiseAlocateTemp ; + Where Isnull(nr1) ; + Order By seria, nr ; + Into Cursor cFacturiEmiseAlocate + + Use In (Select('cFacturiEmiseAlocateTemp')) + + This.oUnitate.cTextFacturiEmiseAlocate = "" + If _Tally > 0 + This.oUnitate.cTextFacturiEmiseAlocate = 'Facturi emise care nu sunt in plajele de facturi alocate:' + Chr(13) + Chr(10) + Select cFacturiEmiseAlocate + Scan + This.oUnitate.cTextFacturiEmiseAlocate = This.oUnitate.cTextFacturiEmiseAlocate + Transform(seria) + ' ' + Transform(nr) + Chr(13) + Chr(10) + Endscan + Else + This.oUnitate.cTextFacturiEmiseAlocate = 'Toate facturile emise sunt in plajele de facturi alocate.' + Endif + Use In (Select('cFacturiEmiseAlocate')) + + Use In (Select('crsSeriiAct')) + Use In (Select('crsNrAct')) + + * 2.2 din care (Tip: stornate/anulate/autofacturare/emisa in numele furnizorilor) + * Facturi stornate + Insert Into crsFacturiEmiseTip (TIP, ntip, seria, nr) ; + Select Distinct 'STORNAT' As TIP, 1 As ntip, serie_act As seria, nract As nr ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JV' And Inlist(tipdoc, 'F', 'M') And baza + TVA < 0 + + * Facturi anulate + Insert Into crsFacturiEmiseTip (TIP, ntip, seria, nr) ; + Select Distinct 'ANULAT' As TIP, 2 As ntip, seria, nr ; + From crsFacturiAnulate + + * Autofacturi + Insert Into crsFacturiEmiseTip (TIP, ntip, seria, nr) ; + Select Distinct 'AUTOFACTURA' As TIP, 3 As ntip, serie_act As seria, nract As nr ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JV' And Inlist(tipdoc, 'F', 'M') And ',' + Alltrim(serie_act) + ',' $ ',' + Alltrim(loUnitate.serie_autofacturare) + ',' + + * Facturi emise in numele furnizorilor + Insert Into crsFacturiEmiseTip (TIP, ntip, seria, nr) ; + Select Distinct 'FURNIZOR' As TIP, 4 As ntip, serie_act As seria, nract As nr ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JC' And Inlist(tipdoc, 'F', 'M') And ',' + Alltrim(serie_act) + ',' $ ',' + Alltrim(loUnitate.serie_facturi_furnizori) + ',' + + * 2.2 Autofacturare + Insert Into crsAutoFacturi (seria, nr, baza24, TVA24, baza20, TVA20, baza19, TVA19, baza09, TVA09, baza05, TVA05) ; + Select serie_act As seria, nract As nr, ; + Sum(baza24) As baza24, Sum(TVA24) As TVA24, ; + Sum(baza20) As baza20, Sum(TVA20) As TVA20, ; + Sum(baza19) As baza19, Sum(TVA19) As TVA19, ; + Sum(baza09) As baza09, Sum(TVA09) As TVA09, ; + Sum(baza05) As baza05, Sum(TVA05) As TVA05 ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JV' And Inlist(tipdoc, 'F', 'M') And ',' + Alltrim(serie_act) + ',' $ ',' + Alltrim(loUnitate.serie_autofacturare) + ',' ; + Group By serie_act, nract + + + * 2.3 Numarul total de facturi emise, in perioada de raportare, de beneficiari in numele persoanei impozabile: + Insert Into crsFacturiTerti (punct, denumire, cod_fiscal, seria, nr1, nr2) ; + Select '2.3' As punct, denumire, cod_fiscal, serie_act As seria, Min(nract) As nr1, Max(nract) As nr2 ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JV' And Inlist(tipdoc, 'F', 'M') And ',' + Alltrim(serie_act) + ',' $ ',' + Alltrim(loUnitate.serie_facturi_beneficiari) + ',' ; + Group By denumire, cod_fiscal, serie_act ; + Union ; + Select '2.4' As punct, denumire, cod_fiscal, serie_act As seria, Min(nract) As nr1, Max(nract) As nr2 ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JV' And Inlist(tipdoc, 'F', 'M') And ',' + Alltrim(serie_act) + ',' $ ',' + Alltrim(loUnitate.serie_facturi_terti) + ',' ; + Group By denumire, cod_fiscal, serie_act ; + Order By punct, denumire, cod_fiscal, serie_act + + Select Distinct serie_act As seria, nract As nr ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JV' And Inlist(tipdoc, 'F', 'M') And ',' + Alltrim(serie_act) + ',' $ ',' + Alltrim(loUnitate.serie_facturi_beneficiari) + ',' ; + Into Cursor crsNract + + loUnitate.nr_facturi_beneficiari = _Tally + USE IN (SELECT('crsNract')) + + Select Distinct serie_act As seria, nract As nr ; + From crsJTVA ; + Where EMISA_PERIOADA = 1 And tipj = 'JV' And Inlist(tipdoc, 'F', 'M') And ',' + Alltrim(serie_act) + ',' $ ',' + Alltrim(loUnitate.serie_facturi_terti) + ',' ; + Into Cursor crsNract + + loUnitate.nr_facturi_terti = _Tally + USE IN (SELECT('crsNract')) + + Endif && m.llSucces + + + Return m.llSucces + Endproc && pregateste_sectiunea_1_2 + + + * TVA Exigibil + Procedure pregateste_sectiunea_4_5 + If This.oUnitate.tva_incasare = 0 + * 4. Date aferente operatiunilor desfasurate de catre persoana impozabila care aplica sistemul normal de TVA + * 4.1 TVA deductibila aferenta facturilor achitate in perioada de raportare indiferent de data in care acestea au fost primite de la + * persoane impozabile care aplica sistemul de TVA la incasare, defalcata pe fiecare cota de TVA + Insert Into crsSectiuneaI4 (punct, TVA24, TVA20, TVA19, TVA09, TVA05) ; + Select '4.1' As punct, Sum(ro24t) As TVA24, Sum(ro20t) As TVA20, Sum(ro19t) As TVA19, Sum(RO09T) As TVA09, Sum(ro05t) As TVA05 ; + From crsJTVA Where tipj = 'JC' And atribut_fiscal = 'RO' And tva_incasare = 1 And Inlist(tipdoc, 'F', 'M') + Else + * 5. Date aferente operatiunilor desfasurate de catre persoana impozabila care aplica sistemul de TVA la incasare + * 5.1 TVA colectata aferenta facturilor incasate in perioada de raportare indiferent de data in care acestea au fost emise de catre + * persoana impozabila care aplica sistemul de TVA la incasare, defalcata pe fiecare cota de TVA + Insert Into crsSectiuneaI4 (punct, TVA24, TVA20, TVA19, TVA09, TVA05) ; + Select '5.1' As punct, Sum(ro24t) As TVA24, Sum(ro20t) As TVA20, Sum(ro19t) As TVA19, Sum(RO09T) As TVA09, Sum(ro05t) As TVA05 ; + From crsJTVA Where tipj = 'JV' And tva_incasare = 1 And Inlist(tipdoc, 'F', 'M') + + * 5.2 TVA deductibila aferenta facturilor achitate in perioada de raportare indiferent de data in care acestea au fost primite de la + * persoane impozabile care aplica sistemul normal de TVA, defalcata pe fiecare cota de TVA + Insert Into crsSectiuneaI4 (punct, TVA24, TVA20, TVA19, TVA09, TVA05) ; + Select '5.2' As punct, Sum(ro24t) As TVA24, Sum(ro20t) As TVA20, Sum(ro19t) As TVA19, Sum(RO09T) As TVA09, Sum(ro05t) As TVA05 ; + From crsJTVA Where tipj = 'JC' And atribut_fiscal = 'RO' And FACT_TVA_INCASARE = 0 And Inlist(tipdoc, 'F', 'M') + + * 5.3 TVA deductibila aferenta facturilor achitate in perioada de raportare indiferent de data in care acestea au fost primite de la + * persoane impozabile care aplica sistemul de TVA la incasare, defalcata pe fiecare cota de TVA + Insert Into crsSectiuneaI4 (punct, TVA24, TVA20, TVA19, TVA09, TVA05) ; + Select '5.3' As punct, Sum(ro24t) As TVA24, Sum(ro20t) As TVA20, Sum(ro19t) As TVA19, Sum(RO09T) As TVA09, Sum(ro05t) As TVA05 ; + From crsJTVA Where tipj = 'JC' And atribut_fiscal = 'RO' And FACT_TVA_INCASARE = 1 And Inlist(tipdoc, 'F', 'M') + Endif + + Endproc && pregateste_sectiunea_4_5 + + + * 6. TVA colectata aferenta marjei de profit din perioada de raportare indiferent de data la care au fost efectuate operatiunile de catre + * persoanele impozabile care aplica regimul special pt agentiile de turism, pt bunurile second-hand, opere de arta, obiecte de colectie si antichitati + Procedure pregateste_sectiunea_6 + Return .T. + Endproc && pregateste_sectiunea_6 + + + * 7. In situatia in care ati desfasurat, in perioada de raportare, activitati dintre cele inscrise in lista veti selecta activitatea corespunzatoare + * si veti inscrie valoarea livrarilor/prestarilor, precum si TVA aferenta + Procedure pregateste_sectiunea_7 + Local lcCodCaen, lcCodCaen1, lcCodCaen2, lcCodCaenTemp, lcListaCAEN, llSucces + lcCodCaen1 = Alltrim(Nvl(gofirma.caen, '')) + lcCodCaen2 = Alltrim(Nvl(gofirma.caen394, '')) + lcCodCaen = Iif(!Empty(m.lcCodCaen2), m.lcCodCaen2, m.lcCodCaen1) + + lcCodCaenTemp = ',' + m.lcCodCaen + ',' + lcListaCAEN = ',1071,4520,4730,47761,47762,4932,55101,55102,56103,5630,812,9313,9602,9603,' + llSucces = .T. + If !m.lcCodCaenTemp $ m.lcListaCAEN + Return m.llSucces + Endif + + ccsectii() && vnom_sectii + Select id_sectie, sectie, caen From vnom_sectii Where ',' + Alltrim(Nvl(caen, '')) + ',' $ m.lcListaCAEN Into Cursor cSectii394 Readwrite + If _Tally = 0 + Select cSectii394 + Append Blank + Replace caen With m.lcCodCaen + Endif + + Use In (Select('vnom_sectii')) + * Insert Into crsSectiuneaI7 (caen, TIP) Values (m.lcCodCaen, 'LIVRARI') + * Insert Into crsSectiuneaI7 (caen, TIP) Values (m.lcCodCaen, 'PRESTARI') + Use In (Select('cSectii394')) + + Return .T. + + Endproc && pregateste_sectiunea_7 + + Procedure pregateste_sectiunea_amef + Insert Into crsAMEF (TIP, luna, nramef, nrbonuri, incasari, baza05, TVA05, baza09, TVA09, baza19, TVA19, baza20, TVA20, baza24, TVA24) ; + Select 1 As TIP, Month(dataact) As luna, Cast(pounitate.nramef As N(10)) As nramef, Cast(Nvl(b.nr, 0) As N(10)) As nrbonuri, ; + Round(Sum(baza + TVA), 0) As incasari, Round(Sum(baza05), 0) As baza05, Round(Sum(TVA05), 0) As TVA05, Round(Sum(baza09), 0) As baza09, Round(Sum(TVA09), 0) As TVA09, ; + Round(Sum(baza19), 0) As baza19, Round(Sum(TVA19), 0) As TVA19, Round(Sum(baza20), 0) As baza20, Round(Sum(TVA20), 0) As TVA20, Round(Sum(baza24), 0) As baza24, Round(Sum(TVA24), 0) As TVA24 ; + From crsJTVA j Left Join crsBonuriAMEF b On Month(j.dataact) = b.luna ; + Where EMISA_PERIOADA = 1 And tipj = 'JV' And Inlist(Alltrim(tipdoc), 'B', 'C') ; + Group By 1, 2, 3, 4 ; + Union ; + Select 2 As TIP, Month(dataact) As luna, Cast(0 As N(10)) As nramef, Cast(Nvl(b.nr, 0) As N(10)) As nrbonuri, ; + Round(Sum(baza + TVA), 0) As incasari, Round(Sum(baza05), 0) As baza05, Round(Sum(TVA05), 0) As TVA05, Round(Sum(baza09), 0) As baza09, Round(Sum(TVA09), 0) As TVA09, ; + Round(Sum(baza19), 0) As baza19, Round(Sum(TVA19), 0) As TVA19, Round(Sum(baza20), 0) As baza20, Round(Sum(TVA20), 0) As TVA20, Round(Sum(baza24), 0) As baza24, Round(Sum(TVA24), 0) As TVA24 ; + From crsJTVA j Left Join crsBonuriEAMEF b On Month(j.dataact) = b.luna ; + Where EMISA_PERIOADA = 1 And tipj = 'JV' And tipdoc = 'E' ; + Group By 1, 2, 3, 4 ; + Order By 1, 2 + + Return .T. + Endproc && pregateste_sectiunea_amef + + Procedure pregateste_sectiunea_facturi_pers_fizice_10000 + Local llPerioada122016 + llPerioada122016 = Between(m.gnAn * 12 + m.gnLuna, 2016 * 12 + 7, 2016 * 12 + 12) && intre 07/2016 si 12/2016 nu se declara individual facturile < 10.000 lei catre persoanele fizice + + Insert Into crsPersFizice (TIP, NRFACT, baza, baza05, TVA05, baza09, TVA09, baza19, TVA19, baza20, TVA20, baza24, TVA24) ; + Select TIP, Sum(NRFACT) As NRFACT, ; + Sum(baza) As baza, Sum(baza05) As baza05, Sum(TVA05) As TVA05, Sum(baza09) As baza09, Sum(TVA09) As TVA09, ; + Sum(baza19) As baza19, Sum(TVA19) As TVA19, Sum(baza20) As baza20, Sum(TVA20) As TVA20, Sum(baza24) As baza24, Sum(TVA24) As TVA24 ; + From crsJTVA j ; + Where EMISA_PERIOADA = 1 And tipj = 'JV' And Inlist(Alltrim(TIP), 'L', 'LS') And Inlist(tipdoc, 'F', 'M', 'U', 'H') And tippart = 2 And Nvl(TIP_PERSOANA, 0) = 2 And (Abs(baza + TVA) <= 10000) And m.llPerioada122016; + Group By 1 ; + Order By 1 + + Return .T. + Endproc && pregateste_sectiunea_facturi_pers_fizice_10000 + + *=========================================== + Procedure do_genereaza_xdp + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou + + + Local lcAdresa, lcAn, lcCodFiscalF, lcDen, lcLuna, lcSelect, lcTag, lcXDP, llPerioadaDoarRO, lnSeq, llExportSectiuneaI, lnCotaTVAStandard + Local lnTipPart, llTvaNedeductibil + lcSelect = Select() + lcCodFiscalF = Alltrim(gofirma.codfiscalfro) + lcLuna = Padl(Alltrim(Str(gnLuna)), 2, [0]) + lcAn = Alltrim(Str(gnAn)) + lnCotaTVAStandard = Iif(m.gnAn = 2016, 20, 19) + llTvaNedeductibil = (This.oUnitate.tvanedeductibil = 1) + + llPerioadaDoarRO = Between(m.gnAn * 12 + m.gnLuna, 2016 * 12 + 7, 2016 * 12 + 9) && intre 07/2016 si 09/2016 se iau doar partenerii cu RO + llPerioada122016 = Between(m.gnAn * 12 + m.gnLuna, 2016 * 12 + 7, 2016 * 12 + 12) && intre 07/2016 si 12/2016 nu se declara individual facturile < 10.000 lei catre persoanele fizice + + lcDen = XmlSpecialCharacters(RemoveCharacters(Alltrim(gofirma.antet), .T.)) + lcAdresa = XmlSpecialCharacters(RemoveCharacters(Alltrim(gofirma.adresa), .T.)) + + This.TIP = Left(This.oUnitate.TIP, 1) + llExportSectiuneaI = (This.oUnitate.ExportSectiuneaI = 1) + lcXDP = "" + + + Create Cursor cCote (cota N(3)) + Insert Into cCote (cota) Values (24) + Insert Into cCote (cota) Values (20) + Insert Into cCote (cota) Values (19) + Insert Into cCote (cota) Values (9) + Insert Into cCote (cota) Values (5) + Insert Into cCote (cota) Values (0) + *) Tip Cod de inregistrare fiscala + *L/A/V/C/AI/N/LS/AS + + * Centralizator achizitii/livrari defalcat pe tip parteneri 1/2/3/4, parteneri, cote, tip livrare/achizitie, tip document + * Ordonez facturile dupa cota de TVA, sa las nrfact = 1 pe linia cu cota cea mai mare + * In perioada 07/2016-09/2016 se raporteaza doar facturile cu RO + If m.llPerioadaDoarRO + lcWhere = [j.atribut_fiscal = 'RO'] + Else + lcWhere = [.T.] + Endif + + Select Cast(0 As N(20)) As rn, j.seq As id_fact, j.tippart, c.cota, j.denumire As denp, j.cod_fiscalfro As cuip, j.TIP, j.TIP_PERSOANA, ; + j.TARA, j.COD_TARA, j.JUDET, j.COD_JUDET, j.LOCALITATE, j.STRADA, j.Bloc, j.SCARA, j.NUMAR, j.APART, ; + Iif(j.tipdoc = 'F', 1, Iif(j.tipdoc = 'O', 2, Iif(j.tipdoc = 'Z', 3, Iif(j.tipdoc = 'R', 4, 5)))) As tip_document, ; + NRFACT, ; + Iif(c.cota = 24, baza24, Iif(c.cota = 20, baza20, Iif(c.cota = 19, baza19, Iif(c.cota = 9, baza09, Iif(c.cota = 5, baza05, ; + Iif(c.cota = 0, Iif(m.llTvaNedeductibil Or Inlist(j.tipdoc, 'U', 'H') Or Inlist(j.TIP, 'V', 'C') Or tippart = 2, baza00, 0.00), baza20)))))) As baza, ; + Iif(c.cota = 24, TVA24, Iif(c.cota = 20, TVA20, Iif(c.cota = 19, TVA19, Iif(c.cota = 9, TVA09, Iif(c.cota = 5, TVA05, Iif(c.cota = 0, 0, TVA20)))))) As TVA ; + From crsJTVA j, cCote c ; + Where j.EMISA_PERIOADA = 1 And Alltrim(j.TIP) In ('L', 'A', 'V', 'C', 'AI', 'N', 'LS', 'AS') And Inlist(tipdoc, 'F', 'U', 'H', 'O', 'Z', 'R') And &lcWhere ; + Order By 1, 10 Desc ; + Into Cursor cFacturiTemp Readwrite + + * STERG FACTURILE PERSOANE FIZICE < 10.0000 LEI + If m.llPerioada122016 + Delete From cFacturiTemp Where Inlist(Alltrim(TIP), 'L', 'LS') And tippart = 2 And Nvl(TIP_PERSOANA, 0) = 2 And (Abs(baza + TVA) <= 10000) + Endif + + Select cFacturiTemp + Replace All rn With Recno() + + * Sterg toate liniile cu baza = 0 si tva = 0 in afara de prima linie pentru facturile cu valoare totala = 0 + * Facturile care au valoare 0 + Select id_fact, Min(rn) As rn, Sum(baza) As baza, Sum(TVA) As TVA ; + From cFacturiTemp ; + Group By id_fact ; + Having Sum(baza) = 0 And Sum(TVA) = 0 ; + Into Cursor cFacturi0 + + Select F.*, f0.rn As rn0 ; + From cFacturiTemp F Left Join cFacturi0 f0 On F.id_fact = f0.id_fact ; + Into Cursor cFacturitemp2 Readwrite + + Use In (Select('cFacturiTemp')) + Use In (Select('cFacturi0')) + + Delete From cFacturitemp2 Where baza = 0 And TVA = 0 And (rn <> rn0 Or Isnull(rn0)) + + * Pun cota 20 pe facturile cu valoare 0, altfel apar cu 24% sau alta cota + Update cFacturitemp2 Set cota = m.lnCotaTVAStandard Where baza = 0 And TVA = 0 + Update cFacturitemp2 Set cota = 0 Where Inlist(TIP, 'LS', 'AS', 'ASI', 'N', 'V') + * DELETE FROM cFacturiTemp WHERE baza = 0 AND tva = 0 AND RECNO() NOT in (Select rn FROM cFacturi0) && EROARE + + * Actualizez nrfact cu 0 in afara de prima aparitie a fiecarei facturi. S-au multiplicat din cauza join-ului cu cotele de TVA + Select id_fact, Min(rn) As rn ; + From cFacturitemp2 ; + Group By id_fact ; + Into Cursor cFacturi2 + + Update cFacturitemp2 Set NRFACT = 0 Where rn Not In (Select rn From cFacturi2) + Use In (Select('cFacturi2')) + + Update cFacturitemp2 Set LOCALITATE = '' Where LOCALITATE = '' + + Select tippart, Cast(0 As i) As seq, cota, denp, cuip, TIP, tip_document, TIP_PERSOANA, ; + TARA, COD_TARA, JUDET, COD_JUDET, LOCALITATE, STRADA, Bloc, SCARA, NUMAR, APART, ; + Sum(NRFACT) As NRFACT, ; + Round(Sum(baza), 0) As baza, ; + Round(Sum(TVA), 0) As TVA ; + From cFacturitemp2 ; + Group By 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18 ; + Order By tippart, denp, cota, TIP ; + Into Cursor cFacturi Readwrite + + Use In (Select('cFacturiTemp2')) + + *!* Select j.tippart, Cast(0 As i) As seq, c.cota, j.denumire As denp, j.cod_fiscalfro As cuip, j.TIP, ; + *!* IIF(j.tipdoc = 'F', 1, Iif(j.tipdoc = 'O', 2, Iif(j.tipdoc = 'Z', 3, 1))) As tip_document, ; + *!* SUM(NRFACT) As NRFACT, ; + *!* SUM(Iif(c.cota = 24, baza24, Iif(c.cota = 20, baza20, Iif(c.cota = 19, baza19, Iif(c.cota = 9, baza09, Iif(c.cota = 5, baza05, Iif(c.cota = 0, baza00, baza20))))))) As baza, ; + *!* SUM(Iif(c.cota = 24, TVA24, Iif(c.cota = 20, TVA20, Iif(c.cota = 19, TVA19, Iif(c.cota = 9, TVA09, Iif(c.cota = 5, TVA05, Iif(c.cota = 0, 0, TVA20))))))) As TVA ; + *!* FROM crsJTVA j, cCote c ; + *!* WHERE Alltrim(j.TIP) In ('L','A','V','C','AI','N','LS','AS') ; + *!* GROUP By 1,2,3,4,5,6,7 ; + *!* ORDER By j.tippart, j.denumire, c.cota, j.TIP ; + *!* INTO Cursor cFacturi Readwrite + + lnSeq = 1 + lnTipPart = 0 + Select cFacturi + Scan + If lnTipPart <> tippart + lnSeq = 1 + Else + lnSeq = lnSeq + 1 + Endif + lnTipPart = cFacturi.tippart + Replace seq With m.lnSeq In cFacturi + Endscan + + Text To lcXDP Additive Textmerge Noshow Pretext 1 + + + + + + + + + +
+ + <><><><><> + <> + + + <><><><><> + <>0<> + + + + Endtext + + + * Sectiunea Facturi + Set Textmerge On To Memvar lcXDP Additive Noshow +\ + lnTipPart = 0 + lnNrFacturi = 0 + Select cFacturi + Scan + * Exceptie : Pentru perioada 01.07.2016 - 31.12.2016 in cazul selectarii tip L pentru facturi emise catre persoane fizice, + * cu valoare individuala/persoana mai mica sau egala cu 10.000 lei + * Le-am sters la inceput + *!* If cFacturi.tippart = 2 AND cFacturi.tip_persoana = 2 and cFacturi.TIP = 'L' And ABS(cFacturi.baza + cFacturi.TVA) <= 10000 AND m.llPerioada122016 && persoane fizice + *!* Loop + *!* Endif + lnNrFacturi = lnNrFacturi + 1 + + If m.lnTipPart <> cFacturi.tippart + If m.lnTipPart <> 0 +\ + Endif + + Do Case + Case tippart = 1 +\ + Case tippart = 2 +\ + Case tippart = 3 +\ + Case tippart = 4 +\ + Endcase + +\ +\<> + Endif +\ +\ +\ <> +\ <> +\ <> +\ <> +\ <> +\ <> +\ <> +\ <> + If cFacturi.tippart = 2 && persoane neinregistrate in scopuri TVA + If ALLTRIM(cFacturi.TIP) = 'N' && persoane neinregistrate in scopuri TVA +\ <> + ENDIF +\ +\ <> +\ <> +\ <> +\ <> +\ <> +\ <> +\ <> +\ + Endif +\ + If cFacturi.tippart = 2 OR INLIST(ALLTRIM(cFacturi.tip), 'V', 'C') && persoane neinregistrate in scopuri TVA sau taxare inversa, completez produsele - nu am produse :(, doar nrfacturi, baza si tva +\ +\ +\ 1 +\ +\ <> +\ <> +\ <> +\ + ENDIF && tippart = 2 OR INLIST(ALLTRIM(tip), 'V', 'C') +\ + + lnTipPart = cFacturi.tippart + ENDSCAN && cFacturi + IF m.lnNrFacturi > 0 +\ + ENDIF + * Sectiunea AMEF +\ +\ + + Select crsAMEF + Scan +\ +\ <> +\ <> +IF tip <> 2 +\ <> +\ <> +ENDIF +\ <> +\ 5<><> +\ 9<><> +\ 19<><> +\ 20<><> +\ + Endscan && crsAMEF + +\ + Select crsPersFizice + Scan + If Alltrim(TIP) == 'L' +\ +\ <> +\ <><> +\ <><> +\ <><> +\ <><> +\ <><> + Else +\ +\ <> +\ <> + Endif + Endscan +\ +\ + +IF m.llExportSectiuneaI + * Sectiunea I1 facturi simplificate si bonuri fiscale cu CUI +\ +\ +\ + Select crsSectiuneaI + Scan + lcTag = Iif(punct = '1.1', 'L', Iif(punct = '1.2', 'LI', Iif(punct = '1.3', 'A', Iif(punct = '1.4', 'AI', Iif(punct = '1.5', 'AB', 'L'))))) + Alltrim(Str(proctva)) && L24 +\<<'<' + m.lcTag + '>'>><><>'>> + Endscan +\ +\ + + * Sectiunea I2 Alte informatii +\ +\ + Select crsFacturiAlocate + Scan +\ <><><><> + Endscan +\ +\ + +\ <> + Select crsFacturiEmise + Scan +\ <><><><> + Endscan + +\ +\ +\ +\ + Sele crsFacturiEmiseTip + Scan +\ +\ <> +\ <> +\ <> + If ntip = 3 && autofacturare + Select crsAutoFacturi + Locate For Alltrim(crsAutoFacturi.seria) = Alltrim(crsFacturiEmiseTip.seria) And crsAutoFacturi.nr = crsFacturiEmiseTip.nr + If Found() +\ +\ <><> +\ <><> +\ <><> +\ <><> +\ <><> +\ + Endif && FOUND + Endif +\ + Endscan && crsFacturiEmiseTip + +\ + +\ +\ +\ <> + + Select crsFacturiTerti + SCAN FOR punct = '2.3' +\ <><><><><><> + ENDSCAN +\ + +\ +\ +\ <> + Select crsFacturiTerti + SCAN FOR punct = '2.4' +\ <><><><><><> + ENDSCAN +\ + +\ + + * Sectiunea 4 + Select crsSectiuneaI4 + Locate For punct = '4.1' + If Found() +\ <><><><><> + Endif && FOUND + + * Sectiunea 5 +\ + Select crsSectiuneaI4 + Locate For punct = '5.1' + If Found() +\ <><><><><> + Endif + Locate For punct = '5.2' + If Found() +\ <><><><><> + Endif + Locate For punct = '5.3' + If Found() +\ <><><><><> + Endif + + * Nu am adunat date despre sectiunea 6 si 7 + If .F. +\ +\ +\ +\ +\ 1 +\ 4520 +\ 1001 +\ +\ +\ 201 +\ +\ +\ +\ 2 +\ 4520 +\ 1000 +\ +\ 90 +\ +\ +\ +\ + Endif && .F. + +\ + +ENDIF && llExportSectiuneaI + + * Reprezentant fiscal +\ +\ +\ <> +\ <> +\ <> +\ <> +\ <> +\ <> +\ +\ +\ +\<> +\<> +\<> +\<> +\<> +\<> +\<> +\<> +\0 +\<> +\ + +\ + +\ + +\ +\ +\ +\ + Set Textmerge To + + Wait Window "Se exporta datele in format PDF" Nowait + Strtofile(lcXDP, tcFisierXDP) + If File(tcFisierXDP) + *** copiez fisierul pdf inteligent original in directorul de export + If File(m.tcFisierPDFOriginal) + Copy File (tcFisierPDFOriginal) To (tcFisierPDFNou) + Else + open_default_app("http://static.anaf.ro/static/10/Anaf/Declaratii_R/394.html") + amessagebox('Nu exista fisierul ' + m.lcFisierPDFOriginal + CRLF + ; + 'Copiati pdf-ul inteligent D394 de pe website-ul ANAF in directorul ' + Justpath(m.lcFisierPDFOriginal) + CRLF + ; + 'cu numele ' + Justfname(m.lcFisierPDFOriginal) + '.', 0 + 48, _Screen.Caption) + Endif + Endif + + Select (lcSelect) + + Endproc && do_genereaza_xdp + + *========================================== + Procedure UpdatePDF + Lparameters tcPDFFile + *** tcPDFFile: calea completa a fisierului pdf D:\CONTAFIN\COMUNCONTAFIN\d390.pdf + + Local lcFile, lcPath, llOpen + lcFile = Justfname(m.tcPDFFile) + lcPath = Addbs(Justpath(m.tcPDFFile)) + llOpen = .F. + + Return DownloadSupportFile(m.lcFile, m.lcPath, m.llOpen) && proceduri_comune.prg + + Endproc && UpdatePDF + + Procedure do_executa + + *** EXPORT D394 + Local lcAppPath, lcCaleFisier, lcCaleFisierPDF, lcComunPath, lcFileName, lcFileNamePDF + Local lcFisierPDFNou, lcFisierPDFOriginal, lcFisierTXT, lcFisierXDP, lcFisierXLS, lcMesaj + Local lcNumeFisier, lcRun, lcTempPath, llSucces, lnPos, loEx, lcCaenRevizie, lnCaenRevizie + lcAppPath = Addbs(gcAppPath) + lcComunPath = lcAppPath + lnPos = Rat("\", Addbs(m.lcAppPath), 2) + If lnPos > 0 + lcComunPath = Left(m.lcAppPath, lnPos) + Endif + lcComunPath = lcComunPath + Iif(gcAppName = "CONCONT", "COMUNCONTAFIN\", "COMUNROA\") && d:\contafin\comuncontafin\ + + *** Creez structura director export (caletemp\D394\aaaa_ll\firma\ + llSucces = .F. + Try + lcTempPath = m.gcBasePath + lcCaleFisier = m.lcTempPath + "D394\" && c:\temp\D394\ + + If !Directory(m.lcCaleFisier) + Md (m.lcCaleFisier) + Endif + + lcCaleFisier = m.lcCaleFisier + Alltrim(Str(gnAn)) + "_" + Padl(Alltrim(Str(gnLuna)), 2, "0") + "\"&& c:\temp\D394\2011_01\ + If !Directory(m.lcCaleFisier) + Md (m.lcCaleFisier) + Endif + + lcCaleFisier = m.lcCaleFisier + Strtran(gcFirma, [ ], [_]) + "\" && c:\temp\D390\2011_01\firma\ + If !Directory(m.lcCaleFisier) + Md (m.lcCaleFisier) + Endif + + lcCaleFisierPDF = m.lcCaleFisier && c:\temp\D394\2011_01\firma\ + If !Directory(m.lcCaleFisierPDF) + Md (m.lcCaleFisierPDF) + Endif + This.CaleFisierPDF = m.lcCaleFisierPDF + + llSucces = .T. + Catch To loEx + lcMesaj = "Creare director " + lcCaleFisier + " " + loEx.Message + + amessagebox(lcMesaj, 0 + 48) + Endtry + If !m.llSucces + Return + Endif + + If Type('gofirma.codfiscalfro') = 'U' + AddProperty(gofirma, 'codfiscalfro', Strtran(Alltrim(Nvl(gofirma.cod_fiscal, '')), 'RO', '')) + Endif + + lcCaenRevizie = NVL(goFirma.caen_revizie, '2') + lnCaenRevizie = INT(VAL(m.lcCaenRevizie)) + + lcNumeFisier = "d394_" + gofirma.codfiscalfro + "_" + Alltrim(Str(gnAn)) + "_" + Padl(gnLuna, 2, "0") + Do Case + Case m.gnAn * 12 + m.gnLuna >= 2025 * 12 + 1 AND m.lnCaenRevizie >= 3 + * Cod CAEN rev. 3 + lcFisierPDFOriginal = lcComunPath + "d394_202501_v3.pdf" + + Case m.gnAn * 12 + m.gnLuna >= 2022 * 12 + 4 + lcFisierPDFOriginal = lcComunPath + "d394_202204.pdf" + Case m.gnAn * 12 + m.gnLuna >= 2020 * 12 + 9 + lcFisierPDFOriginal = lcComunPath + "d394_202009.pdf" + Case m.gnAn * 12 + m.gnLuna >= 2018 * 12 + 1 + lcFisierPDFOriginal = lcComunPath + "d394_201801.pdf" + Case m.gnAn * 12 + m.gnLuna >= 2017 * 12 + 1 + lcFisierPDFOriginal = lcComunPath + "d394_201701.pdf" + Case m.gnAn * 12 + m.gnLuna >= 2016 * 12 + 7 + lcFisierPDFOriginal = lcComunPath + "d394_201607.pdf" + Otherwise + lcFisierPDFOriginal = lcComunPath + "d394_201607.pdf" + Endcase + + This.UpdatePDF(m.lcFisierPDFOriginal) && actualizez pdf de la romfast + + lcFileName = m.lcCaleFisier + lcNumeFisier + + lcFileNamePDF = m.lcCaleFisierPDF + lcNumeFisier + lcFisierPDFNou = m.lcFileNamePDF + [.pdf] + lcFisierXDP = m.lcFileNamePDF + [.xdp] + + lcFisierTXT = m.lcFileName + [.txt] + lcFisierXLS = m.lcFileName + [.xls] + + If File(lcFisierTXT) + Delete File (lcFisierTXT) + Endif + If File(lcFisierPDFNou) + Delete File (lcFisierPDFNou) + Endif + If File(lcFisierXDP) + Delete File (lcFisierXDP) + Endif + + This.do_genereaza_xdp(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + + If File(lcFisierXDP) And File(m.lcFisierPDFNou) + open_default_app(lcFisierXDP) + Endif + + *** deschid explorer in directorul de export + lcRun = [RUN /N7 explorer.exe "] + m.lcCaleFisier + ["] + &lcRun + Endproc && do_executa + + Procedure do_verifica_xml + Local loProcess As "api_apprun" Of "process.vcx" + Local lcAppPath, lcBilantValidatorFile, lcComunPath, lcFisierXML, lnPos + lcAppPath = Addbs(gcAppPath) + lcComunPath = m.lcAppPath + lnPos = Rat("\", Addbs(m.lcAppPath), 2) + If m.lnPos > 0 + lcComunPath = Left(m.lcAppPath, m.lnPos) + Endif + lcComunPath = m.lcComunPath + Iif(gcAppName = "CONCONT", "COMUNCONTAFIN\", "COMUNROA\") && d:\contafin\comuncontafin\ + + lcBilantValidatorFile = m.lcComunPath + [dist\DUKIntegrator.jar] + + amessagebox('Validati fisierul PDF si salvati fisierul D394.xml in directorul ' + This.CaleFisierPDF + Chr(13) + Chr(10) + ; + 'Dupa ce porneste validatorul ANAF, apasati validare in validator pentru a verifica fisierul XML.', 0 + 48, _Screen.Caption) + + lcFisierXML = Addbs(This.CaleFisierPDF) + 'D394.xml' + If !File(m.lcFisierXML) + amessagebox('Nu exista fisierul ' + m.lcFisierXML + Chr(13) + Chr(10) + 'Alegeti fisierul D394.xml!', 0 + 48, _Screen.Caption) + lcFisierXML = Getfile('xml', 'D394.xml', 'Deschide', 0, 'Alegeti fisierul D394.xml') + Endif + + loProcess = Newobject("api_apprun", "process.vcx") + loProcess.icLaunchDir = Justpath(m.lcBilantValidatorFile) + loProcess.iccommandline = [java -jar "DUKIntegrator.jar" ] + m.lcFisierXML + + *!* loProcess.launchappandwait() + m.loProcess.launchapp() + Endproc && do_verifica_xml + +Enddefine && D394_2016 +************************************************************************* + +Define Class D394 As Custom + + livb = 0 && baza livrari + livt = 0 && tva livrari + livnrf = 0 && numar facturi pentru livrari + livtib = 0 && baza livrari taxare inversa + livtit = 0 && tva livrari taxare inversa + livtinrf = 0 && numar facturi pentru livrari taxare inversa + achb = 0 && baza achizitii + acht = 0 && tva achizitii + achnrf = 0 && numar facturi pentru achizitii + achtib = 0 && baza achizitii taxare inversa + achtit = 0 && tva achizitii taxare inversa + achtinrf = 0 && numar facturi pentru achizitii taxare inversa + + Total = 0 + rectificativa = 0 + TIP = 'L' + Perioada = 1 + NumarCoduriFiscale = 0 + + Procedure do_executa + Lparameters tlSilent, tnNumarLuni + *** tlSilent: .T. (DEFAULT .F.) Doar calculeaza D394, nu exporta XDP. pentru apelarea din D300 randurile 17.1 si 27.1 (nu vreau sa vad si pdf-ul inteligent D394) + *** tnNumarLuni: 1,3,6,9,12 - pentru apelare din D300 + + Local loDecl As "frm_decl394" + Local loFrmDoc As "frm_decl_tipdoc" + Local lcAppPath, lcCaleFisier, lcCaleFisierPDF, lcComunPath, lcConditieAct, lcConditieLuna, lcCursor + Local lcFileName, lcFileNamePDF, lcFisierPDFNou, lcFisierPDFOriginal, lcFisierTXT, lcFisierXDP + Local lcFisierXLS, lcMesaj, lcNumeFisier, lcRun, lcSelect, lcSirId, lcSql, lcTempPath, lcTip + Local llSucces, lnAn, lnLuna1, lnLuna2, lnLunaF, lnLunaI, lnNrLuni1, lnNrLuni2, lnNumarLuni + Local lnPerioada, lnPos, lnSucces, loEx + Local llSilent, llSucces + + llSilent = m.tlSilent + lnNumarLuni = Iif(!Empty(m.tnNumarLuni), m.tnNumarLuni, 1) + lcTip = Iif(m.lnNumarLuni = 1, "LUNAR", Iif(m.lnNumarLuni = 3, "TRIMESTRIAL", Iif(m.lnNumarLuni = 6, "SEMESTRIAL", "ANUAL"))) + + lcSelect = Select() + + *** EXPORT D394 + lcAppPath = Addbs(gcAppPath) + lcComunPath = lcAppPath + lnPos = Rat("\", Addbs(m.lcAppPath), 2) + If lnPos > 0 + lcComunPath = Left(m.lcAppPath, lnPos) + Endif + lcComunPath = lcComunPath + Iif(gcAppName = "CONCONT", "COMUNCONTAFIN\", "COMUNROA\") && d:\contafin\comuncontafin\ + + *** Creez structura director export (caletemp\D394\aaaa_ll\firma\ + llSucces = .F. + Try + lcTempPath = m.gcBasePath + lcCaleFisier = m.lcTempPath + "D394\" && c:\temp\D394\ + + If !Directory(m.lcCaleFisier) + Md (m.lcCaleFisier) + Endif + + lcCaleFisier = m.lcCaleFisier + Alltrim(Str(gnAn)) + "_" + Padl(Alltrim(Str(gnLuna)), 2, "0") + "\"&& c:\temp\D394\2011_01\ + If !Directory(m.lcCaleFisier) + Md (m.lcCaleFisier) + Endif + + lcCaleFisier = m.lcCaleFisier + Strtran(gcFirma, [ ], [_]) + "\" && c:\temp\D390\2011_01\firma\ + If !Directory(m.lcCaleFisier) + Md (m.lcCaleFisier) + Endif + + lcCaleFisierPDF = m.lcCaleFisier && c:\temp\D394\2011_01\firma\ + If !Directory(m.lcCaleFisierPDF) + Md (m.lcCaleFisierPDF) + Endif + + llSucces = .T. + Catch To loEx + lcMesaj = "Creare director " + lcCaleFisier + " " + loEx.Message + + amessagebox(lcMesaj, 0 + 48) + Endtry + If !llSucces + Return + Endif + + If Type('gofirma.codfiscalfro') = 'U' + AddProperty(gofirma, 'codfiscalfro', Strtran(Alltrim(gofirma.cod_fiscal), 'RO', '')) + Endif + + lcNumeFisier = "d394_" + gofirma.codfiscalfro + "_" + Alltrim(Str(gnAn)) + "_" + Padl(gnLuna, 2, "0") + Do Case + Case m.gnAn * 12 + m.gnLuna <= 2013 * 12 + 11 + lcFisierPDFOriginal = lcComunPath + "d394.pdf" && d:\contafin\comuncontafin\d394.pdf + Otherwise + lcFisierPDFOriginal = lcComunPath + "d394_201312.pdf" && d:\contafin\comuncontafin\d394_201312.pdf + Endcase + If !m.llSilent + This.UpdatePDF(m.lcFisierPDFOriginal) && actualizez pdf de la romfast + Endif + + lcFileName = m.lcCaleFisier + lcNumeFisier + + lcFileNamePDF = m.lcCaleFisierPDF + lcNumeFisier + lcFisierPDFNou = m.lcFileNamePDF + [.pdf] + lcFisierXDP = m.lcFileNamePDF + [.xdp] + + lcFisierTXT = m.lcFileName + [.txt] + lcFisierXLS = m.lcFileName + [.xls] + + *!* 21.02.2012 + If !m.llSilent + If File(lcFisierTXT) + Delete File (lcFisierTXT) + Endif + If File(lcFisierPDFNou) + Delete File (lcFisierPDFNou) + Endif + If File(lcFisierXDP) + Delete File (lcFisierXDP) + Endif + Endif + *!* 21.02.2012 ^ + + + Private pounitate + pounitate = Createobject("empty") + + AddProperty(pounitate, "an", gnAn) + AddProperty(pounitate, "tip", m.lcTip) + AddProperty(pounitate, "luniextra", 0) + *!* 23.07.2010 + AddProperty(pounitate, "tvanedeductibil", .F.) + *!* 23.07.2010 ^ + AddProperty(pounitate, "codi", Strtran(Strtran(Alltrim(Upper(Nvl(gofirma.cod_fiscal, ''))), 'RO', ''), 'R', '')) + AddProperty(pounitate, "deni", Nvl(Alltrim(gofirma.firma), '')) + AddProperty(pounitate, "adr", Nvl(Alltrim(gofirma.adresa), '')) + AddProperty(pounitate, "tel", Nvl(Alltrim(gofirma.telefon), '')) + AddProperty(pounitate, "fax", Nvl(Alltrim(gofirma.fax), '')) + AddProperty(pounitate, "email", Nvl(Alltrim(gofirma.email), '')) + + AddProperty(pounitate, "taraR", "") + AddProperty(pounitate, "codiR", "") + AddProperty(pounitate, "deniR", "") + AddProperty(pounitate, "adrR", "") + AddProperty(pounitate, "telR", "") + AddProperty(pounitate, "faxR", "") + AddProperty(pounitate, "emailR", "") + + AddProperty(pounitate, "numeD", "") + AddProperty(pounitate, "functieD", "") + AddProperty(pounitate, "rectificativa", 0) + + loDecl = Createobject("frm_decl394") + loDecl.Show(1) + + If gnButon = 2 + Return + Endif + + *!* 05.11.2009 + lnAn = pounitate.an + lcTip = pounitate.TIP + lnNumarLuni = Iif(m.lcTip = "TRIMESTRIAL", 3, Iif(m.lcTip = "SEMESTRIAL", 6, Iif(m.lcTip = "ANUAL", 12, 1))) + This.TIP = Left(m.lcTip, 1) + * Luna de inceput a perioadei + * 1 = gnLuna + * 3 = 1,4,7,10 + * 6 = 1,7 + * 12 = 1 + lnPerioada = Ceil(m.gnLuna / m.lnNumarLuni) + This.Perioada = m.lnPerioada + lnLuna1 = (lnPerioada - 1) * lnNumarLuni + 1 + lnLuna2 = lnPerioada * lnNumarLuni + + *** dataact + lnLunaI = lnAn * 12 + lnLuna1 + lnLunaF = lnAn * 12 + lnLuna2 + *** dataact ^ + + *** luna/an contabil + lnNrLuni1 = lnAn * 12 + lnLuna1 + lnNrLuni2 = lnAn * 12 + lnLuna2 + pounitate.luniExtra + *** luna/an contabil ^ + + *!* ID-URI DE TIPURI DOCUMENTE CARE REPREZINTA FACTURI + If pounitate.luniExtra = 0 + lcConditieLuna = [ (AN = ] + Alltrim(Str(m.lnAn)) + [ and (luna BETWEEN ] + Alltrim(Str(m.lnLuna1)) + [ and ] + Alltrim(Str(m.lnLuna2)) + [ ))] + Else + lcConditieLuna = [ (AN * 12 + LUNA BETWEEN ] + Alltrim(Str(m.lnNrLuni1)) + [ and ] + Alltrim(Str(m.lnNrLuni2)) + [)] + Endif + + *** iau doar facturile din luna emiterii + *!* lcConditieAct = [ and (extract(year from dataact)*12+extract(month from dataact) between ] + Alltrim(Str(m.lnLunaI)) + [ and ] + Alltrim(Str(m.lnLunaF)) + [)] + lcConditieAct = [ and (extract(year from dataact)*12+extract(month from dataact) = an*12+luna)] + + Text To lcSql Textmerge Noshow + SELECT 0 AS ALES, FEL_DOCUMENT AS FDOC, ID_FDOC + FROM vjv2010 + WHERE + <> + <> + <> + UNION + SELECT 0 AS ALES, FEL_DOCUMENT AS FDOC, ID_FDOC + FROM vjc2010 + WHERE + <> + <> + <> + Endtext + goLog.Log(lcSql) + + *!* AND SUBSTR(TRIM(UPPER(COD_FISCAL)),1,2) = 'RO' + + *!* 05.11.2009 ^ + lnSucces = goExecutor.oExecute(lcSql, "crsFdoc") + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Update crsFDoc Set ales = 1 Where Alltrim(fdoc) = 'FACTURA' + Go Top In crsFDoc + + loFrmDoc = Createobject("frm_decl_tipdoc", "394") + loFrmDoc.Show(1) + + lcSirId = "" + Select id_fdoc From crsFDoc With (Buffering = .T.) Where ales = 1 Into Cursor crsFdocTemp + If _Tally = 0 + amessagebox('Trebuie sa alegeti un tip de document!', 0 + 48, 'Atentie') + Use In crsFDoc + Use In crsFdocTemp + Return + Endif + Use In crsFDoc + Select crsFdocTemp + Scan + lcSirId = lcSirId + [, ] + Alltrim(Str(id_fdoc)) + Endscan + If !Empty(lcSirId) + lcSirId = Substr(lcSirId, 2) + Endif + Use In crsFdocTemp + + *!* 05.11.2009 + Text To lcSql Textmerge Noshow + SELECT ID_PART, COD_FISCAL, REGEXP_REPLACE(COD_FISCAL, '[^[:digit:]]', '') AS COD_FISCALFRO, SUBSTR(TRIM(UPPER(COD_FISCAL)),1,2) AS ATRIBUT_FISCAL, DENUMIRE, + ROUND(SUM(RO24B + RO20B + RO19B + RO9B + RO5B + RO24NB + RO20NB + RO9NB + RO5NB), 0) AS BAZA, + ROUND(SUM(RO24T + RO20T + RO19T + RO9T + Ro5T + RO24NT + RO20NT + RO9NT + RO5NT), 0) AS TVA, + ROUND(SUM(ROTI), 0) AS TIBAZA, + 0 AS TITVA, + SUM(case when ROTI = 0 then 1 else 0 end ) as NRFACT, + SUM(case when ROTI <> 0 then 1 else 0 end ) as NRFACTTI + FROM VJV2013 + WHERE + <> + <> + AND ID_FDOC IN (<>) + <> + GROUP BY ID_PART, COD_FISCAL, REGEXP_REPLACE(COD_FISCAL, '[^[:digit:]]', ''), SUBSTR(TRIM(UPPER(COD_FISCAL)),1,2), DENUMIRE + Endtext + + *!* AND SUBSTR(TRIM(UPPER(COD_FISCAL)),1,2) = 'RO' + + goLog.Log(lcSql) + + *!* 05.11.2009 ^ + + lcCursor = [crsJV] + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Update crsJV Set atribut_fiscal = '' Where Isdigit(atribut_fiscal) + + *!* 23.07.20010 RO24, ROSCN OPTIONAL + *!* 05.11.2009 + *!* [ SUM(RO19BCB + RO19BVB + RO19BFB + RO09BCB + RO09BVB + RO09BFB + RO05B) AS BAZA, ] + Text To lcSql Textmerge Noshow + SELECT ID_PART, COD_FISCAL, REGEXP_REPLACE(COD_FISCAL, '[^[:digit:]]', '') AS COD_FISCALFRO, SUBSTR(TRIM(UPPER(COD_FISCAL)),1,2) AS ATRIBUT_FISCAL, DENUMIRE, + ROUND(SUM(RO24B + RO20B + RO19B + RO09B + RO05B + RO24NB + RO20NB + RO9NB + RO5NB <>), 0) AS BAZA, + ROUND(SUM(RO24T + RO20T + RO19T + RO09T + RO05T + RO24NT + RO20NT + RO9NT + RO5NT), 0) AS TVA, + ROUND(SUM(TI19B + TI09B + TI20B + TI24B), 0) as TIBAZA, + ROUND(SUM(TI19T + TI09T + TI20T + TI24T), 0) as TITVA, + SUM(case when TI19B = 0 and TI09B = 0 and TI20B = 0 and TI24B = 0 then 1 else 0 end ) as NRFACT, + SUM(case when TI19B <> 0 or TI09B <> 0 or TI20B <> 0 or TI24B <> 0 then 1 else 0 end ) as NRFACTTI + FROM VJC2013 + WHERE + <> + <> + AND ID_FDOC IN (<>) + <> + GROUP BY ID_PART, COD_FISCAL, REGEXP_REPLACE(COD_FISCAL, '[^[:digit:]]', ''), SUBSTR(TRIM(UPPER(COD_FISCAL)),1,2), DENUMIRE + Endtext + + *!* AND SUBSTR(TRIM(UPPER(COD_FISCAL)),1,2) = 'RO' + + goLog.Log(lcSql) + *!* 05.11.2009 ^ + *!* 23.07.20010 ^ + + lcCursor = [crsJC] + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Update crsJC Set atribut_fiscal = '' Where Isdigit(atribut_fiscal) + + Create Cursor crsTipA (TIP c(1)) + Insert Into crsTipA (TIP) Values ('A') + If m.gnAn > 2011 + Insert Into crsTipA (TIP) Values ('C') && ACHIZITII TAXARE INVERSA + Endif + + Create Cursor crsTipL (TIP c(1)) + Insert Into crsTipL (TIP) Values ('L') + If m.gnAn > 2011 + Insert Into crsTipL (TIP) Values ('V') && LIVRARI TAXARE INVERSA + Endif + + Select b.TIP, id_part, Left(cod_fiscal, 30) As cod_fiscal, Left(cod_fiscalfro, 30) As cod_fiscalfro, Padr(Nvl(atribut_fiscal, ''), 2, ' ') As atribut_fiscal, denumire, ; + Cast(Iif(b.TIP = 'A', baza, tibaza) As N(20)) As baza, ; + Cast(Iif(b.TIP = 'A', TVA, titva) As N(20)) As TVA, ; + Cast(Iif(b.TIP = 'A', NRFACT, NRFACTTI) As N(20)) As NRFACT ; + From crsJC a, crsTipA b ; + Where a.baza <> 0 Or a.TVA <> 0 Or NRFACT <> 0 Or a.tibaza <> 0 Or a.titva <> 0 Or NRFACTTI <> 0 ; && modificare v 2.5.26 + Union ; + Select b.TIP, id_part, Left(cod_fiscal, 30) As cod_fiscal, Left(cod_fiscalfro, 30) As cod_fiscalfro, Padr(Nvl(atribut_fiscal, ''), 2, ' ') As atribut_fiscal, denumire, ; + Cast(Iif(b.TIP = 'L', baza, tibaza) As N(20)) As baza, ; + Cast(Iif(b.TIP = 'L', TVA, titva) As N(20)) As TVA, ; + Cast(Iif(b.TIP = 'L', NRFACT, NRFACTTI) As N(20)) As NRFACT ; + From crsJV a, crsTipL b ; + Where a.baza <> 0 Or a.TVA <> 0 Or NRFACT <> 0 Or a.tibaza <> 0 Or a.titva <> 0 Or NRFACTTI <> 0 ; && modificare v 2.5.26 : HAVING BAZA <> 0 Or TVA <> 0 OR TIBAZA <> 0 OR TITVA <> 0 + Order By 1 Desc, 4 ; + Into Cursor crsD394Temp Readwrite + + Use In (Select('crsTipA')) + Use In (Select('crsTipL')) + Use In (Select('crsJV')) + Use In (Select('crsJC')) + + *** verificare coduri fiscale parteneri si alegere care dintre ei sa intre in D394 (coloana ales) + *!* Create Cursor crsVerificareParteneri (ales L, denumire c(100) Null, cod_fiscal c(30) Null, Valid L Null, firma c(100) Null, cod c(100) Null, adresa c(250) Null, ; + *!* judet c(100) Null, regcom c(30) Null, codpostal c(20) Null, telefon c(30) Null, fax c(30) Null, ; + *!* datatvamfin c(30) Null, platitortvamfin L Null, VIES L Null, PlatitorTVA L Null, eroare c(250) Null, iscif L Null, duplicat L, atribut_fiscal c(2), stare c(100), atentie c(100), ; + *!* cod_fiscalfro c(30) Null, id_part N(16)) + + Create Cursor crsVerificareParteneri (ales L, denumire c(100) Null, cod_fiscal c(30) Null, Valid L Null, firma c(100) Null, cod c(100) Null, adresa c(250) Null, ; + JUDET c(100) Null, regcom c(30) Null, codpostal c(20) Null, telefon c(30) Null, fax c(30) Null, ; + datatvamfin c(30) Null, platitortvamfin L Null, VIES L Null, PlatitorTVA L Null, eroare c(250) Null, iscif L Null, duplicat L, atribut_fiscal c(2), stare c(100), atentie c(100), cod_fiscalfro c(30) Null, id_part N(16), ; + tvaincasare L, splittva L, inactiv L, Data D) + + Select Distinct id_part, cod_fiscal, cod_fiscalfro, atribut_fiscal, denumire ; + From crsD394Temp Order By denumire ; + Into Cursor crsCoduriFiscale + + Select crsVerificareParteneri + Append From Dbf('crsCoduriFiscale') + + + loVerificare = Createobject("verificarecod") && validare.prg + + Select crsVerificareParteneri + Replace All ales With (atribut_fiscal = 'RO') + *!* loVerificare = Createobject("verificarecod") && validare.prg + *!* Select crsVerificareParteneri + *!* Replace All IsCIF With loVerificare.IsCIF(COD_FISCAL) + *!* Replace All Valid With Iif(IsCIF, loVerificare.validare('CIF', COD_FISCAL), loVerificare.validare('CNP', COD_FISCAL)) + *!* Replace all ales with (IsCIF and valid and atribut_fiscal = 'RO') + + llSucces = .T. + If !m.llSilent + Local llValidare, llMFIN, llVIES, llAutoVerificare + llValidare = .T. + llMFIN = .T. + llVIES = .F. + llAutoVerificare = .F. + + loVerificareParteneri = Createobject("frm_verificare_parteneri", m.llValidare, m.llMFIN, m.llVIES, m.llAutoVerificare, .T., .T.) && parteneri.vcx + + loVerificareParteneri.lb_titlu_alb_b121.Caption = "D394 - Doar partenerii marcati ALES intra in declaratie! Verificati codurile fiscale!!" + loVerificareParteneri.chkExperimental.Value = .T. + loVerificareParteneri.do_verifica(.T., .F., .F.) + loVerificareParteneri.Show(1) + llSucces = (m.gnButon = 1) + Endif + + If m.llSucces + Select D.TIP, D.cod_fiscalfro As cod_fiscal, Max(D.denumire) As denumire, Sum(D.baza) As baza, Sum(D.TVA) As TVA, Sum(D.NRFACT) As NRFACT ; + From crsD394Temp D Join crsVerificareParteneri V On D.id_part = V.id_part ; + Where V.ales ; + Group By D.TIP, D.cod_fiscalfro ; + Order By 1 Desc, 3 ; + Into Cursor crsD394 + + Use In (Select('crsVerificareParteneri')) + + Select crsD394 + Calculate Sum(Iif(TIP = 'A', baza, 0)), Sum(Iif(TIP = 'A', TVA, 0)), Sum(Iif(TIP = 'A', NRFACT, 0)), ; + Sum(Iif(TIP = 'C', baza, 0)), Sum(Iif(TIP = 'C', TVA, 0)), Sum(Iif(TIP = 'C', NRFACT, 0)), ; + Sum(Iif(TIP = 'L', baza, 0)), Sum(Iif(TIP = 'L', TVA, 0)), Sum(Iif(TIP = 'L', NRFACT, 0)), ; + Sum(Iif(TIP = 'V', baza, 0)), Sum(Iif(TIP = 'V', TVA, 0)), Sum(Iif(TIP = 'V', NRFACT, 0)) ; + To This.achb, This.acht, This.achnrf, This.achtib, This.achtit, This.achtinrf, This.livb, This.livt, This.livnrf, This.livtib, This.livtit, This.livtinrf In crsD394 + + + This.Total = This.achb + This.acht + This.achtib + This.achtit + This.livb + This.livt + This.livtib + This.livtit + + If !m.llSilent + Select Distinct cod_fiscal From crsD394 Into Cursor crsCoduriFiscaleCnt + This.NumarCoduriFiscale = _Tally + Use In Select('crsCoduriFiscaleCnt') + + This.NumarCoduriFiscale = _Tally + Use In Select('crsCoduriFiscale1') + + *!* am nume diferite cu acelasi cod fiscal in JV, JC sau in amandoua + *!* exista nume fara cod fiscal??? (nu stiu de ce am pus conditia asta - le-am luat pe cele cu RO - au cod fiscal) + *!* Select DISTINCT COD_FISCAL, Padr(Alltrim(Upper(denumire)),30,' ') As denumire, "RO" as atribut_fiscal ; + *!* FROM crsD394 ; + *!* ORDER By 1,2 ; + *!* INTO Cursor crsCoduriFiscale + + *** This.do_verifica() + + + Do Case + Case m.gnAn <= 2011 + This.do_genereaza_txt(lcFisierTXT) + + Case m.gnAn * 12 + m.gnLuna <= 2012 * 12 + 11 && 01.2012 - 11.2013 + This.do_genereaza_xdp_201201(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + + If File(lcFisierXDP) And File(m.lcFisierPDFNou) + open_default_app(lcFisierXDP) + Endif + Otherwise && 12.2013 - + This.do_genereaza_xdp_201312(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + + If File(lcFisierXDP) And File(m.lcFisierPDFNou) + open_default_app(lcFisierXDP) + Endif + Endcase + This.do_genereaza_xls(m.lcFisierXLS) + + *** deschid explorer in directorul de export + lcRun = [RUN /N7 explorer.exe "] + m.lcCaleFisier + ["] + &lcRun + Endif && m.llSilent + + Endif && llSucces + + Use In (Select('crsVerificareParteneri')) + Use In Select('crsCoduriFiscale') + Use In (Select('crsJV')) + Use In (Select('crsJC')) + + Select (m.lcSelect) + + Endproc && do_executa + + *=========================================== + Procedure do_verifica + + Local lcSelect + lcSelect = Select() + + + If Reccount('crsCoduriFiscale') > 0 + Cursortoxml("crsCoduriFiscale", "lcXMLParteneri", 1, 0, 0, "1") + Do verificare_parteneri With m.lcXMLParteneri, .T., .T. + Endif + + Select (m.lcSelect) + Endproc && do_verifica + + *=========================================== + Procedure do_genereaza_xls + Lparameters tcFisierXLS + + Local lcSelect + lcSelect = Select() + + If Type('crsD394.nrfact') <> 'U' + Select TIP, Left(Alltrim(cod_fiscal), 10) As cod_fiscal, Left(denumire, 100) As denumire, baza + TVA As Total, baza, TVA, NRFACT ; + From crsD394 ; + Where NRFACT <> 0 ; + Order By 1 Desc, 3 ; + Into Cursor cExportXLS + Else + Select TIP, Left(Alltrim(cod_fiscal), 10) As cod_fiscal, Left(denumire, 100) As denumire, baza + TVA As Total, baza, TVA ; + From crsD394 ; + Where baza <> 0 Or TVA <> 0; + Order By 1 Desc, 3 ; + Into Cursor cExportXLS + Endif + + Select cExportXLS + Copy To (m.tcFisierXLS) Type Xl5 + *open_default_app(m.tcFisierXLS) + + Use In (Select('cExportXLS')) + + Select (m.lcSelect) + + Endproc && do_genereaza_xls + + *=========================================== + Procedure do_genereaza_txt + Lparameters tcFisierTXT + + Local lcDecla, lcDeclb, lcDir, lcDirA, lcDirB, lcFileA, lcFileB, lcFileNameA, lcFileNameB, lcPoint, lnPerioada + + lcPoint = Set("Point") + Set Point To '.' + lnPerioada = This.Perioada + + *!* fisierul in format din alte aplicatii + Set Textmerge On To Memvar lcDecla1 Noshow + With pounitate + \394,<>,#<<'S' + Left(Alltrim(Str(m.lnPerioada)),1)>>#,<>,#<>#, + \\#<>#,#<>#,#<>#,#<>#, + \\<>,#<>#,#<>#,#<>#,#<>#,#<>#, + \\<>,<>,<>,<>,<> + Endwith + Set Textmerge To + + *!* fisierul in format propriu D394 + Set Textmerge On To Memvar lcDeclb1 Noshow + With pounitate + \ 2 + \<>,#<<'S' + Left(Alltrim(Str(m.lnPerioada)),1)>>#,##,##,<>,#<>#, + \\#<>#,#<>#,#<>#,#<>#, + \\#<>#,#<>#, + \\#<>#,<>,#<>#,#<>#,#<>#,#<>#,#<># + Endwith + Set Textmerge To + + *!* 2 + *!* 2007,#S1#,##,##,1879855,#XACN GREU#,#JUD. CONSTANTA SECT. 1 LOC. AGIGEA STR. AGIGEA NR. 1 SC. B AP. 21#,#telefon#,#fax#,#email#,#nume declarant#,#functie declarant#,#RO#,1879855,#REPREZENTANT FISCAL#,#DOMICILIU REPREZENTANT FISCAL#,#TELEFON REPR#,#FAX REPR#,#EMAIL REPR# + *!* 10117033,#MEDIA PRESS# + *!* 13714478,#S.P.G.C. CERNAVODA# + *!* STOP1 + *!* 10117033,,174294.07,15690.45 + *!* STOP2 + *!* 13714478,,109.34,20.78 + + *!* fisierul in format din alte aplicatii + Set Textmerge On To Memv lcDecla2 Noshow + + Select crsD394 + Scan For baza <> 0 Or TVA <> 0 + \#<>#,<>,#<>#,<>,<> + Endscan + Set Textmerge To + + + *!* fisierul in format propriu D394 + Select Distinct cod_fiscal, denumire From crsD394 Into Cursor crsCoduriFiscaleB + Set Textmerge On To Memv lcDeclb2 Noshow + Select crsCoduriFiscaleB + Scan + \<>,#<># + Endscan + Use In (Select('crsCoduriFiscaleB')) + \STOP1 + + Select crsD394 + Scan For TIP = 'A' And (baza <> 0 Or TVA <> 0) + \<>,<>,<>,<> + Endscan + \STOP2 + Select crsD394 + Scan For TIP = 'L' And (baza <> 0 Or TVA <> 0) + \<>,<>,<>,<> + Endscan + + Set Textmerge To + + + *!* fisierul in format din alte aplicatii + lcDecla = m.lcDecla1 + Chr(13) + Chr(10) + m.lcDecla2 + Chr(13) + Chr(10) + + *!* fisierul in format propriu D394 + lcDeclb = m.lcDeclb1 + Chr(13) + Chr(10) + m.lcDeclb2 + Chr(13) + Chr(10) + + Set Point To &lcPoint + + + *!* 394_S107_J1879855.txt + lcFileNameA = "394_S" + Alltrim(Str(m.lnPerioada)) + Right(Str(pounitate.an, 4), 2) + "_J" + Alltrim(pounitate.codi) + ".txt" + + *!* D394_2007S1_1879855.txt + lcFileNameB = "D394_" + Alltrim(Str(pounitate.an, 4)) + "S" + Alltrim(Str(m.lnPerioada)) + "_" + Alltrim(pounitate.codi) + ".txt" + + lcDir = "C:\Program Files\D394\" + If !Directory(lcDir) + lcDir = Getdir("c:\", "D394", "Alegeti directorul D394\") + Endif + If !Empty(lcDir) + lcDir = Addbs(lcDir) + lcDirA = lcDir + "394_UF\" + lcDirB = lcDir + "394\" + + If !Directory(lcDirA) + Md (lcDirA) + Endif + If !Directory(lcDirB) + Md (lcDirB) + Endif + + lcFileA = Addbs(lcDirA) + lcFileNameA + Strtofile(lcDecla, lcFileA) + + lcFileB = Addbs(lcDirB) + lcFileNameB + Strtofile(lcDeclb, lcFileB) + + + amessagebox('Fisierul a fost exportat in ' + lcFileB + Chr(13) + Chr(10) + [Intrati in aplicatia D394 si apasati pe butonul ] + ; + ["Restaurare fisier"], 0 + 64, 'Declaratia 394') + Endif + + + Endproc && do_genereaza_txt + + *=========================================== + Procedure do_genereaza_xdp_201312 + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou + + + lcSelect = Select() + lcTip = This.TIP && L/T/S/A (Lunara/Trimestriala/Semestriala/Anuala) + lnRectificativa = This.rectificativa && 0/1 + + lnLIVB = This.livb + lnLIVT = This.livt + lnLIVNRF = This.livnrf + + lnACHB = This.achb + lnACHT = This.acht + lnACHNRF = This.achnrf + + lnLIVTIB = This.livtib + lnLIVTIT = This.livtit + lnLIVTINRF = This.livtinrf + + lnACHTIB = This.achtib + lnACHTIT = This.achtit + lnACHTINRF = This.achtinrf + + lnTotal = This.Total + lnNrOperatori = This.NumarCoduriFiscale + + lcCodFiscalF = Alltrim(gofirma.codfiscalfro) + lcLuna = Padl(Alltrim(Str(gnLuna)), 2, [0]) + lcAn = Alltrim(Str(gnAn)) + + + lcXDP = "" + + Text To lcXDP Additive Textmerge Noshow Pretext 1 + + + + + + + +
+ +<> +<> +<> + + +<> +<> +<> +<> +<> +<> +<> + + + + + + + + + + + + + + +<> +<> +<> +<> +<> +<> +<> +0 +0 +<> +<> +0 +0 +<> +<> +<> +<> + + + +<> +<> +<> + + + + + + + Endtext + + + lnSecventa = 0 + Select crsD394 + Scan For NRFACT <> 0 + lcCodFiscal = Alltrim(cod_fiscal) + lcDenumire = Alltrim(Substr(XmlSpecialCharacters(RemoveCharacters(denumire, .T.)), 1, 180)) + lcTip = Alltrim(Upper(TIP)) + lnSecventa = lnSecventa + 1 + lcBaza = Alltrim(Str(baza, 20, 0)) + lcTVA = Alltrim(Str(TVA, 20, 0)) + lcAjutor = Alltrim(Str(baza + TVA, 20, 0)) + lcNrFact = Alltrim(Str(NRFACT, 20, 0)) + Text To lcXDP Additive Textmerge Noshow Pretext 1 + + +<> +<> +<> +<> +<> +<> +<> +0 +<> + + +1 + + + + + + Endtext + If lnSecventa = 1 + Text To lcXDP Additive Textmerge Noshow Pretext 1 + + + + + +<>--<> + + Endtext + Endif + Endscan + + Text To lcXDP Additive Textmerge Noshow Pretext 1 + + +<> +<> +<> + + + + + + + Endtext + + Wait Window "Se exporta datele in format PDF" Nowait + Strtofile(lcXDP, tcFisierXDP) + If File(tcFisierXDP) + *** copiez fisierul pdf inteligent original in directorul de export + If File(m.tcFisierPDFOriginal) + Copy File (tcFisierPDFOriginal) To (tcFisierPDFNou) + Else + open_default_app("http://static.anaf.ro/static/10/Anaf/Declaratii_R/394.html") + amessagebox('Nu exista fisierul ' + m.lcFisierPDFOriginal + CRLF + ; + 'Copiati pdf-ul inteligent D390 de pe website-ul ANAF in directorul ' + Justpath(m.lcFisierPDFOriginal) + CRLF + ; + 'cu numele ' + Justfname(m.lcFisierPDFOriginal) + '.', 0 + 48, _Screen.Caption) + Endif + Endif + + Select (lcSelect) + + Endproc && do_genereaza_xdp_201312 + + *=========================================== + Procedure do_genereaza_xdp_201201 + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou + + + lcSelect = Select() + lcTip = This.TIP && L/T/S/A (Lunara/Trimestriala/Semestriala/Anuala) + lnRectificativa = This.rectificativa && 0/1 + + lnLIVB = This.livb + lnLIVT = This.livt + lnLIVNRF = This.livnrf + + lnACHB = This.achb + lnACHT = This.acht + lnACHNRF = This.achnrf + + lnLIVTIB = This.livtib + lnLIVTIT = This.livtit + lnLIVTINRF = This.livtinrf + + lnACHTIB = This.achtib + lnACHTIT = This.achtit + lnACHTINRF = This.achtinrf + + lnTotal = This.Total + lnNrOperatori = This.NumarCoduriFiscale + + lcCodFiscalF = Alltrim(gofirma.codfiscalfro) + lcLuna = Padl(Alltrim(Str(gnLuna)), 2, [0]) + lcAn = Alltrim(Str(gnAn)) + + + lcXDP = "" + Text To lcXDP Additive Textmerge Noshow Pretext 1 + + + + + + + +
+ +<> +<> +<> + + +<> +<> +<> +<> +<> +<> +<> + + + + + + + + + + + + + + +<> +<> +<> +<> +<> +<> +<> +0 +0 +<> +<> +0 +0 + + + +<> +<> +<> + + + + + + + Endtext + + + lnSecventa = 0 + Select crsD394 + Scan For baza <> 0 Or TVA <> 0 + lcCodFiscal = Alltrim(cod_fiscal) + lcDenumire = Alltrim(Substr(XmlSpecialCharacters(denumire), 1, 180)) + lcTip = Alltrim(Upper(TIP)) + lnSecventa = lnSecventa + 1 + lcBaza = Alltrim(Str(baza, 20, 0)) + lcTVA = Alltrim(Str(TVA, 20, 0)) + lcAjutor = Alltrim(Str(baza + TVA, 20, 0)) + Text To lcXDP Additive Textmerge Noshow Pretext 1 + + +<> +<> +<> +<> +<> +<> +0 +<> + + +1 + + + + + + Endtext + If lnSecventa = 1 + Text To lcXDP Additive Textmerge Noshow Pretext 1 + + + + + +<>--<> + + Endtext + Endif + Endscan + + Text To lcXDP Additive Textmerge Noshow Pretext 1 + + +<> +<> +<> + + + + + + + Endtext + + Wait Window "Se exporta datele in format PDF" Nowait + Strtofile(lcXDP, tcFisierXDP) + If File(tcFisierXDP) + *** copiez fisierul pdf inteligent original in directorul de export + If File(m.tcFisierPDFOriginal) + Copy File (tcFisierPDFOriginal) To (tcFisierPDFNou) + Else + open_default_app("http://static.anaf.ro/static/10/Anaf/Declaratii_R/394.html") + amessagebox('Nu exista fisierul ' + m.lcFisierPDFOriginal + CRLF + ; + 'Copiati pdf-ul inteligent D390 de pe website-ul ANAF in directorul ' + Justpath(m.lcFisierPDFOriginal) + CRLF + ; + 'cu numele ' + Justfname(m.lcFisierPDFOriginal) + '.', 0 + 48, _Screen.Caption) + Endif + Endif + + Select (lcSelect) + + Endproc && do_genereaza_xdp_201201 + + *========================================== + Procedure UpdatePDF + Lparameters tcPDFFile + *** tcPDFFile: calea completa a fisierului pdf D:\CONTAFIN\COMUNCONTAFIN\d390.pdf + + Local lcFile, lcPath, llOpen + lcFile = Justfname(m.tcPDFFile) + lcPath = Addbs(Justpath(m.tcPDFFile)) + llOpen = .F. + + Return DownloadSupportFile(m.lcFile, m.lcPath, m.llOpen) && proceduri_comune.prg + + Endproc && UpdatePDF + +Enddefine && D394 +*************************************************************************8 + +*=========================================== +Procedure viz_decl100 + Parameters nDecl, tlTrim && 100/102 sau ambele (0); trimestriala + + *!* Codurile randurilor cu sume: decl. 100: + *!* rd. 2 (106) + *!* rd. 6 (121) + *!* rd. 7 (602) + *!* rd. 12 (604) + *!* rd. 22 (612) + *!* rd. 24 (810) + + + + Private pnLunaI, pnLunaF, pnLunaPrec, pnAnPrec + Local llTrim, lcValabil, loLogCursoare, ldDataScadenta + loLogCursoare = Createobject("oLogCursoare") + *!* If Mod(gnLuna,3)=0 + *!* llTrim = .T. + *!* Else + *!* llTrim=.F. + *!* Endif + + ***---- folosesc nomenclatorul pt semestrul in care am deschis luna contabila, sau daca nu exista, caut ultimul nomenclator valabil + If gnLuna <= 6 + lcValabil = '01' + Substr(Str(gnAn, 4, 0), 3, 2) + Else + lcValabil = '02' + Substr(Str(gnAn, 4, 0), 3, 2) + Endif + + lcCursor = [crsTest] + lcSql = [select count(*) as nr_rand from decl_100_102 where valabil = ] + lcValabil + If !goExecutor.oExecuta(lcSql, lcCursor) + Return + Endif + Select (lcCursor) + lnNr_rand = nr_rand + loLogCursoare.inchideCursor(lcCursor) + + If lnNr_rand = 0 && daca nu s-a gasit nomenclatorul pt semestrul in curs, se ia ultimul nomenclator + lcCursor = [crsMax] + lcSql = [ select substr(valabil,1,2)+substr(valabil,3,2)*12 as nr_luni, valabil from (select distinct valabil from decl_100_102)] + If !goExecutor.oExecuta(lcSql, lcCursor) + Return + Endif + Select Max(nr_luni) As nrLuni_max From (lcCursor) Into Cursor crsMax2 + Select crsMax2 + lnNrLuni_max = nrLuni_max + Select valabil From (lcCursor) Where nr_luni = lnNrLuni_max Into Cursor crsValabil + Select crsValabil + lcValabil = valabil + + loLogCursoare.inchideCursor(lcCursor) + loLogCursoare.inchideCursor([crsMax2]) + loLogCursoare.inchideCursor([crsValabil]) + Endif + ***---- + + llTrim = tlTrim + + If llTrim + Do Case + Case Inlist(gnLuna, 1, 2, 3) + pnLunaI = 1 + pnLunaF = 3 + pnLunaPrec = 12 + pnAnPrec = gnAn - 1 + Case Inlist(gnLuna, 4, 5, 6) + pnLunaI = 4 + pnLunaF = 6 + pnLunaPrec = 3 + pnAnPrec = gnAn + Case Inlist(gnLuna, 7, 8, 9) + pnLunaI = 7 + pnLunaF = 9 + pnLunaPrec = 6 + pnAnPrec = gnAn + Case Inlist(gnLuna, 10, 11, 12) + pnLunaI = 10 + pnLunaF = 12 + pnLunaPrec = 9 + pnAnPrec = gnAn + Endcase + Else + pnLunaI = gnLuna + pnLunaF = gnLuna + If gnLuna = 1 + pnLunaPrec = 12 + pnAnPrec = gnAn - 1 + Else + pnLunaPrec = gnLuna - 1 + pnAnPrec = gnAn + Endif + Endif + + ldDataScadenta = Gomonth(Date(m.gnAn, m.pnLunaF, 25), 1) + + Private poDecl + Store '' To poDecl + + Local lcSchema1, lcSelect1, lcOrder1, lcFiltru1, lcFiltruOriginal, llAfiseaza + lcSchema1 = [] + + + lcSql = [select d.*, 00000000000 as datorat, 00000000000 as recuperat, 00000000000 as deductibil, 00000000000 as bonificatie, ] + ; + [00000000000 as sponsorizari, 00000000000 as costamef, 00000000000 as reducere ] + ; + [ from decl_100_102 d where valabil = '] + lcValabil + [' order by id_decl] + + lcCursor = [cDeclTemp] + If !goExecutor.oExecuta(lcSql, lcCursor) + Return + Endif + Select *, m.ldDataScadenta As datascad From cDeclTemp Into Cursor cDecl Readwrite + Update cDecl Set nr_evidenta = '' + Use In (Select('cDeclTemp')) + + ***--------------------------------- + If !m.llTrim + * Setare analitice rd. 14, 23, 25 - decl. 100 + + Create Cursor crs446_447_604(Cont c(20)) + Insert Into crs446_447_604(Cont) Values ("") + Insert Into crs446_447_604(Cont) Values ("446") + Insert Into crs446_447_604(Cont) Values ("447") + + Select crs446_447_604 + Locate For Cont = gcContD100_604 + + lcCursorAcont = update_plAcont(m.gcContD100_604, gnAn) && updateserver.prg + Select * From (lcCursorAcont) Into Cursor crsAcont_604 Readwrite + Update crsAcont_604 Set denumire = "" Where Alltrim(acont) = "-1" + + Select crsAcont_604 + Locate For acont = m.gcAcontD100_604 + *- + Create Cursor crs446_447_612 (Cont c(20)) + Insert Into crs446_447_612(Cont) Values ("") + Insert Into crs446_447_612(Cont) Values ("446") + Insert Into crs446_447_612(Cont) Values ("447") + + Select crs446_447_612 + Locate For Cont = m.gcContD100_612 + + lcCursorAcont = update_plAcont(gcContD100_612, gnAn) && updateserver.prg + Select * From (lcCursorAcont) Into Cursor crsAcont_612 Readwrite + Update crsAcont_612 Set denumire = "" Where Alltrim(acont) = "-1" + + Select crsAcont_612 + Locate For acont = gcAcontD100_612 + *- + Create Cursor crs446_447_628 (Cont c(20)) + Insert Into crs446_447_628(Cont) Values ("") + Insert Into crs446_447_628(Cont) Values ("446") + Insert Into crs446_447_628(Cont) Values ("447") + + Select crs446_447_628 + Locate For Cont = gcContD100_628 + + lcCursorAcont = update_plAcont(gcContD100_628, gnAn) && updateserver.prg + Select * From (lcCursorAcont) Into Cursor crsAcont_628 Readwrite + Update crsAcont_628 Set denumire = "" Where Alltrim(acont) = "-1" + + Select crsAcont_628 + Locate For acont = gcAcontD100_628 + + *- + Create Cursor crs446_447_810 (Cont c(20)) + Insert Into crs446_447_810(Cont) Values ("") + Insert Into crs446_447_810(Cont) Values ("446") + Insert Into crs446_447_810(Cont) Values ("447") + + Select crs446_447_810 + Locate For Cont = gcContD100_810 + + lcCursorAcont = update_plAcont(gcContD100_810, gnAn) && updateserver.prg + Select * From (lcCursorAcont) Into Cursor crsAcont_810 Readwrite + Update crsAcont_810 Set denumire = "" Where Alltrim(acont) = "-1" + + Select crsAcont_810 + Locate For acont = gcAcontD100_810 + + losc = Createobject("frm_decl100_102_setacont") + losc.Show(1) + + Endif && !llTrim + + + *!* IF buton = 2 + *!* RETURN + *!* ENDIF + ***--------------------------------- + + If !llTrim + + + *** Rand 12 (604)Imp.pe ven.-dividende distribuite la PF + lcSql = [SELECT NVL(rulcred,0) as rulcred ] + ; + [ from ] + Iif(glEMama, [vbalanamama], [vbalana]) + ; + [ where cont = ?gcCONTDECL100_RD14 ] + ; + [ and acont = ?gcACONTDECL100_RD14 ] + ; + [ and AN = ?gnAn AND LUNA= ?gnLuna ] + gcCondSucursala + lcCursor = [crsDiv] + If !goExecutor.oExecuta(lcSql, lcCursor) + Return + Endif + + Select (lcCursor) + ln12 = rulcred + + Select cDecl + Locate For Alltrim(cod_imp) = '604' && '14' - (604)Imp.pe ven.-dividende distribuite la PF + If Found() + Replace datorat With m.ln12 + Endif + + loLogCursoare.inchideCursor(lcCursor) + ***----------------------------- + + *** Rand 20 (612)Imp.pe ven.obt.din Romania de nerezidenti - PF + lcSql = [SELECT NVL(rulcred,0) as rulcred ] + ; + [ from ] + Iif(glEMama, [vbalanamama], [vbalana]) + ; + [ where cont = ?gcCONTDECL100_RD23 ] + ; + [ and acont = ?gcACONTDECL100_RD23 ] + ; + [ and AN = ?gnAn AND LUNA= ?gnLuna ] + gcCondSucursala + lcCursor = [crsRed] + If !goExecutor.oExecuta(lcSql, lcCursor) + Return + Endif + + Select (lcCursor) + ln20 = rulcred + + Select cDecl + Locate For Alltrim(cod_imp) = '612' && '23' - (612)Imp.pe ven.obt.din Romania de nerezidenti - PF + If Found() + Replace datorat With m.ln20 + Endif + loLogCursoare.inchideCursor(lcCursor) + ***----------------------------- + + *** Rand 22 (810)Varsam.de la PJ pt.pers.cu handicap neincadrate + lcSql = [SELECT cont, acont, rulcred ] + ; + [ from ] + Iif(glEMama, [vbalanamama], [vbalana]) + ; + [ where cont = ?gcCONTDECL100_RD25 ] + ; + [ and acont = ?gcACONTDECL100_RD25 ] + ; + [ and AN = ?gnAn AND LUNA= ?gnLuna ] + gcCondSucursala + + lcCursor = [crsHand] + If !goExecutor.oExecuta(lcSql, lcCursor) + Return + Endif + + Select (lcCursor) + ln22 = rulcred + + Select cDecl + Locate For Alltrim(cod_imp) = '810' && '25' - (810)Varsam.de la PJ pt.pers.cu handicap neincadrate + If Found() + Replace datorat With m.ln22 + Endif + + loLogCursoare.inchideCursor(lcCursor) + Endif && nDecl = 100 + ***----------------------------- + If m.llTrim + + *** Rand 02 (103)Imp.pe profit datorat de PJ romane + lcSql = [SELECT sum(ruldeb) as ruldeb ] + ; + [ from ] + Iif(glEMama, [vbalmama], [vbal]) + ; + [ where cont = '691' ] + ; + [ and an*12+luna between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF ] + gcCondSucursala + lcCursor = [crs691] + If !goExecutor.oExecuta(lcSql, lcCursor) + Return + Endif + + Select (lcCursor) + ln2 = ruldeb + Use In (Select(lcCursor)) + + Select cDecl + Locate For Alltrim(cod_imp) = '103' + If Found() + Replace datorat With ln2 + Endif + + loLogCursoare.inchideCursor(lcCursor) + ***----------------------------- + + *!* modificare v 2.5.32 + *** Rand 06 (121)Imp.pe ven. microintreprinderilor + lcSql = [SELECT sum(ruldeb) as ruldeb ] + ; + [ from ] + Iif(glEMama, [vbalmama], [vbal]) + ; + [ where cont = '698' ] + ; + [ and an*12+luna between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF ] + gcCondSucursala + lcCursor = [crs698] + If !goExecutor.oExecuta(lcSql, lcCursor) + Return + Endif + Select (lcCursor) + ln2 = ruldeb + Use In (Select(lcCursor)) + + Select cDecl + Locate For Alltrim(cod_imp) = '121' + If Found() + Replace datorat With ln2 + Endif + loLogCursoare.inchideCursor(lcCursor) + *!* modificare v 2.5.32 ^ + + Endif && nDecl = 100 trim + + + + Select cDecl + Do Case + Case m.gnAn * 12 + m.gnLuna >= 2024 * 12 + 1 + lodt = Createobject('frm_decl100_2024', nDecl, llTrim) + Case m.gnAn * 12 + m.gnLuna >= 2020 * 12 + 3 + lodt = Createobject('frm_decl100_2020', nDecl, llTrim) + Otherwise + lodt = Createobject('frm_decl100_2016', nDecl, llTrim) + Endcase + lodt.Show(1) +Endproc && viz_decl100 + +*=========================================== +Procedure viz_decl100_102 + Parameters nDecl, tlTrim && 100/102 sau ambele (0); trimestriala + + *!* Codurile randurilor cu sume: decl. 100: + *!* rd. 2 (106) + *!* rd. 6 (121) + *!* rd. 7 (602) + *!* rd. 12 (604) + *!* rd. 22 (612) + *!* rd. 24 (810) + + *!* Decl. 102: 1 (412), 4(411), 5(416), 6(432), 13(431), 17(439), 18(422), 19(421), 20(423) + + + Private pnLunaI, pnLunaF, pnLunaPrec, pnAnPrec + Local llTrim, lcValabil, loLogCursoare, ldDataScadenta + loLogCursoare = Createobject("oLogCursoare") + *!* If Mod(gnLuna,3)=0 + *!* llTrim = .T. + *!* Else + *!* llTrim=.F. + *!* Endif + + ***---- folosesc nomenclatorul pt semestrul in care am deschis luna contabila, sau daca nu exista, caut ultimul nomenclator valabil + If gnLuna <= 6 + lcValabil = '01' + Substr(Str(gnAn, 4, 0), 3, 2) + Else + lcValabil = '02' + Substr(Str(gnAn, 4, 0), 3, 2) + Endif + + lcCursor = [crsTest] + lcSql = [select count(*) as nr_rand from decl_100_102 where valabil = ] + lcValabil + If !goExecutor.oExecuta(lcSql, lcCursor) + Return + Endif + Select (lcCursor) + lnNr_rand = nr_rand + loLogCursoare.inchideCursor(lcCursor) + + If lnNr_rand = 0 && daca nu s-a gasit nomenclatorul pt semestrul in curs, se ia ultimul nomenclator + lcCursor = [crsMax] + lcSql = [ select substr(valabil,1,2)+substr(valabil,3,2)*12 as nr_luni, valabil from (select distinct valabil from decl_100_102)] + If !goExecutor.oExecuta(lcSql, lcCursor) + Return + Endif + Select Max(nr_luni) As nrLuni_max From (lcCursor) Into Cursor crsMax2 + Select crsMax2 + lnNrLuni_max = nrLuni_max + Select valabil From (lcCursor) Where nr_luni = lnNrLuni_max Into Cursor crsValabil + Select crsValabil + lcValabil = valabil + + loLogCursoare.inchideCursor(lcCursor) + loLogCursoare.inchideCursor([crsMax2]) + loLogCursoare.inchideCursor([crsValabil]) + Endif + ***---- + + llTrim = tlTrim + + If llTrim + Do Case + Case Inlist(gnLuna, 1, 2, 3) + pnLunaI = 1 + pnLunaF = 3 + pnLunaPrec = 12 + pnAnPrec = gnAn - 1 + Case Inlist(gnLuna, 4, 5, 6) + pnLunaI = 4 + pnLunaF = 6 + pnLunaPrec = 3 + pnAnPrec = gnAn + Case Inlist(gnLuna, 7, 8, 9) + pnLunaI = 7 + pnLunaF = 9 + pnLunaPrec = 6 + pnAnPrec = gnAn + Case Inlist(gnLuna, 10, 11, 12) + pnLunaI = 10 + pnLunaF = 12 + pnLunaPrec = 9 + pnAnPrec = gnAn + Endcase + Else + pnLunaI = gnLuna + pnLunaF = gnLuna + If gnLuna = 1 + pnLunaPrec = 12 + pnAnPrec = gnAn - 1 + Else + pnLunaPrec = gnLuna - 1 + pnAnPrec = gnAn + Endif + Endif + + ldDataScadenta = Gomonth(Date(m.gnAn, m.pnLunaF, 25), 1) + + Private poDecl + Store '' To poDecl + + Local lcSchema1, lcSelect1, lcOrder1, lcFiltru1, lcFiltruOriginal, llAfiseaza + lcSchema1 = [] + + Do Case + Case nDecl = 100 + lcSql = [select d.*, 00000000000 as datorat, 00000000000 as recuperat ] + ; + [ from decl_100_102 d where id_decl <= 32 and valabil = '] + lcValabil + [' order by id_decl] + Case nDecl = 102 + lcSql = [select d.*, 00000000000 as datorat, 00000000000 as recuperat ] + ; + [ from decl_100_102 d where id_decl > 32 and valabil = '] + lcValabil + [' order by id_decl] + Otherwise + lcSql = [select d.*, 00000000000 as datorat, 00000000000 as recuperat ] + ; + [ from decl_100_102 d where valabil = '] + lcValabil + [' order by id_decl] + Endcase + lcCursor = [cDeclTemp] + If !goExecutor.oExecuta(lcSql, lcCursor) + Return + Endif + Select *, m.ldDataScadenta As datascad From cDeclTemp Into Cursor cDecl Readwrite + Update cDecl Set nr_evidenta = '' + Use In (Select('cDeclTemp')) + + ***--------------------------------- + If (m.nDecl = 100 Or Empty(m.nDecl)) And !m.llTrim + * Setare analitice rd. 14, 23, 25 - decl. 100 + + Create Cursor crs446_447 (Cont c(20)) + Insert Into crs446_447 (Cont) Values ("") + Insert Into crs446_447 (Cont) Values ("446") + Insert Into crs446_447 (Cont) Values ("447") + + Select crs446_447 + Locate For Cont = gcContDecl100_rd14 + + lcCursorAcont = update_plAcont(gcContDecl100_rd14, gnAn) && updateserver.prg + Select * From (lcCursorAcont) Into Cursor crsAcont Readwrite + Update crsAcont Set denumire = "" Where Alltrim(acont) = "-1" + + Select crsAcont + Locate For acont = gcAcontDecl100_rd14 + *- + Create Cursor crs446_447_2 (Cont c(20)) + Insert Into crs446_447_2 (Cont) Values ("") + Insert Into crs446_447_2 (Cont) Values ("446") + Insert Into crs446_447_2 (Cont) Values ("447") + + Select crs446_447_2 + Locate For Cont = gcContDecl100_rd23 + + lcCursorAcont = update_plAcont(gcContDecl100_rd23, gnAn) && updateserver.prg + Select * From (lcCursorAcont) Into Cursor crsAcont_2 Readwrite + Update crsAcont_2 Set denumire = "" Where Alltrim(acont) = "-1" + + Select crsAcont_2 + Locate For acont = gcAcontDecl100_rd23 + *- + Create Cursor crs446_447_3 (Cont c(20)) + Insert Into crs446_447_3 (Cont) Values ("") + Insert Into crs446_447_3 (Cont) Values ("446") + Insert Into crs446_447_3 (Cont) Values ("447") + + Select crs446_447_3 + Locate For Cont = gcContDecl100_rd25 + + lcCursorAcont = update_plAcont(gcContDecl100_rd25, gnAn) && updateserver.prg + Select * From (lcCursorAcont) Into Cursor crsAcont_3 Readwrite + Update crsAcont_3 Set denumire = "" Where Alltrim(acont) = "-1" + + Select crsAcont_3 + Locate For acont = gcAcontDecl100_rd25 + + losc = Createobject("frm_decl100_102_setacont") + losc.Show(1) + + Endif && !llTrim + + + *!* IF buton = 2 + *!* RETURN + *!* ENDIF + ***--------------------------------- + + If (nDecl = 100 Or Empty(nDecl)) And !llTrim + + *!* IF .F. + *!* *** ct.444 IMPOZIT PE VENIT DE NATURA SALARIILOR + *!* lcSql = [SELECT rulcred ] +; + *!* [ from ]+Iif(glEMama,[vbalmama],[vbal]) +; + *!* [ where cont = '444' ]+; + *!* [ and AN = ?gnAn AND LUNA= ?gnLuna] + gcCondSucursala + *!* lcCursor = [crs444] && TVA de recuperat + *!* If !goExecutor.oExecuta(lcSql,lcCursor) + *!* Return + *!* Endif + *!* Select (lcCursor) + *!* ln9 = rulcred + *!* Select cDecl + *!* Locate For Alltrim(Rand) = '07' And id_decl <=32 && '09' (602) - Imp.pe ven.-salarii - rulcred 444 + *!* If Found() + *!* Replace datorat With ln9 + *!* Endif + + *!* loLogCursoare.inchideCursor(lcCursor) + *!* ENDIF && .F. + ***----------------------------- + + *** Rand 12 (604)Imp.pe ven.-dividende distribuite la PF + lcSql = [SELECT NVL(rulcred,0) as rulcred ] + ; + [ from ] + Iif(glEMama, [vbalanamama], [vbalana]) + ; + [ where cont = ?gcCONTDECL100_RD14 ] + ; + [ and acont = ?gcACONTDECL100_RD14 ] + ; + [ and AN = ?gnAn AND LUNA= ?gnLuna ] + gcCondSucursala + lcCursor = [crsDiv] + If !goExecutor.oExecuta(lcSql, lcCursor) + Return + Endif + + Select (lcCursor) + ln12 = rulcred + + Select cDecl + Locate For Alltrim(Rand) = '12' And id_decl <= 32 && '14' - (604)Imp.pe ven.-dividende distribuite la PF + If Found() + Replace datorat With m.ln12 + Endif + + loLogCursoare.inchideCursor(lcCursor) + ***----------------------------- + + *** Rand 20 (612)Imp.pe ven.obt.din Romania de nerezidenti - PF + lcSql = [SELECT NVL(rulcred,0) as rulcred ] + ; + [ from ] + Iif(glEMama, [vbalanamama], [vbalana]) + ; + [ where cont = ?gcCONTDECL100_RD23 ] + ; + [ and acont = ?gcACONTDECL100_RD23 ] + ; + [ and AN = ?gnAn AND LUNA= ?gnLuna ] + gcCondSucursala + lcCursor = [crsRed] + If !goExecutor.oExecuta(lcSql, lcCursor) + Return + Endif + + Select (lcCursor) + ln20 = rulcred + + Select cDecl + Locate For Alltrim(Rand) = '20' And id_decl <= 32 && '23' - (612)Imp.pe ven.obt.din Romania de nerezidenti - PF + If Found() + Replace datorat With m.ln20 + Endif + loLogCursoare.inchideCursor(lcCursor) + ***----------------------------- + + *** Rand 22 (810)Varsam.de la PJ pt.pers.cu handicap neincadrate + lcSql = [SELECT cont, acont, rulcred ] + ; + [ from ] + Iif(glEMama, [vbalanamama], [vbalana]) + ; + [ where cont = ?gcCONTDECL100_RD25 ] + ; + [ and acont = ?gcACONTDECL100_RD25 ] + ; + [ and AN = ?gnAn AND LUNA= ?gnLuna ] + gcCondSucursala + + lcCursor = [crsHand] + If !goExecutor.oExecuta(lcSql, lcCursor) + Return + Endif + + Select (lcCursor) + ln22 = rulcred + + Select cDecl + Locate For Alltrim(Rand) = '22' And id_decl <= 32 && '25' - (810)Varsam.de la PJ pt.pers.cu handicap neincadrate + If Found() + Replace datorat With m.ln22 + Endif + + loLogCursoare.inchideCursor(lcCursor) + Endif && nDecl = 100 + ***----------------------------- + If (nDecl = 100 Or Empty(nDecl)) And llTrim + + *** Rand 02 (103)Imp.pe profit datorat de PJ romane + lcSql = [SELECT sum(ruldeb) as ruldeb ] + ; + [ from ] + Iif(glEMama, [vbalmama], [vbal]) + ; + [ where cont = '691' ] + ; + [ and an*12+luna between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF ] + gcCondSucursala + lcCursor = [crs691] + If !goExecutor.oExecuta(lcSql, lcCursor) + Return + Endif + + Select (lcCursor) + ln2 = ruldeb + Use In (Select(lcCursor)) + + Select cDecl + Locate For Alltrim(Rand) = '02' And id_decl <= 32 + If Found() + Replace datorat With ln2 + Endif + + loLogCursoare.inchideCursor(lcCursor) + ***----------------------------- + + *!* modificare v 2.5.32 + *** Rand 06 (121)Imp.pe ven. microintreprinderilor + lcSql = [SELECT sum(ruldeb) as ruldeb ] + ; + [ from ] + Iif(glEMama, [vbalmama], [vbal]) + ; + [ where cont = '698' ] + ; + [ and an*12+luna between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF ] + gcCondSucursala + lcCursor = [crs698] + If !goExecutor.oExecuta(lcSql, lcCursor) + Return + Endif + Select (lcCursor) + ln2 = ruldeb + Use In (Select(lcCursor)) + + Select cDecl + Locate For Alltrim(Rand) = '06' And id_decl <= 32 + If Found() + Replace datorat With ln2 + Endif + loLogCursoare.inchideCursor(lcCursor) + *!* modificare v 2.5.32 ^ + ***----------------------------- + *!* IF .F. + *!* *** ct.444 IMPOZIT PE VENIT DE NATURA SALARIILOR + *!* lcSql = [SELECT sum(rulcred) as rulcred ] +; + *!* [ from ]+Iif(glEMama,[vbalmama],[vbal]) +; + *!* [ where cont = '444' ]+; + *!* [ and an*12+luna between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF ] + gcCondSucursala + *!* lcCursor = [crs444] && TVA de recuperat + *!* If !goExecutor.oExecuta(lcSql,lcCursor) + *!* Return + *!* Endif + *!* SELECT (lcCursor) + *!* ln9 = rulcred + *!* Select cDecl + *!* Locate For Alltrim(Rand) = '07' And id_decl <=33 && '09' (602) + *!* If Found() + *!* Replace datorat With ln9 + *!* Endif + *!* loLogCursoare.inchideCursor(lcCursor) + *!* ENDIF && .F. + ***----------------------------- + Endif && nDecl = 100 trim + + If (nDecl = 102 Or Empty(nDecl)) + + && 01 CAS PERSONAL - rulaj creditor cont 4312 pe perioada celor 3 luni ale trimestrulu la suma datorada + lcSql = [SELECT sum(rulcred) as rulcred ] + ; + [ from ] + Iif(glEMama, [vbalmama], [vbal]) + ; + [ where cont = '4312' ] + ; + [ and an*12+luna between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF ] + gcCondSucursala + + && [ and AN = ?gnAn AND (LUNA=?pnLuna1 or LUNA=?pnLuna2 or LUNA=?pnLuna3)] + gcCondSucursala + lcCursor = [crs4312] + If !goExecutor.oExecuta(lcSql, lcCursor) + Return + Endif + + Select (lcCursor) + ln1 = rulcred + + Select cDecl + Locate For Alltrim(Rand) = '01' And id_decl >= 33 && (412) + If Found() + Replace datorat With ln1 + Endif + + loLogCursoare.inchideCursor(lcCursor) + ***----------------------------- + + && 04 - rulaj creditor cont 4311 analitic 1 pe perioada celor 3 luni ale trimestrului la suma datorata + + lcSql = [SELECT sum(rulcred) as rulcred ] + ; + [ from ] + Iif(glEMama, [vbalanamama], [vbalana]) + ; + [ where cont = '4311' and acont = '1' ] + ; + [ and an*12+luna between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF ] + gcCondSucursala + + lcCursor = [crs4] + If !goExecutor.oExecuta(lcSql, lcCursor) + Return + Endif + + Select (lcCursor) + ln04 = rulcred + + Select cDecl + Locate For Alltrim(Rand) = '04' And id_decl >= 33 && + If Found() + Replace datorat With ln04 + Endif + + loLogCursoare.inchideCursor(lcCursor) + ***----------------------------- + && 05 - rulaj creditor cont 4311 analitic 2 pe perioada celor 3 luni ale trimestrulu la suma datorata + && si la suma deductibila se trece suma inregistrarilor din luna de la inregistrarile 4311.2=423/4312/444/4372/4314 + && adunata cu soldul debitor al contului 4311.2 al lunii precedente trimestrului. + + lcSql = [SELECT sum(rulcred) as rulcred ] + ; + [ from ] + Iif(glEMama, [vbalanamama], [vbalana]) + ; + [ where cont = '4311' and acont = '2' ] + ; + [ and an*12+luna between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF ] + gcCondSucursala + lcCursor = [crs5] + If !goExecutor.oExecuta(lcSql, lcCursor) + Return + Endif + + Select (lcCursor) + ln05 = rulcred + + Select cDecl + Locate For Alltrim(Rand) = '05' And id_decl >= 33 + If Found() + Replace datorat With ln05 + Endif + + loLogCursoare.inchideCursor(lcCursor) + ***--- + lcSql = [ select nvl(sum(suma),0) as suma ] + ; + [from act ] + ; + [where an=?gnAn ] + ; + [and luna=?gnLuna ] + ; + [and sters=0 ] + ; + [and scd='4311' and ascd='2' and scc in ('423','4312','444','4372','4314')] + gcCondSucursala + + lcCursor = [crs5_r] + If !goExecutor.oExecuta(lcSql, lcCursor) + Return + Endif + + Select (lcCursor) + ln05_r = suma + loLogCursoare.inchideCursor(lcCursor) + + lcSql = [SELECT solddeb ] + ; + [ from ] + Iif(glEMama, [vbalanamama], [vbalana]) + ; + [ where cont = '4311' and acont='2' ] + ; + [ and AN = ?pnAnPrec AND LUNA= ?pnLunaPrec] + gcCondSucursala + lcCursor = [crsB] + If !goExecutor.oExecuta(lcSql, lcCursor) + Return + Endif + + Select (lcCursor) + ln05_b = solddeb + ln05_r = ln05_r + ln05_b + + If ln05_r > ln05 + ln05_r = ln05 + Endif + + Select cDecl + Locate For Alltrim(Rand) = '05' And id_decl >= 33 + If Found() + Replace recuperat With ln05_r + Endif + + loLogCursoare.inchideCursor(lcCursor) + ***----------------------------- + + && 06 -rulaj creditor cont 4314 pe perioada celor 3 luni ale trimestrului la suma datorada + lcSql = [SELECT sum(rulcred) as rulcred ] + ; + [ from ] + Iif(glEMama, [vbalmama], [vbal]) + ; + [ where cont = '4314' ] + ; + [ and an*12+luna between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF] + gcCondSucursala + + lcCursor = [crs4314] + If !goExecutor.oExecuta(lcSql, lcCursor) + Return + Endif + + Select (lcCursor) + ln6 = rulcred + + Select cDecl + Locate For Alltrim(Rand) = '06' And id_decl >= 33 + If Found() + Replace datorat With ln6 + Endif + + loLogCursoare.inchideCursor(lcCursor) + ***----------------------------- + && 13 - rulaj creditor cont 4313 analitic1 pe perioada celor 3 luni ale trimestrului la suma datorada + + + lcSql = [SELECT sum(rulcred) as rulcred ] + ; + [ from ] + Iif(glEMama, [vbalanamama], [vbalana]) + ; + [ where cont = '4313' and acont = '1' ] + ; + [ and an*12+luna between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF ] + gcCondSucursala + + lcCursor = [crs13] + If !goExecutor.oExecuta(lcSql, lcCursor) + Return + Endif + + Select (lcCursor) + ln13 = rulcred + + Select cDecl + Locate For Alltrim(Rand) = '13' And id_decl >= 33 + If Found() + Replace datorat With ln13 + Endif + + loLogCursoare.inchideCursor(lcCursor) + ***----------------------------- + && 17 - rulaj creditor cont 4313 analitic 2 pe perioada celor 3 luni ale trimestrului la suma datorata + && si la suma deductibila se trece suma inregistrarilor din luna de la inregistrarile 4313.2=423/4312/444/4372/4314 + && adunata cu soldul debitor al contului 4313.2 al lunii precedente trimestrului + + + + lcSql = [SELECT sum(rulcred) as rulcred ] + ; + [ from ] + Iif(glEMama, [vbalanamama], [vbalana]) + ; + [ where cont = '4313' and acont = '2' ] + ; + [ and an*12+luna between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF ] + gcCondSucursala + + lcCursor = [crs17] + If !goExecutor.oExecuta(lcSql, lcCursor) + Return + Endif + + Select (lcCursor) + ln17 = rulcred + + Select cDecl + Locate For Alltrim(Rand) = '17' And id_decl >= 33 + If Found() + Replace datorat With ln17 + Endif + + loLogCursoare.inchideCursor(lcCursor) + ***--- + lcSql = [ select nvl(sum(suma),0) as suma ] + ; + [from act ] + ; + [where an=?gnAn ] + ; + [and luna=?gnLuna ] + ; + [and sters=0 ] + ; + [and scd='4313' and ascd='2' and scc in ('423','4312','444','4372','4314')] + gcCondSucursala + + lcCursor = [crs17_r] + If !goExecutor.oExecuta(lcSql, lcCursor) + Return + Endif + + Select (lcCursor) + ln17_r = suma + loLogCursoare.inchideCursor(lcCursor) + + lcSql = [SELECT solddeb ] + ; + [ from ] + Iif(glEMama, [vbalanamama], [vbalana]) + ; + [ where cont = '4313' and acont='2' ] + ; + [ and AN = ?pnAnPrec AND LUNA= ?pnLunaPrec] + gcCondSucursala + + lcCursor = [crsB] + If !goExecutor.oExecuta(lcSql, lcCursor) + Return + Endif + + Select (lcCursor) + ln17_b = solddeb + ln17_r = ln17_r + ln17_b + + If ln17_r > ln17 + ln17_r = ln17 + Endif + + Select cDecl + Locate For Alltrim(Rand) = '17' And id_decl >= 33 + If Found() + Replace recuperat With ln17_r + Endif + + loLogCursoare.inchideCursor(lcCursor) + ***----------------------------- + && 18 - rulaj creditor cont 4372 pe perioada celor 3 luni ale trimestrului la suma datorada + + lcSql = [SELECT sum(rulcred) as rulcred ] + ; + [ from ] + Iif(glEMama, [vbalmama], [vbal]) + ; + [ where cont = '4372' ] + ; + [ and an*12+luna between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF] + gcCondSucursala + lcCursor = [crs4372] + If !goExecutor.oExecuta(lcSql, lcCursor) + Return + Endif + + Select (lcCursor) + ln18 = rulcred + + Select cDecl + Locate For Alltrim(Rand) = '18' And id_decl >= 33 + If Found() + Replace datorat With ln18 + Endif + + loLogCursoare.inchideCursor(lcCursor) + ***----------------------------- + && 19 - rulaj creditor cont 4371 analitic 1 pe perioada celor 3 luni ale trimestrului la suma datorada + + lcSql = [SELECT sum(rulcred) as rulcred ] + ; + [ from ] + Iif(glEMama, [vbalanamama], [vbalana]) + ; + [ where cont = '4371' and acont = '1' ] + ; + [ and an*12+luna between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF ] + gcCondSucursala + + lcCursor = [crs19] + If !goExecutor.oExecuta(lcSql, lcCursor) + Return + Endif + + Select (lcCursor) + ln19 = rulcred + + Select cDecl + Locate For Alltrim(Rand) = '19' And id_decl >= 33 + If Found() + Replace datorat With ln19 + Endif + loLogCursoare.inchideCursor(lcCursor) + ***----------------------------- + && 20 - rulaj creditor cont 4371 analitic 2 pe perioada celor 3 luni ale trimestrului la suma datorada + + lcSql = [SELECT sum(rulcred) as rulcred ] + ; + [ from ] + Iif(glEMama, [vbalanamama], [vbalana]) + ; + [ where cont = '4371' and acont = '2' ] + ; + [ and an*12+luna between ?gnAn*12+?pnLunaI and ?gnAn*12+?pnLunaF] + gcCondSucursala + + lcCursor = [crs20] + If !goExecutor.oExecuta(lcSql, lcCursor) + Return + Endif + + Select (lcCursor) + ln20 = rulcred + + Select cDecl + Locate For Alltrim(Rand) = '20' And id_decl >= 33 + If Found() + Replace datorat With ln20 + Endif + loLogCursoare.inchideCursor(lcCursor) + Endif && nDecl = 102 trim + + + + Select cDecl + If m.gnAn >= 2016 + lodt = Createobject('frm_decl100_2016', nDecl, llTrim) + Else + lodt = Createobject('frm_decl100_102', nDecl, llTrim) + Endif + If nDecl = 100 + lodt.lb_titlu_alb_b121.Caption = "100 DECLARATIE PRIVIND OBLIGATIILE DE PLATA LA BS" + Endif + If nDecl = 102 + lodt.lb_titlu_alb_b121.Caption = "102 DECLARATIE PRIVIND OBLIGATIILE DE PLATA LA BASFS" + Endif + lodt.Show(1) +Endproc && viz_decl100_102 + +*========================================== +Procedure export_decl + Parameters tcTabel, tnDecl, tlTrim + + + Local lcSir, lcDirTabele, lcFisUnitate, lcCodFiscal, lcDirDecl, lcFile, llTrim, llAreAngajati + lcSir = '' + llTrim = tlTrim + llAreAngajati = .F. + + + gcDecl_caleExport = "C:\Program Files\Declaratii fiscale " + Alltrim(Str(gnAn)) + + If !Directory(gcDecl_caleExport) + gcDecl_caleExport = Getdir("C:", "Directorul Declaratii fiscale", "Declaratii fiscale") + Endif + If Empty(gcDecl_caleExport) + Return + Endif + + lcDirTabele = Addbs(Alltrim(gcDecl_caleExport)) + Alltrim(gofirma.firma) + "\" + lcFisUnitate = lcDirTabele + "Unitate.dbf" + If !File(lcFisUnitate) + amessage("Nu ati salvat Date de identificare unitate!", 0 + 48, _Screen.Caption) + Return + Endif + + Use (lcFisUnitate) In 0 Alias unitate + Select unitate + lcCodFiscal = Alltrim(Str(codi)) + Use In unitate + + lcDirDecl = Addbs(Alltrim(gcDecl_caleExport)) + lcCodFiscal + + ***--- + && Nr sal + + Private pnLunaI, pnNrMedSal + Store 0 To pnLunaI, pnNrMedSal + If llTrim + Do Case + Case Inlist(gnLuna, 1, 2, 3) + pnLunaI = 1 + Case Inlist(gnLuna, 4, 5, 6) + pnLunaI = 4 + Case Inlist(gnLuna, 7, 8, 9) + pnLunaI = 7 + Case Inlist(gnLuna, 10, 11, 12) + pnLunaI = 10 + Endcase + lcSql = [begin PACK_MG_EVOLUTIE.nr_med_salariati_per(?pnLunaI, ?gnAn, ?gnLuna, ?gnAn, ?@pnNrMedSal); end;] + Else + lcSql = [begin PACK_MG_EVOLUTIE.nr_med_salariati_per(?gnLuna, ?gnAn, ?gnLuna, ?gnAn, ?@pnNrMedSal); end;] + Endif + + lnSucces = goExecutor.oExecute(lcSql) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, "Eroare") + Return + Endif + + If pnNrMedSal > 0 + llAreAngajati = .T. + Endif + + ***--- + + *** creez unitate.txt + Set Textmerge To + lcFile = lcDirTabele + "adresa.txt" + Set Textmerge On To (lcFile) Noshow + + Use (lcFisUnitate) In 0 Alias unitate + Select unitate + Go Top + lcSir = "##,#" + Alltrim(Str(codi)) + "#,#" + ; + Alltrim(deni) + "#,#" + ; + Alltrim(deni) + "#,#" + ; + Alltrim(adr) + "#,#" + ; + Alltrim(telf) + "#,#" + ; + Alltrim(banca) + "#,#" + ; + Alltrim(Cont) + "#,#" + ; + "#,##,##,#" + ; + Alltrim(intocmitf) + "#,#" + ; + Alltrim(calIntoc) + "#," + ; + Alltrim(Str(caen)) + +\\<> + Set Textmerge To + Wait Window "S-a exportat adresa.txt..." Timeout 1 + + + *** creez Dec100T.txt + Set Textmerge To + lcFile = lcDirTabele + "\Dec100T.txt" + Set Textmerge On To (lcFile) Noshow + + lcSir = '' + + * lcSir = lcSir + '300,,' + PADL(gnLuna,2,'0') + ',' + ALLTRIM(STR(gnAn,4,0)) + ',,,' + lcSir = lcCodFiscal + ',' + Padl(gnLuna, 2, '0') + ',' + Alltrim(Str(gnAn, 4, 0)) + ',' + + Select (tcTabel) + Scan For(!Empty(Nvl(datorat, 0)) Or !Empty(Nvl(recuperat, 0))) Or (llAreAngajati And id_decl <= 32 And Alltrim(Rand) = '06') Or (llAreAngajati And id_decl > 33 And Inlist(Alltrim(Rand), '18', '19', '20')) + + If id_decl <= 32 && decl. 100 + lcSir = lcSir + ; + Iif(Nvl(inactivD, 0) <> 1, 'BS,' + Substr(denumire, 2, 3) + ',' + Alltrim(Str(datorat, 15, 0)) + [,,,,250908,], []) + Endif + If id_decl > 33 && decl. 102 + lcSir = lcSir + ; + Iif(Nvl(inactivD, 0) <> 1, 'CO,' + Substr(denumire, 2, 3) + ',' + Alltrim(Str(datorat, 15, 0)) + [,] + ; + Iif(!Empty(Nvl(recuperat, 0)), Iif(Nvl(inactivR, 0) <> 1, Alltrim(Str(recuperat, 15, 0)), []), []) + ; + [,,,250908,], []) + + Endif + + Endscan + + Select unitate + * lcSir = lcSir + ALLTRIM(STR(caen))+',#N#,#'+ALLTRIM(banca)+'#,#'+ALLTRIM(cont) + '#' + * lcSir = lcSir + Alltrim(Str(caen))+',#N#' + + + Use In unitate + + + *!* IF !EMPTY(lcSir) + *!* lcSir = LEFT(lcSir,LEN(lcSir)-1) + *!* ENDIF + lcSir = lcSir + Chr(13) + Chr(10) + + +\\<> + Set Textmerge To + Wait Window "S-a exportat Dec100T.txt..." Timeout 1 + + lcA = lcDirTabele + "\" + "adresa.txt" + lcD = lcDirTabele + "\" + "dec100T.txt" + + If !Directory(lcDirDecl) + Md (lcDirDecl) + Endif + lcFisAdresa = lcDirDecl + "\adresa.txt" + lcfisDec100T = lcDirDecl + "\dec100T.txt" + + Copy File (lcA) To (lcFisAdresa) + Copy File (lcD) To (lcfisDec100T) + + amessagebox([Fisierele au fost exportate in directorul ] + Alltrim(Addbs(Justpath(lcfisDec100T))) + Chr(13) + Chr(10) + ; + [Intrati in programul de Declaratii Fiscale si selectati Declaratia 100], 0 + 64, 'Decl. 100') +Endproc && export_decl + +********************************************************* +*** DECLARATIA 390 RECAPITULATIVA PRIVIND LIVRARILE / ACHIZITIILE / PRESTARILE INTRACOMUNITARE +********************************************************* +Procedure viz_decl390 + loD390 = Createobject("D390") + loD390.do_executa() +Endproc + + +Define Class D390 As Custom + nTotalAB = 0 + nTotalAS = 0 + nTotalLB = 0 + nTotalLS = 0 + nTotalLT = 0 + nTotal = 0 + nNrOperatori = 0 + nNrPagini = 0 + + *========================================== + Procedure do_genereaza_txt_201902 + Lparameters tcFisierTXT + + Local lcAn, lcCodFiscal, lcCodFiscalF, lcDenumire, lcFisier, lcLuna, lcSelect, lcSuma, lcTara, lcTip + Local lnNrOperatori, lnNrPagini, lnTotal, lnTotalAB, lnTotalAS, lnTotalLB, lnTotalLS, lnTotalLT + Local lcDenumire, lcAdresa, lcTelefon, lcEmail + lcSelect = Select() + + lnTotalAB = This.nTotalAB + lnTotalAS = This.nTotalAS + lnTotalLB = This.nTotalLB + lnTotalLS = This.nTotalLS + lnTotalLT = This.nTotalLT + lnTotal = This.nTotal + lnNrPagini = This.nNrPagini + lnNrOperatori = This.nNrOperatori + lcCodFiscalF = Alltrim(gofirma.codfiscalfro) + lcLuna = Padl(Alltrim(Str(gnLuna)), 2, [0]) + lcAn = Alltrim(Str(gnAn)) + lcFisier = "" + lcDenumire = XmlSpecialCharacters(RemoveCharacters(Alltrim(gofirma.antet), .T.)) + lcAdresa = XmlSpecialCharacters(RemoveCharacters(Alltrim(gofirma.adresa), .T.)) + lcTelefon = Alltrim(gofirma.telefon) + lcEmail = Alltrim(Lower(gofirma.email)) + Set Textmerge On To Memvar lcFisier Noshow + \390,<>,<>,<>,#<>#,#<>#,#<>#,#<># + + Select crsD390 + Scan + lcTara = Substr(cod_fiscal, 1, 2) + If Isalpha(Left(lcTara, 1)) + If !Isalpha(Substr(lcTara, 2, 1)) + lcTara = Left(lcTara, 1) + Endif + Else + lcTara = "" + Endif + lcCodFiscal = Alltrim(Substr(cod_fiscal, Len(lcTara) + 1)) + lcDenumire = Alltrim(Substr(denumire, 1, 180)) + lcTip = Alltrim(Upper(TIP)) + lcSuma = Alltrim(Str(suma)) + + \#<>#,#<>#,#<>#,#<>#,<> + Endscan + Set Textmerge To + + Wait Window "Se exporta datele in format TXT" Nowait + Strtofile(lcFisier, tcFisierTXT) + Endproc && do_genereaza_txt_201902 + + *========================================== + Procedure do_genereaza_txt + Lparameters tcFisierTXT + + Local lcAn, lcCodFiscal, lcCodFiscalF, lcDenumire, lcFisier, lcLuna, lcSelect, lcSuma, lcTara, lcTip + Local lnNrOperatori, lnNrPagini, lnTotal, lnTotalAB, lnTotalAS, lnTotalLB, lnTotalLS, lnTotalLT + lcSelect = Select() + + lnTotalAB = This.nTotalAB + lnTotalAS = This.nTotalAS + lnTotalLB = This.nTotalLB + lnTotalLS = This.nTotalLS + lnTotalLT = This.nTotalLT + lnTotal = This.nTotal + lnNrPagini = This.nNrPagini + lnNrOperatori = This.nNrOperatori + lcCodFiscalF = Alltrim(gofirma.codfiscalfro) + lcLuna = Padl(Alltrim(Str(gnLuna)), 2, [0]) + lcAn = Alltrim(Str(gnAn)) + lcFisier = "" + + Set Textmerge On To Memvar lcFisier Noshow + \390,<>,<>,<>,##,<>,<>,<>,<>,<>,<>,<>,<> + + Select crsD390 + Scan + lcTara = Substr(cod_fiscal, 1, 2) + If Isalpha(Left(lcTara, 1)) + If !Isalpha(Substr(lcTara, 2, 1)) + lcTara = Left(lcTara, 1) + Endif + Else + lcTara = "" + Endif + lcCodFiscal = Alltrim(Substr(cod_fiscal, Len(lcTara) + 1)) + lcDenumire = Alltrim(Substr(denumire, 1, 180)) + lcTip = Alltrim(Upper(TIP)) + lcSuma = Alltrim(Str(suma)) + + \#<>#,#<>#,#<>#,#<>#,<> + Endscan + Set Textmerge To + + Wait Window "Se exporta datele in format TXT" Nowait + Strtofile(lcFisier, tcFisierTXT) + Endproc && do_genereaza_txt + + *========================================== + Procedure do_genereaza_xdp_201902 + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou + Local lcAn, lcCodFiscal, lcCodFiscalF, lcDenumire, lcLuna, lcSelect, lcSuma, lcTara, lcTip, lcXDP + Local lnNrOperatori, lnNrPagini, lnSecventa, lnTotal, lnTotalAB, lnTotalAS, lnTotalLB, lnTotalLS, lnTotalLT + + lcSelect = Select() + + lnTotalAB = This.nTotalAB + lnTotalAS = This.nTotalAS + lnTotalLB = This.nTotalLB + lnTotalLS = This.nTotalLS + lnTotalLT = This.nTotalLT + lnTotal = This.nTotal + lnNrPagini = This.nNrPagini + lnNrOperatori = This.nNrOperatori + lcCodFiscalF = Alltrim(gofirma.codfiscalfro) + lcLuna = Padl(Alltrim(Str(gnLuna)), 2, [0]) + lcAn = Alltrim(Str(gnAn)) + + + lcXDP = "" + Text To lcXDP Additive Textmerge Noshow Pretext 1 + + + + + + + + + +
+ +0 + + +<> +<> + + +<> +<> +<> +<> +<> +<> + + + +<> +<> +<> +<> +<> +<> +<> + + +<> +<> +<> + + + + + + + + + + Endtext + + lnSecventa = 0 + Select crsD390 + Scan + lcTara = Substr(cod_fiscal, 1, 2) + If Isalpha(Left(lcTara, 1)) + If !Isalpha(Substr(lcTara, 2, 1)) + lcTara = Left(lcTara, 1) + Endif + Else + lcTara = "" + Endif + lcCodFiscal = Alltrim(Substr(cod_fiscal, Len(lcTara) + 1)) + lcDenumire = Alltrim(Substr(XmlSpecialCharacters(RemoveCharacters(denumire, .T.)), 1, 180)) + lcTip = Alltrim(Upper(TIP)) + lnSecventa = lnSecventa + 1 + lcSuma = Alltrim(Str(suma)) + + Text To lcXDP Additive Textmerge Noshow Pretext 1 + +<> +<> +<> +<> +<> +<> + + Endtext + + Endscan + + Text To lcXDP Additive Textmerge Noshow Pretext 1 + + +<> + + +1 + + + + + + + + + + + + + + +<> +<> +<> + + + + + + Endtext + + Wait Window "Se exporta datele in format PDF" Nowait + Strtofile(lcXDP, tcFisierXDP) + If File(tcFisierXDP) + *** copiez fisierul pdf inteligent original in directorul de export + If File(m.tcFisierPDFOriginal) + Copy File (tcFisierPDFOriginal) To (tcFisierPDFNou) + Else + open_default_app("http://static.anaf.ro/static/10/Anaf/Declaratii_R/390.html") + amessagebox('Nu exista fisierul ' + m.lcFisierPDFOriginal + CRLF + ; + 'Copiati pdf-ul inteligent D390 de pe website-ul ANAF in directorul ' + Justpath(m.lcFisierPDFOriginal) + CRLF + ; + 'cu numele ' + Justfname(m.lcFisierPDFOriginal) + '.', 0 + 48, _Screen.Caption) + Endif + Endif + + Select (lcSelect) + Endproc && do_genereaza_xdp_201902 + + + Procedure do_genereaza_xdp + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou + Local lcAn, lcCodFiscal, lcCodFiscalF, lcDenumire, lcLuna, lcSelect, lcSuma, lcTara, lcTip, lcXDP + Local lnNrOperatori, lnNrPagini, lnSecventa, lnTotal, lnTotalAB, lnTotalAS, lnTotalLB, lnTotalLS, lnTotalLT + + lcSelect = Select() + + lnTotalAB = This.nTotalAB + lnTotalAS = This.nTotalAS + lnTotalLB = This.nTotalLB + lnTotalLS = This.nTotalLS + lnTotalLT = This.nTotalLT + lnTotal = This.nTotal + lnNrPagini = This.nNrPagini + lnNrOperatori = This.nNrOperatori + lcCodFiscalF = Alltrim(gofirma.codfiscalfro) + lcLuna = Padl(Alltrim(Str(gnLuna)), 2, [0]) + lcAn = Alltrim(Str(gnAn)) + + + lcXDP = "" + Text To lcXDP Additive Textmerge Noshow Pretext 1 + + + + + + + + + +
+ +0 + + +<> +<> + + +<> +<> +<> +<> +<> +<> + + + +<> +<> +<> +<> +<> +<> +<> + + +<> +<> +<> + + + + + + + + + + Endtext + + lnSecventa = 0 + Select crsD390 + Scan + lcTara = Substr(cod_fiscal, 1, 2) + If Isalpha(Left(lcTara, 1)) + If !Isalpha(Substr(lcTara, 2, 1)) + lcTara = Left(lcTara, 1) + Endif + Else + lcTara = "" + Endif + lcCodFiscal = Alltrim(Substr(cod_fiscal, Len(lcTara) + 1)) + lcDenumire = Alltrim(Substr(XmlSpecialCharacters(RemoveCharacters(denumire, .T.)), 1, 180)) + lcTip = Alltrim(Upper(TIP)) + lnSecventa = lnSecventa + 1 + lcSuma = Alltrim(Str(suma)) + + Text To lcXDP Additive Textmerge Noshow Pretext 1 + +<> +<> +<> +<> +<> +<> + + Endtext + + Endscan + + Text To lcXDP Additive Textmerge Noshow Pretext 1 + + +<> + + +1 + + + + +<> +<> +<> + + + + + + Endtext + + Wait Window "Se exporta datele in format PDF" Nowait + Strtofile(lcXDP, tcFisierXDP) + If File(tcFisierXDP) + *** copiez fisierul pdf inteligent original in directorul de export + If File(m.tcFisierPDFOriginal) + Copy File (tcFisierPDFOriginal) To (tcFisierPDFNou) + Else + open_default_app("http://static.anaf.ro/static/10/Anaf/Declaratii_R/390.html") + amessagebox('Nu exista fisierul ' + m.lcFisierPDFOriginal + CRLF + ; + 'Copiati pdf-ul inteligent D390 de pe website-ul ANAF in directorul ' + Justpath(m.lcFisierPDFOriginal) + CRLF + ; + 'cu numele ' + Justfname(m.lcFisierPDFOriginal) + '.', 0 + 48, _Screen.Caption) + Endif + Endif + + Select (lcSelect) + Endproc && do_genereaza_xdp + + + *========================================== + Procedure UpdatePDF + Lparameters tcPDFFile + *** tcPDFFile: calea completa a fisierului pdf D:\CONTAFIN\COMUNCONTAFIN\d390.pdf + + Local lcFile, lcPath, llOpen + lcFile = Justfname(m.tcPDFFile) + lcPath = Addbs(Justpath(m.tcPDFFile)) + llOpen = .F. + + Return DownloadSupportFile(m.lcFile, m.lcPath, m.llOpen) && proceduri_comune.prg + + Endproc && UpdatePDF + *========================================== + Procedure do_executa + Local lcAppPath, lcCaleFisier, lcCaleFisierPDF, lcCodFiscal, lcComunPath, lcCursor, lcCursorA + Local lcCursorL, lcDenumire, lcFileName, lcFileNamePDF, lcFisier, lcFisierPDFNou + Local lcFisierPDFOriginal, lcFisierTXT, lcFisierXDP, lcMesaj, lcNumeFisier, lcRun, lcSelect, lcSqlA + Local lcSqlL, lcSuma, lcTara, lcTempPath, lcTip, lcXDP, llSucces, lnNrOperatori, lnNrPagini + Local lnPos, lnSecventa, lnSucces, lnTotal, lnTotalAB, lnTotalAS, lnTotalLB, lnTotalLS, lnTotalLT + Local loEx + + lcSelect = Select() + + *** EXPORT D390 + lcAppPath = Addbs(gcAppPath) + lcComunPath = lcAppPath + lnPos = Rat("\", Addbs(m.lcAppPath), 2) + If lnPos > 0 + lcComunPath = Left(m.lcAppPath, lnPos) + Endif + lcComunPath = lcComunPath + Iif(gcAppName = "CONCONT", "COMUNCONTAFIN\", "COMUNROA\") && d:\contafin\comuncontafin\ + + *** Creez structura director export (caletemp\D390\aaaa_ll\firma\ + llSucces = .F. + Try + lcTempPath = Addbs(m.gcBasePath) + lcCaleFisier = m.lcTempPath + "D390\" && c:\temp\D390\ + + If !Directory(m.lcCaleFisier) + Md (m.lcCaleFisier) + Endif + + lcCaleFisier = m.lcCaleFisier + Alltrim(Str(gnAn)) + "_" + Padl(Alltrim(Str(gnLuna)), 2, "0") + "\"&& c:\temp\D390\2011_01\ + If !Directory(m.lcCaleFisier) + Md (m.lcCaleFisier) + Endif + + lcCaleFisier = m.lcCaleFisier + Strtran(gcFirma, [ ], [_]) + "\" && c:\temp\D390\2011_01\firma\ + If !Directory(m.lcCaleFisier) + Md (m.lcCaleFisier) + Endif + + lcCaleFisierPDF = m.lcCaleFisier && c:\temp\D390\2011_01\firma\ + If !Directory(m.lcCaleFisierPDF) + Md (m.lcCaleFisierPDF) + Endif + + llSucces = .T. + Catch To loEx + lcMesaj = "Creare director " + lcCaleFisier + " " + loEx.Message + + amessagebox(lcMesaj, 0 + 48) + Endtry + If !llSucces + Return + Endif + + If Type('gofirma.codfiscalfro') = 'U' + AddProperty(gofirma, 'codfiscalfro', Strtran(Alltrim(gofirma.cod_fiscal), 'RO', '')) + Endif + + lcNumeFisier = "d390_" + gofirma.codfiscalfro + "_" + Alltrim(Str(gnAn)) + "_" + Padl(gnLuna, 2, "0") + lcFisierPDFOriginal = lcComunPath + "d390.pdf" && d:\contafin\comuncontafin\d390.pdf + + Do Case + Case m.gnAn * 12 + m.gnLuna >= 2020 * 12 + 2 + lcFisierPDFOriginal = lcComunPath + "d390_201902.pdf" + + Case m.gnAn * 12 + m.gnLuna >= 2017 * 12 + 1 + lcFisierPDFOriginal = lcComunPath + "d390_2017.pdf" && d:\contafin\comuncontafin\d390_2017.pdf + Otherwise + lcFisierPDFOriginal = lcComunPath + "d390.pdf" && d:\contafin\comuncontafin\d390.pdf + Endcase + + This.UpdatePDF(m.lcFisierPDFOriginal) && actualizez pdf de la romfast + + lcFileName = m.lcCaleFisier + lcNumeFisier + + lcFileNamePDF = m.lcCaleFisierPDF + lcNumeFisier + lcFisierPDFNou = m.lcFileNamePDF + [.pdf] + lcFisierXDP = m.lcFileNamePDF + [.xdp] + + lcFisierTXT = m.lcFileName + [.txt] + + + If File(lcFisierTXT) + Delete File (lcFisierTXT) + Endif + If File(lcFisierPDFNou) + Delete File (lcFisierPDFNou) + Endif + If File(lcFisierXDP) + Delete File (lcFisierXDP) + Endif + + + + lcCursorA = [crsd390A] + lcCursorL = [crsd390L] + + lcSqlA = [select id_part, replace(cod_fiscal,CHR(32),'') as cod_fiscal, denumire, ] + ; + [ ROUND(sum(cebb)) as ceb, ROUND(sum(cesb)) as ces ] + ; + [ from vjc2010 ] + ; + [ where an = ?gnAn and luna = ?gnLuna and (cebb <> 0 or cesb <> 0) ] + ; + [ group by id_part, replace(cod_fiscal,CHR(32),''), denumire, (case when cebb <> 0 then 'A' else 'S' end) ] + ; + [ order by cod_fiscal] + llSucces = goExecutor.oExecuta(lcSqlA, lcCursorA) + If llSucces + lcSqlL = [select id_part, replace(cod_fiscal,CHR(32),'') as cod_fiscal, denumire, ] + ; + [ ROUND(sum(ceoptr)) as cet, ] + ; + [ ROUND(sum(CESCDD1)) as ceb, ROUND(sum(CESVDD+CESVFDD+CESVFS)) as ces from vjv2010 ] + ; + [where an = ?gnAn and luna = ?gnLuna and (ceoptr <> 0 or CESCDD1 <> 0 or CESVDD <> 0 or CESVFDD <> 0 or CESVFS <> 0) ] + ; + [group by id_part, cod_fiscal, denumire ] + ; + [order by cod_fiscal] + llSucces = goExecutor.oExecuta(lcSqlL, lcCursorL) + Endif + + If !llSucces + Return + Endif + + Create Cursor crsTipA (TIP c(1), ORDINE N(1)) + Insert Into crsTipA (TIP, ORDINE) Values ('A', 1) + Insert Into crsTipA (TIP, ORDINE) Values ('S', 2) + + Create Cursor crsTipL (TIP c(1), ORDINE N(1)) + Insert Into crsTipL (TIP, ORDINE) Values ('L', 3) + Insert Into crsTipL (TIP, ORDINE) Values ('P', 4) + Insert Into crsTipL (TIP, ORDINE) Values ('T', 5) + + Select b.ORDINE, b.TIP, id_part, cod_fiscal, denumire, Cast(Iif(b.TIP = 'A', ceb, ces) As N(20)) As suma ; + From crsd390A a, crsTipA b ; + Union ; + Select b.ORDINE, b.TIP, id_part, cod_fiscal, denumire, Cast(Iif(b.TIP = 'L', ceb, Iif(b.TIP = 'P', ces, cet)) As N(20)) As suma ; + From crsd390L a, crsTipL b ; + Order By 1, 2, 5 ; + Into Cursor crsD390 Readwrite + + Use In (Select('crsTipA')) + Use In (Select('crsTipL')) + Use In (Select('crsd390A')) + Use In (Select('crsd390L')) + + Update crsD390 Set cod_fiscal = Nvl(cod_fiscal, ''), denumire = Nvl(denumire, ''), suma = Nvl(suma, 0) + Delete From crsD390 Where suma = 0 + + *** TOTALURI + Select Sum(Cast(Iif(TIP = 'A', suma, 0) As N(20))) As TotalAB, ; + Sum(Cast(Iif(TIP = 'S', suma, 0) As N(20))) As TotalAS, ; + Sum(Cast(Iif(TIP = 'L', suma, 0) As N(20))) As TotalLB, ; + Sum(Cast(Iif(TIP = 'P', suma, 0) As N(20))) As TotalLS, ; + Sum(Cast(Iif(TIP = 'T', suma, 0) As N(20))) As TotalLT ; + From crsD390 ; + Into Cursor crsTotal + + Go Top In crsTotal + This.nTotalAB = crsTotal.TotalAB + This.nTotalAS = crsTotal.TotalAS + This.nTotalLB = crsTotal.TotalLB + This.nTotalLS = crsTotal.TotalLS + This.nTotalLT = crsTotal.TotalLT + Use In (Select('crsTotal')) + + This.nTotal = This.nTotalAB + This.nTotalAS + This.nTotalLB + This.nTotalLS + This.nTotalLT + + Select Distinct id_part From crsD390 Into Cursor crsTotalOperatori + This.nNrOperatori = _Tally + This.nNrPagini = 1 + Ceiling((This.nNrOperatori - 22) / 26) + Use In (Select('crsTotalOperatori')) + *** TOTALURI ^ + + + + Do Case + Case m.gnAn * 12 + m.gnLuna >= 2020 * 12 + 2 + This.do_genereaza_xdp_201902(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + This.do_genereaza_txt_201902(lcFisierTXT) + Otherwise + This.do_genereaza_xdp(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + This.do_genereaza_txt(lcFisierTXT) + Endcase + + + + Use In (Select('crsd390')) + + If File(m.lcFisierXDP) And File(m.lcFisierPDFNou) + open_default_app(lcFisierXDP) + Endif + *** deschid explorer in directorul de export + lcRun = [RUN /N7 explorer.exe "] + m.lcCaleFisier + ["] + &lcRun + + Select (m.lcSelect) + + Endproc + +Enddefine && D390 + +********************************************************* +*** DECLARATIA 101 Declaratie privind impozitul pe profit +********************************************************* +Procedure viz_decl101 + Local loD101 + loD101 = Createobject("D101") + loD101.do_executa() +Endproc && vizualizare + + +Define Class D101 As Custom + + Procedure do_executa + Private pnCA, pcPerioada, pnAnul, pnLuna1, pnLuna2 + Local loBackupXML As "backupxml" + Local loil As "frm_decl101_perioada" + Local losc As "frm_decl101" + Local lcCursor, lcPerioade, lcSql, lcXMLFileName, llRestoredBackupSet + Local lnSucces + pcPerioada = "" + pnCA = 0 && (cifra de afaceri folosita in formula 3/1000 CA la rd. 43 Sume reprezentând sponsorizare si/sau mecenat, burse private, în limita prevazuta de lege) + pnAnul = gnAn + pnLuna1 = 1 + pnLuna2 = 12 + + ******************************************************************************** + llRestoredBackupSet = .F. + + lcXMLFileName = "d101_" + Padl(m.gnAn, 4, '0') + "_" + Padl(m.gnLuna, 2, '0') + loBackupXML = Createobject("backupxml", m.lcXMLFileName) && proceduri_comune.prg + If loBackupXML.ExistsBackupSet() + If amessagebox('Exista D101 salvata anterior.' + Chr(13) + Chr(10) + 'Doriti sa o reincarcati?', 4 + 32, _Screen.Caption) = 6 + llRestoredBackupSet = loBackupXML.RestoreBackupSet() + Endif + Endif + ******************************************************************************** + + If !m.llRestoredBackupSet + pcPerioada = '' + lcPerioade = '01-' + Padl(gnLuna, 2, '0') + ',' + ; + Iif(m.gnLuna = 12, '02-12,04-12,07-12,10-12', '') + + loil = Createobject("frm_decl101_perioada") + loil.cb_perioada.RowSource = m.lcPerioade + loil.cb_perioada.Value = Getwordnum(m.lcPerioade, 1, ',') && 01-LL + loil.Show(1) + + + + Do Case + Case gnAn >= 2024 + lcSql = [select d.*, 0000000000.00 as l1, 0000000000.00 as l2 ] + ; + [ from decl_101 d where valabil = '1224' order by ordine] + lcProceduraCalculare = 'calculare_2024' + Case gnAn >= 2021 + lcSql = [select d.*, 0000000000.00 as l1, 0000000000.00 as l2 ] + ; + [ from decl_101 d where valabil = '1221' order by ordine] + lcProceduraCalculare = 'calculare_2021' + Case gnAn >= 2020 + lcSql = [select d.*, 0000000000.00 as l1, 0000000000.00 as l2 ] + ; + [ from decl_101 d where valabil = '1220' order by ordine] + lcProceduraCalculare = 'calculare_2020' + Case gnAn >= 2018 + lcSql = [select d.*, 0000000000.00 as l1, 0000000000.00 as l2 ] + ; + [ from decl_101 d where valabil = '1218' order by ordine] + lcProceduraCalculare = 'calculare_2018' + Case gnAn >= 2017 + lcSql = [select d.*, 0000000000.00 as l1, 0000000000.00 as l2 ] + ; + [ from decl_101 d where valabil = '1217' order by ordine] + lcProceduraCalculare = 'calculare_2017' + Case gnAn >= 2016 + lcSql = [select d.*, 0000000000.00 as l1, 0000000000.00 as l2 ] + ; + [ from decl_101 d where valabil = '1216' order by ordine] + lcProceduraCalculare = 'calculare_2016' + Case gnAn >= 2014 + lcSql = [select d.*, 0000000000.00 as l1, 0000000000.00 as l2 ] + ; + [ from decl_101 d where valabil = '1214' order by ordine] + lcProceduraCalculare = 'calculare_2014' + Case gnAn >= 2012 + lcSql = [select d.*, 0000000000.00 as l1, 0000000000.00 as l2 ] + ; + [ from decl_101 d where valabil = '1212' order by ordine] + lcProceduraCalculare = 'calculare_2012' + Case gnAn >= 2011 + lcSql = [select d.*, 0000000000.00 as l1, 0000000000.00 as l2 ] + ; + [ from decl_101 d where valabil = '1211' order by ordine] + lcProceduraCalculare = 'calculare_2012' + Otherwise + lcSql = [select d.*, 0000000000.00 as l1, 0000000000.00 as l2 ] + ; + [ from decl_101 d where valabil = '1210' order by ordine] + lcProceduraCalculare = 'calculare_2012' + Endcase + + lcCursor = [cDecl] + + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + pnAnul = m.gnAn + pnLuna1 = Int(Val(Left(m.pcPerioada, 2))) + pnLuna2 = Int(Val(Substr(m.pcPerioada, 4))) + + + This.&lcProceduraCalculare(m.pnAnul, m.pnLuna2) + Select cDecl + Replace All l2 With suma + + If m.pnLuna1 <> 1 && 10-12 + This.&lcProceduraCalculare(m.pnAnul, m.pnLuna1 - 1) + Select cDecl + Replace All l1 With suma + + Replace All suma With l2 - l1 + Endif + Endif && llRestoredBackupSet + + Select cDecl + losc = Createobject("frm_decl101") + If m.pnLuna1 = 1 + losc._grdrow1.cl1.Visible = .F. + losc._grdrow1.cl2.Visible = .F. + Endif + losc.Show(1) + + If m.gnButon = 1 + loBackupXML.SaveBackupSet("cDecl") + loBackupXML.SavePrivateVariables("pcPerioada,pnCA,pnAnul,pnLuna1,pnLuna2") + Endif && BUTON = 1 + + Endproc && do_executa + + ********************************************** + Procedure calculare_2024 + Parameters tnAnul, tnLuna + + * Generez Contul de Profit si Pierdere pentru venituri, cheltuieli exploatare, financiare, extraordinare + + Private pcId_butonCur, pnCount, pnCumul, pnId_sectie, pnId_setCur, pnId_venchelt + + Local lcCursor, lcField, lcRand, lcSel, lcSql, llSucces, ln1, ln10, ln16, ln2, ln26, ln28, ln29 + Local ln30, ln4, ln5, ln7, ln8, lnBazaProtocol, lnProtocol, lnProtocolLimita, lnRezInPlus + Local lnRezMaxAn, lnRezMaxTotal, lnSucces + Private pn1061c, pn1061t, pn50, pn51, pnCA, pnCapSoc, pnProfitBrut + + pnCumul = 1 + pnId_sectie = 0 + pnId_venchelt = 0 + pnCount = 0 + pcId_butonCur = [2024_2_R_20_0] && ultimul formular 20, a fost generat pentru semestrul II 2018, entitati mici/medii/mari + pnId_setCur = 0 && -218 la 12/2024 + + lcSql = [begin pack_sitfin.get_id_set(?pcId_butonCur, ?@pnId_setCur); end;] + llSucces = goExecutor.oExecuta(lcSql) + If !m.llSucces + Return + Endif + + lcSql = [begin PACK_MG_EVOLUTIE.GET_SET(?pnId_setCur, ?@pnCount); end;] && copii din mg_indicatori in temporarul mg_tmp_indicatori + llSucces = goExecutor.oExecuta(lcSql) + + If !m.llSucces + Return + Endif + + If m.pnCount = 0 + amessagebox('Setul Cont Profit si Pierdere ' + pcId_butonCur + ' nu contine indicatori!', 0 + 48, "Atentie") + Return + Endif + + lcSel = [{call PACK_MG_EVOLUTIE.GEN_MG_INDICATORI(] + Alltrim(Str(m.tnLuna)) + [,] + Alltrim(Str(m.tnAnul)) + [,] + Alltrim(Str(m.tnLuna)) + [,] + Alltrim(Str(m.tnAnul)) + [,] + Alltrim(Str(pnCumul)) + [,] + Alltrim(Str(pnId_sectie)) + [,] + Alltrim(Str(pnId_venchelt)) + [)}] + * lcSel = [{call PACK_MG_EVOLUTIE.GEN_MG_INDICATORI(?gnLuna, ?gnAn, ?gnLuna,?gnAn, ?pnCumul, ?pnId_sectie, ?pnId_venchelt}] && ODBC error: sintax error or access violation + lcCursor = 'crsContProfit' + + llSucces = goExecutor.oExecuta(lcSel, lcCursor) + If !m.llSucces + Return + Endif + + Select crsContProfit + If Reccount() = 0 + amessagebox('Setul Cont Profit si Pierdere ' + pcId_butonCur + ' nu contine informatii!', 0 + 48, "Atentie") + Return + Endif + + lcField = Field(7, 'crsContProfit') + Select Rand, nume_ind, Round(&lcField, 0) As valoare ; + From crsContProfit ; + Order By Rand ; + Into Cursor cContProfit Readwrite + + && denominare + If 12 * gnAn + gnLuna <= 12 * 2005 + 6 + Select cContProfit + Replace All valoare With Round(valoare / 1000, 0) + Endif + + Use In (Select('crsContProfit')) + + Select cContProfit + Scan + lcRand = Alltrim(Rand) + Do Case + Case m.lcRand = '01' && cifra de afaceri + * CIFRA DE AFACERI pentru formula rd. 45 (sponsorizari in limita 3/1000 din CA) + * rd 45 6582 maxim 20% rd.40.1 si maxim 3/1000 CA (in cod) (rd. 1 din Contul de Profit si Pierdere) + pnCA = valoare + Case m.lcRand = '16' && venituri din exploatare + ln1 = valoare + + Select cDecl + Locate For Alltrim(Rand) = '01' + If Found() + Replace suma With m.ln1 + Endif + Case m.lcRand = '42' && cheltuieli din exploatare + ln2 = valoare + + Select cDecl + Locate For Alltrim(Rand) = '02' + If Found() + Replace suma With m.ln2 + Endif + Case m.lcRand = '52' && venituri financiare + ln4 = valoare + + Select cDecl + Locate For Alltrim(Rand) = '04' + If Found() + Replace suma With m.ln4 + Endif + Case m.lcRand = '59' && cheltuieli financiare + ln5 = valoare + + Select cDecl + Locate For Alltrim(Rand) = '05' + If Found() + Replace suma With m.ln5 + Endif + *!* Case m.lcRand = '57' && venituri extraordinare + *!* ln7 = valoare + + *!* Select cDecl + *!* Locate For Alltrim(Rand) = '07' + *!* If Found() + *!* Replace suma With m.ln7 + *!* Endif + *!* Case m.lcRand = '58' && cheltuieli extraordinare + *!* ln8 = valoare + + *!* Select cDecl + *!* Locate For Alltrim(Rand) = '08' + *!* If Found() + *!* Replace suma With m.ln8 + *!* Endif + Endcase + Endscan && cContProfit + Use In (Select('cContProfit')) + && Veniturile si cheltuielile extraordinare nu mai apar in Contul de Profit si Pierdere 12/2015 + ln7 = 0 + ln8 = 0 + * Profit brut (Rd 16 - cheltuieli cu rezerva deductibila) + pnProfitBrut = ln1 - ln2 + ln4 - ln5 + ln7 - ln8 + + * Capital social (Rd 16 - cheltuieli cu rezerva deductibila) + Text To lcSql Textmerge Noshow + select sum(soldcred) as suma + from <> + where cont = '1012' and an = <> and luna = <> <> + Endtext + + pnCapSoc = 0 + lnSucces = goExecutor.oSelect2Value(m.lcSql, @pnCapSoc) + If m.lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, _Screen.Caption) + Endif + pnCapSoc = Nvl(m.pnCapSoc, 0) + + * Rd 23 Cheltuieli impozit profit 691 (sau 698 daca nu s-a stornat cand a trecut de la micro) + Text To lcSql Textmerge Noshow + select sum(totcred) as suma + from <> + where cont in ('691', '698') and an = <> and luna = <> <> + Endtext + + lcCursor = [crs691] + llSucces = goExecutor.oExecuta(lcSql, lcCursor) + + ln23 = 0 + If m.llSucces + Select crs691 + ln23 = Round(Nvl(suma, 0), 0) + Use In crs691 + Endif + + Select cDecl + Locate For Alltrim(Rand) = '23' && Cheltuieli cu impozitul pe profit/venit + If Found() + Replace suma With m.ln23 + Endif + + * La randul 2 cheltuieli din exploatare se aduna si Cheltuiala cu impozitul pe profit (apoi se scade din randul 23 ca cheltuiala nedeductibila) + Select cDecl + Locate For Alltrim(Rand) = '02' + If Found() + Replace suma With suma + m.ln23 + Endif + + * Rd 25 Amenzi, confiscari, dobanzi 6581 + lcSql = [select sum(totcred) as suma ] + ; + [ from ] + Iif(glEMama, [vbalmama], [vbal]) + ; + [ where an = ] + Alltrim(Str(tnAnul)) + [ and luna = ] + Alltrim(Str(tnLuna)) + gcCondSucursala + ; + [ and to_number(cont) = 6581] + + lcCursor = [crs6581] + llSucces = goExecutor.oExecuta(lcSql, lcCursor) + + ln25 = 0 + If m.llSucces + Select crs6581 + ln25 = Nvl(suma, 0) + Use In crs6581 + Endif + + Select cDecl + Locate For Alltrim(Rand) = '25' && Amenzi, confiscari, dobanzi + If Found() + Replace suma With Round(m.ln25, 0) + Endif + *--- + + * RD 26 Cheltuieli de protocol care depaºesc limita prevazuta de lege 27 + *** cheltuieli de protocol sub limita 623.protocol.limita = 2% * (121 + 691 + 623.protocol) = 2% (rd. 10 + rd.24 + 623.protocol ) + *** cheltuieli de protocol care depasesc limita prevazuta de lege = 623.protocol - 623.protocol.limita + lcSql = [select sum(b.totcred) as suma ] + ; + [ from ] + Iif(glEMama, [vbalanamama b], [vbalana b]) + ; + [ join plcont p on b.cont = p.cont and b.acont = p.acont and b.an = p.an ] + ; + [ where b.an = ] + Alltrim(Str(tnAnul)) + [ and b.luna = ] + Alltrim(Str(tnLuna)) + gcCondSucursala + ; + [ and SUBSTR(b.cont,1,3) = '623' and UPPER(p.explicatie) like '%PROTOCOL%' and p.acont is not null] + + lcCursor = [crs623] + llSucces = goExecutor.oExecuta(lcSql, lcCursor) + lnProtocol = 0 + If m.llSucces + Select crs623 + lnProtocol = Nvl(suma, 0) + Use In (Select('crs623')) + Endif + + If m.lnProtocol = 0 + lcSql = [select sum(totcred) as suma ] + ; + [ from ] + Iif(glEMama, [vbalmama], [vbal]) + ; + [ where an = ] + Alltrim(Str(tnAnul)) + [ and luna = ] + Alltrim(Str(tnLuna)) + gcCondSucursala + ; + [ and SUBSTR(cont,1,3) = '623'] + + lcCursor = [crs623] + llSucces = goExecutor.oExecuta(lcSql, lcCursor) + + If m.llSucces + Select crs623 + lnProtocol = Nvl(suma, 0) + Use In (Select('crs623')) + Endif + + + Endif + ln10 = (m.ln1 - m.ln2) + (m.ln4 - m.ln5) + (m.ln7 - m.ln8) + If m.ln10 <= 0 && profitul negativ, cheltuielile de protocol depasesc in intregime limita + ln26 = m.lnProtocol + Else + lnBazaProtocol = m.ln10 + m.ln23 + m.lnProtocol + lnProtocolLimita = m.lnBazaProtocol * 0.02 + ln26 = m.lnProtocol - m.lnProtocolLimita + ln26 = Max(m.ln26, 0) + Endif + + Select cDecl + Locate For Alltrim(Rand) = '26' && Cheltuieli de protocol care depasesc limita prevazuta de lege + If Found() + Replace suma With Round(m.ln26, 0) + Endif + *--- + *!* Select cDecl + *!* Locate For Alltrim(Rand) = '401' + *!* Replace suma With ln24 * 0.16 + + * Rd 27 Cheltuieli de sponsorizare + lcSql = [select sum(totcred) as suma ] + ; + [ from ] + Iif(glEMama, [vbalmama], [vbal]) + ; + [ where an = ] + Alltrim(Str(tnAnul)) + [ and luna = ] + Alltrim(Str(tnLuna)) + gcCondSucursala + ; + [ and cont = '6582'] + + lcCursor = [crs6582] + llSucces = goExecutor.oExecuta(lcSql, lcCursor) + + ln27 = 0 + If m.llSucces + Select crs6582 + ln27 = Nvl(suma, 0) + Use In (Select('crs6582')) + Endif + + Select cDecl + Locate For Alltrim(Rand) = '27' && DONATII SI SUBVENTII ACORDATE + If Found() + Replace suma With Round(m.ln27, 0) + Endif + + * Rd 50 Impozit pe profit declarat pentru anul de raportare prin formularul 100 + * TSD 691 30 sept + lcSql = [select sum(totdeb) as suma ] + ; + [ from ] + Iif(glEMama, [vbalmama], [vbal]) + ; + [ where an = ] + Alltrim(Str(tnAnul)) + [ and luna = 9 ] + gcCondSucursala + ; + [ and cont = '691'] + + pn50 = 0 + lnSucces = goExecutor.oSelect2Value(m.lcSql, @pn50) + + If m.lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, _Screen.Caption) + Else + Select cDecl + Locate For Alltrim(Rand) = '50' + If Found() + Replace suma With Round(Nvl(m.pn50, 0), 0) + Endif + Endif + + *!* * Rd 51 Impozit pe veniturile microintreprinderilor declarat pentru anul de raportare prin formularul 100 + *!* * TSD 698 30 sept + *!* lcSql = [select sum(totdeb) as suma ] + ; + *!* [ from ] + Iif(glEMama, [vbalmama], [vbal]) + ; + *!* [ where an = ] + Alltrim(Str(tnAnul)) + [ and luna = 9 ] + gcCondSucursala + ; + *!* [ and cont = '698'] + + *!* pn51 = 0 + *!* lnSucces = goExecutor.oSelect2Value(m.lcSql, @pn51) + + *!* If m.lnSucces < 0 + *!* amessagebox(goExecutor.cEroare, 0 + 16, _Screen.Caption) + *!* Else + *!* Select cDecl + *!* Locate For Alltrim(Rand) = '51' + *!* If Found() + *!* Replace suma With Round(Nvl(m.pn51, 0), 0) + *!* Endif + *!* Endif + + + * Rd 13 Rezerva legala deductibila + * <= 5% din profitul contabil inainte de impozitare - venituri neimpozabile + cheltuieli nedeductibile + * maxim total rezerva <= 20% capital social + Text To lcSql Noshow Textmerge + select sum(soldcred) as suma + from <> + where cont = '1061' and an = <> and luna = <> <> + Endtext + + pn1061t = 0 && sold 1061 + lnSucces = goExecutor.oSelect2Value(m.lcSql, @pn1061t) + If m.lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, _Screen.Caption) + Endif + pn1061t = Nvl(m.pn1061t, 0) + + Text To lcSql Noshow Textmerge + select sum(totcred-preccred1) as suma + from <> + where cont = '1061' and an = <> and luna = <> <> + Endtext + + pn1061c = 0 && rulaj anual 1061 + lnSucces = goExecutor.oSelect2Value(m.lcSql, @pn1061c) + + If m.lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, _Screen.Caption) + Else + ln13 = 0 + If m.pnProfitBrut > 0 + lnRezMaxAn = m.pnProfitBrut * 0.05 + lnRezMaxTotal = m.pnCapSoc * 0.20 + lnRezInPlus = Iif(m.lnRezMaxTotal < m.pn1061t, m.lnRezMaxTotal - m.pn1061t, 0) + + ln13 = Min(m.lnRezMaxAn, m.pn1061c) + m.lnRezInPlus + Endif + + Select cDecl + Locate For Alltrim(Rand) = '13' + If Found() + Replace suma With Round(Nvl(m.ln13, 0), 0) + Endif + Endif + + + + Endproc && calculare_2024 + + ********************************************** + Procedure calculare_2021 + Parameters tnAnul, tnLuna + + * Generez Contul de Profit si Pierdere pentru venituri, cheltuieli exploatare, financiare, extraordinare + + Private pcId_butonCur, pnCount, pnCumul, pnId_sectie, pnId_setCur, pnId_venchelt + + Local lcCursor, lcField, lcRand, lcSel, lcSql, llSucces, ln1, ln10, ln16, ln2, ln26, ln28, ln29 + Local ln30, ln4, ln5, ln7, ln8, lnBazaProtocol, lnProtocol, lnProtocolLimita, lnRezInPlus + Local lnRezMaxAn, lnRezMaxTotal, lnSucces + Private pn1061c, pn1061t, pn50, pn51, pnCA, pnCapSoc, pnProfitBrut + + pnCumul = 1 + pnId_sectie = 0 + pnId_venchelt = 0 + pnCount = 0 + pcId_butonCur = [2018_2_R_20_0] && ultimul formular 20, a fost generat pentru semestrul II 2018, entitati mici/medii/mari + pnId_setCur = 0 && -165 la 12/2018 + + lcSql = [begin pack_sitfin.get_id_set(?pcId_butonCur, ?@pnId_setCur); end;] + llSucces = goExecutor.oExecuta(lcSql) + If !m.llSucces + Return + Endif + + lcSql = [begin PACK_MG_EVOLUTIE.GET_SET(?pnId_setCur, ?@pnCount); end;] && copii din mg_indicatori in temporarul mg_tmp_indicatori + llSucces = goExecutor.oExecuta(lcSql) + + If !m.llSucces + Return + Endif + + If m.pnCount = 0 + amessagebox('Setul Cont Profit si Pierdere ' + pcId_butonCur + ' nu contine indicatori!', 0 + 48, "Atentie") + Return + Endif + + lcSel = [{call PACK_MG_EVOLUTIE.GEN_MG_INDICATORI(] + Alltrim(Str(m.tnLuna)) + [,] + Alltrim(Str(m.tnAnul)) + [,] + Alltrim(Str(m.tnLuna)) + [,] + Alltrim(Str(m.tnAnul)) + [,] + Alltrim(Str(pnCumul)) + [,] + Alltrim(Str(pnId_sectie)) + [,] + Alltrim(Str(pnId_venchelt)) + [)}] + * lcSel = [{call PACK_MG_EVOLUTIE.GEN_MG_INDICATORI(?gnLuna, ?gnAn, ?gnLuna,?gnAn, ?pnCumul, ?pnId_sectie, ?pnId_venchelt}] && ODBC error: sintax error or access violation + lcCursor = 'crsContProfit' + + llSucces = goExecutor.oExecuta(lcSel, lcCursor) + If !m.llSucces + Return + Endif + + Select crsContProfit + If Reccount() = 0 + amessagebox('Setul Cont Profit si Pierdere ' + pcId_butonCur + ' nu contine informatii!', 0 + 48, "Atentie") + Return + Endif + + lcField = Field(7, 'crsContProfit') + Select Rand, nume_ind, Round(&lcField, 0) As valoare ; + From crsContProfit ; + Order By Rand ; + Into Cursor cContProfit Readwrite + + && denominare + If 12 * gnAn + gnLuna <= 12 * 2005 + 6 + Select cContProfit + Replace All valoare With Round(valoare / 1000, 0) + Endif + + Use In (Select('crsContProfit')) + + Select cContProfit + Scan + lcRand = Alltrim(Rand) + Do Case + Case m.lcRand = '01' && cifra de afaceri + * CIFRA DE AFACERI pentru formula rd. 45 (sponsorizari in limita 3/1000 din CA) + * rd 45 6582 maxim 20% rd.40.1 si maxim 3/1000 CA (in cod) (rd. 1 din Contul de Profit si Pierdere) + pnCA = valoare + Case m.lcRand = '16' && venituri din exploatare + ln1 = valoare + + Select cDecl + Locate For Alltrim(Rand) = '01' + If Found() + Replace suma With m.ln1 + Endif + Case m.lcRand = '42' && cheltuieli din exploatare + ln2 = valoare + + Select cDecl + Locate For Alltrim(Rand) = '02' + If Found() + Replace suma With m.ln2 + Endif + Case m.lcRand = '52' && venituri financiare + ln4 = valoare + + Select cDecl + Locate For Alltrim(Rand) = '04' + If Found() + Replace suma With m.ln4 + Endif + Case m.lcRand = '59' && cheltuieli financiare + ln5 = valoare + + Select cDecl + Locate For Alltrim(Rand) = '05' + If Found() + Replace suma With m.ln5 + Endif + *!* Case m.lcRand = '57' && venituri extraordinare + *!* ln7 = valoare + + *!* Select cDecl + *!* Locate For Alltrim(Rand) = '07' + *!* If Found() + *!* Replace suma With m.ln7 + *!* Endif + *!* Case m.lcRand = '58' && cheltuieli extraordinare + *!* ln8 = valoare + + *!* Select cDecl + *!* Locate For Alltrim(Rand) = '08' + *!* If Found() + *!* Replace suma With m.ln8 + *!* Endif + Endcase + Endscan && cContProfit + Use In (Select('cContProfit')) + && Veniturile si cheltuielile extraordinare nu mai apar in Contul de Profit si Pierdere 12/2015 + ln7 = 0 + ln8 = 0 + * Profit brut (Rd 16 - cheltuieli cu rezerva deductibila) + pnProfitBrut = ln1 - ln2 + ln4 - ln5 + ln7 - ln8 + + * Capital social (Rd 16 - cheltuieli cu rezerva deductibila) + Text To lcSql Textmerge Noshow + select sum(soldcred) as suma + from <> + where cont = '1012' and an = <> and luna = <> <> + Endtext + + pnCapSoc = 0 + lnSucces = goExecutor.oSelect2Value(m.lcSql, @pnCapSoc) + If m.lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, _Screen.Caption) + Endif + pnCapSoc = Nvl(m.pnCapSoc, 0) + + * Rd 23 Cheltuieli impozit profit 691 (sau 698 daca nu s-a stornat cand a trecut de la micro) + Text To lcSql Textmerge Noshow + select sum(totcred) as suma + from <> + where cont in ('691', '698') and an = <> and luna = <> <> + Endtext + + lcCursor = [crs691] + llSucces = goExecutor.oExecuta(lcSql, lcCursor) + + ln23 = 0 + If m.llSucces + Select crs691 + ln23 = Round(Nvl(suma, 0), 0) + Use In crs691 + Endif + + Select cDecl + Locate For Alltrim(Rand) = '23' && Cheltuieli cu impozitul pe profit/venit + If Found() + Replace suma With m.ln23 + Endif + + * La randul 2 cheltuieli din exploatare se aduna si Cheltuiala cu impozitul pe profit (apoi se scade din randul 23 ca cheltuiala nedeductibila) + Select cDecl + Locate For Alltrim(Rand) = '02' + If Found() + Replace suma With suma + m.ln23 + Endif + + * Rd 25 Amenzi, confiscari, dobanzi 6581 + lcSql = [select sum(totcred) as suma ] + ; + [ from ] + Iif(glEMama, [vbalmama], [vbal]) + ; + [ where an = ] + Alltrim(Str(tnAnul)) + [ and luna = ] + Alltrim(Str(tnLuna)) + gcCondSucursala + ; + [ and to_number(cont) = 6581] + + lcCursor = [crs6581] + llSucces = goExecutor.oExecuta(lcSql, lcCursor) + + ln25 = 0 + If m.llSucces + Select crs6581 + ln25 = Nvl(suma, 0) + Use In crs6581 + Endif + + Select cDecl + Locate For Alltrim(Rand) = '25' && Amenzi, confiscari, dobanzi + If Found() + Replace suma With Round(m.ln25, 0) + Endif + *--- + + * RD 26 Cheltuieli de protocol care depaºesc limita prevazuta de lege 27 + *** cheltuieli de protocol sub limita 623.protocol.limita = 2% * (121 + 691 + 623.protocol) = 2% (rd. 10 + rd.24 + 623.protocol ) + *** cheltuieli de protocol care depasesc limita prevazuta de lege = 623.protocol - 623.protocol.limita + lcSql = [select sum(b.totcred) as suma ] + ; + [ from ] + Iif(glEMama, [vbalanamama b], [vbalana b]) + ; + [ join plcont p on b.cont = p.cont and b.acont = p.acont and b.an = p.an ] + ; + [ where b.an = ] + Alltrim(Str(tnAnul)) + [ and b.luna = ] + Alltrim(Str(tnLuna)) + gcCondSucursala + ; + [ and SUBSTR(b.cont,1,3) = '623' and UPPER(p.explicatie) like '%PROTOCOL%' and p.acont is not null] + + lcCursor = [crs623] + llSucces = goExecutor.oExecuta(lcSql, lcCursor) + lnProtocol = 0 + If m.llSucces + Select crs623 + lnProtocol = Nvl(suma, 0) + Use In (Select('crs623')) + Endif + + If m.lnProtocol = 0 + lcSql = [select sum(totcred) as suma ] + ; + [ from ] + Iif(glEMama, [vbalmama], [vbal]) + ; + [ where an = ] + Alltrim(Str(tnAnul)) + [ and luna = ] + Alltrim(Str(tnLuna)) + gcCondSucursala + ; + [ and SUBSTR(cont,1,3) = '623'] + + lcCursor = [crs623] + llSucces = goExecutor.oExecuta(lcSql, lcCursor) + + If m.llSucces + Select crs623 + lnProtocol = Nvl(suma, 0) + Use In (Select('crs623')) + Endif + + + Endif + ln10 = (m.ln1 - m.ln2) + (m.ln4 - m.ln5) + (m.ln7 - m.ln8) + If m.ln10 <= 0 && profitul negativ, cheltuielile de protocol depasesc in intregime limita + ln26 = m.lnProtocol + Else + lnBazaProtocol = m.ln10 + m.ln23 + m.lnProtocol + lnProtocolLimita = m.lnBazaProtocol * 0.02 + ln26 = m.lnProtocol - m.lnProtocolLimita + ln26 = Max(m.ln26, 0) + Endif + + Select cDecl + Locate For Alltrim(Rand) = '26' && Cheltuieli de protocol care depasesc limita prevazuta de lege + If Found() + Replace suma With Round(m.ln26, 0) + Endif + *--- + *!* Select cDecl + *!* Locate For Alltrim(Rand) = '401' + *!* Replace suma With ln24 * 0.16 + + * Rd 27 Cheltuieli de sponsorizare + lcSql = [select sum(totcred) as suma ] + ; + [ from ] + Iif(glEMama, [vbalmama], [vbal]) + ; + [ where an = ] + Alltrim(Str(tnAnul)) + [ and luna = ] + Alltrim(Str(tnLuna)) + gcCondSucursala + ; + [ and cont = '6582'] + + lcCursor = [crs6582] + llSucces = goExecutor.oExecuta(lcSql, lcCursor) + + ln27 = 0 + If m.llSucces + Select crs6582 + ln27 = Nvl(suma, 0) + Use In (Select('crs6582')) + Endif + + Select cDecl + Locate For Alltrim(Rand) = '27' && DONATII SI SUBVENTII ACORDATE + If Found() + Replace suma With Round(m.ln27, 0) + Endif + + * Rd 49 Impozit pe profit declarat pentru anul de raportare prin formularul 100 + * TSD 691 30 sept + lcSql = [select sum(totdeb) as suma ] + ; + [ from ] + Iif(glEMama, [vbalmama], [vbal]) + ; + [ where an = ] + Alltrim(Str(tnAnul)) + [ and luna = 9 ] + gcCondSucursala + ; + [ and cont = '691'] + + pn49 = 0 + lnSucces = goExecutor.oSelect2Value(m.lcSql, @pn49) + + If m.lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, _Screen.Caption) + Else + Select cDecl + Locate For Alltrim(Rand) = '49' + If Found() + Replace suma With Round(Nvl(m.pn49, 0), 0) + Endif + Endif + + *!* * Rd 51 Impozit pe veniturile microintreprinderilor declarat pentru anul de raportare prin formularul 100 + *!* * TSD 698 30 sept + *!* lcSql = [select sum(totdeb) as suma ] + ; + *!* [ from ] + Iif(glEMama, [vbalmama], [vbal]) + ; + *!* [ where an = ] + Alltrim(Str(tnAnul)) + [ and luna = 9 ] + gcCondSucursala + ; + *!* [ and cont = '698'] + + *!* pn51 = 0 + *!* lnSucces = goExecutor.oSelect2Value(m.lcSql, @pn51) + + *!* If m.lnSucces < 0 + *!* amessagebox(goExecutor.cEroare, 0 + 16, _Screen.Caption) + *!* Else + *!* Select cDecl + *!* Locate For Alltrim(Rand) = '51' + *!* If Found() + *!* Replace suma With Round(Nvl(m.pn51, 0), 0) + *!* Endif + *!* Endif + + + * Rd 13 Rezerva legala deductibila + * <= 5% din profitul contabil inainte de impozitare - venituri neimpozabile + cheltuieli nedeductibile + * maxim total rezerva <= 20% capital social + Text To lcSql Noshow Textmerge + select sum(soldcred) as suma + from <> + where cont = '1061' and an = <> and luna = <> <> + Endtext + + pn1061t = 0 && sold 1061 + lnSucces = goExecutor.oSelect2Value(m.lcSql, @pn1061t) + If m.lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, _Screen.Caption) + Endif + pn1061t = Nvl(m.pn1061t, 0) + + Text To lcSql Noshow Textmerge + select sum(totcred-preccred1) as suma + from <> + where cont = '1061' and an = <> and luna = <> <> + Endtext + + pn1061c = 0 && rulaj anual 1061 + lnSucces = goExecutor.oSelect2Value(m.lcSql, @pn1061c) + + If m.lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, _Screen.Caption) + Else + ln13 = 0 + If m.pnProfitBrut > 0 + lnRezMaxAn = m.pnProfitBrut * 0.05 + lnRezMaxTotal = m.pnCapSoc * 0.20 + lnRezInPlus = Iif(m.lnRezMaxTotal < m.pn1061t, m.lnRezMaxTotal - m.pn1061t, 0) + + ln13 = Min(m.lnRezMaxAn, m.pn1061c) + m.lnRezInPlus + Endif + + Select cDecl + Locate For Alltrim(Rand) = '13' + If Found() + Replace suma With Round(Nvl(m.ln13, 0), 0) + Endif + Endif + + + + Endproc && calculare_2021 + + ********************************************** + Procedure calculare_2020 + Parameters tnAnul, tnLuna + + * Generez Contul de Profit si Pierdere pentru venituri, cheltuieli exploatare, financiare, extraordinare + + Private pcId_butonCur, pnCount, pnCumul, pnId_sectie, pnId_setCur, pnId_venchelt + + Local lcCursor, lcField, lcRand, lcSel, lcSql, llSucces, ln1, ln10, ln16, ln2, ln26, ln28, ln29 + Local ln30, ln4, ln5, ln7, ln8, lnBazaProtocol, lnProtocol, lnProtocolLimita, lnRezInPlus + Local lnRezMaxAn, lnRezMaxTotal, lnSucces + Private pn1061c, pn1061t, pn50, pn51, pnCA, pnCapSoc, pnProfitBrut + + pnCumul = 1 + pnId_sectie = 0 + pnId_venchelt = 0 + pnCount = 0 + pcId_butonCur = [2018_2_R_20_0] && ultimul formular 20, a fost generat pentru semestrul II 2018, entitati mici/medii/mari + pnId_setCur = 0 && -165 la 12/2018 + + lcSql = [begin pack_sitfin.get_id_set(?pcId_butonCur, ?@pnId_setCur); end;] + llSucces = goExecutor.oExecuta(lcSql) + If !m.llSucces + Return + Endif + + lcSql = [begin PACK_MG_EVOLUTIE.GET_SET(?pnId_setCur, ?@pnCount); end;] && copii din mg_indicatori in temporarul mg_tmp_indicatori + llSucces = goExecutor.oExecuta(lcSql) + + If !m.llSucces + Return + Endif + + If m.pnCount = 0 + amessagebox('Setul Cont Profit si Pierdere ' + pcId_butonCur + ' nu contine indicatori!', 0 + 48, "Atentie") + Return + Endif + + lcSel = [{call PACK_MG_EVOLUTIE.GEN_MG_INDICATORI(] + Alltrim(Str(m.tnLuna)) + [,] + Alltrim(Str(m.tnAnul)) + [,] + Alltrim(Str(m.tnLuna)) + [,] + Alltrim(Str(m.tnAnul)) + [,] + Alltrim(Str(pnCumul)) + [,] + Alltrim(Str(pnId_sectie)) + [,] + Alltrim(Str(pnId_venchelt)) + [)}] + * lcSel = [{call PACK_MG_EVOLUTIE.GEN_MG_INDICATORI(?gnLuna, ?gnAn, ?gnLuna,?gnAn, ?pnCumul, ?pnId_sectie, ?pnId_venchelt}] && ODBC error: sintax error or access violation + lcCursor = 'crsContProfit' + + llSucces = goExecutor.oExecuta(lcSel, lcCursor) + If !m.llSucces + Return + Endif + + Select crsContProfit + If Reccount() = 0 + amessagebox('Setul Cont Profit si Pierdere ' + pcId_butonCur + ' nu contine informatii!', 0 + 48, "Atentie") + Return + Endif + + lcField = Field(7, 'crsContProfit') + Select Rand, nume_ind, Round(&lcField, 0) As valoare ; + From crsContProfit ; + Order By Rand ; + Into Cursor cContProfit Readwrite + + && denominare + If 12 * gnAn + gnLuna <= 12 * 2005 + 6 + Select cContProfit + Replace All valoare With Round(valoare / 1000, 0) + Endif + + Use In (Select('crsContProfit')) + + Select cContProfit + Scan + lcRand = Alltrim(Rand) + Do Case + Case m.lcRand = '01' && cifra de afaceri + * CIFRA DE AFACERI pentru formula rd. 45 (sponsorizari in limita 3/1000 din CA) + * rd 45 6582 maxim 20% rd.40.1 si maxim 3/1000 CA (in cod) (rd. 1 din Contul de Profit si Pierdere) + pnCA = valoare + Case m.lcRand = '16' && venituri din exploatare + ln1 = valoare + + Select cDecl + Locate For Alltrim(Rand) = '01' + If Found() + Replace suma With m.ln1 + Endif + Case m.lcRand = '42' && cheltuieli din exploatare + ln2 = valoare + + Select cDecl + Locate For Alltrim(Rand) = '02' + If Found() + Replace suma With m.ln2 + Endif + Case m.lcRand = '52' && venituri financiare + ln4 = valoare + + Select cDecl + Locate For Alltrim(Rand) = '04' + If Found() + Replace suma With m.ln4 + Endif + Case m.lcRand = '59' && cheltuieli financiare + ln5 = valoare + + Select cDecl + Locate For Alltrim(Rand) = '05' + If Found() + Replace suma With m.ln5 + Endif + *!* Case m.lcRand = '57' && venituri extraordinare + *!* ln7 = valoare + + *!* Select cDecl + *!* Locate For Alltrim(Rand) = '07' + *!* If Found() + *!* Replace suma With m.ln7 + *!* Endif + *!* Case m.lcRand = '58' && cheltuieli extraordinare + *!* ln8 = valoare + + *!* Select cDecl + *!* Locate For Alltrim(Rand) = '08' + *!* If Found() + *!* Replace suma With m.ln8 + *!* Endif + Endcase + Endscan && cContProfit + Use In (Select('cContProfit')) + && Veniturile si cheltuielile extraordinare nu mai apar in Contul de Profit si Pierdere 12/2015 + ln7 = 0 + ln8 = 0 + * Profit brut (Rd 16 - cheltuieli cu rezerva deductibila) + pnProfitBrut = ln1 - ln2 + ln4 - ln5 + ln7 - ln8 + + * Capital social (Rd 16 - cheltuieli cu rezerva deductibila) + Text To lcSql Textmerge Noshow + select sum(soldcred) as suma + from <> + where cont = '1012' and an = <> and luna = <> <> + Endtext + + pnCapSoc = 0 + lnSucces = goExecutor.oSelect2Value(m.lcSql, @pnCapSoc) + If m.lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, _Screen.Caption) + Endif + pnCapSoc = Nvl(m.pnCapSoc, 0) + + * Rd 23 Cheltuieli impozit profit 691 (sau 698 daca nu s-a stornat cand a trecut de la micro) + Text To lcSql Textmerge Noshow + select sum(totcred) as suma + from <> + where cont in ('691', '698') and an = <> and luna = <> <> + Endtext + + lcCursor = [crs691] + llSucces = goExecutor.oExecuta(lcSql, lcCursor) + + ln23 = 0 + If m.llSucces + Select crs691 + ln23 = Round(Nvl(suma, 0), 0) + Use In crs691 + Endif + + Select cDecl + Locate For Alltrim(Rand) = '23' && Cheltuieli cu impozitul pe profit/venit + If Found() + Replace suma With m.ln23 + Endif + + * La randul 2 cheltuieli din exploatare se aduna si Cheltuiala cu impozitul pe profit (apoi se scade din randul 23 ca cheltuiala nedeductibila) + Select cDecl + Locate For Alltrim(Rand) = '02' + If Found() + Replace suma With suma + m.ln23 + Endif + + * Rd 25 Amenzi, confiscari, dobanzi 6581 + lcSql = [select sum(totcred) as suma ] + ; + [ from ] + Iif(glEMama, [vbalmama], [vbal]) + ; + [ where an = ] + Alltrim(Str(tnAnul)) + [ and luna = ] + Alltrim(Str(tnLuna)) + gcCondSucursala + ; + [ and to_number(cont) = 6581] + + lcCursor = [crs6581] + llSucces = goExecutor.oExecuta(lcSql, lcCursor) + + ln25 = 0 + If m.llSucces + Select crs6581 + ln25 = Nvl(suma, 0) + Use In crs6581 + Endif + + Select cDecl + Locate For Alltrim(Rand) = '25' && Amenzi, confiscari, dobanzi + If Found() + Replace suma With Round(m.ln25, 0) + Endif + *--- + + * RD 26 Cheltuieli de protocol care depaºesc limita prevazuta de lege 27 + *** cheltuieli de protocol sub limita 623.protocol.limita = 2% * (121 + 691 + 623.protocol) = 2% (rd. 10 + rd.24 + 623.protocol ) + *** cheltuieli de protocol care depasesc limita prevazuta de lege = 623.protocol - 623.protocol.limita + lcSql = [select sum(b.totcred) as suma ] + ; + [ from ] + Iif(glEMama, [vbalanamama b], [vbalana b]) + ; + [ join plcont p on b.cont = p.cont and b.acont = p.acont and b.an = p.an ] + ; + [ where b.an = ] + Alltrim(Str(tnAnul)) + [ and b.luna = ] + Alltrim(Str(tnLuna)) + gcCondSucursala + ; + [ and SUBSTR(b.cont,1,3) = '623' and UPPER(p.explicatie) like '%PROTOCOL%' and p.acont is not null] + + lcCursor = [crs623] + llSucces = goExecutor.oExecuta(lcSql, lcCursor) + lnProtocol = 0 + If m.llSucces + Select crs623 + lnProtocol = Nvl(suma, 0) + Use In (Select('crs623')) + Endif + + If m.lnProtocol = 0 + lcSql = [select sum(totcred) as suma ] + ; + [ from ] + Iif(glEMama, [vbalmama], [vbal]) + ; + [ where an = ] + Alltrim(Str(tnAnul)) + [ and luna = ] + Alltrim(Str(tnLuna)) + gcCondSucursala + ; + [ and SUBSTR(cont,1,3) = '623'] + + lcCursor = [crs623] + llSucces = goExecutor.oExecuta(lcSql, lcCursor) + + If m.llSucces + Select crs623 + lnProtocol = Nvl(suma, 0) + Use In (Select('crs623')) + Endif + + + Endif + ln10 = (m.ln1 - m.ln2) + (m.ln4 - m.ln5) + (m.ln7 - m.ln8) + If m.ln10 <= 0 && profitul negativ, cheltuielile de protocol depasesc in intregime limita + ln26 = m.lnProtocol + Else + lnBazaProtocol = m.ln10 + m.ln23 + m.lnProtocol + lnProtocolLimita = m.lnBazaProtocol * 0.02 + ln26 = m.lnProtocol - m.lnProtocolLimita + ln26 = Max(m.ln26, 0) + Endif + + Select cDecl + Locate For Alltrim(Rand) = '26' && Cheltuieli de protocol care depasesc limita prevazuta de lege + If Found() + Replace suma With Round(m.ln26, 0) + Endif + *--- + *!* Select cDecl + *!* Locate For Alltrim(Rand) = '401' + *!* Replace suma With ln24 * 0.16 + + * Rd 27 Cheltuieli de sponsorizare + lcSql = [select sum(totcred) as suma ] + ; + [ from ] + Iif(glEMama, [vbalmama], [vbal]) + ; + [ where an = ] + Alltrim(Str(tnAnul)) + [ and luna = ] + Alltrim(Str(tnLuna)) + gcCondSucursala + ; + [ and cont = '6582'] + + lcCursor = [crs6582] + llSucces = goExecutor.oExecuta(lcSql, lcCursor) + + ln27 = 0 + If m.llSucces + Select crs6582 + ln27 = Nvl(suma, 0) + Use In (Select('crs6582')) + Endif + + Select cDecl + Locate For Alltrim(Rand) = '27' && DONATII SI SUBVENTII ACORDATE + If Found() + Replace suma With Round(m.ln27, 0) + Endif + + * Rd 52 Impozit pe profit declarat pentru anul de raportare prin formularul 100 + * TSD 691 30 sept + lcSql = [select sum(totdeb) as suma ] + ; + [ from ] + Iif(glEMama, [vbalmama], [vbal]) + ; + [ where an = ] + Alltrim(Str(tnAnul)) + [ and luna = 9 ] + gcCondSucursala + ; + [ and cont = '691'] + + pn52 = 0 + lnSucces = goExecutor.oSelect2Value(m.lcSql, @pn52) + + If m.lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, _Screen.Caption) + Else + Select cDecl + Locate For Alltrim(Rand) = '52' + If Found() + Replace suma With Round(Nvl(m.pn52, 0), 0) + Endif + Endif + + *!* * Rd 51 Impozit pe veniturile microintreprinderilor declarat pentru anul de raportare prin formularul 100 + *!* * TSD 698 30 sept + *!* lcSql = [select sum(totdeb) as suma ] + ; + *!* [ from ] + Iif(glEMama, [vbalmama], [vbal]) + ; + *!* [ where an = ] + Alltrim(Str(tnAnul)) + [ and luna = 9 ] + gcCondSucursala + ; + *!* [ and cont = '698'] + + *!* pn51 = 0 + *!* lnSucces = goExecutor.oSelect2Value(m.lcSql, @pn51) + + *!* If m.lnSucces < 0 + *!* amessagebox(goExecutor.cEroare, 0 + 16, _Screen.Caption) + *!* Else + *!* Select cDecl + *!* Locate For Alltrim(Rand) = '51' + *!* If Found() + *!* Replace suma With Round(Nvl(m.pn51, 0), 0) + *!* Endif + *!* Endif + + + * Rd 13 Rezerva legala deductibila + * <= 5% din profitul contabil inainte de impozitare - venituri neimpozabile + cheltuieli nedeductibile + * maxim total rezerva <= 20% capital social + Text To lcSql Noshow Textmerge + select sum(soldcred) as suma + from <> + where cont = '1061' and an = <> and luna = <> <> + Endtext + + pn1061t = 0 && sold 1061 + lnSucces = goExecutor.oSelect2Value(m.lcSql, @pn1061t) + If m.lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, _Screen.Caption) + Endif + pn1061t = Nvl(m.pn1061t, 0) + + Text To lcSql Noshow Textmerge + select sum(totcred-preccred1) as suma + from <> + where cont = '1061' and an = <> and luna = <> <> + Endtext + + pn1061c = 0 && rulaj anual 1061 + lnSucces = goExecutor.oSelect2Value(m.lcSql, @pn1061c) + + If m.lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, _Screen.Caption) + Else + ln13 = 0 + If m.pnProfitBrut > 0 + lnRezMaxAn = m.pnProfitBrut * 0.05 + lnRezMaxTotal = m.pnCapSoc * 0.20 + lnRezInPlus = Iif(m.lnRezMaxTotal < m.pn1061t, m.lnRezMaxTotal - m.pn1061t, 0) + + ln13 = Min(m.lnRezMaxAn, m.pn1061c) + m.lnRezInPlus + Endif + + Select cDecl + Locate For Alltrim(Rand) = '13' + If Found() + Replace suma With Round(Nvl(m.ln13, 0), 0) + Endif + Endif + + + + Endproc && calculare_2020 + + ********************************************** + Procedure calculare_2018 + Parameters tnAnul, tnLuna + + * Generez Contul de Profit si Pierdere pentru venituri, cheltuieli exploatare, financiare, extraordinare + + Private pcId_butonCur, pnCount, pnCumul, pnId_sectie, pnId_setCur, pnId_venchelt + + Local lcCursor, lcField, lcRand, lcSel, lcSql, llSucces, ln1, ln10, ln16, ln2, ln26, ln28, ln29 + Local ln30, ln4, ln5, ln7, ln8, lnBazaProtocol, lnProtocol, lnProtocolLimita, lnRezInPlus + Local lnRezMaxAn, lnRezMaxTotal, lnSucces + Private pn1061c, pn1061t, pn50, pn51, pnCA, pnCapSoc, pnProfitBrut + + pnCumul = 1 + pnId_sectie = 0 + pnId_venchelt = 0 + pnCount = 0 + pcId_butonCur = [2018_2_R_20_0] && ultimul formular 20, a fost generat pentru semestrul II 2018, entitati mici/medii/mari + pnId_setCur = 0 && -165 la 12/2018 + + lcSql = [begin pack_sitfin.get_id_set(?pcId_butonCur, ?@pnId_setCur); end;] + llSucces = goExecutor.oExecuta(lcSql) + If !m.llSucces + Return + Endif + + lcSql = [begin PACK_MG_EVOLUTIE.GET_SET(?pnId_setCur, ?@pnCount); end;] && copii din mg_indicatori in temporarul mg_tmp_indicatori + llSucces = goExecutor.oExecuta(lcSql) + + If !m.llSucces + Return + Endif + + If m.pnCount = 0 + amessagebox('Setul Cont Profit si Pierdere ' + pcId_butonCur + ' nu contine indicatori!', 0 + 48, "Atentie") + Return + Endif + + lcSel = [{call PACK_MG_EVOLUTIE.GEN_MG_INDICATORI(] + Alltrim(Str(m.tnLuna)) + [,] + Alltrim(Str(m.tnAnul)) + [,] + Alltrim(Str(m.tnLuna)) + [,] + Alltrim(Str(m.tnAnul)) + [,] + Alltrim(Str(pnCumul)) + [,] + Alltrim(Str(pnId_sectie)) + [,] + Alltrim(Str(pnId_venchelt)) + [)}] + * lcSel = [{call PACK_MG_EVOLUTIE.GEN_MG_INDICATORI(?gnLuna, ?gnAn, ?gnLuna,?gnAn, ?pnCumul, ?pnId_sectie, ?pnId_venchelt}] && ODBC error: sintax error or access violation + lcCursor = 'crsContProfit' + + llSucces = goExecutor.oExecuta(lcSel, lcCursor) + If !m.llSucces + Return + Endif + + Select crsContProfit + If Reccount() = 0 + amessagebox('Setul Cont Profit si Pierdere ' + pcId_butonCur + ' nu contine informatii!', 0 + 48, "Atentie") + Return + Endif + + lcField = Field(7, 'crsContProfit') + Select Rand, nume_ind, Round(&lcField, 0) As valoare ; + From crsContProfit ; + Order By Rand ; + Into Cursor cContProfit Readwrite + + && denominare + If 12 * gnAn + gnLuna <= 12 * 2005 + 6 + Select cContProfit + Replace All valoare With Round(valoare / 1000, 0) + Endif + + Use In (Select('crsContProfit')) + + Select cContProfit + Scan + lcRand = Alltrim(Rand) + Do Case + Case m.lcRand = '01' && cifra de afaceri + * CIFRA DE AFACERI pentru formula rd. 45 (sponsorizari in limita 3/1000 din CA) + * rd 45 6582 maxim 20% rd.40.1 si maxim 3/1000 CA (in cod) (rd. 1 din Contul de Profit si Pierdere) + pnCA = valoare + Case m.lcRand = '16' && venituri din exploatare + ln1 = valoare + + Select cDecl + Locate For Alltrim(Rand) = '01' + If Found() + Replace suma With m.ln1 + Endif + Case m.lcRand = '42' && cheltuieli din exploatare + ln2 = valoare + + Select cDecl + Locate For Alltrim(Rand) = '02' + If Found() + Replace suma With m.ln2 + Endif + Case m.lcRand = '52' && venituri financiare + ln4 = valoare + + Select cDecl + Locate For Alltrim(Rand) = '04' + If Found() + Replace suma With m.ln4 + Endif + Case m.lcRand = '59' && cheltuieli financiare + ln5 = valoare + + Select cDecl + Locate For Alltrim(Rand) = '05' + If Found() + Replace suma With m.ln5 + Endif + *!* Case m.lcRand = '57' && venituri extraordinare + *!* ln7 = valoare + + *!* Select cDecl + *!* Locate For Alltrim(Rand) = '07' + *!* If Found() + *!* Replace suma With m.ln7 + *!* Endif + *!* Case m.lcRand = '58' && cheltuieli extraordinare + *!* ln8 = valoare + + *!* Select cDecl + *!* Locate For Alltrim(Rand) = '08' + *!* If Found() + *!* Replace suma With m.ln8 + *!* Endif + Endcase + Endscan && cContProfit + Use In (Select('cContProfit')) + && Veniturile si cheltuielile extraordinare nu mai apar in Contul de Profit si Pierdere 12/2015 + ln7 = 0 + ln8 = 0 + * Profit brut (Rd 16 - cheltuieli cu rezerva deductibila) + pnProfitBrut = ln1 - ln2 + ln4 - ln5 + ln7 - ln8 + + * Capital social (Rd 16 - cheltuieli cu rezerva deductibila) + Text To lcSql Textmerge Noshow + select sum(soldcred) as suma + from <> + where cont = '1012' and an = <> and luna = <> <> + Endtext + + pnCapSoc = 0 + lnSucces = goExecutor.oSelect2Value(m.lcSql, @pnCapSoc) + If m.lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, _Screen.Caption) + Endif + pnCapSoc = Nvl(m.pnCapSoc, 0) + + * Rd 23 Cheltuieli impozit profit 691 (sau 698 daca nu s-a stornat cand a trecut de la micro) + Text To lcSql Textmerge Noshow + select sum(totcred) as suma + from <> + where cont in ('691', '698') and an = <> and luna = <> <> + Endtext + + lcCursor = [crs691] + llSucces = goExecutor.oExecuta(lcSql, lcCursor) + + ln23 = 0 + If m.llSucces + Select crs691 + ln23 = Round(Nvl(suma, 0), 0) + Use In crs691 + Endif + + Select cDecl + Locate For Alltrim(Rand) = '23' && Cheltuieli cu impozitul pe profit/venit + If Found() + Replace suma With m.ln23 + Endif + + * La randul 2 cheltuieli din exploatare se aduna si Cheltuiala cu impozitul pe profit (apoi se scade din randul 23 ca cheltuiala nedeductibila) + Select cDecl + Locate For Alltrim(Rand) = '02' + If Found() + Replace suma With suma + m.ln23 + Endif + + * Rd 25 Amenzi, confiscari, dobanzi 6581 + lcSql = [select sum(totcred) as suma ] + ; + [ from ] + Iif(glEMama, [vbalmama], [vbal]) + ; + [ where an = ] + Alltrim(Str(tnAnul)) + [ and luna = ] + Alltrim(Str(tnLuna)) + gcCondSucursala + ; + [ and to_number(cont) = 6581] + + lcCursor = [crs6581] + llSucces = goExecutor.oExecuta(lcSql, lcCursor) + + ln25 = 0 + If m.llSucces + Select crs6581 + ln25 = Nvl(suma, 0) + Use In crs6581 + Endif + + Select cDecl + Locate For Alltrim(Rand) = '25' && Amenzi, confiscari, dobanzi + If Found() + Replace suma With Round(m.ln25, 0) + Endif + *--- + + * RD 26 Cheltuieli de protocol care depaºesc limita prevazuta de lege 27 + *** cheltuieli de protocol sub limita 623.protocol.limita = 2% * (121 + 691 + 623.protocol) = 2% (rd. 10 + rd.24 + 623.protocol ) + *** cheltuieli de protocol care depasesc limita prevazuta de lege = 623.protocol - 623.protocol.limita + lcSql = [select sum(b.totcred) as suma ] + ; + [ from ] + Iif(glEMama, [vbalanamama b], [vbalana b]) + ; + [ join plcont p on b.cont = p.cont and b.acont = p.acont and b.an = p.an ] + ; + [ where b.an = ] + Alltrim(Str(tnAnul)) + [ and b.luna = ] + Alltrim(Str(tnLuna)) + gcCondSucursala + ; + [ and SUBSTR(b.cont,1,3) = '623' and UPPER(p.explicatie) like '%PROTOCOL%' and p.acont is not null] + + lcCursor = [crs623] + llSucces = goExecutor.oExecuta(lcSql, lcCursor) + lnProtocol = 0 + If m.llSucces + Select crs623 + lnProtocol = Nvl(suma, 0) + Use In (Select('crs623')) + Endif + + If m.lnProtocol = 0 + lcSql = [select sum(totcred) as suma ] + ; + [ from ] + Iif(glEMama, [vbalmama], [vbal]) + ; + [ where an = ] + Alltrim(Str(tnAnul)) + [ and luna = ] + Alltrim(Str(tnLuna)) + gcCondSucursala + ; + [ and SUBSTR(cont,1,3) = '623'] + + lcCursor = [crs623] + llSucces = goExecutor.oExecuta(lcSql, lcCursor) + + If m.llSucces + Select crs623 + lnProtocol = Nvl(suma, 0) + Use In (Select('crs623')) + Endif + + + Endif + ln10 = (m.ln1 - m.ln2) + (m.ln4 - m.ln5) + (m.ln7 - m.ln8) + If m.ln10 <= 0 && profitul negativ, cheltuielile de protocol depasesc in intregime limita + ln26 = m.lnProtocol + Else + lnBazaProtocol = m.ln10 + m.ln23 + m.lnProtocol + lnProtocolLimita = m.lnBazaProtocol * 0.02 + ln26 = m.lnProtocol - m.lnProtocolLimita + ln26 = Max(m.ln26, 0) + Endif + + Select cDecl + Locate For Alltrim(Rand) = '26' && Cheltuieli de protocol care depasesc limita prevazuta de lege + If Found() + Replace suma With Round(m.ln26, 0) + Endif + *--- + *!* Select cDecl + *!* Locate For Alltrim(Rand) = '401' + *!* Replace suma With ln24 * 0.16 + + * Rd 27 Cheltuieli de sponsorizare + lcSql = [select sum(totcred) as suma ] + ; + [ from ] + Iif(glEMama, [vbalmama], [vbal]) + ; + [ where an = ] + Alltrim(Str(tnAnul)) + [ and luna = ] + Alltrim(Str(tnLuna)) + gcCondSucursala + ; + [ and cont = '6582'] + + lcCursor = [crs6582] + llSucces = goExecutor.oExecuta(lcSql, lcCursor) + + ln27 = 0 + If m.llSucces + Select crs6582 + ln27 = Nvl(suma, 0) + Use In (Select('crs6582')) + Endif + + Select cDecl + Locate For Alltrim(Rand) = '27' && DONATII SI SUBVENTII ACORDATE + If Found() + Replace suma With Round(m.ln27, 0) + Endif + + * Rd 47 Impozit pe profit declarat pentru anul de raportare prin formularul 100 + * TSD 691 30 sept + lcSql = [select sum(totdeb) as suma ] + ; + [ from ] + Iif(glEMama, [vbalmama], [vbal]) + ; + [ where an = ] + Alltrim(Str(tnAnul)) + [ and luna = 9 ] + gcCondSucursala + ; + [ and cont = '691'] + + pn47 = 0 + lnSucces = goExecutor.oSelect2Value(m.lcSql, @pn47) + + If m.lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, _Screen.Caption) + Else + Select cDecl + Locate For Alltrim(Rand) = '47' + If Found() + Replace suma With Round(Nvl(m.pn47, 0), 0) + Endif + Endif + + *!* * Rd 51 Impozit pe veniturile microintreprinderilor declarat pentru anul de raportare prin formularul 100 + *!* * TSD 698 30 sept + *!* lcSql = [select sum(totdeb) as suma ] + ; + *!* [ from ] + Iif(glEMama, [vbalmama], [vbal]) + ; + *!* [ where an = ] + Alltrim(Str(tnAnul)) + [ and luna = 9 ] + gcCondSucursala + ; + *!* [ and cont = '698'] + + *!* pn51 = 0 + *!* lnSucces = goExecutor.oSelect2Value(m.lcSql, @pn51) + + *!* If m.lnSucces < 0 + *!* amessagebox(goExecutor.cEroare, 0 + 16, _Screen.Caption) + *!* Else + *!* Select cDecl + *!* Locate For Alltrim(Rand) = '51' + *!* If Found() + *!* Replace suma With Round(Nvl(m.pn51, 0), 0) + *!* Endif + *!* Endif + + + * Rd 13 Rezerva legala deductibila + * <= 5% din profitul contabil inainte de impozitare - venituri neimpozabile + cheltuieli nedeductibile + * maxim total rezerva <= 20% capital social + Text To lcSql Noshow Textmerge + select sum(soldcred) as suma + from <> + where cont = '1061' and an = <> and luna = <> <> + Endtext + + pn1061t = 0 && sold 1061 + lnSucces = goExecutor.oSelect2Value(m.lcSql, @pn1061t) + If m.lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, _Screen.Caption) + Endif + pn1061t = Nvl(m.pn1061t, 0) + + Text To lcSql Noshow Textmerge + select sum(totcred-preccred1) as suma + from <> + where cont = '1061' and an = <> and luna = <> <> + Endtext + + pn1061c = 0 && rulaj anual 1061 + lnSucces = goExecutor.oSelect2Value(m.lcSql, @pn1061c) + + If m.lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, _Screen.Caption) + Else + ln13 = 0 + If m.pnProfitBrut > 0 + lnRezMaxAn = m.pnProfitBrut * 0.05 + lnRezMaxTotal = m.pnCapSoc * 0.20 + lnRezInPlus = Iif(m.lnRezMaxTotal < m.pn1061t, m.lnRezMaxTotal - m.pn1061t, 0) + + ln13 = Min(m.lnRezMaxAn, m.pn1061c) + m.lnRezInPlus + Endif + + Select cDecl + Locate For Alltrim(Rand) = '13' + If Found() + Replace suma With Round(Nvl(m.ln13, 0), 0) + Endif + Endif + + + + Endproc && calculare_2018 + + ********************************************** + Procedure calculare_2017 + Parameters tnAnul, tnLuna + + * Generez Contul de Profit si Pierdere pentru venituri, cheltuieli exploatare, financiare, extraordinare + + Private pcId_butonCur, pnCount, pnCumul, pnId_sectie, pnId_setCur, pnId_venchelt + + Local lcCursor, lcField, lcRand, lcSel, lcSql, llSucces, ln1, ln10, ln16, ln2, ln26, ln28, ln29 + Local ln30, ln4, ln5, ln7, ln8, lnBazaProtocol, lnProtocol, lnProtocolLimita, lnRezInPlus + Local lnRezMaxAn, lnRezMaxTotal, lnSucces + Private pn1061c, pn1061t, pn50, pn51, pnCA, pnCapSoc, pnProfitBrut + + pnCumul = 1 + pnId_sectie = 0 + pnId_venchelt = 0 + pnCount = 0 + pcId_butonCur = [2015_2_R_20_0] && ultimul formular 20, a fost generat pentru semestrul II 2015, entitati mici/medii/mari + pnId_setCur = 0 && -142 la 12/2015 + + lcSql = [begin pack_sitfin.get_id_set(?pcId_butonCur, ?@pnId_setCur); end;] + llSucces = goExecutor.oExecuta(lcSql) + If !m.llSucces + Return + Endif + + lcSql = [begin PACK_MG_EVOLUTIE.GET_SET(?pnId_setCur, ?@pnCount); end;] && copii din mg_indicatori in temporarul mg_tmp_indicatori + llSucces = goExecutor.oExecuta(lcSql) + + If !m.llSucces + Return + Endif + + If m.pnCount = 0 + amessagebox('Setul Cont Profit si Pierdere ' + pcId_butonCur + ' nu contine indicatori!', 0 + 48, "Atentie") + Return + Endif + + lcSel = [{call PACK_MG_EVOLUTIE.GEN_MG_INDICATORI(] + Alltrim(Str(m.tnLuna)) + [,] + Alltrim(Str(m.tnAnul)) + [,] + Alltrim(Str(m.tnLuna)) + [,] + Alltrim(Str(m.tnAnul)) + [,] + Alltrim(Str(pnCumul)) + [,] + Alltrim(Str(pnId_sectie)) + [,] + Alltrim(Str(pnId_venchelt)) + [)}] + * lcSel = [{call PACK_MG_EVOLUTIE.GEN_MG_INDICATORI(?gnLuna, ?gnAn, ?gnLuna,?gnAn, ?pnCumul, ?pnId_sectie, ?pnId_venchelt}] && ODBC error: sintax error or access violation + lcCursor = 'crsContProfit' + + llSucces = goExecutor.oExecuta(lcSel, lcCursor) + If !m.llSucces + Return + Endif + + Select crsContProfit + If Reccount() = 0 + amessagebox('Setul Cont Profit si Pierdere ' + pcId_butonCur + ' nu contine informatii!', 0 + 48, "Atentie") + Return + Endif + + lcField = Field(7, 'crsContProfit') + Select Rand, nume_ind, Round(&lcField, 0) As valoare ; + From crsContProfit ; + Order By Rand ; + Into Cursor cContProfit Readwrite + + && denominare + If 12 * gnAn + gnLuna <= 12 * 2005 + 6 + Select cContProfit + Replace All valoare With Round(valoare / 1000, 0) + Endif + + Use In (Select('crsContProfit')) + + Select cContProfit + Scan + lcRand = Alltrim(Rand) + Do Case + Case m.lcRand = '01' && cifra de afaceri + * CIFRA DE AFACERI pentru formula rd. 45 (sponsorizari in limita 3/1000 din CA) + * rd 45 6582 maxim 20% rd.40.1 si maxim 3/1000 CA (in cod) (rd. 1 din Contul de Profit si Pierdere) + pnCA = valoare + Case m.lcRand = '16' && venituri din exploatare + ln1 = valoare + + Select cDecl + Locate For Alltrim(Rand) = '01' + If Found() + Replace suma With m.ln1 + Endif + Case m.lcRand = '42' && cheltuieli din exploatare + ln2 = valoare + + Select cDecl + Locate For Alltrim(Rand) = '02' + If Found() + Replace suma With m.ln2 + Endif + Case m.lcRand = '52' && venituri financiare + ln4 = valoare + + Select cDecl + Locate For Alltrim(Rand) = '04' + If Found() + Replace suma With m.ln4 + Endif + Case m.lcRand = '59' && cheltuieli financiare + ln5 = valoare + + Select cDecl + Locate For Alltrim(Rand) = '05' + If Found() + Replace suma With m.ln5 + Endif + *!* Case m.lcRand = '57' && venituri extraordinare + *!* ln7 = valoare + + *!* Select cDecl + *!* Locate For Alltrim(Rand) = '07' + *!* If Found() + *!* Replace suma With m.ln7 + *!* Endif + *!* Case m.lcRand = '58' && cheltuieli extraordinare + *!* ln8 = valoare + + *!* Select cDecl + *!* Locate For Alltrim(Rand) = '08' + *!* If Found() + *!* Replace suma With m.ln8 + *!* Endif + Endcase + Endscan && cContProfit + Use In (Select('cContProfit')) + && Veniturile si cheltuielile extraordinare nu mai apar in Contul de Profit si Pierdere 12/2015 + ln7 = 0 + ln8 = 0 + * Profit brut (Rd 16 - cheltuieli cu rezerva deductibila) + pnProfitBrut = ln1 - ln2 + ln4 - ln5 + ln7 - ln8 + + * Capital social (Rd 16 - cheltuieli cu rezerva deductibila) + Text To lcSql Textmerge Noshow + select sum(soldcred) as suma + from <> + where cont = '1012' and an = <> and luna = <> <> + Endtext + + pnCapSoc = 0 + lnSucces = goExecutor.oSelect2Value(m.lcSql, @pnCapSoc) + If m.lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, _Screen.Caption) + Endif + pnCapSoc = Nvl(m.pnCapSoc, 0) + + * Rd 23 Cheltuieli impozit profit 691 (sau 698 daca nu s-a stornat cand a trecut de la micro) + Text To lcSql Textmerge Noshow + select sum(totcred) as suma + from <> + where cont in ('691', '698') and an = <> and luna = <> <> + Endtext + + lcCursor = [crs691] + llSucces = goExecutor.oExecuta(lcSql, lcCursor) + + ln23 = 0 + If m.llSucces + Select crs691 + ln23 = Round(Nvl(suma, 0), 0) + Use In crs691 + Endif + + Select cDecl + Locate For Alltrim(Rand) = '23' && Cheltuieli cu impozitul pe profit/venit + If Found() + Replace suma With m.ln23 + Endif + + * La randul 2 cheltuieli din exploatare se aduna si Cheltuiala cu impozitul pe profit (apoi se scade din randul 23 ca cheltuiala nedeductibila) + Select cDecl + Locate For Alltrim(Rand) = '02' + If Found() + Replace suma With suma + m.ln23 + Endif + + * Rd 25 Amenzi, confiscari, dobanzi 6581 + lcSql = [select sum(totcred) as suma ] + ; + [ from ] + Iif(glEMama, [vbalmama], [vbal]) + ; + [ where an = ] + Alltrim(Str(tnAnul)) + [ and luna = ] + Alltrim(Str(tnLuna)) + gcCondSucursala + ; + [ and to_number(cont) = 6581] + + lcCursor = [crs6581] + llSucces = goExecutor.oExecuta(lcSql, lcCursor) + + ln25 = 0 + If m.llSucces + Select crs6581 + ln25 = Nvl(suma, 0) + Use In crs6581 + Endif + + Select cDecl + Locate For Alltrim(Rand) = '25' && Amenzi, confiscari, dobanzi + If Found() + Replace suma With Round(m.ln25, 0) + Endif + *--- + + * RD 26 Cheltuieli de protocol care depaºesc limita prevazuta de lege 27 + *** cheltuieli de protocol sub limita 623.protocol.limita = 2% * (121 + 691 + 623.protocol) = 2% (rd. 10 + rd.24 + 623.protocol ) + *** cheltuieli de protocol care depasesc limita prevazuta de lege = 623.protocol - 623.protocol.limita + lcSql = [select sum(b.totcred) as suma ] + ; + [ from ] + Iif(glEMama, [vbalanamama b], [vbalana b]) + ; + [ join plcont p on b.cont = p.cont and b.acont = p.acont and b.an = p.an ] + ; + [ where b.an = ] + Alltrim(Str(tnAnul)) + [ and b.luna = ] + Alltrim(Str(tnLuna)) + gcCondSucursala + ; + [ and SUBSTR(b.cont,1,3) = '623' and UPPER(p.explicatie) like '%PROTOCOL%' and p.acont is not null] + + lcCursor = [crs623] + llSucces = goExecutor.oExecuta(lcSql, lcCursor) + lnProtocol = 0 + If m.llSucces + Select crs623 + lnProtocol = Nvl(suma, 0) + Use In (Select('crs623')) + Endif + + If m.lnProtocol = 0 + lcSql = [select sum(totcred) as suma ] + ; + [ from ] + Iif(glEMama, [vbalmama], [vbal]) + ; + [ where an = ] + Alltrim(Str(tnAnul)) + [ and luna = ] + Alltrim(Str(tnLuna)) + gcCondSucursala + ; + [ and SUBSTR(cont,1,3) = '623'] + + lcCursor = [crs623] + llSucces = goExecutor.oExecuta(lcSql, lcCursor) + + If m.llSucces + Select crs623 + lnProtocol = Nvl(suma, 0) + Use In (Select('crs623')) + Endif + + + Endif + ln10 = (m.ln1 - m.ln2) + (m.ln4 - m.ln5) + (m.ln7 - m.ln8) + If m.ln10 <= 0 && profitul negativ, cheltuielile de protocol depasesc in intregime limita + ln26 = m.lnProtocol + Else + lnBazaProtocol = m.ln10 + m.ln23 + m.lnProtocol + lnProtocolLimita = m.lnBazaProtocol * 0.02 + ln26 = m.lnProtocol - m.lnProtocolLimita + ln26 = Max(m.ln26, 0) + Endif + + Select cDecl + Locate For Alltrim(Rand) = '26' && Cheltuieli de protocol care depasesc limita prevazuta de lege + If Found() + Replace suma With Round(m.ln26, 0) + Endif + *--- + *!* Select cDecl + *!* Locate For Alltrim(Rand) = '401' + *!* Replace suma With ln24 * 0.16 + + * Rd 27 Cheltuieli de sponsorizare + lcSql = [select sum(totcred) as suma ] + ; + [ from ] + Iif(glEMama, [vbalmama], [vbal]) + ; + [ where an = ] + Alltrim(Str(tnAnul)) + [ and luna = ] + Alltrim(Str(tnLuna)) + gcCondSucursala + ; + [ and cont = '6582'] + + lcCursor = [crs6582] + llSucces = goExecutor.oExecuta(lcSql, lcCursor) + + ln27 = 0 + If m.llSucces + Select crs6582 + ln27 = Nvl(suma, 0) + Use In (Select('crs6582')) + Endif + + Select cDecl + Locate For Alltrim(Rand) = '27' && DONATII SI SUBVENTII ACORDATE + If Found() + Replace suma With Round(m.ln27, 0) + Endif + + * Rd 47 Impozit pe profit declarat pentru anul de raportare prin formularul 100 + * TSD 691 30 sept + lcSql = [select sum(totdeb) as suma ] + ; + [ from ] + Iif(glEMama, [vbalmama], [vbal]) + ; + [ where an = ] + Alltrim(Str(tnAnul)) + [ and luna = 9 ] + gcCondSucursala + ; + [ and cont = '691'] + + pn47 = 0 + lnSucces = goExecutor.oSelect2Value(m.lcSql, @pn47) + + If m.lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, _Screen.Caption) + Else + Select cDecl + Locate For Alltrim(Rand) = '47' + If Found() + Replace suma With Round(Nvl(m.pn47, 0), 0) + Endif + Endif + + *!* * Rd 51 Impozit pe veniturile microintreprinderilor declarat pentru anul de raportare prin formularul 100 + *!* * TSD 698 30 sept + *!* lcSql = [select sum(totdeb) as suma ] + ; + *!* [ from ] + Iif(glEMama, [vbalmama], [vbal]) + ; + *!* [ where an = ] + Alltrim(Str(tnAnul)) + [ and luna = 9 ] + gcCondSucursala + ; + *!* [ and cont = '698'] + + *!* pn51 = 0 + *!* lnSucces = goExecutor.oSelect2Value(m.lcSql, @pn51) + + *!* If m.lnSucces < 0 + *!* amessagebox(goExecutor.cEroare, 0 + 16, _Screen.Caption) + *!* Else + *!* Select cDecl + *!* Locate For Alltrim(Rand) = '51' + *!* If Found() + *!* Replace suma With Round(Nvl(m.pn51, 0), 0) + *!* Endif + *!* Endif + + + * Rd 13 Rezerva legala deductibila + * <= 5% din profitul contabil inainte de impozitare - venituri neimpozabile + cheltuieli nedeductibile + * maxim total rezerva <= 20% capital social + Text To lcSql Noshow Textmerge + select sum(soldcred) as suma + from <> + where cont = '1061' and an = <> and luna = <> <> + Endtext + + pn1061t = 0 && sold 1061 + lnSucces = goExecutor.oSelect2Value(m.lcSql, @pn1061t) + If m.lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, _Screen.Caption) + Endif + pn1061t = Nvl(m.pn1061t, 0) + + Text To lcSql Noshow Textmerge + select sum(totcred-preccred1) as suma + from <> + where cont = '1061' and an = <> and luna = <> <> + Endtext + + pn1061c = 0 && rulaj anual 1061 + lnSucces = goExecutor.oSelect2Value(m.lcSql, @pn1061c) + + If m.lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, _Screen.Caption) + Else + ln13 = 0 + If m.pnProfitBrut > 0 + lnRezMaxAn = m.pnProfitBrut * 0.05 + lnRezMaxTotal = m.pnCapSoc * 0.20 + lnRezInPlus = Iif(m.lnRezMaxTotal < m.pn1061t, m.lnRezMaxTotal - m.pn1061t, 0) + + ln13 = Min(m.lnRezMaxAn, m.pn1061c) + m.lnRezInPlus + Endif + + Select cDecl + Locate For Alltrim(Rand) = '13' + If Found() + Replace suma With Round(Nvl(m.ln13, 0), 0) + Endif + Endif + + + + Endproc && calculare_2017 + + + ********************************************** + Procedure calculare_2016 + Parameters tnAnul, tnLuna + + * Generez Contul de Profit si Pierdere pentru venituri, cheltuieli exploatare, financiare, extraordinare + + Private pcId_butonCur, pnCount, pnCumul, pnId_sectie, pnId_setCur, pnId_venchelt + + Local lcCursor, lcField, lcRand, lcSel, lcSql, llSucces, ln1, ln10, ln16, ln2, ln26, ln28, ln29 + Local ln30, ln4, ln5, ln7, ln8, lnBazaProtocol, lnProtocol, lnProtocolLimita, lnRezInPlus + Local lnRezMaxAn, lnRezMaxTotal, lnSucces + Private pn1061c, pn1061t, pn50, pn51, pnCA, pnCapSoc, pnProfitBrut + + pnCumul = 1 + pnId_sectie = 0 + pnId_venchelt = 0 + pnCount = 0 + pcId_butonCur = [2015_2_R_20_0] && ultimul formular 20, a fost generat pentru semestrul II 2015, entitati mici/medii/mari + pnId_setCur = 0 && -142 la 12/2015 + + lcSql = [begin pack_sitfin.get_id_set(?pcId_butonCur, ?@pnId_setCur); end;] + llSucces = goExecutor.oExecuta(lcSql) + If !m.llSucces + Return + Endif + + lcSql = [begin PACK_MG_EVOLUTIE.GET_SET(?pnId_setCur, ?@pnCount); end;] && copii din mg_indicatori in temporarul mg_tmp_indicatori + llSucces = goExecutor.oExecuta(lcSql) + + If !m.llSucces + Return + Endif + + If m.pnCount = 0 + amessagebox('Setul Cont Profit si Pierdere ' + pcId_butonCur + ' nu contine indicatori!', 0 + 48, "Atentie") + Return + Endif + + lcSel = [{call PACK_MG_EVOLUTIE.GEN_MG_INDICATORI(] + Alltrim(Str(m.tnLuna)) + [,] + Alltrim(Str(m.tnAnul)) + [,] + Alltrim(Str(m.tnLuna)) + [,] + Alltrim(Str(m.tnAnul)) + [,] + Alltrim(Str(pnCumul)) + [,] + Alltrim(Str(pnId_sectie)) + [,] + Alltrim(Str(pnId_venchelt)) + [)}] + * lcSel = [{call PACK_MG_EVOLUTIE.GEN_MG_INDICATORI(?gnLuna, ?gnAn, ?gnLuna,?gnAn, ?pnCumul, ?pnId_sectie, ?pnId_venchelt}] && ODBC error: sintax error or access violation + lcCursor = 'crsContProfit' + + llSucces = goExecutor.oExecuta(lcSel, lcCursor) + If !m.llSucces + Return + Endif + + Select crsContProfit + If Reccount() = 0 + amessagebox('Setul Cont Profit si Pierdere ' + pcId_butonCur + ' nu contine informatii!', 0 + 48, "Atentie") + Return + Endif + + lcField = Field(7, 'crsContProfit') + Select Rand, nume_ind, Round(&lcField, 0) As valoare ; + From crsContProfit ; + Order By Rand ; + Into Cursor cContProfit Readwrite + + && denominare + If 12 * gnAn + gnLuna <= 12 * 2005 + 6 + Select cContProfit + Replace All valoare With Round(valoare / 1000, 0) + Endif + + Use In (Select('crsContProfit')) + + Select cContProfit + Scan + lcRand = Alltrim(Rand) + Do Case + Case m.lcRand = '01' && cifra de afaceri + * CIFRA DE AFACERI pentru formula rd. 45 (sponsorizari in limita 3/1000 din CA) + * rd 45 6582 maxim 20% rd.40.1 si maxim 3/1000 CA (in cod) (rd. 1 din Contul de Profit si Pierdere) + pnCA = valoare + Case m.lcRand = '16' && venituri din exploatare + ln1 = valoare + + Select cDecl + Locate For Alltrim(Rand) = '01' + If Found() + Replace suma With m.ln1 + Endif + Case m.lcRand = '42' && cheltuieli din exploatare + ln2 = valoare + + Select cDecl + Locate For Alltrim(Rand) = '02' + If Found() + Replace suma With m.ln2 + Endif + Case m.lcRand = '52' && venituri financiare + ln4 = valoare + + Select cDecl + Locate For Alltrim(Rand) = '04' + If Found() + Replace suma With m.ln4 + Endif + Case m.lcRand = '59' && cheltuieli financiare + ln5 = valoare + + Select cDecl + Locate For Alltrim(Rand) = '05' + If Found() + Replace suma With m.ln5 + Endif + *!* Case m.lcRand = '57' && venituri extraordinare + *!* ln7 = valoare + + *!* Select cDecl + *!* Locate For Alltrim(Rand) = '07' + *!* If Found() + *!* Replace suma With m.ln7 + *!* Endif + *!* Case m.lcRand = '58' && cheltuieli extraordinare + *!* ln8 = valoare + + *!* Select cDecl + *!* Locate For Alltrim(Rand) = '08' + *!* If Found() + *!* Replace suma With m.ln8 + *!* Endif + Endcase + Endscan && cContProfit + Use In (Select('cContProfit')) + && Veniturile si cheltuielile extraordinare nu mai apar in Contul de Profit si Pierdere 12/2015 + ln7 = 0 + ln8 = 0 + * Profit brut (Rd 16 - cheltuieli cu rezerva deductibila) + pnProfitBrut = ln1 - ln2 + ln4 - ln5 + ln7 - ln8 + + * Capital social (Rd 16 - cheltuieli cu rezerva deductibila) + Text To lcSql Textmerge Noshow + select sum(soldcred) as suma + from <> + where cont = '1012' and an = <> and luna = <> <> + Endtext + + pnCapSoc = 0 + lnSucces = goExecutor.oSelect2Value(m.lcSql, @pnCapSoc) + If m.lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, _Screen.Caption) + Endif + pnCapSoc = Nvl(m.pnCapSoc, 0) + + * Rd 23 Cheltuieli impozit profit 691 (sau 698 daca nu s-a stornat cand a trecut de la micro) + Text To lcSql Textmerge Noshow + select sum(totcred) as suma + from <> + where cont in ('691', '698') and an = <> and luna = <> <> + Endtext + + lcCursor = [crs691] + llSucces = goExecutor.oExecuta(lcSql, lcCursor) + + ln23 = 0 + If m.llSucces + Select crs691 + ln23 = Round(Nvl(suma, 0), 0) + Use In crs691 + Endif + + Select cDecl + Locate For Alltrim(Rand) = '23' && Cheltuieli cu impozitul pe profit/venit + If Found() + Replace suma With m.ln23 + Endif + + * La randul 2 cheltuieli din exploatare se aduna si Cheltuiala cu impozitul pe profit (apoi se scade din randul 23 ca cheltuiala nedeductibila) + Select cDecl + Locate For Alltrim(Rand) = '02' + If Found() + Replace suma With suma + m.ln23 + Endif + + * Rd 25 Amenzi, confiscari, dobanzi 6581 + lcSql = [select sum(totcred) as suma ] + ; + [ from ] + Iif(glEMama, [vbalmama], [vbal]) + ; + [ where an = ] + Alltrim(Str(tnAnul)) + [ and luna = ] + Alltrim(Str(tnLuna)) + gcCondSucursala + ; + [ and to_number(cont) = 6581] + + lcCursor = [crs6581] + llSucces = goExecutor.oExecuta(lcSql, lcCursor) + + ln25 = 0 + If m.llSucces + Select crs6581 + ln25 = Nvl(suma, 0) + Use In crs6581 + Endif + + Select cDecl + Locate For Alltrim(Rand) = '25' && Amenzi, confiscari, dobanzi + If Found() + Replace suma With Round(m.ln25, 0) + Endif + *--- + + * RD 26 Cheltuieli de protocol care depaºesc limita prevazuta de lege 27 + *** cheltuieli de protocol sub limita 623.protocol.limita = 2% * (121 + 691 + 623.protocol) = 2% (rd. 10 + rd.24 + 623.protocol ) + *** cheltuieli de protocol care depasesc limita prevazuta de lege = 623.protocol - 623.protocol.limita + lcSql = [select sum(b.totcred) as suma ] + ; + [ from ] + Iif(glEMama, [vbalanamama b], [vbalana b]) + ; + [ join plcont p on b.cont = p.cont and b.acont = p.acont and b.an = p.an ] + ; + [ where b.an = ] + Alltrim(Str(tnAnul)) + [ and b.luna = ] + Alltrim(Str(tnLuna)) + gcCondSucursala + ; + [ and SUBSTR(b.cont,1,3) = '623' and UPPER(p.explicatie) like '%PROTOCOL%' and p.acont is not null] + + lcCursor = [crs623] + llSucces = goExecutor.oExecuta(lcSql, lcCursor) + lnProtocol = 0 + If m.llSucces + Select crs623 + lnProtocol = Nvl(suma, 0) + Use In (Select('crs623')) + Endif + + If m.lnProtocol = 0 + lcSql = [select sum(totcred) as suma ] + ; + [ from ] + Iif(glEMama, [vbalmama], [vbal]) + ; + [ where an = ] + Alltrim(Str(tnAnul)) + [ and luna = ] + Alltrim(Str(tnLuna)) + gcCondSucursala + ; + [ and SUBSTR(cont,1,3) = '623'] + + lcCursor = [crs623] + llSucces = goExecutor.oExecuta(lcSql, lcCursor) + + If m.llSucces + Select crs623 + lnProtocol = Nvl(suma, 0) + Use In (Select('crs623')) + Endif + + + Endif + ln10 = (m.ln1 - m.ln2) + (m.ln4 - m.ln5) + (m.ln7 - m.ln8) + If m.ln10 <= 0 && profitul negativ, cheltuielile de protocol depasesc in intregime limita + ln26 = m.lnProtocol + Else + lnBazaProtocol = m.ln10 + m.ln23 + m.lnProtocol + lnProtocolLimita = m.lnBazaProtocol * 0.02 + ln26 = m.lnProtocol - m.lnProtocolLimita + ln26 = Max(m.ln26, 0) + Endif + + Select cDecl + Locate For Alltrim(Rand) = '26' && Cheltuieli de protocol care depasesc limita prevazuta de lege + If Found() + Replace suma With Round(m.ln26, 0) + Endif + *--- + *!* Select cDecl + *!* Locate For Alltrim(Rand) = '401' + *!* Replace suma With ln24 * 0.16 + + * Rd 27 Cheltuieli de sponsorizare + lcSql = [select sum(totcred) as suma ] + ; + [ from ] + Iif(glEMama, [vbalmama], [vbal]) + ; + [ where an = ] + Alltrim(Str(tnAnul)) + [ and luna = ] + Alltrim(Str(tnLuna)) + gcCondSucursala + ; + [ and cont = '6582'] + + lcCursor = [crs6582] + llSucces = goExecutor.oExecuta(lcSql, lcCursor) + + ln27 = 0 + If m.llSucces + Select crs6582 + ln27 = Nvl(suma, 0) + Use In (Select('crs6582')) + Endif + + Select cDecl + Locate For Alltrim(Rand) = '27' && DONATII SI SUBVENTII ACORDATE + If Found() + Replace suma With Round(m.ln27, 0) + Endif + + * Rd 47 Impozit pe profit declarat pentru anul de raportare prin formularul 100 + * TSD 691 30 sept + lcSql = [select sum(totdeb) as suma ] + ; + [ from ] + Iif(glEMama, [vbalmama], [vbal]) + ; + [ where an = ] + Alltrim(Str(tnAnul)) + [ and luna = 9 ] + gcCondSucursala + ; + [ and cont = '691'] + + pn47 = 0 + lnSucces = goExecutor.oSelect2Value(m.lcSql, @pn47) + + If m.lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, _Screen.Caption) + Else + Select cDecl + Locate For Alltrim(Rand) = '47' + If Found() + Replace suma With Round(Nvl(m.pn47, 0), 0) + Endif + Endif + + *!* * Rd 51 Impozit pe veniturile microintreprinderilor declarat pentru anul de raportare prin formularul 100 + *!* * TSD 698 30 sept + *!* lcSql = [select sum(totdeb) as suma ] + ; + *!* [ from ] + Iif(glEMama, [vbalmama], [vbal]) + ; + *!* [ where an = ] + Alltrim(Str(tnAnul)) + [ and luna = 9 ] + gcCondSucursala + ; + *!* [ and cont = '698'] + + *!* pn51 = 0 + *!* lnSucces = goExecutor.oSelect2Value(m.lcSql, @pn51) + + *!* If m.lnSucces < 0 + *!* amessagebox(goExecutor.cEroare, 0 + 16, _Screen.Caption) + *!* Else + *!* Select cDecl + *!* Locate For Alltrim(Rand) = '51' + *!* If Found() + *!* Replace suma With Round(Nvl(m.pn51, 0), 0) + *!* Endif + *!* Endif + + + * Rd 13 Rezerva legala deductibila + * <= 5% din profitul contabil inainte de impozitare - venituri neimpozabile + cheltuieli nedeductibile + * maxim total rezerva <= 20% capital social + Text To lcSql Noshow Textmerge + select sum(soldcred) as suma + from <> + where cont = '1061' and an = <> and luna = <> <> + Endtext + + pn1061t = 0 && sold 1061 + lnSucces = goExecutor.oSelect2Value(m.lcSql, @pn1061t) + If m.lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, _Screen.Caption) + Endif + pn1061t = Nvl(m.pn1061t, 0) + + Text To lcSql Noshow Textmerge + select sum(totcred-preccred1) as suma + from <> + where cont = '1061' and an = <> and luna = <> <> + Endtext + + pn1061c = 0 && rulaj anual 1061 + lnSucces = goExecutor.oSelect2Value(m.lcSql, @pn1061c) + + If m.lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, _Screen.Caption) + Else + ln13 = 0 + If m.pnProfitBrut > 0 + lnRezMaxAn = m.pnProfitBrut * 0.05 + lnRezMaxTotal = m.pnCapSoc * 0.20 + lnRezInPlus = Iif(m.lnRezMaxTotal < m.pn1061t, m.lnRezMaxTotal - m.pn1061t, 0) + + ln13 = Min(m.lnRezMaxAn, m.pn1061c) + m.lnRezInPlus + Endif + + Select cDecl + Locate For Alltrim(Rand) = '13' + If Found() + Replace suma With Round(Nvl(m.ln13, 0), 0) + Endif + Endif + + + + Endproc && calculare_2016 + + ********************************************** + Procedure calculare_2014 + Parameters tnAnul, tnLuna + + * Generez Contul de Profit si Pierdere pentru venituri, cheltuieli exploatare, financiare, extraordinare + + Private pcId_butonCur, pnCount, pnCumul, pnId_sectie, pnId_setCur, pnId_venchelt + + Local lcCursor, lcField, lcRand, lcSel, lcSql, llSucces, ln1, ln10, ln16, ln2, ln26, ln28, ln29 + Local ln30, ln4, ln5, ln7, ln8, lnBazaProtocol, lnProtocol, lnProtocolLimita, lnRezInPlus + Local lnRezMaxAn, lnRezMaxTotal, lnSucces + Private pn1061c, pn1061t, pn50, pn51, pnCA, pnCapSoc, pnProfitBrut + + pnCumul = 1 + pnId_sectie = 0 + pnId_venchelt = 0 + pnCount = 0 + pcId_butonCur = [2013_2_0_20_0] && ultimul formular 20, a fost generat pentru semestrul II 2013 + pnId_setCur = 0 && -121 la 12/2013 + + lcSql = [begin pack_sitfin.get_id_set(?pcId_butonCur, ?@pnId_setCur); end;] + llSucces = goExecutor.oExecuta(lcSql) + If !m.llSucces + Return + Endif + + lcSql = [begin PACK_MG_EVOLUTIE.GET_SET(?pnId_setCur, ?@pnCount); end;] && copii din mg_indicatori in temporarul mg_tmp_indicatori + llSucces = goExecutor.oExecuta(lcSql) + + If !m.llSucces + Return + Endif + + If m.pnCount = 0 + amessagebox('Setul Cont Profit si Pierdere ' + pcId_butonCur + ' nu contine indicatori!', 0 + 48, "Atentie") + Return + Endif + + lcSel = [{call PACK_MG_EVOLUTIE.GEN_MG_INDICATORI(] + Alltrim(Str(m.tnLuna)) + [,] + Alltrim(Str(m.tnAnul)) + [,] + Alltrim(Str(m.tnLuna)) + [,] + Alltrim(Str(m.tnAnul)) + [,] + Alltrim(Str(pnCumul)) + [,] + Alltrim(Str(pnId_sectie)) + [,] + Alltrim(Str(pnId_venchelt)) + [)}] + * lcSel = [{call PACK_MG_EVOLUTIE.GEN_MG_INDICATORI(?gnLuna, ?gnAn, ?gnLuna,?gnAn, ?pnCumul, ?pnId_sectie, ?pnId_venchelt}] && ODBC error: sintax error or access violation + lcCursor = 'crsContProfit' + + llSucces = goExecutor.oExecuta(lcSel, lcCursor) + If !m.llSucces + Return + Endif + + Select crsContProfit + If Reccount() = 0 + amessagebox('Setul Cont Profit si Pierdere ' + pcId_butonCur + ' nu contine informatii!', 0 + 48, "Atentie") + Return + Endif + + lcField = Field(7, 'crsContProfit') + Select Rand, nume_ind, Round(&lcField, 0) As valoare ; + From crsContProfit ; + Order By Rand ; + Into Cursor cContProfit Readwrite + + && denominare + If 12 * gnAn + gnLuna <= 12 * 2005 + 6 + Select cContProfit + Replace All valoare With Round(valoare / 1000, 0) + Endif + + Use In (Select('crsContProfit')) + + Select cContProfit + Scan + lcRand = Alltrim(Rand) + Do Case + Case m.lcRand = '01' && cifra de afaceri + * CIFRA DE AFACERI pentru formula rd. 45 (sponsorizari in limita 3/1000 din CA) + * rd 45 6582 maxim 20% rd.40.1 si maxim 3/1000 CA (in cod) (rd. 1 din Contul de Profit si Pierdere) + pnCA = valoare + Case m.lcRand = '12' && venituri din exploatare + ln1 = valoare + + Select cDecl + Locate For Alltrim(Rand) = '01' + If Found() + Replace suma With m.ln1 + Endif + Case m.lcRand = '35' && cheltuieli din exploatare + ln2 = valoare + + Select cDecl + Locate For Alltrim(Rand) = '02' + If Found() + Replace suma With m.ln2 + Endif + Case m.lcRand = '45' && venituri financiare + ln4 = valoare + + Select cDecl + Locate For Alltrim(Rand) = '04' + If Found() + Replace suma With m.ln4 + Endif + Case m.lcRand = '52' && cheltuieli financiare + ln5 = valoare + + Select cDecl + Locate For Alltrim(Rand) = '05' + If Found() + Replace suma With m.ln5 + Endif + Case m.lcRand = '57' && venituri extraordinare + ln7 = valoare + + Select cDecl + Locate For Alltrim(Rand) = '07' + If Found() + Replace suma With m.ln7 + Endif + Case m.lcRand = '58' && cheltuieli extraordinare + ln8 = valoare + + Select cDecl + Locate For Alltrim(Rand) = '08' + If Found() + Replace suma With m.ln8 + Endif + Endcase + Endscan && cContProfit + Use In (Select('cContProfit')) + + * Profit brut (Rd 16 - cheltuieli cu rezerva deductibila) + pnProfitBrut = ln1 - ln2 + ln4 - ln5 + ln7 - ln8 + + * Capital social (Rd 16 - cheltuieli cu rezerva deductibila) + Text To lcSql Textmerge Noshow + select sum(soldcred) as suma + from <> + where cont = '1012' and an = <> and luna = <> <> + Endtext + + pnCapSoc = 0 + lnSucces = goExecutor.oSelect2Value(m.lcSql, @pnCapSoc) + If m.lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, _Screen.Caption) + Endif + pnCapSoc = Nvl(m.pnCapSoc, 0) + + * Rd 24 Cheltuieli impozit profit 691 (sau 698 daca nu s-a stornat cand a trecut de la micro) + Text To lcSql Textmerge Noshow + select sum(totcred) as suma + from <> + where cont in ('691', '698') and an = <> and luna = <> <> + Endtext + + lcCursor = [crs691] + llSucces = goExecutor.oExecuta(lcSql, lcCursor) + + ln26 = 0 + If m.llSucces + Select crs691 + ln26 = Round(Nvl(suma, 0), 0) + Use In crs691 + Endif + + Select cDecl + Locate For Alltrim(Rand) = '26' && Cheltuieli cu impozitul pe profit/venit + If Found() + Replace suma With m.ln26 + Endif + + * La randul 2 cheltuieli din exploatare se aduna si Cheltuiala cu impozitul pe profit (apoi se scade din randul 24 ca cheltuiala nedeductibila) + Select cDecl + Locate For Alltrim(Rand) = '02' + If Found() + Replace suma With suma + m.ln26 + Endif + + * Rd 28 Amenzi, confiscari, dobanzi 6581 + lcSql = [select sum(totcred) as suma ] + ; + [ from ] + Iif(glEMama, [vbalmama], [vbal]) + ; + [ where an = ] + Alltrim(Str(tnAnul)) + [ and luna = ] + Alltrim(Str(tnLuna)) + gcCondSucursala + ; + [ and to_number(cont) = 6581] + + lcCursor = [crs6581] + llSucces = goExecutor.oExecuta(lcSql, lcCursor) + + ln28 = 0 + If m.llSucces + Select crs6581 + ln28 = Nvl(suma, 0) + Use In crs6581 + Endif + + Select cDecl + Locate For Alltrim(Rand) = '28' && Amenzi, confiscari, dobanzi + If Found() + Replace suma With Round(m.ln28, 0) + Endif + *--- + + * RD 27 Cheltuieli de protocol care depaºesc limita prevazuta de lege 27 + *** cheltuieli de protocol sub limita 623.protocol.limita = 2% * (121 + 691 + 623.protocol) = 2% (rd. 10 + rd.24 + 623.protocol ) + *** cheltuieli de protocol care depasesc limita prevazuta de lege = 623.protocol - 623.protocol.limita + lcSql = [select sum(b.totcred) as suma ] + ; + [ from ] + Iif(glEMama, [vbalanamama b], [vbalana b]) + ; + [ join plcont p on b.cont = p.cont and b.acont = p.acont and b.an = p.an ] + ; + [ where b.an = ] + Alltrim(Str(tnAnul)) + [ and b.luna = ] + Alltrim(Str(tnLuna)) + gcCondSucursala + ; + [ and SUBSTR(b.cont,1,3) = '623' and UPPER(p.explicatie) like '%PROTOCOL%' and p.acont is not null] + + lcCursor = [crs623] + llSucces = goExecutor.oExecuta(lcSql, lcCursor) + lnProtocol = 0 + If m.llSucces + Select crs623 + lnProtocol = Nvl(suma, 0) + Use In (Select('crs623')) + Endif + + If m.lnProtocol = 0 + lcSql = [select sum(totcred) as suma ] + ; + [ from ] + Iif(glEMama, [vbalmama], [vbal]) + ; + [ where an = ] + Alltrim(Str(tnAnul)) + [ and luna = ] + Alltrim(Str(tnLuna)) + gcCondSucursala + ; + [ and SUBSTR(cont,1,3) = '623'] + + lcCursor = [crs623] + llSucces = goExecutor.oExecuta(lcSql, lcCursor) + + If m.llSucces + Select crs623 + lnProtocol = Nvl(suma, 0) + Use In (Select('crs623')) + Endif + + + Endif + ln10 = (m.ln1 - m.ln2) + (m.ln4 - m.ln5) + (m.ln7 - m.ln8) + If m.ln10 <= 0 && profitul negativ, cheltuielile de protocol depasesc in intregime limita + ln29 = m.lnProtocol + Else + lnBazaProtocol = m.ln10 + m.ln26 + m.lnProtocol + lnProtocolLimita = m.lnBazaProtocol * 0.02 + ln29 = m.lnProtocol - m.lnProtocolLimita + ln29 = Max(m.ln28, 0) + Endif + + Select cDecl + Locate For Alltrim(Rand) = '29' && Cheltuieli de protocol care depasesc limita prevazuta de lege + If Found() + Replace suma With Round(m.ln29, 0) + Endif + *--- + *!* Select cDecl + *!* Locate For Alltrim(Rand) = '401' + *!* Replace suma With ln24 * 0.16 + + * Rd 30 Cheltuieli de sponsorizare + lcSql = [select sum(totcred) as suma ] + ; + [ from ] + Iif(glEMama, [vbalmama], [vbal]) + ; + [ where an = ] + Alltrim(Str(tnAnul)) + [ and luna = ] + Alltrim(Str(tnLuna)) + gcCondSucursala + ; + [ and cont = '6582'] + + lcCursor = [crs6582] + llSucces = goExecutor.oExecuta(lcSql, lcCursor) + + ln30 = 0 + If m.llSucces + Select crs6582 + ln30 = Nvl(suma, 0) + Use In (Select('crs6582')) + Endif + + Select cDecl + Locate For Alltrim(Rand) = '30' && DONATII SI SUBVENTII ACORDATE + If Found() + Replace suma With Round(m.ln30, 0) + Endif + + * Rd 50 Impozit pe profit declarat pentru anul de raportare prin formularul 100 + * TSD 691 30 sept + lcSql = [select sum(totdeb) as suma ] + ; + [ from ] + Iif(glEMama, [vbalmama], [vbal]) + ; + [ where an = ] + Alltrim(Str(tnAnul)) + [ and luna = 9 ] + gcCondSucursala + ; + [ and cont = '691'] + + pn50 = 0 + lnSucces = goExecutor.oSelect2Value(m.lcSql, @pn50) + + If m.lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, _Screen.Caption) + Else + Select cDecl + Locate For Alltrim(Rand) = '50' + If Found() + Replace suma With Round(Nvl(m.pn50, 0), 0) + Endif + Endif + + * Rd 51 Impozit pe veniturile microintreprinderilor declarat pentru anul de raportare prin formularul 100 + * TSD 698 30 sept + lcSql = [select sum(totdeb) as suma ] + ; + [ from ] + Iif(glEMama, [vbalmama], [vbal]) + ; + [ where an = ] + Alltrim(Str(tnAnul)) + [ and luna = 9 ] + gcCondSucursala + ; + [ and cont = '698'] + + pn51 = 0 + lnSucces = goExecutor.oSelect2Value(m.lcSql, @pn51) + + If m.lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, _Screen.Caption) + Else + Select cDecl + Locate For Alltrim(Rand) = '51' + If Found() + Replace suma With Round(Nvl(m.pn51, 0), 0) + Endif + Endif + + + * Rd 16 Rezerva legala deductibila + * <= 5% din profitul contabil inainte de impozitare - venituri neimpozabile + cheltuieli nedeductibile + * maxim total rezerva <= 20% capital social + Text To lcSql Noshow Textmerge + select sum(soldcred) as suma + from <> + where cont = '1061' and an = <> and luna = <> <> + Endtext + + pn1061t = 0 && sold 1061 + lnSucces = goExecutor.oSelect2Value(m.lcSql, @pn1061t) + If m.lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, _Screen.Caption) + Endif + pn1061t = Nvl(m.pn1061t, 0) + + Text To lcSql Noshow Textmerge + select sum(totcred-preccred1) as suma + from <> + where cont = '1061' and an = <> and luna = <> <> + Endtext + + pn1061c = 0 && rulaj anual 1061 + lnSucces = goExecutor.oSelect2Value(m.lcSql, @pn1061c) + + If m.lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, _Screen.Caption) + Else + ln16 = 0 + If m.pnProfitBrut > 0 + lnRezMaxAn = m.pnProfitBrut * 0.05 + lnRezMaxTotal = m.pnCapSoc * 0.20 + lnRezInPlus = Iif(m.lnRezMaxTotal < m.pn1061t, m.lnRezMaxTotal - m.pn1061t, 0) + + ln16 = Min(m.lnRezMaxAn, m.pn1061c) + m.lnRezInPlus + Endif + + Select cDecl + Locate For Alltrim(Rand) = '16' + If Found() + Replace suma With Round(Nvl(m.ln16, 0), 0) + Endif + Endif + + + + Endproc && calculare_2014 + + ********************************************** + Procedure calculare_2012 + Parameters tnAnul, tnLuna + + * Generez Contul de Profit si Pierdere pentru venituri, cheltuieli exploatare, financiare, extraordinare + + Local lcCursor, lcField, lcRand, lcSel, lcSql, llSucces, ln1, ln10, ln2, ln24, ln26, ln27, ln28, ln4 + Local ln5, ln7, ln8, lnBazaProtocol, lnProtocol, lnProtocolLimita + Private pcId_butonCur, pnCount, pnCumul, pnId_sectie, pnId_setCur, pnId_venchelt + + pnCumul = 1 + pnId_sectie = 0 + pnId_venchelt = 0 + pnCount = 0 + pcId_butonCur = [2013_2_0_20_0] && ultimul formular 20, a fost generat pentru semestrul II 2013 + pnId_setCur = 0 && -121 la 12/2013 + + lcSql = [begin pack_sitfin.get_id_set(?pcId_butonCur, ?@pnId_setCur); end;] + llSucces = goExecutor.oExecuta(lcSql) + If !m.llSucces + Return + Endif + + lcSql = [begin PACK_MG_EVOLUTIE.GET_SET(?pnId_setCur, ?@pnCount); end;] && copii din mg_indicatori in temporarul mg_tmp_indicatori + llSucces = goExecutor.oExecuta(lcSql) + + If !m.llSucces + Return + Endif + + If m.pnCount = 0 + amessagebox('Setul Cont Profit si Pierdere ' + pcId_butonCur + ' nu contine indicatori!', 0 + 48, "Atentie") + Return + Endif + + lcSel = [{call PACK_MG_EVOLUTIE.GEN_MG_INDICATORI(] + Alltrim(Str(m.tnLuna)) + [,] + Alltrim(Str(m.tnAnul)) + [,] + Alltrim(Str(m.tnLuna)) + [,] + Alltrim(Str(m.tnAnul)) + [,] + Alltrim(Str(pnCumul)) + [,] + Alltrim(Str(pnId_sectie)) + [,] + Alltrim(Str(pnId_venchelt)) + [)}] + * lcSel = [{call PACK_MG_EVOLUTIE.GEN_MG_INDICATORI(?gnLuna, ?gnAn, ?gnLuna,?gnAn, ?pnCumul, ?pnId_sectie, ?pnId_venchelt}] && ODBC error: sintax error or access violation + lcCursor = 'crsContProfit' + + llSucces = goExecutor.oExecuta(lcSel, lcCursor) + If !m.llSucces + Return + Endif + + Select crsContProfit + If Reccount() = 0 + amessagebox('Setul Cont Profit si Pierdere ' + pcId_butonCur + ' nu contine informatii!', 0 + 48, "Atentie") + Return + Endif + + lcField = Field(7, 'crsContProfit') + Select Rand, nume_ind, Round(&lcField, 0) As valoare ; + From crsContProfit ; + Order By Rand ; + Into Cursor cContProfit Readwrite + + && denominare + If 12 * gnAn + gnLuna <= 12 * 2005 + 6 + Select cContProfit + Replace All valoare With Round(valoare / 1000, 0) + Endif + + Use In (Select('crsContProfit')) + + Select cContProfit + Scan + lcRand = Alltrim(Rand) + Do Case + Case m.lcRand = '01' && cifra de afaceri + * CIFRA DE AFACERI pentru formula rd. 45 (sponsorizari in limita 3/1000 din CA) + * rd 45 6582 maxim 20% rd.40.1 si maxim 3/1000 CA (in cod) (rd. 1 din Contul de Profit si Pierdere) + pnCA = valoare + Case m.lcRand = '12' && venituri din exploatare + ln1 = valoare + + Select cDecl + Locate For Alltrim(Rand) = '01' + If Found() + Replace suma With m.ln1 + Endif + Case m.lcRand = '35' && cheltuieli din exploatare + ln2 = valoare + + Select cDecl + Locate For Alltrim(Rand) = '02' + If Found() + Replace suma With m.ln2 + Endif + Case m.lcRand = '45' && venituri financiare + ln4 = valoare + + Select cDecl + Locate For Alltrim(Rand) = '04' + If Found() + Replace suma With m.ln4 + Endif + Case m.lcRand = '52' && cheltuieli financiare + ln5 = valoare + + Select cDecl + Locate For Alltrim(Rand) = '05' + If Found() + Replace suma With m.ln5 + Endif + Case m.lcRand = '57' && venituri extraordinare + ln7 = valoare + + Select cDecl + Locate For Alltrim(Rand) = '07' + If Found() + Replace suma With m.ln7 + Endif + Case m.lcRand = '58' && cheltuieli extraordinare + ln8 = valoare + + Select cDecl + Locate For Alltrim(Rand) = '08' + If Found() + Replace suma With m.ln8 + Endif + Endcase + Endscan && cContProfit + Use In (Select('cContProfit')) + + * Profit brut (Rd 16 - cheltuieli cu rezerva deductibila) + pnProfitBrut = ln1 - ln2 + ln4 - ln5 + ln7 - ln8 + + * Capital social (Rd 16 - cheltuieli cu rezerva deductibila) + Text To lcSql Textmerge Noshow + select sum(soldcred) as suma + from <> + where cont = '1012' and an = <> and luna = <> <> + Endtext + + pnCapSoc = 0 + lnSucces = goExecutor.oSelect2Value(m.lcSql, @pnCapSoc) + If m.lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, _Screen.Caption) + Endif + pnCapSoc = Nvl(m.pnCapSoc, 0) + + * Rd 24 Cheltuieli impozit profit 691 (sau 698 daca nu s-a stornat cand a trecut de la micro) + Text To lcSql Textmerge Noshow + select sum(totcred) as suma + from <> + where cont in ('691', '698') and an = <> and luna = <> <> + Endtext + + lcCursor = [crs691] + llSucces = goExecutor.oExecuta(lcSql, lcCursor) + + ln24 = 0 + If m.llSucces + Select crs691 + ln24 = Round(Nvl(suma, 0), 0) + Use In crs691 + Endif + + Select cDecl + Locate For Alltrim(Rand) = '24' && Cheltuieli cu impozitul pe profit/venit + If Found() + Replace suma With m.ln24 + Endif + + * La randul 2 cheltuieli din exploatare se aduna si Cheltuiala cu impozitul pe profit (apoi se scade din randul 24 ca cheltuiala nedeductibila) + Select cDecl + Locate For Alltrim(Rand) = '02' + If Found() + Replace suma With suma + m.ln24 + Endif + + * Rd 26 Amenzi, confiscari, dobanzi 6581 + lcSql = [select sum(totcred) as suma ] + ; + [ from ] + Iif(glEMama, [vbalmama], [vbal]) + ; + [ where an = ] + Alltrim(Str(tnAnul)) + [ and luna = ] + Alltrim(Str(tnLuna)) + gcCondSucursala + ; + [ and to_number(cont) = 6581] + + lcCursor = [crs6581] + llSucces = goExecutor.oExecuta(lcSql, lcCursor) + + ln26 = 0 + If m.llSucces + Select crs6581 + ln26 = Nvl(suma, 0) + Use In crs6581 + Endif + + Select cDecl + Locate For Alltrim(Rand) = '26' && Amenzi, confiscari, dobanzi + If Found() + Replace suma With Round(m.ln26, 0) + Endif + *--- + + * RD 27 Cheltuieli de protocol care depaºesc limita prevazuta de lege 27 + *** cheltuieli de protocol sub limita 623.protocol.limita = 2% * (121 + 691 + 623.protocol) = 2% (rd. 10 + rd.24 + 623.protocol ) + *** cheltuieli de protocol care depasesc limita prevazuta de lege = 623.protocol - 623.protocol.limita + lcSql = [select sum(b.totcred) as suma ] + ; + [ from ] + Iif(glEMama, [vbalanamama b], [vbalana b]) + ; + [ join plcont p on b.cont = p.cont and b.acont = p.acont and b.an = p.an ] + ; + [ where b.an = ] + Alltrim(Str(tnAnul)) + [ and b.luna = ] + Alltrim(Str(tnLuna)) + gcCondSucursala + ; + [ and SUBSTR(b.cont,1,3) = '623' and UPPER(p.explicatie) like '%PROTOCOL%' and p.acont is not null] + + lcCursor = [crs623] + llSucces = goExecutor.oExecuta(lcSql, lcCursor) + lnProtocol = 0 + If m.llSucces + Select crs623 + lnProtocol = Nvl(suma, 0) + Use In (Select('crs623')) + Endif + + If m.lnProtocol = 0 + lcSql = [select sum(totcred) as suma ] + ; + [ from ] + Iif(glEMama, [vbalmama], [vbal]) + ; + [ where an = ] + Alltrim(Str(tnAnul)) + [ and luna = ] + Alltrim(Str(tnLuna)) + gcCondSucursala + ; + [ and SUBSTR(cont,1,3) = '623'] + + lcCursor = [crs623] + llSucces = goExecutor.oExecuta(lcSql, lcCursor) + + If m.llSucces + Select crs623 + lnProtocol = Nvl(suma, 0) + Use In (Select('crs623')) + Endif + + + Endif + ln10 = (m.ln1 - m.ln2) + (m.ln4 - m.ln5) + (m.ln7 - m.ln8) + If m.ln10 <= 0 && profitul negativ, cheltuielile de protocol depasesc in intregime limita + ln27 = m.lnProtocol + Else + lnBazaProtocol = m.ln10 + m.ln24 + m.lnProtocol + lnProtocolLimita = m.lnBazaProtocol * 0.02 + ln27 = m.lnProtocol - m.lnProtocolLimita + ln27 = Max(m.ln27, 0) + Endif + + Select cDecl + Locate For Alltrim(Rand) = '27' && Cheltuieli de protocol care depasesc limita prevazuta de lege + If Found() + Replace suma With Round(m.ln27, 0) + Endif + *--- + *!* Select cDecl + *!* Locate For Alltrim(Rand) = '401' + *!* Replace suma With ln24 * 0.16 + + * Rd 28 Cheltuieli de sponsorizare + lcSql = [select sum(totcred) as suma ] + ; + [ from ] + Iif(glEMama, [vbalmama], [vbal]) + ; + [ where an = ] + Alltrim(Str(tnAnul)) + [ and luna = ] + Alltrim(Str(tnLuna)) + gcCondSucursala + ; + [ and cont = '6582'] + + lcCursor = [crs6582] + llSucces = goExecutor.oExecuta(lcSql, lcCursor) + + ln28 = 0 + If m.llSucces + Select crs6582 + ln28 = Nvl(suma, 0) + Use In (Select('crs6582')) + Endif + + Select cDecl + Locate For Alltrim(Rand) = '28' && DONATII SI SUBVENTII ACORDATE + If Found() + Replace suma With Round(m.ln28, 0) + Endif + + * Rd 48 Impozit pe profit declarat pentru anul de raportare prin formularul 100 + * TSD 691 30 sept + lcSql = [select sum(totdeb) as suma ] + ; + [ from ] + Iif(glEMama, [vbalmama], [vbal]) + ; + [ where an = ] + Alltrim(Str(tnAnul)) + [ and luna = 9 ] + gcCondSucursala + ; + [ and cont = '691'] + + pn48 = 0 + lnSucces = goExecutor.oSelect2Value(m.lcSql, @pn48) + + If m.lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, _Screen.Caption) + Else + Select cDecl + Locate For Alltrim(Rand) = '48' + If Found() + Replace suma With Round(Nvl(m.pn48, 0), 0) + Endif + Endif + + * Rd 49 Impozit pe veniturile microintreprinderilor declarat pentru anul de raportare prin formularul 100 + * TSD 698 30 sept + lcSql = [select sum(totdeb) as suma ] + ; + [ from ] + Iif(glEMama, [vbalmama], [vbal]) + ; + [ where an = ] + Alltrim(Str(tnAnul)) + [ and luna = 9 ] + gcCondSucursala + ; + [ and cont = '698'] + + pn49 = 0 + lnSucces = goExecutor.oSelect2Value(m.lcSql, @pn49) + + If m.lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, _Screen.Caption) + Else + Select cDecl + Locate For Alltrim(Rand) = '49' + If Found() + Replace suma With Round(Nvl(m.pn49, 0), 0) + Endif + Endif + + + * Rd 16 Rezerva legala deductibila + * <= 5% din profitul contabil inainte de impozitare - venituri neimpozabile + cheltuieli nedeductibile + * maxim total rezerva <= 20% capital social + Text To lcSql Noshow Textmerge + select sum(soldcred) as suma + from <> + where cont = '1061' and an = <> and luna = <> <> + Endtext + + pn1061t = 0 && sold 1061 + lnSucces = goExecutor.oSelect2Value(m.lcSql, @pn1061t) + If m.lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, _Screen.Caption) + Endif + pn1061t = Nvl(m.pn1061t, 0) + + Text To lcSql Noshow Textmerge + select sum(totcred-preccred1) as suma + from <> + where cont = '1061' and an = <> and luna = <> <> + Endtext + + pn1061c = 0 && rulaj anual 1061 + lnSucces = goExecutor.oSelect2Value(m.lcSql, @pn1061c) + + If m.lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, _Screen.Caption) + Else + lnRezMaxAn = m.pnProfitBrut * 0.05 + lnRezMaxTotal = m.pnCapSoc * 0.20 + lnRezInPlus = Iif(m.lnRezMaxTotal < m.pn1061t, m.lnRezMaxTotal - m.pn1061t, 0) + + ln16 = Min(m.lnRezMaxAn, m.pn1061c) + m.lnRezInPlus + + Select cDecl + Locate For Alltrim(Rand) = '16' + If Found() + Replace suma With Round(Nvl(m.ln16, 0), 0) + Endif + Endif + + + + Endproc && calculare_2012 + + Procedure calculare_old + Parameters tnAnul, tnLuna + + *** adun preccred + RULCRED 7xx din bal mai putin 709 (reduceri comerciale acordate) 711 + lcSql = [select sum(preccred+rulcred) as suma ] + ; + [ from ] + Iif(glEMama, [vbalmama], [vbal]) + ; + [ where an = ] + Alltrim(Str(tnAnul)) + [ and luna = ] + Alltrim(Str(tnLuna)) + gcCondSucursala + ; + [ and (( to_number(SUBSTR(cont,1,3)) between 700 and 759) or to_number(cont) = 781) and to_number(cont) NOT IN(709, 711)] + + lcCursor = [crsVen] + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + + Select crsVen + Go Top + lnVen = Nvl(suma, 0) + + lcSql = [select sum(precdeb+ruldeb) as suma ] + ; + [ from ] + Iif(glEMama, [vbalmama], [vbal]) + ; + [ where an = ] + Alltrim(Str(tnAnul)) + [ and luna = ] + Alltrim(Str(tnLuna)) + gcCondSucursala + ; + [ and to_number(cont) = 709] + + lcCursor = [crsVen709] + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + Select crsVen709 + Go Top + ln709 = Nvl(suma, 0) + + lcSql = [select sum(preccred+rulcred) as suma ] + ; + [ from ] + Iif(glEMama, [vbalmama], [vbal]) + ; + [ where an = ] + Alltrim(Str(tnAnul)) + [ and luna = ] + Alltrim(Str(tnLuna)) + gcCondSucursala + ; + [ and SUBSTR(cont,1,2) = '70' and to_number(cont) <> 709] + + lcCursor = [crsVen70] + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + Select crsVen70 + Go Top + ln70 = Nvl(suma, 0) + + pnCA = m.ln70 - m.ln709 && CIFRA DE AFACERI pentru formula rd. 43 (sponsorizari in limita 3/1000 din CA) + *!* rd 43 6582 maxim 20% rd.40.1 si maxim 3/1000 CA (in cod) (rd. 1 din Contul de Profit si Pierdere) (in cod + *!* 01. Cifra de afaceri neta (rd. 02+03-04+05+06) + *!* 02. Produc_ia vânduta (ct.701+702+703+704+705+706+708) + *!* 03. Venituri din vânzarea marfurilor (ct. 707) + *!* 04. Reduceri comerciale acordate (ct. 709) + *!* 05. Venituri din dobânzi înregistrate de entita_ile radiate din Registrul general si care + *!* mai au in derulare contracte de leasing (ct.766* ) + *!* 06. Venituri din subven_ii de exploatare aferente cifrei de afaceri nete (ct.7411) + + *** 711 + If .F. + lcSql = [ select t.suma from vact t ] + ; + [where an = ] + Str(tnAnul) + [ and luna = ] + Str(tnLuna) + m.gcCondSucursala + ; + [ and id_set = 90005 ] + ; + [and to_number(scd) = 711 and to_number(scc) = 121] + + lcCursor = [crs711] + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crs711 + Select Count(suma) As nr_inreg From crs711 Into Cursor crsNrInreg711 + Select crsNrInreg711 + lnInreg = nr_inreg + + Use In crsNrInreg711 + + If lnInreg > 0 + Select crs711 + lnSold711 = Nvl(suma, 0) + Use In crs711 + Else + Use In crs711 + && adun soldul creditor 711 sau scad soldul debitor 711 + lcSql = [select sum(soldcred-solddeb) as suma ] + ; + [ from ] + Iif(glEMama, [vbalmama], [vbal]) + ; + [ where an = ] + Alltrim(Str(tnAnul)) + [ and luna = ] + Alltrim(Str(tnLuna)) + gcCondSucursala + ; + [ and to_number(cont) = 711] + + lcCursor = [crs711] && TVA de recuperat + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crs711 + lnSold711 = Nvl(suma, 0) + Use In crs711 + Endif + Else + pnSold711 = 0 + goExecutor.oFunction2Value([pack_mg_evolutie.variatia_stocurilor(?gnLuna, ?gnAn)], @pnSold711) + lnSold711 = m.pnSold711 + Endif + + ln1 = m.lnVen - m.ln709 + m.lnSold711 + + Use In (Select('crsVen')) + Use In (Select('crsVen709')) + Use In (Select('crsVen70')) + Use In (Select('crs711')) + + Select cDecl + Locate For Alltrim(Rand) = '01' && venituri din exploatare + If Found() + Replace suma With Round(m.ln1, 0) + Endif + *---- + lcSql = [select sum(totcred) as suma ] + ; + [ from ] + Iif(glEMama, [vbalmama], [vbal]) + ; + [ where an = ] + Alltrim(Str(tnAnul)) + [ and luna = ] + Alltrim(Str(tnLuna)) + gcCondSucursala + ; + [ and ( SUBSTR(cont,1,2)= '76' or substr(cont,1,3) = '786') ] + + lcCursor = [crs76] && TVA de recuperat + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crs76 + ln4 = Nvl(suma, 0) + Use In crs76 + + Select cDecl + Locate For Alltrim(Rand) = '04' && venituri financiare + If Found() + Replace suma With Round(m.ln4, 0) + Endif + *--- + + lcSql = [select sum(totcred) as suma ] + ; + [ from ] + Iif(glEMama, [vbalmama], [vbal]) + ; + [ where an = ] + Alltrim(Str(tnAnul)) + [ and luna = ] + Alltrim(Str(tnLuna)) + gcCondSucursala + ; + [ and ( to_number(cont) between 660 and 669 or to_number(cont) = 686) ] + + lcCursor = [crs66] && TVA de recuperat + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crs66 + ln5 = Nvl(suma, 0) + Use In crs66 + + Select cDecl + Locate For Alltrim(Rand) = '05' && cheltuieli financiare + If Found() + Replace suma With Round(m.ln5, 0) + Endif + *--- + + lcSql = [select sum(totcred) as suma ] + ; + [ from ] + Iif(glEMama, [vbalmama], [vbal]) + ; + [ where an = ] + Alltrim(Str(tnAnul)) + [ and luna = ] + Alltrim(Str(tnLuna)) + gcCondSucursala + ; + [ and ( to_number(cont) between 770 and 779 or to_number(cont) = 787) ] + + lcCursor = [crs77] && TVA de recuperat + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crs77 + ln7 = Nvl(suma, 0) + Use In crs77 + + Select cDecl + Locate For Alltrim(Rand) = '07' && Venituri extraordinare + If Found() + Replace suma With Round(m.ln7, 0) + Endif + *--- + lcSql = [select sum(totcred) as suma ] + ; + [ from ] + Iif(glEMama, [vbalmama], [vbal]) + ; + [ where an = ] + Alltrim(Str(tnAnul)) + [ and luna = ] + Alltrim(Str(tnLuna)) + gcCondSucursala + ; + [ and ( to_number(cont) between 670 and 679 or to_number(cont) = 687) ] + + lcCursor = [crs67] && TVA de recuperat + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crs67 + ln8 = Nvl(suma, 0) + Use In crs67 + + Select cDecl + Locate For Alltrim(Rand) = '08' && Cheltuieli extraordinare + If Found() + Replace suma With Round(m.ln8, 0) + Endif + + *--- + lcSql = [select sum(totdeb) as suma ] + ; + [ from ] + Iif(glEMama, [vbalmama], [vbal]) + ; + [ where an = ] + Alltrim(Str(tnAnul)) + [ and luna = ] + Alltrim(Str(tnLuna)) + gcCondSucursala + ; + [ and substr(cont,1,1)='6' ] + + lcCursor = [crs60] && TVA de recuperat + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crs60 + ln2 = Nvl(suma, 0) + Use In crs60 + + ln2 = m.ln2 - (m.ln5 + m.ln8) && se mai scade de la randul 2 si soldul lui 6811 (randul 14) + Select cDecl + Locate For Alltrim(Rand) = '02' && cheltuieli de exploatare + If Found() + Replace suma With Round(m.ln2, 0) + Endif + *--- + lcSql = [select sum(totcred) as suma ] + ; + [ from ] + Iif(glEMama, [vbalmama], [vbal]) + ; + [ where an = ] + Alltrim(Str(tnAnul)) + [ and luna = ] + Alltrim(Str(tnLuna)) + gcCondSucursala + ; + [ and to_number(cont) = 691 ] + + lcCursor = [crs691] + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crs691 + ln24 = Nvl(suma, 0) + Use In crs691 + + Select cDecl + Locate For Alltrim(Rand) = '24' && Cheltuieli cu impozitul pe profit + If Found() + Replace suma With Round(m.ln24, 0) + Endif + *--- + lcSql = [select sum(totcred) as suma ] + ; + [ from ] + Iif(glEMama, [vbalmama], [vbal]) + ; + [ where an = ] + Alltrim(Str(tnAnul)) + [ and luna = ] + Alltrim(Str(tnLuna)) + gcCondSucursala + ; + [ and to_number(cont) = 6581] + + lcCursor = [crs6581] + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crs6581 + ln26 = Nvl(suma, 0) + Use In crs6581 + + Select cDecl + Locate For Alltrim(Rand) = '26' && Amenzi, confiscari, dobanzi + If Found() + Replace suma With Round(m.ln26, 0) + Endif + *--- + + *** cheltuieli de protocol sub limita 623.protocol.limita = 2% * (121 + 691 + 623.protocol) = 2% (rd. 10 + rd.24 + 623.protocol ) + *** cheltuieli de protocol care depasesc limita prevazuta de lege = 623.protocol - 623.protocol.limita + lcSql = [select sum(b.totcred) as suma ] + ; + [ from ] + Iif(glEMama, [vbalanamama b], [vbalana b]) + ; + [ join plcont p on b.cont = p.cont and b.acont = p.acont and b.an = p.an ] + ; + [ where b.an = ] + Alltrim(Str(tnAnul)) + [ and b.luna = ] + Alltrim(Str(tnLuna)) + gcCondSucursala + ; + [ and SUBSTR(b.cont,1,3) = '623' and UPPER(p.explicatie) like '%PROTOCOL%' and p.acont is not null] + + lcCursor = [crs623] + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crs623 + lnProtocol = Nvl(suma, 0) + Use In (Select('crs623')) + + If m.lnProtocol = 0 + lcSql = [select sum(totcred) as suma ] + ; + [ from ] + Iif(glEMama, [vbalmama], [vbal]) + ; + [ where an = ] + Alltrim(Str(tnAnul)) + [ and luna = ] + Alltrim(Str(tnLuna)) + gcCondSucursala + ; + [ and SUBSTR(cont,1,3) = '623'] + + lcCursor = [crs623] + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crs623 + lnProtocol = Nvl(suma, 0) + Use In (Select('crs623')) + Endif + ln10 = (m.ln1 - m.ln2) + (m.ln4 - m.ln5) + (m.ln7 - m.ln8) + If m.ln10 <= 0 && profitul negativ, cheltuielile de protocol depasesc in intregime limita + ln27 = m.lnProtocol + Else + lnBazaProtocol = m.ln10 + m.ln24 + m.lnProtocol + lnProtocolLimita = m.lnBazaProtocol * 0.02 + ln27 = m.lnProtocol - m.lnProtocolLimita + ln27 = Max(m.ln27, 0) + Endif + + Select cDecl + Locate For Alltrim(Rand) = '27' && Cheltuieli de protocol care depasesc limita prevazuta de lege + If Found() + Replace suma With Round(m.ln27, 0) + Endif + *--- + *!* Select cDecl + *!* Locate For Alltrim(Rand) = '401' + *!* Replace suma With ln24 * 0.16 + + lcSql = [select sum(totcred) as suma ] + ; + [ from ] + Iif(glEMama, [vbalmama], [vbal]) + ; + [ where an = ] + Alltrim(Str(tnAnul)) + [ and luna = ] + Alltrim(Str(tnLuna)) + gcCondSucursala + ; + [ and cont = '6582'] + + lcCursor = [crs6582] + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select crs6582 + ln28 = Nvl(suma, 0) + Use In (Select('crs6582')) + + Select cDecl + Locate For Alltrim(Rand) = '28' && DONATII SI SUBVENTII ACORDATE + If Found() + Replace suma With Round(m.ln28, 0) + Endif + + Endproc && calculare_2012 + + Procedure do_genereaza_txt + Parameters tcTabel, tcPerioada + + + Local lcSir, lcDirTabele, lcFisUnitate, lcCodFiscal, lcDirDecl + + *!* gcDecl_caleExport = "C:\Program Files\Declaratii fiscale " + Alltrim(Str(gnAn)) + gcDecl_caleExport = "C:\Program Files\Declaratia 101 impozit pe profit\" + If !Directory(gcDecl_caleExport) + gcDecl_caleExport = Getdir("C:", "Directorul Declaratia 101", "Declaratia 101") + Endif + If Empty(gcDecl_caleExport) + Return + Endif + + lcDirTabele = Addbs(Alltrim(gcDecl_caleExport)) + Alltrim(gofirma.firma) + "\" + lcFisUnitate = lcDirTabele + "Unitate.dbf" + If !File(lcFisUnitate) + amessage("Nu ati salvat Date de identificare unitate!", 0 + 48, _Screen.Caption) + Return + Endif + + Use (lcFisUnitate) In 0 Again Alias unitate + Select unitate + lcCodFiscal = Alltrim(Str(codi)) + + lcDirDecl = Addbs(Alltrim(gcDecl_caleExport)) + lcCodFiscal + + + *** creez unitate.txt + Set Textmerge To + lcFile = lcDirTabele + "adresa.txt" + Set Textmerge On To (lcFile) Noshow + + + Select unitate + lcCodFiscal = Alltrim(Str(codi)) + + Select unitate + Go Top + lcSir = "##,#" + Alltrim(Str(codi)) + "#,#" + ; + Alltrim(deni) + "#,#" + ; + Alltrim(deni) + "#,#" + ; + Alltrim(adr) + "#,#" + ; + Alltrim(telf) + "#,#" + ; + Alltrim(banca) + "#,#" + ; + Alltrim(Cont) + "#,#" + ; + "#,##,##,#" + ; + Alltrim(intocmitf) + "#,#" + ; + Alltrim(calIntoc) + "#," + ; + Alltrim(Str(caen)) + + If Used('unitate') + Use In unitate + Endif + + \\<> + Set Textmerge To + Wait Window "S-a exportat adresa.txt..." Timeout 1 + + + If !Directory(lcDirDecl) + Md (lcDirDecl) + Endif + + *** creez Dec100T.txt + *lcFile = lcDirTabele + "\Dec101T.txt" + lcFile = lcDirDecl + "\Dec101T.txt" + + lcSir = '' + lcTrim = '' + + Do Case + Case tcPerioada = '01/10 - 09/10' + lnLuna = 9 + lnAnul = 2010 + lcTrim = 'T3' + Case tcPerioada = '10/10 - 12/10' + lnLuna = 12 + lnAnul = 2010 + lcTrim = 'T4' + Case tcPerioada = '01/10 - 12/10' + lnLuna = 12 + lnAnul = 2010 + lcTrim = 'AN' + Case Lower(Alltrim(tcPerioada)) = 'luna contabila curenta' + lnLuna = gnLuna + lnAnul = gnAn + lcTrim = '' + Endcase + + lcSir = lcCodFiscal + ',' + Padl(lnLuna, 2, '0') + ',' + Alltrim(Str(lnAnul, 4, 0)) + ',#' + lcTrim + '#,,#' + gofirma.caen + '#,' + + + lnvirgule = 0 + Select (tcTabel) + Scan For !(Empty(Rand) Or Isnull(Rand)) + If suma = 0 Or Isnull(suma) + lcSir = lcSir + ',' + Else + lcSir = lcSir + Alltrim(Str(suma, 15, 0)) + ',' + Endif + Endscan + + + lcSir = lcSir + '##' + && lcSir = lcSir + Chr(13) + Chr(10) + + ***--- + + + If File(lcFile) + lcStr = Filetostr(lcFile) + Set Textmerge On To (lcFile) Noshow + Alines(sir, lcStr) + + lcInceput = lcCodFiscal + ',' + Padl(lnLuna, 2, '0') + ',' + Alltrim(Str(lnAnul, 4, 0)) + ',#' + lcTrim + '#' + lnInceput = Len(lcInceput) + llGasit = .F. + + For i = 1 To Alen(sir) + If Substr(sir[i], 1, lnInceput) = lcInceput + sir[i] = lcSir + lcSirul = lcSir + llGasit = .T. + Endif + Endfor + + If !llGasit + && appe - scrie la sfarsit + For i = 1 To Alen(sir) + lcLinia = sir[i] + Chr(13) + Chr(10) + \\<> + Endfor + \\<> + Else + && se scriu liniile inapoi in fisier; linia care se modifica este modificata deja in array + lcLinia = '' + For i = 1 To Alen(sir) + lcLinia = sir[i] + Chr(13) + Chr(10) + \\<> + + Endfor + Endif + Else + Set Textmerge On To (lcFile) Noshow + \\<> + Endif + + Set Textmerge To + + Wait Window "S-a exportat Dec101T.txt..." Timeout 1 + + lcA = lcDirTabele + "\" + "adresa.txt" + lcD = lcDirTabele + "\" + "dec101T.txt" + + + lcFisAdresa = lcDirDecl + "\adresa.txt" + lcfisDec101T = lcDirDecl + "\dec101T.txt" + + Copy File (lcA) To (lcFisAdresa) + *Copy File (lcD) To (lcfisDec101T) + + amessagebox([Fisierele au fost exportate in directorul ] + Alltrim(Addbs(Justpath(lcfisDec101T))) + Chr(13) + Chr(10) + ; + [Intrati in programul Declaratia 101], 0 + 64, 'Decl. 101') + Endproc && do_genereaza_txt + *========================================== +Enddefine && D101 + +********************************************************* +*** Cifra de afaceri pentru TVA trimestrial/lunar +*** DECLARATIA 094 +* Cifra de afaceri dpdv perioada fiscala TVA conform art. 322, alin. (2) +* Operatiuni taxabile si/sau scutite cu drept de deducere si/sau neimpozabile în România + +* cuprinde: toate operatiunile taxabile, scutite cu drept de deducere, cu taxare inversa si cele neimpozabile +* nu cuprinde: operatiuni scutite fara drept de deducere +********************************************************* +Procedure viz_decl094 + Local loD094 As "D094" + loD094 = Createobject("D094") && ovanzcump.vcx + loD094.do_executa() +Endproc + +Define Class D094 As Custom + + nAn = 0 + nLuna = 0 + cCodFiscal = 0 + cCodCaen = [] + lPlatitorTVA = .F. + cDenumireFirma = [] + cAdresa = [] + cTelefon = [] + cFax = [] + cEmail = [] + cDeclarant = [] + cNumeDeclarant = [] + cPrenumeDeclarant = [] + cFunctieDeclarant = [] + + nCifraDeAfaceri = 0 + + Procedure Init + With This + .nAn = gnAn + .nLuna = m.gnLuna + .cCodFiscal = Strtran(Alltrim(Upper(Nvl(gofirma.cod_fiscal, ''))), 'RO', '') + .cCodCaen = Alltrim(gofirma.caen) + .lPlatitorTVA = (Substr(Alltrim(Upper(Nvl(gofirma.cod_fiscal, ''))), 1, 2) == 'RO') + .cDenumireFirma = Nvl(Alltrim(gofirma.firma), '') + .cAdresa = Nvl(Alltrim(gofirma.adresa), '') + .cTelefon = Nvl(Alltrim(gofirma.telefon), '') + .cFax = Nvl(Alltrim(gofirma.fax), '') + .cEmail = Nvl(Alltrim(gofirma.email), '') + .cDeclarant = Alltrim(gofirma.declarant) + .cNumeDeclarant = Alltrim(gofirma.nume_declarant) + .cPrenumeDeclarant = Alltrim(gofirma.prenume_declarant) + .cFunctieDeclarant = Alltrim(gofirma.functie) + + .nCifraDeAfaceri = 0 + Endwith + Endproc + + Procedure do_executa + Local loFrmDoc As "frm_decl_tipdoc" + Local lcAppPath, lcCaleFisier, lcCaleFisierPDF, lcCaleTemp, lcComunPath, lcConditieAct, lcCursor + Local lcFileName, lcFileNamePDF, lcFirma, lcFisierPDFNou, lcFisierPDFOriginal, lcFisierTXT + Local lcFisierXDP, lcFisierXLS, lcMesaj, lcNumeFisier, lcRun, lcSelect, lcSirId, lcSql, llSucces + Local lnPos, loEx + Local lcTextAchIntracomunitar + lcSelect = Select() + *** Initializare cai export + lcAppPath = Addbs(gcAppPath) + lcComunPath = lcAppPath + lnPos = Rat("\", Addbs(m.lcAppPath), 2) + If lnPos > 0 + lcComunPath = Left(m.lcAppPath, lnPos) + Endif + lcComunPath = lcComunPath + Iif(gcAppName = "CONCONT", "COMUNCONTAFIN\", "COMUNROA\") && d:\contafin\comuncontafin\ + + *** Creez structura director export : caletemp\D392\aaaa\firma\ + llSucces = .F. + Try + lcCaleTemp = m.gcBasePath + lcCaleFisier = m.lcCaleTemp + "D094\" + If !Directory(m.lcCaleFisier) + Md (m.lcCaleFisier) + Endif + + lcFirma = Iif(gcAppName = "CONCONT", Alltrim(gofirma.fscurt), m.gcFirma) + lcCaleFisier = m.lcCaleFisier + Strtran(lcFirma, [ ], [_]) + "\" + + lcCaleFisierPDF = m.lcCaleFisier && c:\temp\D392\2014\firma\ + + If !Directory(m.lcCaleFisier) + Md (m.lcCaleFisier) + Endif + + llSucces = .T. + Catch To loEx + lcMesaj = "Creare director " + lcCaleFisier + " " + loEx.Message + + amessagebox(lcMesaj, 0 + 48) + Endtry + If !llSucces + Return + Endif + + If Type('gofirma.codfiscalfro') = 'U' + AddProperty(gofirma, 'codfiscalfro', Strtran(Alltrim(gofirma.cod_fiscal), 'RO', '')) + Endif + + lcNumeFisier = "d094_" + gofirma.codfiscalfro + "_" + Alltrim(Str(gnAn)) + Do Case + Case gnAn >= 2020 + lcFisierPDFOriginal = lcComunPath + "d094_2020.pdf" + + Otherwise + lcFisierPDFOriginal = lcComunPath + "d094_2020.pdf" + Endcase + + This.UpdatePDF(m.lcFisierPDFOriginal) && actualizez pdf de la romfast + + lcFileName = m.lcCaleFisier + lcNumeFisier + + lcFileNamePDF = m.lcCaleFisierPDF + lcNumeFisier + lcFisierPDFNou = m.lcFileNamePDF + [.pdf] + lcFisierXDP = m.lcFileNamePDF + [.xdp] + + + If File(lcFisierPDFNou) + Delete File (lcFisierPDFNou) + Endif + If File(lcFisierXDP) + Delete File (lcFisierXDP) + Endif + + *** citesc JV + Text To lcSql Textmerge Noshow +SELECT ROUND(SUM(RO24B + RO20B + RO19B + RO9B + RO5B + ROTI + WRN + WRSCDD), 0) AS BAZA + FROM vjv2013 + WHERE AN = <> + <> + Endtext + + lcCursor = [crsJV] + llSucces = goExecutor.oExecuta(lcSql, lcCursor) + + If m.llSucces + + Text To lcSql Textmerge Noshow +select luna, valoare + from (select luna, + sum(cebcb + cebvb + cebvsc + cebvn + cebfb + cebfsc + cebfn + + ce24sb + ce20sb + ce19sb + ce9sb + ce5sb + ce24b + ce20b) as valoare + from jc2007 + WHERE AN = <> + group by luna) + where valoare <> 0 + Endtext + + lcCursor = [crsJCCE] + llSucces = goExecutor.oExecuta(lcSql, lcCursor) + If m.llSucces + If Reccount('crsJCCE') > 0 + lcTextAchIntracomunitar = 'Atentie! Exista achizitii intracomunitare in lunile urmatoare:' + Chr(13) + Chr(10) + Select crsJCCE + Scan + lcTextAchIntracomunitar = lcTextAchIntracomunitar + 'Luna ' + Padl(luna, 2, '0') + ' : ' + Alltrim(Str(valoare, 20, 2)) + Chr(13) + Chr(10) + Endscan + amessagebox(m.lcTextAchIntracomunitar, 0 + 48, _Screen.Caption) + Endif + + Endif + Endif && llSucces + + If m.llSucces + *!* D094 + Select crsJV + This.nCifraDeAfaceri = Nvl(crsJV.baza, 0) && cifra de afaceri in scopuri TVA + + Do Case + Case This.nAn >= 2020 + This.do_genereaza_xdp_2020(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + + If File(m.lcFisierXDP) + open_default_app(m.lcFisierXDP) + Endif + + Otherwise + Case This.nAn >= 2020 + This.do_genereaza_xdp_2020(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou) + + If File(m.lcFisierXDP) + open_default_app(m.lcFisierXDP) + Endif + Endcase + + *** deschid explorer in directorul de export + lcRun = [RUN /N7 explorer.exe "] + m.lcCaleFisier + ["] + &lcRun + Endif && llSucces + + Use In (Select('crsJV')) + Select (m.lcSelect) + + Endproc && do_executa + + *========================================== + Procedure do_genereaza_xdp_2020 + Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou + + Local lcSelect, lcXDP + lcSelect = Select() + + + lcXDP = "" + With This + Text To lcXDP Additive Textmerge Noshow Pretext 1 + + + + + + + + + <> + <> + 0 + + + + RO + <> + <> + <> + <> + <> + + <> + + <> + + + <> + <> + + + + + + + Endtext + Endwith + Wait Window "Se exporta datele in format PDF" Nowait + Strtofile(lcXDP, tcFisierXDP) + If File(tcFisierXDP) + *** copiez fisierul pdf inteligent original in directorul de export + If File(m.tcFisierPDFOriginal) + Copy File (tcFisierPDFOriginal) To (tcFisierPDFNou) + Else + amessagebox('Nu exista fisierul ' + m.tcFisierPDFOriginal, 0 + 48, _Screen.Caption) + Endif + Endif + + Select (lcSelect) + Endproc && do_genereaza_xdp_2014 + + Procedure UpdatePDF + Lparameters tcPDFFile + *** tcPDFFile: calea completa a fisierului pdf D:\CONTAFIN\COMUNCONTAFIN\d392.pdf + + Local lcFile, lcPath, llOpen + lcFile = Justfname(m.tcPDFFile) + lcPath = Addbs(Justpath(m.tcPDFFile)) + llOpen = .F. + + Return DownloadSupportFile(m.lcFile, m.lcPath, m.llOpen) && proceduri_comune.prg + + Endproc && UpdatePDF + +Enddefine && D094 +*=======================================================================* + + +*** notificare aplicare TVA la incasare +Procedure viz_decl097 + Local loD097 As "D097" + loD097 = Createobject("D097") + loD097.do_executa() +Endproc && viz_decl097 + +Define Class D097 As Custom + nCifraAfaceri = 0 &&& Cifra de afaceri + nPlafonCifraAfaceri = 2250000 &&& sub acest plafon se aplica TVA la incasare + dData = {} &&& data de la care se face declaratia + cPerioada = '' &&& perioada cifrei de afaceri + + Procedure do_executa + *** EXPORT D097 + Local lcAppPath, lcCaleFisier, lcCaleFisierRTF, lcComunPath, lcFileName, lcFileNameRTF, lcFirma + Local lcFisierRTFNou, lcFisierRTFOriginal, lcJV, lcLunaBetween, lcMesaj, lcNumeFisier, lcRun + Local lcTempPath, ldData1, ldData2, llSucces, lnAn, lnAn1, lnAn2, lnLuna, lnLuna1, lnLuna2 + Local lnNrLuni1, lnNrLuni2, lnPos, loEx + Local lcSelect, lcSql, lnSucces + Private pnCifraAfaceri + pnCifraAfaceri = 0 + + lcSelect = Select() + + lcAppPath = Addbs(gcAppPath) + lcComunPath = lcAppPath + lnPos = Rat("\", Addbs(m.lcAppPath), 2) + If lnPos > 0 + lcComunPath = Left(m.lcAppPath, lnPos) + Endif + lcComunPath = lcComunPath + Iif(gcAppName = "CONCONT", "COMUNCONTAFIN\", "COMUNROA\") && d:\contafin\comuncontafin\ + + *** Creez structura director export (caletemp\D394\aaaa_ll\firma\ + llSucces = .F. + Try + lcTempPath = m.gcBasePath + lcCaleFisier = m.lcTempPath + "D097\" && c:\temp\D394\ + + If !Directory(m.lcCaleFisier) + Md (m.lcCaleFisier) + Endif + + lcCaleFisier = m.lcCaleFisier + Alltrim(Str(gnAn)) + "_" + Padl(Alltrim(Str(gnLuna)), 2, "0") + "\"&& c:\temp\D097\2011_01\ + If !Directory(m.lcCaleFisier) + Md (m.lcCaleFisier) + Endif + + lcFirma = Iif(gcAppName = "CONCONT", Alltrim(gofirma.fscurt), m.gcFirma) + lcCaleFisier = m.lcCaleFisier + Strtran(lcFirma, [ ], [_]) + "\" && c:\temp\D390\2011_01\firma\ + If !Directory(m.lcCaleFisier) + Md (m.lcCaleFisier) + Endif + + lcCaleFisierRTF = m.lcCaleFisier && c:\temp\D097\2011_01\firma\ + If !Directory(m.lcCaleFisierRTF) + Md (m.lcCaleFisierRTF) + Endif + + llSucces = .T. + Catch To loEx + lcMesaj = "Creare director " + lcCaleFisier + " " + loEx.Message + + amessagebox(lcMesaj, 0 + 48) + Endtry + If !llSucces + Return + Endif + + If Type('gofirma.codfiscalfro') = 'U' + AddProperty(gofirma, 'codfiscalfro', Strtran(Alltrim(gofirma.cod_fiscal), 'RO', '')) + Endif + + lcNumeFisier = "d097_" + gofirma.codfiscalfro + "_" + Alltrim(Str(gnAn)) + "_" + Padl(gnLuna, 2, "0") + lcFisierRTFOriginal = lcComunPath + "d097.rtf" && d:\contafin\comuncontafin\d097.rtf + + This.UpdateRTF(m.lcFisierRTFOriginal) && actualizez pdf de la romfast + + lcFileName = m.lcCaleFisier + lcNumeFisier + + lcFileNameRTF = m.lcCaleFisierRTF + lcNumeFisier + lcFisierRTFNou = m.lcFileNameRTF + [.rtf] + + lnAn2 = m.gnAn + lnLuna2 = m.gnLuna + ldData2 = Date(m.lnAn2, m.lnLuna2, 1) + + ldData1 = Date(lnAn2, 1, 1) && Gomonth(m.ldData2, -11) + lnAn1 = Year(m.ldData1) + lnLuna1 = Month(m.ldData1) + + ldData2 = Gomonth(m.ldData2, 1) - 1 + + lnNrLuni1 = lnAn1 * 12 + lnLuna1 + lnNrLuni2 = lnAn2 * 12 + lnLuna2 + + This.dData = Iif(m.gnAn = 2012, Date(2013, 1, 1), Gomonth(Date(m.lnAn2, m.lnLuna2, 1), 1)) + This.cPerioada = Dtoc(m.ldData1) + ' - ' + Dtoc(m.ldData2) + + *** TIPURI DOCUMENTE + Text To lcSql Textmerge Noshow + SELECT distinct 1 AS ALES, FEL_DOCUMENT AS FDOC, ID_FDOC + FROM vjv2010 + WHERE an*12+luna between <> and <> and NVL(id_fdoc,0) <> 0 + Endtext + + *!* 05.11.2009 ^ + lnSucces = goExecutor.oExecute(lcSql, "crsFdoc") + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Go Top In crsFDoc + + loFrmDoc = Createobject("frm_decl_tipdoc", "097") + loFrmDoc.label1.Caption = "Debifati tipurile de documente care nu doriti" + loFrmDoc.label2.Caption = "sa participe la calculul Cifrei de Afaceri" + loFrmDoc.Show(1) + + lcSirId = "" + Select id_fdoc From crsFDoc With (Buffering = .T.) Where ales = 1 Into Cursor crsFdocTemp + If _Tally = 0 + amessagebox('Trebuie sa alegeti un tip de document!', 0 + 48, 'Atentie') + Use In crsFDoc + Use In crsFdocTemp + Return + Endif + Use In crsFDoc + Select crsFdocTemp + Scan + lcSirId = lcSirId + [, ] + Alltrim(Str(id_fdoc)) + Endscan + If !Empty(lcSirId) + lcSirId = Substr(lcSirId, 2) + Endif + Use In crsFdocTemp + + *!* Mentionam ca potrivit art .134^2 lit. a din Codul fiscal: + *!* "Cifra de afaceri pentru calculul plafonului de 2.250.000 lei este constituita din valoarea totala + *!* a livrarilor de bunuri si a prestarilor de servicii taxabile si/sau scutite cu drept de deducere, + *!* precum si a operatiunilor rezultate din activitati economice pentru care locul livrarii/prestarii + *!* se considera ca fiind in strainatate, conform art. 132 si 133, realizate in cursul unui an calendaristic." + + Text To lcSql Textmerge Noshow + select sum(ro24b + ro24nb + ro20b + ro20nb + ro19b + ro19nb + ro9b + ro9nb + ro5b + ro5nb + roti + cescdd1 + cescdd2 + wrscdd + fodd + fofdd + wrscfdd + wrn + ceoptr + cesvdd + cesvfdd + cesvfs) + from vjv2010 + where an*12+luna between <> and <> + AND EXTRACT(YEAR FROM dataireg) = an and EXTRACT(MONTH FROM dataireg) = luna + AND ID_FDOC IN (<>) + Endtext + pnCifraAfaceri = 0 + lnSucces = goExecutor.oSelect2Value(m.lcSql, @pnCifraAfaceri) + This.nCifraAfaceri = Int(Round(m.pnCifraAfaceri, 0)) + + This.do_genereaza_rtf(m.lcFisierRTFOriginal, m.lcFisierRTFNou) + + If File(m.lcFisierRTFNou) + open_default_app(m.lcFisierRTFNou) + Endif + + *** deschid explorer in directorul de export + lcRun = [RUN /N7 explorer.exe "] + m.lcCaleFisier + ["] + &lcRun + + Select (m.lcSelect) + Endproc && do_executa + *=========================================== + Procedure do_genereaza_rtf + Lparameters tcFisierRTFOriginal, tcFisierRTFNou + + Local lcCADepasit, lcCANeDepasit, lcDataDepasit, lcDataNeDepasit, lcPerioadaDepasit, lcIntrare, lcIesire + Local lcPerioadaNeDepasit, lcSelect, lcText, lnCifraAfaceri, lnPlafonCifraAfaceri + lcSelect = Select() + + lnCifraAfaceri = This.nCifraAfaceri + lnPlafonCifraAfaceri = This.nPlafonCifraAfaceri + lcCADepasit = '.......' + lcCANeDepasit = '.......' + lcDataDepasit = '.......' + lcPerioadaDepasit = '.......' + lcDataNeDepasit = '.......' + lcPerioadaNeDepasit = '.......' + lcIntrare = '' + lcIesire = '' + If lnCifraAfaceri > m.lnPlafonCifraAfaceri + lcCADepasit = formateaza(m.lnCifraAfaceri, 16, m.gnPA) + lcDataDepasit = Dtoc(This.dData) + lcPerioadaDepasit = This.cPerioada + lcIesire = 'X' + Else + lcCANeDepasit = formateaza(m.lnCifraAfaceri, 16, m.gnPA) + lcDataNeDepasit = Dtoc(This.dData) + lcPerioadaNeDepasit = This.cPerioada + lcIntrare = 'X' + Endif + + + If !File(m.tcFisierRTFOriginal) + amessagebox('Nu exista fisierul ' + m.tcFisierRTFOriginal, 0 + 48, _Screen.Caption) + Return + Endif + + lcText = Filetostr(m.tcFisierRTFOriginal) + + *** completare RTF + lcText = Strtran(m.lcText, '', m.lcIntrare) + lcText = Strtran(m.lcText, '', m.lcIesire) + lcText = Strtran(m.lcText, '', Alltrim(Nvl(gofirma.antet, ''))) + lcText = Strtran(m.lcText, '', Alltrim(Nvl(gofirma.codfiscalfro, ''))) + lcText = Strtran(m.lcText, '', Alltrim(Nvl(gofirma.JUDET, ''))) + lcText = Strtran(m.lcText, '', Alltrim(Nvl(gofirma.sector, ''))) + lcText = Strtran(m.lcText, '', Alltrim(Nvl(gofirma.LOCALITATE, ''))) + lcText = Strtran(m.lcText, '', Alltrim(Nvl(gofirma.STRADA, ''))) + lcText = Strtran(m.lcText, '', Alltrim(Nvl(gofirma.NUMAR, ''))) + lcText = Strtran(m.lcText, '', Alltrim(Nvl(gofirma.Bloc, ''))) + lcText = Strtran(m.lcText, '', Alltrim(Nvl(gofirma.SCARA, ''))) + lcText = Strtran(m.lcText, '', '') + lcText = Strtran(m.lcText, '', Iif(!Empty(Nvl(gofirma.APART, 0)), Alltrim(Str(gofirma.APART)), '')) + lcText = Strtran(m.lcText, '', Alltrim(Nvl(gofirma.cod_postal, ''))) + lcText = Strtran(m.lcText, '', Alltrim(Nvl(gofirma.telefon, ''))) + lcText = Strtran(m.lcText, '', Alltrim(Nvl(gofirma.fax, ''))) + lcText = Strtran(m.lcText, '', Lower(Alltrim(Nvl(gofirma.email, '')))) + lcText = Strtran(m.lcText, '', m.lcCADepasit) + lcText = Strtran(m.lcText, '', m.lcDataDepasit) + lcText = Strtran(m.lcText, '', m.lcPerioadaDepasit) + lcText = Strtran(m.lcText, '', m.lcCANeDepasit) + lcText = Strtran(m.lcText, '', m.lcDataNeDepasit) + lcText = Strtran(m.lcText, '', m.lcPerioadaNeDepasit) + lcText = Strtran(m.lcText, '', Alltrim(Nvl(gofirma.declarant, ''))) + lcText = Strtran(m.lcText, '', Alltrim(Nvl(gofirma.functie, ''))) + + Strtofile(m.lcText, m.tcFisierRTFNou) + + Select (m.lcSelect) + + Endproc && do_genereaza_rtf + + *========================================== + Procedure UpdateRTF + Lparameters tcRTFFile + *** tcPDFFile: calea completa a fisierului pdf D:\CONTAFIN\COMUNCONTAFIN\d097.pdf + + Local lcFile, lcPath, llOpen + + lcFile = Justfname(m.tcRTFFile) + lcPath = Addbs(Justpath(m.tcRTFFile)) + llOpen = .F. + + Return DownloadSupportFile(m.lcFile, m.lcPath, m.llOpen) && proceduri_comune.prg + + Endproc && UpdateRTF + +Enddefine && d097 + + +******************************************* INCEPUT: viz_regvanz ******************************************* +Procedure viz_regvanz + *** verificare INAINTE_DE + + *:Global nuexista, pnRecCnt + Local oreg As "frm_regvanz2025" + Local lcCoresp, lcExceptii, lcFiltruOriginal, lcGroup, lcSqlCount, llAfisare, llAfisareTot + Local llModParam, llSucces, lnInregistrariAfisare, lnProcTvaRed, lnProcTvaSt + + lcCoresp = ['4111'] + lcExceptii = ['667,622'] + + Use In (Select('actcv')) + + Private lcschema, lcselect, lcfiltru, lcorder, povanz + Store "" To povanz + + * Calculez numarul de inregistrari. Daca numarul este mai mic de min(300, gnInregistrariAfisare) afisez toate inregistrarile in loc sa intru cu 1=2 + lnInregistrariAfisare = Iif(Type('gnInregistrariAfisare') = 'N', m.gnInregistrariAfisare, 300) + + lcSqlCount = [SELECT COUNT(*) as nr FROM jv2007 where an=?gnAn and luna=?gnLuna] + pnRecCnt = 0 + llSucces = goExecutor.oSelecteaza2Value(m.lcSqlCount, @pnRecCnt) + llAfisareTot = (Nvl(m.pnRecCnt, 0) <= m.lnInregistrariAfisare) + + Do Case + Case m.gnAn * 12 + m.gnLuna >= 2025 * 12 + 8 + *** 01/08/2025 21%, 11% + Do inainte With "VANZ2007" In oinainte_de.prg + + TEXT TO lcSchema NOSHOW +ID_JV I, ID_FACT I, COD I, AN I, LUNA I, DATAACT D, DATAIREG D, SERIE_ACT C(10), NRACT I, ID_PART I, ID_FDOC I, FDOC C(30), FEL_DOCUMENT C(30), TIP_DOC C(10), DENUMIRE C(100), COD_FISCAL C(30), TIP_PERSOANA I, AFILIAT I, CODTARA C(5), ID_SUCURSALA I, SUCURSALA C(250), TOTCTVA N(20,4), RO11B N(20,4), RO11T N(20,4), RO21B N(20,4), RO21T N(20,4), RO19B N(20,4), RO19T N(20,4), RO9B N(20,4), RO9T N(20,4), RO5B N(20,4), RO5T N(20,4), RO24B N(20,4), RO24T N(20,4), RO20B N(20,4), RO20T N(20,4), ROTI N(20,4), CESCDD1 N(20,4), CESCDD2 N(20,4), CEOPTR N(20,4), CESVDD N(20,4), CESVFDD N(20,4), CESVFS N(20,4), WRSCDD N(20,4), FODD N(20,4), FOFDD N(20,4), WRSCFDD N(20,4), WRN N(20,4), RORTC11 N(20,4), RORTC21 N(20,4), RORTC19 N(20,4), RORTC9 N(20,4), RORTC5 N(20,4), RO11NB N(20,4), RO11NT N(20,4), RO21NB N(20,4), RO21NT N(20,4), RO19NB N(20,4), RO19NT N(20,4), RO9NB N(20,4), RO9NT N(20,4), RO5NB N(20,4), RO5NT N(20,4), RO24NB N(20,4), RO24NT N(20,4), RO20NB N(20,4), RO20NT N(20,4), TOTFTVATAX N(20,4), TOTTVATAX N(20,4), TVA_INCASARE I,CONT C(4), ales N(1), diferenta_incasare_tva n(20,4), incasat_exigibil N(20,4), incasat_tot N(20,4), solddif N(20,4), soldf N(20,4) + ENDTEXT + + + TEXT TO lcSelect noshow +select ID_JV, ID_FACT, COD, AN, LUNA, DATAACT, DATAIREG, SERIE_ACT, NRACT, ID_PART, ID_FDOC, FEL_DOCUMENT as FDOC, FEL_DOCUMENT, TIP_DOC, DENUMIRE, COD_FISCAL, +TIP_PERSOANA, AFILIAT, CODTARA, ID_SUCURSALA, SUCURSALA, +TOTCTVA, RO11B, RO11T, RO21B, RO21T, RO19B, RO19T, RO9B, RO9T, RO5B, RO5T, RO24B, RO24T, RO20B, RO20T, ROTI, CESCDD1, CESCDD2, CEOPTR, CESVDD, CESVFDD, CESVFS, WRSCDD, FODD, FOFDD, WRSCFDD, WRN, +RORTC11, RORTC21, RORTC19, RORTC9, RORTC5, RO11NB, RO11NT, RO21NB, RO21NT, RO19NB, RO19NT, RO9NB, RO9NT, RO5NB, RO5NT, RO24NB, RO24NT, RO20NB, RO20NT, TOTFTVATAX, TOTTVATAX, TVA_INCASARE, +'' AS CONT, 0 as ales, cast(0 as NUMBER(20,4)) as diferenta_incasare_tva, 0.0000 as incasat_exigibil, 0.0000 as incasat_tot, 0.0000 as solddif, 0.0000 as soldf +from vjv2025 + ENDTEXT + + + lcfiltru = [1=2] + lcorder = [dataact,nract] + llAfisare = .F. + llAfisare = .F. + lcGroup = "" + llModParam = .T. + lcFiltruOriginal = "" + gencursor('povanz', 'actcv', lcselect, lcfiltru, lcschema, lcorder, llAfisare, m.lcGroup, m.llModParam, m.lcFiltruOriginal) + povanz.ca_baza1.afisare() + + nuexista = .F. + Clear Class "frm_regvanz2025" + Select actcv + oreg = Createobject("frm_regvanz2025", m.llAfisareTot) + oreg.Show(1) + + + Case m.gnAn * 12 + m.gnLuna >= 2010 * 12 + 7 + *** 01/07/2010 24% + Do inainte With "VANZ2007" In oinainte_de.prg + + *!* modificare v 2.0.126 : am adaugat ceoptr,cesvdd,cesvfdd,cesvfs + lcschema = [id_jv n(20), id_fact n(20), an n(4),luna n(2),cod n(20),dataact d,dataireg d,cod_fiscal c(30),nract N(20),serie_act c(10),] + ; + [id_part n(20),id_fdoc n(20),totctva n(20,4),ro24b n(20,4),ro24t n(20,4),ro19b n(20,4),ro19t n(20,4),ro9b n(20,4),] + ; + [ro9t n(20,4),] + ; + [ro5b n(20,4), ro5t n(20,4),] + ; + [roti n(20,4),cescdd1 n(20,4),cescdd2 n(20,4),wrscdd n(20,4),fodd n(20,4),] + ; + [ceoptr n(20,4),cesvdd n(20,4),cesvfdd n(20,4),cesvfs n(20,4),] + ; + [fofdd n(20,4),wrscfdd n(20,4),wrn n(20,4),fdoc c(30),fel_document c(30),denumire c(70),id_sucursala n(5),sucursala c(100), ] + ; + [ro24nb n(20,4),ro24nt n(20,4),ro19nb n(20,4),ro19nt n(20,4),ro9nb n(20,4),ro9nt n(20,4),ro5nb n(20,4), ro5nt n(20,4), totftvatax n(20,4), tottvatax n(20,4), tva_incasare n(1), ] + ; + [diferenta_incasare_tva n(20,4), ales n(1), cont c(4), soldf n(20,4), solddif n(20,4), incasat_tot n(20,4), incasat_exigibil n(20,4), ] + ; + [ro20b n(20,4),ro20t n(20,4),ro20nb n(20,4),ro20nt n(20,4)] + + lcselect = [select id_jv, id_fact, an,luna,cod,dataact,dataireg,cod_fiscal,nract,serie_act,] + ; + [id_part,id_fdoc,totctva,ro24b,ro24t,ro19b,ro19t,ro9b,] + ; + [ro9t,ro5b,ro5t,roti,cescdd1,cescdd2,wrscdd,fodd,] + ; + [ceoptr,cesvdd,cesvfdd,cesvfs,] + ; + [fofdd,wrscfdd,wrn,fel_document,fel_document,denumire,id_sucursala,sucursala, ] + ; + [ro24nb, ro24nt, ro19nb, ro19nt, ro9nb, ro9nt, ro5nb, ro5nt, totftvatax, tottvatax, tva_incasare, ] + ; + [cast(0 as NUMBER(20,4)) as diferenta_incasare_tva, 0 as ales, '' as cont, 0.0000 as soldf, 0.0000 as solddif, 0.0000 as incasat_tot, 0.0000 as incasat_exigibil, ] + ; + [ro20b, ro20t, ro20nb, ro20nt ] + ; + [from ] + Iif(m.gnAn < 2013, [vjv2010], [vjv2013]) + + lcfiltru = [1=2] + lcorder = [dataact,nract] + llAfisare = .F. + llAfisare = .F. + lcGroup = "" + llModParam = .T. + lcFiltruOriginal = "" + gencursor('povanz', 'actcv', lcselect, lcfiltru, lcschema, lcorder, llAfisare, m.lcGroup, m.llModParam, m.lcFiltruOriginal) + povanz.ca_baza1.afisare() + nuexista = .F. + Clear Class "frm_regvanz2010" + Select actcv + oreg = Createobject("frm_regvanz2010", m.llAfisareTot) + oreg.Show(1) + + Case gnAn >= 2007 And m.gnAn * 12 + m.gnLuna < 2010 * 12 + 7 + *** 01/01/2007 19% + Do inainte With "VANZ2007" In oinainte_de.prg + + lcschema = [id_jv n(4),an n(4),luna n(2),cod n(20),dataact d,cod_fiscal c(30),nract N(20),serie_act c(10),] + ; + [id_part n(20),id_fdoc n(20),totctva n(20,4),ro19b n(20,4),ro19t n(20,4),ro9b n(20,4),] + ; + [ro9t n(20,4),] + ; + [ro5b n(20,4), ro5t n(20,4),] + ; + [roti n(20,4),cescdd1 n(20,4),cescdd2 n(20,4),wrscdd n(20,4),fodd n(20,4),] + ; + [fofdd n(20,4),wrscfdd n(20,4),wrn n(20,4),fel_document c(30),denumire c(70),sucursala c(100)] + + lcselect = [select id_jv,an,luna,cod,dataact,cod_fiscal,nract,serie_act,] + ; + [id_part,id_fdoc,totctva,ro19b,ro19t,ro9b,] + ; + [ro9t,ro5b,ro5t,roti,cescdd1,cescdd2,wrscdd,fodd,] + ; + [fofdd,wrscfdd,wrn,fel_document,denumire,sucursala from vjv2010] + + lcfiltru = [1=2] + lcorder = [dataact,nract] + llAfisare = .F. + llAfisare = .F. + lcGroup = "" + llModParam = .T. + lcFiltruOriginal = "" + gencursor('povanz', 'actcv', lcselect, lcfiltru, lcschema, lcorder, llAfisare, m.lcGroup, m.llModParam, m.lcFiltruOriginal) + povanz.ca_baza1.afisare() + nuexista = .F. + Clear Class "frm_regvanz2007" + oreg = Createobject("frm_regvanz2007") + oreg.Show(1) + + Otherwise + Do inainte With "VANZ", , , , lcExceptii, lcCoresp In oinainte_de.prg + lcschema = ['id_vanz n(20),an n(5),luna n(2),cod n(20),dataireg d,cod_fiscal c(13),'+] + ; + ['totctva n(19,gnPA),neimpozab n(19,gnPA),totftvai n(19,gnPA),tvai n(19,gnPA),totftvam n(19,gnPA),'+] + ; + ['tvam n(19,gnPA),id_part n(20),nume c(50),id_fdoc n(5),fdoc c(30),dataact d,nract N(20),'+] + ; + ['scd c(4),scutit n(1),ext n(1)'] + lcselect = ['select * from ] + gcs + [.vvanz where 1=2'] + lcfiltru = [1=2] + lcorder = [dataact,nract] + llAfisare = .F. + gencursor('povanz', 'actcv', lcselect, lcfiltru, lcschema, lcorder, llAfisare) + povanz.ca_baza1.afisare() + nuexista = .F. + llSucces = update_cote_TVA() + lnProcTvaSt = 1.19 + lnProcTvaRed = 1.09 + + If llSucces > 0 + Select cote_tva + Locate For Upper(Alltrim(descriere)) = 'STANDARD' + If Found() + lnProcTvaSt = proc_tva + Endif + Locate For Upper(Alltrim(descriere)) = 'REDUS' + If Found() + lnProcTvaRed = proc_tva + Endif + + Clear Class "frm_regvanz" + oreg = Createobject("frm_regvanz") + oreg.lb_titlu_alb_b121.Caption = "REGISTRUL VANZARI" + oreg.nProcTvaSt = lnProcTvaSt + oreg.nProcTvaRed = lnProcTvaRed + oreg.Show(1) + Endif + Endcase + + If Used('ACTCV') + Use In actcv + Endif + Release oreg, povanz +Endproc && viz_regvanz +******************************************* SFARSIT: viz_regvanz ******************************************* +******************************************* INCEPUT: viz_regcump ******************************************* +Procedure viz_regcump + + Local oreg As "frm_regcump2010" + Local lcFiltruOriginal, lcGroup, lcSqlCount, llAfisare, llAfisareTot, llModParam, llSucces + Local lnInregistrariAfisare, lnProcTvaRed, lnProcTvaSt + *:Global pnRecCnt + If Used('ACTCV') + Use In actcv + Endif + + + Private lcschema, lcselect, lcfiltru, lcorder, pocump + Store "" To pocump + + * Calculez numarul de inregistrari. Daca numarul este mai mic de min(300, gnInregistrariAfisare) afisez toate inregistrarile in loc sa intru cu 1=2 + lnInregistrariAfisare = Iif(Type('gnInregistrariAfisare') = 'N', m.gnInregistrariAfisare, 300) + + lcSqlCount = [SELECT COUNT(*) as nr FROM jc2007 where an=?gnAn and luna=?gnLuna] + pnRecCnt = 0 + llSucces = goExecutor.oSelecteaza2Value(m.lcSqlCount, @pnRecCnt) + llAfisareTot = (Nvl(m.pnRecCnt, 0) <= m.lnInregistrariAfisare) + + Do Case + Case m.gnAn * 12 + m.gnLuna >= 2025 * 12 + 8 + *** 01/08/2025 TVA 21% si 11% + + Do inainte With "CUMP2007" In oinainte_de.prg + + TEXT TO lcSchema NOSHOW +id_fact n(20), id_fdoc n(20), id_jc n(20), id_part n(20), id_sucursala n(5),an n(4), luna n(2), dataact d, dataireg d,cod n(20), cod_fiscal c(30), cont c(4), denumire c(70), fdoc c(30), nract n(20), serie_act c(10), sucursala c(100),ales n(1), diferenta_incasare_tva n(20,4), incasat_exigibil n(20,4), incasat_tot n(20,4), solddif n(20,4), soldf n(20,4), totctva n(20,4), totftvatax n(20,4), tottvatax n(20,4), tva_incasare n(1),ceb n(20,4), cebb n(20,4), cebt n(20,4), cen n(20,4), cesc n(20,4), cesb n(20,4), cest n(20,4), cet n(20,4),fo09b n(20,4), fo09t n(20,4), fo11b n(20,4), fo11t n(20,4), fo19b n(20,4), fo19t n(20,4), fo20b n(20,4), fo20t n(20,4), fo21b n(20,4), fo21t n(20,4), fo24b n(20,4), fo24t n(20,4), foscn n(20,4),ro05b n(20,4), ro05nb n(20,4), ro05nt n(20,4), ro05t n(20,4), ro09b n(20,4), ro09nb n(20,4), ro09nt n(20,4), ro09t n(20,4), ro11b n(20,4), ro11nb n(20,4), ro11nt n(20,4), ro11t n(20,4), ro19b n(20,4), ro19nb n(20,4), ro19nt n(20,4), ro19t n(20,4), ro20b n(20,4), ro20nb n(20,4), ro20nt n(20,4), ro20t n(20,4), ro21b n(20,4), ro21nb n(20,4), ro21nt n(20,4), ro21t n(20,4), ro24b n(20,4), ro24nb n(20,4), ro24nt n(20,4), ro24t n(20,4), roscn n(20,4), rotn n(20,4), rotn50 n(20,4), rotn100 n(20,4), rortd5 n(20,4), rortd9 n(20,4), rortd11 n(20,4), rortd19 n(20,4), rortd20 n(20,4), rortd21 n(20,4), rortd24 n(20,4),ti09b n(20,4), ti09t n(20,4), ti11b n(20,4), ti11t n(20,4), ti19b n(20,4), ti19t n(20,4), ti20b n(20,4), ti20t n(20,4), ti21b n(20,4), ti21t n(20,4), ti24b n(20,4), ti24t n(20,4),xx11tib n(20,4), xx11tit n(20,4), xx19tib n(20,4), xx19tit n(20,4), xx21tib n(20,4), xx21tit n(20,4), xx9tib n(20,4), xx9tit n(20,4) + ENDTEXT + + TEXT TO lcSelect NOSHOW +select id_fact, id_fdoc, id_jc, id_part, id_sucursala, +an, luna, dataact, dataireg, +cod, cod_fiscal, '' as cont, denumire, fel_document, nract, serie_act, sucursala, +0 as ales, cast(0 as NUMBER(20,4)) as diferenta_incasare_tva, 0.0000 as incasat_exigibil, 0.0000 as incasat_tot, 0 as solddif, 0 as soldf, totctva, totftvatax, tottvatax, tva_incasare, +ceb, cebb, cebt, cen, cesc, cesb, cest, cet, +fo09b, fo09t, fo11b, fo11t, fo19b, fo19t, fo20b, fo20t, fo21b, fo21t, fo24b, fo24t, foscn, +ro05b, ro5nb, ro5nt, ro05t, ro09b, ro9nb, ro9nt, ro09t, ro11b, ro11nb, ro11nt, ro11t, ro19b, ro19nb, ro19nt, ro19t, +ro20b, ro20nb, ro20nt, ro20t, ro21b, ro21nb, ro21nt, ro21t, ro24b, ro24nb, ro24nt, ro24t, roscn, rotn, rotn50, rotn100, +rortd5, rortd9, rortd11, rortd19, rortd20, rortd21, rortd24, +ti09b, ti09t, ti11b, ti11t, ti19b, ti19t, ti20b, ti20t, ti21b, ti21t, ti24b, ti24t, +xx11tib, xx11tit, xx19tib, xx19tit, xx21tib, xx21tit, xx9tib, xx9tit +from vjc2025 + ENDTEXT + + lcfiltru = [1=2] + lcorder = [dataact,nract] + llAfisare = .F. + lcGroup = "" + llModParam = .T. + lcFiltruOriginal = "" + gencursor('pocump', 'actcv', lcselect, lcfiltru, lcschema, lcorder, llAfisare, m.lcGroup, m.llModParam, m.lcFiltruOriginal) + pocump.ca_baza1.afisare() + + Select actcv + oreg = Createobject("frm_regcump2025", m.llAfisareTot) + oreg.lb_titlu_alb_b121.Caption = "REGISTRUL CUMPARARI" + oreg.Show(1) + + Case m.gnAn * 12 + m.gnLuna >= 2010 * 12 + 7 + *** 01/07/2010 + + Do inainte With "CUMP2007" In oinainte_de.prg + lcschema = [id_fact n(20), id_fdoc n(20), id_jc n(20), id_part n(20), id_sucursala n(5),] + ; + [an n(4), dataact d, dataireg d,] + ; + [cod n(20), cod_fiscal c(30), cont c(4), denumire c(70), fdoc c(30), luna n(2), nract n(20), serie_act c(10), sucursala c(100),] + ; + [ales n(1), diferenta_incasare_tva n(20,4), incasat_exigibil n(20,4), incasat_tot n(20,4), solddif n(20,4), soldf n(20,4), totctva n(20,4), totftvatax n(20,4), tottvatax n(20,4), tva_incasare n(1),] + ; + [ceb n(20,4), cebb n(20,4), cebt n(20,4), cen n(20,4), cesc n(20,4), cesb n(20,4), cest n(20,4), cet n(20,4),] + ; + [fo09b n(20,4), fo09t n(20,4), fo19b n(20,4), fo19t n(20,4), fo20b n(20,4), fo20t n(20,4), fo24b n(20,4), fo24t n(20,4), foscn n(20,4),] + ; + [ro05b n(20,4), ro05nb n(20,4), ro05nt n(20,4), ro05t n(20,4), ro09b n(20,4), ro09nb n(20,4), ro09nt n(20,4), ro09t n(20,4), ro19b n(20,4), ro19nb n(20,4), ro19nt n(20,4), ro19t n(20,4), ] + ; + [ro20b n(20,4), ro20nb n(20,4), ro20nt n(20,4), ro20t n(20,4), ro24b n(20,4), ro24nb n(20,4), ro24nt n(20,4), ro24t n(20,4), roscn n(20,4), rotn n(20,4), rotn50 n(20,4), rotn100 n(20,4),] + ; + [ti09b n(20,4), ti09t n(20,4), ti19b n(20,4), ti19t n(20,4), ti20b n(20,4), ti20t n(20,4), ti24b n(20,4), ti24t n(20,4),] + ; + [xx19tib n(20,4), xx19tit n(20,4), xx9tib n(20,4), xx9tit n(20,4)] + + lcselect = [select id_fact, id_fdoc, id_jc, id_part, id_sucursala,] + ; + [an, dataact, dataireg,] + ; + [cod, cod_fiscal, '' as cont, denumire, fel_document, luna, nract, serie_act, sucursala,] + ; + [0 as ales, cast(0 as NUMBER(20,4)) as diferenta_incasare_tva, 0.0000 as incasat_exigibil, 0.0000 as incasat_tot, 0 as solddif, 0 as soldf, totctva, totftvatax, tottvatax, tva_incasare,] + ; + [ceb, cebb, cebt, cen, cesc, cesb, cest, cet,] + ; + [fo09b, fo09t, fo19b, fo19t, fo20b, fo20t, fo24b, fo24t, foscn,] + ; + [ro05b, ro5nb, ro5nt, ro05t, ro09b, ro9nb, ro9nt, ro09t, ro19b, ro19nb, ro19nt, ro19t, ro20b, ro20nb, ro20nt, ro20t, ro24b, ro24nb, ro24nt, ro24t, roscn, rotn, rotn50, rotn100,] + ; + [ti09b, ti09t, ti19b, ti19t, ti20b, ti20t, ti24b, ti24t,] + ; + [xx19tib, xx19tit, xx9tib, xx9tit ] + ; + [from ] + Iif(m.gnAn < 2013, [vjc2010], [vjc2013]) + + lcfiltru = [1=2] + lcorder = [dataact,nract] + llAfisare = .F. + lcGroup = "" + llModParam = .T. + lcFiltruOriginal = "" + gencursor('pocump', 'actcv', lcselect, lcfiltru, lcschema, lcorder, llAfisare, m.lcGroup, m.llModParam, m.lcFiltruOriginal) + pocump.ca_baza1.afisare() + + Select actcv + oreg = Createobject("frm_regcump2010", m.llAfisareTot) + oreg.lb_titlu_alb_b121.Caption = "REGISTRUL CUMPARARI" + oreg.Show(1) + + Case gnAn >= 2007 And m.gnAn * 12 + m.gnLuna < 2010 * 12 + 7 + *** 01/01/2007 + Do inainte With "CUMP2007" In oinainte_de.prg + lcschema = ['id_jc n(4),an n(4),luna n(2),totctva n(20,4),id_part n(20),id_fdoc n(20),dataact d,'+] + ; + ['nract N(20),serie_act c(10),ro19bcb n(20,4),ro19bct n(20,4),ro19bvb n(20,4),ro19bvt n(20,4),ro19bfb n(20,4),'+] + ; + ['ro19bft n(20,4),ro09bcb n(20,4),ro09bct n(20,4),ro09bvb n(20,4),ro09bvt n(20,4),ro09bfb n(20,4),'+] + ; + ['ro05b n(20,4), ro05t n(20,4),'+] + ; + ['ro09bft n(20,4),roscn n(20,4),fo19bcb n(20,4),fo19bct n(20,4),fo19bvb n(20,4),fo19bvt n(20,4),'+] + ; + ['fo19bfb n(20,4),fo19bft n(20,4),fo09bcb n(20,4),fo09bct n(20,4),fo09bvb n(20,4),fo09bvt n(20,4),'+] + ; + ['fo09bfb n(20,4),fo09bft n(20,4),foscn n(20,4),cebcb n(20,4),cebct n(20,4),cebvb n(20,4),cebvt n(20,4),'+] + ; + ['cebvsc n(20,4),cebvn n(20,4),cebfb n(20,4),cebft n(20,4),cebfsc n(20,4),cebfn n(20,4),ti19bcb n(20,4),'+] + ; + ['ti19bct n(20,4),ti19bvb n(20,4),ti19bvt n(20,4),ti19bfb n(20,4),ti19bft n(20,4),ti09bvb n(20,4),'+] + ; + ['ti09bvt n(20,4),ti09bfb n(20,4),ti09bft n(20,4),cod n(20),fel_document c(30),denumire c(70),cod_fiscal c(30),sucursala c(100)'] + lcselect = ['select id_jc, an, luna, totctva, id_part, id_fdoc, dataact, nract, serie_act, ro19bcb, ro19bct, ro19bvb,'+] + ; + ['ro19bvt, ro19bfb, ro19bft, ro09bcb, ro09bct, ro09bvb, ro09bvt, ro09bfb,ro05b, ro05t,'+] + ; + ['ro09bft, roscn, fo19bcb, fo19bct,'+] + ; + ['fo19bvb, fo19bvt, fo19bfb, fo19bft, fo09bcb, fo09bct, fo09bvb, fo09bvt, fo09bfb, fo09bft, foscn, cebcb,'+] + ; + ['cebct, cebvb, cebvt, cebvsc, cebvn, cebfb, cebft, cebfsc, cebfn, ti19bcb, ti19bct, ti19bvb, ti19bvt,'+] + ; + ['ti19bfb, ti19bft, ti09bvb, ti09bvt, ti09bfb, ti09bft, cod, fel_document, denumire, cod_fiscal, sucursala '+] + ; + ['from ] + gcs + [.vjc2007 where 1=2'] + + lcfiltru = [1=2] + lcorder = [dataact,nract] + llAfisare = .F. + gencursor('pocump', 'actcv', lcselect, lcfiltru, lcschema, lcorder, llAfisare) + pocump.ca_baza1.afisare() + + Clear Class "frm_regcump2007" + oreg = Createobject("frm_regcump2007") + oreg.lb_titlu_alb_b121.Caption = "REGISTRUL CUMPARARI" + oreg.Show(1) + Otherwise + *** INAINTE DE 2007 + Do inainte With "CUMP" In oinainte_de.prg + lcschema = ['id_cump n(20), an n(5), luna n(2), cod n(20), dataireg d, cod_fiscal c(13),'+] + ; + ['totctva n(19,gnPA), neimpozab n(19,gnPA), totftvai n(19,gnPA), tvai n(19,gnPA), totftvam n(19,gnPA),'+] + ; + ['tvam n(19,gnPA), id_part n(20), nume c(50), id_fdoc n(5), fdoc c(30), dataact d, nract N(20),'+] + ; + ['scd c(4),scutit n(1),ext n(1),scc c(4)'] + lcselect = ['select * from ] + gcs + [.vcump where 1=2'] + lcfiltru = [1=2] + lcorder = [dataact,nract] + llAfisare = .F. + gencursor('pocump', 'actcv', lcselect, lcfiltru, lcschema, lcorder, llAfisare) + pocump.ca_baza1.afisare() + + llSucces = update_cote_TVA() + lnProcTvaSt = 1.19 + lnProcTvaRed = 1.09 + + If llSucces > 0 + Select cote_tva + Locate For Upper(Alltrim(descriere)) = 'STANDARD' + If Found() + lnProcTvaSt = proc_tva + Endif + Locate For Upper(Alltrim(descriere)) = 'REDUS' + If Found() + lnProcTvaRed = proc_tva + Endif + Endif + + Clear Class "frm_regcump" + oreg = Createobject("frm_regcump") + oreg.lb_titlu_alb_b121.Caption = "REGISTRUL CUMPARARI" + oreg.nProcTvaSt = lnProcTvaSt + oreg.nProcTvaRed = lnProcTvaRed + oreg.Show(1) + Endcase + If Used('ACTCV') + Use In actcv + Endif + Release oreg, pocump +Endproc && viz_regcump +******************************************* SFARSIT: viz_regcump ******************************************* + \ No newline at end of file diff --git a/Programe/oproceduri_import.prg b/Programe/oproceduri_import.prg new file mode 100644 index 0000000..a8284a6 --- /dev/null +++ b/Programe/oproceduri_import.prg @@ -0,0 +1,4805 @@ +*!* 16.11.2021 +*!* am tratat cazurile suma = "0.00", in loc de "0" + +*!* 13.12.2021 +*!* ExtrasBanca_UNICREDIT_CSV. Am corectat importul sumelor peste 1 milion +*!* CreeazaNote. Am corectat importul sumelor in valuta + +*!* 11.07.2023 +*!* CreeazaNote. Am adaugat note depunere/retragere numerar corespondent 5311 = 581 + +*!* 08.01.2024 +*!* csvBT - tratare CSV exportat din BT24. Are sume negative pe Debit si posibil "~~" pe linia cu tranzactia + +*!* 12.06.2024 +*!* csvBT - corectie preluare nume si iban tert + +*!* 26.08.2024 +*!* csvRaiffeisen - corectie conversie suma cu zecimale + +*!* loImport = CREATEOBJECT("ImportNote", "ExtrasBanca", "RZBR", "MT940", "TXT", "cContBanca=>5121??cContIban=>RO33RONCRT123143213243232") +*!* loImport.Import() + +*!* CreeazaNote - caut partenerul dupa toate variantele de denumire (nume prenume) +*!* CreeazaNote - caut un document pereche chiar daca nu am numar de document + +*!* 06.01.2025 +*!* actualizat csvIngbusiness + +*!* 20.01.2025 +*!* actualizat csvStripe + +*!* 21.01.2025 +*!* corectie data tranzactii + +*!* 06.05.2025 +*!* IMPORT xlsx RAIFFEISEN + +*!* 12.05.2025 +*!* IMPORT csv FANCOURIER + +*!* 22.09.2025 +*!* IMPORT GARANTI - corectie eroare cod fiscal, tratare constituire/lichidare/dobanda depozit, + +*!* 05.01.2026 +*!* IMPORT csvbt din extrase de cont csv, nu numai din lista tranzactii csv + +*!* 09.06.2026 +*!* Import csvBT - elimin CRLF din interiorul descrierii care rupe linia de tranzactie pe 2 linii + +************************************* +* Clasa ImportNote este fabrica de clase tip Export +************************************* +Define Class ImportNote As Custom + oImport = Null + + cFile = '' && fisierul de import + + * Perioada de import + dData1 = {} + dData2 = {} + + dData = {} && data de import, indiferent de datele din fisier + + cFileExt = "TXT" + cClass = '' && clasa de import: ex: "ExtrasBanca" + cClassType = '' && tipul de clasa de import: ex: "RZBR" + cFileType = '' && tipul de fisier (optional) ex: MT940 + cFileExt = '' && extensia fisierului ex: TXT/XML/CSV/XLS + cHashParam = '' + + cErrorMessage = '' + lError = .F. + + Procedure Init + Lparameters tcFile, tdData1, tdData2, tcClass, tcClassType, tcFileType, tcFileExt, tcHashParam, tdData + * tcFile = fisierul de importat (optional) + * tdData1, tdData2 = perioada de import + * tcClass = Clasa de import (ExtrasBanca) + * tcClassType = tipul de clasa de import (ex: Identificatorul bancii = RZBR) + * tcFileType (optional) = tipul de fisier (MT940, in cazul in care pentru aceeasi extensie ex: "txt" sunt mai multe tipuri de fisier) + * tcFileExt = extensia fisierului extras (txt, xml, csv, xls) + * tlCreeazaParteneri = se creeaza parteneri in baza de date daca nu exista + * tlFactura = se cauta facturi pereche in baza de date + * tlComanda = se cauta comenzi in baza de date + * tcHashParam = parametri optionali care se transmit la clasa de import sub forma [cselect=>select id, name from test??cwhere=>id=pnId??corder=>name] + * Se parseaza cu loHash = GetHash(tcHashParam) oproceduri_comune.prg + * tdData = nu mai tin cont de perioada de import, import tot fisierul si pun tdDataExtras. + * Se foloseste pentru fisierele de la curieri (un fisier cu transferurile dintr-o zi, chiar daca datele persoanelor individuale sunt diferite) + * Tin cont de tdData doar pentru importurile de la curieri + + This.cFile = Iif(!Empty(m.tcFile), Alltrim(m.tcFile), "") + This.dData1 = Iif(!Empty(m.tdData1), m.tdData1, Date(m.gnAn, m.gnLuna, 1)) + This.dData2 = Iif(!Empty(m.tdData2), m.tdData2, Gomonth(Date(m.gnAn, m.gnLuna, 1), 1) - 1) + This.cClass = Iif(!Empty(m.tcClass), Upper(Alltrim(m.tcClass)), "ExtrasBanca") + This.cClassType = Iif(!Empty(m.tcClassType), Upper(Alltrim(m.tcClassType)), "") + This.cFileExt = Iif(!Empty(m.tcFileExt), Upper(Alltrim(m.tcFileExt)), "TXT") + This.cFileType = Iif(!Empty(m.tcFileType), Upper(Alltrim(m.tcFileType)), "") + This.cHashParam = Iif(!Empty(m.tcHashParam), m.tcHashParam, "") + This.dData = tdData + + Endproc && Init + + Procedure Destroy + Use In (Select('C_IMPORT_TEMP')) + Use In (Select('cActTemp')) + Endproc && Destroy + + Procedure Import + Lparameters tlCreeazaNote + + Local lcFile, lcFileExt, llSucces, llCreeazaNote + Local lcClasa, lcClass, lcClassType, lcFileType, lcHashParam, lnLinii + Local ldData1, ldData2, ldData + Local llCreeazaParteneri + + lcClass = This.cClass && ExtrasBanca + lcClassType = This.cClassType && RZBR (RAIFFEISEN) + lcFileExt = This.cFileExt && TXT/XML/CSV/XLS + lcFileType = This.cFileType && MT940 (optional) + lcFile = This.cFile && fisierul de import (optional) + lcHashParam = This.cHashParam + llCreeazaNote = Iif(Pcount() > 0, m.tlCreeazaNote, .T.) + + ldData1 = This.dData1 + ldData2 = This.dData2 + ldData = this.dData + + llSucces = .T. + lnLinii = 0 + + * Aleg fisierul de import + If Empty(m.lcFile) + lcFileExt = Iif(!Empty(This.cFileExt), Upper(Alltrim(This.cFileExt)), 'TXT') + lcFile = Getfile(m.lcFileExt, "Fisier", "Selecteaza", 0, "Alege fisierul din care se realizeaza importul") + If !Empty(m.lcFile) + This.cFile = m.lcFile + Else + This.cErrorMessage = This.cErrorMessage + Iif(!Empty(This.cErrorMessage), Chr(13), '') + 'Fisierul este gol!' + This.lError = .T. + llSucces = .F. + Endif + Endif + + * Creez cursoarele pentru import + Create Cursor C_IMPORT_TEMP (nr N(14), Data D, suma N(15, 2), suma_val N(15, 2), Curs N (15, 4), nume_val C(20), id_valuta I, explicatie C (100), iban C (24), denumire C (60), cod_fiscal C (13), tip C (2), tip_2 C (3), documente C(250), comenzi C(250)) + + Select nr, Data, suma, suma_val, Curs, nume_val, id_valuta, explicatie, iban, denumire, cod_fiscal, tip, tip_2, documente, comenzi, ; + Space(4) As scd, Space(4) As scc, Space(4) As ascd, Space(4) As ascc, ; + Cast(Null As N(10)) As id_partd, Cast(Null As N(10)) As id_partc, Space(100) As partd, Space(100) As partc, ; + Cast(Null As N(10)) As id_part, SPACE(100) as partener, ; + Cast(0 As I) As id_factd, Cast(0 As I) As id_factc, Cast(0 As I) As pereched, Cast(0 As I) As perechec, ; + Cast(Null As I) As id_fdoc, Space(50) As fdoc ; + From C_IMPORT_TEMP ; + Into Cursor cActTemp Readwrite + + + * Instantiaza clasa de import corespunzatoare bazat pe Class, classType, FileExt, FileType + If m.llSucces + lcClasa = '' + Try + lcClasa = m.lcClass + ; + Iif(!Empty(m.lcClassType), '_' + m.lcClassType, '') + ; + Iif(!Empty(m.lcFileExt), '_' + m.lcFileExt, '') + ; + Iif(!Empty(m.lcFileType), '_' + m.lcFileType, '') && ExtrasBanca_RZBR_TXT_MT940, ExtrasBanca_RZBR_TXT, ExtrasBanca_RZBR_XML + + This.oImport = Createobject(m.lcClasa, m.lcHashParam) + Catch + Try + lcClasa = "ExtrasBanca_General" + This.oImport = Createobject(m.lcClasa, m.lcHashParam) + Catch To loEx + This.lError = .T. + llSucces = .F. + This.cErrorMessage = This.cErrorMessage + Iif(!Empty(This.cErrorMessage), Chr(13), '') + loEx.Message + Endtry + Endtry + If Type('This.oImport') <> 'O' + This.lError = .T. + llSucces = .F. + This.cErrorMessage = This.cErrorMessage + Iif(!Empty(This.cErrorMessage), Chr(13), '') + 'Nu este definit importul pentru ' + m.lcClasa + Else + This.oImport.cFile = m.lcFile + This.oImport.dData1 = m.ldData1 + This.oImport.dData2 = m.ldData2 + This.oImport.dData = m.ldData + *!* This.oImport.lCreeazaParteneri = m.llCreeazaParteneri + Endif + Endif && llSucces + + If m.llSucces And Type('This.oImport') = 'O' + * Parsez fisierul de import si completez C_IMPORT_TEMP + llSucces = This.oImport.Parse() + If !m.llSucces + This.lError = .T. + llSucces = .F. + This.cErrorMessage = This.cErrorMessage + Iif(!Empty(This.cErrorMessage), Chr(13), '') + This.oImport.cErrorMessage + Else + IF EMPTY(NVL(m.ldData, {})) + Delete From C_IMPORT_TEMP Where !Between(Data, m.ldData1, m.ldData2) + ELSE + * import tot fisierul daca este completata ldData pentru deconturile de la curieri + UPDATE C_IMPORT_TEMP SET data = m.ldData + ENDIF + Endif + + If !Inlist(This.oImport.cValuta, 'RON', 'LEI', 'ROL') + This.oImport.cContBanca = '5124' && banca valuta + Endif + + If m.llSucces And m.llCreeazaNote + * Creez note contabile in act_temp, completez parteneri, conturi + llSucces = This.oImport.CreeazaNote() + Endif + Endif && llSucces + + Return m.llSucces + + Endproc +Enddefine && ImportNote + + +************************************* +* Clasa factory pentru import extras banca +* Instantiaza clasa import banca specifica bancii si tipului de fisier ales +* Apeleaza ParseStatement din clasa import specifica +************************************* +Define Class ExtrasBanca As Custom + oExtrasBanca = Null + + cErrorMessage = '' + lError = .F. + + lCreeazaParteneri = .F. && creeaza parteneri daca nu exista (dupa cod fiscal) + lFactura = .F. + lComanda = .F. + + cFile = '' && fisierul de import + + dData1 = {} && perioada de import + dData2 = {} + + dData = {} && data de import, se importa toate inregistrarile, si se pune dData. Pentru deconturile de la curieri + + cIBAN = '' && cont bancar IBAN la care se refere extrasul + cValuta = 'RON' + + cBIC = '' && cod BIC banca / nu se mai foloseste ??? + nNr = 0 && statement number/ numar extras + cContBanca = '5121' && 5121/5124/5125 + cAcontBanca = '' && analitic 5121 + nIdPartenerBanca = 0 && id_part ROA banca + cBanca = '' && denumire banca + + cTipComisioane = 'COM' && 627 + cTipTaxe = 'CHG' && 627 + cTipCec = 'CHK' && 403/413 + cTipDobanzi = 'INT' && 666/766 + cTipTerti = 'TRF' && 401/4111 + cTipBuget = 'BUG' && 448 + cTipTransfer = 'TRS' && 5121 + cTipAlte = 'ALT' && 6588/7588 + cTipDepunere = 'DEP' && 5311 + cTipEfecteComerciale = 'EFT' && 403/413 + cTipComisionDecont = 'CDT' && 473 comisioane retinute de procesatori plati, curieri + + Dimension aLinii[1] + nLinii = 0 + + Procedure Init + Lparameters tcHashParam + + Local lcContBanca, lcContIBAN, lcHashParam, loHash + Local lcAcontBanca, llComanda, llCreeazaParteneri, llFactura + Local lcBanca, lnIdPartenerBanca + + lcHashParam = Iif(!Empty(m.tcHashParam), m.tcHashParam, '') + loHash = GetHash(m.lcHashParam) + lcContBanca = m.loHash.GetValue('cContBanca') + lcAcontBanca = m.loHash.GetValue('cAContBanca') + lcContIBAN = loHash.GetValue('cContIban') + lnIdPartenerBanca = loHash.GetValue('nIdPartBanca') + lcBanca = m.loHash.GetValue('cBanca') + + llCreeazaParteneri = loHash.GetValue('lCreeazaParteneri') && creeaza parteneri daca nu exista codul fiscal in baza de date + llFactura = loHash.GetValue('lFactura') && se cauta facturi pereche in baza de date + llComanda = loHash.GetValue('lComanda') && se cauta comenzi in baza de date + + + This.cContBanca = Iif(!Empty(m.lcContBanca), m.lcContBanca, '5121') + This.cIBAN = Iif(!Empty(m.lcContIBAN), m.lcContIBAN, '') + This.lCreeazaParteneri = m.llCreeazaParteneri + This.lFactura = m.llFactura + This.lComanda = m.llComanda + This.nIdPartenerBanca = m.lnIdPartenerBanca + This.cBanca = m.lcBanca + Return .T. + Endproc && Init + + ********************** + * Se implementeaza in clasa copil + ********************** + Procedure Parse + Endproc && Parse + + ********************** + *** Retrateaza inregistrarile din C_IMPORT_TEMP, le importa in cActTemp si completeaza conturile, partenerii + ********************** + Procedure CreeazaNote + Local lcCodFiscal, lcContBanca, lcContC, lcContD, lcContPartener, lcDenumire, lcDocumente + Local lcFdocExtrasCont, lcFdocOp, lcIBAN, lcPartC, lcPartD, lcPartener, lcPartenerBanca, lcTip + Local lnDocumente, lnI, lnIdFdocExtrasCont, lnIdFdocOp, lnIdPartC, lnIdPartD, lnIdPartener + Local lnIdPartenerBanca, lnNr, lnNrAct, lnSuma, loAct, loCauta, llSucces, lcSelect + Local loDate As "Empty" + Local lcCont, lcNumeValuta, lcValuta, ldDataIreg, llMonedaNationala, lnCurs, lnIdPartCoresp + Local lnIdTipPart, lnIdValuta, lnSpecial, lnTipPersoana, loDate2, loValuta, llDocumentPereche + Local lcRecc, lcRecno, lnRecno + Local lcComanda, lcDenumire2, lcPartenerCasa, lcTip2, lnVariante, llExcludeOriginal + Local lnDenumire, lnDocument, lnIdPartenerCasa, lnVariante, loPartener + + PRIVATE pcContBanca, pnIdPartBanca + + lcSelect = Select() + + llSucces = .T. + lcFdocOp = '' + lcFdocExtrasCont = '' + lnIdFdocOp = 0 + lnIdFdocExtrasCont = 0 + lcNumeValuta = '' + lnIdValuta = 0 + lnCurs = 0 + llMonedaNationala = .T. + + If Type('gnID_FDOC_OP') = 'N' And !Empty(m.gnID_FDOC_OP) + lnIdFdocOp = m.gnID_FDOC_OP + lcFdocOp = GetFdocById(m.gnID_FDOC_OP) + Endif + If Type('gnID_FDOC_EXTRASCONT') = 'N' And !Empty(m.gnID_FDOC_EXTRASCONT) + lnIdFdocExtrasCont = m.gnID_FDOC_EXTRASCONT + lcFdocExtrasCont = GetFdocById(m.gnID_FDOC_EXTRASCONT) + Endif + + * llFactura = (GetOptiuneFirma("RC_MT940_DOCUMENTE_PERECHE") = "1") + + lnNr = This.nNr + + lcValuta = This.cValuta && RON/EUR/USD/GBP + lcContBanca = This.cContBanca && 5121/5124 + lcIBAN = This.cIBAN && contul bancar din extras + lnIdPartenerBanca = This.nIdPartenerBanca + lcPartenerBanca = This.cBanca + lnIdPartenerCasa = 0 + + * Partener Banca lei/valuta + Wait Window 'Cautare partener banca...' Nowait + If EMPTY(m.lnIdPartenerBanca) AND !Empty(m.lcIBAN) + lnIdPartenerBanca = GetIdPartenerByContBanca(m.lcIBAN) + Endif + If Empty(m.lnIdPartenerBanca) + If !Empty(m.lcIBAN) + AMESSAGEBOX('Nu exista nici un partener tip Banca ' + m.lcContBanca + ' cu contul bancar ' + m.lcIBAN + Chr(13) + Chr(10) + ; + 'Alegeti Banca ' + m.lcContBanca + ' pentru inregistrarea extrasului!', 0 + 64, _Screen.Caption) + Endif + loCauta = CautPartenerContabilitate(GetHash([cTitlu=>Banca??cCont=>] + m.lcContBanca)) + lnIdPartenerBanca = NVL(loCauta.id_part, 0) + lcPartenerBanca = Alltrim(m.loCauta.denumire) + + IF !EMPTY(m.lnIdPartenerBanca) AND AMESSAGEBOX('Doriti sa salvati contul bancar: ' + m.lcIBAN + ' pe acest partener?',4+32,_screen.Caption) = 6 + pcContBanca = m.lcIBAN + pnIdPartBanca = m.lnIdPartenerBanca + llSucces = goExecutor.oExecuta('UPDATE NOM_PARTENERI SET CONT_BANCA = ?pcContBanca WHERE ID_PART = ?pnIdPartBanca') + ENDIF + Endif + If Empty(m.lcPartenerBanca) And !Empty(m.lnIdPartenerBanca) + lcPartenerBanca = GetDenumirePartenerById(m.lnIdPartenerBanca) + Endif + + + * Valuta + If !Empty(m.lcValuta) + loValuta = GetValutaByISO(m.lcValuta) + lcNumeValuta = Alltrim(loValuta.nume_val) + lnIdValuta = loValuta.id_valuta + llMonedaNationala = (loValuta.moneda_nationala = 1) + Endif + + * Comasez comisioanele TIP_2 = COM + Select Data, Sum(suma) As comision, Count(suma) As nr_comision From C_IMPORT_TEMP Where tip_2 = this.cTipComisioane Group By Data Into Cursor C_COMISION + Scan + For lnI = 1 To C_COMISION.nr_comision - 1 + Select C_IMPORT_TEMP + Locate For tip_2 = this.cTipComisioane .And. Data = C_COMISION.Data + If Found() + Delete + Endif + Endfor + Select C_IMPORT_TEMP + Locate For tip_2 = this.cTipComisioane .And. Data = C_COMISION.Data + If Found() + Replace suma With C_COMISION.comision + Endif + Endscan + + USE IN (SELECT('C_COMISION')) + + * Comasez comisioanele procesatori plati TIP_2 = CDT + Select Data, Sum(suma) As comision, Count(suma) As nr_comision From C_IMPORT_TEMP Where tip_2 = this.cTipComisionDecont Group By Data Into Cursor C_COMISION + Scan + For lnI = 1 To C_COMISION.nr_comision - 1 + Select C_IMPORT_TEMP + Locate For tip_2 = this.cTipComisionDecont .And. Data = C_COMISION.Data + If Found() + Delete + Endif + Endfor + Select C_IMPORT_TEMP + Locate For tip_2 = this.cTipComisionDecont .And. Data = C_COMISION.Data + If Found() + Replace suma With C_COMISION.comision + Endif + Endscan + + USE IN (SELECT('C_COMISION')) + + Select cActTemp + Append From Dbf('C_IMPORT_TEMP') + + * Caut/creez parteneri + SELECT distinct cod_fiscal, denumire, iban FROM cActTemp INTO CURSOR cParteneriTemp READWRITE + SELECT cParteneriTemp + lcRecc = Transform(Reccount()) + SCAN + lcCodFiscal = Upper(Alltrim(cod_fiscal)) + lcDenumire = Upper(Alltrim(denumire)) + lcIBan = UPPER(ALLTRIM(NVL(iban,''))) + lcRecno = Transform(Recno()) + lnIdPartener = 0 + + Wait Window 'Cautare parteneri ' + Transform(Recno()) + '/' + m.lcRecc Nowait + IF INKEY(0.5) = 27 + IF AMESSAGEBOX('Doriti sa renuntati?',4+32,_screen.Caption) = 6 + llSucces = .F. + EXIT + ENDIF + ENDIF + * Caut partener dupa cod fiscal + If !Empty(m.lcCodFiscal) + Wait Window 'Import inregistrare ' + m.lcRecno + '/' + m.lcRecc + ' - cautare partener cod fiscal' Nowait + loPartener = GetPartenerByCodFiscal(m.lcCodFiscal) + If !Isnull(loPartener) + lnIdPartener = Nvl(loPartener.id_part, 0) + lcPartener = Alltrim(Nvl(loPartener.denumire, "")) + Endif + Endif + * Caut partener dupa denumire + If Empty(m.lnIdPartener) And !Empty(m.lcDenumire) + Wait Window 'Import inregistrare ' + m.lcRecno + '/' + m.lcRecc + ' - cautare partener denumire' Nowait + loPartener = GetPartenerByDenumire(m.lcDenumire) + If !Isnull(loPartener) + lnIdPartener = Nvl(loPartener.id_part, 0) + lcPartener = Alltrim(Nvl(loPartener.denumire, "")) + ENDIF + IF EMPTY(m.lnIdPartener) + * Caut si alte variante de denumiri (nume prenume1 prenume2, prenume1 prenume2 nume) + llExcludeOriginal = .T. + lcVariante = GetNamePermutations(m.lcDenumire, m.llExcludeOriginal) + lnVariante = GETWORDCOUNT(m.lcVariante, ';') + FOR lnDenumire = 1 TO m.lnVariante + lcDenumire2 = GETWORDNUM(m.lcVariante, m.lnDenumire, ';') + + loPartener = GetPartenerByDenumire(m.lcDenumire2) + If !Isnull(loPartener) AND !EMPTY(Nvl(loPartener.id_part, 0)) + lnIdPartener = Nvl(loPartener.id_part, 0) + lcPartener = Alltrim(Nvl(loPartener.denumire, "")) + EXIT + ENDIF + ENDFOR + ENDIF && EMPTY(m.lnIdPartener) + ENDIF + + * Caut partener dupa IBAN + If Empty(m.lnIdPartener) And !Empty(m.lcIBan) + Wait Window 'Import inregistrare ' + m.lcRecno + '/' + m.lcRecc + ' - cautare partener IBAN' Nowait + loPartener = GetPartenerByContBanca(m.lcIBAN) + If !Isnull(loPartener) + lnIdPartener = Nvl(loPartener.id_part, 0) + lcPartener = Alltrim(Nvl(loPartener.denumire, "")) + Endif + ENDIF + + * Creez partenerul daca nu l-am gasit dupa cod fiscal sau dupa denumire si doar daca are cod fiscal + * Altfel poate sa existe, dar cu denumire diferita + If This.lCreeazaParteneri And Empty(m.lnIdPartener) And !Empty(m.lcCodFiscal) + Wait Window 'Import inregistrare ' + m.lcRecno + '/' + m.lcRecc + ' - adaugare partener' Nowait + loDate = Createobject("Empty") + AddProperty(loDate, "cod_fiscal", m.lcCodFiscal) + AddProperty(loDate, "denumire", m.lcDenumire) + AddProperty(loDate, "id_part", m.lnIdPartener) + lnIdTipPart = Iif(m.lcTip = "D", 17, 16) && furnizor/client + AddProperty(loDate, "tip_partener", m.lnIdTipPart) + lnTipPersoana = Iif(Len(m.lcCodFiscal) < 13, 1, 2) && persoana juridica/fizica + AddProperty(loDate, "tip_persoana", m.lnTipPersoana) + loDate2 = nom_parteneri_nou(, , , , , m.loDate) + lnIdPartener = Nvl(loDate2.id_part, 0) + lcPartener = Alltrim(Nvl(loDate2.denumire, '')) + ENDIF + + IF !EMPTY(m.lnIdPartener) + UPDATE cActTemp SET id_part = m.lnIdPartener, partener = m.lcPartener WHERE UPPER(ALLTRIM(cod_fiscal)) = m.lcCodFiscal AND Upper(Alltrim(denumire)) = m.lcDenumire + ENDIF + + ENDSCAN && cParteneriTemp + USE IN (SELECT('cParteneriTemp')) + + * Completez conturi, parteneri + Select cActTemp + lcRecc = Transform(Reccount()) + Scan + lcContD = "" + lcContC = "" + lnIdPartener = NVL(id_part,0) + lnIdPartD = 0 + lnIdPartC = 0 + lcPartD = "" + lcPartC = "" + lcPartener = ALLTRIM(partener) + lcContPartener = "" + lcTip = Alltrim(tip) + lcTip2 = Alltrim(tip_2) + + lcCodFiscal = Upper(Alltrim(cod_fiscal)) + lcDenumire = Upper(Alltrim(denumire)) + lnRecno = RECNO() + lcRecno = Transform(m.lnRecno) + + Wait Window 'Import inregistrare ' + Transform(Recno()) + '/' + m.lcRecc Nowait + IF MOD(m.lnRecno, 100) = 0 + IF INKEY(0.5) = 27 + IF AMESSAGEBOX('Doriti sa renuntati?',4+32,_screen.Caption) = 6 + llSucces = .F. + EXIT + ENDIF + ENDIF + ENDIF + IF .F. && am facut cautarea partenerilor separat + * Caut partener dupa cod fiscal + If !Empty(m.lcCodFiscal) + Wait Window 'Import inregistrare ' + m.lcRecno + '/' + m.lcRecc + ' - cautare partener cod fiscal' Nowait + loPartener = GetPartenerByCodFiscal(m.lcCodFiscal) + If !Isnull(loPartener) + lnIdPartener = Nvl(loPartener.id_part, 0) + lcPartener = Alltrim(Nvl(loPartener.denumire, "")) + Endif + Endif + * Caut partener dupa denumire + If Empty(m.lnIdPartener) And !Empty(m.lcDenumire) + Wait Window 'Import inregistrare ' + m.lcRecno + '/' + m.lcRecc + ' - cautare partener denumire' Nowait + loPartener = GetPartenerByDenumire(m.lcDenumire) + If !Isnull(loPartener) + lnIdPartener = Nvl(loPartener.id_part, 0) + lcPartener = Alltrim(Nvl(loPartener.denumire, "")) + Endif + Endif + + * Creez partenerul daca nu l-am gasit dupa cod fiscal sau dupa denumire + If This.lCreeazaParteneri And Empty(m.lnIdPartener) And !(Empty(m.lcCodFiscal) And Empty(m.lcDenumire)) + Wait Window 'Import inregistrare ' + m.lcRecno + '/' + m.lcRecc + ' - adaugare partener' Nowait + loDate = Createobject("Empty") + AddProperty(loDate, "cod_fiscal", m.lcCodFiscal) + AddProperty(loDate, "denumire", m.lcDenumire) + AddProperty(loDate, "id_part", m.lnIdPartener) + lnIdTipPart = Iif(m.lcTip = "D", 17, 16) && furnizor/client + AddProperty(loDate, "tip_partener", m.lnIdTipPart) + lnTipPersoana = Iif(Len(m.lcCodFiscal) < 13, 1, 2) && persoana juridica/fizica + AddProperty(loDate, "tip_persoana", m.lnTipPersoana) + loDate2 = nom_parteneri_nou(, , , , , m.loDate) + lnIdPartener = Nvl(loDate2.id_part, 0) + lcPartener = Alltrim(Nvl(loDate2.denumire, '')) + ENDIF + ENDIF && .F. + + + *!* If !Empty(m.lnIdPartener) + *!* WAIT WINDOW 'Import inregistrare ' + TRANSFORM(RECNO()) + '/' + m.lcRecc + ' - cautare denumire partener' NOWAIT + *!* lcPartener = GetDenumirePartenerById(m.lnIdPartener) + *!* Endif + + Wait Window 'Import inregistrare ' + m.lcRecno + '/' + m.lcRecc + ' - completare conturi' Nowait + If m.lcTip = "D" + lcContC = m.lcContBanca + lnIdPartC = m.lnIdPartenerBanca + lcPartC = m.lcPartenerBanca + + lnIdPartD = m.lnIdPartener + lcPartD = m.lcPartener + + Do Case + Case m.lcTip2 = This.cTipComisioane && "COM" && comision + lcContD = "627" + Case m.lcTip2 = This.cTipTaxe && "CHG" && comisioane, taxe + lcContD = "627" + Case m.lcTip2 = This.cTipCec && "CHK" && cec-uri, efecte de primit/platit + lcContD = "403" + Case m.lcTip2 = This.cTipDobanzi && "INT" && venituri/cheltuieli cu dobanzi + lcContD = "666" + Case m.lcTip2 = This.cTipAlte && "ALT" && alte cheltuieli/venituri exploatare + lcContD = "6588" + Case m.lcTip2 = This.cTipTerti && "TRF" && terti (clienti/furnizori) + lcContD = "401" + Case m.lcTip2 = This.cTipBuget && "BUG" && datorii la buget + lcContD = "4481" + Case m.lcTip2 = This.cTipTransfer && "TRS" transfer intre conturi + lcContD = "581" + Case m.lcTip2 = This.cTipDepunere && "DEP" depunere/retragere numerar + lcContD = "581" + Case m.lcTip2 = This.cTipEfecteComerciale && "EFT" efecte comerciale + lcContD = "403" + Case m.lcTip2 = This.cTipComisionDecont && "CDT" comision procesatori plati + lcContD = "473" + Otherwise + lcContD = "581" + Endcase + lcContPartener = m.lcContD + Else + lcContD = m.lcContBanca + lnIdPartD = m.lnIdPartenerBanca + lcPartD = m.lcPartenerBanca + + lnIdPartC = m.lnIdPartener + lcPartC = m.lcPartener + + Do Case + Case m.lcTip2 = This.cTipDobanzi && "INT" && venituri/cheltuieli cu dobanzi + lcContC = "766" + Case m.lcTip2 = This.cTipAlte && "ALT" && alte cheltuieli/venituri exploatare + lcContC = "7588" + Case m.lcTip2 = This.cTipCec && "CHK" && cec-uri, efecte de primit/platit + lcContC = "413" + Case m.lcTip2 = This.cTipTerti && "TRF" && terti (clienti/furnizori) + lcContC = "4111" + Case m.lcTip2 = This.cTipBuget && "BUG" && creante de la buget + lcContC = "4482" + Case m.lcTip2 = This.cTipTransfer && transfer intre conturi + lcContC = "581" + Case m.lcTip2 = This.cTipDepunere && depunere/retragere numerar + lcContC = "581" + Case m.lcTip2 = This.cTipEfecteComerciale && "EFE" efecte comerciale + lcContC = "413" + Otherwise + lcContC = "581" + Endcase + lcContPartener = m.lcContC + Endif + + Select cActTemp + Replace scd With m.lcContD, scc With m.lcContC, id_partd With m.lnIdPartD, id_partc With m.lnIdPartC, partd With m.lcPartD, partc With m.lcPartC + Replace id_valuta With m.lnIdValuta, nume_val With m.lcNumeValuta + If !m.llMonedaNationala + IF curs = 0 + REPLACE curs WITH 1 + ENDIF + Replace suma_val With suma + Replace suma With ROUND(suma_val * curs, m.gnPC) + + Endif + + * TODO? + * Intorc cursorul cu facturi al clientului si contului respectiv + * Repet pana la epuizarea sumei de plata/incasare sau pana cand nu mai este sold de imperecheat + * Caut documentele gasite in cursorul cu facturi si imprechez suma pe facturile din cursor + * Daca nu mai am documente, dar suma de plata nu este epuizata, imperechez facturile in ordine cronologica + * Adaug facturile imperecheate + + * Acum asociez doar UN SINGUR DOCUMENT, daca este completat in detaliile operatiei + * Incerc sa aflu documentul pereche dupa cont, partener, suma, numar document doar daca am un singur document!!! daca sunt mai multe se complica cazurile + If This.lFactura && daca este configurata optiunea sa se caute documentele pereche + lcDocumente = Alltrim(NVL(cActTemp.documente,'')) + + * Fortez cautarea chiar daca nu are documente + * Vreau sa gasesc + IF EMPTY(m.lcDocumente) + lcDocumente = '0' + ENDIF + lnSuma = cActTemp.suma + lnDocumente = Getwordcount(m.lcDocumente, ",") + If !Empty(m.lnIdPartener) And m.lnDocumente > 0 + FOR lnDocument = 1 TO m.lnDocumente + lnNrAct = Int(Val(Getwordnum(m.lcDocumente, m.lnDocument, ","))) + Wait Window 'Import inregistrare ' + m.lcRecno + '/' + m.lcRecc + ' - cautare factura: ' + Transform(m.lnNrAct) Nowait + loAct = GetDocumentByContPartenerAct(m.lcContPartener, m.lnIdPartener, m.lnNrAct, .F.) + * daca am gasit un document si suma este mai mica decat soldul facturii (daca erau mai multe documente puteau fi si sume diferite) + If !Empty(m.loAct.id_fact) + Select cActTemp + If m.lcTip = "D" And m.lnSuma <= - m.loAct.solddeb + Replace id_factd With m.loAct.id_fact, pereched With m.loAct.nract, scd With m.loAct.Cont, ascd With m.loAct.acont + Else + If m.lcTip = "C" And m.lnSuma <= m.loAct.solddeb + Replace id_factc With m.loAct.id_fact, perechec With m.loAct.nract, scc With m.loAct.Cont, ascc With m.loAct.acont + Endif + ENDIF + * Daca am gasit un document, ies din bucla + EXIT + ENDIF && !Empty(m.loAct.id_fact) + ENDFOR && lnDocument + ENDIF && !Empty(m.lnIdPartener) And m.lnDocumente > 0 + ENDIF && This.lFactura + + + * Acum asociez doar UN SINGUR DOCUMENT, daca este completat in detaliile operatiei + * Incerc sa aflu documentul pereche dupa cont, partener, suma, numar document doar daca am un singur document!!! daca sunt mai multe se complica cazurile + If This.lComanda && daca este configurata optiunea sa se caute documentele pereche dupa comanda + lcDocumente = Alltrim(cActTemp.comenzi) + lnSuma = cActTemp.suma + lnDocumente = Getwordcount(m.lcDocumente, ",") + If !Empty(m.lnIdPartener) And m.lnDocumente > 0 + FOR lnDocument = 1 TO m.lnDocumente + lcComanda = Getwordnum(m.lcDocumente, m.lnDocument, ",") + Wait Window 'Import inregistrare ' + m.lcRecno + '/' + m.lcRecc + ' - cautare factura pentru comanda: ' + Transform(m.lcComanda) Nowait + loAct = GetDocumentByContPartenerAct(m.lcContPartener, m.lnIdPartener, m.lcComanda, .T.) + * daca am gasit un document si suma este mai mica decat soldul facturii (daca erau mai multe documente puteau fi si sume diferite) + If !Empty(m.loAct.id_fact) + Select cActTemp + If m.lcTip = "D" And m.lnSuma <= - m.loAct.solddeb + Replace id_factd With m.loAct.id_fact, pereched With m.loAct.nract, scd With m.loAct.Cont, ascd With m.loAct.acont + Else + If m.lcTip = "C" And m.lnSuma <= m.loAct.solddeb + Replace id_factc With m.loAct.id_fact, perechec With m.loAct.nract, scc With m.loAct.Cont, ascc With m.loAct.acont + Endif + ENDIF + * Daca am gasit un document, ies din bucla + EXIT + ENDIF && !Empty(m.loAct.id_fact) + ENDFOR && lnDocument + ENDIF && !Empty(m.lnIdPartener) And m.lnDocumente > 0 + ENDIF && This.lComanda + + ENDSCAN && cActTemp + + * Completez acum numar document ca sa pot adauga note de retragere/depunere numerar cu acelasi numar document ca si transferul din banca + UPDATE cActTemp SET nr = INT(VAL(DTOS(data) + ALLTRIM(STR(RECNO())))) WHERE EMPTY(NVL(nr,0)) + + * Adaug linii retragere/depunere numerar 5311 = 581 / 581 = 5311 corespunzatoare 581 = 5121 / 5121 = 581 + IF m.llSucces + SELECT *, -1*RECNO() as nr2 FROM cActTemp WHERE Alltrim(tip_2) = This.cTipDepunere AND (ALLTRIM(scd) = '581' OR ALLTRIM(scc) = '581') INTO CURSOR cNumerarTemp READWRITE + IF _tally > 0 + loCauta = CautPartenerContabilitate(GetHash([cTitlu=>Alegeti Casa pentru retragere/depunere numerar??cCont=>5311])) + lnIdPartenerCasa = NVL(loCauta.id_part, 0) + lcPartenerCasa = Alltrim(loCauta.denumire) + + If Empty(m.lcPartenerCasa) And !Empty(m.lnIdPartenerCasa) + lcPartenerCasa = GetDenumirePartenerById(m.lnIdPartenerCasa) + ENDIF + + SELECT cNumerarTemp + SCAN + IF ALLTRIM(scd) = '581' + REPLACE scd WITH '5311', scc WITH '581', id_partc WITH 0, partc WITH '', id_partd WITH m.lnIdPartenerCasa, partd WITH m.lcPartenerCasa + ELSE + REPLACE scd WITH '581', scc WITH '5311', id_partd WITH 0, partd WITH '', id_partc WITH m.lnIdPartenerCasa, partc WITH m.lcPartenerCasa + ENDIF + IF EMPTY(NVL(nr, 0)) + REPLACE nr WITH nr2 && folosesc nr = recno negativ, sa completez acelasi numar document ca la linia retragere numerar + ENDIF + ENDSCAN + + SELECT cActTemp + APPEND FROM DBF('cNumerarTemp') + ENDIF + USE IN (SELECT('cNumerarTemp')) + ENDIF && llSucces + + IF m.llSucces + * Completez fel document cu EXTRAS CONT pentru inregistrarile cu nr = nr extras si cu ORDIN PLATA pentru inregistrarile cu nr diferit de nr extras +*!* Replace All id_fdoc With Iif(nr = m.lnNr, m.lnIdFdocExtrasCont, Iif(!Empty(nr), m.lnIdFdocOp, id_fdoc)) +*!* Replace All fdoc With Iif(nr = m.lnNr, m.lcFdocExtrasCont, Iif(!Empty(nr), m.lcFdocOp, fdoc)) + Replace All id_fdoc With m.lnIdFdocExtrasCont, fdoc With m.lcFdocExtrasCont IN cActTemp + + Wait Window 'Verificare conturi fara parteneri/documente' Nowait + + * sterg partenerii si documentele pereche de pe conturile care nu au parteneri, documente + llSucces = goExecutor.oExecuta('SELECT distinct cont, cu_inregistrari FROM vconfig_cont_ireg order by cont', 'cConturiPartTemp') + If m.llSucces + Select a.Cont, Iif(!Isnull(b.Cont), 1, 0) As epart, Nvl(b.cu_inregistrari, 0) As cu_inregistrari ; + From (Select scd As Cont From cActTemp ; + Union ; + Select scc As Cont From cActTemp) a Left Join cConturiPartTemp b On a.Cont = b.Cont ; + Into Cursor cConturiTemp + + Select cConturiTemp + Scan For epart = 0 + lcCont = Alltrim(Cont) + If epart = 0 + Update cActTemp Set id_partd = 0, partd = '', id_factd = 0, pereched = 0 Where Alltrim(scd) = m.lcCont + Update cActTemp Set id_partc = 0, partc = '', id_factc = 0, perechec = 0 Where Alltrim(scc) = m.lcCont + Else + If cu_inregistrari = 0 + Update cActTemp Set id_factd = 0, pereched = 0 Where Alltrim(scd) = m.lcCont + Update cActTemp Set id_factc = 0, perechec = 0 Where Alltrim(scc) = m.lcCont + Endif + Endif + Endscan + Use In (Select('cConturiTemp')) + Use In (Select('cConturiPartTemp')) + Endif && llSucces + + ldDataIreg = Gomonth(Date(m.gnAn, m.gnLuna, 1), 1) - 1 + If Type('gnIdSucursala') = 'U' + Local gnIdSucursala + gnIdSucursala = 0 + Endif + If Type('gcSucursala') = 'U' + Local gcSucursala + gcSucursala = Iif(!Empty(Nvl(m.gnIdSucursala, 0)), m.gcFirma, '') + Endif + + Select nr As nract, Data As dataact, Iif(Year(Data) * 12 + Month(Data) = m.gnAn * 12 + m.gnLuna, Data, m.ldDataIreg) As dataireg, suma, ; + suma_val, nume_val, id_valuta, Curs, ; + Cast(Upper(Alltrim(explicatie) + Iif(!Empty(Nvl(denumire, '')), ' ' + Alltrim(denumire), '') + ; + Iif(!Empty(Nvl(cod_fiscal, '')), ' ' + Alltrim(cod_fiscal), '')) As C(100)) As explicatia, ; + M.lcIBAN As explicatia4, ; + scd, scc, ascd, ascc, id_partd, id_partc, partd, partc, ; + id_factd, id_factc, pereched, perechec, ; + id_fdoc, fdoc, ; + Cast(gnIdSucursala As N(5) Null) As id_sucursala, Space(200) As sucursala ; + From cActTemp ; + Order By Data ; + Into Cursor cActTemp2 Readwrite + + * Dadea eroare cand puneam cast(m.gnIdSucursala as I) + Update cActTemp2 Set id_sucursala = m.gnIdSucursala, sucursala = m.gcSucursala + Delete From cActTemp2 Where suma = 0 + + Use In (Select('cActTemp')) + Select * From cActTemp2 Into Cursor cActTemp Readwrite + Use In (Select('cActTemp2')) + Select (m.lcSelect) + ENDIF && llSucces + + Return m.llSucces + Endproc && CreeazaNote + +Enddefine && ExtrasBanca + + +Define Class ExtrasBanca_MT940 As ExtrasBanca + cDescription = 'clasa generica import extras MT940' + + ***************************** + *** Parseaza liniile din extras si le introduce in cursorul C_IMPORT_TEMP + ***************************** + Procedure Parse + + Local lcBanca, lcCodFiscal, lcCursor, lcDenumire, lcDescriere, lcExtraRand, lcFacturi, lcFile + Local lcIBAN, lcRand, lcRand1, lcRefDoc, lcTip, lcTip2, ldData, lnLinie, lnLinii, lnNr, lnPos + Local lnPozitieN, lnRand, lnResults, lnSuma, llSucces + + lcFile = This.cFile + lnLinii = 0 + If File(m.lcFile) + lnLinii = Alines(This.aLinii, Filetostr(m.lcFile), 1) + lnLinii = Iif(Empty(m.lnLinii), 0, m.lnLinii) + This.nLinii = m.lnLinii + Endif + llSucces = .T. + + If m.lnLinii = 0 + This.lError = .T. + llSucces = .F. + This.cErrorMessage = This.cErrorMessage + Iif(!Empty(This.cErrorMessage), Chr(13), '') + 'Fisierul este gol!' + Endif + + * Verific antetul fisierului + If m.llSucces + llSucces = .F. + * verifica daca exista :25 in primele 20 linii + For lnLinie = 1 To 20 + lcRand = Alltrim(This.aLinii[m.lnLinie]) + If Left(m.lcRand, 4) = ':25:' + llSucces = .T. + Exit + Endif + Endfor + If !m.llSucces + This.lError = .T. + This.cErrorMessage = This.cErrorMessage + Iif(!Empty(This.cErrorMessage), Chr(13), '') + 'Nu corespunde structura fisierului!' + Endif + Endif + + If m.llSucces + Select C_IMPORT_TEMP + lnLinii = This.nLinii + For lnLinie = 1 To m.lnLinii + lcRand = Alltrim(This.aLinii[m.lnLinie]) + ldData = '' + lcTip = '' + lcTip2 = '' + lnSuma = 0 + + Do Case + Case Left(m.lcRand, 4) = ':25:' && cont bancar + * :25:RO57RZBR0000060011634808 + This.cIBAN = Upper(Alltrim(Substr(m.lcRand, 5))) && RO57RZBR0000060011634808 + This.cBIC = Substr(m.lcRand, 9, 4) && RZBR + + Case Left(m.lcRand, 5) = ':28C:' && numar extras/statement number + * :28C:213/1 + This.nNr = Int(Val(Substr(m.lcRand, 6))) && 213 + + Case Left(m.lcRand, 4) = ':61:' && tranzactie master, pe un singur rand + * :61:1712201220D82665,12NTRF32871258//3A9H3KUEDK5T72I + * :61:1712201220D3141,04NTRFNONREF//3A9H3KUEDK5T73M + * :61:1712201220D8,00NCOMNONREF//3A9H3KUEDK5T73W + ldData = Ctod(Substr(m.lcRand, 9, 2) + "." + Substr(m.lcRand, 7, 2) + ".20" + Substr(m.lcRand, 5, 2)) + lcTip = Substr(m.lcRand, 15, 1) && D/C + lcRand = Substr(m.lcRand, 16) && 82665,12NTRF32871258//3A9H3KUEDK5T72I + lnPozitieN = At("N", m.lcRand) + lnSuma = Val(Strtran(Substr(m.lcRand, 1, m.lnPozitieN - 1), ",", ".")) && 82665.12 + lcTip2 = Substr(m.lcRand, m.lnPozitieN + 1, 3) && TRF + + Select C_IMPORT_TEMP + Append Blank + Replace Data With m.ldData, suma With m.lnSuma, tip With m.lcTip, tip_2 With m.lcTip2 + + If !'NONREF' $ m.lcRand + lnPos = At('/', m.lcRand) && && 82665,12NTRF32871258//3A9H3KUEDK5T72I + lcCodFiscal = Substr(m.lcRand, m.lnPozitieN + 4, m.lnPos - m.lnPozitieN - 4) && 32871258 + Replace cod_fiscal With m.lcCodFiscal + Endif + *** Se poate sa mai existe o linie suplimentara cu detalii pentru :61: + + + Case Left(m.lcRand, 4) = ":86:" && tranzactie detalii, maxim 6 randuri + * Completez randul :86: cu liniile urmatoare, pana la intalnirea liniei :61:,:62:, ':6x:' + + * :86:000^20C/V F. 54^24Ref.Doc 1501/OPIB^30GE GARAN + * TI BANK S.A.^31RO68UGBI0000442012404RON^32ADINA SI + * CAMI UNIVERS SRL + * :61:1712201220D13,74NCOMNONREF//3A9H3KUEDK5T72S + + lcExtraRand = "" + lcRand1 = m.lcRand + For lnRand = 1 To 5 + lnLinie = m.lnLinie + 1 && avansez 1 linie + IF m.lnLinie > m.lnLinii + EXIT + ENDIF + lcExtraRand = This.aLinii[m.lnLinie] + If Left(m.lcExtraRand, 2) = ':6' + lnLinie = m.lnLinie - 1 && revin 1 linie + Exit + Else + lcRand1 = m.lcRand1 + m.lcExtraRand + Endif + Endfor + lcRand = m.lcRand1 + + lcDescriere = Strextract(m.lcRand, '^20', '^', 1, 1 + 2) && 20: descriere: C/V F. 54 + * Array sau lista cu numere de facturi separate prin "," daca exista in descriere + lcFacturi = '' + *!* lnResults = GetRegExpAll(m.lcDescriere, '\d+', @m.lcFacturi) + lnResults = GetRegExpAllNumbers(m.lcDescriere, @m.lcFacturi) + + lcRefDoc = Strextract(m.lcRand, '^24', '^', 1, 1 + 2) && 24: document plata: Ref.Doc 1501/OPIB + lnNr = 0 + If 'ref.doc' $ Lower(m.lcRefDoc) + lnNr = Int(Val(Strextract(m.lcRefDoc, 'ref.doc', '/', 1, 1 + 2))) + Endif + lcBanca = Strextract(m.lcRand, '^30', '^', 1, 1 + 2) && 30: banca tert: GE GARANTI BANK S.A. + lcIBAN = Strextract(m.lcRand, '^31', '^', 1, 1 + 2) && 31: cont bancar tert: RO68UGBI0000442012404RON + lcDenumire = Strextract(m.lcRand, '^32', '^', 1, 1 + 2) && 32: nume tert: ADINA SI CAMI UNIVERS SRL + Replace iban With m.lcIBAN, denumire With m.lcDenumire, explicatie With m.lcDescriere + '; ' + m.lcRefDoc, nr With m.lnNr, documente With m.lcFacturi + Endcase + Endfor && lnLinie = 1 TO lnLinii + + Select C_IMPORT_TEMP + Replace All nr With This.nNr For Empty(nr) + Endif && llSucces + + Return m.llSucces + + Endproc && Parse +Enddefine + +Define Class ExtrasBanca_RAIFFEISEN_TXT_MT940 As ExtrasBanca_MT940 + * Se poate suprascrie daca RAIFFEISEN are particularitati fata de clasa generica +Enddefine && ExtrasBanca_RAIFFEISEN_TXT_MT940 + +Define Class ExtrasBanca_CREDITEUROPE_XML As ExtrasBanca + + ***************************** + *** Parseaza liniile din extras si le introduce in cursorul C_IMPORT_TEMP + ***************************** + Procedure Parse + Local lcBanca, lcCodFiscal, lcCursor, lcData, lcDenumire, lcDescriere, lcDescriereFacturi + Local lcExplicatie, lcExtraRand, lcFacturi, lcFile, lcIBAN, lcInfo1, lcInfo1Exemplu, lcInfo2 + Local lcInfo2Exemplu, lcMovements, lcMovementsExemplu, lcNr, lcRand, lcRand1, lcRef, lcRefDoc + Local lcText, lcTip, lcTip2, ldData, lnCredit, lnDay, lnDebit, lnLinie, lnLinii, lnMonth, lnNr + Local lnPos, lnPozitieN, lnRand, lnResults, lnSuma, lnYear, llSucces, ldData1, ldData2 + Local loEx As Exception + + lcFile = This.cFile + lnLinii = 0 + llSucces = .T. + + If File(m.lcFile) + Text To m.lcInfo1Exemplu Noshow + + 20210428105248 + RO88FNNB000503152940RO02 + RON + + 19245.98 + 20210401 + + + Endtext + + Text To m.lcInfo2Exemplu Noshow + + 22354.81 + 20210428 + + Endtext + + Text To m.lcMovementsExemplu Noshow + + + OPIOPRIC/12747148 + 20210401 + 20210401 +
Incasare OP/NOTPROVIDED/DOMINUS CONSULT SRL /ROC/srvicii contabilitate conf. contr.//RFB/35
+ OPC + NOTPROVIDED + 15111236 + RO78BTRL01401202699905XX + DOMINUS CONSULT SRL + 0.00 + 600.00 + + + Endtext + + lcText = Filetostr(m.lcFile) + + lcInfo1 = Strextract(m.lcText, '', '', 1, 1) + lcInfo2 = Strextract(m.lcText, '', '', 1, 1) + + lcMovements = Strextract(m.lcText, '', '', 1, 1 + 4) + + Try + lnLinii = Xmltocursor(m.lcMovements, "cMovementsTemp") + Catch To loEx + This.lError = .T. + llSucces = .F. + This.cErrorMessage = This.cErrorMessage + Iif(!Empty(This.cErrorMessage), Chr(13), '') + 'Nu corespunde structura fisierului!' + ; + Chr(13) + loEx.Message + lnLinii = 0 + Endtry + lnLinii = Iif(Empty(m.lnLinii), 0, m.lnLinii) + This.nLinii = m.lnLinii + Endif + + If m.lnLinii = 0 + This.lError = .T. + llSucces = .F. + This.cErrorMessage = This.cErrorMessage + Iif(!Empty(This.cErrorMessage), Chr(13), '') + 'Fisierul este gol!' + Endif + + * Verific antetul fisierului + If m.llSucces + If ![] $ m.lcInfo1 + This.lError = .T. + llSucces = .F. + This.cErrorMessage = This.cErrorMessage + Iif(!Empty(This.cErrorMessage), Chr(13), '') + 'Nu corespunde structura fisierului!' + Endif + Endif + + If m.llSucces + + This.cIBAN = Upper(Alltrim(Strextract(m.lcInfo1, '', '', 1, 1))) + This.cValuta = Upper(Alltrim(Strextract(m.lcInfo1, '', '', 1, 1))) + If !Inlist(This.cValuta, 'RON', 'LEI', 'ROL') + This.cContBanca = '5124' && banca valuta + Endif + + ldData1 = This.dData1 + ldData2 = this.dData2 + + This.nNr = Int(Val(Strextract(m.lcInfo2, '', '', 1, 1))) && numarul extrasului il consider data de sfarsit a extrasului + Select cMovementsTemp + Scan + lcData = Alltrim(Transform(value_date)) + lnYear = Int(Val(Substr(m.lcData, 1, 4))) + lnMonth = Int(Val(Substr(m.lcData, 5, 2))) + lnDay = Int(Val(Substr(m.lcData, 7, 2))) + ldData = Date(m.lnYear, m.lnMonth, m.lnDay) + IF !BETWEEN(m.ldData, m.ldData1, m.ldData2) + LOOP + ENDIF + + lnDebit = Val(Transform(debit)) + lnCredit = Val(Transform(credit)) + lnSuma = Iif(m.lnDebit <> 0, m.lnDebit, m.lnCredit) + lcTip = Iif(m.lnDebit <> 0, 'D', 'C') + lcRef = Getwordnum(Upper(Alltrim(ref)), 1, '/') + * OPIOPRIC/12747148 Incasare OP/2021105/WERT SRL /ROC/FACT. 2372 DIN 01.03.2021 + * COM/12747474 + * ODSIBS.ODORANGE/9061093 Plata factura Orange, cod abonat 0554957175 + * OPPIBS.OPRCT/13717432 Plata OP / 342 - BUGETUL DE STAT + * FXCIBS.FCTRAN/1962148 Transfer 1000 RON cu data valutei 23-APR-21 + * GENCCCPJS/862026678 Plata comision lunar de administrare cont + lcTip2 = '' + Do Case + Case m.lcRef = 'COM' Or 'GENCCCPJS' $ m.lcRef + lcTip2 = This.cTipComisioane + Case 'OPPIBS.OPRCT' $ m.lcRef + lcTip2 = This.cTipBuget + Case 'FXCIBS' $ m.lcRef + lcTip2 = This.cTipTransfer + Case m.lcRef = 'OPIOPRIC' Or 'OPPIBS.OPRCC' $ m.lcRef + lcTip2 = This.cTipTerti + Otherwise + lcTip2 = This.cTipTerti + Endcase + lcCodFiscal = Upper(Alltrim(TRANSFORM(cui_platitor))) + lcDescriere = Alltrim(TRANSFORM(Details)) + * Daca sunt mai multe informatii, nu pastrez explicatiile 2,3,4 (numar op, nume partener si alta explicatie necunoscuta) + * Pastrez doar tipul de document incasare op / plata op / transfer etc. si detaliile completate de client/furnizor + * in procedura import_extras completez explicatia cu nume client/furnizori si cod fiscal + lcExplicatie = m.lcDescriere + Do Case + Case Getwordcount(m.lcDescriere, '/') = 2 + lcExplicatie = Alltrim(Getwordnum(m.lcDescriere, 1, '/')) + + Case Getwordcount(m.lcDescriere, '/') > 4 + lcExplicatie = Alltrim(Alltrim(Getwordnum(m.lcDescriere, 1, '/')) + ' ' + Alltrim(Getwordnum(m.lcDescriere, 5, '/'))) + Endcase + + lcBanca = '' && nume banca platitor + lcIBAN = Alltrim(TRANSFORM(iban_platitor)) && cont bancar tert: RO68UGBI0000442012404RON + lcDenumire = Alltrim(TRANSFORM(denumire_platitor)) && nume tert: ADINA SI CAMI UNIVERS SRL + + lnNr = 0 && numar document de plata OP + If Lower(Left(m.lcDescriere, 8)) = 'plata op' && Plata OP / 343 - BUGETUL DE STAT + lcNr = Alltrim(Strextract(m.lcDescriere, 'Plata OP /', '-', 1, 1)) + lnNr = Int(Val(m.lcNr)) + Endif + + * Array sau lista cu numere de facturi separate prin "," daca exista in descriere + * (?:( \d+)(?![\.\d])(?!2021).) spatiu apoi cifre, fara . si cifra si fara anul curent (sa excluda datele) + lcFacturi = '' + lcDescriereFacturi = m.lcDescriere + + If 'incasare op' $ Lower(m.lcDescriereFacturi) + * Incasare OP/2021105/WERT SRL /ROC/FACT. 2372 DIN 01.03.2021 + * Incasare OP/197 DIVIZIA DE PAZA SRL /ROC/FACT NR 2021102 29 04 2021 SUPORT TEHNIC APR 2021 + * Incasare OP/864/CN ACN SA 2021100/29,04,2021 + lcDescriereFacturi = Getwordnum(m.lcDescriereFacturi, 3, '/')+ ' ' + Getwordnum(m.lcDescriereFacturi, 4, '/')+ ' '+ Getwordnum(m.lcDescriereFacturi, 5, '/') + Endif + *!* lcRegExp = "(?:( \d+)(?![\.\d])(?!" + Alltrim(Str(Int(m.gnAn))) + ").)" + *!* lcRegExp = "(\d)+" + *!* lnResults = GetRegExpAll(m.lcDescriereFacturi, m.lcRegExp, @m.lcFacturi) + lnResults = GetRegExpAllNumbers(m.lcDescriereFacturi, @m.lcFacturi) + + Select C_IMPORT_TEMP + Append Blank + Replace Data With m.ldData, suma With m.lnSuma, tip With m.lcTip, tip_2 With m.lcTip2, cod_fiscal With m.lcCodFiscal + Replace iban With m.lcIBAN, denumire With m.lcDenumire, explicatie With m.lcExplicatie, documente With m.lcFacturi, nr With m.lnNr + Endscan && cMovementsTemp + + Select C_IMPORT_TEMP + Replace All nr With This.nNr For Empty(nr) + + Endif && llSucces + Use In (Select('cMovementsTemp')) + + Return m.llSucces + Endproc && Parse +Enddefine && ExtrasBanca_CREDITEUROPE_XML + +Define Class ExtrasBanca_UNICREDIT_CSV As ExtrasBanca + + ***************************** + *** Parseaza liniile din extras si le introduce in cursorul C_IMPORT_TEMP + ***************************** + Procedure Parse + Local lcBanca, lcCodFiscal, lcCursor, lcData, lcDenumire, lcDescriere, lcDescriereFacturi + Local lcExplicatie, lcExtraRand, lcFacturi, lcFile, lcIBAN, lcInfo1, lcInfo1Exemplu, lcInfo2 + Local lcInfo2Exemplu, lcMovements, lcMovementsExemplu, lcNr, lcRand, lcRand1, lcRef, lcRefDoc + Local lcText, lcTip, lcTip2, ldData, lnCredit, lnDay, lnDebit, lnLinie, lnLinii, lnMonth, lnNr + Local lnPos, lnPozitieN, lnRand, lnResults, lnSuma, lnYear, llSucces, lcRegExp + + lcFile = This.cFile + lnLinii = 0 + llSucces = .T. + + If File(m.lcFile) + Text To m.lcAntetExemplu Noshow +Titlu cont;Cont;Valuta;Sold deschidere;Sold inchidere +GENIUS IMM MOD OP;819976000;RON;-80.762,64;-158.108,98 + Endtext + + Text To m.lcBodyExemplu Noshow +Cont;Suma;Valuta;Data tranzactiei;Data valutei;Banca;Numele bancii;Adresa bancii;Cont;IBAN;Nume;Adresa 1;Adresa 2;Adresa 3;Detalii tranzactie 1;Detalii tranzactie 2;Detalii tranzactie 3;Detalii tranzactie 4;Detalii tranzactie 5;Detalii tranzactie 6;Detalii tranzactie 7;Detalii tranzactie 8;Detalii plata 1;Detalii plata 2;Detalii plata 3;Detalii plata 4;Detalii plata 5;Detalii plata 6;Cod fiscal;Numar ordin;Camp neutilizat;Camp neutilizat;Camp neutilizat;Numar de referinta;Requested Processing date;Numar inregistrare PSP;Nume PSP tert;Referinta plata PSP tert;Tara emiterii autorizatiei;Codul autoritatii nationale +819976000;-21,28;RON;10.05.2021;10.05.2021;;;;;;;;;;COMMISSION FOR CASH TRANS;CAK-LCD/1900/A/0015;;;;;;;;;;;;;;;;;;;;;;;; +819976000;2.127,84;RON;10.05.2021;10.05.2021;;;;;;;;;;CASH DEPOSIT/LEI ACCOUNT;CAK-LCD/1900/A/0015;FACT PROF SOWB21009895;MATEI ANDREI MARIUS;;;;;;;;;;;;;;;;;;;;;; +819976000;-51,33;RON;07.05.2021;07.05.2021;INGB;ING BANK ROMANIA;;;RO54INGB0000999907783025;PRO INTERACTIVE PLUS SRL;;;;;;;;;;;;F 6607/05.04.21;;;;;;32933032;304;;;;279591539;07.05.2021;;;;; + Endtext + + lnLinii = Alines(This.aLinii, Filetostr(m.lcFile), 1) + lnLinii = Iif(m.lnLinii < 2, 0, m.lnLinii) + This.nLinii = m.lnLinii + Endif + + If m.lnLinii = 0 + This.lError = .T. + llSucces = .F. + This.cErrorMessage = This.cErrorMessage + Iif(!Empty(This.cErrorMessage), Chr(13), '') + 'Fisierul este gol!' + Endif + + * Verific antetul fisierului + If m.llSucces + If ![Titlu cont;Cont;Valuta;Sold deschidere;Sold inchidere] $ This.aLinii[1] + This.lError = .T. + llSucces = .F. + This.cErrorMessage = This.cErrorMessage + Iif(!Empty(This.cErrorMessage), Chr(13), '') + 'Nu corespunde structura fisierului!' + Endif + Endif + If m.llSucces + lcLinie = This.aLinii[2] + This.cIBAN = syGETWORDNUM(m.lcLinie, 2, ';') + This.cValuta = syGETWORDNUM(m.lcLinie, 3, ';') + + This.nNr = Int(Val(Dtos(Gomonth(Date(m.gnAn, m.gnLuna, 1), 1) - 1))) + + For lnLinie = 4 To m.lnLinii + lcLinie = This.aLinii[m.lnLinie] + lcData = syGETWORDNUM(m.lcLinie, 4, ';') + lnYear = Int(Val(Substr(m.lcData, 7, 4))) + lnMonth = Int(Val(Substr(m.lcData, 4, 2))) + lnDay = Int(Val(Substr(m.lcData, 1, 2))) + ldData = Date(m.lnYear, m.lnMonth, m.lnDay) + + lcSuma = syGETWORDNUM(m.lcLinie, 2, ';') + lcSuma = Strtran(m.lcSuma, '.', '', 1, 10, 1) && sterg separatorul grupe . + lcSuma = Strtran(m.lcSuma, ',', '.', 1, 1, 1) && modific separator zecimale in . + lnSuma = Val(m.lcSuma) + lcTip = Iif(m.lnSuma < 0, 'D', 'C') + lnSuma = Abs(m.lnSuma) + + lcD1 = syGETWORDNUM(m.lcLinie, 15, ';') + lcD2 = syGETWORDNUM(m.lcLinie, 16, ';') + lcD3 = syGETWORDNUM(m.lcLinie, 17, ';') + lcD4 = syGETWORDNUM(m.lcLinie, 18, ';') + lcD5 = syGETWORDNUM(m.lcLinie, 19, ';') + lcD6 = syGETWORDNUM(m.lcLinie, 20, ';') + lcD7 = syGETWORDNUM(m.lcLinie, 21, ';') + lcD8 = syGETWORDNUM(m.lcLinie, 22, ';') + lcDP1 = syGETWORDNUM(m.lcLinie, 23, ';') + lcDP2 = syGETWORDNUM(m.lcLinie, 24, ';') + lcDP3 = syGETWORDNUM(m.lcLinie, 25, ';') + lcDP4 = syGETWORDNUM(m.lcLinie, 26, ';') + lcDP5 = syGETWORDNUM(m.lcLinie, 27, ';') + lcDP6 = syGETWORDNUM(m.lcLinie, 28, ';') + lcExplicatie = m.lcD1 + ; + Iif(!Empty(m.lcD2), ' ' + m.lcD2, '') + ; + Iif(!Empty(m.lcD3), ' ' + m.lcD3, '') + ; + Iif(!Empty(m.lcD4), ' ' + m.lcD4, '') + ; + Iif(!Empty(m.lcD5), ' ' + m.lcD5, '') + ; + Iif(!Empty(m.lcD6), ' ' + m.lcD6, '') + ; + Iif(!Empty(m.lcD7), ' ' + m.lcD7, '') + ; + Iif(!Empty(m.lcD8), ' ' + m.lcD8, '') + ; + Iif(!Empty(m.lcDP1), ' ' + m.lcDP1, '') + ; + Iif(!Empty(m.lcDP2), ' ' + m.lcDP2, '') + ; + Iif(!Empty(m.lcDP3), ' ' + m.lcDP3, '') + ; + Iif(!Empty(m.lcDP4), ' ' + m.lcDP4, '') + ; + Iif(!Empty(m.lcDP5), ' ' + m.lcDP5, '') + ; + Iif(!Empty(m.lcDP6), ' ' + m.lcDP6, '') + + * COMMISSION FOR CASH TRANS;CAK-LCD/1900/A/0015 + * CASH DEPOSIT/LEI ACCOUNT;CAK-LCD/1900/A/0015;FACT PROF SOWB21009895;MATEI ANDREI MARIUS + + lcBanca = Upper(Alltrim(syGETWORDNUM(m.lcLinie, 6, ';'))) && nume banca platitor + lcIBAN = Upper(Alltrim(syGETWORDNUM(m.lcLinie, 10, ';'))) && cont bancar tert: RO68UGBI0000442012404RON + lcDenumire = Upper(Alltrim(syGETWORDNUM(m.lcLinie, 11, ';'))) && denumire tert + lcCodFiscal = syGETWORDNUM(m.lcLinie, 29, ';') + lnNr = Int(Val(syGETWORDNUM(m.lcLinie, 30, ';'))) + + lcTip2 = '' + Do Case + Case 'COMMISSION' $ Upper(m.lcExplicatie) Or ' FEE' $ Upper(m.lcExplicatie) Or ; + 'FEE/' $ Upper(m.lcExplicatie) Or Upper(m.lcExplicatie) = 'FEE' + lcTip2 = This.cTipComisioane + Case 'CASH DEPOSIT' $ Upper(m.lcExplicatie) + lcTip2 = This.cTipDepunere + Case 'BUGETUL DE STAT' $ m.lcDenumire + lcTip2 = This.cTipBuget + Case 'PROMISSORY NOTE' $ Upper(m.lcDP1) Or 'PROMISSORY NOTE' $ Upper(m.lcD1) + lcTip2 = This.cTipEfecteComerciale + Otherwise + lcTip2 = This.cTipTerti + Endcase + + + * Array sau lista cu numere de facturi separate prin "," daca exista in descriere + * (?:( \d+)(?![\.\d])(?!2021).) spatiu apoi cifre, fara . si cifra si fara anul curent (sa excluda datele) + lcFacturi = '' + lcDescriereFacturi = m.lcExplicatie + lnResults = GetRegExpAllNumbers(m.lcDescriereFacturi, @m.lcFacturi) + + Select C_IMPORT_TEMP + Append Blank + Replace Data With m.ldData, suma With m.lnSuma, tip With m.lcTip, tip_2 With m.lcTip2, cod_fiscal With m.lcCodFiscal + Replace iban With m.lcIBAN, denumire With m.lcDenumire, explicatie With m.lcExplicatie, documente With m.lcFacturi, nr With m.lnNr + Endfor && laLinii + + Select C_IMPORT_TEMP + Replace All nr With This.nNr For Empty(nr) + + Endif && llSucces + Use In (Select('cMovementsTemp')) + + Return m.llSucces + Endproc && Parse +Enddefine && ExtrasBanca_UNICREDIT_CSV + +* Clasa preluata din SAGA +* Determina automat tipul de fisier (extras, decont curier, procesator plati) din continutul fisierului +Define Class ExtrasBanca_General As ExtrasBanca + + Function Parse + Local mdatareferinta, lnfilehandle, mrand, mcomision, mnrcomision, isunicredit, isfaracitire, mnrimport + mSelectedFile = This.cFile + isunicredit = .F. + isbcr = .F. + isfaracitire = .F. + mdatareferinta = Date() + mnrimport = 1 + mrand = "" + + Create Cursor match (Id N (10), id_pi N (7), ip C (1), nr C (16), cod C (8), denumire C (64), Data D, scadent D Null, Total N (15, 2), tva N (15, 2), neachitat N (15, 2), neachitat_real N (15, 2), achitat N (15, 2), cod_valuta C (3), Curs N (15, 4), dif_curs N (15, 2), total_val N (16, 4), is_total N (1, 0), tip_o C (3), grupa C (16), plan C (6), sector C (16), sursa C (16), capitol C (16), articol C (16), tip C (1), tvai N (1, 0), inf_suplm C (100)) + Index On Data Tag Data + + Create Cursor c_iex (Id N (10, 0), ip C (1), nr C (16), Data D, suma N (15, 2), explicatie C (200), original M, iban C (24), cod C (8), tert C (64), cf C (13), tip C (2), tip_2 C (3), Cont C (20), cont_casa C (20), ok N (1, 0), tert_v N (1, 0), suma_v N (1, 0), cod_valuta C (3), tip_o C (3), importat N (1), tel C (20), email C (100), asociat N (1, 0), documente C(250), comenzi C(250)) + + + If !Inlist(Upper(Justext(mSelectedFile)), "XLS", "XML") + lnfilehandle = Fopen(mSelectedFile) + If lnfilehandle = -1 + Messagebox( "Fisierul nu poate fi accesat." + Chr(13) + "Probabil ca este deschis �n alta fereastra.", 16, "Eroare acces" ) + Return .F. + Endif + Do While !Feof(lnfilehandle) .And. Empty(mrand) + mrand = Fgets(lnfilehandle) + Enddo + Fclose(lnfilehandle) + Endif + + Do Case + Case Left(Upper(Justext(mSelectedFile)), 3) = "XLS" + This.xlsGeneral(mSelectedFile) + Case Upper(Justext(mSelectedFile)) = "XML" + This.xmlAsc(mSelectedFile) + Case Upper(Justext(mSelectedFile)) = "TXT" .And. "mandat postal" $ Lower(mrand) + This.txtPosta(mSelectedFile) + Case Upper(Justext(mSelectedFile)) = "CSV" + Do Case + Case 'transaction date,type,order'$Lower(mrand) + * Data Comenzii,Tipul,Nr Comanda,,Data Transferului,Suma,Comision,Suma Neta,Referinta + This.csvStripe(mSelectedFile) + Case Lower(Left(mrand, 4)) = "tip," .Or. Lower(Left(mrand, 5)) = "type," + This.csvBooking(mSelectedFile) + Case "id produs,cod produs," $ Lower(mrand) + This.csvPayu(mSelectedFile) + Case Occurs('textbox', Lower(mrand)) > 6 + This.csvIntesa(mSelectedFile, 1) + Case Occurs('textbox', Lower(mrand)) = 6 + This.csvIntesa(mSelectedFile, 2) + Case 'localitate' $ Lower(mrand) AND 'persoanae' $ Lower(mrand) + This.csvFanCourier(mSelectedFile) + Case 'oras destinatar' $ Lower(mrand) + This.csvFunCourier(mSelectedFile) + Case 'awb,data_awb,destinatar' $ Lower(mrand) + This.csvFunCourier2(mSelectedFile) + Case 'idawb' $ Lower(mrand) + This.csvCargus(mSelectedFile) + Case 'waybill' $ Lower(mrand) + This.csvDPD(mSelectedFile, 1) + Case 'data,id,numar' $ Lower(mrand) .Or. '"data","id","numar"' $ Lower(mrand) .Or. 'data;id;numar' $ Lower(mrand) .Or. '"data";"id";"numar"' $ Lower(mrand) + This.csvDPD(mSelectedFile, 2) + Case 'tranzactiile contului:' $ Lower(mrand) .Or. 'account activities:' $ Lower(mrand) + This.csvGaranti(mSelectedFile) + Case Lower(Left(mrand, 11)) = "cod client:" + This.csvGaranti_2(mSelectedFile) + Case 'suma db' $ Lower(mrand) .Or. ('suma debit' $ Lower(mrand) .And. 'referinta' $ Lower(mrand) .And. 'data val.' $ Lower(mrand)) + This.csvOTP(mSelectedFile) + Case "perioada:" $ Lower(mrand) .Or. "data generare extras:" $ Lower(mrand) + This.csvRaiffeisen(mSelectedFile, Iif(";;" $ mrand, ";", ",")) + Case "titlu cont" $ Lower(mrand) .Or. "account title" $ Lower(mrand) + If "titlu cont" $ Lower(mrand) + This.csvUnicredit(mSelectedFile, Substr(mrand, Atc( "Titlu cont", mrand) + 10, 1)) + Else + This.csvUnicredit(mSelectedFile, Substr(mrand, Atc( "Account Title", mrand) + 13, 1)) + Endif + Case ",,detalii tranzactie," $ Lower(mrand) .Or. ",,transaction details," $ Lower(mrand) + If "debit,credit" $ Lower(mrand) + This.csvIng(mSelectedFile, 2) + Else + This.csvIng(mSelectedFile, 1) + Endif + Case "numar cont;" $ Lower(mrand) + lnTipFisier = IIF('sold initial;sold final;numar cont;'$ Lower(mrand), 2, 1) + This.csvIngbusiness(mSelectedFile, ";", m.lnTipFisier) + Case "ingb" $ Lower(mrand) .Or. 'numar cont,' $ Lower(mrand) .Or. 'numar cont",' $ Lower(mrand) + This.csvIngbusiness(mSelectedFile, ",") + Case Lower(Left(mrand, 10)) = "tranzactii" .Or. Lower(Left(mrand, 12)) = "transactions" + * BTGO lista de tranzactii in cursul lunii + This.csvBT(mSelectedFile, 1) + Case Lower(Left(mrand, 19)) = [lista de tranzactii] OR Lower(Left(mrand, 21)) = ["lista de tranzactii"] + * BTGO extrase de cont final de luna + This.csvBT(mSelectedFile, 2) + Case '"date",' $ Lower(mrand) + This.csvPaypal(mSelectedFile) + Case Lower(Left(mrand, 6)) = '"brde"' .Or. Lower(Left(mrand, 4)) = 'brde' + This.csvBRD(mSelectedFile) + Case Lower(Left(mrand, 6)) = '"rncb"' .Or. Lower(Left(mrand, 4)) = 'rncb' + This.csvBCR2(mSelectedFile) + Case "first bank" $ Lower(mrand) + This.csvFirstBank(mSelectedFile) + Case "cece" $ Lower(mrand) + This.csvCEC(mSelectedFile) + Case Lower(Left(mrand, 3)) = '"#"' + This.csvMobilPay(mSelectedFile) + Case "data emitere extras" $ Lower(mrand) + This.csvBCR(mSelectedFile) + Case Occurs(";", mrand) = 7 + This.csvUnDoi(mSelectedFile) + Case Occurs(",", mrand) = 6 + This.csvPaypoint(mSelectedFile) + Case "platitor_nume_denumire" $ Lower(mrand) + This.csvIdea(mSelectedFile) + Case "numeclient,perioada,codclient" $ Lower(mrand) + This.csvCreditEurope(mSelectedFile) + Case Lower(Left(mrand, 3)) = "sep" + This.csvAlpha(mSelectedFile) + Otherwise + Messagebox( "Formatul fisierului CSV nu este implementat pentru import.", 16, "Format necunoscut" ) + Return .F. + Endcase + Case Upper(Justext(mSelectedFile)) = "TXT" && MT940 + This.MT940(mSelectedFile) + Otherwise + * + Endcase + + Update c_iex Set tip_2 = This.cTipTerti Where Empty(tip_2) + + Select Int(Val(nr)) As nr, Data, suma, explicatie, original, iban, cod, tert As denumire, cf As cod_fiscal, tip, tip_2, ; + Cont, tert_v, suma_v As suma_val, cod_valuta As nume_val, tip_o, documente, comenzi ; + From c_iex Into Cursor c_iex_temp + + Select C_IMPORT_TEMP + Append From Dbf('c_iex_temp') + Use In (Select('c_iex_temp')) + Use In (Select('c_iex')) + Use In (Select('match ')) + + *!* This.cIBAN = syGETWORDNUM(m.lcLinie, 2, ';') + *!* This.cValuta = syGETWORDNUM(m.lcLinie, 3, ';') + *!* If !Inlist(This.cValuta, 'RON', 'LEI', 'ROL') + *!* This.cContBanca = '5124' && banca valuta + *!* ENDIF + + Endfunc && Parse + + + Function MT940 + Fopen(mSelectedFile) + mtextoriginal = "" + Select c_iex + Do While !Feof(lnfilehandle) + If !isfaracitire + mrand = Fgets(lnfilehandle) + Endif + isfaracitire = .F. + Do Case + Case Left(m.mrand, 4) = ':25:' && cont bancar + * :25:RO57RZBR0000060011634808 + This.cIBAN = Upper(Alltrim(Substr(m.mrand, 5))) && RO57RZBR0000060011634808 + Case ":61:" $ mrand + Append Blank + mldatae = {} + nnrapnc = Occurs("NC", mrand) + If nnrapnc > 0 + mstartdata = At("NC", mrand, nnrapnc) + 2 + mldatae = Ctod(Substr(mrand, mstartdata + 4, 2) + "." + Substr(mrand, mstartdata + 2, 2) + ".20" + Substr(mrand, mstartdata, 2)) + Endif + If mldatae = {} + mldatae = Ctod(Substr(mrand, 9, 2) + "." + Substr(mrand, 7, 2) + ".20" + Substr(mrand, 5, 2)) + Endif + Replace Data With mldatae, tip With Substr(mrand, 15, 1) + Iif(Inlist(Substr(mrand, 16, 1), "D", "C"), Substr(mrand, 16, 1), "") + mrand = Iif(Inlist(Substr(mrand, 16, 1), "D", "C"), Substr(mrand, 17, 50), Substr(mrand, 16, 50)) + mtextoriginal = mrand + Do Case + Case "NTRF" $ mrand + isbcr = .T. + mpozitien = At("N", mrand) + Replace suma With Val(Strtran(Substr(mrand, 1, mpozitien - 1), ",", ".")), tip_2 With Substr(mrand, mpozitien + 1, 3) + If "//" $ mrand + mpozitienr = At("//", mrand) + 10 + Replace nr With Alltrim(Substr(mrand, mpozitienr, 16)) + Else + Replace nr With Alltrim(Substr(mrand, mpozitien + 4, 16)) + Endif + Case "FMSC" $ mrand + mpozitien = At("F", mrand) + Replace suma With Val(Strtran(Substr(mrand, 1, mpozitien - 1), ",", ".")), tip_2 With "", nr With Alltrim(Substr(mrand, mpozitien + 12, 16)) + isunicredit = .T. + Otherwise + mpozitien = At("N", mrand) + Replace suma With Val(Strtran(Substr(mrand, 1, mpozitien - 1), ",", ".")), tip_2 With Substr(mrand, mpozitien + 1, 3), nr With Strtran(Alltrim(Substr(mrand, mpozitien + 4, 16)), "NONREF //", "") + If !("NONREF //" $ mrand) + mrand = Fgets(lnfilehandle) + Replace explicatie With mrand + mtextoriginal = mtextoriginal + Chr(13) + mrand + Endif + Endcase + Case ":86:" $ mrand .And. "+31" $ mrand + Replace iban With Alltrim(Substr(mrand, At( "+31", mrand) + 3, 24)) + mrand = Fgets(lnfilehandle) + mtextoriginal = mtextoriginal + Chr(13) + mrand + Replace tert With Substr(mrand, At( "+32", mrand) + 3, At( "+33", mrand) - 4), cf With Alltrim(Substr(mrand, At( "+33", mrand) + 3, 13)) + Case ":86:" $ mrand .And. !isunicredit .And. !isbcr + mnextrand = Fgets(lnfilehandle) + mtextoriginal = mtextoriginal + Chr(13) + mnextrand + If mnextrand = ":61:" + mrand = mnextrand + isfaracitire = .T. + Loop + Else + mrand1 = mrand + mnextrand + Endif + mnextrand = Fgets(lnfilehandle) + mtextoriginal = mtextoriginal + Chr(13) + mnextrand + If mnextrand = ":61:" + mrand = mnextrand + isfaracitire = .T. + Loop + Else + mrand1 = mrand + mnextrand + Endif + mnextrand = Fgets(lnfilehandle) + mtextoriginal = mtextoriginal + Chr(13) + mnextrand + If mnextrand = ":61:" + mrand = mnextrand + isfaracitire = .T. + Loop + Else + mrand1 = mrand + mnextrand + Endif + mnextrand = Fgets(lnfilehandle) + mtextoriginal = mtextoriginal + Chr(13) + mnextrand + If mnextrand = ":61:" + mrand = mnextrand + isfaracitire = .T. + Loop + Else + mrand1 = mrand + mnextrand + Endif + mrand1 = Substr(Strtran(mrand1, "intrabancara Platitor", ""), 5, 250) + mcf = getnrfromstring(mrand1) + miban = Substr(mcf, At("RO", mcf), 24) + mcf = Substr(mcf, 1, At( " ", mcf)) + mtert = Substr(mrand1, At( " ", mrand1) + 3, At(mcf, mrand1) - 5) + If "Detalii " $ mrand1 + mexplicatie = Substr(mrand1, At( "Detalii ", mrand1) + 8, 60) + Else + mexplicatie = Substr(mrand, 5, 60) + Endif + If !verifcf(mcf) + mcf = getdigitsfromstring(mrand1, 4, 1, ".") + Endif + Replace tert With mtert, cf With mcf, iban With miban, explicatie With mexplicatie + Case ":86:" $ mrand .And. isbcr + mnextrand = "" + mrand1 = mrand + ij = 1 + Do While !(":61:" $ mnextrand) .And. ij <= 7 + mnextrand = Fgets(lnfilehandle) + If mnextrand = ":61:" + Fseek(lnfilehandle, - Len(mnextrand) - 2, 1) + Else + mrand1 = mrand1 + mnextrand + Endif + ij = ij + 1 + Enddo + mtextoriginal = mtextoriginal + Chr(13) + mrand1 + Store "" To mtert, miban, mcf + If tip = "C" + If "-Platitor" $ mrand1 + mstart = At("-Platitor", mrand1) + 11 + mtert = Substr(mrand1, mstart, 200) + mstartiban = At(" RO", mtert) + 2 + miban = Substr(mtert, mstartiban, 24) + mstartcf = At(" CODFISC ", mtert) + 9 + mcf = Substr(mtert, mstartcf, 12) + If " " $ mcf + mcf = Left(mcf, At(" ", mcf)) + Else + If "-" $ mcf + mcf = Left(mcf, At("-", mcf) - 1) + Endif + Endif + mtert = Left(mtert, mstartiban - 2) + Endif + Else + If "-Beneficiar" $ mrand1 + mstart = At("-Beneficiar", mrand1) + 13 + mtert = Substr(mrand1, mstart, 200) + mstartiban = At(" RO", mtert) + 2 + miban = Substr(mtert, mstartiban, 24) + mstartcf = At(" CODFISC ", mtert) + 9 + mcf = Substr(mtert, mstartcf, 12) + If " " $ mcf + mcf = Left(mcf, At(" ", mcf)) + Else + If "-" $ mcf + mcf = Left(mcf, At("-", mcf) - 1) + Endif + Endif + mtert = Left(mtert, mstartiban - 2) + Endif + Endif + If !verifcf(mcf) + mcf = getdigitsfromstring(mrand1, 4, 1, ".") + Endif + If "Detalii " $ mrand1 + mexplicatie = Substr(mrand1, At( "Detalii ", mrand1) + 9, 60) + Else + mexplicatie = Substr(mrand, 5, 60) + Endif + Replace tert With mtert, cf With mcf, iban With miban, explicatie With mexplicatie + Case ":86:" $ mrand .And. isunicredit + mtextoriginal = mtextoriginal + Chr(13) + mrand + mrand1 = Fgets(lnfilehandle) + If mrand1 = ":61:" + mrand = mrand1 + isfaracitire = .T. + Else + mtextoriginal = mtextoriginal + Chr(13) + mrand1 + If "CUI" $ mrand + mrand1 + mrand2 = Fgets(lnfilehandle) + mtextoriginal = mtextoriginal + Chr(13) + mrand2 + If mrand2 = ":61:" + mrand1 = mrand + mrand1 + mrand = mrand2 + isfaracitire = .T. + Else + mrand1 = mrand + mrand1 + mrand2 + mrand2 = Fgets(lnfilehandle) + If mrand2 = ":61:" + mrand = mrand2 + isfaracitire = .T. + Else + mrand1 = mrand1 + mrand2 + mtextoriginal = mtextoriginal + Chr(13) + mrand2 + Endif + Endif + mtert = Alltrim(Left(mrand1, At("CUI", mrand1) - 3)) + mrand1 = Alltrim(Substr(mrand1, At("CUI", mrand1) + 3, 400)) + mcf = Alltrim(Substr(mrand1, 1, At(",", mrand1) - 1)) + mrand1 = Alltrim(Substr(mrand1, At("Acc.", mrand1) + 4, 400)) + miban = Alltrim(Substr(mrand1, 1, At(",", mrand1) - 1)) + mrand1 = Alltrim(Substr(mrand1, At(",", mrand1, 4) + 2, 400)) + mexplicatie = Alltrim(Substr(mrand1, 1, At(",", mrand1) - 1)) + Replace tert With Substr(mtert, 5, 60), cf With mcf, iban With miban, explicatie With mexplicatie, tip_2 With "TRF" + Else + Do Case + Case ":61:" $ mrand1 + isfaracitire = .T. + mrand = mrand1 + mexplicatie = Alltrim(Substr(mrand, 5, 60)) + Case mrand1 = ":" + mexplicatie = Alltrim(Substr(mrand, 5, 60)) + Otherwise + mrand2 = Fgets(lnfilehandle) + " " + mexplicatie = "" + If mrand2 = ":61:" + mrand = mrand2 + isfaracitire = .T. + Else + mexplicatie = mrand2 + mtextoriginal = mtextoriginal + Chr(13) + mrand2 + mrand3 = Fgets(lnfilehandle) + If mrand3 = ":61:" + mrand = mrand3 + isfaracitire = .T. + Else + mtextoriginal = mtextoriginal + Chr(13) + mrand3 + mrand4 = Fgets(lnfilehandle) + If mrand4 = ":61:" + mrand = mrand4 + isfaracitire = .T. + Else + mtextoriginal = mtextoriginal + Chr(13) + mrand4 + If mrand2 = "Fee/" .Or. "Transfond fee" $ mrand2 + mexplicatie = mrand2 + mrand3 + " " + mrand4 + Else + mexplicatie = mrand3 + " " + mrand4 + Endif + Endif + Endif + Endif + Endcase + If mexplicatie = "Fee/" .Or. "Transfond fee" $ mexplicatie .Or. "COMMISSION" $ Upper(mtextoriginal) + Replace tip_2 With "COM", explicatie With "Comision" + Else + Replace explicatie With mexplicatie + Endif + Endif + Endif + Endcase + Replace original With mtextoriginal + Enddo + Fclose(lnfilehandle) + + Endfunc + Function xlsGeneral + Lparameters pselectedfile + Local I, mnrstart, mcf, mtert, mexplicatie, mtipimport, mdataextras + Local oexcel As "Excel.Application" + Local lcData, lcValue, loEx as Exception, llXLS, llXLSX + *:Global jj, mcolcredit, mcoldata, mcoldebit, mcolexplicatie, mcontorinregistrari, mcredit, mdata + *:Global mdataimp, mdatatest, mdebit, mexplicatie1, minceput, mlfinal, mlungime, mnrdoc, mnrdoctest + *:Global mpozsrl, mpozstart1, mpozstart2, msrl, msuma, msumac, msumad, mtext1, mtextoriginal + *:Global mtexttert, oexcelapp, oworkbook + mtipimport = "" + lcMesajEroare = "" + Create Cursor C_TMP_I (data_t C (10), detalii C (250), data_v C (10), debit C (15), credit C (15), cf C (13), tert C (120), nr C (16), iban C (24), comision N (15, 2), documente C(250), comenzi C(250)) + + * Pentru llXLSX nu folosesc automatizare Microsoft Excel + + lcDBF = '' + IF LOWER(JUSTEXT(m.pselectedfile)) = 'xlsx' + llXLS = .F. + llXLSX = .T. + + Create Cursor cXLSXTmp(mfield1 M null,mfield2 M null,mfield3 M null,mfield4 M null,mfield5 M null,mfield6 M null,; + mfield7 M null,mfield8 M null,mfield9 M null,mfield10 M null,mfield11 M null,mfield12 M null,mfield13 M null,; + mfield14 M null,mfield15 M null,mfield16 M null,mfield17 M null,mfield18 M null,mfield19 M null,mfield20 M null,; + mfield21 M null,mfield22 M null,mfield23 M null,mfield24 M null,mfield25 M null,mfield26 M null,mfield27 M null,; + mfield28 M null,mfield29 M null,mfield30 M null) + + TRY + * lcFileName,cCur,lcFFields,lnStartRows,lcSheet,llEmptyCells + appendfromxlsx(m.pselectedfile,'cXLSXTmp','',1,'',.T.) + GO TOP IN cXLSXTmp + Catch To loEx + lcMesajEroare = loEx.message + ENDTRY + + IF RECCOUNT('cXLSXTmp') = 0 + USE IN (SELECT('cXLSXTmp')) + AMESSAGEBOX('Eroare la importul din fisier!' + IIF(!EMPTY(m.lcMesajEroare), CHR(13) + m.lcMesajEroare, ""), 0 + 48, 'Atentie!') + Return .F. + ENDIF + ELSE + Try + oexcel = Createobject("Excel.Application") + Catch To loEx + * + ENDTRY + + If Vartype(oexcel) <> "O" + AMESSAGEBOX( 'Nu aveti instalat Microsoft Excel!', 0 + 48, 'Atentie!') + Return .F. + Endif + oexcel.Visible = .T. + oexcel.sheetsinnewworkbook = 1 + oworkbook = oexcel.workbooks.Open(pselectedfile) + oexcelapp = oexcel.Application + llXLS = .T. + llXLSX = .F. + ENDIF && !m.llXLSX + + mnrstart = 0 + + Do Case + CASE m.llXLSX AND (LOWER(ALLTRIM(cXLSXTmp.mfield1)) = "payout date") + * Import EMAG din XLSX + mtipimport = "eMag" + + INSERT INTO C_TMP_I(data_t, data_v, debit, credit, nr, tert, comenzi) ; + SELECT CAST(mfield1 as C(10)) as data_t, CAST(mfield1 as C(10)) as data_v, CAST("" as C(15)) as debit, ; + CAST(mfield17 as C(15)) as credit, CAST(mfield9 as C(16)) as nr, CAST(mfield12 as C(120)) as tert, CAST(mfield9 as C(250)) as comenzi ; + FROM cXLSXTmp ; + WHERE RECNO() > 1 + + Case m.llXLSX AND (LEFT(LOWER(ALLTRIM(cXLSXTmp.mfield1)),3) = "gls" OR ("referin"$lower(cXLSXTmp.mfield1) AND "colet"$lower(cXLSXTmp.mfield2))) + * Import GLS din XLSX + + mtipimport = "GLS" + + mdataextras = "" + SELECT cXLSXTmp + SCAN + lcValue = ALLTRIM(LOWER(mfield1)) + Do Case + Case "data tranferarii banilor:" $ m.lcValue Or "data transferarii banilor:" $ m.lcValue + lcData = GetRegExp(m.lcValue, '\d{2}\.\d{2}\.\d{4}', 1) + If !Empty(Ctod(m.lcData)) + mdataextras = m.lcData + Endif + + Case Inlist(Lower(Left(m.lcValue, 5)), "numar", "num�r") + mnrstart = RECNO() + Exit + Endcase + ENDSCAN + If mnrstart = 0 + Return + Endif + + Insert Into C_TMP_I (data_t, data_v, debit, credit, detalii, nr, comenzi) ; + SELECT CAST(mfield4 as C(10)) as data_t, CAST(Iif(!Empty(mdataextras), mdataextras, mfield4) as C(10)) as data_v, ; + CAST('' as C(15)) as debit, CAST(Iif(!EMPTY(NVL(mfield5, '')), mfield5, "") as C(15)) as credit, ; + CAST(mfield7 as C(250)) as detalii, CAST(mfield2 as C(16)) as nr, CAST(ALLTRIM(mfield2) as C(250)) as comenzi ; + FROM cXLSXTmp ; + WHERE RECNO() > mnrstart AND !EMPTY(NVL(mfield2,'')) AND !EMPTY(NVL(mfield7,'')) + + + UPDATE C_TMP_I SET tert = Upper(Left(detalii, At(" ", detalii))) WHERE " " $ Alltrim(detalii) AND EMPTY(NVL(tert,'')) + UPDATE C_TMP_I SET tert = Upper(Left(detalii, At(" RO-", detalii))) WHERE " RO-" $ Alltrim(detalii) AND EMPTY(NVL(tert,'')) + + Case m.llXLSX AND (LEFT(LOWER(ALLTRIM(cXLSXTmp.mfield1)),14) = "orasdestinatar") AND (LEFT(LOWER(ALLTRIM(cXLSXTmp.mfield2)),8) = "data awb") + * Import FAN Courier din XLSX + mtipimport = "FAN" + + mdataextras = "" + mnrstart = 1 + + Insert Into C_TMP_I (data_t, data_v, debit, credit, detalii, nr, comenzi) ; + SELECT CAST(mfield2 as C(10)) as data_t, CAST(mfield2 as C(10)) as data_v, ; + CAST('' as C(15)) as debit, CAST(Iif(!EMPTY(NVL(mfield3, '')), mfield3, "") as C(15)) as credit, ; + CAST(mfield6 as C(250)) as detalii, CAST(mfield4 as C(16)) as nr, CAST(ALLTRIM(mfield4) as C(250)) as comenzi ; + FROM cXLSXTmp ; + WHERE RECNO() > mnrstart AND !EMPTY(NVL(mfield3,'')) AND !EMPTY(NVL(mfield6,'')) + + SELECT C_TMP_I + SCAN FOR " CUI " $ UPPER(detalii) OR " CUI:" $ UPPER(detalii) + mcf = getdigitsfromstring(C_TMP_I.detalii, 4, 1, ".") + SELECT C_TMP_I + IF !EMPTY(mcf) + REPLACE cf WITH m.mcf + ENDIF + ENDSCAN + + UPDATE C_TMP_I SET tert = Upper(detalii) WHERE !" CUI " $ UPPER(detalii) AND !" CUI:" $ UPPER(detalii) + UPDATE C_TMP_I SET tert = Upper(Left(detalii, At(" CUI", detalii))) WHERE EMPTY(NVL(TERT, '')) AND " CUI" $ UPPER(detalii) && CIOBANU ANAMARIA-CRISTINA CUI 33930204 L + + + Case m.llXLS AND (Type( "oExcelApp.Cells(1,1).Value" ) = "C" .And. Lower(Left(oexcelapp.cells(1, 1).Value, 11)) = "payout date") + * automatizare Excel pentru fisier EMAG XLSX + * Nu se intra pe ramura aceasta pentru ca intra pe importul fara automatizare + mtipimport = "eMag" + + I = 2 + Do While !Isnull(oexcelapp.cells(I, 1).Value) .And. !Empty(oexcelapp.cells(I, 1).Value) + Insert Into C_TMP_I (data_t, data_v, debit, credit, nr, tert) Values (oexcelapp.cells(I, 1).Value, oexcelapp.cells(I, 1).Value, "", Str(oexcelapp.cells(I, 17).Value, 15, 2), Alltrim(Str(oexcelapp.cells(I, 9).Value, 16, 0)), Alltrim(oexcelapp.cells(I, 12).Value)) + I = I + 1 + ENDDO + + Case m.llXLS AND Type( "oExcelApp.Cells(1,1).Value" ) = "C" .And. Lower(Left(oexcelapp.cells(1, 1).Value, 3)) = "gls" + * automatizare Excel pentru fisier GSL XLS + mtipimport = "GLS" + I = 1 + mdataextras = "" + For I = 1 To 100 + lcValue = Alltrim(Lower(Transform(oexcelapp.cells(I, 1).Value))) + Do Case + Case "data tranferarii banilor:" $ m.lcValue Or "data transferarii banilor:" $ m.lcValue + lcData = GetRegExp(m.lcValue, '\d{2}\.\d{2}\.\d{4}', 1) + If !Empty(Ctod(m.lcData)) + mdataextras = m.lcData + Endif + *!* If !Empty(Ctod(Substr(oexcelapp.cells(i, 1).Value, 27, 10))) + *!* mdataextras = Substr(oexcelapp.cells(i, 1).Value, 27, 10) + *!* Endif + *!* CASE "cont bancar nr.:" $ m.lcValue + *!* This.cIBAN = UPPER(ALLTRIM(SUBSTR(m.lcValue, 17))) + + Case Inlist(Lower(Left(m.lcValue, 5)), "numar", "num�r") + mnrstart = I + Exit + + Endcase + Endfor + If mnrstart = 0 + Return + Endif + I = mnrstart + 1 + Do While !Isnull(oexcelapp.cells(I, 2).Value) .And. !Empty(oexcelapp.cells(I, 2).Value) + If !Isnull(oexcelapp.cells(I, 7).Value) + Insert Into C_TMP_I (data_t, data_v, debit, credit, detalii, nr, documente) ; + Values (oexcelapp.cells(I, 4).Value, ; + Iif( !Empty(mdataextras), mdataextras, oexcelapp.cells(I, 4).Value), "", ; + Iif( !Isnull(oexcelapp.cells(I, 5).Value), Str(oexcelapp.cells(I, 5).Value, 15, 2), ""), ; + oexcelapp.cells(I, 7).Value, ; + Alltrim(Str(oexcelapp.cells(I, 2).Value)), ; + Alltrim(Transform(oexcelapp.cells(I, 1).Value))) + + If " " $ Alltrim(C_TMP_I.detalii) + Replace tert With Upper(Left(C_TMP_I.detalii, At(" ", C_TMP_I.detalii))) + Endif + Endif + I = I + 1 + ENDDO + + Case m.llXLS AND (Type( "oExcelApp.Cells(6,14).Value" ) = "C" .And. Upper(Left(oexcelapp.cells(6, 14).Value, 11)) = "EXTRAS CONT") + mtipimport = "ProCredit" + I = 44 + Do While !Isnull(oexcelapp.cells(I, 10).Value) .And. !Empty(oexcelapp.cells(I, 10).Value) + msumad = oexcelapp.cells(I, 19).Value + msumac = oexcelapp.cells(I, 21).Value + mdata = oexcelapp.cells(I, 10).Value + mexplicatie = oexcelapp.cells(I, 13).Value + If !Isnull(mexplicatie) + mtert = "" + If " SRL " $ mexplicatie .Or. " SA " $ mexplicatie + If " SRL " $ mexplicatie + msrl = " SRL" + Else + msrl = " SA " + Endif + mpozsrl = At(msrl, mexplicatie) + 4 + mpozstart1 = At(" ", mexplicatie, 2) + 1 + mpozstart2 = At(" ", mexplicatie, 3) + 1 + If getnumberincrement(Substr(mexplicatie, mpozstart1, mpozstart2 - mpozstart1)) > 0 + mpozstart1 = mpozstart2 + Endif + If mpozsrl - mpozstart1 > 0 + mtert = Substr(mexplicatie, mpozstart1, mpozsrl - mpozstart1) + mexplicatie = Substr(mexplicatie, mpozsrl + 1, 150) + Endif + Endif + Insert Into C_TMP_I (data_t, data_v, debit, credit, nr, tert, detalii, iban) Values (mdata, mdata, Iif( !Isnull(msumad), msumad, ""), Iif( !Isnull(msumac), msumac, ""), "", mtert, mexplicatie, getibanfromstring(mexplicatie, 1)) + Endif + I = I + 1 + Enddo + Case m.llXLS AND (Type( "oExcelApp.Cells(2,2).Value" ) = "C" .And. Upper(Left(oexcelapp.cells(2, 2).Value, 15)) = "PATRIA BANK S.A") + mtipimport = "Patria" + I = 35 + mcontorinregistrari = 1 + Do While mcontorinregistrari <= 10 + msumad = oexcelapp.cells(I, 16).Value + msumac = oexcelapp.cells(I, 21).Value + mdata = oexcelapp.cells(I, 4).Value + mexplicatie = oexcelapp.cells(I, 9).Value + If !Isnull(mdata) + Insert Into C_TMP_I (data_t, data_v, debit, credit, nr, tert, detalii) Values (mdata, mdata, Iif( !Isnull(msumad), msumad, ""), Iif( !Isnull(msumac), msumac, ""), "", "", mexplicatie) + mcontorinregistrari = 1 + Else + mcontorinregistrari = mcontorinregistrari + 1 + Endif + I = I + 1 + Enddo + Case m.llXLS AND (Type( "oExcelApp.Cells(5,1).Value" ) = "C" .And. Lower(Left(oexcelapp.cells(5, 1).Value, 20)) = "soldul depus �nainte") + mtipimport = "Viva" + I = 6 + Do While !Isnull(oexcelapp.cells(I, 1).Value) .And. !Empty(oexcelapp.cells(I, 1).Value) + msuma = oexcelapp.cells(I, 5).Value + mdata = Dtoc(oexcelapp.cells(I, 1).Value) + Insert Into C_TMP_I (data_t, data_v, debit, credit, nr, tert) Values (mdata, mdata, Iif(msuma > 0, Str(msuma, 15, 2), ""), Iif(msuma < 0, Str(msuma, 15, 2), ""), "", Substr(oexcelapp.cells(I, 3).Value, At(" - ", oexcelapp.cells(I, 3).Value) + 3, 100)) + I = I + 1 + Enddo + Case m.llXLS AND (Type( "oExcelApp.Cells(1,1).Value" ) = "C" .And. (Lower(Left(oexcelapp.cells(1, 1).Value, 15)) = "daily statement" .Or. Lower(Left(oexcelapp.cells(1, 1).Value, 17)) = "account statement")) + mtipimport = "PNB" + I = 12 + Do While !Isnull(oexcelapp.cells(I, 1).Value) .And. !Empty(oexcelapp.cells(I, 1).Value) .And. Type( "oExcelApp.Cells(i,5).Value" ) = "N" + Insert Into C_TMP_I (data_t, data_v, detalii) Values (oexcelapp.cells(I, 1).Value, oexcelapp.cells(I, 2).Value, Alltrim(oexcelapp.cells(I, 3).Value)) + If oexcelapp.cells(I, 5).Value < 0 + Replace debit With Alltrim(Str(oexcelapp.cells(I, 5).Value, 15, 2)) + Else + Replace credit With Alltrim(Str(oexcelapp.cells(I, 5).Value, 15, 2)) + Endif + If oexcelapp.cells(I, 4).Value = "TRF" + mlfinal = At( " Bank reference", oexcelapp.cells(I, 3).Value) + minceput = At( " ", oexcelapp.cells(I, 3).Value, 3) + If mlfinal > 0 .And. minceput > 0 + Replace tert With Substr(oexcelapp.cells(I, 3).Value, minceput + 1, mlfinal - minceput) + Endif + Endif + Replace iban With getibanfromstring(oexcelapp.cells(I, 3).Value, 1) + Replace cf With getdigitsfromstring(oexcelapp.cells(I, 3).Value, 4, 1, ".") + I = I + 1 + Enddo + + Case m.llXLS AND Type( "oExcelApp.Cells(1,1).Value" ) = "C" .And. Lower(Left(oexcelapp.cells(1, 1).Value, 22)) = "nume client / companie" + mtipimport = "SameDay" + oexcelapp = oexcel.activeworkbook.sheets(2) + I = 2 + If Lower(Left(oexcelapp.cells(1, 9).Value, 18)) = "ramburs transferat" + Do While !Isnull(oexcelapp.cells(I, 11).Value) .And. !Empty(oexcelapp.cells(I, 11).Value) + Insert Into C_TMP_I (data_t, data_v, debit, credit, detalii, nr, tert) Values (oexcelapp.cells(I, 10).Value, oexcelapp.cells(I, 11).Value, "", Iif( !Isnull(oexcelapp.cells(I, 8).Value), Str(oexcelapp.cells(I, 8).Value, 15, 2), ""), Alltrim(oexcelapp.cells(I, 3).Value) + " " + Alltrim(oexcelapp.cells(I, 4).Value) + " " + Alltrim(oexcelapp.cells(I, 5).Value), Alltrim(oexcelapp.cells(I, 1).Value), Alltrim(oexcelapp.cells(I, 2).Value)) + I = I + 1 + Enddo + Else + Do While !Isnull(oexcelapp.cells(I, 10).Value) .And. !Empty(oexcelapp.cells(I, 10).Value) + Insert Into C_TMP_I (data_t, data_v, debit, credit, detalii, nr, tert) Values (oexcelapp.cells(I, 9).Value, oexcelapp.cells(I, 10).Value, "", Iif( !Isnull(oexcelapp.cells(I, 8).Value), Str(oexcelapp.cells(I, 8).Value, 15, 2), ""), Alltrim(oexcelapp.cells(I, 3).Value) + " " + Alltrim(oexcelapp.cells(I, 4).Value) + " " + Alltrim(oexcelapp.cells(I, 5).Value), Alltrim(oexcelapp.cells(I, 1).Value), Alltrim(oexcelapp.cells(I, 2).Value)) + I = I + 1 + Enddo + Endif + + Case m.llXLSX AND (LEFT(LOWER(ALLTRIM(cXLSXTmp.mfield1)),3) = "awb") AND (LEFT(LOWER(ALLTRIM(cXLSXTmp.mfield2)),15) = "nume destinatar") + + * Import SameDay din XLSX + mtipimport = "SameDay" + + mdataextras = "" + mnrstart = 1 + + Insert Into C_TMP_I (data_t, data_v, debit, credit, detalii, nr, comenzi, tert) ; + SELECT CAST(mfield9 as C(10)) as data_t, CAST(mfield10 as C(10)) as data_v, ; + CAST('' as C(15)) as debit, CAST(Iif(!EMPTY(NVL(mfield8, '')), mfield8, "") as C(15)) as credit, ; + CAST(ALLTRIM(NVL(mfield2, '')) + ' ' + ALLTRIM(NVL(mfield3, '')) + ' ' + ALLTRIM(NVL(mfield4, '')) as C(250)) as detalii, CAST(mfield1 as C(16)) as nr, CAST(ALLTRIM(mfield1) as C(250)) as comenzi, ; + CAST(mfield2 as C(100)) as tert ; + FROM cXLSXTmp ; + WHERE RECNO() > mnrstart AND !EMPTY(NVL(mfield8,'')) AND !EMPTY(NVL(mfield2,'')) + + Case m.llXLS AND Type( "oExcelApp.Cells(1,1).Value" ) = "C" .And. Lower(Left(oexcelapp.cells(1, 1).Value, 10)) = "merchantid" + mtipimport = "EuPlatesc" + I = 2 + Do While !Isnull(oexcelapp.cells(I, 10).Value) .And. !Empty(oexcelapp.cells(I, 10).Value) + mdataimp = "" + mdatatest = oexcelapp.cells(I, 10).Value + Do Case + Case Type("mDataTest") = "T" + mdataimp = Dtoc(mdatatest) + Case Type("mDataTest") = "D" + mdataimp = Left(Ttoc(mdatatest), 10) + Otherwise + mdataimp = mdatatest + Endcase + mnrdoc = "" + mnrdoctest = oexcelapp.cells(I, 2).Value + If Type("mNrDocTest") = "N" + mnrdoc = Alltrim(Str(mnrdoctest, 15, 0)) + Else + mnrdoc = mnrdoctest + Endif + Insert Into C_TMP_I (data_t, data_v, debit, credit, detalii, nr, tert, comision) Values (mdataimp, mdataimp, Iif( !Isnull(oexcelapp.cells(I, 11).Value), Alltrim(Str(oexcelapp.cells(I, 11).Value, 15, 2)), ""), Iif( !Isnull(oexcelapp.cells(I, 6).Value), Alltrim(Str(oexcelapp.cells(I, 6).Value, 15, 2)), ""), Alltrim(oexcelapp.cells(I, 3).Value), mnrdoc, Iif( !Isnull(oexcelapp.cells(I, 4).Value), Alltrim(oexcelapp.cells(I, 4).Value), ""), Iif( !Isnull(oexcelapp.cells(I, 13).Value), oexcelapp.cells(I, 13).Value, 0)) + I = I + 1 + Enddo + Case m.llXLS AND Type( "oExcelApp.Cells(1,1).Value" ) = "C" .And. Lower(Left(oexcelapp.cells(1, 1).Value, 13)) = "expeditie tur" + mtipimport = "Cargus" + I = 3 + Do While !Isnull(oexcelapp.cells(I, 12).Value) .And. !Empty(oexcelapp.cells(I, 12).Value) + Insert Into C_TMP_I (data_t, data_v, debit, credit, detalii, nr, tert) Values (Dtoc(oexcelapp.cells(I, 9).Value), Dtoc(oexcelapp.cells(I, 12).Value), "", Iif( !Isnull(oexcelapp.cells(I, 11).Value), Str(oexcelapp.cells(I, 11).Value, 15, 2), ""), "Data " + Dtoc(oexcelapp.cells(I, 9).Value) + " Nr chit. " + Alltrim(oexcelapp.cells(I, 10).Value), Alltrim(oexcelapp.cells(I, 13).Value), Alltrim(oexcelapp.cells(I, 5).Value)) + I = I + 1 + Enddo + Case m.llXLS AND Type( "oExcelApp.Cells(1,1).Value" ) = "C" .And. Lower(Left(oexcelapp.cells(1, 1).Value, 22)) = "chitanta cont colector" + mtipimport = "Cargus" + I = 1 + For I = 1 To 100 + If oexcelapp.cells(I, 1).Value = "Data" + mnrstart = I + Exit + Endif + Endfor + If mnrstart = 0 + Return + Endif + I = mnrstart + 1 + If Type( "oExcelApp.Cells(i,8).Value" ) = "T" + Do While !Isnull(oexcelapp.cells(I, 8).Value) .And. !Empty(oexcelapp.cells(I, 8).Value) + Insert Into C_TMP_I (data_t, data_v, debit, credit, detalii, nr, tert) Values (Dtoc(oexcelapp.cells(I, 1).Value), Dtoc(oexcelapp.cells(I, 8).Value), "", Iif( !Isnull(oexcelapp.cells(I, 3).Value), Str(oexcelapp.cells(I, 3).Value, 15, 2), ""), "Data " + Dtoc(oexcelapp.cells(I, 1).Value) + " Serie chit. " + Alltrim(oexcelapp.cells(I, 2).Value) + " Serie deco. " + Alltrim(oexcelapp.cells(I, 5).Value), Alltrim(oexcelapp.cells(I, 9).Value), Alltrim(oexcelapp.cells(I, 7).Value)) + I = I + 1 + Enddo + Else + Do While !Isnull(oexcelapp.cells(I, 9).Value) .And. !Empty(oexcelapp.cells(I, 9).Value) + Insert Into C_TMP_I (data_t, data_v, debit, credit, detalii, nr, tert) Values (Dtoc(oexcelapp.cells(I, 1).Value), Dtoc(oexcelapp.cells(I, 9).Value), "", Iif( !Isnull(oexcelapp.cells(I, 3).Value), Str(oexcelapp.cells(I, 3).Value, 15, 2), ""), "Data " + Dtoc(oexcelapp.cells(I, 1).Value) + " Serie chit. " + Alltrim(oexcelapp.cells(I, 2).Value) + " Serie deco. " + Alltrim(oexcelapp.cells(I, 6).Value), Alltrim(oexcelapp.cells(I, 10).Value), Alltrim(oexcelapp.cells(I, 8).Value)) + I = I + 1 + Enddo + Endif + + Case m.llXLSX AND ((LEFT(LOWER(ALLTRIM(cXLSXTmp.mfield1)),8) = "perioada") OR (LEFT(LOWER(ALLTRIM(cXLSXTmp.mfield1)),20) = "data generare extras")) + * Import RAIFFEISEN din XLSX + SELECT cXLSXTmp + LOCATE FOR 'RAIFFEISEN'$mfield2 + IF !FOUND() + AMessagebox( "Format fisier incorect.", 16, "Import extrase" ) + Return .F. + ENDIF + + LOCATE FOR ATC('Cod IBAN:', mfield1) > 0 + IF FOUND() + This.cIBAN = UPPER(ALLTRIM(mfield2)) + ENDIF + + mtipimport = "RAIFFEISEN" + + + + mdataextras = "" + mnrstart = 18 + + Insert Into C_TMP_I (data_t, data_v, debit, credit, detalii, nr, comenzi) ; + SELECT CAST(mfield1 as C(10)) as data_t, CAST(mfield2 as C(10)) as data_v, ; + CAST(Iif(!EMPTY(NVL(mfield3, '')), mfield3, "") as C(15)) as debit, CAST(Iif(!EMPTY(NVL(mfield4, '')), mfield4, "") as C(15)) as credit, ; + CAST(mfield12 as C(250)) as detalii, CAST(mfield9 as C(120)) as tert, CAST(ALLTRIM(mfield11) as C(24)) as iban ; + FROM cXLSXTmp ; + WHERE RECNO() > mnrstart AND !EMPTY(NVL(mfield1,'')) AND !EMPTY(NVL(mfield2,'')) + + SELECT C_TMP_I + SCAN FOR " CUI " $ UPPER(detalii) OR " CUI:" $ UPPER(detalii) + mcf = getdigitsfromstring(C_TMP_I.detalii, 4, 1, ".") + SELECT C_TMP_I + IF !EMPTY(mcf) + REPLACE cf WITH m.mcf + ENDIF + ENDSCAN + + Case m.llXLS AND (Type( "oExcelApp.Cells(1,1).Value" ) = "C" .And. Lower(Left(oexcelapp.cells(1, 1).Value, 21)) = "data generare extras:" .Or. (Type( "oExcelApp.Cells(2,1).Value" ) = "C" .And. Lower(Left(oexcelapp.cells(2, 1).Value, 21)) = "data generare extras:" )) + + mtipimport = "RAIFFEISEN" + I = 1 + For I = 1 To 100 + If Lower(Left(oexcelapp.cells(I, 1).Value, 17)) = "data inregistrare" + mnrstart = I + Exit + Endif + Endfor + If mnrstart = 0 + Return + Endif + I = mnrstart + 2 + Do While !Isnull(oexcelapp.cells(I, 2).Value) .And. !Empty(oexcelapp.cells(I, 2).Value) + If !Isnull(oexcelapp.cells(I, 12).Value) + Insert Into C_TMP_I (data_t, data_v, debit, credit, detalii, cf, tert, iban, nr) Values (oexcelapp.cells(I, 1).Value, oexcelapp.cells(I, 2).Value, Iif( !Isnull(oexcelapp.cells(I, 3).Value), Str(oexcelapp.cells(I, 3).Value, 15, 2), ""), Iif( !Isnull(oexcelapp.cells(I, 4).Value), Str(oexcelapp.cells(I, 4).Value, 15, 2), ""), oexcelapp.cells(I, 12).Value, Iif( !Isnull(oexcelapp.cells(I, 6).Value), oexcelapp.cells(I, 6).Value, ""), Iif( !Isnull(oexcelapp.cells(I, 9).Value), oexcelapp.cells(I, 9).Value, ""), Iif( !Isnull(oexcelapp.cells(I, 11).Value), oexcelapp.cells(I, 11).Value, ""), Iif( !Isnull(oexcelapp.cells(I, 5).Value), oexcelapp.cells(I, 5).Value, "")) + Endif + I = I + 1 + Enddo + CASE m.llXLS + mtipimport = "LIBRA" + I = 1 + For I = 1 To 100 + If Type( "oExcelApp.Cells(i,2).Value" ) = "C" .And. Lower(Left(oexcelapp.cells(I, 2).Value, 4)) = "data" + mnrstart = I + Exit + Endif + Endfor + If mnrstart = 0 + Messagebox( "Format XLS incorect.", 16, "Import extrase" ) + Return .F. + Endif + I = mnrstart + 1 + mcoldata = 0 + mcolexplicatie = 0 + mcoldebit = 0 + mcolcredit = 0 + For jj = 1 To 18 + If mcoldata = 0 .And. Type( "oExcelApp.Cells(mNrStart,jj).Value" ) = "C" .And. Lower(Left(oexcelapp.cells(mnrstart, jj).Value, 4)) = "data" + mcoldata = jj + Loop + Endif + If jj > mcoldata .And. mcoldata <> 0 .And. mcolexplicatie = 0 .And. Type( "oExcelApp.Cells(mNrStart,jj).Value" ) = "C" .And. Lower(Left(oexcelapp.cells(mnrstart, jj).Value, 9)) = "descriere" + mcolexplicatie = jj + Loop + Endif + If jj > mcolexplicatie .And. mcoldata <> 0 .And. mcolexplicatie <> 0 .And. mcoldebit = 0 .And. Type( "oExcelApp.Cells(mNrStart,jj).Value" ) = "C" .And. Lower(Left(oexcelapp.cells(mnrstart, jj).Value, 5)) = "debit" + mcoldebit = jj + Loop + Endif + If jj > mcoldebit .And. mcoldata <> 0 .And. mcolexplicatie <> 0 .And. mcoldebit <> 0 .And. mcolcredit = 0 .And. Type( "oExcelApp.Cells(mNrStart,jj).Value" ) = "C" .And. Lower(Left(oexcelapp.cells(mnrstart, jj).Value, 6)) = "credit" + mcolcredit = jj + Endif + Endfor + If mcoldata = 0 .Or. mcolexplicatie = 0 .Or. mcoldebit = 0 .Or. mcolcredit = 0 + Messagebox( "Format XLS incorect.", 16, "Import extrase" ) + Return .F. + Endif + Do While !Isnull(oexcelapp.cells(I, mcoldata).Value) .And. !Empty(oexcelapp.cells(I, mcoldata).Value) + If Type( "oExcelApp.Cells(i,mColDebit).Value" ) = "N" + mdebit = Alltrim(Str(oexcelapp.cells(I, mcoldebit).Value, 15, 2)) + Else + mdebit = Alltrim(oexcelapp.cells(I, mcoldebit).Value) + Endif + If Type( "oExcelApp.Cells(i,mColCredit).Value" ) = "N" + mcredit = Alltrim(Str(oexcelapp.cells(I, mcolcredit).Value, 15, 2)) + Else + mcredit = Alltrim(oexcelapp.cells(I, mcolcredit).Value) + Endif + If !Isnull(mdebit) .And. !Isnull(mcredit) + Insert Into C_TMP_I (data_t, detalii, data_v, debit, credit) Values (oexcelapp.cells(I, mcoldata).Value, oexcelapp.cells(I, mcolexplicatie).Value, oexcelapp.cells(I, mcoldata).Value, mdebit, mcredit) + Endif + I = I + 1 + ENDDO + OTHERWISE + AMessagebox( "Format fisier incorect.", 16, "Import extrase" ) + Return .F. + ENDCASE + + USE IN (SELECT('cXLSXTmp')) + + + UPDATE C_TMP_I SET data_v = TRANSFORM(ExcelSerialNumber2Date(INT(VAL(data_v)))) WHERE !('.'$data_v OR '/'$data_v) + UPDATE C_TMP_I SET data_t = TRANSFORM(ExcelSerialNumber2Date(INT(VAL(data_t)))) WHERE !('.'$data_v OR '/'$data_t) + Select C_TMP_I + Scan For !Empty(data_v) + Select c_iex + Insert Into c_iex (Data, documente, comenzi) Values (setdategerman(C_TMP_I.data_v), C_TMP_I.documente, C_TMP_I.comenzi) + If !Empty(C_TMP_I.debit) .And. Val(C_TMP_I.debit) <> 0 + Replace tip With "D" + msuma = This.setsuma(C_TMP_I.debit) + Else + Replace tip With "C" + If mtipimport = "eMag" + msuma = Val(C_TMP_I.credit) + Else + msuma = This.setsuma(C_TMP_I.credit) + Endif + Endif + Replace suma With msuma + + mexplicatie = Alltrim(C_TMP_I.detalii) + mexplicatie = Strtran(mexplicatie, " ", " ") + mtert = "" + mcf = "" + + Do Case + Case LEFT(ALLTRIM(LOWER(NVL(mexplicatie,''))), 8) = "comision" OR ; + 'comision-atm'$LOWER(NVL(mexplicatie,'')) OR ; + 'comision procesare ridicare numerar'$LOWER(NVL(mexplicatie,'')) OR ; + 'pachet izi'$LOWER(NVL(mexplicatie,'')) OR ; + 'abonament'$LOWER(NVL(mexplicatie,'')) + Replace tip_2 With This.cTipComisioane + + Case 'retragere de numerar'$ALLTRIM(LOWER(NVL(mexplicatie,''))) OR ; + 'depunere de numerar'$ALLTRIM(LOWER(NVL(mexplicatie,''))) OR ; + 'depunere numerar'$ALLTRIM(LOWER(NVL(mexplicatie,''))) OR ; + 'retragere numerar'$ALLTRIM(LOWER(NVL(mexplicatie,''))) + Replace tip_2 With This.cTipDepunere + + Case 'transfer intern'$ALLTRIM(LOWER(NVL(mexplicatie,''))) OR ; + 'dob.dep'$ALLTRIM(LOWER(NVL(mexplicatie,''))) + Replace tip_2 With This.cTipTransfer + + Otherwise + Replace tip_2 With "" + ENDCASE + + If "Detalii: " $ mexplicatie + mexplicatie1 = Substr(mexplicatie, Atc( "Detalii: ", mexplicatie) + 9, 100) + mtexttert = Left(mexplicatie, Atc( "Detalii: ", mexplicatie) - 1) + Else + mexplicatie1 = mexplicatie + mtexttert = mexplicatie + Endif + If Empty(C_TMP_I.tert) + If c_iex.tip = "D" .And. "beneficiar: " $ Lower(mtexttert) + mtext1 = Substr(mtexttert, Atc( "Beneficiar: ", mtexttert) + 12, 60) + mlungime = Min(Iif(Occurs( " RO", Upper(mtext1)) > 0, Atc( " RO", mtext1, Occurs( " RO", Upper(mtext1))), 60), Iif( "cont benef" $ Lower(mtext1), Atc( "Cont benef", mtext1), 60), Iif("platitor" $ Lower(mtext1), Atc("Platitor", mtext1), 60)) + mlungime = Max(mlungime, 7) - 1 + mtert = Left(mtext1, mlungime) + Else + If "platitor: " $ Lower(mtexttert) + mtext1 = Substr(mtexttert, Atc( "Platitor: ", mtexttert) + 10, 60) + mlungime = Iif(Occurs( " RO", Upper(mtext1)) > 0, Atc( " RO", mtext1, Occurs( " RO", Upper(mtext1))), 60) + mlungime = Max(mlungime, 7) - 1 + mtert = Left(mtext1, mlungime) + Endif + Endif + Else + mtert = Alltrim(Upper(C_TMP_I.tert)) + Endif + + mcf = getdigitsfromstring(C_TMP_I.detalii, 13, 2, ".") + If Empty(mcf) + If Empty(C_TMP_I.cf) .And. !Inlist(mtipimport, "GLS", "FAN", "Cargus", "PNB", "eMAG", "SameDay", "Patria", "ProCredit") + mcf = getdigitsfromstring(C_TMP_I.detalii, 4, 1, ".") + Else + mcf = Alltrim(C_TMP_I.cf) + Endif + Endif + mtextoriginal = C_TMP_I.data_v + " " + Chr(13) + Alltrim(C_TMP_I.debit) + Alltrim(C_TMP_I.credit) + " " + Chr(13) + Alltrim(C_TMP_I.nr) + " " + Alltrim(C_TMP_I.cf) + Chr(13) + Alltrim(C_TMP_I.tert) + " " + Alltrim(C_TMP_I.iban) + " " + Chr(13) + Alltrim(C_TMP_I.detalii) + " " + Replace tert With Upper(mtert), cf With mcf, explicatie With mexplicatie1, original With mtextoriginal, nr With C_TMP_I.nr, iban With C_TMP_I.iban + If mtipimport = "eMag" .And. !Empty(c_iex.nr) + Select match + Locate For inf_suplm = Alltrim(c_iex.nr) + If Found() + Replace id_pi With c_iex.Id + If Empty(c_iex.cod) .Or. c_iex.cod <> match.cod + Replace cod With match.cod, tert With match.denumire In c_iex + Endif + Select match + Replace achitat With c_iex.suma + This.actsume() + Replace asociat With 1 In c_iex + Endif + Endif + Endscan + Select data_v, Sum(comision) As comision From C_TMP_I Group By data_v Into Cursor C_COMISON + Scan For comision > 0 + Insert Into c_iex (Data, suma, tip, tip_2) Values (setdategerman(C_COMISON.data_v), C_COMISON.comision, "D", "COM") + Endscan + + Use In (Select('C_TMP_I')) + IF EMPTY(this.cIBAN) + This.cIBAN = m.mtipimport + ENDIF + Endfunc + * + Procedure csvFirstBank + Lparameters pselectedfile + Local mtextoriginal + This.cIBAN = 'FirstBank' + mtextoriginal = "" + mfilestr = Filetostr(pselectedfile) + mfilestr = Strtran(mfilestr, '=', '') + If "Transaction History" $ mfilestr .Or. "Istoric Tranzac" $ mfilestr + Create Cursor C_TMP_I (data_t C (10), data_v C (10), tip_op C (100), referinta C (200), explicatie C (200), suma C (15)) + Else + Create Cursor C_TMP_I (data_t C (10), data_v C (10), suma C (15), referinta C (200), tip_op C (100), explicatie C (200)) + Endif + Strtofile(mfilestr, m.gcTempPath + "FirstBankTMP.csv") + Append From (m.gcTempPath + "FirstBankTMP.csv") Delimited With Character ";" + + Delete For Empty(Ctod(C_TMP_I.data_t)) + Scan For !Empty(data_t) .And. !Empty(setdategerman(C_TMP_I.data_t)) + Select c_iex + Insert Into c_iex (Data) Values (setdategerman(C_TMP_I.data_t)) + If "-" $ C_TMP_I.suma + Replace tip With "D" + Else + Replace tip With "C" + Endif + Replace suma With This.setsuma(C_TMP_I.suma) + Do Case + Case "comis" $ Lower(C_TMP_I.tip_op) + Replace tip_2 With "COM" + Otherwise + Replace tip_2 With "" + Endcase + mexplicatie = C_TMP_I.explicatie + mtert = "" + miban = "" + If Occurs(",", mexplicatie) > 0 + mtert = Upper(Left(mexplicatie, At(",", mexplicatie) - 1)) + Endif + miban = getibanfromstring(mexplicatie, 1) + If !Empty(miban) + mtert = Left(mexplicatie, At(miban, mexplicatie) - 1) + mexplicatie = Substr(mexplicatie, At(miban, mexplicatie) + 25, 100) + Endif + Replace tert With mtert, iban With miban + mtextoriginal = C_TMP_I.data_t + " " + Chr(13) + C_TMP_I.suma + " " + Chr(13) + Alltrim(C_TMP_I.tip_op) + " " + Chr(13) + Alltrim(C_TMP_I.explicatie) + Replace explicatie With mexplicatie, original With mtextoriginal + Endscan + Endproc + * + Procedure csvOTP + Lparameters pselectedfile + Local mtextoriginal, mexplicatie, mtert, miban, mstarttert, mstartcont, mdataop + This.cIBAN = 'OTP' + mtextoriginal = "" + Create Cursor C_TMP_I (detalii1 C (200), data_v C (10), data_op C (10), detalii2 C (200), debit C (15), credit C (15)) + mfilestr = Filetostr(pselectedfile) + mlen = Len(mfilestr) + If Occurs('""', mfilestr) > 20 + mfilestr = EliminVirguleDintreGhilimele(mfilestr, '""') + mfilestr = Strtran(mfilestr, '"', '') + Strtofile(mfilestr, m.gcTempPath + "OTPTMP.csv") + Append From (m.gcTempPath + "OTPTMP.csv") Csv + Else + Append From (mSelectedFile) Csv + Endif + Scan For !Empty(data_op) + Select c_iex + mdataop = Substr(C_TMP_I.data_op, 7, 2) + "." + Substr(C_TMP_I.data_op, 5, 2) + "." + Substr(C_TMP_I.data_op, 1, 4) + Insert Into c_iex (Data) Values (Ctod(mdataop)) + mtert = "" + miban = "" + mstarttert = 0 + mexplicatie = Alltrim(C_TMP_I.detalii2) + If EMPTY(VAL(Alltrim(C_TMP_I.credit))) + Replace tip With "D" + msuma = Abs(Val(C_TMP_I.debit)) + If "Ben:" $ C_TMP_I.detalii2 + mstarttert = At("Ben:", mexplicatie) + 5 + mstartcont = At("Cont:", mexplicatie) + 6 + mtert = Substr(mexplicatie, mstarttert, mstartcont - mstarttert - 8) + miban = Substr(mexplicatie, mstartcont, 24) + Endif + Else + Replace tip With "C" + msuma = Abs(Val(C_TMP_I.credit)) + If "Platitor:" $ C_TMP_I.detalii2 + mstarttert = At("Platitor:", mexplicatie) + 10 + mstartcont = At("Cont:", mexplicatie) + 6 + mtert = Substr(mexplicatie, mstarttert, mstartcont - mstarttert - 8) + miban = Substr(mexplicatie, mstartcont, 24) + Endif + Endif + Replace suma With msuma + Do Case + Case "comision" $ Lower(C_TMP_I.detalii2) + Replace tip_2 With "COM" + Otherwise + Replace tip_2 With "" + Endcase + mtextoriginal = Alltrim(C_TMP_I.detalii1) + Chr(13) + Alltrim(C_TMP_I.data_op) + " " + Chr(13) + Iif(C_TMP_I.debit <> "0.00", Alltrim(C_TMP_I.debit), Alltrim(C_TMP_I.credit)) + " " + Chr(13) + Alltrim(C_TMP_I.detalii2) + Replace nr With Alltrim(Str(Recno())), tert With Upper(mtert), explicatie With mexplicatie, original With mtextoriginal, iban With miban + Endscan + Endproc + * + + Procedure xmlAsc + + Lparameters pselectedfile + Local oxml, orootnode, orootnodecontext, orootnodecontmisc, ij, npass, onode, nnumlinii, nchildlen, mtextoriginal + This.cIBAN = 'XML' + mtextoriginal = "" + oxml = Createobject('MSXML2.DomDocument') + oxml.Async = .F. + oxml.Load(pselectedfile) + orootnode = oxml.documentelement + If Isnull(orootnode) + AMessagebox( "Fisier de XML invalid.", 16, "Eroare import extrase" ) + Return + Endif + Do Case + Case orootnode.nodename = "document" + orootnodecontext = orootnode.childnodes.Item(2) + If orootnodecontext.nodename <> "movements" + Messagebox( "Format XML invalid.", 64, "Atentie...") + Return + Endif + nnumliniicontext = orootnodecontext.childnodes.Length + For ij = 0 To (nnumliniicontext - 1) + orootnodecontmisc = orootnodecontext.childnodes.Item(ij) + If orootnodecontmisc.nodename <> "movement" + Loop + Endif + nnumlinii = orootnodecontmisc.childnodes.Length + m.cf = "" + m.tert = "" + m.iban = "" + m.suma = 0 + m.explicatie = "" + m.data = {} + m.debit = "" + m.credit = "" + m.suma = "" + m.original = "" + For npass = 0 To (nnumlinii - 1) + olinienode = orootnodecontmisc.childnodes.Item(npass) + cvalue = olinienode.Text + cparentname = olinienode.nodename + Do Case + Case cparentname == "ref" + m.nr = cvalue + Case cparentname == "value_date" + m.data = setdategerman(cvalue) + Case cparentname = "debit" + m.debit = Val(cvalue) + Case cparentname = "credit" + m.credit = Val(cvalue) + Case cparentname == "details" + m.explicatie = cvalue + Endcase + If !Empty(cvalue) + m.original = M.original + cvalue + Chr(13) + Endif + Endfor + Select c_iex + If m.data >= Ctod("01.01.2015") + Insert Into c_iex (Data) Values (m.data) + If m.credit = 0 + m.suma = M.debit + Replace tip With "D", ip With "I" In c_iex + Else + m.suma = M.credit + Replace tip With "C", ip With "P" In c_iex + Endif + If "comision" $ Lower(m.explicatie) + Replace tip_2 With "COM" In c_iex + Endif + If "in fav." $ M.explicatie + mtext1 = Substr(m.explicatie, At( "in fav.", M.explicatie) + 8) + mdouapuncte = At(":", mtext1) - 1 + If mdouapuncte > 0 + m.tert = Substr(mtext1, 1, mdouapuncte) + Endif + Endif + If "Denumire Client:" $ M.explicatie + mtext1 = Substr(m.explicatie, At( "Denumire Client:", M.explicatie) + 17) + mvirgula = At(",", mtext1) - 1 + If mvirgula > 0 + m.tert = Substr(mtext1, 1, mvirgula) + Endif + Endif + Gather Memvar + Endif + Endfor + Case orootnode.nodename = "extras" + orootnodecontext = orootnode.childnodes.Item(0) + If orootnodecontext.nodename <> "cont_ext" + AMessagebox( "Format XML invalid.", 64, "Atentie...") + Return + Endif + nnumliniicontext = orootnodecontext.childnodes.Length + For ij = 0 To (nnumliniicontext - 1) + orootnodecontmisc = orootnodecontext.childnodes.Item(ij) + If orootnodecontmisc.nodename <> "cont_misc" + Loop + Endif + nnumlinii = orootnodecontmisc.childnodes.Length + m.cf = "" + m.tert = "" + m.iban = "" + m.suma = 0 + m.explicatie = "" + m.data = {} + m.debit = "" + m.credit = "" + m.suma = "" + m.original = "" + For npass = 0 To (nnumlinii - 1) + olinienode = orootnodecontmisc.childnodes.Item(npass) + cvalue = olinienode.Text + cparentname = olinienode.nodename + Do Case + Case cparentname == "nrdoc" + m.nr = cvalue + Case cparentname == "datadoc" + m.data = setdategerman(cvalue) + Case cparentname == "platitor" + m.cf = Upper(cvalue) + Case cparentname == "numepb" + m.tert = Upper(cvalue) + Case cparentname == "ibanbfpl" + m.iban = Upper(cvalue) + Case cparentname = "sumad" + m.debit = Val(cvalue) + Case cparentname = "sumac" + m.credit = Val(cvalue) + Case cparentname == "explicatii" + m.explicatie = cvalue + Endcase + If !Empty(cvalue) + m.original = M.original + cvalue + Chr(13) + Endif + Endfor + Select c_iex + If m.data >= Ctod("01.01.2015") + Insert Into c_iex (Data) Values (m.data) + If m.credit = 0 + m.suma = M.debit + Replace tip With "D", ip With "I" In c_iex + Else + m.suma = M.credit + Replace tip With "C", ip With "P" In c_iex + Endif + If "comision" $ Lower(m.explicatie) + Replace tip_2 With "COM" In c_iex + Endif + Gather Memvar + Endif + Endfor + Otherwise + AMessagebox( "Format XML invalid.", 64, "Atentie...") + Endcase + Endproc + * + + Procedure csvAlpha + Lparameters pselectedfile + Local mtextoriginal + This.cIBAN = 'Alpha' + mtextoriginal = "" + Create Cursor C_TMP_I (data_v C (16), data_t C (16), explicatie C (250), referinta C (60), valuta C (3), suma C (15), tip C (2), valuta1 C (3), sold C (15)) + + Append From (pselectedfile) Delimited With Char ";" + + Scan For !Empty(data_t) .And. !Empty(setdategerman(C_TMP_I.data_t)) + Select c_iex + Insert Into c_iex (Data) Values (setdategerman(Alltrim(C_TMP_I.data_t))) + If Alltrim(C_TMP_I.tip) = "C" + Replace tip With "C" + Else + Replace tip With "D" + Endif + Replace suma With This.setsuma(C_TMP_I.suma) + mexplicatie = Alltrim(C_TMP_I.explicatie) + Do Case + Case "comision" $ Lower(mexplicatie) + Replace tip_2 With "COM" + Otherwise + Replace tip_2 With "" + Endcase + + + miban = "" + + miban = getibanfromstring(mexplicatie, 1) + mpoziban = 0 + If miban = "RO" + mpoziban = At(miban, mexplicatie) + Endif + mtert = "" + mcf = "" + If c_iex.tip = "C" + If "PLATITOR: " $ mexplicatie + mpoztertstart = At( "PLATITOR: ", mexplicatie) + 10 + If mpoziban > mpoztertstart + mtert1 = Alltrim(Substr(mexplicatie, mpoztertstart, mpoziban - mpoztertstart)) + Else + mtert1 = Alltrim(Substr(mexplicatie, mpoztertstart, 100)) + Endif + If "," $ mtert1 + mtert = Left(mtert1, At( ",", mtert1) - 1) + Else + mtert = mtert1 + Endif + Endif + Else + If "BENEFICIAR: " $ mexplicatie + mpoztertstart = At( "BENEFICIAR: ", mexplicatie) + 12 + If (mpoziban - 9) > mpoztertstart + mtert1 = Alltrim(Substr(mexplicatie, mpoztertstart, (mpoziban - 9) - mpoztertstart)) + Else + mtert1 = Alltrim(Substr(mexplicatie, mpoztertstart, 100)) + Endif + If "," $ mtert1 + mtert = Left(mtert1, At( ",", mtert1) - 1) + Else + mtert = mtert1 + Endif + Endif + Endif + mexplicatiereal = "" + If "END TO END " $ mexplicatie .Or. "URGENT " $ mexplicatie + If "END TO END " $ mexplicatie + mpoztertexplfin = At( "END TO END ", mexplicatie) - 1 + Else + mpoztertexplfin = At( "URGENT ", mexplicatie) - 1 + Endif + If "DETALII INCASARE: " $ mexplicatie + mpoztertexplstart = At( "DETALII INCASARE: ", mexplicatie) + 18 + mexplicatiereal = Alltrim(Substr(mexplicatie, mpoztertexplstart, mpoztertexplfin - mpoztertexplstart)) + Else + If "DETALII PLATA: " $ mexplicatie + mpoztertexplstart = At( "DETALII PLATA: ", mexplicatie) + 15 + mexplicatiereal = Alltrim(Substr(mexplicatie, mpoztertexplstart, mpoztertexplfin - mpoztertexplstart)) + Else + mexplicatiereal = mexplicatie + Endif + Endif + Endif + Replace tert With mtert, iban With miban, cf With mcf + mtextoriginal = C_TMP_I.data_t + " " + Chr(13) + C_TMP_I.suma + " " + Chr(13) + Alltrim(mexplicatie) + Replace explicatie With mexplicatiereal, original With mtextoriginal + Endscan + Endproc + * + + Procedure csvBCR + Lparameters pselectedfile + Local mtextoriginal, mfilestr, mlen, ij, mpas + This.cIBAN = 'BCR' + mtextoriginal = "" + Create Cursor C_TMP_I (data_e C (10), ora_e C (6), data_i C (10), data_s C (10), valuta C (16), Curs C (16), Cont C (24), tip C (24), titular C (60), sold_i C (15), data_final C (10), ora_fin C (6), detalii C (250), referinta C (60), debit C (15), credit C (15), t_debit C (15), t_credit C (15), sold_f C (15), sume_b C (15), sold_d C (15), plafon C (15)) + mfilestr = Filetostr(pselectedfile) + If Occurs('""', mfilestr) >= 4 + mfilestr = EliminVirguleDintreGhilimele(mfilestr, '""') + Else + mfilestr = EliminVirguleDintreGhilimele(mfilestr, '"') + Endif + mfilestr = Strtran(mfilestr, '"', '') + Strtofile(mfilestr, m.gcTempPath + "BCRTMP.csv") + Select C_TMP_I + Append From (m.gcTempPath + "BCRTMP.csv") Csv + Delete For Empty(Ctod(C_TMP_I.data_final)) + Scan For !Empty(data_final) .And. !Empty(detalii) + Select c_iex + Insert Into c_iex (Data) Values (Ctod(C_TMP_I.data_final)) + If EMPTY(VAL(Alltrim(C_TMP_I.credit))) + Replace tip With "D", suma With This.setsuma(C_TMP_I.debit) + Else + Replace tip With "C", suma With This.setsuma(C_TMP_I.credit) + Endif + Do Case + Case "comision " $ C_TMP_I.detalii .Or. "Operatiuni fara numerar" $ C_TMP_I.detalii + Replace tip_2 With "COM" + Case "rambursare automata" $ Lower(C_TMP_I.detalii) .Or. "tragere automata" $ Lower(C_TMP_I.detalii) + Replace tip_2 With "XXX" + Otherwise + Replace tip_2 With "TRF" + Endcase + mnr = Alltrim(Substr(C_TMP_I.referinta, At("Ordin de plata ", C_TMP_I.referinta) + 15, 100)) + Replace nr With Left(mnr, At(".", mnr) - 4) + mtert = "" + mcf = "" + If tip = "C" + If "Ordonator: " $ C_TMP_I.detalii + mtert = Alltrim(Substr(C_TMP_I.detalii, At( "Ordonator: ", C_TMP_I.detalii) + 11, 100)) + Endif + If "Platitor: " $ C_TMP_I.detalii + mtert = Alltrim(Substr(C_TMP_I.detalii, At( "Platitor: ", C_TMP_I.detalii) + 10, 100)) + Endif + mcf = Alltrim(Str(Val(Alltrim(Substr(C_TMP_I.detalii, At("CODFISC ", C_TMP_I.detalii) + 8, 13))), 13, 0)) + Else + If "Ordonator: " $ C_TMP_I.detalii + mtert = Alltrim(Substr(C_TMP_I.detalii, At( "Ordonator: ", C_TMP_I.detalii) + 11, 100)) + Endif + If "Beneficiar: " $ C_TMP_I.detalii + mtert = Alltrim(Substr(C_TMP_I.detalii, At( "Beneficiar: ", C_TMP_I.detalii) + 12, 100)) + Endif + If "CODFISC" $ C_TMP_I.detalii + mcf = Alltrim(Str(Val(Alltrim(Substr(C_TMP_I.detalii, At( "CODFISC ", C_TMP_I.detalii, Occurs("CODFISC", C_TMP_I.detalii)) + 8, 13))), 13, 0)) + Endif + Endif + If ";" $ mtert + mtert = Left(mtert, At(";", mtert) - 1) + Else + mlen = Len(mtert) + mspace = mlen + For ij = 1 To mlen + If Substr(mtert, ij, 1) == " " + mspace = ij + Endif + If Isdigit(Substr(mtert, ij, 1)) + Exit + Endif + Endfor + mtert = Left(mtert, mspace - 1) + Endif + Replace tert With mtert, cf With Iif(mcf <> "0 ", mcf, "") + mexplicatie = Alltrim(Substr(C_TMP_I.detalii, At("Detalii: ", C_TMP_I.detalii) + 9, 100)) + mtextoriginal = C_TMP_I.data_final + Chr(13) + Alltrim(C_TMP_I.titular) + Chr(13) + Alltrim(C_TMP_I.Cont) + Chr(13) + Alltrim(C_TMP_I.detalii) + Chr(13) + Alltrim(C_TMP_I.referinta) + Chr(13) + Alltrim(C_TMP_I.debit) + " " + Alltrim(C_TMP_I.credit) + Replace explicatie With mexplicatie, original With mtextoriginal, iban With getibanfromstring(C_TMP_I.detalii, 1) + Endscan + Endproc + * + + Procedure csvBCR2 + Lparameters pselectedfile + Local mtextoriginal + This.cIBAN = 'BCR' + mtextoriginal = "" + Create Cursor C_TMP_I (c1 C (4), c2 C (24), c3 C (24), data_v C (10), cod_valuta C (24), c6 C (10), c7 C (10), c8 C (24), c9 C (24), suma C (24), tip C (3), c12 C (24), c13 C (24), tert C (100), c15 C (24), c16 C (2), c17 C (4), c18 C (24), cf C (100), c20 C (100), detalii C (100), detalii2 C (60), detalii3 C (60), detalii4 C (100), detalii5 C (100), c26 C (2), c27 C (2), c28 C (24)) + Append From (mSelectedFile) Delimited With Char ";" + Locate For !Empty(data_v) + If Eof() + Use In C_TMP_I + Create Cursor C_TMP_I (c1 C (4), c2 C (24), c3 C (24), data_v C (10), cod_valuta C (24), c6 C (10), c7 C (10), c8 C (24), suma C (24), tip C (3), c12 C (24), c13 C (24), tert C (100), c15 C (24), c16 C (2), c17 C (4), c18 C (24), c18_1 C (24), c18_2 C (24), cf C (100), detalii C (100), detalii2 C (24), detalii3 C (60), detalii4 C (100), detalii5 C (100), c26 C (2), c27 C (2), c28 C (24)) + Append From (mSelectedFile) Delimited With Character, + Endif + Scan For !Empty(data_v) + Select c_iex + Insert Into c_iex (Data) Values (setdategerman(C_TMP_I.data_v)) + msuma = Thisform.setsuma(C_TMP_I.suma) + If "-" $ C_TMP_I.suma + Replace tip With "D" + Else + Replace tip With "C" + Endif + Replace suma With msuma + Do Case + Case "com" $ Lower(C_TMP_I.tip) + Replace tip_2 With "COM" + Otherwise + Replace tip_2 With "" + Endcase + mexplicatie = Alltrim(C_TMP_I.detalii) + mexplicatie = Strtran(mexplicatie, " ", " ") + If "Detalii: " $ C_TMP_I.detalii + mexplicatie = Substr(mexplicatie, At( "Detalii: ", mexplicatie) + 9, 100) + Endif + + miban = getibanfromstring(Alltrim(C_TMP_I.detalii4) + C_TMP_I.detalii5, 1) + If "CODFISC" $ C_TMP_I.detalii5 + mcf = getdigitsfromstring(Substr(C_TMP_I.detalii5, At("CODFISC", C_TMP_I.detalii5) + 8, 13), 4, 1, ".") + Else + mcf = "" + Endif + Replace tert With Upper(C_TMP_I.tert), cf With mcf, iban With miban + mtextoriginal = C_TMP_I.data_v + " " + C_TMP_I.tip + " " + Chr(13) + Alltrim(C_TMP_I.suma) + " " + Chr(13) + Alltrim(C_TMP_I.tert) + " " + " " + Chr(13) + Alltrim(C_TMP_I.detalii) + Alltrim(C_TMP_I.detalii2) + Alltrim(C_TMP_I.detalii3) + Alltrim(C_TMP_I.detalii4) + Alltrim(C_TMP_I.detalii5) + Replace explicatie With mexplicatie, original With mtextoriginal + Endscan + Endproc + * + + Procedure csvBRD + Lparameters pselectedfile + Local mtextoriginal + This.cIBAN = 'BRD' + mtextoriginal = "" + Create Cursor C_TMP_I (c1 C (4), c2 C (24), c3 C (24), data_v C (10), cod_valuta C (24), c6 C (10), c7 C (10), c8 C (24), c9 C (24), suma C (24), tip C (3), c12 C (24), c13 C (24), c14 C (100), c15 C (24), c16 C (2), c17 C (4), c18 C (24), tert C (100), cf C (100), detalii C (100), detalii2 C (100), detalii3 C (100), detalii4 C (100), c25 C (24), c26 C (2), c27 C (2), iban C (24)) + + Append From (mSelectedFile) Delimited With Char ";" + Locate For !Empty(data_v) + If Eof() + Use In C_TMP_I + Create Cursor C_TMP_I (c1 C (4), c2 C (24), c3 C (24), data_v C (10), cod_valuta C (24), c6 C (10), c7 C (10), c8 C (24), suma C (24), tip C (3), c12 C (24), c13 C (24), c14 C (100), c15 C (24), c16 C (2), c17 C (4), c18 C (24), c18_1 C (24), c18_2 C (24), tert C (100), cf C (100), detalii C (100), detalii2 C (100), detalii3 C (100), detalii4 C (100), c25 C (24), c26 C (2), c27 C (2), iban C (24)) + Append From (mSelectedFile) Delimited With Character, + Endif + Scan For !Empty(data_v) + Select c_iex + Insert Into c_iex (Data) Values (setdategerman(C_TMP_I.data_v)) + msuma = This.setsuma(C_TMP_I.suma) + If "-" $ C_TMP_I.suma + Replace tip With "D" + Else + Replace tip With "C" + Endif + Replace suma With ABS(msuma) + Do Case + Case "com" $ Lower(C_TMP_I.tip) + Replace tip_2 With "COM" + Case ATC('TransCr-IncIntra',C_TMP_I.detalii) > 0 + Replace tip_2 With This.cTipTransfer + Otherwise + Replace tip_2 With "" + Endcase + mexplicatie = Alltrim(C_TMP_I.detalii) + mexplicatie = Strtran(mexplicatie, " ", " ") + If "Detalii: " $ C_TMP_I.detalii + mexplicatie = Substr(mexplicatie, At( "Detalii: ", mexplicatie) + 9, 100) + Endif + Replace tert With ALLTRIM(STRTRAN(Upper(C_TMP_I.tert), 'Dl ','',1,1,1)), cf With getdigitsfromstring(C_TMP_I.cf, 4, 1, ".") + mtextoriginal = C_TMP_I.data_v + " " + C_TMP_I.tip + " " + Chr(13) + Alltrim(C_TMP_I.suma) + " " + Chr(13) + Alltrim(C_TMP_I.tert) + " " + Chr(13) + Alltrim(C_TMP_I.c14) + " " + Chr(13) + Alltrim(C_TMP_I.cf) + " " + Chr(13) + Alltrim(C_TMP_I.detalii) + Alltrim(C_TMP_I.detalii2) + Alltrim(C_TMP_I.detalii3) + Alltrim(C_TMP_I.detalii4) + Chr(13) + Alltrim(C_TMP_I.iban) + Replace explicatie With mexplicatie, original With mtextoriginal, iban With C_TMP_I.iban + Endscan + Endproc + * + Procedure csvBT + Lparameters pselectedfile, tnTip + * pcSelectedFile: fisierul csv + * tnTip: 1 (default) = lista tranzactii, 2 = extras de cont + + Local mtextoriginal + Local lcDescriereFacturi, lcFacturi, lcLinie, lnLinie, lnLinii, lnResults + LOCAL mcf, mexplicatie, mfilestr, miban, mtert + + lnLinii = Alines(This.aLinii, Filetostr(m.pselectedfile), 1) + FOR lnLinie = 1 TO lnLinii + lcLinie = This.aLinii[m.lnLinie] + lcItem = STRTRAN(LOWER(ALLTRIM(GETWORDNUM(m.lcLinie,1,','))), ["], [],1,2) + IF m.lcItem = [numar cont:] + This.cIBAN = STRTRAN(LEFT(ALLTRIM(syGETWORDNUM(m.lcLinie, 2, ',')), 24), ["], [], 1, 2) + EXIT + ENDIF + ENDFOR + + IF EMPTY(this.cIBAN) + This.cIBAN = 'BT' + ENDIF + mtextoriginal = "" + + IF m.tnTip = 1 && lista de tranzactii + * Data tranzactie,Data valuta,Descriere,Referinta tranzactiei,Debit,Credit,Sold contabil + Create Cursor C_TMP_I (data_p C (16), data_t C (16), explicatie C (200), referinta C (200), suma_d C (15), suma_c C (15), sold C (15)) + ELSE + * Data tranzactie,Data valuta,Referinta,Tip tranzactie,Descriere,Debit,Credit + Create Cursor C_TMP_I (data_p C (16), data_t C (16), referinta C (200), tipt C (100), explicatie C (200), suma_d C (15), suma_c C (15)) + ENDIF + mfilestr = Filetostr(pselectedfile) + mfilestr = EliminVirguleDintreGhilimele(mfilestr, '"') + mfilestr = Strtran(mfilestr, '"', '') + + * elimin LF din descriere in CSV BT24 se poate sa fie un LF pe linia cu tranzactia + ~~ pe urmatoarea linie + mfilestr = Strtran(mfilestr, CHR(10) + '~~', '') + + * Reunesc liniile rupte: pastrez un \n doar daca e urmat de o data cu an complet (4 cifre) + virgula + * Formate suportate: YYYY-MM-DD, / DD/MM/YYYY, / DD.MM.YYYY, / DD-MM-YYYY, / YYYY/MM/DD, / MM/DD/YYYY, + mfilestr = Strtranx(mfilestr, "\r?\n(?!(?:\d{4}-\d{2}-\d{2}|\d{2}/\d{2}/\d{4}|\d{2}\.\d{2}\.\d{4}|\d{2}-\d{2}-\d{4}|\d{4}/\d{2}/\d{2}),)", " ", 1, , 1) + + * Este csv exportat din BT24 sau NeoBT. BT24 are sume negative???? pe debit pentru plati + llBT24 = 'sold contabil'$LOWER(mfilestr) + + Strtofile(mfilestr, m.gcTempPath + "BTTMP.csv") + Append From (m.gcTempPath + "BTTMP.csv") Csv + + Scan For !Empty(data_t) .And. !Empty(setdategerman(C_TMP_I.data_t)) + Select c_iex + Insert Into c_iex (Data) Values (setdategerman(Alltrim(C_TMP_I.data_t))) + If !EMPTY(VAL(Alltrim(C_TMP_I.suma_d))) + Replace tip With "D" + Replace suma With This.setsuma(C_TMP_I.suma_d) + + * Doar pentru export CSV BT24, platile (Debit) au suma negativa + * Le inlocuiesc cu suma inversa + IF m.llBT24 + REPLACE suma WITH -suma + ENDIF + Else + Replace tip With "C" + Replace suma With This.setsuma(C_TMP_I.suma_c) + ENDIF + * Incasare OP;/ROC/FC. 2022047/ 04.02.2022//RFB/4337692;;;;DRAFT DINAMIC CONSTRUCT SRL;RO43OTPV120001427418RO01;OTPVROBU + * NEOBT + * "30-05-2024","30-05-2024","Incasare OP - canal electronic;f 2024103;ARGENTA SRL;RO86BTRL01401202H76370XX;BTRLRO22;REF: 014ZEXA24151017X","014ZEXA24151017X","","1,184.24 ","2,184.24 " + + * BT24 + * 2024-06-05,2024-06-05,"Incasare OP - canal electronic;F 2024131;MIDIA GREEN ENERGY SA;RO87BTRL01401202716668XX;BTRLRO22;REF: 414ZEXA2415702DU",414ZEXA2415702DU,,"797.30","12,013.14" + IF m.tnTip = 1 && lista de tranzactii + mexplicatie = Alltrim(C_TMP_I.explicatie) + ELSE + mexplicatie = Alltrim(C_TMP_I.tipt) + ';' + Alltrim(C_TMP_I.explicatie) + ENDIF + Do Case + Case LEFT(ALLTRIM(LOWER(NVL(mexplicatie,''))), 8) = "comision" OR ; + 'comision-atm'$LOWER(NVL(mexplicatie,'')) OR ; + 'comision procesare ridicare numerar'$LOWER(NVL(mexplicatie,'')) OR ; + 'pachet izi'$LOWER(NVL(mexplicatie,'')) + Replace tip_2 With This.cTipComisioane + + Case 'retragere de numerar'$ALLTRIM(LOWER(NVL(mexplicatie,''))) + Replace tip_2 With This.cTipDepunere + Case 'transfer intern'$ALLTRIM(LOWER(NVL(mexplicatie,''))) + Replace tip_2 With This.cTipTransfer + + Otherwise + Replace tip_2 With "" + Endcase + mtert = ALLTRIM(syGETWORDNUM(m.mexplicatie, 3, ';')) + miban = ALLTRIM(syGETWORDNUM(m.mexplicatie, 4, ';')) + mcf = "" + + lcDescriereFacturi = ALLTRIM(syGETWORDNUM(m.mexplicatie, 2, ';')) + lcFacturi = '' + lnResults = GetRegExpAllNumbers(m.lcDescriereFacturi, @m.lcFacturi) + + Replace tert With mtert, iban With miban, cf With mcf, documente WITH m.lcFacturi + mtextoriginal = C_TMP_I.data_t + " " + Chr(13) + Alltrim(C_TMP_I.suma_d) + "," + Alltrim(C_TMP_I.suma_c) + " " + Chr(13) + Alltrim(mexplicatie) + Replace explicatie With mexplicatie, original With mtextoriginal + Endscan + ENDPROC && csvBT + * + Procedure csvBT_original + Lparameters pselectedfile + Local mtextoriginal, misgilimele + This.cIBAN = 'BT' + mtextoriginal = "" + misgilimele = .F. + mfilestr = Filetostr(pselectedfile) + Strtofile(mfilestr, m.gcTempPath + "BTTMP.csv") + lnfilehandle = Fopen(pselectedfile) + Do While !Feof(lnfilehandle) + mrand = Fgets(lnfilehandle, 1024) + If '""' $ mrand + misgilimele = .T. + If ';",' $ mrand + mpozatm1 = At( ';",', mrand) + 1 + mrandfinal = Substr(mrand, mpozatm1, 200) + mpozvirgulaatm = At( ',', mrandfinal, 2) + mrand = Left(mrand, mpozatm1) + '",,""' + Substr(mrand, mpozatm1 + mpozvirgulaatm, 50) + Endif + mrand = Strtran(mrand, '""";;;;', '""') + mrand = Strtran(mrand, '""";;;', '""') + mrand = Strtran(mrand, '""";;', '""') + mrand = Strtran(mrand, '""";', '""') + mrand = Strtran(mrand, '""', '^') + mrand = Strtran(mrand, '"', '') + mrand = Strtran(mrand, '^', '"') + Endif + If Substr(mrand, 3, 1) == '-' .Or. Substr(mrand, 3, 1) == '/' .Or. Substr(mrand, 3, 1) == '.' .Or. Left(mrand, 2) == '20' .Or. Left(mrand, 2) == '21' + mldata = setdategerman(Left(mrand, At(',', mrand))) + mrand1 = Alltrim(Substr(mrand, At(',', mrand, 2) + 1, 1000)) + mrand1 = EliminVirguleDintreGhilimele(mrand1, '"') + mnrpctvirg = Occurs(';', mrand1) + mpozfinexpl1 = At(';', mrand1) + Do Case + Case mnrpctvirg = 0 + mpozfinexpl1 = At(',', mrand1, 1) + mpozfinexpl2 = mpozfinexpl1 + mpozfinexpl3 = mpozfinexpl1 + mpozfinexpl4 = mpozfinexpl1 + mpozfinexpl5 = mpozfinexpl1 + mpozfinexpl6 = mpozfinexpl5 + Case mnrpctvirg = 1 + mpozfinexpl2 = At(';', mrand1, 1) + mpozfinexpl3 = At(';', mrand1, 1) + mpozfinexpl4 = At(';', mrand1, 1) + mpozfinexpl5 = At(';', mrand1, 1) + mpozfinexpl6 = mpozfinexpl5 + Case mnrpctvirg = 2 + mpozfinexpl2 = At(';', mrand1, 2) + mpozfinexpl3 = At(';', mrand1, 2) + mpozfinexpl4 = At(';', mrand1, 2) + mpozfinexpl5 = At(';', mrand1, 2) + mpozfinexpl6 = mpozfinexpl5 + Case mnrpctvirg = 3 + mpozfinexpl2 = At(';', mrand1, 2) + mpozfinexpl3 = At(';', mrand1, 2) + mpozfinexpl4 = At(';', mrand1, 2) + mpozfinexpl5 = At(';', mrand1, 3) + mpozfinexpl6 = mpozfinexpl5 + Case mnrpctvirg = 4 + mpozfinexpl2 = At(';', mrand1, 2) + mpozfinexpl3 = At(';', mrand1, 2) + mpozfinexpl4 = At(';', mrand1, 3) + mpozfinexpl5 = At(';', mrand1, 4) + mpozfinexpl6 = mpozfinexpl5 + Otherwise + mpozfinexpl2 = At(';', mrand1, 2) + mpozfinexpl3 = At(';', mrand1, 3) + mpozfinexpl4 = At(';', mrand1, 4) + mpozfinexpl5 = At(';', mrand1, 5) + mpozfinexpl6 = At(';', mrand1, 6) + Endcase + mlexplicatie1 = Substr(mrand1, 1, mpozfinexpl1 - 1) + mlexplicatie2 = Substr(mrand1, mpozfinexpl1 + 1, mpozfinexpl2 - mpozfinexpl1 - 1) + mpoz3 = Substr(mrand1, mpozfinexpl3 + 1, mpozfinexpl4 - mpozfinexpl3 - 1) + mpoz4 = Substr(mrand1, mpozfinexpl4 + 1, mpozfinexpl5 - mpozfinexpl4 - 1) + mpoz5 = Substr(mrand1, mpozfinexpl5 + 1, mpozfinexpl6 - mpozfinexpl5 - 1) + If (mpoz5 = "RO" .Or. misgilimele) .And. mpoz4 <> "RO" .And. mnrpctvirg <> 5 + mltert = mpoz4 + mlcont = mpoz5 + Else + mltert = mpoz3 + mlcont = mpoz4 + Endif + mrand2 = Substr(mrand1, At(',', mrand1, 2) + 1, 1000) + mpozvirgulaexpl4 = At( ',', mrand2, 2) + If mrand2 = "," + mlsumad = "" + mlsumac = Strtran(Strtran(Substr(mrand2, 2, mpozvirgulaexpl4 - 2), '"', ''), ',', '') + Else + mlsumad = Strtran(Strtran(Substr(mrand2, 1, mpozvirgulaexpl4 - 1), '"', ''), ',', '') + mlsumac = "" + Endif + If mldata >= Ctod("01.01.2015") + Insert Into c_iex (Data) Values (mldata) + If Val(mlsumad) <> 0 + mltip = "D" + mlsuma = Abs(Val(mlsumad)) + Else + mltip = "C" + mlsuma = Abs(Val(mlsumac)) + Endif + If "Comision " $ mrand2 .Or. "Comision " $ mlexplicatie1 + Replace tip_2 With "COM" In c_iex + Endif + If mltip = "D" + Replace tip With mltip, ip With "I", suma With mlsuma In c_iex + Else + Replace tip With mltip, ip With "P", suma With mlsuma In c_iex + Endif + Replace tert With Upper(mltert), explicatie With Iif(Empty(mlexplicatie2), mlexplicatie1, mlexplicatie2), ; + iban With mlcont, original With mrand1 In c_iex + Endif + Endif + Enddo + Fclose(lnfilehandle) + Endproc + * + + Procedure csvCEC + Lparameters pselectedfile + Local mtextoriginal + This.cIBAN = 'CEC' + mtextoriginal = "" + Create Cursor C_TMP_I (c1 C (10), c2 C (10), c3 C (10), d1 C (10), moneda C (3), s1 C (10), s2 C (10), data_t C (10), data_v C (10), suma C (15), tip_op C (100), nr C (16), c4 C (10), c5 C (10), c6 C (10), c7 C (10), c8 C (10), c9 C (10), c10 C (10), c11 C (10), explicatie1 C (200), explicatie2 C (200), explicatie3 C (200), explicatie4 C (200), explicatie5 C (200)) + mfilestr = Filetostr(pselectedfile) + mfilestr = Strtran(mfilestr, '"', '') + Strtofile(mfilestr, m.gcTempPath + "CECTMP.csv") + Select C_TMP_I + Append From (m.gcTempPath + "CECTMP.csv") Delimited With Char ";" + + Delete For Empty(Ctod(C_TMP_I.data_t)) + Scan For !Empty(data_t) .And. !Empty(setdategerman(C_TMP_I.data_t)) + Select c_iex + Insert Into c_iex (Data) Values (setdategerman(C_TMP_I.data_t)) + If "-" $ C_TMP_I.suma + Replace tip With "D" + Else + Replace tip With "C" + Endif + Replace suma With This.setsuma(C_TMP_I.suma) + mexplicatie = Alltrim(C_TMP_I.explicatie1) + Alltrim(C_TMP_I.explicatie2) + Alltrim(C_TMP_I.explicatie3) + Alltrim(C_TMP_I.explicatie4) + Alltrim(C_TMP_I.explicatie5) + Do Case + Case "comision" $ Lower(mexplicatie) .Or. "Abonament Internet Banking" $ mexplicatie + Replace tip_2 With "COM" + Otherwise + Replace tip_2 With "" + Endcase + mtert = "" + + + miban = "" + + mcf = "" + mpoziban = 0 + mlenexpl = 0 + If "Iban Platitor" $ mexplicatie + mpoziban = At( "Iban Platitor", mexplicatie) + mlenexpl = Len( "Iban Platitor" ) + 1 + miban = Substr(mexplicatie, mpoziban + mlenexpl, 24) + Endif + If "Iban Beneficiar" $ mexplicatie + mpoziban = At( "Iban Beneficiar", mexplicatie) + mlenexpl = Len( "Iban Beneficiar" ) + 1 + miban = Substr(mexplicatie, mpoziban + mlenexpl, 24) + Endif + If mpoziban <> 0 + mexplicatie2 = Substr(mexplicatie, 1, mpoziban - 1) + Substr(mexplicatie, mpoziban + mlenexpl + 1, 300) + Else + mexplicatie2 = mexplicatie + Endif + If tip = "C" + If "Platitor " $ mexplicatie2 + mtert1 = Alltrim(Substr(mexplicatie2, At( "Platitor ", mexplicatie2) + 9, 100)) + If "," $ mtert1 + mtert = Left(mtert1, At( ",", mtert1) - 1) + Else + mtert = mtert1 + Endif + Endif + If "CUI/CNP Platitor" $ mexplicatie2 + mcf = Alltrim(Str(Val(Alltrim(Substr(mexplicatie2, At( "CUI/CNP Platitor", mexplicatie2) + 17, 13))), 13, 0)) + Endif + Else + If "Beneficiar " $ mexplicatie2 + mtert1 = Alltrim(Substr(mexplicatie2, At( "Beneficiar ", mexplicatie2) + 11, 100)) + If "," $ mtert1 + mtert = Left(mtert1, At( ",", mtert1) - 1) + Else + mtert = mtert1 + Endif + Endif + If "CUI/CNP Beneficiar" $ mexplicatie2 + mcf = Alltrim(Str(Val(Alltrim(Substr(mexplicatie2, At( "CUI/CNP Beneficiar", mexplicatie2) + 19, 13))), 13, 0)) + Endif + Endif + mcf1 = getdigitsfromstring(mcf, 4, 1, ".") + If Empty(mcf1) + mcf1 = getdigitsfromstring(mcf, 13, 2, ".") + Endif + Replace tert With mtert, iban With miban, cf With mcf1, nr With C_TMP_I.nr + mtextoriginal = C_TMP_I.data_t + " " + Chr(13) + C_TMP_I.suma + " " + Chr(13) + Alltrim(C_TMP_I.nr) + " " + Chr(13) + Alltrim(mexplicatie) + If Occurs(",", mexplicatie) > 0 + mexplicatie = Left(mexplicatie, At(",", mexplicatie) - 1) + Endif + Replace explicatie With mexplicatie, original With mtextoriginal + Endscan + Endproc + * + + Procedure csvCreditEurope + Lparameters pselectedfile + Local mtextoriginal + + lnLinii = Alines(This.aLinii, Filetostr(m.pselectedfile), 1) + lcLinie = This.aLinii[2] + This.cIBAN = syGETWORDNUM(m.lcLinie, 5, ',') + IF EMPTY(this.cIBAN) + This.cIBAN = 'CreditEurope' + ENDIF + mtextoriginal = "" + Create Cursor C_TMP_I (data_t C (16), data_v C (16), referinta C (20), explicatie C (200), suma_d C (15), suma_c C (15), sold C (15)) + mfilestr = Filetostr(pselectedfile) + mfilestr = EliminVirguleDintreGhilimele(mfilestr, '"') + mfilestr = Strtran(mfilestr, '"', '') + Strtofile(mfilestr, m.gcTempPath + "CreditEuropeTMP.csv") + Append From (m.gcTempPath + "CreditEuropeTMP.csv") Csv + Scan For !Empty(data_t) .And. !Empty(setdategerman(C_TMP_I.data_t)) + Select c_iex + Insert Into c_iex (Data) Values (setdategerman(Alltrim(C_TMP_I.data_t))) + If !EMPTY(VAL(Alltrim(C_TMP_I.suma_d))) + Replace tip With "D" + Replace suma With This.setsuma(C_TMP_I.suma_d) + Else + Replace tip With "C" + Replace suma With This.setsuma(C_TMP_I.suma_c) + Endif + mexplicatie = Alltrim(C_TMP_I.explicatie) + Do Case + Case "comision" $ Lower(mexplicatie) + Replace tip_2 With "COM" + Otherwise + Replace tip_2 With "" + Endcase + mtert = "" + + + miban = "" + + mcf = "" + mpoztertstart = At(" - ", mexplicatie) + 3 + mpoztertfin = At(" : ", mexplicatie) + If mpoztertstart > 0 .And. mpoztertfin > 0 + mtert = Alltrim(Substr(mexplicatie, mpoztertstart, mpoztertfin - mpoztertstart)) + Endif + Replace tert With mtert, iban With miban, cf With mcf + mtextoriginal = C_TMP_I.data_t + " " + Chr(13) + Alltrim(C_TMP_I.suma_d) + "," + Alltrim(C_TMP_I.suma_c) + " " + Chr(13) + Alltrim(mexplicatie) + Replace explicatie With mexplicatie, original With mtextoriginal + Endscan + Endproc + * + Procedure csvFanCourier + Lparameters pselectedfile + Local mtextoriginal + This.cIBAN = 'FanCourier' + *:Global mfilestr + mtextoriginal = "" + Create Cursor C_TMP_I (oras C (60), data_awb C (10), suma C (15), nr_awb C (60), expeditor C (60), tert C (100), continut C (60), pc C (60), data_t C (10), card C (20), pe C (60), ramburs C (20), Retur C (20), data_v C (10)) + mfilestr = Filetostr(pselectedfile) + mfilestr = Strtran(mfilestr, '""""', '') + mfilestr = Strtran(mfilestr, '"""', '""') + If Occurs('""', Left(mfilestr, At(Chr(13), mfilestr))) >= 4 + mfilestr = EliminVirguleDintreGhilimele(mfilestr, '""') + Else + mfilestr = EliminVirguleDintreGhilimele(mfilestr, '"') + Endif + mfilestr = Strtran(mfilestr, '"', '') + Strtofile(mfilestr, m.gcTempPath + "FANTMP.csv") + Select C_TMP_I + Append From (m.gcTempPath + "FANTMP.csv") Csv + Delete For Empty(Ctod(C_TMP_I.data_t)) + Scan For .Not. Empty(data_t) .And. .Not. Empty(setdategerman(C_TMP_I.data_t)) + Select c_iex + Insert Into c_iex (Data) Values (setdategerman(C_TMP_I.data_t)) + Replace tip With "C", suma With This.setsuma(C_TMP_I.suma), tert With Upper(C_TMP_I.tert) + + mcf = getdigitsfromstring(Alltrim(C_TMP_I.tert), 4, 1, ".") + If !EMPTY(Alltrim(mcf)) + REPLACE cf WITH mcf + Endif + + mtextoriginal = Alltrim(C_TMP_I.data_t) + " " + Chr(13) + Alltrim(C_TMP_I.suma) + Chr(13) + Alltrim(C_TMP_I.oras) + " " + "AWB " + Alltrim(C_TMP_I.nr_awb) + " " + Alltrim(C_TMP_I.continut) + Chr(13) + Alltrim(C_TMP_I.tert) + Chr(13) + Alltrim(C_TMP_I.pe) + " " + "AWB " + Alltrim(C_TMP_I.ramburs) + " " + Alltrim(C_TMP_I.Retur) + " " + Alltrim(C_TMP_I.card) + Replace explicatie With C_TMP_I.tert, original With mtextoriginal + Endscan + Endproc + * + + * + Procedure csvFunCourier + Lparameters pselectedfile + Local mtextoriginal + This.cIBAN = 'FanCourier' + *:Global mfilestr + mtextoriginal = "" + Create Cursor C_TMP_I (oras C (60), data_awb C (10), suma C (15), nr_awb C (60), expeditor C (60), tert C (100), continut C (60), pc C (60), data_t C (10), pe C (60), ramburs C (20), Retur C (20), card C (20)) + mfilestr = Filetostr(pselectedfile) + mfilestr = Strtran(mfilestr, '""""', '') + mfilestr = Strtran(mfilestr, '"""', '""') + If Occurs('""', Left(mfilestr, At(Chr(13), mfilestr))) >= 4 + mfilestr = EliminVirguleDintreGhilimele(mfilestr, '""') + Else + mfilestr = EliminVirguleDintreGhilimele(mfilestr, '"') + Endif + mfilestr = Strtran(mfilestr, '"', '') + Strtofile(mfilestr, m.gcTempPath + "FUNTMP.csv") + Select C_TMP_I + Append From (m.gcTempPath + "FUNTMP.csv") Csv + Delete For Empty(Ctod(C_TMP_I.data_t)) + Scan For .Not. Empty(data_t) .And. .Not. Empty(setdategerman(C_TMP_I.data_t)) + Select c_iex + Insert Into c_iex (Data) Values (setdategerman(C_TMP_I.data_t)) + Replace tip With "C", suma With This.setsuma(C_TMP_I.suma), tert With Upper(C_TMP_I.tert) + mtextoriginal = Alltrim(C_TMP_I.data_t) + " " + Chr(13) + Alltrim(C_TMP_I.suma) + Chr(13) + Alltrim(C_TMP_I.oras) + " " + "AWB " + Alltrim(C_TMP_I.nr_awb) + " " + Alltrim(C_TMP_I.continut) + Chr(13) + Alltrim(C_TMP_I.tert) + Chr(13) + Alltrim(C_TMP_I.pe) + " " + "AWB " + Alltrim(C_TMP_I.ramburs) + " " + Alltrim(C_TMP_I.Retur) + " " + Alltrim(C_TMP_I.card) + Replace explicatie With C_TMP_I.tert, original With mtextoriginal + Endscan + Endproc + * + Procedure csvFunCourier2 + Lparameters pselectedfile + Local mtextoriginal + This.cIBAN = 'FanCourier' + mtextoriginal = "" + Create Cursor C_TMP_I (nr_awb C (60), data_awb C (10), tert C (100), oras C (60), expeditor C (60), oras_exp C (60), suma C (15), iban C (24), data_t C (10), continut C (60)) + mfilestr = Filetostr(pselectedfile) + mfilestr = Strtran(mfilestr, '""""', '') + mfilestr = Strtran(mfilestr, '"""', '""') + If Occurs('""', Left(mfilestr, At(Chr(13), mfilestr))) >= 4 + mfilestr = EliminVirguleDintreGhilimele(mfilestr, '""') + Else + mfilestr = EliminVirguleDintreGhilimele(mfilestr, '"') + Endif + mfilestr = Strtran(mfilestr, '"', '') + Strtofile(mfilestr, m.gcTempPath + "FUNTMP.csv") + Select C_TMP_I + Append From (m.gcTempPath + "FUNTMP.csv") Csv + Delete For Empty(Ctod(C_TMP_I.data_t)) + Scan For !Empty(data_t) .And. !Empty(setdategerman(C_TMP_I.data_t)) + Select c_iex + Insert Into c_iex (Data) Values (setdategerman(C_TMP_I.data_t)) + Replace tip With "C", suma With This.setsuma(C_TMP_I.suma), tert With Upper(C_TMP_I.tert) + mtextoriginal = Alltrim(C_TMP_I.data_t) + " " + Chr(13) + Alltrim(C_TMP_I.suma) + Chr(13) + Alltrim(C_TMP_I.oras) + " " + "AWB " + Alltrim(C_TMP_I.nr_awb) + " " + Alltrim(C_TMP_I.continut) + Chr(13) + Alltrim(C_TMP_I.tert) + Replace explicatie With C_TMP_I.tert, original With mtextoriginal + Endscan + Endproc + * + + Procedure csvGaranti + Lparameters pselectedfile + Local mtextoriginal + This.cIBAN = 'Garanti' + mtextoriginal = "" + Create Cursor C_TMP_I (data_t C (16), explicatie C (200), suma C (15), sold C (15)) + Append From (pselectedfile) Delimited With Char ";" + Scan For !Empty(data_t) .And. !Empty(setdategerman(C_TMP_I.data_t)) + Select c_iex + Insert Into c_iex (Data) Values (setdategerman(Alltrim(C_TMP_I.data_t))) + If "-" $ C_TMP_I.suma + Replace tip With "D" + Else + Replace tip With "C" + Endif + Replace suma With ABS(This.setsuma(C_TMP_I.suma)) + mexplicatie = STRTRAN(Alltrim(C_TMP_I.explicatie), ' ', ' ',1,100,1) && elimin spatiile duble + mexplicatie = STRTRAN(Alltrim(mexplicatie ), ' ', ' ',1,100,1) && elimin spatiile duble + mexplicatie = STRTRAN(Alltrim(mexplicatie ), ' ', ' ',1,100,1) && elimin spatiile duble + mexplicatie = STRTRAN(Alltrim(mexplicatie ), ' ', ' ',1,100,1) && elimin spatiile duble + mexplicatie = STRTRAN(Alltrim(mexplicatie ), ' ', ' ',1,100,1) && elimin spatiile duble + + Do Case + Case "comision" $ Lower(mexplicatie) + lcTip2 = This.cTipComisioane + Case "dobanda" $ Lower(mexplicatie) + lcTip2 = This.cTipDobanzi + Case "lichidare depozit" $ Lower(mexplicatie) + lcTip2 = This.cTipTransfer + Case "constituire depozit" $ Lower(mexplicatie) + lcTip2 = This.cTipTransfer + Otherwise + lcTip2 = "" + Endcase + mtert = "" + + + miban = "" + + mcf = "" + mpoziban = 0 + mlenexpl = 0 + If "IBAN platitor:" $ mexplicatie + mpoziban = At( "IBAN platitor:", mexplicatie) + mlenexpl = Len( "IBAN platitor:" ) + 1 + miban = Substr(mexplicatie, mpoziban + mlenexpl, 24) + Endif + If "IBAN beneficiar:" $ mexplicatie + mpoziban = At( "IBAN beneficiar:", mexplicatie) + mlenexpl = Len( "IBAN beneficiar:" ) + 1 + miban = Substr(mexplicatie, mpoziban + mlenexpl, 24) + Endif + If mpoziban <> 0 + mexplicatie2 = Substr(mexplicatie, 1, mpoziban - 1) + Else + mexplicatie2 = mexplicatie + Endif + If tip = "C" + mpoztertstart = At( "Platitor: ", mexplicatie2) + 10 + If "Platitor: " $ mexplicatie2 + If mpoziban > mpoztertstart + mtert1 = Alltrim(Substr(mexplicatie2, mpoztertstart, mpoziban - mpoztertstart)) + Else + mtert1 = Alltrim(Substr(mexplicatie2, mpoztertstart, 100)) + Endif + If "," $ mtert1 + mtert = Left(mtert1, At( ",", mtert1) - 1) + Else + mtert = mtert1 + Endif + Endif + Else + mpoztertstart = At( "Beneficiar: ", mexplicatie2) + 12 + If "Beneficiar: " $ mexplicatie2 + If mpoziban > mpoztertstart + mtert1 = Alltrim(Substr(mexplicatie2, mpoztertstart, mpoziban - mpoztertstart)) + Else + mtert1 = Alltrim(Substr(mexplicatie2, mpoztertstart, 100)) + Endif + If "," $ mtert1 + mtert = Left(mtert1, At( ",", mtert1) - 1) + Else + mtert = mtert1 + Endif + Endif + Endif + If "Cod fiscal:" $ mexplicatie + mcf = getdigitsfromstring(Alltrim(Substr(mexplicatie, At("Cod fiscal:", mexplicatie) + 12, 13)), 4, 1, ".") + If Alltrim(mcf) == Alltrim(gofirma.codfiscalfro) + mcf = "" + Endif + Endif + Replace tert With mtert, iban With miban, cf With mcf, tip_2 With m.lcTip2 + + mtextoriginal = C_TMP_I.data_t + " " + Chr(13) + C_TMP_I.suma + " " + Chr(13) + Alltrim(mexplicatie) + If Occurs("Detalii:", mexplicatie) > 0 + mexplicatie = Substr(mexplicatie, At("Detalii:", mexplicatie) + 8, 200) + Endif + Replace explicatie With mexplicatie, original With mtextoriginal + Endscan + Endproc + * + + Procedure csvGaranti_2 + Lparameters pselectedfile + Local mtextoriginal + This.cIBAN = 'Garanti' + mtextoriginal = "" + Create Cursor C_TMP_I (data_t C (16), data_v C (16), tert C (60), iban C (36), explicatie C (200), suma C (15), sold C (15)) + + Append From (pselectedfile) Csv + Scan For !Empty(data_t) .And. !Empty(setdategerman(C_TMP_I.data_t)) + Select c_iex + Insert Into c_iex (Data) Values (setdategerman(Alltrim(C_TMP_I.data_t))) + If "-" $ C_TMP_I.suma + Replace tip With "D" + Else + Replace tip With "C" + Endif + Replace suma With ABS(This.setsuma(C_TMP_I.suma)) + mexplicatie = Alltrim(C_TMP_I.explicatie) + Do Case + Case "comision" $ Lower(mexplicatie) + lcTip2 = This.cTipComisioane + Case "dobanda" $ Lower(mexplicatie) + lcTip2 = This.cTipDobanzi + Case "lichidare depozit" $ Lower(mexplicatie) + lcTip2 = This.cTipTransfer + Case "constituire depozit" $ Lower(mexplicatie) + lcTip2 = This.cTipTransfer + Otherwise + lcTip2 = "" + Endcase + mtert = Alltrim(C_TMP_I.tert) + miban = Alltrim(C_TMP_I.iban) + Replace tert With mtert, iban With miban, tip_2 WITH m.lcTip2 + + mtextoriginal = C_TMP_I.data_t + " " + Chr(13) + mtert + " " + Chr(13) + miban + " " + Chr(13) + C_TMP_I.suma + " " + Chr(13) + Alltrim(mexplicatie) + If Occurs("Detalii:", mexplicatie) > 0 + mexplicatie = Substr(mexplicatie, At("Detalii:", mexplicatie) + 8, 200) + Endif + Replace explicatie With mexplicatie, original With mtextoriginal + Endscan + Endproc + * + + Procedure csvIdea + Lparameters pselectedfile + Local mtextoriginal + This.cIBAN = 'Idea' + mtextoriginal = "" + Create Cursor C_TMP_I (data_t C (10), data_v C (10), referinta C (10), explicatie C (150), tert C (100), suma C (15)) + Append From (pselectedfile) Csv + Scan For !Empty(data_t) .And. !Empty(setdategerman(C_TMP_I.data_t)) + Select c_iex + Insert Into c_iex (Data) Values (setdategerman(C_TMP_I.data_t)) + If "-" $ C_TMP_I.suma + Replace tip With "D" + Else + Replace tip With "C" + Endif + Replace suma With This.setsuma(Strtran(Strtran(C_TMP_I.suma, "+", ""), "-", "")) + Do Case + Case "comis" $ Lower(C_TMP_I.explicatie) .Or. "administrare cont" $ Lower(C_TMP_I.explicatie) + Replace tip_2 With "COM" + Otherwise + Replace tip_2 With "" + Endcase + mexplicatie = C_TMP_I.explicatie + mtert = "" + + + miban = "" + + If Occurs(":", C_TMP_I.tert) > 0 + mtert = Upper(Substr(C_TMP_I.tert, At(":", C_TMP_I.tert) + 2, 100)) + Else + mtert = Upper(C_TMP_I.tert) + Endif + Replace tert With mtert + mtextoriginal = C_TMP_I.data_t + " " + Chr(13) + C_TMP_I.suma + " " + Chr(13) + C_TMP_I.referinta + " " + Chr(13) + Alltrim(C_TMP_I.explicatie) + " " + Chr(13) + Alltrim(C_TMP_I.tert) + Replace explicatie With mexplicatie, original With mtextoriginal + Endscan + Endproc + * + + Procedure csvIng + Lparameters pselectedfile, pltipfisier + Local mtextoriginal + This.cIBAN = 'ING' + mtextoriginal = "" + If pltipfisier = 1 + Create Cursor C_TMP_I (text1 C (200), field1 C (10), detalii2 C (200), detalii C (200), debit C (15), field3 C (100), credit C (15), credit2 C (15)) + Else + Create Cursor C_TMP_I (text1 C (200), field1 C (10), detalii2 C (200), detalii C (200), field4 C (10), debit C (15), field3 C (100), credit C (15), credit2 C (15)) + Endif + Append From (pselectedfile) Csv + Replace detalii With detalii2 For Empty(detalii) + Replace credit With credit2 For Empty(credit) + Locate + Select C_TMP_I + Do While !Eof() + Select C_TMP_I + If !Empty(text1) + mtextoriginal = Alltrim(text1) + If '""' $ text1 + mldatatext = Left(text1, At( ",", text1) - 1) + Else + mldatatext = Alltrim(text1) + Endif + mldata = setdategerman(mldatatext) + If mldata >= Ctod("01.01.2015") + Insert Into c_iex (Data) Values (mldata) + Select C_TMP_I + If '""' $ text1 + mloccurence3 = At(",", text1, 3) + mloccurence4 = At(",", text1, 4) + mlexplicatie1 = Substr(text1, mloccurence3 + 1, mloccurence4 - mloccurence3) + mloccurence5 = At(',', text1, 5) + mlsumadc = Substr(text1, mloccurence5 + 1, 100) + mloccurence1 = At('""', text1, 1) + mloccurence2 = At('""', text1, 2) + mlsuma = Val(Strtran(Strtran(Substr(text1, mloccurence1 + 2, mloccurence2 - mloccurence1 - 2), ".", ""), ",", ".")) + If mlsumadc = '""' + mltip = "D" + Else + mltip = "C" + Endif + If "comisio" $ Lower(text1) + Replace tip_2 With "COM" In c_iex + Endif + Else + mtextoriginal = mtextoriginal + Chr(13) + Alltrim(debit) + " " + Alltrim(field3) + " " + Alltrim(credit) + mdebit = Thisform.setsuma(debit) + Thisform.setsuma(field3) + If mdebit > 0 + mltip = "D" + mlsuma = mdebit + Else + mltip = "C" + mlsuma = Thisform.setsuma(credit) + Endif + If "comisio" $ Lower(detalii) + Replace tip_2 With "COM" In c_iex + Endif + Endif + mltert = "" + mlcont = "" + mlexplicatie2 = "" + Skip + If mltip = "D" + Replace tip With mltip, ip With "I", suma With mlsuma In c_iex + Do While Empty(text1) .And. !Eof() + mtextoriginal = mtextoriginal + Chr(13) + Alltrim(detalii) + If "Detalii:" $ detalii + mlexplicatie2 = Alltrim(Strtran(detalii, "Detalii:", "")) + Endif + If "Terminal:" $ detalii + mltert = Alltrim(Strtran(detalii, "Terminal:", "")) + Endif + If "Beneficiar:" $ detalii + mltert = Alltrim(Strtran(detalii, "Beneficiar:", "")) + Endif + If "In contul:" $ detalii + mlcont = Alltrim(Strtran(detalii, "In contul:", "")) + Endif + Skip + Enddo + Else + Replace tip With mltip, ip With "P", suma With mlsuma In c_iex + Do While Empty(text1) .And. !Eof() + mtextoriginal = mtextoriginal + Chr(13) + Alltrim(detalii) + If "Detalii:" $ detalii + mlexplicatie2 = Alltrim(Strtran(detalii, "Detalii:", "")) + Endif + If "Ordonator:" $ detalii + mltert = Alltrim(Strtran(detalii, "Ordonator:", "")) + Endif + If "Din contul:" $ detalii + mlcont = Alltrim(Strtran(detalii, "Din contul:", "")) + Endif + Skip + Enddo + Endif + Replace tert With Upper(mltert), explicatie With mlexplicatie2, iban With mlcont, original With mtextoriginal In c_iex + Loop + Else + Skip + Endif + Else + Skip + Endif + Enddo + Endproc + * + + Procedure csvIngbusiness + Lparameters pselectedfile, pldelimitator, tnTipFisier + Local mtextoriginal, mdataop, lcTipTransfer + This.cIBAN = 'INGBussiness' + mtextoriginal = "" + + IF m.tnTipFisier = 1 + Create Cursor C_TMP_I (nr_cont C (24), data_t C (10), suma C (15), cod_valuta C (3), tip_tran C (150), tert C (100), ; + adresa C (100), iban C (24), banca C (200), explicatie C (200), sold C (15), cf c(20)) + ELSE + * are in plus la inceput sold_i si sold_f + Create Cursor C_TMP_I (sold_i C(20), sold_f C(20), nr_cont C (24), data_t C (10), suma C (15), cod_valuta C (3), tip_tran C (150), tert C (100), ; + adresa C (100), iban C (24), banca C (200), explicatie C (200), sold C (15), cf c(20)) + ENDIF + If pldelimitator = ';' + Append From (mSelectedFile) Delimited With Char ";" + Else + mfilestr = Filetostr(pselectedfile) + If '""' $ mfilestr + mfilestr = Strtran(mfilestr, '"""', '""') + mfilestr = EliminVirguleDintreGhilimele(mfilestr, '""', ".") + mfilestr = Strtran(mfilestr, '"', '') + Endif + Strtofile(mfilestr, m.gcTempPath + "INGTmp.csv") + Append From (m.gcTempPath + "INGTmp.csv") Delimited With Character, + Endif + Scan For !Empty(data_t) + Select c_iex + If Alltrim(C_TMP_I.data_t) = "202" + mdataop = Substr(C_TMP_I.data_t, 7, 2) + "." + Substr(C_TMP_I.data_t, 5, 2) + "." + Substr(C_TMP_I.data_t, 1, 4) + Else + mdataop = Alltrim(C_TMP_I.data_t) + Endif + If !Empty(Ctod(mdataop)) + Insert Into c_iex (Data) Values (setdategerman(mdataop)) + msuma = This.setsuma(C_TMP_I.suma) + If "-" $ C_TMP_I.suma + Replace tip With "D" + Else + Replace tip With "C" + Endif + Replace suma With Abs(msuma) + lcTipTransfer = Lower(C_TMP_I.tip_tran) + Do Case + Case "comision" $ m.lcTipTransfer + Replace tip_2 With This.cTipComisioane + Case 'retragere numerar'$m.lcTipTransfer OR 'depunere numerar'$m.lcTipTransfer + Replace tip_2 With This.cTipDepunere + Case 'transfer intern'$m.lcTipTransfer + Replace tip_2 With This.cTipTransfer + Otherwise + Replace tip_2 With "" + ENDCASE + + Replace tert With Upper(C_TMP_I.tert), cf WITH ALLTRIM(NVL(C_TMP_I.cf,'')) + mexplicatie = Alltrim(C_TMP_I.explicatie) + mtextoriginal = C_TMP_I.data_t + " " + Chr(13) + Alltrim(C_TMP_I.suma) + " " + Chr(13) + Alltrim(C_TMP_I.tip_tran) + " " + Chr(13) + Alltrim(C_TMP_I.tert) + Chr(13) + Alltrim(C_TMP_I.iban) + " " + Chr(13) + mexplicatie + Replace explicatie With mexplicatie, original With mtextoriginal, iban With C_TMP_I.iban + Endif + Endscan + Endproc + * + + Procedure csvIntesa + Lparameters pselectedfile, pisextras + Local mtextoriginal + This.cIBAN = 'Intesa' + mtextoriginal = "" + If pisextras = 1 + Create Cursor C_TMP_I (data_v C (10), data_t C (10), detalii C (200), Curs C (10), nr C (16), tip C (1), suma C (24)) + Else + Create Cursor C_TMP_I (data_v C (11), nr C (10), detalii C (200), tert C (10), suma C (24)) + Endif + mfilestr = Filetostr(pselectedfile) + mlen = Len(mfilestr) + mfilestr = EliminVirguleDintreGhilimele(mfilestr, '"') + mfilestr = Strtran(mfilestr, '"', '') + Strtofile(mfilestr, m.gcTempPath + "IntesaTMP.csv") + Append From (m.gcTempPath + "IntesaTMP.csv") Csv + Scan For !Empty(data_v) + mdatatranz = setdategerman(Lower(C_TMP_I.data_v)) + If !Empty(mdatatranz) + msuma = Thisform.setsuma(C_TMP_I.suma) + If msuma <> 0 + Select c_iex + Insert Into c_iex (Data) Values (mdatatranz) + If pisextras = 1 + Replace tip With C_TMP_I.tip + Else + If msuma > 0 + Replace tip With "D" + Else + Replace tip With "C" + Endif + Endif + Replace suma With Abs(msuma) + Do Case + Case "comision" $ Lower(C_TMP_I.detalii) .Or. "com." $ Lower(C_TMP_I.detalii) + Replace tip_2 With "COM" + Otherwise + Replace tip_2 With "" + Endcase + + + miban = getibanfromstring(C_TMP_I.detalii, 1) + mtert = "" + If "-" $ C_TMP_I.detalii .And. Occurs( "/", C_TMP_I.detalii) >= 2 + mpoz1 = At( "-", C_TMP_I.detalii) + 2 + mpoz2 = At( "/", C_TMP_I.detalii, 2) + mtert = Alltrim(Substr(C_TMP_I.detalii, mpoz1, mpoz2 - mpoz1)) + Else + If C_TMP_I.detalii = "Incasare" .And. Occurs( "/ ", C_TMP_I.detalii) >= 2 + mpoz1 = At( "/ ", C_TMP_I.detalii) + 2 + mpoz2 = At( "/ ", C_TMP_I.detalii, 2) - 1 + mtert = Substr(C_TMP_I.detalii, mpoz1, mpoz2 - mpoz1) + If "," $ mtert + mtert = Left(mtert, At( ",", mtert) - 1) + Endif + Endif + Endif + If "CUI" $ mtert + mtert = Left(mtert, At("CUI", mtert) - 1) + Endif + mexplicatie = C_TMP_I.detalii + If ":" $ C_TMP_I.detalii + mpoz1 = At(":", C_TMP_I.detalii) + 2 + mexplicatie = Alltrim(Substr(C_TMP_I.detalii, mpoz1, 150)) + Endif + Replace tert With mtert + If "CUI" $ C_TMP_I.detalii + mpoz1 = At("CUI", C_TMP_I.detalii) + 4 + Replace cf With getdigitsfromstring(Substr(C_TMP_I.detalii, mpoz1, 16), 4, 1, ".") + Endif + mtextoriginal = C_TMP_I.data_v + Chr(13) + Alltrim(C_TMP_I.suma) + " " + Chr(13) + Alltrim(C_TMP_I.nr) + " " + Chr(13) + Alltrim(C_TMP_I.detalii) + Replace explicatie With mexplicatie, original With mtextoriginal, iban With miban + Endif + Endif + Endscan + Endproc + * + + Procedure csvPaypal + Lparameters pselectedfile + Local mtextoriginal + This.cIBAN = 'PayPal' + mtextoriginal = "" + Create Cursor C_TMP_I (data_t C (10), c1 C (10), c2 C (10), detalii1 C (100), cod_valuta C (16), suma C (16), fee C (10), net C (100), ; + balance C (10), c3 C (10), email C (60), nume C (100), banca C (10), iban C (24), c5 C (10), c6 C (10), c7 C (10), c8 C (100)) + Append From (mSelectedFile) Csv + Delete For Empty(C_TMP_I.data_t) + Scan For !Empty(data_t) + Select c_iex + If C_TMP_I.data_t = "202" .Or. !"/" $ C_TMP_I.data_t + mdata = setdategerman(C_TMP_I.data_t) + Else + Set Date To AMERICAN + mdata = Ctod(C_TMP_I.data_t) + Set Date To German + Endif + Insert Into c_iex (Data) Values (mdata) + If "-" $ C_TMP_I.suma + Replace tip With "D" + Else + Replace tip With "C" + Endif + Replace suma With This.setsuma(C_TMP_I.suma) + Do Case + Case "comision" $ Lower(C_TMP_I.detalii1) .Or. "COMMISSION" $ Upper(C_TMP_I.detalii1) + Replace tip_2 With "COM" + Otherwise + Replace tip_2 With "" + Endcase + Replace tert With Upper(C_TMP_I.nume), cod_valuta With C_TMP_I.cod_valuta + mexplicatie = Alltrim(C_TMP_I.detalii1) + mtextoriginal = C_TMP_I.data_t + " " + Chr(13) + C_TMP_I.suma + " " + Chr(13) + Alltrim(C_TMP_I.iban) + " " + Chr(13) + Alltrim(C_TMP_I.nume) + " " + Alltrim(C_TMP_I.cod_valuta) + " " + Chr(13) + Alltrim(C_TMP_I.email) + " " + Chr(13) + mexplicatie + Replace explicatie With mexplicatie, original With mtextoriginal, iban With C_TMP_I.iban, email With C_TMP_I.email + mfee = This.setsuma(C_TMP_I.fee) + If mfee > 0 + Insert Into c_iex (Data, tip, suma, tip_2, explicatie) Values (mdata, "D", mfee, "COM", "Comision") + Endif + Endscan + Endproc + * + + Procedure csvPayu + Lparameters pselectedfile + Local mtextoriginal, mfilestr, mlen, ij, mpas + This.cIBAN = 'PayU' + mtextoriginal = "" + Create Cursor C_TMP_I (c01 C (1), c02 C (1), c03 C (1), c04 C (1), c05 C (1), c06 C (1), c07 C (1), ; + c08 C (1), c09 C (1), c10 C (1), Data C (10), c12 C (1), c13 C (1), c14 C (1), suma C (15), c16 C (1), ; + c17 C (1), c18 C (1), c19 C (1), c20 C (1), c21 C (1), c22 C (1), c23 C (1), c24 C (1), ; + firma C (150), client C (150), adresa C (160), telefon C (16), email C (64), oras C (24), ; + c60 C (1), c61 C (1), c62 C (1), cnp C (13), cf C (13), nr_i C (15), banca C(60), iban C(250), referinta C(60)) + + Select C_TMP_I + Append From (pselectedfile) Csv + Scan For !Empty(Data) + Select c_iex + Insert Into c_iex (Data) Values (setdategerman(C_TMP_I.Data)) + Replace tip With "C", suma With This.setsuma(C_TMP_I.suma) + mtert = "" + mcf = "" + If !Empty(C_TMP_I.firma) + mtert = Upper(Alltrim(C_TMP_I.firma)) + Else + mtert = Upper(Alltrim(C_TMP_I.client)) + Endif + If !Empty(C_TMP_I.cf) + mcf = Alltrim(C_TMP_I.cf) + Else + mcf = Alltrim(C_TMP_I.cnp) + Endif + Replace tert With mtert, cf With mcf, iban With C_TMP_I.iban, tel With C_TMP_I.telefon, email With C_TMP_I.email + mexplicatie = Alltrim(C_TMP_I.referinta) + mtextoriginal = C_TMP_I.Data + Chr(13) + Alltrim(C_TMP_I.firma) + Alltrim(C_TMP_I.client) + Chr(13) + Alltrim(C_TMP_I.cnp) + Alltrim(C_TMP_I.cf) + Chr(13) + Alltrim(C_TMP_I.telefon) + Chr(13) + Alltrim(C_TMP_I.email) + Chr(13) + Alltrim(C_TMP_I.suma) + Chr(13) + Alltrim(C_TMP_I.oras) + " " + Alltrim(C_TMP_I.adresa) + Replace explicatie With mexplicatie, original With mtextoriginal + Endscan + Endproc + * + + Procedure csvStripe + Lparameters pselectedfile + Local mtextoriginal, mfilestr, mlen, ij, mpas + This.cIBAN = 'Stripe' + mtextoriginal = "" + Create Cursor C_TMP_I (DataC C (25), tip C (30), comanda C (30), client C (150), status C(50), Data C (10), suma C (15), ; + comision C (15), sumaneta C (15), referinta c(50)) + + Select C_TMP_I + Append From (pselectedfile) Csv + Scan For !Empty(Data) + lcData = ALLTRIM(data) + ldData = {} + lnLuna = VAL(GETWORDNUM(m.lcData,1,'/')) + lnZi = VAL(GETWORDNUM(m.lcData,2,'/')) + lnAn = VAL(GETWORDNUM(m.lcData,3,'/')) + IF BETWEEN(m.lnZi, 1, 31) AND BETWEEN(m.lnLuna, 1, 12) AND BETWEEN(m.lnAn, 2000,2999) + TRY + ldData = DATE(m.lnAn, m.lnLuna, m.lnZi) + CATCH + * + ENDTRY + ENDIF + + SELECT c_iex + Insert Into c_iex (Data) Values (m.ldData) + Replace tip With "C", suma With This.setsuma(C_TMP_I.suma) + mtert = Upper(Alltrim(C_TMP_I.client)) + Replace tert With mtert + mexplicatie = Alltrim(C_TMP_I.tip) + ' ' + Alltrim(C_TMP_I.comanda) + mtextoriginal = C_TMP_I.Data + Chr(13) + Alltrim(C_TMP_I.client) + Chr(13) + Alltrim(C_TMP_I.suma) + Chr(13) + Alltrim(C_TMP_I.comanda) + Replace explicatie With mexplicatie, original With mtextoriginal + Endscan + Endproc + * + + Procedure csvRaiffeisen + Lparameters pselectedfile, pdelimiter + Local mtextoriginal + This.cIBAN = 'Raiffeisen' + mtextoriginal = "" + + Create Cursor C_TMP_I (data_t C (10), data_v C (10), debit C (15), credit C (15), nr C (15), cf C (15), ordonator C (100), beneficiar C (100), ; + nume C(100), banca C (100), iban C (24), detalii C (200)) + + If pdelimiter = ";" + Append From (mSelectedFile) Delimited With Char ";" + Else + Append From (mSelectedFile) Csv + Endif + Delete For Empty(Ctod(C_TMP_I.data_t)) + Scan For !Empty(data_t) + Select c_iex + Insert Into c_iex (Data) Values (setdategerman(C_TMP_I.data_t)) + If !Empty(C_TMP_I.debit) + Replace tip With "D" + msuma = This.setsuma(C_TMP_I.debit) + Else + Replace tip With "C" + msuma = This.setsuma(C_TMP_I.credit) + Endif + Replace suma With msuma + Do Case + Case "comision" $ Lower(C_TMP_I.detalii) + Replace tip_2 With "COM" + Otherwise + Replace tip_2 With "" + Endcase + Replace nr With C_TMP_I.nr, tert With Upper(C_TMP_I.nume), cf With Upper(C_TMP_I.cf) + mexplicatie = Alltrim(C_TMP_I.detalii) + mtextoriginal = C_TMP_I.data_t + " " + Chr(13) + Alltrim(C_TMP_I.debit) + Alltrim(C_TMP_I.credit) + " " + Chr(13) + Alltrim(C_TMP_I.nr) + Chr(13) + Alltrim(C_TMP_I.iban) + " " + Chr(13) + Alltrim(C_TMP_I.nume) + " " + Alltrim(C_TMP_I.cf) + " " + Chr(13) + mexplicatie + Replace explicatie With mexplicatie, original With mtextoriginal, iban With C_TMP_I.iban + Endscan + Endproc + * + + Procedure csvUnicredit + Lparameters pselectedfile, pdelimiter + Local mtextoriginal + This.cIBAN = 'Unicredit' + mtextoriginal = "" + Create Cursor C_TMP_I (Cont C (24), suma C (15), valuta C (16), data_t C (10), data_v C (10), banca C (10), banca_nume C (100), ; + adresa C (10), cont1 C(10), iban C (24), nume C(100), adr1 C (10), adr2 C (10), adr3 C (10), detalii1 C (100), detalii2 C (100), ; + detalii3 C (100), detalii4 C (100), detalii5 C (100), detalii6 C (100), detalii7 C (100), detalii8 C (100), detaliip1 C (100), detaliip2 C (100), detaliip3 C (100), ; + detaliip4 C (100), detaliip5 C (100), detaliip6 C (100), ; + cf C (15), nr C (15), camp2 C (10), camp3 C (10), camp4 C (10), plafon C (15)) + + + If File(m.pselectedfile) + lnLinii = Alines(This.aLinii, Filetostr(m.lcFile), 1) + lnLinii = Iif(Empty(m.lnLinii), 0, m.lnLinii) + This.nLinii = m.lnLinii + + lcLinie = This.aLinii[2] + This.cIBAN = syGETWORDNUM(m.lcLinie, 2, ';') + This.cValuta = syGETWORDNUM(m.lcLinie, 3, ';') + Endif + + Do Case + Case pdelimiter = ";" + Append From (mSelectedFile) Delimited With Char ";" + Case pdelimiter = Chr(10) .Or. Empty(pdelimiter) + Append From (mSelectedFile) Delimited With Char Tab + Otherwise + Append From (mSelectedFile) Csv + Endcase + Delete For Empty(Ctod(C_TMP_I.data_t)) + Scan For !Empty(data_t) .And. !Empty(setdategerman(C_TMP_I.data_t)) + Select c_iex + Insert Into c_iex (Data) Values (setdategerman(C_TMP_I.data_t)) + If "-" $ C_TMP_I.suma + Replace tip With "D" + Else + Replace tip With "C" + Endif + Replace suma With This.setsuma(C_TMP_I.suma) + Do Case + Case "comision" $ Lower(C_TMP_I.detalii1) .Or. "transfond fee" $ Lower(C_TMP_I.detalii1) .Or. ; + "COMMISSION" $ Upper(C_TMP_I.detalii1) Or ; + ' FEE' $ Upper(C_TMP_I.detalii1) Or 'FEE/' $ Upper(C_TMP_I.detalii1) Or Upper(C_TMP_I.detalii1) = 'FEE' + lcTip2 = "COM" + Case 'CASH DEPOSIT' $ Upper(C_TMP_I.detalii1) + lcTip2 = This.cTipDepunere + Case 'BUGETUL DE STAT' $ Upper(C_TMP_I.nume) + lcTip2 = This.cTipBuget + Case 'PROMISSORY NOTE' $ Upper(C_TMP_I.detaliip1) Or 'PROMISSORY NOTE' $ Upper(C_TMP_I.detalii1) + lcTip2 = This.cTipEfecteComerciale + Otherwise + lcTip2 = This.cTipTerti + Endcase + + Replace nr With C_TMP_I.nr, tert With C_TMP_I.nume, cf With C_TMP_I.cf, tip_2 With m.lcTip2 + + mexplicatie = Alltrim(Alltrim(C_TMP_I.detalii1) + " " + Alltrim(C_TMP_I.detalii2) + " " + Alltrim(C_TMP_I.detalii3) + " " + ; + Alltrim(C_TMP_I.detalii4) + " " + Alltrim(C_TMP_I.detalii5) + " " + ; + Alltrim(C_TMP_I.detalii6) + " " + Alltrim(C_TMP_I.detalii7) + " " + Alltrim(C_TMP_I.detalii8) + " " + ; + Alltrim(C_TMP_I.detaliip1) + " " + Alltrim(C_TMP_I.detaliip2) + " " + Alltrim(C_TMP_I.detaliip3) + " " + ; + Alltrim(C_TMP_I.detaliip4) + " " + Alltrim(C_TMP_I.detaliip5) + " " + Alltrim(C_TMP_I.detaliip6)) + + mtextoriginal = C_TMP_I.data_t + " " + Chr(13) + C_TMP_I.suma + " " + Chr(13) + Alltrim(C_TMP_I.iban) + " " + Chr(13) + Alltrim(C_TMP_I.nume) + " " + Alltrim(C_TMP_I.cf) + " " + Chr(13) + mexplicatie + " " + Chr(13) + Alltrim(C_TMP_I.nr) + + * Array sau lista cu numere de facturi separate prin "," daca exista in descriere + * (?:( \d+)(?![\.\d])(?!2021).) spatiu apoi cifre, fara . si cifra si fara anul curent (sa excluda datele) + lcFacturi = '' + lcDescriereFacturi = m.mexplicatie + lnResults = GetRegExpAllNumbers(m.lcDescriereFacturi, @m.lcFacturi) + + Replace explicatie With mexplicatie, original With mtextoriginal, iban With C_TMP_I.iban, documente With m.lcFacturi + Endscan + Endproc + * + Procedure csvMobilPay + Lparameters pselectedfile + + Local mtextoriginal, mdata, mexplicatie, msuma, mcomanda, lcTip, lcTip2, lcNr + This.cIBAN = 'MobilPay' + + mtextoriginal = "" + Create Cursor C_TMP_I (c1 C (4), c2 C (24), Id C (24), ; + data_v C (24), data_o C(10), suma C (24), creditat C (24), comision ; + C (10), tva_comis C (10), moneda C (3), c9 C (24), ; + c10 C (24), prenume C (36), nume C (36), email C (60), ; + tel C (20), descriere C (100)) + + Append From (mSelectedFile) Delimited With Char, + *Locate For .Not. Empty(data_v) + Scan For .Not. Empty(data_v) + mdata = setdategerman(C_TMP_I.data_v) + msuma = This.setsuma(C_TMP_I.suma) + mcomision = This.setsuma(C_TMP_I.comision) + This.setsuma(C_TMP_I.tva_comis) + lcNr = DTOS(mdata) + lcTip2 = '' + IF msuma = 0 AND mcomision <> 0 + msuma = -ABS(mcomision) + lcTip2 = This.cTipComisionDecont + ENDIF + If !Empty(mdata) And msuma <> 0 + Select c_iex + Insert Into c_iex (Data) Values (mdata) + If msuma < 0 + lcTip = "D" + Else + lcTip = "C" + ENDIF + * comisioanele au suma negativa + msuma = ABS(msuma) + + mexplicatie = Alltrim(C_TMP_I.descriere) && "Plata comanda SOWB21009885 de la Safetyone" + mcomanda = ALLTRIM(STREXTRACT(mexplicatie, 'plata comanda ', ' ', 1, 1+2)) + + mtextoriginal = Alltrim(C_TMP_I.Id) + " " + C_TMP_I.data_v + " " + Chr(13) + ; + Alltrim(C_TMP_I.suma) + " " + Chr(13) + Alltrim(C_TMP_I.nume) + " " + ; + Alltrim(C_TMP_I.prenume) + Chr(13) + Alltrim(C_TMP_I.email) + " " + Chr(13) + Alltrim(C_TMP_I.tel) + + Replace explicatie With mexplicatie, original With mtextoriginal, tel With C_TMP_I.tel, email With C_TMP_I.email, tip_2 WITH m.lcTip2, comenzi WITH mcomanda, ; + tert With Upper(Alltrim(C_TMP_I.nume)) + " " + Upper(Alltrim(C_TMP_I.prenume)), tip WITH m.lcTip, suma With msuma, nr WITH m.lcNr + Endif + Endscan + Endproc + * + Procedure txtPosta + + Lparameters pselectedfile + Local mtextoriginal + This.cIBAN = 'POSTA' + *:Global mexplicatie, msuma + mtextoriginal = "" + Create Cursor C_TMP_I (c1 C (24), c2 C (24), nr C (24), data1 C (10), oficiu C (36), tert C (64), adresa C (150), suma C (24), linie C (1), explicatie C (200), data_v C (10)) + Append From (mSelectedFile) Delimited With Char ";" + Scan For !Empty(data_v) + Select c_iex + Insert Into c_iex (Data) Values (setdategerman(C_TMP_I.data_v)) + msuma = This.setsuma(C_TMP_I.suma) + Replace tip With "C", suma With msuma, nr With C_TMP_I.nr + mexplicatie = Alltrim(C_TMP_I.explicatie) + Replace tert With Upper(C_TMP_I.tert) + mtextoriginal = C_TMP_I.data_v + " " + C_TMP_I.c2 + " " + C_TMP_I.nr + " " + Chr(13) + Alltrim(C_TMP_I.suma) + " " + Chr(13) + Alltrim(C_TMP_I.tert) + " " + Chr(13) + Alltrim(C_TMP_I.adresa) + Chr(13) + Alltrim(C_TMP_I.explicatie) + Replace explicatie With mexplicatie, original With mtextoriginal + Endscan + Endproc +* + Function setsuma + + Lparameters plsumatext + Local ii + plsumatext = Alltrim(plsumatext) + mlen = Len(plsumatext) + For ii = 1 To mlen + If !Inlist(Substr(plsumatext, ii, 1), " ", ",", ".", "-", "+", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9") + plsumatext = Left(plsumatext, ii - 1) + Exit + Endif + Endfor + Do Case + Case "." $ Right(Alltrim(plsumatext), 3) + Return Val(Strtran(plsumatext, ",", "")) + Case "," $ Right(Alltrim(plsumatext), 3) + Return Val(Strtran(Strtran(plsumatext, ".", ""), ",", ".")) + Otherwise + Return Val(Strtran(plsumatext, ",", "")) + Endcase + Endfunc && SetSuma + + * + * Nu am verificat ce face + Function actsume + Local mnrrec, lcSelect + lcSelec = Select() + Select match + Do Case + Case achitat < neachitat_real + Replace is_total With 0 + Case achitat = neachitat_real + Replace is_total With 1 + Case achitat > Total .And. Total > 0 + Select (m.lcSelect) + Return .F. + Endcase + If .Not. Eof() + mnrrec = Recno() + Endif + + Scan + Replace neachitat With neachitat_real - achitat + Endscan + Sum achitat, neachitat To lnAchitat, lnNeachitat + If Type("mNrRec") = "N" + Goto mnrrec + Endif + lnRamas = c_iex.suma - m.lnAchitat + If m.lnRamas = 0 + Replace asociat With 1 In c_iex + Else + Replace asociat With 0 In c_iex + Endif + Select (m.lcSelect) + Return .T. + Endfunc && ActSume + * +Enddefine && ExtrasBanca_General + +* +Function ValidCNP + Lparameters lpcnp + If Len(Alltrim(lpcnp)) <> 13 + Return .F. + Endif + n1 = Val(Substr(lpcnp, 1, 1)) + n2 = Val(Substr(lpcnp, 2, 1)) + n3 = Val(Substr(lpcnp, 3, 1)) + n4 = Val(Substr(lpcnp, 4, 1)) + n5 = Val(Substr(lpcnp, 5, 1)) + n6 = Val(Substr(lpcnp, 6, 1)) + n7 = Val(Substr(lpcnp, 7, 1)) + n8 = Val(Substr(lpcnp, 8, 1)) + n9 = Val(Substr(lpcnp, 9, 1)) + n10 = Val(Substr(lpcnp, 10, 1)) + n11 = Val(Substr(lpcnp, 11, 1)) + n12 = Val(Substr(lpcnp, 12, 1)) + n13 = Val(Substr(lpcnp, 13, 1)) + C = Mod((n1 * 2 + n2 * 7 + n3 * 9 + n4 * 1 + n5 * 4 + n6 * 6 + n7 * 3 + n8 * 5 + n9 * 8 + n10 * 2 + n11 * 7 + n12 * 9), 11) + If C = 10 + C = 1 + Endif + If C = n13 + Return .T. + Else + Return .F. + Endif +Endfunc +* +Function GetDataCNP + Lparameters plcnp + Local mlan + mlan = Substr(plcnp, 2, 2) + If Val(mlan) > 20 .And. !Inlist(Left(plcnp, 1), "5", "6") + mlan = "19" + mlan + Else + mlan = "20" + mlan + Endif + Return Ctod(Substr(plcnp, 6, 2) + "." + Substr(plcnp, 4, 2) + "." + mlan) +Endfunc +* +Function verifcf + Lparameters plcfisc + Local mlsuma, mlrest + plcfisc = getnrfromstring(plcfisc) + If Len(Alltrim(plcfisc)) = 13 + If !ValidCNP(plcfisc) + Return .F. + Else + Return .T. + Endif + Else + If Len(Alltrim(plcfisc)) < 2 .Or. Len(Alltrim(plcfisc)) > 9 .Or. plcfisc = "0" + Return .F. + Endif + Endif + plcfisc = Padl(Alltrim(plcfisc), 10, "0") + mlsuma = 0 + For I = 1 To 10 + mlsuma = mlsuma + Val(Substr(plcfisc, I, 1)) * Val(Substr("753217532", I, 1)) + Endfor + mlrest = Mod((mlsuma * 10), 11) + If mlrest = 10 + mlrest = 0 + Endif + If Val(Substr(plcfisc, 10, 1)) <> mlrest + Return .F. + Else + Return .T. + Endif +Endfunc +* +Function getnrfromstring + Lparameters plstr + Local mlenstr + mlenstr = Len(Alltrim(plstr)) + Do While Isalpha(plstr) .Or. Left(plstr, 1) == " " .Or. Left(plstr, 1) == "&" .Or. Left(plstr, 1) == "/" .Or. Left(plstr, 1) == "-" .Or. Left(plstr, 1) == "_" .Or. Left(plstr, 1) == "." .Or. Left(plstr, 1) == ":" + plstr = Rtrim(Substr(plstr, 2, mlenstr)) + Enddo + Return plstr +Endfunc +* +Function getdigitsfromstring + Lparameters plstr, plnrdigits, pltip, plseparator + Local mlenstr, ii, mreturnnrintermed, mreturnnrfinal + mlenstr = Len(Alltrim(plstr)) + mreturnnrintermed = "" + mreturnnrfinal = "" + For ii = 1 To mlenstr + mcurentchar = Substr(plstr, ii, 1) + If Isdigit(mcurentchar) .Or. (pltip = 3 .And. Inlist(mcurentchar, ".", ",")) + mreturnnrintermed = mreturnnrintermed + mcurentchar + Else + If pltip = 1 .Or. pltip = 2 + mreturnnrintermed = "" + Endif + Endif + If Len(mreturnnrintermed) >= plnrdigits + Do Case + Case pltip = 1 + If Len(mreturnnrintermed) <= 12 .And. verifcf(mreturnnrintermed) .And. !Isdigit(Substr(plstr, ii + 1, 1)) + mreturnnrfinal = mreturnnrintermed + Exit + Endif + Case pltip = 2 + If ValidCNP(mreturnnrintermed) + mreturnnrfinal = mreturnnrintermed + Exit + Endif + Case pltip = 3 + mreturnnrintermed = Strtran(mreturnnrintermed, plseparator, "") + If Val(mreturnnrintermed) > 0 + mreturnnrfinal = mreturnnrintermed + Exit + Endif + Endcase + Endif + Endfor + Return mreturnnrfinal +Endfunc +* +Function getibanfromstring + Lparameters plstr, plpoz + Local mlenstr, ii, mreturnnrintermed, mreturnnrfinal + mlenstr = Len(Alltrim(plstr)) + mreturnnrintermed = "" + mreturnnrfinal = "" + misok = .F. + For ii = 1 To mlenstr + mcurentchar = Substr(plstr, ii, 1) + If misok + If Len(mreturnnrintermed) < 24 + mreturnnrintermed = mreturnnrintermed + mcurentchar + Else + Exit + Endif + Else + If mcurentchar == "R" .And. mreturnnrintermed = "" .And. Substr(plstr, ii + 1, 1) == "O" + mreturnnrintermed = mreturnnrintermed + mcurentchar + Else + If mcurentchar == "O" .And. mreturnnrintermed = "R" + mreturnnrintermed = mreturnnrintermed + mcurentchar + Else + If !misok .And. Inlist(mcurentchar, "1", "2", "3", "4", "5", "6", "7", "8", "9", "0") .And. mreturnnrintermed = "RO" .And. Len(mreturnnrintermed) <= 3 + mreturnnrintermed = mreturnnrintermed + mcurentchar + If plpoz = 1 + misok = .T. + Else + mreturnnrintermed = "" + plpoz = plpoz - 1 + Endif + Else + mreturnnrintermed = "" + Endif + Endif + Endif + Endif + Endfor + If verifiban(mreturnnrintermed) + Return mreturnnrintermed + Else + Return "" + Endif +Endfunc + +* + +Function getnumberincrement + Lparameters pactualnumber + Local mstartchr, mintermed + mstartchr = "" + mintermed = Alltrim(pactualnumber) + mlennr = Len(mintermed) + Do While Isalpha(mintermed) .Or. Left(mintermed, 1) == " " .Or. Left(mintermed, 1) == "-" .Or. Left(mintermed, 1) == "." .Or. Left(mintermed, 1) == "/" + mstartchr = mstartchr + Left(mintermed, 1) + mintermed = Rtrim(Substr(mintermed, 2, 16)) + Enddo + Return Round(Val(Strtran(Strtran(mintermed, "e", ""), "E", "")), 0) +Endfunc +* +Function GetSerieIncrement + Lparameters pactualnumber + Local mstartchr, mintermed + mstartchr = "" + mintermed = Alltrim(pactualnumber) + mlennr = Len(mintermed) + Do While Isalpha(mintermed) .Or. Inlist(Left(mintermed, 1), " ", ".", "/", "-") + mstartchr = mstartchr + Left(mintermed, 1) + mintermed = Rtrim(Substr(mintermed, 2, 16)) + Enddo + Return mstartchr +Endfunc +* +* +Function setdategerman + Lparameters pldatatext + Local mdatar, mlzi, mlluna, mlan, mlunatext, lcSetDate + *:Global mlocc, mlocc1 + lcSetDate = Set("Date") + If "ian" $ pldatatext .Or. "feb" $ pldatatext .Or. "mar" $ pldatatext .Or. "apr" $ pldatatext .Or. "mai" $ pldatatext .Or. "iun" $ pldatatext .Or. "iul" $ pldatatext .Or. "aug" $ pldatatext .Or. "sep" $ pldatatext .Or. "oct" $ pldatatext .Or. "noi" $ pldatatext .Or. "dec" $ pldatatext .Or. "jan" $ pldatatext .Or. "may" $ pldatatext .Or. "jun" $ pldatatext .Or. "jul" $ pldatatext .Or. "nov" $ pldatatext + mlocc = At(" ", pldatatext, 2) + mlocc1 = At(" ", pldatatext, 1) + If mlocc = 0 + mlocc = At("-", pldatatext, 2) + mlocc1 = At("-", pldatatext, 1) + If mlocc = 0 + mlocc = At(".", pldatatext, 2) + mlocc1 = At(".", pldatatext, 1) + Endif + Endif + mlzi = Substr(pldatatext, 1, mlocc1 - 1) + mlunatext = Lower(Substr(pldatatext, mlocc1 + 1, mlocc - 3)) + mlluna = "" + Do Case + Case mlunatext = "ian" .Or. mlunatext = "jan" + mlluna = "01" + Case mlunatext = "feb" + mlluna = "02" + Case mlunatext = "mar" + mlluna = "03" + Case mlunatext = "apr" + mlluna = "04" + Case mlunatext = "mai" .Or. mlunatext = "may" + mlluna = "05" + Case mlunatext = "iun" .Or. mlunatext = "jun" + mlluna = "06" + Case mlunatext = "iul" .Or. mlunatext = "jul" + mlluna = "07" + Case mlunatext = "aug" + mlluna = "08" + Case mlunatext = "sep" + mlluna = "09" + Case mlunatext = "oct" + mlluna = "10" + Case mlunatext = "noi" .Or. mlunatext = "nov" + mlluna = "11" + Case mlunatext = "dec" + mlluna = "12" + Endcase + mlan = Substr(pldatatext, mlocc + 1, 4) + mdatar = Ctod(mlzi + "." + mlluna + "." + mlan) + Else + pldatatext = Substr(pldatatext, 1, 10) + If "," $ pldatatext + pldatatext = Left(pldatatext, At(",", pldatatext) - 1) + Endif + mdatar = {} + If Substr(pldatatext, 3, 1) == '/' .Or. Substr(pldatatext, 2, 1) == '/' + mdatar = Ctod(Strtran(pldatatext, "/", ".")) + Else + If Left(pldatatext, 3) == '201' .Or. Left(pldatatext, 3) == '202' + Set Date To Japan + If "-" $ pldatatext .Or. "/" $ pldatatext + mdatar = Ctod(Strtran(pldatatext, "-", "/" )) + Else + mdatar = Ctod(Substr(pldatatext, 1, 4) + "/" + Substr(pldatatext, 5, 2) + "/" + Substr(pldatatext, 7, 2)) + Endif + Set Date To German + Else + mdatar = Ctod(pldatatext) + Endif + Endif + Endif + Set Date &lcSetDate + Return mdatar +Endfunc +* +Function EliminVirguleDintreGhilimele + Lparameters plstring, pltipghilimele, plinlocuitor + Local mnrghilimele, mlen, mstartghilimele, ij + mlen = Len(plstring) + mnrghilimele = Len(pltipghilimele) + mstartghilimele = 0 + For ij = 1 To mlen + If Substr(plstring, ij, mnrghilimele) = pltipghilimele + If mstartghilimele = 0 + mstartghilimele = 1 + Else + mstartghilimele = 0 + Endif + Endif + If Substr(plstring, ij, 1) = ',' .And. mstartghilimele = 1 + If Type("plInlocuitor") = "C" + plstring = Substr(plstring, 1, ij - 1) + plinlocuitor + Alltrim(Substr(plstring, ij + 1, 2000000)) + Else + plstring = Substr(plstring, 1, ij - 1) + Alltrim(Substr(plstring, ij + 1, 2000000)) + Endif + mlen = mlen - 1 + ij = ij - 1 + Endif + Endfor + Return plstring +Endfunc + + +* -------------------------------------------------------------------- +* Intoarce numarul de rezultate +* Parametrul tcItems (OUT) o lista cu numere separate prin virgula din textul original +* -------------------------------------------------------------------- +Function GetRegExpAllNumbers + Lparameters tcSourceString, tcItems + * tcSourceString: Bld. Stefan cel Mare 14 Tirgu Neamt + * tcPattern: [A-Za-z\s]+$ = (caracter sau spatiu) de cel putin o data la sfarsitul liniei = Tirgu Neamt + * tcPattern: \d+[A-Za-z\s]+$ = oricate cifre (caracter sau spatiu) de cel putin o data la sfarsitul liniei = 14 Tirgu Neamt + * taItems "A">taItems : array cu rezultatele (OUT) taItems[1..Result] sau taItems "C" lista facturi separate prin virgula + Local lnResults, lcPattern, lcAn, lcAn2, lcSourceString + *!* lcRegExp = "(\d)+" + *!* lcRegExp = "(?select id_part from nom_parteneri where replace(UPPER(cod_fiscal),' ', '') = replace(UPPER(?pcCodFiscal), ' ', '') and sters = 0 and inactiv = 0??cCursor=>cClientiROA]) + Local lcAdresa, lcAdreseParteneri, lcApart, lcBanca, lcBloc, lcCod_fiscal, lcCodpostal, lcCont_Banca + Local lcCorespDel, lcDA_apare, lcDenumire, lcDenumire_adresa, lcEmail, lcEtaj, lcFax, lcIdPart + Local lcIdString, lcId_Judet, lcId_categ_ent, lcId_loc, lcId_loc_inreg, lcId_tara, lcId_util, lcItem + Local lcJudet, lcJudetBucuresti, lcLocalitate, lcMesaj, lcMotiv_inactiv, lcNumar, lcNume, lcPrefix + Local lcPrenume, lcPrincipala, lcReg_comert, lcScara, lcSelect, lcSql, lcSqlCod, lcSqlDenumire + Local lcSqlInsert, lcSqlPart, lcStrada, lcSufix, lcTara, lcTelefon1, lcTelefon2, lcTip_persoana + Local lcWeb, lcinactiv, llCallBack, llSucces, lnIdJudet, lnIdJudetBucuresti, lnIdLocalitateBucuresti + Local lnIdTaraRO, lnItem, lnItems, lnSucces + Private pnIdAdresa, pcCodFiscal, pcDenumire, pnIdPart, pnNrAdrese, pnIdJudet + + llCallBack = Type('toCallBackForm') = 'O' And Pemstatus(m.toCallBackForm, 'trace', 5) + + pnIdJudet = 0 + pcCodFiscal = '' + pcDenumire = '' + pnIdPart = 0 + pnNrAdrese = 0 + + lcSelect = Select() + + lcSqlPart = [select id_part, cod_fiscal, denumire from nom_parteneri where sters = 0 and inactiv = 0] + llSucces = goExecutor.oExecuta(m.lcSqlPart, 'cParteneriROA') + + If !m.llSucces + Return m.llSucces + Endif + + lcAdreseParteneri = [select id_adresa, id_part, localitate, id_loc, judet, id_judet, tara, id_tara from vadrese_parteneri] + llSucces = goExecutor.oExecuta(m.lcAdreseParteneri, 'cAdreseROA') + + If !m.llSucces + Use In (Select('cParteneriROA')) + Return m.llSucces + Endif + + *!* lcSqlCod = [select MAX(id_part) as id_part from nom_parteneri where replace(UPPER(cod_fiscal),' ', '') = ?pcCodFiscal and sters = 0 and inactiv = 0] + *!* lcSqlDenumire = [select MAX(id_part) as id_part from nom_parteneri where denumire = ?pcDenumire and sters = 0 and inactiv = 0] + + Select (m.tcCursorParteneri) + Scan + pcCodFiscal = Alltrim(Upper(Strtran(cod_fiscal, ' ', ''))) + pcDenumire = Alltrim(Upper(denumire)) + IF LEN(m.pcCodFiscal) <= 3 + pcCodFiscal = '' + ENDIF + pnIdPart = 0 + + lcAdresa = Iif(Type(m.tcCursorParteneri + '.adresa') = 'C', Strtran(Alltrim(Upper(Nvl(adresa, ''))), Chr(13), ' '), '') + * Preciziei (Strada), Nr. 6M, Complex rezidential TEN BLOCKS Bl. 8B, Sc. 1, Et. 6, Ap. 32, Cod Postal 062203, Bucuresti, Romania + * Doinei (Strada), Nr. 94, Et. 2, Ap. 12 int 412, Cod Postal 077086, Fundeni, Romania + * Lieberman Partners Srl Braniste Valeriu (Strada), Nr. 37-39, Et. 2, Ap. 8, Cod Postal 030715, Bucuresti, Romania + + Wait Window 'Import parteneri... Caut partenerul ' + Transform(Recno()) + '/' + Transform(Reccount()) Nowait + + Select cParteneriROA + If !Empty(m.pcCodFiscal) + Locate For Alltrim(Strtran(cod_fiscal, ' ', '')) = m.pcCodFiscal + *!* lnSucces = goExecutor.oSelect2Value(m.lcSqlCod, @pnIdPart) + Else + Locate For Alltrim(Upper(denumire)) = m.pcDenumire + *!* lnSucces = goExecutor.oSelect2Value(m.lcSqlDenumire, @pnIdPart) + Endif + *!* If m.lnSucces = -1 + *!* Thisform.trace('Eroare la selectia din clienti ROA ' + goExecutor.oPrelucrareEroare()) + *!* Exit + *!* Endif + If Found() + pnIdPart = cParteneriROA.id_part + Endif + + If !Empty(Nvl(m.pnIdPart, 0)) + Select (m.tcCursorParteneri) + Replace id_part With m.pnIdPart + lcMesaj = 'Partener existent ' + Alltrim(denumire) + ' CUI: ' + Alltrim(cod_fiscal) + ' ID: ' + Alltrim(Transform(id_part)) + If m.llCallBack + m.toCallBackForm.trace(m.lcMesaj) + Endif + Else + * Adaugare clienti + Select (m.tcCursorParteneri) + lcDenumire = Left(Nvl(Strtran(Alltrim(Upper(denumire)), ['], ['']), ""), 100) + lcNume = Left(Nvl(Strtran(Alltrim(Upper(nume)), ['], ['']), ""), 100) + lcPrenume = Left(Nvl(Strtran(Alltrim(Upper(prenume)), ['], ['']), ""), 100) + If Empty(m.lcNume) + lcNume = m.lcDenumire + lcPrenume = '' + Endif + lcCod_fiscal = Upper(Alltrim(cod_fiscal)) + IF LEN(m.lcCod_fiscal) <= 3 + lcCod_fiscal = '' + ENDIF + lcReg_comert = Nvl(Alltrim(Upper(reg_com)), "") + lcId_loc_inreg = 'NULL' + lcId_categ_ent = 'NULL' + lcPrefix = "" + lcSufix = "" + lcTip_persoana = Iif(!Empty(m.lcCod_fiscal) And Len(m.lcCod_fiscal) < 13, "1", "2") + lcBanca = "" + lcCont_Banca = "" + lcinactiv = "0" + lcMotiv_inactiv = "" + lcIdString = "16" + lcCorespDel = "" + lcId_util = "-3" + lcSqlInsert = [begin pack_def.adauga_partener('] + m.lcDenumire + [','] + m.lcNume + [','] + m.lcPrenume + [','] + m.lcCod_fiscal + [','] + ; + M.lcReg_comert + [',] + m.lcId_loc_inreg + [,] + m.lcId_categ_ent + [,'] + m.lcPrefix + [','] + m.lcSufix + [',] + ; + M.lcTip_persoana + [,'] + m.lcBanca + [','] + m.lcCont_Banca + [',] + m.lcinactiv + [,'] + m.lcMotiv_inactiv + [',] + ; + M.lcId_util + [,'] + m.lcIdString + [','] + m.lcCorespDel + [',?@pnIdPart); end;] + + llSucces = goExecutor.oExecuta(m.lcSqlInsert) + If !Empty(Nvl(m.pnIdPart, 0)) + Select (m.tcCursorParteneri) + Replace id_part With m.pnIdPart + + INSERT INTO cParteneriROA (id_part, cod_fiscal, denumire) VALUES (m.pnIdPart, m.lcCod_fiscal, m.lcDenumire) + + If m.llCallBack + m.toCallBackForm.trace('Client nou ' + Alltrim(denumire) + ' CUI: ' + Alltrim(cod_fiscal) + ' ID: ' + Alltrim(Transform(id_part))) + Endif + Else + Select (m.tcCursorParteneri) + lcMesaj = 'Eroare la adaugarea in clienti ROA ' + Alltrim(denumire) + ' CUI: ' + Alltrim(cod_fiscal) + Chr(13) + Chr(10) + goExecutor.oPrelucrareEroare() + If m.llCallBack + m.toCallBackForm.trace(m.lcMesaj) + Endif + *AMessagebox(m.lcMesaj, 0 + 48, _Screen.Caption ) + Exit + Endif && !Empty(Nvl(m.pnIdPart,0)) + + Endif && !Empty(Nvl(m.pnIdPart, 0)) + + *********************************** + * Adresa partener + *********************************** + If !Empty(m.lcAdresa) + Calculate Cnt(id_adresa) For id_part = m.pnIdPart To m.pnNrAdrese In cAdreseROA + *!* pnNrAdrese = 0 + *!* lnSucces = goExecutor.oSelect2Value([SELECT COUNT(*) as nr FROM adrese_parteneri WHERE id_part = ?pnIdPart], @pnNrAdrese) + *!* If m.lnSucces < 0 + *!* lcMesaj = goExecutor.cEroare + *!* Thisform.trace(m.lcMesaj) + *!* AMessagebox(m.lcMesaj, 0 + 48, _Screen.Caption ) + *!* Exit + *!* Endif + + lcIdPart = Alltrim(Str(m.pnIdPart)) + lcDenumire_adresa = "" + lcDA_apare = "0" + lcStrada = "" + lcNumar = "" + + lcBloc = "" + lcScara = "" + lcApart = "" + lcEtaj = "" + lcId_loc = "NULL" + lcLocalitate = "" + lcId_Judet = "NULL" + lcCodpostal = "NULL" + lcId_tara = "NULL" + lcTelefon1 = "" + lcTelefon2 = "" + lcFax = "" + lcEmail = "" + lcWeb = "" + lcPrincipala = Iif(m.pnNrAdrese = 0, "1", "0") + lcinactiv = "0" + lcId_util = "-3" + + lnItems = Getwordcount(m.lcAdresa, ',') + For lnItem = 1 To m.lnItems + lcItem = Alltrim(Getwordnum(m.lcAdresa, m.lnItem, ',')) + Do Case + Case m.lnItem = 1 && strada + lcStrada = Left(Alltrim(m.lcItem), 150) + Case 'NR.' $ m.lcItem && nr strada + lcNumar = Left(Alltrim(Strtran(m.lcItem, 'NR.', '')), 10) + Case 'BL.' $ m.lcItem + lcBloc = Left(Alltrim(Strtran(m.lcItem, 'BL.', '')), 30) + Case 'SC.' $ m.lcItem + lcScara = Left(Alltrim(Strtran(m.lcItem, 'SC.', '')), 10) + Case 'ET.' $ m.lcItem + lcEtaj = Left(Alltrim(Strtran(m.lcItem, 'ET.', '')), 20) + Case 'AP.' $ m.lcItem + lcApart = Left(Alltrim(Strtran(m.lcItem, 'AP.', '')), 10) + Case 'COD POSTAL' $ m.lcItem + lcCodpostal = Alltrim(Str(Int(Val(Left(Alltrim(Strtran(m.lcItem, 'COD POSTAL', '')), 20))))) + Case 'LOC.' $ m.lcItem + lcLocalitate = Alltrim(Strtran(m.lcItem, 'LOC.', '')) + Case 'JUD.' $ m.lcItem + lcJudet = Alltrim(Strtran(m.lcItem, 'JUD.', '')) + Case m.lnItem = m.lnItems - 1 And Empty(m.lcLocalitate) + lcLocalitate = m.lcItem + Case m.lnItem = m.lnItems + lcTara = m.lcItem + Endcase + Endfor + + lnIdJudetBucuresti = 10 + lcJudetBucuresti = "BUCURESTI" + lnIdLocalitateBucuresti = 1759 + lnIdTaraRO = 1 + + If m.lcLocalitate = 'BUCURESTI' + lcLocalitate = 'BUCURESTI SECTORUL 1' + Endif + If Empty(m.lcLocalitate) + lcLocalitate = 'BUCURESTI SECTORUL 1' + Endif + If Empty(m.lcJudet) + lcJudet = m.lcJudetBucuresti + Endif + + * caut adresa dupa localitate. daca nu o gasesc, o adaug + Select cAdreseROA + Locate For id_part = m.pnIdPart And localitate = m.lcLocalitate + If !Found() + pnIdJudet = 0 + llSucces = goExecutor.oSelecteaza2Value([select j.id_judet, j.id_tara from syn_nom_judete j where j.judet = '] + m.lcJudet + [' and j.inactiv = 0 and j.sters = 0], @m.pnIdJudet) + + If m.llSucces + If Empty(Nvl(m.pnIdJudet, 0)) + llSucces = goExecutor.oSelecteaza2Value([select j.id_judet, j.id_tara from syn_nom_judete j where j.judet like '%] + m.lcJudetBucuresti + [%' and j.inactiv = 0 and j.sters = 0], @m.pnIdJudet) + If m.llSucces + lnIdJudet = m.pnIdJudet + Else + lnIdJudet = m.lnIdJudetBucuresti + Endif + Else + lnIdJudet = m.pnIdJudet + Endif + Else + If m.llCallBack + m.toCallBackForm.trace(goExecutor.cEroare) + Endif + lnIdJudet = m.lnIdJudetBucuresti + Endif + + lcSql = [select l.id_loc, l.id_judet, j.id_tara from syn_nom_localitati l left join syn_nom_judete j on l.id_judet = j.id_judet where l.id_judet = ] + Alltrim(Str(m.lnIdJudet)) + [ and l.localitate = '] + m.lcLocalitate + [' and l.inactiv = 0 and l.sters = 0 order by l.localitate] + lnSucces = goExecutor.oExecuta(m.lcSql, 'cLocalitateTemp') + If m.llSucces + If Reccount('cLocalitateTemp') > 0 + Select cLocalitateTemp + Go Top + lcId_loc = Alltrim(Str(id_loc)) + lcId_Judet = Alltrim(Str(id_judet)) + lcId_tara = Alltrim(Str(id_tara)) + Use In (Select('cLocalitateTemp')) + Else + Use In (Select('cLocalitateTemp')) + lcSql = [select l.id_loc, l.id_judet, j.id_tara from syn_nom_localitati l left join syn_nom_judete j on l.id_judet = j.id_judet where l.id_judet = ] + Alltrim(Str(m.lnIdJudet)) + [ and l.inactiv = 0 and l.sters = 0 order by l.localitate] + llSucces = goExecutor.oExecuta(m.lcSql, 'cLocalitateTemp') + If m.llSucces + Select cLocalitateTemp + Go Top + lcId_loc = Alltrim(Str(id_loc)) + lcId_Judet = Alltrim(Str(id_judet)) + lcId_tara = Alltrim(Str(id_tara)) + Else + If m.llCallBack + m.toCallBackForm.trace(goExecutor.cEroare) + Endif + Endif + Use In (Select('cLocalitateTemp')) + Endif + Else + If m.llCallBack + m.toCallBackForm.trace(goExecutor.cEroare) + Endif + Endif + + If Empty(Nvl(m.lcId_loc, '')) + lcId_loc = Alltrim(Str(m.lnIdLocalitateBucuresti)) + lcId_Judet = Alltrim(Str(m.lnIdJudetBucuresti)) + lcId_tara = Alltrim(Str(m.lnIdTaraRO)) + Endif && llSucces + + If m.lcId_loc <> 'NULL' + pnIdAdresa = 0 + *!* * caut adresa dupa localitate. daca nu o gasesc, o adaug + *!* lcSql = [SELECT id_adresa FROM adrese_parteneri where sters = 0 and inactiv = 0 and id_loc = ] + m.lcId_loc + [ AND id_part = ] + m.lcIdPart + *!* lnSucces = goExecutor.oSelect2Value(m.lcSql, @pnIdAdresa) + *!* If m.lnSucces < 0 + *!* lcMesaj = goExecutor.cEroare + *!* Thisform.trace(m.lcMesaj) + *!* AMessagebox(m.lcMesaj, 0 + 48, _Screen.Caption ) + *!* Exit + *!* Endif + + If Empty(Nvl(m.pnIdAdresa, 0)) + lcSql = [begin pack_def.adauga_adresa_partener2(] + m.lcIdPart + [,'] + m.lcDenumire_adresa + [',] + m.lcDA_apare + [,] + ; + ['] + m.lcStrada + [','] + m.lcNumar + [','] + ; + M.lcBloc + [','] + m.lcScara + [','] + m.lcApart + [','] + m.lcEtaj + [',] + m.lcId_loc + [,'] + m.lcLocalitate + [',] + m.lcId_Judet + [,] + m.lcCodpostal + [,] + m.lcId_tara + [,'] + ; + M.lcTelefon1 + [','] + m.lcTelefon2 + [','] + m.lcFax + [','] + m.lcEmail + [','] + m.lcWeb + [',] + ; + M.lcPrincipala + [,] + m.lcinactiv + [,] + m.lcId_util + [,?@pnIdAdresa); end;] + + llSucces = goExecutor.oExecuta(m.lcSql) + If !m.llSucces + lcMesaj = goExecutor.cEroare + If m.llCallBack + m.toCallBackForm.trace(m.lcMesaj) + Endif + * AMessagebox(m.lcMesaj, 0 + 48, _Screen.Caption ) + Exit + Endif + Endif && empty(m.pnIdAdresa) + + Endif && m.lcId_loc <> 'NULL' + Endif && !found() + + Endif && !empty(m.lcAdresa) + + + Endscan && tcCursorParteneri + + Use In (Select('cParteneriROA')) + Use In (Select('cAdreseROA')) + Select (m.lcSelect) + + Return m.llSucces +Endproc && CompleteazaParteneriROA + +Procedure CompleteazaValutaROA + Lparameters tcCursorValuta, toCallBackForm + * tcCursorValuta: numele cursorului cValuta (valuta) + * toCallBackForm: referinta la un formular cu metoda Trace(tcMesaj) optional + + Local lcMesaj, lcSelect, lcSql, lcValuta, llCallBack, llSucces, lnIdValuta + lcSelect = Select() + + llCallBack = Type('toCallBackForm') = 'O' And Pemstatus(m.toCallBackForm, 'trace', 5) + + lcSql = [select id_valuta, nume_val as valuta from vnom_valute] + llSucces = goExecutor.oExecuta(m.lcSql, 'cValuteROA') + + If !m.llSucces + If m.llCallBack + lcMesaj = goExecutor.cEroare + m.toCallBackForm.trace(m.lcMesaj) + Endif + Return m.llSucces + Endif + + Select (m.tcCursorValuta) + Scan + lcValuta = Alltrim(Upper(Strtran(valuta, ' ', ''))) + lnIdValuta = 0 + + Wait Window 'Import valute ... Caut valuta' + Transform(Recno()) + '/' + Transform(Reccount()) Nowait + + Select cValuteROA + If !Empty(m.lcValuta) + Locate For Alltrim(Strtran(valuta, ' ', '')) = m.lcValuta + If Found() + lnIdValuta = cValuteROA.id_valuta + Select (m.tcCursorValuta) + Replace id_valuta With m.lnIdValuta + Endif && found + Endif && empty + Endscan && tcCursorValuta + + Use In (Select('cValuteROA')) + Select (m.lcSelect) + + Return m.llSucces +Endproc + \ No newline at end of file diff --git a/Programe/oproceduri_incasari.prg b/Programe/oproceduri_incasari.prg new file mode 100644 index 0000000..32f40c8 --- /dev/null +++ b/Programe/oproceduri_incasari.prg @@ -0,0 +1,321 @@ +*!* 10.12.2015 +*!* marius.mutu +*!* listare explicatie din registrul jurnal pe chitanta +*!* #4246 + +*!* 30.06.2017 +*!* marius.mutu +*!* listare_chitanta, relistare_chitanta - suma in vorbe tine cont de valuta + +******************************************************************************************* +DEFINE CLASS oDateChitanta AS CUSTOM + id_client = NULL + nume_client = [] + nr_incasare = 0 + serie_chit = [] + dataact = {} + incasat = 0 + sumavorbe = [] + explicatie_chit = [] + nume_valuta = [] + lSilent = .F. + + * lSilent (default .F.) listare silentioasa, fara previzualizare + + PROCEDURE INIT + LPARAMETERS tnIdPartener, tcSirNrFact + WITH THIS + .id_client = tnIdPartener + *!* lcSirFact = Substr(tcSirNrFact,1,LEN(tcSirNrFact)-2) && are [, ] la sfarsit + lcSirFact = IIF(RIGHT(ALLTRIM(tcSirNrFact), 1) = ',', LEFT(ALLTRIM(tcSirNrFact), LEN(ALLTRIM(tcSirNrFact)) - 1), ALLTRIM(tcSirNrFact)) + IF [, ] $ lcSirFact + .explicatie_chit = [facturilor ] + lcSirFact + ELSE + .explicatie_chit = [facturii ] + lcSirFact + ENDIF + ENDWITH + ENDPROC + +ENDDEFINE +******************************************************************************************* +PROCEDURE clienti_chitanta + LPARAMETERS tnIdSet + LOCAL lnIdSet + lnIdSet = IIF(!EMPTY(m.tnIdSet), m.tnIdSet, 10329) && casa > incasare clienti 4111 + + PRIVATE glListareChitanta + PRIVATE pcSirFacturi + glListareChitanta = .T. + STORE [] TO pcSirFacturi + lans(m.lnIdSet) + glListareChitanta = .F. +ENDPROC && clienti_chitanta +******************************************************************************************* +PROCEDURE listeaza_chitanta + LPARAMETERS tcSirNrFact + LOCAL lnIdClient, loDate, lcNumeClient + LOCAL laProperties[1], lcProperty, lnProperties, lnProperty + + SELECT actactan + LOCATE FOR id_partc <> 0 + lnIdClient = id_partc + tcSirNrFact = IIF(RIGHT(ALLTRIM(tcSirNrFact), 1) = ',', LEFT(ALLTRIM(tcSirNrFact), LEN(ALLTRIM(tcSirNrFact)) - 1), ALLTRIM(tcSirNrFact)) + IIF(!EMPTY(NVL(explicatia, '')), ' ' + ALLTRIM(explicatia), '') + + lcNumeClient = IIF(TYPE('poAct.v4111') = 'C', poAct.v4111, IIF(TYPE('poAct.v461') = 'C', poAct.v461, '')) + IF EMPTY(m.lcNumeClient) + lnProperties = AMEMBERS(laProperties, poAct, 0) + FOR lnProperty = 1 TO m.lnProperties + lcProperty = LOWER(laProperties(m.lnProperty)) + IF LEFT(m.lcProperty, 2) = 'v4' + lcNumeClient = EVALUATE('poAct.' + _m.lcProperty) + EXIT + ENDIF + ENDFOR + ENDIF + + loDate = CREATEOBJECT('oDateChitanta', lnIdClient, tcSirNrFact) + WITH loDate + .nume_client = m.lcNumeClient + .serie_chit = poAct.serie_act + .nr_incasare = poAct.nract + .dataact = poAct.dataact + .incasat = poAct.suma + .nume_valuta = IIF(EMPTY(ALLTRIM(NVL(poAct.nume_val, ''))), 'LEI', STRTRAN(ALLTRIM(NVL(poAct.nume_val, '')), 'RON', 'LEI', 1, 1, 1)) + .sumavorbe = SUMA_IN_VORBE(.incasat, NVL(poAct.nume_val, '')) + ENDWITH + listare_chitanta(@loDate, [actactan]) + RELEASE lnIdClient, loDate +ENDPROC +******************************************************************************************* +PROCEDURE relisteaza_chitanta + LPARAMETERS tnCod, tlSilent + * tnCod act.cod pentru chitanta + * tlSilent (default .F.) se listeaza silentios, fara previzualizare + + LOCAL loDate, lcSirFact, loDetalii + *!* am pus conditia scd = '5311' ca sa nu-mi ia si notele de exigibilizare a TVA-ului + *!* am pus conditia id_set = 10329 ca sa nu poata lista decat ce a introdus pe la incasare clienti cu/fara listare chitanta + *!* id_set = 10329 ( incasare clienti cu/fara listare chitanta ) + *!* id_set = 10576 ( incasare clienti cu bon fiscal ) + lcSql = [select a.id_partc,c.denumire,a.serie_act,a.nract,a.dataact, d.nume_val, sum(a.suma) as suma,] + ; + [stringagg(' '||nvl2(b.serie_act, b.serie_act || ' ', '') || ] + ; + [trim(replace(replace(to_char(b.nract, '999999999999999999'), '.' , ' '), ',' , ' ')) ] + ; + [ || ' din '|| to_char(b.dataact,'DD/MM/YYYY')) as sirfact, max(explicatia) as explicatia ] + ; + [from (select id_partc, serie_act, nract, dataact, suma, id_factc, explicatia, id_valuta from act ] + ; + [where cod = ] + ALLTRIM(STR(tnCod)) + [ and sters = 0 and scd = '5311') a ] + ; + [left join documente b on a.id_factc = b.id_doc ] + ; + [left join nom_parteneri c on a.id_partc = c.id_part ] + ; + [left join vnom_valute d on a.id_valuta = d.id_valuta ] + ; + [group by a.id_partc, c.denumire, a.serie_act, a.nract, a.dataact, d.nume_val] + *!* lcSql = [select a.id_partc,c.denumire,a.serie_act,a.nract,a.dataact,a.suma,] + ; + *!* [nvl2(b.serie_act, b.serie_act || ' ', '') || ] + ; + *!* [trim(replace(replace(to_char(b.nract, '999G999G999G999G999G999'), '.' , ' '), ',' , ' ')) ] + ; + *!* [ || ' din '|| to_char(b.dataact,'DD/MM/YYYY') as sirfact ] + ; + *!* [from (select id_partc, serie_act, nract, dataact, suma, id_factc from act ] + ; + *!* [where cod = ] + Alltrim(Str(tnCod)) + [ and sters = 0 and scd = '5311' and id_set = 10329) a ] + ; + *!* [left join documente b on a.id_factc = b.id_doc ] + ; + *!* [left join nom_parteneri c on a.id_partc = c.id_part ] + lcCursor = [crsdatechitanta] + IF goExecutor.oExecuta(lcSql, lcCursor) + IF RECCOUNT(lcCursor) > 0 + *!* lcSirFact = [] + *!* Select (lcCursor) + *!* Scan + *!* If Recno() = 1 + *!* Scatter Name loDetalii + *!* Else + *!* loDetalii.suma = loDetalii.suma + suma + *!* Endif + *!* lcSirFact = lcSirFact + ALLTRIM(sirfact) + [, ] + *!* Endscan + *!* loDate = Createobject('oDateChitanta',loDetalii.id_partc,SUBSTR(lcSirFact,3)) + *!* With loDate + *!* .nume_client = Alltrim(loDetalii.denumire) + *!* .serie_chit = Alltrim(loDetalii.serie_act) + *!* .nr_incasare = loDetalii.nract + *!* .dataact = loDetalii.dataact + *!* .incasat = loDetalii.suma + *!* .sumavorbe = SUMA_IN_VORBE(.incasat) + *!* Endwith + lcSirNrFact = IIF(RIGHT(ALLTRIM(sirfact), 1) = ',', LEFT(ALLTRIM(sirfact), LEN(ALLTRIM(sirfact)) - 1), ALLTRIM(sirfact)) + IIF(!EMPTY(NVL(explicatia, '')), ' ' + ALLTRIM(explicatia), '') + + SELECT (lcCursor) + loDate = CREATEOBJECT('oDateChitanta', id_partc, lcSirNrFact) && [, ] este eliminat in oDateChitanta + WITH loDate + .nume_client = ALLTRIM(denumire) + .serie_chit = ALLTRIM(serie_act) + .nr_incasare = nract + .dataact = dataact + .incasat = suma + .nume_valuta = IIF(EMPTY(ALLTRIM(NVL(nume_val, ''))), 'LEI', STRTRAN(ALLTRIM(NVL(nume_val, '')), 'RON', 'LEI', 1, 1, 1)) + .sumavorbe = SUMA_IN_VORBE(.incasat, NVL(nume_val, '')) + .lSilent = m.tlSilent + ENDWITH + listare_chitanta(@loDate, lcCursor) + RELEASE lnIdClient, loDate, loDateChit + ELSE + amessagebox("Nu exista date pentru listarea chitantei!", 48, "Atentie") + ENDIF + ENDIF + USE IN (SELECT(lcCursor)) +ENDPROC +******************************************************************************************* +PROCEDURE listare_chitanta + LPARAMETERS toDate, tcCursor + PRIVATE poClient, poFirma, poDate + + Local lcCursor, lcRaport, lcSql, lnRaspuns + Local loPreviewerConfig As "PreviewerConfig" + poDate = toDate + + lcSql = [select 1 as tip,(case when tip_persoana = 1 then prefix||' '||denumire||' '||sufix else denumire end) as denumire,] + ; + [cod_fiscal,adresa,telefon,'' as fax,reg_comert,banca,cont_banca,sysdate as dataora,tip_persoana,0 as capital_soc_var,] + ; + [0 as capital_soc_sub from vnom_parteneri where id_part = ?poDate.id_client ] + ; + [union all ] + ; + [select 3 as tip,antet as denumire,cod_fiscal,adresa,telefon,fax,reg_comert,banca1 as banca,] + ; + [cont_banca1 as cont_banca,null as dataora,0 as tip_persoana,capital_soc_var,capital_soc_sub ] + ; + [from syn_nom_firme where id_firma = ?gnIdFirma ] + IF USED('crsdatefacturare') + USE IN crsdatefacturare + ENDIF + lcCursor = [crsdatefacturare] + IF goExecutor.oExecuta(lcSql, lcCursor) + SELECT crsdatefacturare + SCAN + DO CASE + CASE tip = 1 + SCATTER NAME poClient MEMO + *!* ptDataOra = poClient.dataora + OTHERWISE + SCATTER NAME poFirma MEMO + ENDCASE + ENDSCAN + USE IN crsdatefacturare + + * Daca nu am gasit clientul (nu exista clientul) (ex: 5311 = 581) - da eroare, creez o structura poClient gol + IF TYPE('poClient.denumire') <> 'C' + poClient = CREATEOBJECT("custom") + poClient.ADDPROPERTY("tip", 1) + poClient.ADDPROPERTY("denumire", "") + poClient.ADDPROPERTY("cod_fiscal", "") + poClient.ADDPROPERTY("adresa", "") + poClient.ADDPROPERTY("telefon", "") + poClient.ADDPROPERTY("fax", "") + poClient.ADDPROPERTY("reg_comert", "") + poClient.ADDPROPERTY("banca", "") + poClient.ADDPROPERTY("cont_banca", "") + poClient.ADDPROPERTY("dataora", {//::}) + poClient.ADDPROPERTY("tip_persoana", 0) + poClient.ADDPROPERTY("capital_soc_var", 0) + poClient.ADDPROPERTY("capital_soc_sub", 0) + + ENDIF + *!* modificare v 2.0.100 + *!* poClient.denumire = Nvl(poClient.denumire,Padl([_],100,[_])) + *!* poClient.adresa = Nvl(poClient.adresa,Padl([_],150,[_])) + *!* poDate.explicatie = Nvl(poDate.explicatie,Padl([_],100,[_])) + poClient.denumire = NVL(poClient.denumire, REPLICATE([. ], 50)) + poClient.adresa = NVL(poClient.adresa, REPLICATE([. ], 75)) + poDate.explicatie_chit = NVL(poDate.explicatie_chit, REPLICATE([. ], 50)) + *!* modificare v 2.0.100 ^ + + + lcRaport = IIF(TYPE('gnRC_RAPORT_CHITANTA') = 'N', IIF(m.gnRC_RAPORT_CHITANTA = 0, [chitanta], [chitanta_landscape]), [chitanta]) + loPreviewerConfig = Createobject("PreviewerConfig") && rapoarte.prg + + If poDate.lSilent + m.loPreviewerConfig.SetValue("lDirectPrint", .T.) + goExport.export2frx(m.tcCursor, m.lcRaport, .F., , , , , .T., , loPreviewerConfig) + ELSE +*!* lnRaspuns = 6 +*!* DO WHILE lnRaspuns = 6 + goExport.export2frx(m.tcCursor, m.lcRaport, .F., , , , , .T., , loPreviewerConfig) +*!* lnRaspuns = amessagebox("Doriti sa mai listati chitanta?", 4 + 32 + 256, "Confirmare repetare listare") +*!* ENDDO + ENDIF && lSilent + ENDIF && goExecutor + RELEASE poClient, poFirma, poDate +ENDPROC && listeaza_chitanta +******************************************************************************************* + + + + +************************************ +*** note incasare facturi 5121 = 4111 prin selectarea facturilor incasate direct din facturi cu sold +*** nu trateaza cazul firmelor cu TVA Incasare +************************************ +PROCEDURE incasare_facturi_sold + PARAMETERS tcXMLFacturi + + LOCAL loForm AS [frm_modific2007] + + lcSCD = '5121' + lcSCC = '4111' + + lnRecords = XMLTOCURSOR(m.tcXMLFacturi, "crsFacturiIncasareTemp") + IF lnRecords = 0 + USE IN (SELECT("crsFacturiIncasareTemp")) + RETURN + ENDIF + lcMesaj = '' + lnIdSet = 99999 && nota fara predefinire + lnBut = lans(m.lnIdSet) + + IF m.lnBut = 1 + SELECT actactan + SCATTER NAME loAct + ZAP + + INSERT INTO actactan(nr_nota, luna, an, scd, scc, ascc, suma, id_set, id_factc, perechec, id_partc, partc, explicatia) ; + SELECT RECCOUNT('actactan') + RECNO() AS nr_nota, m.gnLuna AS luna, m.gnAn AS an, m.lcSCD AS scd, CONT AS scc, acont AS ascc, ; + (precdeb + debit) - (preccred + credit) AS suma, m.lnIdSet AS id_set, id_fact AS id_factc, nract AS perechec, id_part AS id_partc, nume AS partc, ; + 'Incasare prin banca' AS explicatia ; + FROM crsFacturiIncasareTemp + + + SELECT actactan + SCAN + GATHER NAME loAct FIELDS EXCEPT nr_nota, luna, an, scd, scc, suma, id_set, id_factc, perechec, id_partc, partc + REPLACE id_sucursala WITH m.gnIdSucursala + ENDSCAN + + + update_jtva_coloane("JV", 'crsExplicatiiTVATemp', 1) + + SELECT .F. AS ales, 0 AS Cu_tva, CAST(0 AS N(2)) AS tipnota, a.*, b.denumire AS explicatie_tva_2 ; + FROM actactan a LEFT JOIN crsExplicatiiTVATemp b ON a.id_jtva_coloana = b.id_jtva_coloana ; + INTO CURSOR tact READWRITE + + Update tact Set explicatie_tva = explicatie_tva_2 + + USE IN (SELECT('crsExplicatiiTVATemp')) + + + SELECT tact + GO TOP + llNotaNoua = .T. + llMaximize = .T. + loForm = CREATEOBJECT([frm_modific2007], m.lnIdSet, m.llNotaNoua) + loForm.lb_titlu_alb_b121.CAPTION = 'Incasare facturi' + SELECT tact + loForm.SHOW(1, m.llMaximize) + + IF buton = 1 + USE IN (SELECT('actactan')) + + SELECT tact + REPLACE id_jtva_coloana WITH NULL, PROC_TVA WITH 0 FOR Cu_tva = 0 + SELECT * FROM tact INTO CURSOR actactan READWRITE + + SELECT actactan + REPLACE ALL id_util WITH gnIdUtil, id_set WITH m.lnIdSet + lnSucces = OSCRIE_IN_FISIERE(0) + ENDIF && buton = 1 + ENDIF && m.lnBut = 1 + + + USE IN (SELECT('actactan')) + USE IN (SELECT('tact')) + +ENDPROC && incasare_facturi_sold \ No newline at end of file diff --git a/Programe/oproceduri_inchidere.prg b/Programe/oproceduri_inchidere.prg new file mode 100644 index 0000000..a439d2b --- /dev/null +++ b/Programe/oproceduri_inchidere.prg @@ -0,0 +1,1458 @@ +*!* 23.09.2013 +*!* marius.mutu +*!* inchidere_tva +*!* fac notele de exigibilizare TVA 90 zile pentru toate firmele, nu numai pentru cele din sistemul TVA Incasare +*!* ex: sunt inregistrate facturi din greseala cu TVA Incasare sau firma a fost cu TVA Incasare + +*!* 04.02.2014 +*!* marius.mutu +*!* inchidere_tva: nu se mai fac notele de exigibilizare TVA 90 zile de la 01/2014 (COD FISCAL) + +*!* 18.05.2014 +*!* marius.mutu +*!* inchidere_venituri_cheltuieli mutate in pack_inchideri 609, 709 tratate corect + +*!* 25.06.2014 +*!* marius.mutu +*!* inchidere_tva_sold - se completeaza si id_sucursala in note, altfel nu se poate modifica nota + +*!* 25.08.2014 +*!* marius.mutu +*!* inchidere_tva_sold: apelez defalca_tva_incasare pentru fiecare cota, daca soldul neexigibil total este 0 + + +*!* 21.01.2015 +*!* marius.mutu +*!* inchidere_tva_sold: Daca din diferite motive nu se poate calcula TVA exigibil, pun o linie cu ID_FACT-ul facturii originale, sa se poata completa manual + +*!* 16.12.2015 +*!* marius.mutu +*!* inchidere_tva_sold: cota tva 20% + +*!* 24.03.2020 +*!* marius.mutu: inchidere_venchelt - completare analitic 121 din optiuni + +*!* 21.07.2020 +*!* marius.mutu +*!* inchidere_amortizari_completare_conturi - tratare id_sectie = 0 + +*!* 23.01.2024 +*!* inchidere_amortizari: defalcare inchidere pe lucrari + +*** ===================================================================== +Procedure popriri + If gnNOTASAL = 5 + + Local lcCursor, llVerificAnalitic, llCompletareParteneri + lcSel = [select a.sumapop,a.id_poprire,a.id_stat,] + ; + [(select id_part from sal_personal where id_salariat in ] + ; + [ (select id_persoana from sal_stat where id_stat = a.id_stat)) as id_part, ] + ; + [ c.scd,c.ascd,c.scc,c.ascc,c.nume_popr, ] + ; + [ (select denumire from nom_parteneri where id_part in ] + ; + [ (select id_part from sal_personal where id_salariat in (select id_persoana from sal_stat where id_stat = a.id_stat))) as denumire, ] + ; + [ e.id_sectie,e.SECTIE,f.sucursala,f.id_sucursala,0000000000 as id_factc,0000000000 as perechec ] + ; + [ from sal_popriri a ] + ; + [ left join sal_nom_popriri c on a.id_poprire = c.id_popriri ] + ; + [ left join sal_stat d on a.id_stat = d.id_stat ] + ; + [ left join sal_vnom_formatii e on e.id_formatia = d.id_formatie ] + ; + [ left join vnom_sectii f on e.id_sectie = f.id_sectie ] + ; + [ where a.sters = 0 and a.id_stat in (select b.id_stat from sal_stat b ] + ; + [ where b.an = pack_sesiune.getan() and b.luna = pack_sesiune.getluna()) ] + *!* + ; + *!* [ and c.scc not in (select cont from config_cont_ireg where cu_inregistrari = 1)] + + If !Isnull(gnIdSucursala) + lcSel = m.lcSel + [ and f.id_sucursala = ?gnIdSucursala ] + Endif + + lcCursor = 'crs_popr' + lnSucces = goExecutor.oExecute(m.lcSel, m.lcCursor) + If m.lnSucces < 0 + AMESSAGEBOX(goExecutor.cEroare, 0 + 16, "Eroare") + Endif + + *!* lcSel = [select * from config_cont_ireg a where a.cont in (select b.scc from sal_nom_popriri b ]+; + *!* [ where b.id_popriri in (select c.id_poprire from sal_popriri c where c.sumapop > 0 and ]+; + *!* [ id_stat in (select id_stat from sal_stat where an = pack_sesiune.getan() and luna = pack_sesiune.getluna()))) and cu_inregistrari = 1 ] + *!* + *!* lcCursor = 'crs_conturi' + *!* lnSucces = goExecutor.oExecute(lcSel,lcCursor) + *!* IF lnSucces < 0 + *!* AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare") + *!* EndIf + *!* + *!* Local lcFiltru + *!* Store '' to lcFiltru + *!* Select crs_conturi + *!* If Reccount() > 0 + *!* Select crs_conturi + *!* Scan + *!* lcFiltru = lcFiltru +[,] +[']+Alltrim(crs_conturi.cont)+['] + *!* EndScan + *!* lcFiltru = Substr(lcfiltru,2) + *!* SELECT crs_popr + *!* lcFiltru = [Set Filter To InList(Alltrim(scc),]+lcFiltru+[)] + *!* &lcFiltru + *!* ofrmpereche = CreateObject('frm_alege_pereche') + *!* ofrmpereche.show(1) + *!* If gnbuton = 2 + *!* Return + *!* EndIf + *!* EndIf + *!* Use in crs_conturi + Select crs_popr + + *!* Browse + Set Filter To + + Select crs_popr + Select nume_popr As explicatia, id_part As id_partc, denumire As partc, scd, scc, Nvl(ascd, '') As ascd, Nvl(ascc, ''); + As ascc, sumapop As suma, id_sectie, sectie, id_sucursala, sucursala, id_factc, perechec From crs_popr Where sumapop <> 0 Into Cursor crsNota + *!* SELECT id_part as id_partd ,scd,sumapop as suma,id_sectie FROM crs_popr WHERE sumapop <> 0 INTO CURSOR crsNota READWRITE + + Else + Local lcCursor, llVerificAnalitic, llCompletareParteneri + lcSel = [select sum(a.suma) as sumapop,a.id_poprire,a.id_sectie,d.id_part,] + ; + [c.scd,c.ascd,c.scc,c.ascc,c.nume_popr,] + ; + [ (select denumire from nom_parteneri where id_part =d.id_part) as denumire ] + ; + [ from ( select sum(a.sumapop) as suma,a.id_poprire,c.id_sectie from sal_vpopriri a ] + ; + [ left join sal_stat b on a.id_stat = b.id_stat ] + ; + [ left join sal_nom_formatii c on b.id_formatie = c.id_formatia ] + ; + [ group by a.id_poprire,c.id_sectie ) a ] + ; + [ left join sal_nom_popriri c on a.id_poprire = c.id_popriri ] + ; + [ left join sal_part_popriri_sectii d on d.id_poprire = a.id_poprire and d.id_sectie = a.id_sectie ] + ; + [ where c.scc <> '542'] + ; + [ group by a.id_poprire,a.id_sectie,d.id_part,c.scd,c.ascd,c.scc,c.ascc,c.nume_popr] + + lcCursor = 'crs_popr' + lnSucces = goExecutor.oExecute(m.lcSel, m.lcCursor) + If m.lnSucces < 0 + AMESSAGEBOX(goExecutor.cEroare, 0 + 16, "Eroare") + Endif + + Select crs_popr + + + lcCursor = 'crs_popr' + lnSucces = goExecutor.oExecute(m.lcSel, m.lcCursor) + If m.lnSucces < 0 + AMESSAGEBOX('Call pack_salarii.nota_popriri ' + Chr(13) + goExecutor.cEroare, 0 + 16, "Eroare") + Endif + + + Select crs_popr + Select nume_popr As explicatia, id_part As id_partc, scd, scc, Nvl(ascd, '') As ascd, Nvl(ascc, '') As ascc, sumapop As suma, id_sectie From crs_popr Where sumapop <> 0 Into Cursor crsNota + *!* SELECT id_part as id_partd ,scd,sumapop as suma,id_sectie FROM crs_popr WHERE sumapop <> 0 INTO CURSOR crsNota READWRITE + Endif + Use In crs_popr + lcCursor = [crsNota] + Select &lcCursor + + If !Used(m.lcCursor) Or Empty(m.lcCursor) + Return + Endif + + llStergeNotaPrecedenta = .T. + lnId_Set = 90014 + lnCod = 0 + llVerificAnalitic = .T. + llCompletareParteneri = .T. + + If m.llStergeNotaPrecedenta + lnSucces = sterge_nota(m.lnCod, m.lnId_Set) + Endif + + + If m.lnSucces > 0 + lnSucces = scrie_nota_import(m.lnId_Set, m.llVerificAnalitic, m.llCompletareParteneri, m.lcCursor) + Endif + + If Used(m.lcCursor) + Use In (m.lcCursor) + Endif + +Endproc && popriri + +*** ===================================================================== +Procedure Achitare_drepturi_neridicate_Lichidare + Dimension laValori[2, 3] + laValori[1, 1] = "poAct.id_vv426" + laValori[1, 2] = Alltrim(Str(gnID_PARTDRNERIDLIC)) + laValori[1, 3] = !Empty(gnID_PARTDRNERIDLIC) + + lcSel = [select denumire from nom_parteneri where id_part = ] + Alltrim(Str(gnID_PARTDRNERIDLIC)) + lnSucces = goExecutor.oExecute(m.lcSel, [crsnumepart]) + If m.lnSucces < 0 + AMESSAGEBOX(goExecutor.cEroare, 0 + 16, "Eroare") + Endif + + laValori[2, 1] = "poAct.v426" + laValori[2, 2] = Alltrim(crsnumepart.denumire) + laValori[2, 3] = !Empty(gnID_PARTDRNERIDLIC) + Use In crsnumepart + lans(90011, .F., .T., @laValori) + *!* MESSAGEBOX(buton) + If gnButon = 1 + + If Used('crsStatDePastrat') + Select crsStatDePastrat + Scan For bifa > 0 + Scatter Name ost + lcSel = [update sal_stat set ACHITLICNERID = 1 where id_stat = ] + Alltrim(Str(ost.id_stat)) + lnSucces = goExecutor.oExecute(m.lcSel) + If m.lnSucces < 0 + AMESSAGEBOX(goExecutor.cEroare, 0 + 16, "Eroare") + Endif + Release ost + Endscan + Use In crsStatDePastrat + Endif + Endif +Endproc && Achitare_drepturi_neridicate_Lichidare + +*** ===================================================================== +Procedure Achitare_drepturi_neridicate_Avans + Dimension laValori[2, 3] + laValori[1, 1] = "poAct.id_vv426" + laValori[1, 2] = Alltrim(Str(gnID_PARTDRNERIDAV)) + laValori[1, 3] = !Empty(gnID_PARTDRNERIDAV) + + lcSel = [select denumire from nom_parteneri where id_part = ] + Alltrim(Str(gnID_PARTDRNERIDAV)) + lnSucces = goExecutor.oExecute(m.lcSel, [crsnumepart]) + If m.lnSucces < 0 + AMESSAGEBOX(goExecutor.cEroare, 0 + 16, "Eroare") + Endif + + laValori[2, 1] = "poAct.v426" + laValori[2, 2] = Alltrim(crsnumepart.denumire) + laValori[2, 3] = !Empty(gnID_PARTDRNERIDAV) + Use In crsnumepart + lans(90013, .F., .T., @laValori) + *!* MESSAGEBOX(buton) + If gnButon = 1 + + If Used('crsStatDePastrat') + Select crsStatDePastrat + Scan For bifa > 0 + Scatter Name ost + lcSel = [update sal_stat set ACHITAVNERID = 1 where id_stat = ] + Alltrim(Str(ost.id_stat)) + lnSucces = goExecutor.oExecute(m.lcSel) + If m.lnSucces < 0 + AMESSAGEBOX(goExecutor.cEroare, 0 + 16, "Eroare") + Endif + Release ost + Endscan + Use In crsStatDePastrat + Endif + Endif +Endproc && Achitare_drepturi_neridicate_Avans + + +***------------------------------------------------------------------------------------------------------------------- +Procedure drepturi_nerid_sal + + + + Private postat + Store [] To postat + + &&selectie din state si bifarea sumelor pentru care se face trecerea + pcschema = ['id_stat i,an n(4),luna n(2),NUME C(50),PRENUME C(50),SECTIE C(30),FORMATIE C(64),MARCA n(10),lichidare n(16), bifa n(1),SUMALICNERID n(16)'] + + pcselect = [select a.id_stat,a.an,a.luna,a.nume,a.prenume,a.sectie,a.formatia,a.marca,a.lichidare,ROUND(a.BIFALICNERID,0) as bifa,a.SUMALICNERID from sal_vstattot a where 1=2] + + + + pcfiltru = [ 1=2] + pcorder = [a.sectie,a.nume,A.PRENUME] + llAfiseaza = .F. + gencursor('postat', 'crsState', pcselect, pcfiltru, pcschema, pcorder, llAfiseaza) + postat.ca_baza1.afisare() + + Select crsState + ofrmSelect = Createobject('frm_alege_neridicati') + ofrmSelect.Show(1) + If buton = 2 + Return + Endif + + Select crsState + Set Filter To + Locate + Select Sum(Nvl(SUMALICNERID, 0)) As suma From crsState Where bifa > 0 Into Cursor crsSuma + + Select crsSuma + && / selectie din state si bifarea sumelor pentru care se face trecerea + + && nota contabila + Select xsets + + + + + llStergeNotaPrecedenta = .F. + lnId_Set = 90010 + lnCod = 0 + llVerificAnalitic = .T. + llCompletareParteneri = .T. + + If m.llStergeNotaPrecedenta + lnSucces = sterge_nota(m.lnCod, m.lnId_Set) + Endif + + + Select suma From crsSuma Into Cursor crsNota + + Use In crsSuma + + *!* DEBUG + *!* SUSPEND + lcCursor = [crsNota] + Select &lcCursor + + If !Used(m.lcCursor) Or Empty(m.lcCursor) + Return + Endif + *!* scrie_nota_import( tnId_Set, tlVerificAnalitic, tlCompletareParteneri, tcCursorImport,taValori ) + + Dimension laValori[2, 3] + laValori[1, 1] = "poAct.id_vv426" + laValori[1, 2] = Alltrim(Str(gnID_PARTDRNERIDLIC)) + laValori[1, 3] = !Empty(gnID_PARTDRNERIDLIC) + + lcSel = [select denumire from nom_parteneri where id_part = ] + Alltrim(Str(gnID_PARTDRNERIDLIC)) + lnSucces = goExecutor.oExecute(m.lcSel, [crsnumepart]) + If m.lnSucces < 0 + AMESSAGEBOX(goExecutor.cEroare, 0 + 16, "Eroare") + Endif + + laValori[2, 1] = "poAct.v426" + laValori[2, 2] = Alltrim(crsnumepart.denumire) + laValori[2, 3] = !Empty(gnID_PARTDRNERIDLIC) + Use In crsnumepart + Select crsNota + lcCursor = [crsNota] + lnSucces = scrie_nota_import(m.lnId_Set, m.llVerificAnalitic, m.llCompletareParteneri, m.lcCursor, @laValori) + + If Used(m.lcCursor) + Use In (m.lcCursor) + Endif + + && -- scriu in statele din luna respectiva ca au fost trecute pe drepturi neridicate + If buton = 2 + Return + Endif + If m.lnSucces > 0 + Select crsState + Scan For bifa > 0 + Scatter Name ost + Private pnIdfact + Store 0 To pnIdfact + lcSel = [select pack_contafin.GET_IDFACT() as id_fact from dual ] + lnSucces = goExecutor.oExecute(m.lcSel, [crsIdFact]) + If m.lnSucces < 0 + AMESSAGEBOX(goExecutor.cEroare, 0 + 16, "Eroare") + Endif + Select crsIdFact + Scatter Name oidfact + + lcSel = [update sal_stat set BIFALICNERID = 1, SUMALICNERID = ] + Alltrim(Str(ost.SUMALICNERID)) + [,id_fact_lic = ] + Alltrim(Str(oidfact.id_fact)) + [ where id_stat = ] + Alltrim(Str(ost.id_stat)) + lnSucces = goExecutor.oExecute(m.lcSel) + If m.lnSucces < 0 + AMESSAGEBOX(goExecutor.cEroare, 0 + 16, "Eroare") + Endif + Use In crsIdFact + Release oidfact + Endscan + Endif + Use In crsState + Release ofrmSelect +Endproc + +***--------------------------------------------------------------------------------------------------------------------- + +Procedure aleg_salnerid_de_achit + Parameters tcAlias + + Private pcselect, pcfiltru, pcschema, pcorder, postat + Local lcTip, llTest, lnSuma + Store 0 To lnSuma + Store .F. To llTest + Store "" To postat + *Thisform.blocbuton1.terminat1.Enabled=.F. + *!* lunanan=gnLuna+gnAn*12 + *!* Select actcv + Private oireg + Select (tcAlias) + Scatter Name oireg + Do Case + Case poAct.id_set = 90011 + &&selectie din state si bifarea sumelor pentru care se face trecerea + pcschema = ['id_stat i,an n(4),luna n(2),NUME C(50),PRENUME C(50),SECTIE C(30),FORMATIE C(64),MARCA n(10),lichidare n(16), bifa n(1),SUMALICNERID n(16)'] + + pcselect = [select a.id_stat,a.an,a.luna,a.nume,a.prenume,a.sectie,a.formatia,a.marca,a.lichidare,ROUND(a.ACHITLICNERID,0) as bifa,a.SUMALICNERID from sal_vstattot a where 1=2] + + + + pcfiltru = [ id_fact_lic = ] + Alltrim(Str(oireg.id_fact)) + [ and ACHITLICNERID = 0] + + Case poAct.id_set = 90013 + &&selectie din state si bifarea sumelor pentru care se face trecerea + pcschema = ['id_stat i,an n(4),luna n(2),NUME C(50),PRENUME C(50),SECTIE C(30),FORMATIE C(64),MARCA n(10),lichidare n(16), bifa n(1),SUMALICNERID n(16)'] + + pcselect = [select a.id_stat,a.an,a.luna,a.nume,a.prenume,a.sectie,a.formatia,a.marca,a.avans as lichidare,ROUND(a.ACHITAVNERID,0) as bifa,a.SUMAAVNERID as SUMALICNERID from sal_vstattot a where 1=2] + + + + pcfiltru = [ id_fact_av = ] + Alltrim(Str(oireg.id_fact)) + [ and ACHITAVNERID = 0] + Endcase + pcorder = [a.sectie,a.nume,A.PRENUME] + llAfiseaza = .F. + gencursor('postat', 'crsState', pcselect, pcfiltru, pcschema, pcorder, llAfiseaza) + postat.ca_baza1.afisare() + + If !Used('crsStatDePastrat') + Select * From crsState Where 1 = 2 Into Cursor crsStatDePastrat Readwrite + Endif + + Select crsState + ofrmSelect = Createobject('frm_alege_neridicati') + If poAct.id_set = 90011 + ofrmSelect.noptiune = 2&& pentru achitarea lichidarii neridicate + Else + ofrmSelect.noptiune = 5&& pentru achitarea avansului neridicat + Endif + ofrmSelect.Show(1) + If buton = 2 + Return + Endif + + Select crsStatDePastrat + Insert Into crsStatDePastrat Select * From crsState Where bifa = 1 + + Use In crsState + Select (tcAlias) + Replace sumaachi With pnSumaBifata + Release ofrmSelect +Endproc + +***------------------------------------------------------------------------------------------------------------------- +Procedure drepturi_nerid_av + + + + Private postat + Store [] To postat + + &&selectie din state si bifarea sumelor pentru care se face trecerea + pcschema = ['id_stat i,an n(4),luna n(2),NUME C(50),PRENUME C(50),SECTIE C(30),FORMATIE C(64),MARCA n(10),lichidare n(16), bifa n(1),SUMALICNERID n(16)'] + + pcselect = [select a.id_stat,a.an,a.luna,a.nume,a.prenume,a.sectie,a.formatia,a.marca,a.avans as lichidare,ROUND(a.BIFAAVNERID,0) as bifa,a.SUMAAVNERID as SUMALICNERID from sal_vstattot a where 1=2] + + + + pcfiltru = [ 1=2] + pcorder = [a.sectie,a.nume,A.PRENUME] + llAfiseaza = .F. + gencursor('postat', 'crsState', pcselect, pcfiltru, pcschema, pcorder, llAfiseaza) + postat.ca_baza1.afisare() + + Select crsState + ofrmSelect = Createobject('frm_alege_neridicati') + ofrmSelect.noptiune = 3&& trecerea avansului in drepturi neridicare + ofrmSelect.Show(1) + If buton = 2 + Return + Endif + + Select crsState + Set Filter To + Locate + Select Sum(Nvl(SUMALICNERID, 0)) As suma From crsState Where bifa > 0 Into Cursor crsSuma + + Select crsSuma + && / selectie din state si bifarea sumelor pentru care se face trecerea + + && nota contabila + Select xsets + + + + + llStergeNotaPrecedenta = .F. + lnId_Set = 90012 + lnCod = 0 + llVerificAnalitic = .T. + llCompletareParteneri = .T. + + If m.llStergeNotaPrecedenta + lnSucces = sterge_nota(m.lnCod, m.lnId_Set) + Endif + + + Select suma From crsSuma Into Cursor crsNota + + Use In crsSuma + + *!* DEBUG + *!* SUSPEND + lcCursor = [crsNota] + Select &lcCursor + + If !Used(m.lcCursor) Or Empty(m.lcCursor) + Return + Endif + *!* scrie_nota_import( tnId_Set, tlVerificAnalitic, tlCompletareParteneri, tcCursorImport,taValori ) + + Dimension laValori[2, 3] + laValori[1, 1] = "poAct.id_vv426" + laValori[1, 2] = Alltrim(Str(gnID_PARTDRNERIDAV)) + laValori[1, 3] = !Empty(gnID_PARTDRNERIDAV) + + lcSel = [select denumire from nom_parteneri where id_part = ] + Alltrim(Str(gnID_PARTDRNERIDAV)) + lnSucces = goExecutor.oExecute(m.lcSel, [crsnumepart]) + If m.lnSucces < 0 + AMESSAGEBOX(goExecutor.cEroare, 0 + 16, "Eroare") + Endif + + laValori[2, 1] = "poAct.v426" + laValori[2, 2] = Alltrim(crsnumepart.denumire) + laValori[2, 3] = !Empty(gnID_PARTDRNERIDAV) + Use In crsnumepart + Select crsNota + lcCursor = [crsNota] + lnSucces = scrie_nota_import(m.lnId_Set, m.llVerificAnalitic, m.llCompletareParteneri, m.lcCursor, @laValori) + + If Used(m.lcCursor) + Use In (m.lcCursor) + Endif + + && -- scriu in statele din luna respectiva ca au fost trecute pe drepturi neridicate + If buton = 2 + Return + Endif + If m.lnSucces > 0 + Select crsState + Scan For bifa > 0 + Scatter Name ost + Private pnIdfact + Store 0 To pnIdfact + lcSel = [select pack_contafin.GET_IDFACT() as id_fact from dual ] + lnSucces = goExecutor.oExecute(m.lcSel, [crsIdFact]) + If m.lnSucces < 0 + AMESSAGEBOX(goExecutor.cEroare, 0 + 16, "Eroare") + Endif + Select crsIdFact + Scatter Name oidfact + + lcSel = [update sal_stat set BIFAAVNERID = 1, SUMAAVNERID = ] + Alltrim(Str(ost.SUMALICNERID)) + [,id_fact_av = ] + Alltrim(Str(oidfact.id_fact)) + [ where id_stat = ] + Alltrim(Str(ost.id_stat)) + lnSucces = goExecutor.oExecute(m.lcSel) + If m.lnSucces < 0 + AMESSAGEBOX(goExecutor.cEroare, 0 + 16, "Eroare") + Endif + Use In crsIdFact + Release oidfact + Endscan + Endif + Use In crsState + Release ofrmSelect +Endproc + +***--------------------------------------------------------------------------------------------------------------------- + + + +Procedure inchidere_tva + Lparameters tnTip + *** tnTip: 1 = inchidere TVA (inclusiv TVA 4427 exigibil la 90 zile); 2 = TVA 4427 exigibil la 90 zile + + Local overif As 'verificare' + Local lCompletareParteneri, lVerificAnalitic, lcCursor, lcCursorVerificare, lcSel + Local lcSql, llSucces, lnBut, lnButon, lnSucces, loAct, lnIdSet + *:Global gnButon + + Private pcSirDifAcont, pcSirDifPart, pnCod, pcExplicatia, pdDataIreg, pdDataAct, pnIdFdoc, pnNrAct, pnScrieDirect + lnIdSet = 90004 + pnCod = 0 + llSucces = .T. + lcCursorVerificare = [crsact] + + pnScrieDirect = 0 && nu mai scriu direct notele in ACT, ci las utilizatorul sa le modifice + + *** STERGERE NOTA INCHIDERE TVA 90004 + lcSql = [select * from vact where id_set = 90004 and an = ?gnAn and luna = ?gnLuna] + m.gcCondSucursala + lcCursor = [actactan] + + lnSucces = goExecutor.oExecute(lcSql, m.lcCursor) + goExecutor.oReset() + If m.lnSucces < 0 + AMESSAGEBOX('Cautare Nota Inchidere TVA:' + Chr(13) + goExecutor.cEroare, 0 + 16, "Eroare") + Return + Endif + + Select actactan + If Reccount() > 0 + Clear Class "verificare" + overif = Createobject('verificare') + overif.Show(1) + If buton = 2 + Use In (Select('actactan')) + Release overif + Return m.llSucces + Endif + lnSucces = OSCRIE_IN_FISIERE(2, .F.) + llSucces = (m.lnSucces > 0) + Endif + + + If m.llSucces + lnButon = lans(m.lnIdSet) + If m.lnButon = 2 + Return m.llSucces + Endif + Else + Return m.llSucces + Endif + + Select actactan + Go Top + Scatter Name loAct + pnIdFdoc = loAct.id_fdoc + pnNrAct = loAct.nract + pdDataAct = loAct.dataact + pdDataIreg = loAct.dataireg + pcExplicatia = Alltrim(loAct.explicatia) + pcSirDifAcont = "" + pcSirDifPart = "" + + *** SCRIERE TVA EXIGIBIL 90 ZILE + *** Valabila pana la 12/2013 + If m.llSucces And (m.gnAn * 12 + m.gnLuna <= 2013 * 12 + 12) && And (goCalendar.tva_incasare = 1) + + *** Am pus tranzactie manuala pentru ca dadea o eroare cand se deschideau cursoare bazate pe tabele temporara act_temp + llSucces = goConn.BeginManualTransaction() + Do While m.llSucces + *** da frecvent fatal error cand transmit parametri cu ? in loc de valori - probabil bug in driverul de odbc + *!* lcSql = [{call pack_inchideri.note_inchidere_tva_90(?gnAn, ?gnLuna, ?gnIdSucursala, ?pnIdFdoc, ?gnIdUtil, ?pdDataIreg, ?pnNrAct, ?pcExplicatia, ?pcSirDifAcont, ?pcSirDifPart, ?@pnCod)}] + TEXT To lcSql Noshow Textmerge + {call pack_inchideri.note_inchidere_tva_90(<>, <>, <>, <>, <>, TO_DATE('<>', 'YYYYMMDD'), <>, '<>', '<>', '<>', ?@pnCod)} + ENDTEXT + + llSucces = goExecutor.oExecuta(m.lcSql, m.lcCursorVerificare) + If !m.llSucces && eroare + Exit + Endif + + + If Reccount(m.lcCursorVerificare) = 0 && nu mai este nimic de completat + Exit + Endif + + *** Trebuie completate analitice, parteneri + pcSirDifAcont = "" + pcSirDifPart = "" + llSucces = verificare_completare_act(m.lcCursorVerificare, .T., .T., @pcSirDifAcont, @pcSirDifPart) + Use In (Select(m.lcCursorVerificare)) + Enddo && .T. + llSucces = goConn.EndManualTransaction(Iif(m.llSucces, 'COMMIT', 'ROLLBACK')) + Endif && goCalendar.tva_incasare = 1 + + *** SCRIERE INCHIDERE TVA + If m.llSucces And m.tnTip = 1 + pcSirDifAcont = "" + pcSirDifPart = "" + llSucces = goConn.BeginManualTransaction() + + Do While m.llSucces + *** da frecvent fatal error cand transmit parametri cu ? in loc de valori - probabil bug in driverul de odbc + *!* lcSql = [{call pack_inchideri.note_inchidere_tva(?gnAn, ?gnLuna, ?gnIdSucursala, ?pnIdFdoc, ?gnIdUtil, ?pdDataIreg, ?pdDataAct, ?pnNrAct, ?pcExplicatia, ?pcSirDifAcont, ?pcSirDifPart, ?@pnCod)}] + TEXT To lcSql Noshow Textmerge + {call pack_inchideri.note_inchidere_tva(<>, <>, <>, <>, <>, TO_DATE('<>', 'YYYYMMDD'), TO_DATE('<>', 'YYYYMMDD'), <>, '<>', '<>', '<>', ?@pnCod, ?pnScrieDirect)} + ENDTEXT + + + llSucces = goExecutor.oExecuta(m.lcSql, m.lcCursorVerificare) + If !m.llSucces && eroare + Exit + Endif + + + If pnScrieDirect = 1 + If Reccount(m.lcCursorVerificare) = 0 && nu mai este nimic de completat + Exit + Endif + + *** Trebuie completate analitice, parteneri + pcSirDifAcont = "" + pcSirDifPart = "" + llSucces = verificare_completare_act(m.lcCursorVerificare, .T., .T., @pcSirDifAcont, @pcSirDifPart) + Else + Select actactan + Go Top + Scatter Name loAct + Zap + + Insert Into actactan (scc, ascc, scd, ascd, suma) ; + Select scc, ascc, scd, ascd, suma From (lcCursorVerificare) + + + Select actactan + Scan + Gather Name loAct Fields Except scc, ascc, scd, ascd, suma + Endscan + + IF m.gl406 + UPDATE actactan SET taxcode = 301000 WHERE INLIST(scd, '4423', '4424') OR INLIST(scc, '4423', '4424') + UPDATE actactan SET taxcode = 380200 WHERE !(INLIST(scd, '4423', '4424') OR INLIST(scc, '4423', '4424')) + ENDIF + + Select .F. As ales, 0 As Cu_tva, Cast(0 As N(2)) As tipnota, a.*, Space(100) As explicatie_tva ; + From actactan a ; + Into Cursor tact Readwrite + + Use In (Select('crsExplicatiiTVATemp')) + + Select tact + Go Top + llNotaNoua = .T. + llMaximize = .T. + loForm = Createobject([frm_modific2007], m.lnIdSet, m.llNotaNoua) + loForm.lb_titlu_alb_b121.Caption = 'Nota inchidere TVA' + Select tact + loForm.Show(1, m.llMaximize) + + If m.gnButon = 1 + Use In (Select('actactan')) + + Select tact + Replace id_jtva_coloana With Null, PROC_TVA With 0 For Cu_tva = 0 + Select * From tact Into Cursor actactan Readwrite + + Select actactan + Replace All id_util With m.gnIdUtil, id_set With m.lnIdSet + lnSucces = OSCRIE_IN_FISIERE(0) + llSucces = (lnSucces > 0) + IF m.llSucces + AMESSAGEBOX('S-a inregistrat Nota de inchidere TVA!', 0 + 64, _Screen.Caption) + ENDIF + Endif && gnButon = 1 + + Exit + Endif && pnScrieDirect + Use In (Select(m.lcCursorVerificare)) + Enddo && .T. + llSucces = goConn.EndManualTransaction(Iif(m.llSucces, 'COMMIT', 'ROLLBACK')) + + Endif && llSucces + + Use In (Select('actactan')) + + IF m.pnScrieDirect = 1 + If Nvl(m.pnCod, 0) <> 0 + AMESSAGEBOX('S-a inregistrat Nota de inchidere TVA!', 0 + 64, _Screen.Caption) + Else + AMESSAGEBOX('Nu exista inregistrari pentru Nota de inchidere TVA!', 0 + 64, _Screen.Caption) + ENDIF + ENDIF + +Endproc && inchidere_tva + + + +************************************ +*** note inchidere TVA Incasare pentru facturi cu sold 0 si neexigibilizate la timp +*** se apeleaza din Registrul de Cumparari/Vanzari +************************************ +Procedure inchidere_tva_sold + Parameters tcJurnal, tcXMLFacturi + + Local loForm As [frm_modific2007] + Local lcCursorDefTVA, lcJurnal, lcSCC, lcSCD, lcSql, llMaximize, llNotaNoua, lnBut, lnIdFact + Local lnIdSet, lnNrAct, lnProcTVA, lnRecords, lnSucces, lnSuma, loAct + Local lnCota, lnCotaTVA, lnSuma24, lnSuma5, lnSuma9, lnSumaT + Local lnSuma24T, lnSuma5T, lnSuma9T, lnSumaNT, lcMesaj +SET STEP ON + lcJurnal = Upper(Alltrim(m.tcJurnal)) && JC/JV + If m.lcJurnal = 'JC' && Jurnal Cumparari + lcSCD = '4426' + lcSCC = '4428' + Else + lcSCD = '4428' + lcSCC = '4427' + Endif + lnRecords = Xmltocursor(m.tcXMLFacturi, "crsTVAIncasareTemp") + If lnRecords = 0 + Use In (Select("crsTVAIncasareTemp")) + Return + Endif + lcMesaj = '' + lnIdSet = 99999 && nota fara predefinire + lnBut = lans(m.lnIdSet) + Set Step On + If m.lnBut = 1 + Select actactan + Scatter Name loAct + Zap + + Select crsTVAIncasareTemp + Scan + lnNrAct = crsTVAIncasareTemp.nract + lnIdFact = crsTVAIncasareTemp.id_fact + lnSumaT = soldn + lnSuma21 = soldn21 + lnSuma11 = soldn11 + + lnSuma24 = soldn24 + lnSuma20 = soldn20 + lnSuma19 = soldn19 + lnSuma9 = soldn9 + lnSuma5 = soldn5 + + If m.lcJurnal = 'JC' && Jurnal Cumparari + lnSuma21T = ro21nt + lnSuma11T = ro11nt + lnSuma24T = ro24nt + lnSuma20T = ro20nt + lnSuma19T = ro19nt + lnSuma9T = ro09nt + lnSuma5T = ro05nt + ELSE + lnSuma21T = ro21nt + lnSuma11T = ro11nt + lnSuma24T = ro24nt + lnSuma20T = ro20nt + lnSuma19T = ro19nt + lnSuma9T = ro9nt + lnSuma5T = ro5nt + Endif + + For lnCota = 1 To 7 + lnSuma = m.lnSumaT + lnCotaTVA = 0.00 + If m.lnSumaT = 0 + lnSuma = Iif(m.lnCota = 1, m.lnSuma24, Iif(m.lnCota = 2, m.lnSuma20, Iif(m.lnCota = 3, m.lnSuma19, Iif(m.lnCota = 4, m.lnSuma9, Iif(m.lnCota = 5, m.lnSuma5, Iif(m.lnCota = 21, m.lnSuma21, m.lnSuma11)))))) + lnCotaTVA = Iif(m.lnCota = 1, 1.24, Iif(m.lnCota = 2, 1.20, Iif(m.lnCota = 3, 1.19, Iif(m.lnCota = 4, 1.09, Iif(m.lnCota = 5, 1.05, Iif(m.lnCota = 6, 1.21, 1.11)))))) + Endif + + lnSumaNT = Iif(m.lnCota = 1, m.lnSuma24T, Iif(m.lnCota = 2, m.lnSuma20T, Iif(m.lnCota = 3, m.lnSuma19T, Iif(m.lnCota = 4, m.lnSuma9T, Iif(m.lnCota = 5, m.lnSuma5T, Iif(m.lnCota = 6, m.lnSuma21T, m.lnSuma11T)))))) + + lcSql = [{call pack_contab.defalca_tva_incasare(] + Alltrim(Str(m.lnIdFact)) + [,] + ; + Alltrim(Str(m.lnSuma, 16, m.gnPC)) + [, ] + Alltrim(Str(m.lnCotaTVA, 5, 2)) + [, 1, ?gnLuna, ?gnAn)}] + lcCursorDefTVA = [crsdeftvainc] + If goExecutor.oExecuta(m.lcSql, m.lcCursorDefTVA) + + * Daca din diferite motive nu se poate calcula TVA exigibil, pun o linie cu ID_FACT-ul facturii originale, sa se poata completa manual + If Reccount(lcCursorDefTVA) = 0 And m.lnSumaNT <> 0 + Insert Into (lcCursorDefTVA) (suma, PROC_TVA, id_fact) ; + Values (m.lnSumaNT, Iif(m.lnCota = 1, 1.24, Iif(m.lnCota = 2, 1.20, Iif(m.lnCota = 3, 1.19, Iif(m.lnCota = 4, 1.09, Iif(m.lnCota = 5, 1.05, Iif(m.lnCota = 6, 1.21, 1.11)))))), m.lnIdFact) + lcMesaj = lcMesaj + 'Factura ' + Alltrim(Str(m.lnNrAct)) + Chr(13) + Chr(10) + Endif + + Insert Into actactan(nract, dataact, dataireg, id_fdoc, fdoc, nr_nota, luna, an, scd, scc, suma, PROC_TVA, id_jtva_coloana, id_set, id_fact, perechec, pereched, explicatia) ; + Select loAct.nract, loAct.dataact, loAct.dataireg, loAct.id_fdoc, loAct.fdoc, Reccount('actactan') + Recno() As nr_nota, m.gnLuna As luna, m.gnAn As an, m.lcSCD As scd, m.lcSCC As scc, ; + a.suma, a.PROC_TVA, a.id_jtva_coloana, m.lnIdSet As id_set, m.lnIdFact As id_fact, ; + Iif(m.lcJurnal = 'JV', m.lnNrAct, 0) As perechec, Iif(m.lcJurnal = 'JC', m.lnNrAct, 0) As pereched, ; + 'Exigibilizare TVA Incasare' As explicatia ; + From (lcCursorDefTVA) a + + + Use In (Select(m.lcCursorDefTVA)) + Endif + + * apelez defalca_tva_incasare pentru fiecare cota, doar daca soldul neexigibil total este 0 + * NU MAI STIU DE CE FAC ASTA???? Am pus lnSumaT > 0 in loc de <> 0, pentru ca aveam un caz special < 0 si nu stiu de ce ieste din bucla + If m.lnSumaT > 0 + Exit + Endif + + Endfor && lnCota = 1 TO 3 + Endscan && crsTVAIncasareTemp + + + Select actactan + Scan + Gather Name loAct Fields Except nr_nota, luna, an, scd, scc, suma, PROC_TVA, id_jtva_coloana, id_set, id_fact, perechec, pereched + If !Empty(Nvl(loAct.explicatia, '')) + Replace explicatia With loAct.explicatia + Endif + Replace id_sucursala With m.gnIdSucursala + Endscan + + + update_jtva_coloane(m.lcJurnal, 'crsExplicatiiTVATemp', 1) + + Select .F. As ales, 1 As Cu_tva, Cast(0 As N(2)) As tipnota, a.*, b.denumire As explicatie_tva_2 ; + From actactan a Left Join crsExplicatiiTVATemp b On a.id_jtva_coloana = b.id_jtva_coloana ; + Into Cursor tact Readwrite + + Update tact Set explicatie_tva = explicatie_tva_2 + + Use In (Select('crsExplicatiiTVATemp')) + + If !Empty(m.lcMesaj) + lcMesaj = [ATENTIE! Nu s-au gasit toate informatiile necesare!] + Chr(13) + Chr(10) + ; + [Completati campul "Explicatia TVA" exigibila pentru inregistrarile:] + Chr(13) + Chr(10) + m.lcMesaj + AMESSAGEBOX(m.lcMesaj, 0 + 48, _Screen.Caption) + Endif + + Select tact + Go Top + llNotaNoua = .T. + llMaximize = .T. + loForm = Createobject([frm_modific2007], m.lnIdSet, m.llNotaNoua) + loForm.lb_titlu_alb_b121.Caption = 'Exigibilizare TVA Incasare' + Select tact + loForm.Show(1, m.llMaximize) + + If buton = 1 + Use In (Select('actactan')) + + Select tact + Replace id_jtva_coloana With Null, PROC_TVA With 0 For Cu_tva = 0 + Select * From tact Into Cursor actactan Readwrite + + Select actactan + Replace All id_util With gnIdUtil, id_set With m.lnIdSet + lnSucces = OSCRIE_IN_FISIERE(0) + Endif && buton = 1 + Endif && m.lnBut = 1 + + + Use In (Select('actactan')) + Use In (Select('tact')) + +Endproc && inchidere_tva_sold + +*_________________________________ +Procedure inchidere_venituri_cheltuieli + Lparameters tnTip + * tnTip: 7 = Venituri, 6 = Cheltuieli + + Local overif As 'verificare' + Local lCompletareParteneri, lVerificAnalitic, lcCursor, lcSel, lcSql, llSucces, lnBut, lnIdSet + Local lnSucces, lnTip, loAct, lcAcont121, llNotaNoua, llMaximize + + lnTip = Iif(Empty(m.tnTip), 7, m.tnTip) + lnIdSet = Iif(m.lnTip = 7, 90005, 90006) + + * Stergere inchidere anterioara + Use In (Select('actactan')) + lcSql = [select * from vact where id_set = ] + Alltrim(Str(m.lnIdSet)) + [ and an = ?gnAn and luna = ?gnLuna] + m.gcCondSucursala + lcCursor = [actactan] + + llSucces = goExecutor.oExecuta(lcSql, m.lcCursor) + If !m.llSucces + Return + Endif + + Select actactan + If Reccount() > 0 + Clear Class "verificare" + overif = Createobject('verificare') + overif.Show(1) + If buton = 2 + Use In (Select('actactan')) + Release overif + Return + Endif + Do OSCRIE_IN_FISIERE.prg With 2, .F. + Endif + + * Nota inchidere curenta + lnBut = lans(m.lnIdSet) + llSucces = (m.lnBut = 1) + + If m.llSucces + lcSel = '{call pack_inchideri.inchidere_' + Iif(m.lnTip = 7, 'venituri', 'cheltuieli') + '(?gnAn,?gnLuna,?gnIdSucursala)}' + lcCursor = 'crs_inchidere' + llSucces = goExecutor.oExecuta(m.lcSel, m.lcCursor) + Endif + + If m.llSucces + Select actactan + Go Top + Scatter Name loAct + Zap + + lcAcont121 = '' + If m.lnTip = 7 && venituri + lcAcont121 = Iif(Type('gcRC_ACONT121_INCHIDERE_V') = 'C' And !Empty(Nvl(m.gcRC_ACONT121_INCHIDERE_V, '')), m.gcRC_ACONT121_INCHIDERE_V, Space(4)) + Insert Into actactan (scd, ascd, scc, ascc, suma, id_sectie, sectie) ; + Select Cont As scd, ACONT As ascd, '121 ' As scc, lcAcont121 As ascc, suma, ; + Iif(Type('id_sectie') = 'U', loAct.id_sectie, id_sectie) As id_sectie, ; + Iif(Type('sectie') = 'U', loAct.sectie, sectie) As sectie From crs_inchidere + Else + lcAcont121 = Iif(Type('gcRC_ACONT121_INCHIDERE_C') = 'C' And !Empty(Nvl(m.gcRC_ACONT121_INCHIDERE_C, '')), m.gcRC_ACONT121_INCHIDERE_C, Space(4)) + Insert Into actactan (scc, ascc, scd, ascd, suma, id_sectie, sectie) ; + Select Cont As scc, ACONT As ascc, '121 ' As scd, lcAcont121 As ascd, suma, ; + Iif(Type('id_sectie') = 'U', loAct.id_sectie, id_sectie) As id_sectie, ; + Iif(Type('sectie') = 'U', loAct.sectie, sectie) As sectie From crs_inchidere + Endif + + Select actactan + Scan + Gather Name loAct Fields Except scc, ascc, scd, ascd, suma, id_sectie, sectie + Endscan + + Select .F. As ales, 0 As Cu_tva, Cast(0 As N(2)) As tipnota, a.*, Space(100) As explicatie_tva ; + From actactan a ; + Into Cursor tact Readwrite + + Use In (Select('crsExplicatiiTVATemp')) + + Select tact + Go Top + llNotaNoua = .T. + llMaximize = .T. + loForm = Createobject([frm_modific2007], m.lnIdSet, m.llNotaNoua) + loForm.lb_titlu_alb_b121.Caption = 'Nota inchidere ' + Iif(m.lnTip = 7, 'venituri', 'cheltuieli') + Select tact + loForm.Show(1, m.llMaximize) + + If m.gnButon = 1 + Use In (Select('actactan')) + + Select tact + Replace id_jtva_coloana With Null, PROC_TVA With 0 For Cu_tva = 0 + Select * From tact Into Cursor actactan Readwrite + + Select actactan + Replace All id_util With m.gnIdUtil, id_set With m.lnIdSet + lnSucces = OSCRIE_IN_FISIERE(0) + Endif && gnButon = 1 + Endif && llSucces + + Use In (Select('crs_inchidere')) + Use In (Select('actactan')) +Endproc && inchidere_venituri_cheltuieli + + +************************************** +*** Genereaza note 461 = 542 pe baza sold inregistrari 542 la 30.06.aa, 31.12.aa +*** folositor pentru aflarea soldul 542 la sfarsitul perioadei in F30 bilant +*** ID_SET: 90021 +************************************** +Procedure inchidere_sold_542 + Private pnIdSet, pnCod + + Local overif As 'verificare' + Local lcCursor, lcCursorVerificare, lcSql, llSucces, lnButon, lnSucces, loAct + Private pcSirDifAcont, pcSirDifPart, pdDataIreg + + pnIdSet = 90021 + pnCod = 0 + llSucces = .T. + lcCursorVerificare = [crsact] + + *** STERGERE NOTA INCHIDERE SOLD 542 90021 + lcSql = [select * from vact where id_set = ?pnIdSet and an = ?gnAn and luna = ?gnLuna] + m.gcCondSucursala + lcCursor = [actactan] + + llSucces = goExecutor.oExecuta(lcSql, m.lcCursor) + If !m.llSucces + Return m.llSucces + Endif + + Select actactan + If Reccount() > 0 + Clear Class "verificare" + overif = Createobject('verificare') + overif.Show(1) + If buton = 2 + Use In (Select('actactan')) + Release overif + Return m.llSucces + Endif + lnSucces = OSCRIE_IN_FISIERE(2, .F.) + llSucces = (m.lnSucces > 0) + Endif + + + If !m.llSucces + Return m.llSucces + Endif + + *** Cerere date (nu imi trebuie informatii gen nract, dataact, dar trebuie sa se creeze actactan) + lnButon = lans(m.pnIdSet) + If m.lnButon = 2 + llSucces = .F. + Return m.llSucces + Endif + + Select actactan + Go Top + Scatter Name loAct + + pdDataIreg = loAct.dataireg + pcSirDifAcont = "" + pcSirDifPart = "" + + + *** SCRIERE NOTA INCHIDERE SOLD 542 90021 + If m.llSucces + pcSirDifAcont = "" + pcSirDifPart = "" + llSucces = goConn.BeginManualTransaction() + Do While m.llSucces + *** da frecvent fatal error cand transmit parametri cu ? in loc de valori - probabil bug in driverul de odbc + *!* lcSql = [{call pack_inchideri.note_inchidere_tva(?gnAn, ?gnLuna, ?gnIdSucursala, ?pnIdFdoc, ?gnIdUtil, ?pdDataIreg, ?pdDataAct, ?pnNrAct, ?pcExplicatia, ?pcSirDifAcont, ?pcSirDifPart, ?@pnCod)}] + TEXT To lcSql Noshow Textmerge + {call pack_inchideri.note_inchidere_542(<>, <>, <>, <>, TO_DATE('<>', 'YYYYMMDD'), '<>', '<>', ?@pnCod)} + ENDTEXT + + + llSucces = goExecutor.oExecuta(m.lcSql, m.lcCursorVerificare) + If !m.llSucces && eroare + Exit + Endif + + If Reccount(m.lcCursorVerificare) = 0 && nu mai este nimic de completat + Exit + Endif + + *** Trebuie completate analitice, parteneri + pcSirDifAcont = "" + pcSirDifPart = "" + llSucces = verificare_completare_act(m.lcCursorVerificare, .T., .T., @pcSirDifAcont, @pcSirDifPart) + Use In (Select(m.lcCursorVerificare)) + Enddo && .T. + llSucces = goConn.EndManualTransaction(Iif(m.llSucces, 'COMMIT', 'ROLLBACK')) + Endif && llSucces + + Use In (Select('actactan')) + + If Nvl(m.pnCod, 0) <> 0 + AMESSAGEBOX('S-a inregistrat Nota de inchidere sold 542!', 0 + 64, _Screen.Caption) + Else + AMESSAGEBOX('Nu exista inregistrari pentru Nota de inchidere sold 542!', 0 + 64, _Screen.Caption) + Endif +Endproc && inchidere_sold_542 + + +************************************** +*** Genereaza note inverse 542 = 461 pe baza notei de inchidere din registrul jurnal din luna anterioara (la 07/aa 01/aa) +*** ID_SET: 90022 +************************************** +Procedure repunere_sold_542 + + Private pnIdSet, pnCod + + Local overif As 'verificare' + Local lcCursor, lcCursorVerificare, lcSql, llSucces, lnButon, lnSucces, loAct + Private pcSirDifAcont, pcSirDifPart, pdDataIreg + + pnIdSet = 90022 + pnCod = 0 + llSucces = .T. + lcCursorVerificare = [crsact] + + *** STERGERE NOTA REPUNERE SOLD 542 90022 + lcSql = [select * from vact where id_set = ?pnIdSet and an = ?gnAn and luna = ?gnLuna] + m.gcCondSucursala + lcCursor = [actactan] + + llSucces = goExecutor.oExecuta(lcSql, m.lcCursor) + If !m.llSucces + Return m.llSucces + Endif + + Select actactan + If Reccount() > 0 + Clear Class "verificare" + overif = Createobject('verificare') + overif.Show(1) + If buton = 2 + Use In (Select('actactan')) + Release overif + Return m.llSucces + Endif + lnSucces = OSCRIE_IN_FISIERE(2, .F.) + llSucces = (m.lnSucces > 0) + Endif + + + If !m.llSucces + Return m.llSucces + Endif + + *** Cerere date (nu imi trebuie informatii gen nract, dataact, dar trebuie sa se creeze actactan) + lnButon = lans(m.pnIdSet) + If m.lnButon = 2 + llSucces = .F. + Return m.llSucces + Endif + + Select actactan + Go Top + Scatter Name loAct + + pdDataIreg = loAct.dataireg + pcSirDifAcont = "" + pcSirDifPart = "" + + + *** SCRIERE NOTA REPUNERE SOLD 542 90022 + If m.llSucces + pcSirDifAcont = "" + pcSirDifPart = "" + llSucces = goConn.BeginManualTransaction() + Do While m.llSucces + *** da frecvent fatal error cand transmit parametri cu ? in loc de valori - probabil bug in driverul de odbc + *!* lcSql = [{call pack_inchideri.note_inchidere_tva(?gnAn, ?gnLuna, ?gnIdSucursala, ?pnIdFdoc, ?gnIdUtil, ?pdDataIreg, ?pdDataAct, ?pnNrAct, ?pcExplicatia, ?pcSirDifAcont, ?pcSirDifPart, ?@pnCod)}] + TEXT To lcSql Noshow Textmerge + {call pack_inchideri.note_repunere_542(<>, <>, <>, <>, TO_DATE('<>', 'YYYYMMDD'), '<>', '<>', ?@pnCod)} + ENDTEXT + + + llSucces = goExecutor.oExecuta(m.lcSql, m.lcCursorVerificare) + If !m.llSucces && eroare + Exit + Endif + + If Reccount(m.lcCursorVerificare) = 0 && nu mai este nimic de completat + Exit + Endif + + *** Trebuie completate analitice, parteneri + pcSirDifAcont = "" + pcSirDifPart = "" + llSucces = verificare_completare_act(m.lcCursorVerificare, .T., .T., @pcSirDifAcont, @pcSirDifPart) + Use In (Select(m.lcCursorVerificare)) + Enddo && .T. + llSucces = goConn.EndManualTransaction(Iif(m.llSucces, 'COMMIT', 'ROLLBACK')) + Endif && llSucces + + Use In (Select('actactan')) + + If Nvl(m.pnCod, 0) <> 0 + AMESSAGEBOX('S-a inregistrat Nota de repunere sold 542!', 0 + 64, _Screen.Caption) + Else + AMESSAGEBOX('Nu exista inregistrari pentru Nota de repunere sold 542!', 0 + 64, _Screen.Caption) + Endif +Endproc && repunere_sold_542 + + +************************************************* +*** completare configurare conturi pentru inchiderea de amortizari +*** completeaza conturile de cheltuiala si amortizare pe sectii cu conturile de la inregistrarile fara sectii, daca este cazul +*** id_sectie a fost adaugat in 09.07.2020 si erau configurari doar pe cont, acont, nu si pe sectie +************************************************* +Procedure inchidere_amortizari_completare_conturi + Local lcLunaAn, lcSelect, lcSql + lcSelect = Select() + + lcLunaAn = Padl(Int(m.gnLuna), 2, '0') + Alltrim(Str(Int(m.gnAn))) + TEXT TO lcSql TEXTMERGE NOSHOW + BEGIN + pack_imob.setlunacurenta(to_date('<>','mmyyyy')); + + insert into imob_inchidere (id_sectie, cont, acont, scd, ascd, scc, ascc) + select a.id_sectie, + a.cont, + a.acont, + nvl(a.scd, b.cont_cheltuiala) as scd, + ascd, + nvl(a.scc, b.cont_amortizare) as scc, + a.ascc + from (Select Distinct DECODE(s.id_sectie, 0, NULL, s.id_sectie) as id_sectie, + trim(s.Cont) as cont, + trim(s.acont) as acont, + nvl(i1.scd, i2.scd) as scd, + nvl(i1.ascd, i2.ascd) as ascd, + nvl(i1.scc, i2.scc) as scc, + nvl(i1.ascc, i2.ascc) as ascc + FROM imob_vsituatie_lunara s + left join imob_inchidere i1 + on nvl(s.id_sectie, 0) = nvl(i1.id_sectie, 0) + and trim(s.cont) = trim(i1.cont) + and trim(nvl(s.acont, 'x')) = trim(nvl(i1.acont, 'x')) + left join (select cont, acont, scd, ascd, scc, ascc + from imob_inchidere + where id_sectie is null) i2 + on trim(s.cont) = trim(i2.cont) + and trim(nvl(s.acont, 'x')) = trim(nvl(i2.acont, 'x')) + WHERE s.iesit_din_gest = 0 + and s.id_tip_imobilizare in (1, 2) + and rpad(nvl(s.id_sectie,0), 10, '0') || rpad(trim(s.cont),4, 'x') || rpad(trim(s.acont), 4, 'x') not in + (select rpad(nvl(id_sectie,0), 10, '0') || rpad(trim(cont),4, 'x') || rpad(trim(acont), 4, 'x') from imob_inchidere)) a + left join imob_conturi b + on trim(a.cont) = trim(b.cont); + END; + ENDTEXT + llSucces = goExecutor.oExecuta(m.lcSql) + + Select (m.lcSelect) + Return m.llSucces +Endproc && inchidere_amortizari_completare_conturi + +Procedure viz_inchidere_amortizari_conturi + Local loFrm, llBlank, llSucces, llBlank + + inchidere_amortizari_completare_conturi() + + llBlank = .T. + = ccsectii(m.llBlank) && vnom_sectii + Select vnom_sectii + Index On id_sectie Tag id_sectie + + llSucces = goExecutor.oExecuta("select id, id_sectie, sectie, cont, acont, scd, ascd, scc, ascc from vimob_inchidere order by sectie, cont, acont", "imob_conturi") + If m.llSucces + Select imob_conturi + Go Top + loFrm = Newobject("imob_conturi", "oconfigcont.vcx") + loFrm.Show(1) + Use In (Select('imob_conturi')) + Endif + + = close_ccsectii() +Endproc && viz_inchidere_amortizari_conturi + +*________________________________ + +Procedure inchidere_amortizari + Parameters tnTip + + Local lcCursorInchidere, lcSql, lcCursor, lnSucces + Local loForm As [frm_modific2007] + Local overif As 'verificare' + Local lcAct, lcDirContafin, llMaximize, llNotaNoua, llSucces, lnBut, lnIdSectie, loAct + Private pnIdSet, pnSectie, pnTip, pnLucrare + + pnTip = Iif(Empty(tnTip) Or Type('tnTip') # 'N', 1, tnTip) + If pnTip = 1 + pnIdSet = 90003 + Endif + If pnTip = 2 + pnIdSet = 90009 + Endif + + * Completare conturi + inchidere_amortizari_completare_conturi() + + lcCursorInchidere = "" + + lcSql = [select * from vact where id_set = ?pnIdSet and an = ?gnAn and luna = ?gnLuna] + m.gcCondSucursala + lcCursor = [actactan] + + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + goExecutor.oReset() + If lnSucces < 0 + AMESSAGEBOX('Cautare Nota Inchidere Amortizari:' + Chr(13) + goExecutor.cEroare, 0 + 16, "Eroare") + Return + Endif + + Select actactan + If Reccount() > 0 + Clear Class "verificare" + overif = Createobject('verificare') + overif.Show(1) + If buton = 2 + If Used('actactan') + Use In actactan + Endif + Release overif + Return + Else + Do OSCRIE_IN_FISIERE.prg With 2, .F. + Endif + Endif + + + lnBut = lans(pnIdSet) + + If m.lnBut = 1 + If m.gnNotaImob = 3 + * Import nota Contafin + lcDirContafin = goApp.ReadIni([inchidere], "director_contafin") + If Empty(m.lcDirContafin) Or !Directory(m.lcDirContafin) + lcDirContafin = Getdir('', 'Directorul firmei Contafin', 'Directorul firmei Contafin', 64) + goApp.WriteIni([inchidere], "director_contafin", m.lcDirContafin) + Endif + + lcAct = Addbs(m.lcDirContafin) + 'AN' + Alltrim(Str(m.gnAn)) + '\DATE' + Padl(Alltrim(Str(m.gnLuna, 2, 0)), 2, '0') + '\ACT.DBF' + If File(m.lcAct) + llSucces = goExecutor.oExecuta('SELECT scd, ascd, scc, ascc, suma, explicatia4 as explicatie, id_sectie, sectie FROM vact WHERE 1=2', 'crs_inchidere') + + Use (m.lcAct) In 0 Shared Alias c_act_temp + Select explicatia, scd, scc, ascd, ascc, sectie, nume_2 As explicatie, suma From c_act_temp Where id_set = m.pnIdSet Into Cursor cActTemp + Use In (Select('c_act_temp')) + If Reccount('cActTemp') = 0 + AMESSAGEBOX('Nu exista nici o nota cu tipul de operatie ' + Alltrim(Str(m.pnIdSet)) + ' in Registrul jurnal din Contafin!', 0 + 48, _Screen.Caption) + Create Cursor crs_inchidere(scd C(4), ascd C(4), scc C(4), ascc C(4), suma N(18, 4), explicatie C(100), id_sectie I, sectie C(100)) + Endif && RECCOUNT + + Select crs_inchidere + Append From Dbf('cActTemp') + Use In (Select('cActTemp')) + + Select crs_inchidere + Scan + lnIdSectie = GetIdSectie(crs_inchidere.sectie) + Replace id_sectie With m.lnIdSectie In crs_inchidere + Endscan + Else + AMESSAGEBOX('Nu exista fisierul ' + m.lcAct, 0 + 48, _Screen.Caption) + Create Cursor crs_inchidere(scd C(4), ascd C(4), scc C(4), ascc C(4), suma N(18, 4), explicatie C(100), id_sectie I, sectie C(100)) + Endif && FILE(m.lcAct) + Else + pnSectie = 0 + DO CASE + CASE m.gnNotaImob = 2 + pnSectie = 1 + CASE m.gnCampSectie = 1 AND AMESSAGEBOX("Inchiderea se face dupa campul 'Sectie'?", 4 + 32, "Inchidere amortizari") = 6 + pnSectie = 1 + ENDCASE + pnLucrare = 0 + IF m.gnCampLucrare = 1 AND AMESSAGEBOX("Inchiderea se face dupa campul 'Lucrare'?", 4 + 32, "Inchidere amortizari") = 6 + pnLucrare = 1 + ENDIF + + lcCursorInchidere = GET_CURSOR_INCHIDERE_AMORTIZARI(m.pnTip, m.pnSectie, m.pnLucrare, m.gnAn, m.gnLuna, "crs_inchidere") && oproceduri_comune_imob.prg + If !Used(lcCursorInchidere) + lnBut = 2 && RENUNT + Endif + Endif && m.gnNotaImob = 3 + Endif && m.lnBut = 1 + + If m.lnBut = 1 + Select actactan + Scatter Name loAct + Zap + Insert Into actactan (scd, ascd, scc, ascc, suma, explicatia4, id_sectie, sectie, id_lucrare, nrord) ; + SELECT scd, ascd, scc, ascc, suma, explicatie, id_sectie, sectie, id_lucrare, nrord From crs_inchidere Where suma <> 0 + + Select actactan + Scan + Gather Name loAct Fields Except scd, ascd, scc, ascc, suma, explicatia4, id_sectie, sectie, id_lucrare, nrord + Endscan + + Select .F. As ales, 0 As Cu_tva, Cast(0 As N(2)) As tipnota, a.*, Space(100) As explicatie_tva ; + From actactan a ; + Into Cursor tact Readwrite + + Use In (Select('crsExplicatiiTVATemp')) + + Select tact + Go Top + llNotaNoua = .T. + llMaximize = .T. + loForm = Createobject([frm_modific2007], m.pnIdSet, m.llNotaNoua) + loForm.lb_titlu_alb_b121.Caption = 'Nota inchidere amortizare ' + Iif(m.pnTip = 1, 'imobilizari corporale', 'imobilizari necorporale') + Select tact + loForm.Show(1, m.llMaximize) + + If m.gnButon = 1 + Use In (Select('actactan')) + + Select tact + Replace id_jtva_coloana With Null, PROC_TVA With 0 For Cu_tva = 0 + Select * From tact Into Cursor actactan Readwrite + + Select actactan + Replace All id_util With gnIdUtil, id_set With m.pnIdSet + lnSucces = OSCRIE_IN_FISIERE(0) + Endif && gnButon = 1 + Endif && lnBut = 1 + + Use In (Select('crs_inchidere')) + Use In (Select('actactan')) +Endproc && inchidere_amortizari diff --git a/Programe/oproceduri_registretva.prg b/Programe/oproceduri_registretva.prg new file mode 100644 index 0000000..ffb7341 --- /dev/null +++ b/Programe/oproceduri_registretva.prg @@ -0,0 +1,63 @@ +****************************************************************** +Procedure listare_registru_tva +Lparameters tcRegistru + +pcRegistru = Upper(Alltrim(tcRegistru)) +Do Case +Case 'VANZ'$pcRegistru + pcContTVA = [4427] + pcListaContTVA = [411,4111,4112,4113,4114,4115,4116,4117,461,635,5311,5121,428,4281,4282,4426,4428] + pcListaContBaza = [411,4111,4112,4113,4114,4115,4116,4117,461,428,4281,4282] + pcListaContExceptii = [667,419] +Otherwise + pcContTVA = [4426] + pcListaContTVA = [401,404,5121,5124,542,4427,4428] + pcListaContBaza = [401,404] + pcListaContExceptii = [767] +Endcase + + +lcSql = [{call PACK_REGISTRE_TVA.REGISTRUTVA(?gcS, ?gnAn, ?gnLuna, ] + ; + [?pcRegistru, ?pcContTVA, ?pcListaContTVA, ?pcListaContBaza, ?pcListaContExceptii )}] +lcCursor = 'crsRegistruTemp' +lnSucces = goExecutor.oExecute(lcSql,lcCursor) +If lnSucces < 0 + AMESSAGEbox(goExecutor.cEroare,0+16,"Eroare") +Else + + Select nract, dataact, Part As nume, cod_fiscal, fdoc, baza, proc_tva, tva, baza + tva As totctva, 00000000000.0000 As Total ; + FROM crsRegistruTemp ; + INTO Cursor crsRegistru ; + READWRITE Order By dataact, nract, nume + Use In crsRegistruTemp + + Select nract, dataact, nume,Sum(totctva) As Total ; + from crsRegistru ; + INTO Cursor tgrup ; + GROUP By dataact, nract, nume + + Select tgrup + Scan + Scatter Name ot + Select crsRegistru + Locate For nume = ot.nume And nract = ot.nract And dataact = ot.dataact + If Found() + Replace Total With ot.Total + Endif + Select tgrup + Endscan + Use In tgrup + + If Reccount('crsRegistru')>0 + Private pcDataOra + pcDataOra = get_ora(2) + Select crsRegistru + Report Form registru_tva_simplu To Printer Prompt Preview + Else + AMESSAGEbox("Nu exista inregistrari pentru listare!",48,"Atentie") + Endif + Use In crsRegistru +Endif +Endproc + +****************************************************************** \ No newline at end of file diff --git a/Programe/orap_terti.prg b/Programe/orap_terti.prg new file mode 100644 index 0000000..2632ad3 --- /dev/null +++ b/Programe/orap_terti.prg @@ -0,0 +1,2408 @@ +*!* 30.12.2010 +*!* marius.mutu +*!* viz_frm_facturi - export xls + goExport.export2frx foxypreview + +*!* 15.07.2011 +*!* marius.mutu +*!* parteneri_cu_sold_final - facea raportul doar pentru contul 4111 + + +*!* 27.06.2013 +*!* marius.mutu +*!* sold_fact_pe_vechimi +*!* la sold facturi pe vechimi 4111 fata de data emitere am acelasi raport ca la ALTII/ACTIV + +*!* 16.10.2020 +*!* marius.mutu +*!* viz_frm_facturi - redirectionez catre orap_terti_comun.prg + +*_________________________________________________________* +* * +* proceduri utilizate pentru generarea rapoartelor din: * +* Terti->Furnizori * +* ->Clienti * +* ->Alti * +*_________________________________________________________* + +* PROCEDURE viz_frm_facturi( tntip ) +* Date : 19/11/2004, 14:36:36 +* author : lavinia.viziru +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 1 +* Parameter 1: +* +******************************************* INCEPUT:viz_frm_facturi ******************************************* +Procedure viz_frm_facturi_old + Parameters tntip, tccont + DO viz_frm_facturi IN orap_terti_comun.prg WITH tntip, tccont + RETURN + + Local lcFileXLS + lcFileXLS = "" + Private pocauta, pnlunai, pnani, pnlunaf, pnanf, pccont, plemise, pcperioada, pctitlu, pcpartener + Store '' To pocauta, pcperioada, pctitlu, pcpartener + Store 0 To pnlunai, pnani, pnlunaf, pnanf + + plemise = Iif(tntip = 2, .T., .F.) + plActiv = .T. + pccont = Iif(!Empty(tccont), tccont, []) + If !Empty(pccont) + pcexec = [select NVL(fel_cont,0) as fel_cont from ] + gcs + [.vcoresp_tip_cont where cont=?pcCont] + pcCursor = [felCont_cursor] + pnsucces = goExecutor.oExecute(pcexec, pcCursor) + If pnsucces > 0 And _Tally > 0 + Select felCont_cursor + Locate + plActiv = Iif(felCont_cursor.fel_cont = 0, .T., .F.) + Use In felCont_cursor + Endif + Endif + + gnButon = 1 + Do While gnButon = 1 + ofrm = Createobject('frm_facturi') + With ofrm + .lcCont = pccont + .lcContInitial = pccont + .llActiv = plActiv + .clb_tx_simplu1.text_simplu1.Value = pccont + .lb_titlu_alb_b121.Caption = [Facturi ] + Iif(!Empty(pccont), pccont, []) + .opt_perioada.Value = tntip + .lhide = .T. + Endwith + ofrm.Show(1) + pccont = ofrm.lcCont + plemise = Iif(ofrm.opt_perioada.Value = 1, .F., .T.) + pnIdPart = ofrm.lnIdPart + plActiv = ofrm.llActiv + pnani = ofrm.Caut_anluna1.nan + pnanf = ofrm.Caut_anluna2.nan + pnlunai = ofrm.Caut_anluna1.nluna + pnlunaf = ofrm.Caut_anluna2.nluna + pnCuAnalitic = ofrm.ncu_analitic + pcAnalitic = ofrm.lcAcont + pnCuValuta = ofrm.ncu_valuta + pnIdValuta = ofrm.lnIdValuta + pnCuVechime = ofrm.ncu_vechime + pcValuta = ofrm.txt_valuta.Value + ofrm.Release + + If gnButon = 1 + + pcperioada = [Perioada: ] + Alltrim(Str(pnlunai)) + [/] + Alltrim(Str(pnani)) + ; + [ - ] + Alltrim(Str(pnlunaf)) + [/] + Alltrim(Str(pnanf)) + + lcCursor = situatie_facturi(Alltrim(pccont), plActiv, plemise, pnIdPart, pnani, pnlunai, pnanf, pnlunaf, pnCuAnalitic, pcAnalitic, pnCuValuta, pnIdValuta, pnCuVechime) + + Do Case + Case Empty(lcCursor) + amessagebox("Nu a fost generata selectia pentru listare!", 0 + 48, "Atentie") + Case Reccount(lcCursor) = 0 + amessagebox("Nu exista inregistrari pentru listare!", 0 + 48, "Atentie") + Use In (lcCursor) + Otherwise + Do Case + Case Alltrim(pccont) = [401] + pcpartener = [Furnizor: ] + lcTitlu = [Situatia facturilor de cumparari] + Case Alltrim(pccont) = [4111] + pcpartener = [Client: ] + lcTitlu = [Situatia facturilor de vanzari] + Otherwise && pccont = [411] + pcpartener = [Partener: ] + lcTitlu = [Situatia facturilor] + Endcase + If pnCuVechime = 0 + lcRaport = [rap_facturi] + Else + lcRaport = [rap_facturi_vechime] + Endif + + If pnCuAnalitic = 0 + pcGrupAcont = [EOF()] + Else + pcGrupAcont = [acont] + Endif + If !Empty(pnIdValuta) + lcTitlu = lcTitlu + Chr(13) + [Valuta ] + Alltrim(pcValuta) + Endif + pctitlu = lcTitlu + *!* pctitlu = ceretitlu_rap('Titlul Raportului',lctitlu) + *!* pcDataOra = Get_Ora(2) + *!* Select (lcCursor) + *!* Report Form &lcRaport To Printer Prompt Preview + *!* 30.12.2010 + *!* goExport.export2frx(lcCursor,lcRaport,.T.) + goExport.export2frx(lcCursor, lcRaport, .T., , , , , .T.) + If Messagebox('Doriti sa exportati in XLS?', 4 + 32, _Screen.Caption) = 6 + lcFileXLS = Putfile("Salvati fisierul XLS", "Facturi.xls", "xls") + If !Empty(lcFileXLS) + Select (lcCursor) + Copy To (lcFileXLS) Type Xl5 + open_default_app(lcFileXLS) + Endif + Endif + *!* 30.12.2010 ^ + + Use In (lcCursor) + Endcase + + Endif + Enddo +Endproc +****************************************** SFARSIT: viz_frm_facturi **************************** +* PROCEDURE situatie_facturi +* Date : 10/04/2006, 16:10:03 +* author : georgiana.voicu +* description: preluare facturi pentru conturi cu inregistrari + +****** PARAMETER BLOCK ************** +* Parameters : 3 +* Parameter 1: tlemise +* Description: tipul facturilor preluate +* (.t.-facturi emise intr-o perioada determinata +* .f.-facturi cu sold dintr-o perioada determinata) +* Parameter 2: tccont +* Description: contul partenerului(411-client, 401- furnizor) +* Parameter 3: topartener +* Description: obiectul care contine datele partenerului(client/furnizor) selectat:nume + id_part +* (daca numele partenerului= atunci se iau in considerare +* toti partenerii- clienti sau furnizori) +* Parameter 4,5,6,7 : perioada +******************************************* INCEPUT:situatie_facturi ******************************************* +Procedure situatie_facturi_old + Parameters tccont, tlActiv, tlemise, tnIdPart, tnAnI, tnLunaI, tnAnF, tnLunaF, tnCuAnalitic, tcAnalitic, tnCuValuta, tnIdValuta, tnCuVechime + + Private lnrlunii, lnrlunif, lnNrPrimaL + + lnnrlunii = tnLunaI + 12 * tnAnI + lnnrlunif = tnLunaF + 12 * tnAnF + + *!* IF tlemise + lnNrPrimaL = lnnrlunii + *!* ELSE + *!* lnNrPrimaL = lnnrlunii -1 + *!* ENDIF + + If tnIdPart = 0 + lcCondId_part = [1=1] + Else + lcCondId_part = [id_part = ] + Alltrim(Str(tnIdPart)) + Endif + + lcSql = [select * from ] + gcs + [.exceptii_ireg where invers = 1 and debit = ] + Iif(tlActiv, [1], [0]) + ; + [ and cont = ] + tccont + lcCursor = [ex_debit] + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + lcExceptii = [-1] + If lnSucces > 0 + Select ex_debit + Scan + lcExceptii = lcExceptii + ',' + Alltrim(cont_c) + Endscan + Use In ex_debit + Endif + + If !tlActiv && - furnizori + lcTotctva = Iif(tnCuValuta = 0, [credit + preccred], [valcredit + precvalcred]) + *!* modificare v 2.0.46 + lcTotctvaPrec = Iif(tnCuValuta = 0, [preccred], [precvalcred]) && am nevoie pentru calcularea soldului prec. + *!* modificare v 2.0.46 ^ + lcSoldPrec = Iif(tnCuValuta = 0, [preccred - precdeb], [precvalcred - precvaldeb]) + *lcAchitat = [debit + precdeb] + lcAchitat = Iif(tnCuValuta = 0, [precdeb], [precvaldeb]) + lcPereche = [pereched] + lcIdPereche = [id_factd] + lcPartener = [partd] + lcIdPartener = [id_partd] + lcContIncPl = [scd] + lcAcontIncPl = [ascd] + lcCondExclud = [(to_number(scc) not in (] + lcExceptii + [))] + Else && - clienti + lcTotctva = Iif(tnCuValuta = 0, [debit + precdeb], [valdebit + precvaldeb]) + *!* modificare v 2.0.46 + lcTotctvaPrec = Iif(tnCuValuta = 0, [precdeb], [precvaldeb]) + *!* modificare v 2.0.46 ^ + lcSoldPrec = Iif(tnCuValuta = 0, [precdeb - preccred], [precvaldeb - precvalcred]) + *lcAchitat = [credit + preccred] + lcAchitat = Iif(tnCuValuta = 0, [preccred], [precvalcred]) + lcPereche = [perechec] + lcIdPereche = [id_factc] + lcPartener = [partc] + lcIdPartener = [id_partc] + lcContIncPl = [scc] + lcAcontIncPl = [ascc] + lcCondExclud = [(to_number(scd) not in (] + lcExceptii + [))] + Endif + + lcCondPerioada = [((luna + 12*an) between ?lnNrPrimaL and ?lnnrlunif)] + lcCondData = [(to_number(to_char(dataireg,'MM'),'99') + 12*to_number(to_char(dataireg,'YYYY'),'9999'))] + lcCondPrimaLuna = [(luna + 12*an = ?lnNrPrimaL)] + If tnCuAnalitic = 1 + lcCondAnalitic = Iif(!Empty(tcAnalitic), [acont = ?tcAnalitic], [1=1]) + Else + lcCondAnalitic = [1=1] + Endif + If tnCuValuta = 1 + lcCondvaluta = Iif(!Empty(tnIdValuta), [id_valuta = ?tnIdValuta], [id_valuta<>0]) + Else + lcCondvaluta = [1=1] + Endif + pcExplicatie = [Din Precedent] + + + *!* lcSelect = [select an, luna, id_fact, id_part, nume, acont, dataact, nract,] + lcTotctva + [ as totctva,?pcExplicatie as fdoc,] + ; + *!* IIF(tlemise,[0],[(case when ] + lcCondPrimaLuna +[ then ] + lcAchitat + [ else 0 end)]) + [ as achitat] + ; + *!* [ from ] + gcS + [.vireg_parteneri ] + ; + *!* [where cont = ?tccont and ] + lcCondId_part + [ and ] + lcCondPerioada + ; + *!* [ and (luna + 12*an =] + IIF(tlemise,lcCondData,[(case when ] + lcCondPrimaLuna +; + *!* [ then luna + 12*an else ] + lcCondData + [ end)]) + [)] + ; + *!* [ order by an, luna, nume, dataact, nract] + lcSelect = [select an, luna, id_fact, id_part, nume, cod_fiscal, ] + Iif(tnCuAnalitic = 1, [acont], ['xxxx']) + [ as acont, dataact, serie_act, nract,] + Iif(tnCuValuta = 1, [id_valuta,nume_val,], []) + ; + [(case when precdeb <> 0 or preccred <> 0 then 1 else 0 end) as precedent,SUM(] + lcTotctva + [) as totctva,?pcExplicatie as fdoc,] + ; + [Sum(] + lcTotctvaPrec + [) as totctvaprec,] + ; && modificare v 2.0.46 + [SUM(] + Iif(tlemise, [0], [(case when ] + lcCondPrimaLuna + [ then ] + lcAchitat + [ else 0 end)]) + [) as achitat] + ; + [ from ] + gcs + [.vireg_parteneri ] + ; + [ where cont = ?tccont and ] + lcCondId_part + [ and ] + lcCondPerioada + [ and ] + lcCondAnalitic + ; + [ and ] + lcCondvaluta + gcCondSucursala + ; + [ and (luna + 12*an =] + Iif(tlemise, lcCondData, [(case when ] + lcCondPrimaLuna + ; + [ then luna + 12*an else ] + lcCondData + [ end)]) + [)] + ; + [ group by an, luna, id_fact, id_part, nume, cod_fiscal, ] + Iif(tnCuAnalitic = 1, [acont,], []) + [ dataact, serie_act, nract] + Iif(tnCuValuta = 1, [,id_valuta,nume_val], []) + [,(case when precdeb <> 0 or preccred <> 0 then 1 else 0 end)] + ; + [ order by an, luna, nume, cod_fiscal, ] + Iif(tnCuValuta = 1, [id_valuta,], []) + Iif(tnCuAnalitic = 1, [acont,], []) + [dataact, serie_act, nract] + lcCursor = [cFacturi] + + If Used(lcCursor) + Use In (lcCursor) + Endif + + lnSucces = goExecutor.oExecute(lcSelect, lcCursor) + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return '' + Endif + Select (lcCursor) + Replace All dataact With {} For Isnull(dataact) + + && 27.05.2008 + && soldurile initiale pentru facturile emise in perioada nu se pot obtine din facturile din cFacturi (nu am precdeb/preccred <> 0) + && trebuie sa le selectez din ireg_parteneri separat + If tlemise + lcSelect = [select an, luna, id_part, cont, acont, Sum(] + lcSoldPrec + [) as soldprec ] + ; + [ from ireg_parteneri ] + ; + [ where cont = ?tccont and ] + lcCondId_part + [ and ] + lcCondAnalitic + ; + [ and ] + lcCondvaluta + gcCondSucursala + ; + [ and ] + lcCondPrimaLuna + ; + [ group by an, luna, id_part, cont, acont] + + lcCursor = [cSoldParteneri] + + If Used(lcCursor) + Use In (lcCursor) + Endif + + lnSucces = goExecutor.oExecute(lcSelect, lcCursor) + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return '' + Endif + Endif + && soldurile initiale pentru facturile emise in perioada ^ + + && iau in considerare doar incasarile inregistrate in perioada data + + lcCondPerioada = [((luna + 12*an) between ?lnNrLuniI and ?lnNrLuniF)] + If tnIdPart = 0 + lcCondId_part = [1=1] + Else + lcCondId_part = lcIdPartener + [ = ] + Alltrim(Str(tnIdPart)) + Endif + If tnCuAnalitic = 1 + lcCondAnalitic = Iif(!Empty(tcAnalitic), lcAcontIncPl + [ = ?tcAnalitic], [1=1]) + Else + lcCondAnalitic = [1=1] + Endif + If tnCuValuta = 1 + lcCondvaluta = Iif(!Empty(tnIdValuta), [id_valuta = ?tnIdValuta and suma_val<>0], [id_valuta<>0 and suma_val<>0]) + Else + lcCondvaluta = [1=1] + Endif + + *!* modificare v 2.0.46 + If tccont = '4111' + lcConditieSupl = [ OR (SCD = '4111' ] + Iif(!Empty(tcAnalitic), [AND ASCD = ?tcAnalitic ], []) + ; + [AND SCC = '4427' ] + Iif(tnIdPart = 0, [], [AND ID_PARTD = ] + Alltrim(Str(tnIdPart)) + [ ]) + ; + [AND (NVL(PERECHED,0) <> 0 OR NVL(ID_FACTD,0)<>0))] + lcSelect1 = [Select (case when scc = '4427' then id_partd else id_partc end) as id_part,] + ; + [(case when scc = '4427' then partd else partc end) as nume,fdoc,dataact as datadoc,] + ; + [serie_act as serie_doc,nract as nrdoc,] + ; + Iif(tnCuAnalitic = 1, [(case when scc='4427' then ascd else ascc end)], ['xxxx']) + [ as acont,] + ; + [(case when scc = '4427' then pereched else perechec end) as pereche,] + ; + [(case when scc = '4427' then id_factd else id_factc end) as id_fact,] + ; + [(case when scc = '4427' then (-1)*] + Iif(tnCuValuta = 0, [suma else suma], [suma_val else suma_val]) + [ end) as suma,] + ; + [ id_valuta, luna as luna_inc, an as an_inc ] + ; + [ from ] + gcs + [.vact ] + ; + [ where ((] + lcContIncPl + [ = ] + tccont + [ and ] + lcCondId_part + [ and ] + lcCondAnalitic + [ and (] + lcPereche + [ <> 0 or ] + lcIdPereche + [ <>0))] + ; + lcConditieSupl + [)] + ; + [ and ] + lcCondExclud + [ and ] + lcCondPerioada + ; + [ and ] + lcCondvaluta + gcCondSucursala + ; + [ order by serie_act, nract, dataact] + Else + lcSelect1 = [select ] + lcIdPartener + [ as id_part,] + lcPartener + [ as nume,fdoc,dataact as datadoc,serie_act as serie_doc,nract as nrdoc,] + ; + Iif(tnCuAnalitic = 1, lcAcontIncPl, ['xxxx']) + [ as acont,] + lcPereche + [ as pereche,] + lcIdPereche + [ as id_fact,] + ; + Iif(tnCuValuta = 0, [suma], [suma_val]) + [ as suma,] + ; + [ id_valuta, luna as luna_inc, an as an_inc ] + ; + [ from ] + gcs + [.vact ] + ; + [ where ] + lcContIncPl + [ = ] + tccont + [ and ] + lcCondId_part + [ and ] + lcCondvaluta + [ and ] + lcCondAnalitic + ; + [ and ] + lcCondExclud + [ and (] + lcPereche + [ <> 0 or ] + lcIdPereche + [ <>0) and ] + lcCondPerioada + ; + gcCondSucursala + ; + [ order by serie_act, nract, dataact] + Endif + *!* modificare v 2.0.46 ^ + lcCursor1 = [cIncasari_temp] + + If Used(lcCursor1) + Use In (lcCursor1) + Endif + + lnSucces1 = goExecutor.oExecute(lcSelect1, lcCursor1) + If lnSucces1 < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return '' + Endif + + Select cIncasari_temp + Replace All datadoc With {} For Isnull(datadoc) + + Select an, luna, id_fact, id_part, nume, cod_fiscal, acont, Nvl(Ttod(dataact), {}) As datafact, Nvl(serie_act, []) As serie_fact, ; + id_ctr, contract, ; + nract As nrfact, totctva, ; + Padr(fdoc, 30, ' ') As fdoc, {//} As datadoc, 00000000000000 As nrdoc, precedent, ; + achitat As suma, 00000000000000000000.0000 As sold, ; + 00000000000000000000.0000 As soldcumulat, 0 As tip, 00 As luna_inc, 0000 As an_inc, 0 As sold_final, ; + 00000000000000000000.0000 As vechime_1, 00000000000000000000.0000 As vechime_2, 00000000000000000000.0000 As vechime_3, 00000000000000000000.0000 As vechime_4 ; + From cFacturi ; + Where totctva - achitat <> 0 ; + Order By nume, id_part, acont, dataact, serie_act, nract ; + Into Cursor cFactInc Readwrite + + + + * adaug platile / incasarile + Select cIncasari_temp + Scan + Scatter Name oInc + Select cFactInc + *!* modificare v 2.0.50 + *!* Locate For id_fact = oInc.id_fact And id_part = oInc.id_part And Nvl(acont,[xxxx]) = Nvl(oInc.acont,[xxxx]) And tip = 0 + Locate For id_fact = oInc.id_fact And id_part = oInc.id_part And Nvl(acont, [xxxx]) = Nvl(oInc.acont, [xxxx]) + *!* If !Found() Or suma <> 0 + Do Case + Case !Found() && nu exista factura pentru incasare + *!* modificare v 2.0.50 ^ + *!* modificare v 2.0.46 + *!* Append blank + *!* caut incasarea neimperecheata + If Used('crstempireg') + Use In crstempireg + Endif + lcSql = [select 1 as precedent,id_fact,id_part,serie_act as serie_fact,nract as nrfact,dataact as datafact,] + ; + [pack_sesiune.suma_ron((-1)*] + ; + Iif(!tlActiv, Iif(tnCuValuta = 0, [debit], [valdebit]), Iif(tnCuValuta = 0, [credit], [valcredit])) + ; + [,Nvl(dataact,to_date(an||luna,'YYYYMM'))) as totctvaprec ] + ; + [from ireg_parteneri ] + ; + [where id_fact = ] + Alltrim(Str(oInc.id_fact)) + [ and id_part = ] + Alltrim(Str(oInc.id_part)) + [ ] + ; + [and ] + Iif(tnCuValuta = 0, [precdeb=0 and preccred=0], [precvaldeb=0 and precvalcred=0]) + [ and ] + ; + Iif(!tlActiv, Iif(tnCuValuta = 0, [credit], [valcredit]), Iif(tnCuValuta = 0, [debit], [valdebit])) + [=0] + lnSucces = goExecutor.oExecute(lcSql, [crstempireg]) + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 16, "Eroare") + Return + Else + If Reccount('crstempireg') > 0 + Select crstempireg + Scatter Name oComplet + AddProperty(oComplet, "totctva", oComplet.totctvaprec) + Use In crstempireg + Select cFacturi + Locate For id_fact = oComplet.id_fact && verificare daca mai exista deja + If !Found() + Append Blank + Gather Name oComplet Fields id_part, totctva, totctvaprec, precedent + Select cFactInc + Append Blank + Gather Name oComplet + Else + Select cFactInc + Append Blank + Endif + Else + Select cFactInc + Append Blank + Endif + Endif + *!* modificare v 2.0.50 + Case Found() And ((tip = 1) Or (tip = 0 And suma <> 0)) && daca mai exista deja o incasare pe factura sau are achitat din precedent + Scatter Name objFactInc + Append Blank + Gather Name objFactInc + Replace totctva With 0 + Case Found() And tip = 0 && daca nu mai exista incasare pe factura + && completez dupa case + Otherwise && adaug incasarea + Append Blank + Endcase + *!* Endif + *!* modificare v 2.0.50 ^ + *!* modificare v 2.0.46 ^ + Gather Name oInc + Replace tip With 1 + Select cIncasari_temp + Endscan + * calculez soldurile (initial, cumulat, pe factura) + * ordonez datele pentru grupare + *!* SELECT id_part, SUM(totctva-achitat) as soldi_part FROM cFacturi WHERE an*12 + luna = lnNrPrimaL INTO CURSOR cSoldiPart GROUP BY id_part + *!* SELECT id_part,acont, SUM(totctva-achitat) as soldi_ana FROM cFacturi WHERE an*12 + luna = lnNrPrimaL INTO CURSOR cSoldiAna GROUP BY id_part, acont + + && 27.05.2008 + && soldurile initiale pentru facturile emise in perioada nu se pot obtine din facturile din cFacturi (nu am precdeb/preccred <> 0) + If tlemise + Select id_part, Sum(soldprec) As soldi_part From cSoldParteneri Into Cursor cSoldiPart Group By id_part + Select id_part, Nvl(acont, Space(4)) As acont, Sum(soldprec) As soldi_ana From cSoldParteneri Into Cursor cSoldiAna Group By id_part, acont Readwrite + Else + *!* modificare v 2.0.46 + *!* Select id_part, Sum(totctva-achitat) As soldi_part From cFacturi Where precedent = 1 Into Cursor cSoldiPart Group By id_part + *!* Select id_part,Nvl(acont,Space(4)) As acont, Sum(totctva-achitat) As soldi_ana From cFacturi Where precedent = 1 Into Cursor cSoldiAna Group By id_part, acont Readwrite + Select id_part, Sum(totctvaprec - achitat) As soldi_part From cFacturi Where precedent = 1 Into Cursor cSoldiPart Group By id_part + Select id_part, Nvl(acont, Space(4)) As acont, Sum(totctvaprec - achitat) As soldi_ana From cFacturi Where precedent = 1 Into Cursor cSoldiAna Group By id_part, acont Readwrite + *!* modificare v 2.0.46 ^ + Endif + && 27.05.2008 ^ + + *!* modificare v 2.0.50 : am adaugat NVL(...,0) + *!* modificare v 2.0.82 : am adaugat NVL(...,0.0000) + Select c.*, Nvl(p.soldi_part, 0.0000) As soldi_part, Nvl(a.soldi_ana, 0.0000) As soldi_ana From cFactInc c ; + Left Join cSoldiPart p On c.id_part = p.id_part ; + Left Join cSoldiAna a On c.id_part = a.id_part And Nvl(c.acont, '') = Nvl(a.acont, '') ; + Into Cursor cFactIncO Order By c.nume, c.id_part, c.acont, c.datafact, c.serie_fact, c.nrfact, c.id_fact Readwrite + If Used('cSoldiPart') + Use In cSoldiPart + Endif + If Used('cSoldiAna') + Use In cSoldiAna + Endif + * soldul cumulat + **** pt vechime (temporar) aflu ultima zi a perioadei , consider data de referinta + ldDataVechime = Gomonth(Date(tnAnF, tnLunaF, 1), 1) - 1 + **** + + Select cFactIncO + Locate + lnIdFact = id_fact + lnIdPart = id_part + lnSoldFact = Nvl(totctva, 0) + lnSoldPart = Nvl(soldi_part, 0) + *ldDataFactura = NVL(TTOD(datafact),{}) + ldDataFactura = Nvl(datafact, {}) + Scan + Scatter Name osold + lnNrRand = Recno() + If lnIdFact <> osold.id_fact + Select cFactIncO + If tnCuVechime = 1 + Go lnNrRand - 1 + Replace sold_final With 1 + lnNrZile = ldDataVechime - ldDataFactura + If Empty(ldDataFactura) + lnNrZile = 400 && peste 1 An + Else + lnNrZile = ldDataVechime - ldDataFactura + Endif + Do Case + Case Between(lnNrZile, 0, 30) + Replace vechime_1 With sold + Case Between(lnNrZile, 31, 90) + Replace vechime_2 With sold + Case Between(lnNrZile, 91, 365) + Replace vechime_3 With sold + Otherwise + Replace vechime_4 With sold + Endcase + + Select cFactIncO + Go lnNrRand + Endif + *ldDataFactura = NVL(TTOD(datafact),{}) + ldDataFactura = Nvl(datafact, {}) + lnIdFact = osold.id_fact + lnSoldFact = Nvl(osold.totctva, 0) + Endif + If lnIdPart <> osold.id_part + lnIdPart = osold.id_part + lnSoldPart = Nvl(osold.soldi_part, 0) + Endif + lnSoldFact = lnSoldFact - Nvl(osold.suma, 0) + * lnSoldPart = lnSoldPart + IIF(osold.an*12+osold.luna >=lnnrlunii, NVL(osold.totctva,0), 0) - IIF(osold.an_inc*12+osold.luna_inc >=lnnrlunii, NVL(osold.suma,0), 0) + lnSoldPart = lnSoldPart + Iif(osold.precedent = 0, Nvl(osold.totctva, 0), 0) - Iif(osold.an_inc * 12 + osold.luna_inc >= lnnrlunii, Nvl(osold.suma, 0), 0) + Replace sold With lnSoldFact, soldcumulat With lnSoldPart + Select cFactIncO + Endscan + + If tnCuVechime = 1 + Select cFactIncO + Go Bottom + Replace sold_final With 1 + *ldDataFactura = NVL(TTOD(datafact),{}) + ldDataFactura = Nvl(datafact, {}) + If Empty(ldDataFactura) + lnNrZile = 400 && peste 1 An + Else + lnNrZile = ldDataVechime - ldDataFactura + Endif + Do Case + Case Between(lnNrZile, 0, 30) + Replace vechime_1 With sold + Case Between(lnNrZile, 31, 90) + Replace vechime_2 With sold + Case Between(lnNrZile, 91, 365) + Replace vechime_3 With sold + Otherwise + Replace vechime_4 With sold + Endcase + Endif + + *!* SELECT cFactIncO + *!* DELETE from cFactIncO WHERE id_fact IN (select id_fact from cFactIncO where sold_final = 1 AND NVL(vechime_1,0) = 0 AND NVL(vechime_2,0) = 0 AND NVL(vechime_3,0) = 0 AND NVL(vechime_4,0) = 0) + + If Used('cFacturi') + Use In cFacturi + Endif + If Used('cIncasari_temp') + Use In cIncasari_temp + Endif + If Used('cFactInc') + Use In cFactInc + Endif + + Return "cFactIncO" +Endproc +******************************************* SFARSIT: situatie_facturi ******************************************* + +*!* * PROCEDURE situatie_facturi +*!* * Date : 24/11/2004, 16:10:03 +*!* * author : lavinia.viziru +*!* * description: preluare facturi pentru clienti/furnizori + +*!* ****** PARAMETER BLOCK ************** +*!* * Parameters : 3 +*!* * Parameter 1: tlemise +*!* * Description: tipul facturilor preluate +*!* * (.t.-facturi emise intr-o perioada determinata +*!* * .f.-facturi cu sold dintr-o perioada determinata) +*!* * Parameter 2: tccont +*!* * Description: contul partenerului(411-client, 401- furnizor) +*!* * Parameter 3: topartener +*!* * Description: obiectul care contine datele partenerului(client/furnizor) selectat:nume + id_part +*!* * (daca numele partenerului= atunci se iau in considerare +*!* * toti partenerii- clienti sau furnizori) +*!* ******************************************* INCEPUT:situatie_facturi ******************************************* +*!* PROCEDURE situatie_facturi +*!* PARAMETERS tccont,tlemise,topartener,tnani,tnlunai,tnanf,tnlunaf + +*!* LOCAL lnrlunii,lnrlunif +*!* lnnrlunii = tnlunai + 12*tnani +*!* lnnrlunif = tnlunaf + 12*tnanf + +*!* IF UPPER(ALLTRIM(topartener.nume)) = [] +*!* lcCondId_part = [1=1] +*!* ELSE +*!* lcCondId_part = [id_part = ] + STR(topartener.id_part) +*!* ENDIF + +*!* IF ALLTRIM(tccont) = [401] && furnizori +*!* lcTotctva = [credit + preccred as totctva] +*!* lcPereche = [pereched] +*!* lcPartener = [partd] +*!* lcCondExclud = [(SUBSTR(scd,1,3) <> '767')] +*!* ELSE && [411] - clienti +*!* lcTotctva = [debit + precdeb as totctva] +*!* lcPereche = [perechec] +*!* lcPartener = [partc] +*!* lcCondExclud = [(SUBSTR(scc,1,3) not in ('667','622'))] +*!* ENDIF + +*!* lcCondPerioada = [((luna + 12*an) between ] + ALLTRIM(STR(lnnrlunii)) + [ and ] + ALLTRIM(STR(lnnrlunif)) + [)] +*!* lcCondData = [(to_number(to_char(dataireg,'MM'),'99') + 12*to_number(to_char(dataireg,'YYYY'),'9999'))] +*!* lcCondPrimaLuna = [(luna + 12*an = ] + ALLTRIM(STR(lnnrlunii)) + [)] + +*!* lcSelect = [select nume,dataact,nract,] + lcTotctva + ; +*!* [ from ] + gcS + [.vireg_parteneri ] + ; +*!* [where cont = '] + tccont + [' and ] + lcCondId_part + [ and ] + lcCondPerioada + ; +*!* [ and (luna + 12*an =] + IIF(tlemise,lcCondData,[(case when ] + lcCondPrimaLuna +; +*!* [ then luna + 12*an else ] + lcCondData + [ end)]) + [)] +*!* lcCursor = [cFacturi] + +*!* IF USED(lcCursor) +*!* USE IN (lcCursor) +*!* ENDIF + +*!* lnSucces = goExecutor.oExecute(lcSelect,lcCursor) +*!* IF lnSucces < 0 +*!* MESSAGEBOX(goExecutor.cEroare,0+16,'Eroare') +*!* RETURN +*!* ENDIF +*!* +*!* && iau in considerare doar incasarile inregistrate pana la sfarsitul perioadei date +*!* lcCondDataIreg = [extract(month from dataireg)+12*extract( year from dataireg) <= ] + ; +*!* ALLTRIM(STR(lnnrlunif)) +*!* +*!* lcSelect1 = [select ] + lcPartener + [ as nume,fdoc,dataact,nract,] + lcPereche + [ as pereche,suma ] +; +*!* [ from ] + gcS+ [.vact ] + ; +*!* [ where SUBSTR(] + IIF(ALLTRIM(tccont) = '401',[scd],[scc]) + [,1,3) = ] + tccont + ; +*!* [ and ] + lcCondExclud + [ and ] + lcPereche + [ <> 0 and ] + lcCondDataIreg +*!* lcCursor1 = [cIncasari_temp] + +*!* IF USED(lcCursor1) +*!* USE IN (lcCursor1) +*!* ENDIF + +*!* lnSucces1 = goExecutor.oExecute(lcSelect1,lcCursor1) + +*!* IF lnSucces1 < 0 +*!* MESSAGEBOX(goExecutor.cEroare,0+16,'Eroare') +*!* RETURN +*!* ENDIF + +*!* SELECT *,.f. as bifat FROM cIncasari_temp ; +*!* WHERE nume+"/"+STR(pereche,14) IN (SELE nume+"/"+STR(nract,14) FROM cFacturi) ; +*!* INTO CURSOR cIncasari READWRITE ORDER BY nume, pereche, dataact + +*!* *!* CREATE CURSOR cFactInc ; +*!* *!* (id_fact N(10), nume C(50), datafact D(8), nrfact N(14), totctva N(20,4), +*!* *!* fdoc C(30), datadoc D(8), nrdoc N(14), suma N(20,4), tip N(1), sold N(20,4)) + +*!* SELECT 0000000000 AS id_fact, nume, dataact AS datafact, nract AS nrfact, totctva, ; +*!* SPACE(20) AS fdoc, {//} AS datadoc, 00000000000000 AS nrdoc, ; +*!* 00000000000000000000.0000 AS suma, 0 AS tip, 00000000000000000000.0000 AS sold, ; +*!* 00000000000000000000.0000 AS soldcumul ; +*!* FROM cFacturi ; +*!* INTO CURSOR cFactInc READWRITE ORDER BY nume + +*!* SELECT cFactInc +*!* REPLACE ALL id_fact WITH RECNO() + +*!* GO top +*!* lcNume = nume +*!* lnId_fact = id_fact +*!* lnSoldCumul = 0 + +*!* SCAN FOR tip = 0 +*!* +*!* IF UPPER(ALLTRIM(lcNume)) <> UPPER(ALLTRIM(nume)) +*!* lcNume = nume +*!* lnSoldCumul = 0 +*!* ENDIF +*!* +*!* lnId_fact = id_fact +*!* ldDatafact = datafact +*!* lnNrfact = nrfact +*!* lnTotctva = totctva +*!* +*!* lnSold = totctva +*!* lnSoldCumul = lnSoldCumul + totctva +*!* lnAchitat = 0 +*!* SELECT cIncasari +*!* LOCATE FOR UPPER(ALLTRIM(nume)) = UPPER(ALLTRIM(lcNume)) AND pereche = lnNrfact ; +*!* AND dataact >= ldDatafact AND !bifat +*!* IF FOUND() +*!* llprim = .T. +*!* DO WHILE .t. +*!* lcFdoc = NVL(fdoc,[]) +*!* lnNrdoc = NVL(nract,0) +*!* ldDatadoc = NVL(dataact,{}) +*!* lnAchitat = NVL(suma,0) +*!* lnSold = lnSold - lnAchitat +*!* lnSoldCumul = lnSoldCumul - lnAchitat +*!* IF llprim +*!* llprim = .F. +*!* REPLACE fdoc WITH lcFdoc, datadoc WITH ldDatadoc, nrdoc WITH lnNrdoc, ; +*!* suma WITH lnAchitat, sold WITH lnSold,soldcumul WITH lnSoldCumul ; +*!* IN cFactInc +*!* ELSE +*!* SELECT cFactInc +*!* lnPos = RECNO() +*!* INSERT INTO cFactInc VALUES (lnId_fact, lcNume, ldDatafact, lnNrfact, ; +*!* lnTotctva, lcFdoc, ldDatadoc, lnNrdoc, lnAchitat, 1, lnSold, lnSoldCumul) +*!* GOTO lnPos +*!* ENDIF +*!* +*!* SELECT cIncasari +*!* REPLACE bifat WITH .t. +*!* SKIP +*!* IF UPPER(ALLTRIM(nume)) <> UPPER(ALLTRIM(lcNume)) OR pereche <> lnNrfact +*!* EXIT +*!* ENDIF +*!* ENDDO +*!* ELSE +*!* replace sold WITH lnSold, soldcumul WITH lnSoldCumul IN cFactInc +*!* ENDIF +*!* SELECT cFactInc +*!* ENDSCAN + +*!* *ordonez datele pentru grupare +*!* SELECT * FROM cFactInc INTO CURSOR cFactIncO ORDER BY nume, id_fact, tip + +*!* USE IN cFacturi +*!* USE IN cIncasari +*!* USE IN cFactInc + +*!* RETURN "cFactIncO" +*!* ENDPROC +*!* ******************************************* SFARSIT: situatie_facturi ******************************************* + +* PROCEDURE list_facturi_neachitate +* Date : 01/12/2004, 11:31:42 +* author : lavinia.viziru +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 1 +* Parameter 1: tccont +* Parameter 1 description: contul partenerului (401 - furnizor/411 - client) +**************************** INCEPUT:list_facturi_neachitate ******************************** +Procedure list_facturi_neachitate + Parameters tccont, tlgrupate, tlanalitic + + Local lcCont, lopartener + + Private pctitlu, pcpartener, plgrupate, pcperioada, planalitic, pctitlu_analitic + Store '' To pctitlu, pcpartener, pcperioada, pctitlu_analitic + + planalitic = tlanalitic + plgrupate = tlgrupate + lcCont = Alltrim(tccont) + lcAcont = [] + + + If planalitic + && cauta analitic + lcselect0 = [select cont,acont,explicatie from vplcont_analitic] + lcfiltru0 = [] + lcschema0 = [] + lcorder0 = [acont] + lccoloane0 = [cont,acont,explicatie] + lcTitlu0 = [Alegeti simbolul analitic] + lcTitluColoane0 = [Cont,Acont,Explicatie] + *!* 30.05.2008 + *!* ?gnAn doar analiticele din anul curent + lcFiltruOriginal0 = [an = ?gnAn and cont = '] + lcCont + [' ] + *!* 30.05.2008 ^ + loanalitic = cauta_alfa(lcselect0, lcfiltru0, lcschema0, lcorder0, lccoloane0, lcTitlu0, lcTitluColoane0, "", .F., lcFiltruOriginal0) && 11.07.2007 + lcAcont = Alltrim(loanalitic.acont) + If Empty(lcAcont) + planalitic = .F. + Else + pctitlu_analitic = [Analitic: ] + lcCont + [.] + lcAcont + [ - ] + loanalitic.explicatie + Endif + Endif + + If lcCont = [401] && furnizori + lcTitlu = 'Alegeti numele furnizorului' + lcTotctva = [credit + preccred as totctva] + lcAchitat = [debit + precdeb as achitat] + lctitlu_rap = [Situatie - Facturi de achizitii neachitate] + ; + Iif(tlgrupate, [(pe furnizori)], [(in ordinea emiterii)]) + pcpartener = [Furnizor: ] + Else && clienti + lcTitlu = 'Alegeti numele clientului' + lcTotctva = [debit + precdeb as totctva] + lcAchitat = [credit + preccred as achitat] + lctitlu_rap = [Situatie - Facturi de vanzari neincasate] + ; + Iif(tlgrupate, [(pe clienti)], [(in ordinea emiterii)]) + pcpartener = [Client: ] + Endif + + lopartener = caut_parteneri(lcCont, lcTitlu, .T.) + If Empty(lopartener.denumire) + Return + Endif + + If Upper(Alltrim(lopartener.denumire)) = [] + lcCondId_part = [1=1] + Else + lcCondId_part = [id_part = ] + Str(lopartener.id_part) + Endif + + *!* 30.05.2008 + *!* lcCondNeachitat - nu voia sa afiseze facturile cu sold < 1000 ROL :) + *!* lcCondNeachitat=[( !(abs(totctva-achitat)<1000 or ABS(totctva)0 + pcperioada = [Luna: ] + Alltrim(Str(gnLuna)) + [/] + Alltrim(Str(gnAn)) + lcRaport = [rap_facturi_neachit] + pctitlu = lctitlu_rap + *!* pctitlu = ceretitlu_rap('Titlul Raportului',lctitlu_rap) + *!* pcDataOra = Get_Ora(2) + goExport.export2frx([cFactNeachit], lcRaport) + *!* Select cFactNeachit + *!* Report Form (lcRaport) To Printer Prompt Preview + *!* Else + *!* amessagebox("Nu exista inregistrari pentru listare!",48,"Atentie") + *!* Endif + + Use In (lcCursor) + +Endproc +**************************** SFARSIT:list_facturi_neachitate ******************************** + +* PROCEDURE list_facturi_scadente( ) +* Date : 02/12/2004, 15:40:57 +* author : lavinia.viziru +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 0 +* +******************************** INCEPUT:list_facturi_scadente ****************************** +Procedure list_facturi_scadente + Parameters tccont + + Private pctitlu, pcperioada, planalitic, plgrupate && ,pcDataOra + Store '' To pctitlu, pcperioada && ,pcDataOra + Store .F. To planalitic, plgrupate + + Private pddataref, pddatascad_max, pnnrluni + Store 0 To pnnrluni + pddataref = Date() + pddatascad_max = Date() + + ofrmscad = Createobject('frm_facturi_scadente') + ofrmscad.txt_dataref.ControlSource = [pddataref] + ofrmscad.txt_datamax.ControlSource = [pddatascad_max] + ofrmscad.Show(1) + + If buton = 2 + Return + Endif + + lcCont = Alltrim(tccont) + If lcCont = [401] + lcTotctva = [credit + preccred as totctva] + lcAchitat = [debit + precdeb as achitat] + Else && lccont = 411 + lcTotctva = [debit + precdeb as totctva] + lcAchitat = [credit + preccred as achitat] + Endif + + lccondScad = [(datascad < to_date('] + Dtos(pddatascad_max) + [','yyyymmdd'))] + lcCondNeachit = [(ABS(totctva)>ABS(achitat))] + + lcSelect = [select nume,dataact,serie_act,nract,datascad,] + lcTotctva + [,] + lcAchitat + ; + [ from ] + gcs + [.vireg_parteneri ] + ; + [where cont = '] + tccont + [' and an = ] + Alltrim(Str(gnAn)) + ; + [ and luna = ] + Alltrim(Str(gnLuna)) + [ and ] + lccondScad + ; + gcCondSucursala + ; + [ order by datascad ] + lcCursor = [cFactScad_temp] + + lnSucces = goExecutor.oExecute(lcSelect, lcCursor) + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + lcSel = [SELECT * from cFactScad_temp into cursor cFactScad WHERE ] + lcCondNeachit + &lcSel + + pctitlu = 'Facturi de achizitii scadente, cu data scadenta mai veche de ' + Alltrim(Dtoc(pddatascad_max)) + pcperioada = [Luna: ] + Alltrim(Str(gnLuna)) + [/] + Alltrim(Str(gnAn)) + lcRaport = [rap_facturi_neachit] + goExport.export2frx([cFactScad], lcRaport, .T.) + *!* Select cFactScad + *!* If Reccount() = 0 + *!* && afiseaza mesaj + *!* amessagebox("Nu exista facturi neachitate atat de vechi!",48,"Atentie") + *!* *!* ostop=CREATEOBJECT('stop') + *!* *!* ostop.image1.PICTURE = 'd:\contafin_oracle\cont2003\grafice\point04.ico' + *!* *!* ostop.label3.VISIBLE = .F. + *!* *!* ostop.label2.CAPTION = [Nu exista facturi neachitate atat de vechi!] + *!* *!* ostop.label2.FONTNAME = 'Arial Narrow' + *!* *!* ostop.SHOW(1) + *!* Else + + *!* lctitlu='Facturi de achizitii scadente, cu data scadenta mai veche de ' + ; + *!* ALLTRIM(Dtoc(pddatascad_max)) + + *!* *!* DO CASE + *!* *!* CASE pnnrluni = 0 + *!* *!* lctitlu='Facturi de achizitii scadente cu data scadenta mai veche de ' + ; + *!* *!* ALLTRIM(DTOC(pddatascad_max)) + *!* *!* CASE pnnrluni = 1 + *!* *!* lctitlu='Facturi de achizitii a caror data scadenta este depasita '+ ; + *!* *!* 'cu cel putin o luna fata de data '+ALLTRIM(DTOC(pddataref)) + *!* *!* OTHERW + *!* *!* lctitlu='Facturi de achizitii a caror data scadenta este depasita '+ ; + *!* *!* 'cu cel putin ' + ALLT(STR(pnnrluni))+' luni fata de data '+ALLTRIM(DTOC(pddataref)) + *!* *!* ENDCASE + *!* pctitlu = ceretitlu_rap('Titlul Raportului',lctitlu) + + *!* pcperioada = [Luna: ] + Alltrim(Str(gnLuna)) + [/] + Alltrim(Str(gnAn)) + *!* lcRaport = [rap_facturi_neachit] + *!* pcDataOra = Get_Ora(2) + + *!* Select cFactScad + *!* Report Form (lcRaport) To Printer Prompt Preview + *!* Endif + + Use In (lcCursor) + Use In cFactScad + Release pctitlu +Endproc +******************************** SFARSIT:list_facturi_scadente ****************************** + +* PROCEDURE facturi_furnizor_client( ) +* Date : 06/12/2004, 10:17:25 +* author : lavinia.viziru +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 0 +* +******************************* INCEPUT:facturi_furnizor_client ***************************** +Procedure facturi_furnizor_client + + Private pctitlu && ,pcDataOra + Store '' To pctitlu && ,pcDataOra + + *!* lcSelect = [select distinct nume,cod_fiscal,id_part,inactiv from ] + gcs + [.Vcoresp_tip_part p ] +; + *!* [join ] + gcs + [.Vcoresp_tip_cont c on p.id_tip_part = c.id_tip_part] + *!* lcfiltru = [c.cont = '401' and p.id_part in (select distinct id_part from ] + gcs +; + *!* [.Vcoresp_tip_part p join ] + gcs + [.vcoresp_tip_cont c on ] + ; + *!* [p.id_tip_part = c.id_tip_part where c.cont = '4111')] + *!* lcschema = [''] + *!* lcorder = [nume] + *!* lccoloane = [Nume,cod_fiscal,inactiv,id_part] + *!* lctitlu = [Alegeti un partener (furnizor-client)] + *!* lcTitluColoane = [Nume,Cod fiscal,Inactiv,ID] + *!* lopartener = cauta_alfa(lcSelect,lcfiltru,lcschema,lcorder,lccoloane,lctitlu,lcTitluColoane,"",.F.) + lopartener = CautPartenerContabilitate(GetHash([cTitlu=>Alegeti un partener (furnizor-client)??cCont=>401] + ; + [??cFiltruOrig=>a.id_part in (select distinct id_part from ] + gcs + ; + [.Vcoresp_tip_part p join ] + gcs + [.vcoresp_tip_cont c on ] + ; + [p.id_tip_part = c.id_tip_part where c.cont = '4111')])) + + If buton = 2 + Return + Endif + + lcnume = Alltrim(lopartener.nume) + lnid_part = lopartener.id_part + + If Empty(lcnume) + lcCondPart = [1=1] + Else + lcCondPart = [id_part = ] + Alltrim(Str(lnid_part)) + Endif + + lcCondPart = [id_part = ] + Alltrim(Str(lnid_part)) + + lcCondLunaC = [ an = ] + Alltrim(Str(gnAn)) + [ and luna = ] + Alltrim(Str(gnLuna)) + lcCondN = [(cont='401' and ((totctva>achitat and achitat>=0) or (totctva0 + pctitlu = [Situatia facturilor de incasat/platit/compensat] + *!* lctitlu='Situatia facturilor de incasat/platit/compensat' + *!* pctitlu = ceretitlu_rap('Titlul Raportului',lctitlu) + pcperioada = [Luna: ] + Alltrim(Str(gnLuna)) + [/] + Alltrim(Str(gnAn)) + goExport.export2frx(lcCursor, [rap_facturi_furncli], .T.) + *!* pcDataOra= Get_Ora(2) + *!* Select (lcCursor) + *!* Report Form rap_facturi_furncli To Printer Prompt Preview + *!* Else + *!* amessagebox("Nu exista inregistrari pentru listare!",48,"Atentie") + *!* Endif + + Use In (lcCursor) + +Endproc +******************************** SFARSIT: facturi_furnizor_client *************************** + + +* PROCEDURE incasari_facturi_lunac +* Date : 07/12/2004, 15:16:30 +* author : lavinia.viziru +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 0 +* + +* PROCEDURE listare_registru_vanzcump +* Date : 09/12/2004, 11:57:13 +* author : lavinia.viziru +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 1 +* Parameter 1: tccont +* contul : 401 - furnizori /411 - clienti +* Parameter 2: tctip +* tipul raportului : NORMAL , SIMPLIFICAT, CONDENSAT +* Parameter 3: tlrecap +* cu/fara recapitulatii pe lunile dintr-o perioada +********************************** INCEPUT:listare_registru_vanzcump *************************** +Procedure listare_registru_vanzcump + Parameters tccont, tctip, tlrecap + + lcCont = Alltrim(tccont) + lctip = Upper(Alltrim(tctip)) + + Private pnan, pnluna, pctitlu + Store 0 To pnan, pnluna + Store '' To pctitlu + + lcvizualizare = Iif(lcCont = [401], [vcump], [vvanz]) + lcTitlu = Iif(lcCont = [401], [JURNAL PENTRU CUMPARARI], [JURNAL PENTRU VANZARI]) + + If tlrecap + lcRaport = Iif(lcCont = [401], [rap_regcump_recap], [rap_regvanz_recap]) + && selectare luna initiala + locaut = Createobject('frm_caut_anluna') + locaut.Show(1) + If buton = 2 + Return + Endif + lcnrlunii = Alltrim(Str(pnluna + 12 * pnan)) + lcnrlunif = Alltrim(Str(gnLuna + 12 * gnAn)) + lcSelect = [select * from (] + ; + [( select 'A' as tip,an,luna,dataact,nract,nume,cod_fiscal,totctva,neimpozab,] + ; + [totftvam,tvam,totftvai,tvai,scutit from ] + gcs + [.] + lcvizualizare + ; + [ where an = ] + Alltrim(Str(gnAn)) + [ and luna = ] + Alltrim(Str(gnLuna)) + [)] + ; + [ union ] + ; + [( select 'B' as tip,an,luna,to_date('','ddmmyyyy') as dataact,000000000 as nract,] + ; + [ (select numeluna from lunilean where nrluna = luna) as nume,' ' as cod_fiscal,] + ; + [sum(totctva) as totctva,sum(neimpozab) as neimpozab,] + ; + [sum(totftvam) as totftvam,sum(tvam) as tvam,sum(totftvai) as totftvai,sum(tvai) as tvai,scutit from ] + ; + gcs + [.] + lcvizualizare + ; + [ group by an,luna,scutit having (luna + 12*an between ] + lcnrlunii + [ and ] + lcnrlunif + [)) ] + ; + [) order by tip,dataact,nract] + *STRTOFILE(lcSelect,[c:\select_recap.txt]) + Else + Do Case + Case lctip = [NORMAL] + lcRaport = Iif(lcCont = [401], [registru_cumparari_rpt1], [registru_vanzari_rpt1]) + Case lctip = [SIMPLIFICAT] + lcRaport = [rap_regvanz_simplu] + Case lctip = [CONDENSAT] + lcRaport = [registru_vanzari_rpt1] + Endcase + If (lctip = [NORMAL]) Or (lctip = [SIMPLIFICAT]) + lcSelect = [select dataact,nract,nume,cod_fiscal,totctva,neimpozab,totftvam,tvam, ] + ; + [totftvai,tvai,scutit from ] + gcs + [.] + lcvizualizare + ; + [ where an = ] + Alltrim(Str(gnAn)) + [ and luna = ] + Alltrim(Str(gnLuna)) + ; + [order by dataact] + + Else && CONDENSAT + lcSelect = [select * from (] + ; + [( select 'A' as tip,dataireg,dataireg as dataact,000000000 as nract,'BON FISCAL' as nume,' ' as cod_fiscal,] + ; + [sum(totctva) as totctva,sum(neimpozab) as neimpozab,sum(totftvai) as totftvai,] + ; + [sum(tvai) as tvai,sum(totftvam) as totftvam,sum(tvam) as tvam,' ' as fdoc,scutit] + ; + [ from ] + gcs + [.] + lcvizualizare + ; + [ where UPPER(TRIM(fdoc)) = 'BON FISCAL' and an = ] + Alltrim(Str(gnAn)) + ; + [ and luna = ] + Alltrim(Str(gnLuna)) + [group by dataireg,scutit)] + ; + [ union ] + ; + [( select 'B' as tip,dataireg,dataact,nract,nume,cod_fiscal,totctva,] + ; + [neimpozab,totftvai,tvai,totftvam,tvam,fdoc,scutit from ] + ; + gcs + [.] + lcvizualizare + [ where ] + ; + [ UPPER(TRIM(fdoc)) <> 'BON FISCAL' and an = ] + Alltrim(Str(gnAn)) + ; + [ and luna = ] + Alltrim(Str(gnLuna)) + [)] + ; + [) order by dataireg,tip] + Endif + Endif + + lcCursor = [cvanzcump] + lnSucces = goExecutor.oExecute(lcSelect, lcCursor) + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + pctitlu = lcTitlu + goExport.export2frx(lcCursor, lcRaport, .T.) + *!* If Reccount(lcCursor)>0 + *!* pctitlu = ceretitlu_rap('Titlul Raportului',lctitlu) + *!* pcDataOra = Get_Ora(2) + *!* Select (lcCursor) + *!* Report Format (lcRaport) To Printer Prompt Preview + *!* Else + *!* amessagebox("Nu exista inregistrari pentru listare!",48,"Atentie") + *!* Endif + + Use In (lcCursor) +Endproc +********************************** SFARSIT: listare_registru_vanzcump ************************** +********************************** INCEPUT:listare_registru_vanzcump_2007 *************************** +Procedure listare_registru_vanzcump_2007 + Parameters tcVC, tcTipRapRC + + Local lcCursor, lcRaport + Private pctitlu, pcSubtitlu, tip && pcDataOra + Private pcschema, pcselect, pcfiltru, pcorder, povanz, pocump + Store "" To pcSubtitlu, povanz, pocump, lcCursor, lcRaport + *!* pcDataOra = Get_Ora(2) + + If Empty(tcTipRapRC) + tip = 0 + Else + tip = 1 + Endif + + If Used('ACTCV') + Use In actcv + Endif + + Do Case + Case tcVC = 'V' + lcCursor = [actcv] + pcschema = ['id_jv n(4),an n(4),luna n(2),cod n(20),dataact d,cod_fiscal c(30),serie_act c(10),nract N(20),'+] + ; + ['id_part n(20),id_fdoc n(20),totctva n(20,4),ro19b n(20,4),ro19t n(20,4),ro9b n(20,4),'+] + ; + ['ro9t n(20,4),roti n(20,4),cescdd1 n(20,4),cescdd2 n(20,4),wrscdd n(20,4),fodd n(20,4),'+] + ; + ['fofdd n(20,4),wrscfdd n(20,4),wrn n(20,4),'] + ; + ['ceoptr n(20,4),cesvdd n(20,4),cesvfdd n(20,4),cesvfs n(20,4),'] + ; + ['fel_document c(30),denumire c(70),sucursala c(100)'] + pcselect = ['select id_jv,an,luna,cod,dataact,cod_fiscal,serie_act,nract,'+] + ; + ['id_part,id_fdoc,totctva,ro19b,ro19t,ro9b,'+] + ; + ['ro9t,roti,cescdd1,cescdd2,wrscdd,fodd,'+] + ; + ['fofdd,wrscfdd,wrn,'] + ; + ['ceoptr,cesvdd,cesvfdd,cesvfs,'] + ; + ['fel_document,denumire,sucursala from vjv2007 where 1=2'] + pcfiltru = [luna=] + Alltrim(Str(gnLuna)) + [ and an=] + Alltrim(Str(gnAn)) + gcCondSucursala + pcorder = [dataact,nract] + llAfisare = .F. + gencursor('povanz', lcCursor, pcselect, pcfiltru, pcschema, pcorder, llAfisare) + povanz.ca_baza1.afisare() + + *!* If Reccount('actcv')>0 + *!* pctitlu = "JURNAL DE VANZARI" + *!* Select actcv + *!* Report Form registru_vanzari_jtva2007 To Printer Prompt Preview + *!* Else + *!* amessagebox("Nu exista inregistrari pentru listare!",48,"Atentie") + *!* Endif + lcRaport = [registru_vanzari_jtva2007] + + Case tcVC = 'C' + lcCursor = [cListRC] + pctitlu = "Registru cumparari" + + pcschema = ['id_jc n(4),an n(4),luna n(2),totctva n(20,4),id_part n(20),id_fdoc n(20),dataact d,'+] + ; + ['serie_act c(10),nract N(20),ro19bcb n(20,4),ro19bct n(20,4),ro19bvb n(20,4),ro19bvt n(20,4),ro19bfb n(20,4),'+] + ; + ['ro19bft n(20,4),ro09bcb n(20,4),ro09bct n(20,4),ro09bvb n(20,4),ro09bvt n(20,4),ro09bfb n(20,4),'+] + ; + ['ro09bft n(20,4),roscn n(20,4),fo19bcb n(20,4),fo19bct n(20,4),fo19bvb n(20,4),fo19bvt n(20,4),'+] + ; + ['fo19bfb n(20,4),fo19bft n(20,4),fo09bcb n(20,4),fo09bct n(20,4),fo09bvb n(20,4),fo09bvt n(20,4),'+] + ; + ['fo09bfb n(20,4),fo09bft n(20,4),foscn n(20,4),cebcb n(20,4),cebct n(20,4),cebvb n(20,4),cebvt n(20,4),'+] + ; + ['cebvsc n(20,4),cebvn n(20,4),cebfb n(20,4),cebft n(20,4),cebfsc n(20,4),cebfn n(20,4),ti19bcb n(20,4),'+] + ; + ['ti19bct n(20,4),ti19bvb n(20,4),ti19bvt n(20,4),ti19bfb n(20,4),ti19bft n(20,4),ti09bvb n(20,4),'+] + ; + ['ti09bvt n(20,4),ti09bfb n(20,4),ti09bft n(20,4),cod n(20),fel_document c(30),denumire c(70),cod_fiscal c(30),sucursala c(100)'] + pcselect = ['select id_jc, an, luna, totctva, id_part, id_fdoc, dataact, serie_act, nract, ro19bcb, ro19bct, ro19bvb,'+] + ; + ['ro19bvt, ro19bfb, ro19bft, ro09bcb, ro09bct, ro09bvb, ro09bvt, ro09bfb, ro09bft, roscn, fo19bcb, fo19bct,'+] + ; + ['fo19bvb, fo19bvt, fo19bfb, fo19bft, fo09bcb, fo09bct, fo09bvb, fo09bvt, fo09bfb, fo09bft, foscn, cebcb,'+] + ; + ['cebct, cebvb, cebvt, cebvsc, cebvn, cebfb, cebft, cebfsc, cebfn, ti19bcb, ti19bct, ti19bvb, ti19bvt,'+] + ; + ['ti19bfb, ti19bft, ti09bvb, ti09bvt, ti09bfb, ti09bft, cod, fel_document, denumire, cod_fiscal, sucursala '+] + ; + ['from vjc2007 where 1=2'] + pcfiltru = [luna=] + Alltrim(Str(gnLuna)) + [ and an=] + Alltrim(Str(gnAn)) + gcCondSucursala + pcorder = [dataact,serie_act,nract] + llAfisare = .F. + gencursor('pocump', 'actcv', pcselect, pcfiltru, pcschema, pcorder, llAfisare) + pocump.ca_baza1.afisare() + + Do Case + Case Alltrim(Upper(tcTipRapRC)) = 'RO' + pcSubtitlu = "Achizitii de bunuri si prestari de sevicii taxabile din tara" + Select * ; + From actcv ; + Where ro19bcb <> 0 Or ro19bct <> 0 Or ro19bvb <> 0 Or ro19bvt <> 0 Or ro19bfb <> 0 Or ro19bft <> 0 Or ; + ro09bvb <> 0 Or ro09bvt <> 0 Or ro09bfb <> 0 Or ro09bft <> 0 Or roscn <> 0 Order By dataact, serie_act, nract ; + Into Cursor (lcCursor) + + *!* If Reccount('cListRc')>0 + *!* Select cListRC + *!* Report Form registru_cumparari_jtva2007_ro To Printer Prompt Preview + *!* Else + *!* amessagebox("Nu exista inregistrari pentru listare!",48,"Atentie") + *!* Endif + lcRaport = [registru_cumparari_jtva2007_ro] + Case Alltrim(Upper(tcTipRapRC)) = 'FO' + pcSubtitlu = "Achizitii de bunuri si prestari de sevicii taxabile din import" + Select * ; + From actcv ; + Where fo19bcb <> 0 Or fo19bct <> 0 Or fo19bvb <> 0 Or fo19bvt <> 0 Or fo19bfb <> 0 Or fo19bft <> 0 Or ; + fo09bvb <> 0 Or fo09bvt <> 0 Or fo09bfb <> 0 Or fo09bft <> 0 Or foscn <> 0 Order By dataact, serie_act, nract ; + Into Cursor (lcCursor) + + *!* If Reccount('cListRc')>0 + *!* Select cListRC + *!* Report Form registru_cumparari_jtva2007_fo To Printer Prompt Preview + *!* Else + *!* amessagebox("Nu exista inregistrari pentru listare!",48,"Atentie") + *!* Endif + lcRaport = [registru_cumparari_jtva2007_fo] + Case Alltrim(Upper(tcTipRapRC)) = 'CE' + pcSubtitlu = "Achizitii intracomunitare de bunuri" + Select * ; + From actcv ; + Where cebcb <> 0 Or cebct <> 0 Or cebvb <> 0 Or cebvt <> 0 Or cebvsc <> 0 Or cebvn <> 0 Or ; + cebfb <> 0 Or cebft <> 0 Or cebfsc <> 0 Or cebfn <> 0 Order By dataact, serie_act, nract ; + Into Cursor (lcCursor) + + *!* If Reccount('cListRC')>0 + *!* Select cListRC + *!* Report Form registru_cumparari_jtva2007_ce To Printer Prompt Preview + *!* Else + *!* amessagebox("Nu exista inregistrari pentru listare!",48,"Atentie") + *!* Endif + lcRaport = [registru_cumparari_jtva2007_ce] + Case Alltrim(Upper(tcTipRapRC)) = 'TI' + pcSubtitlu = "Bunuri si Sevicii pentru care cumparatorul este obligat la plata taxei (din Tara, Import si Servicii UE) - Taxare Inversa" + Select * ; + From actcv ; + Where ti19bcb <> 0 Or ti19bct <> 0 Or ti19bvb <> 0 Or ti19bvt <> 0 Or ti19bfb <> 0 Or ti19bft <> 0 Or ; + ti09bvb <> 0 Or ti09bvt <> 0 Or ti09bfb <> 0 Or ti09bft <> 0 Order By dataact, serie_act, nract ; + Into Cursor (lcCursor) + + *!* If Reccount('cListRC')>0 + *!* Select cListRC + *!* Report Form registru_cumparari_jtva2007_ti To Printer Prompt Preview + *!* Else + *!* amessagebox("Nu exista inregistrari pentru listare!",48,"Atentie") + *!* Endif + lcRaport = [registru_cumparari_jtva2007_ti] + Endcase + + If Used('ACTCV') + Use In actcv + Endif + *!* If Used('cListRC') + *!* Use In cListRC + *!* Endif + Endcase + + goExport.export2frx(lcCursor, lcRaport) + *!* If Used('ACTCV') + *!* Use In actcv + *!* Endif + If Used(lcCursor) + Use In (lcCursor) + Endif + +Endproc && listare_registru_vanzcump_2007 +********************************** SFARSIT: listare_registru_vanzcump_2007 ************************** +********************************** INCEPUT:rap_facturi_emise_pe_zile*************************** +Procedure rap_facturi_emise_pe_zile + + Private pctitlu, pddata_emisi, pddata_emisf && pcDataOra + Store '' To pctitlu && ,pcDataOra + + pddata_emisi = Date() + pddata_emisf = Date() + + + Do Form frm_filtru_numar Name ofrm_filtru Linked With [a.dataact], [Data incasarii], 1, 1, 'D', [], 0 To lcFiltruData Noshow + ofrm_filtru.text1.SetFocus() + ofrm_filtru.text1.ControlSource = [pddata_emisi] + ofrm_filtru.text2.ControlSource = [pddata_emisf] + ofrm_filtru.Show(1) + + pcperioada = [Perioada: ] + Alltrim(Dtoc(pddata_emisi)) + [-] + Alltrim(Dtoc(pddata_emisf)) + + lcOrdonare = [dataact,serie_act,nract] + + lcSelect = [select dataact,serie_act,nract, nume, debit + precdeb as totctva from ] + gcs + [.vireg_parteneri ] + ; + [where dataact >= ?pddata_emisi and dataact <= ?pddata_emisf and cont = '4111' ] + ; + [and an = ?gnAn and luna = ?gnLuna ] + gcCondSucursala + ; + [ order by ] + lcOrdonare + lcCursor = [cFacturi] + lnSucces = goExecutor.oExecute(lcSelect, lcCursor) + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + *!* If Reccount(lcCursor)>0 + pctitlu = [Facturi emise in perioada ] + Alltrim(Dtoc(pddata_emisi)) + [-] + Alltrim(Dtoc(pddata_emisf)) + *!* lctitlu = [Facturi emise in perioada ] + Alltrim(Dtoc(pddata_emisi)) + [-] + Alltrim(Dtoc(pddata_emisf)) + *!* pctitlu = ceretitlu_rap('Titlul Raportului',lctitlu) + *!* pcDataOra = Get_Ora(2) + goExport.export2frx(lcCursor, [rap_facturi_emise], .T.) + *!* Select (lcCursor) + *!* Report Format rap_facturi_emise To Printer Prompt Preview + *!* Else + *!* amessagebox("Nu exista inregistrari pentru listare!",48,"Atentie") + *!* Endif + + Use In (lcCursor) + +Endproc +********************************** SFARSIT: rap_facturi_emise_pe_zile************************** + + +********************************** INCEPUT: rap_facturi_grupat_pe_lucari_parteneri ************************** +Procedure rap_fact_grup_pe_lucari_parteneri + Parameters tccont, tlActiv, tnShowForm + + Private pnIdLucrare, pccont + pnIdLucrare = 0 + + If Empty(tccont) + pccont = [] + Else + pccont = Alltrim(tccont) + Endif + plActiv = tlActiv + + If tnShowForm = 1 Or Empty(pccont) + ofrm = Createobject('frm_facturi_grupat') + With ofrm + .lcCont = pccont + .llActiv = plActiv + .lcTitlu = [Situatie facturi ] + pccont + .clb_tx_simplu1.text_simplu1.Value = pccont + .lhide = .T. + Endwith + ofrm.Show(1) + pccont = ofrm.lcCont + pnIdLucrare = ofrm.lnIdLucrare + plActiv = ofrm.llActiv + pctitlu = ofrm.lcTitlu + ofrm.Release + Else + pcselect = [select id_lucrare, nrord from vlucrari_validat] + pcfiltru = [1=2] + pcschema = [] + pcorder = [nrord] + pccoloane = [nrord] + pctitlu = [Alegeti lucrarea/contractul] + pcFiltruOriginal = [validat = 0 and inactiv = 0] + locauta = cauta_alfa(pcselect, pcfiltru, pcschema, pcorder, pccoloane, pctitlu, pctitlu, [], .T., pcFiltruOriginal) && 11.07.2007 + pnIdLucrare = Iif(Empty(locauta.id_lucrare), 0, locauta.id_lucrare) + Endif + + If gnButon = 2 + Return + Endif + + pcCondLucrare = Iif(Empty(pnIdLucrare), [1=1], [id_lucrare = ?pnIdLucrare]) + + lcSelect = [select dataact,datascad, serie_act, nract, nume, id_part,id_lucrare,nrord,SUM(] + Iif(plActiv, [debit + precdeb], [credit + preccred]) + [) as tot_fact, ] + ; + [SUM(] + Iif(plActiv, [credit + preccred], [debit + precdeb]) + [) as tot_achit, ] + ; + [00000000000000.0000 as sold_lucrare, 00000000000000.0000 as sold_part ] + ; + [from ] + gcs + [.vireg_parteneri ] + ; + [where cont = ?pcCont and ] + pcCondLucrare + ; + [ and an = ?gnAn and luna = ?gnLuna ] + gcCondSucursala + [ ] + ; + [group by dataact, datascad, serie_act, nract, nume, id_part, id_lucrare, nrord ] + ; + [order by nrord, id_lucrare, nume, id_part, dataact, serie_act, nract] + lcCursor = [cFacturi] + lnSucces = goExecutor.oExecute(lcSelect, lcCursor) + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + **** calcul sold cumulat + *!* lnIdLucrare = 0 + *!* lnIdPart = 0 + *!* lnSoldLucrare = 0 + *!* lnSoldPart = 0 + *!* SELECT cFacturi + *!* SCAN + *!* SCATTER NAME osold + *!* lnNrRand = RECNO() + *!* IF lnIdLucrare <> osold.id_lucrare + *!* lnIdLucrare = osold.id_Lucrare + *!* lnSoldLucrare = 0 + *!* ENDIF + *!* IF lnIdPart <> osold.id_part + *!* lnIdPart = osold.id_part + *!* lnSoldPart = 0 + *!* ENDIF + *!* lnSoldLucrare = lnSoldLucrare + NVL(osold.tot_fact,0) - NVL(osold.tot_achit,0) + *!* lnSoldPart = lnSoldPart + NVL(osold.tot_fact,0) - NVL(osold.tot_achit,0) + *!* REPLACE sold_lucrare WITH lnSoldLucrare, sold_part WITH lnSoldPart + *!* SELECT cFacturi + *!* ENDSCAN + **** + + *!* If Reccount(lcCursor)>0 + If tnShowForm = 0 + lcTitlu = [Facturi ] + pccont + pctitlu = ceretitlu_rap('Titlul Raportului', lcTitlu) + Endif + *!* pcDataOra = Get_Ora(2) + goExport.export2frx(lcCursor, [ireg_parteneri_rpt4]) + *!* Select (lcCursor) + *!* Report Form ireg_parteneri_rpt4.frx To Printer Prompt Preview + *!* Else + *!* amessagebox("Nu exista inregistrari pentru listare!",48,"Atentie") + *!* Endif + If Used(lcCursor) + Use In &lcCursor + Endif + +Endproc && rap_fact_grup_pe_lucari_parteneri + +********************************** SFARSIT: rap_facturi_grupat_pe_lucari_parteneri ************************** +*!* modificare v 2.0.77 +Procedure sold_fact_pe_vechimi + Lparameters tctip, tlEmitere + *** tcTip: C (clienti 4111,4118); F (furnizori 401); A (activ se alege contul) + *** tlEmitere: .T. vechime fata de data emiterii sau .F. fata de data scadenta + + Local loFrm, lcExplicatie, lcSql, lcRaport, loFrmPerioada + Private pdData + + pdData = Date(gnAn, gnLuna, 1) + loFrm = Createobject("frm_data") + loFrm.lb_titlu_alb_b121.Caption = "Data referinta" + loFrm.Show(1) + + Private pnEActiv + Local lcString, lcCont + Store "" To lcCont, lcString + Store .F. To pnEActiv + + If tctip = [A] + Do Alege_Cont With lcCont, pnEActiv + If buton = 2 + Return + Endif + Endif + + *** la sold facturi pe vechimi 4111 fata de data emitere am acelasi raport ca la ALTII/ACTIV + If m.tctip = [C] And tlEmitere = .T. + tctip = [A] + lcCont = [4111] + pnEActiv = .T. + Endif + + lcSelect = [SELECT varname,varvalue FROM optiuni where varname like 'VECHIME%'] + lcCursor = [crsOptiuni] + lnSucces = goExecutor.oExecute(lcSelect, lcCursor) + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + If Reccount('crsOptiuni') = 0 + amessagebox("Baza de date nu a fost actualizata!", 48, "Atentie") + Else + Select crsOptiuni + Scan + lcnume = Alltrim(varname) + lnValoare = Val(Alltrim(varvalue)) + gn&lcnume. = lnValoare + Endscan + loFrmPerioada = Createobject("frm_alegeperioada", m.tctip, m.lcCont, m.tlEmitere) + loFrmPerioada.lb_titlu_alb_b121.Caption = "Alegeti perioada" + loFrmPerioada.Show(1) + *!* modificare v 2.0.77 ^ + Endif + Release pctitlu, pdData, loFrm, lcExplicatie, lcSql, lcRaport +Endproc && sold_fact_pe_vechimi +************************************************************************************************************* +Procedure proc_scadentar + Lparameters tctip, tccont + *tcCont - completez doar pentru furnizori + Local loFrm, lcExplicatie, lcSql, lcRaport + Private pdData, pctitlu + + pdData = Date(gnAn, gnLuna, 1) + loFrm = Createobject("frm_data") + loFrm.lb_titlu_alb_b121.Caption = "Data referinta" + loFrm.Show(1) + + If gnButon = 1 + If tctip = [C] + lcExplicatie = [CLIENTI] + + lcSql = [select a.id_part,b.denumire,Sum(a.sold) As sold,] + ; + [SUM(case when NVL(datascad,add_months(dataact,1))< = ?pdData And ] + ; + [ a.incert = 0 then a.sold else 0.00 end) As rest_30, ] + ; + [ nract,dataact,datascad, to_char(nract)||'/'||to_char(dataact,'DD.MM.YYYY') as expli] + ; + [ from ] + ; + [ (Select id_part, NVL(datascad, dataact + 30) as datascad,nract,dataact, ] + ; + [ sum((precdeb + debit) - (preccred + credit)) As sold, ] + ; + [ (case when cont = '4118' then 1 else 0 end) As incert ] + ; + [ FROM ireg_parteneri ] + ; + [ WHERE ] + ; + [ (precdeb + debit) - (preccred + credit) <> 0 ] + ; + [ and luna = ?gnLuna ] + ; + [ and an = ?gnAn ] + ; + gcCondSucursala + ; + [ and cont in ('4111', '4118') group by id_part,datascad,nract,dataact,cont) a ] + ; + [ left join nom_parteneri b on a.id_part = b.id_part ] + ; + [ GROUP By a.id_part, b.denumire, a.nract,a.dataact,a.datascad ] + ; + [ order by b.denumire] + + + Else + lcExplicatie = [FURNIZORI] + lcSql = [Select a.id_part,b.denumire,Sum(a.sold) As sold,] + ; + [SUM(case when NVL(datascad,add_months(dataact,1)) < = ?pdData then a.sold else 0.00 end) As rest_30, ] + ; + [ nract,dataact,datascad, to_char(nract)||'/'||to_char(dataact,'DD.MM.YYYY') as expli] + ; + [ from ] + ; + [ (Select id_part, NVL(datascad, dataact + 30) as datascad,nract,dataact, ] + ; + [ (preccred + credit) - (precdeb + debit) As sold ] + ; + [ FROM ireg_parteneri ] + ; + [ WHERE ] + ; + [ (preccred + credit) - (precdeb + debit) <> 0 ] + ; + [ and luna = ?gnLuna ] + ; + [ and an = ?gnAn ] + ; + gcCondSucursala + ; + [ and cont =] + tccont + [) a ] + ; + [ left join nom_parteneri b on a.id_part = b.id_part ] + ; + [ GROUP By a.id_part, b.denumire, a.nract,a.dataact,a.datascad ] + ; + [ order by b.denumire] + + Endif + + lnSucces = goExecutor.oExecute(lcSql, [crsdaterap]) + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 16, "Eroare") + Else + Select Distinct id_part, denumire, Sum(sold) As sold, Sum(rest_30) As rest_30, Cast('' As Memo) As listaf; + From crsDateRap Group By id_part, denumire Order By denumire ; + Into Cursor crsScadentar Readwrite + Local lcMemo + Select crsScadentar + Scan + Scatter Name ocrs + + Select * From crsDateRap Where id_part = ocrs.id_part And Nvl(datascad, Gomonth(dataact, 1)) <= pdData Into Cursor crsTmp + lcMemo = [] + lcMemo = cursor2lista('crsTmp', 'expli', ', ') + Select crsScadentar + Replace listaf With lcMemo + If Used('crsTmp') + Use In crsTmp + Endif + Select crsScadentar + Endscan + + + lcRaport = [rap_scadentar] + Select crsScadentar + pctitlu = [RAPORT SCADENTAR ] + lcExplicatie + goExport.export2frx([crsScadentar], lcRaport) + IF RECCOUNT('crsScadentar') > 0 AND AMESSAGEBOX('Doriti salvare in fisier xlsx?',4+32,_screen.Caption)=6 + goExport.export2xlsx([crsScadentar], 'scadentar') + ENDIF + Endif + + Use In (SELECT('crsDateRap')) + Use In (SELECT('crsScadentar')) + Endif + + Release pctitlu, pdData, loFrm, lcExplicatie, lcSql, lcRaport +Endproc && proc_scadentar +************************************************************************************************************* +Procedure parteneri_cu_sold_final + Lparameters tlInValuta, tccont, tlEActiv, tlCumulat && modificare v 2.1.11 : tlCumulat + Local lcCont, llEActiv, llParametri, llInValuta, lcRaport + llInValuta = tlInValuta + If !Empty(tccont) + lcCont = Alltrim(tccont) + llParametri = .T. + Else + lcCont = '' + llParametri = .F. + Endif + + If Pcount() >= 3 + llEActiv = tlEActiv + Else + If !Empty(tccont) + lcSql = [select fel_cont from ] + gcs + [.config_cont_ireg where cont = '] + Alltrim(lcCont) + ['] + lnSucces = goExecutor.oExecute(lcSql, [crsfelcont]) + If lnSucces < 0 + llEActiv = .F. + Else + If Reccount('crsfelcont') > 0 + Select crsfelcont + llEActiv = Iif(fel_cont = 0, .T., .F.) + Else + llEActiv = .F. + Endif + Use In crsfelcont + Endif + Else + llEActiv = .F. + Endif + Endif + + Private plActiv, eActiv, pctitlu, t1, t2, t3, t4 + Store .T. To plActiv, eActiv + If !llParametri + Private polista, pcschema1, pcselect1, pcfiltru1, pcorder1 + Store "" To polista + If Used('clista') + Use In clista + Endif + pcschema1 = ['cont c(4),acont c(4),explicatie c(50),fel_cont n(1)'] + pcselect1 = ['select cont,rpad(CHR(32),4,CHR(32)) as acont,explicatie,fel_cont from ] + gcs + [.config_cont_ireg where 1=2'] + pcfiltru1 = [cu_inregistrari=1] + pcorder1 = [cont] + llAfisare = .F. + gencursor('polista', 'clista', pcselect1, pcfiltru1, pcschema1, pcorder1, llAfisare) + polista.ca_baza1.afisare() + + Select clista + loCont = myscatter('blank') + + Ol = Createobject("frm_sel_cont") + With Ol + .lb_titlu_alb_b121.Caption = 'Selectati contul' + If Empty(.cboCont.RowSource) + .cboCont.RowSource = "clista.cont,explicatie" + .cboCont.ColumnWidths = '40,150' + Endif + .ocont = loCont + If Empty(.cAlias) + .cAlias = Left(.cboCont.RowSource, At(".", .cboCont.RowSource) - 1) + Endif + .Height = 190 + .lhide = .T. + Endwith + Ol.Show(1) + llEActiv = Iif(Ol.nFel_Cont = 0, .T., .F.) + Ol.Release + + If gnButon = 2 + Use In clista + Release plActiv, eActiv, pctitlu + Return + Else + lcCont = Alltrim(loCont.Cont) + llEActiv = plActiv + Endif + Endif + eActiv = llEActiv + lcSql = [select a.id_ireg_part,a.an,a.luna,a.id_fact,a.id_part,a.cont,a.id_valuta,a.precdeb,a.preccred,a.precvaldeb,a.precvalcred,] + ; + [a.debit,a.credit,a.valdebit,a.valcredit,a.nract,a.serie_act,a.dataact,a.datascad,a.curs,a.cod,a.explicatia,a.explicatia4,] + ; + [a.explicatia5,a.id_fdoc,a.id_lucrare,a.id_ctr,a.id_sucursala,b.denumire as nume,c.nume_val,d.fel_document as fdoc,e.nrord,] + ; + [nvl2(f.numar, f.numar || '/', '') || to_char(f.data, 'dd.mm.yyyy') as contract from ] + ; + [(SELECT ID_IREG_PART,AN,LUNA,ID_FACT,ID_PART,CONT,ID_VALUTA,PRECDEB,PRECCRED,PRECVALDEB,PRECVALCRED,] + ; + [DEBIT,CREDIT,VALDEBIT,VALCREDIT,NRACT,SERIE_ACT,DATAACT,DATASCAD,CURS,COD,EXPLICATIA,EXPLICATIA4,] + ; + [EXPLICATIA5,ID_FDOC,ID_LUCRARE,ID_CTR,ID_SUCURSALA,] + ; + [sum(] + Iif(llEActiv, [(precdeb + debit) - (preccred + credit)], [(preccred + credit) - (precdeb + debit)]) + ; + [) over(partition by an, luna, id_part) as sold_final ] + ; + [FROM ] + gcs + [.IREG_PARTENERI WHERE cont ='] + m.lcCont + [' and luna = ?gnLuna and an = ?gnAn) a ] + ; + [left join ] + gcs + [.nom_parteneri b on a.id_part = b.id_part ] + ; + [left join ] + gcs + [.nom_valute c on a.id_valuta = c.id_valuta ] + ; + [left join ] + gcs + [.nom_fdoc d on a.id_fdoc = d.id_fdoc ] + ; + [left join ] + gcs + [.vnom_lucrari e on a.id_lucrare = e.id_lucrare ] + ; + [left join ] + gcs + [.contracte f on a.id_ctr = f.id_ctr ] + ; + [where a.sold_final <> 0 and ] + Iif(llEActiv, [(a.precdeb+a.debit)-(a.preccred+a.credit)], [(a.preccred+a.credit)-(a.precdeb+a.debit)]) + [ <> 0 ] + ; + [ORDER BY b.denumire, a.id_part, a.dataact, a.serie_act, a.nract] + lnSucces = goExecutor.oExecute(lcSql, [crslistare]) + + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 16, "Eroare") + Else + If llInValuta + lcRaport = [ireg_parteneri_rpt2] + pctitlu = [Inregistrari parteneri cont ] + Alltrim(lcCont) + [ cu sold final - in lei si valuta] && modificare v 2.1.11 + Else + *!* modificare v 2.1.11 + *!* lcRaport = [ireg_parteneri_rpt2lei] + If tlCumulat + lcRaport = [ireg_parteneri_rpt2lei_cum] + pctitlu = [Inregistrari parteneri cont ] + Alltrim(lcCont) + [ cu sold final - in lei (cu sold cumulat)] + Else + lcRaport = [ireg_parteneri_rpt2lei] + pctitlu = [Inregistrari parteneri cont ] + Alltrim(lcCont) + [ cu sold final - in lei] + Endif + *!* modificare v 2.1.11 ^ + Endif + + *!* pctitlu = [Inregistrari parteneri cont ] + Alltrim(lcCont) + [ cu sold final - in lei ] + Iif(tlInValuta,[si valuta],[]) && modificare v 2.1.11 + t1 = [Total ] + Iif(llEActiv, [debit], [credit]) + t2 = [Total ] + Iif(llEActiv, [credit], [debit]) + t3 = [Total ] + Iif(llEActiv, [debit], [credit]) + [ valuta] + t4 = [Total ] + Iif(llEActiv, [credit], [debit]) + [ valuta] + + goExport.export2frx([crslistare], lcRaport, .T., , , , , .T.) + Endif + If Used('crslistare') + Use In crslistare + Endif + Release plActiv, eActiv, pctitlu + +Endproc && parteneri_cu_sold_final + +************************************************************************************************************* +Procedure istoric_clienti + Local locauta, loFrm, loFrmPerioada, lcCursor, lcCursor1 + Local lcCursor2, lcExceptii, lcPerioada, lcSelect, lcSelect1, lcSql, lcTitlu, lnAn1, lnAn2, lnFinal + Local lnInit, lnLuna1, lnLuna2, lnSucces, lnSucces1 + *:Global oInc + Private pcondper + Store "" To pcondper + locauta = caut_parteneri('4111', 'Alegeti clientul') + If gnButon = 1 + + loFrmPerioada = Createobject('frm_perioada_luni') + loFrmPerioada.Show(1) + + If gnButon = 2 + Return + Endif + + If At('_', pcondper) > 0 + lnAn1 = Val(Substr(pcondper, 3, 4)) + lnLuna1 = Val(Substr(pcondper, 1, 2)) + lnAn2 = Val(Substr(pcondper, 10, 4)) + lnLuna2 = Val(Substr(pcondper, 8, 2)) + + lcPerioada = Substr(pcondper, 1, 2) + '/' + Substr(pcondper, 3, 4) + ' - ' + Substr(pcondper, 8, 2) + '/' + Substr(pcondper, 10, 4) + Else + lnAn1 = Val(Substr(pcondper, 3, 4)) + lnLuna1 = Val(Substr(pcondper, 1, 2)) + lnAn2 = Val(Substr(pcondper, 3, 4)) + lnLuna2 = Val(Substr(pcondper, 1, 2)) + + lcPerioada = Substr(pcondper, 1, 2) + '/' + Substr(pcondper, 3, 4) + ' - ' + Substr(pcondper, 1, 2) + '/' + Substr(pcondper, 3, 4) + Endif + lnInit = lnAn1 * 12 + lnLuna1 + lnFinal = lnAn2 * 12 + lnLuna2 + + Local loTherm + loTherm = Newobject("_thermometer", "_therm", "", "Istoric clienti...") + loTherm.Show() + + lcSql = [select * from ] + gcs + [.exceptii_ireg where invers = 1 and debit = 1 and cont = '4111'] + lcCursor = [ex_debit] + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + lcExceptii = [-1] + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Else + Select (lcCursor) + Scan + lcExceptii = lcExceptii + ',' + Alltrim(cont_c) + Endscan + Use In (lcCursor) + Endif + + *!* facturile + loTherm.Update(15, "Culegere date facturi...") + lcSelect = [select a.an,a.luna,a.cod,a.id_fact,a.data_factura,a.serie_factura,a.nr_factura,a.id_valuta,a.nume_val,a.suma_factura,a.suma_val_Factura,] + ; + [Nvl(b.nr,0) as nratasamente from ] + ; + [(select an,luna,cod,id_fact,dataact as data_factura,serie_act as serie_factura,nract as nr_factura,id_valuta,nume_val,] + ; + [sum(debit + precdeb) as suma_factura,] + ; + [Sum(valdebit + precvaldeb) as suma_val_factura ] + ; + [ from ] + gcs + [.vireg_parteneri ] + ; + [ where cont = '4111' and id_part = ] + Alltrim(Str(locauta.id_part)) + ; + [ and luna+12*an between ] + Alltrim(Str(lnInit)) + [ and ] + Alltrim(Str(lnFinal)) + [ ] + gcCondSucursala + ; + [ and (luna + 12*an =to_number(to_char(dataireg,'MM'),'99') + 12*to_number(to_char(dataireg,'YYYY'),'9999')) ] + ; + [ group by an, luna, cod, id_fact, dataact, serie_act, nract,id_valuta,nume_val) a ] + ; + [left join ] + ; + [(select count(*) as nr,cod from vatasamente_vanzari group by cod) b on a.cod = b.cod ] + ; + [order by a.an,a.luna,a.id_valuta,a.data_factura,a.serie_factura,a.nr_factura] + lcCursor = [cFacturi] + If Used(lcCursor) + Use In (lcCursor) + Endif + lnSucces = goExecutor.oExecute(lcSelect, lcCursor) + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + Select (lcCursor) + Replace All data_factura With {} For Isnull(data_factura) + + *!* incasarile + If Reccount(lcCursor) <> 0 + loTherm.Update(45, "Culegere date incasari...") + lcSelect1 = [Select a.dataact as data_incasare,] + ; + [a.serie_act as serie_incasare,a.nract as nr_incasare,] + ; + [(case when a.scc = '4427' then a.pereched else a.perechec end) as nr_factura,] + ; + [(case when a.scc = '4427' then a.id_factd else a.id_factc end) as id_fact,] + ; + [(case when a.scc = '4427' then (-1)*a.suma else a.suma end) as incasat,] + ; + [(case when a.scc = '4427' then (-1)*a.suma_val else a.suma_val end) as incasat_val,] + ; + [a.id_valuta as id_valuta_inc,b.nume_val as nume_val_inc ] + ; + [ from ] + gcs + [.act a ] + ; + [left join ] + gcs + [.nom_valute b on a.id_valuta = b.id_valuta ] + ; + [ where a.sters = 0 and ((a.scc = '4111' and a.id_partc = ] + Alltrim(Str(locauta.id_part)) + [ and (a.perechec <> 0 or a.id_factc <>0))] + ; + [ OR (a.SCD = '4111' AND a.SCC = '4427' AND a.id_partd = ] + Alltrim(Str(locauta.id_part)) + [ ] + ; + [AND (NVL(a.PERECHED,0) <> 0 OR NVL(a.ID_FACTD,0)<>0)))] + ; + [ and (to_number(a.scd) not in (] + lcExceptii + [)) and a.luna+12*a.an between ] + Alltrim(Str(lnInit)) + [ and ] + Alltrim(Str(lnFinal)) + ; + Strtran(gcCondSucursala, [id_sucursala], [a.id_sucursala]) + ; + [ order by a.serie_act, a.nract, a.dataact] + lcCursor1 = [crsincasari] + If Used(lcCursor1) + Use In (lcCursor1) + Endif + lnSucces1 = goExecutor.oExecute(lcSelect1, lcCursor1) + If lnSucces1 < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + Select (lcCursor1) + Replace All data_incasare With {} For Isnull(data_incasare) + + loTherm.Update(75, "Imperechere facturi - incasari...") + lcCursor2 = [crsistoric] + Create Cursor (lcCursor2) (id_fact N(20), cod N(20), id_valuta N(10), nume_val c(4), id_valuta_inc N(10), nume_val_inc c(4), ; + data_factura d, serie_factura c(10), nr_factura N(14), suma_factura N(18, 4), suma_val_factura N(18, 4), incasat N(18, 4), ; + sold N(18, 4), sold_val N(18, 4), nratasamente N(10)) + Insert Into (lcCursor2) (id_fact, cod, id_valuta, nume_val, ; + data_factura, serie_factura, nr_factura, suma_factura, suma_val_factura, sold, sold_val, nratasamente) ; + Select id_fact, cod, id_valuta, nume_val, Nvl(Ttod(data_factura), {}) As data_factura, Nvl(serie_factura, []) As serie_factura, ; + nr_factura, suma_factura, suma_val_factura, ; + suma_factura As sold, suma_val_factura As sold_val, nratasamente From (lcCursor) Order By data_factura, serie_factura, nr_factura + + Select (lcCursor1) + Scan + Scatter Name oInc + Select (lcCursor2) + Locate For id_fact = oInc.id_fact + If Found() + Replace incasat With incasat + oInc.incasat, ; + sold With sold - oInc.incasat, ; + sold_val With Iif(id_valuta = oInc.id_valuta_inc And id_valuta <> 0 And suma_val_factura <> 0, sold_val - oInc.incasat_val, sold_val) + Endif + Select (lcCursor1) + Endscan + Endif + + loTherm.Complete() + Release loTherm + + If Reccount(lcCursor) = 0 + amessagebox("Nu exista facturi pentru " + Alltrim(locauta.denumire) + " (" + lcPerioada + ") !", 64, "Istoric facturi clienti") + Else + lcTitlu = [Istoric facturi] + Iif(locauta.id_part <> -1, [ ] + Alltrim(locauta.denumire), []) + [ (] + lcPerioada + [)] + loFrm = Createobject('frm_istoric_clienti', lcTitlu) + loFrm.Show(1) + + If Used(lcCursor1) + Use In (lcCursor1) + Endif + If Used(lcCursor2) + Use In (lcCursor2) + Endif + Endif + + If Used(lcCursor) + Use In (lcCursor) + Endif + + Endif + +ENDPROC && istoric_clienti + +************************************************* +*** Tabel facturi si incasari +*** Facturi din inregistrari parteneri, Incasari din act +*** !!!! in lucru, trebuie terminat. a fost inceput, dar neterminat +************************************************* +Procedure istoric_terti + LPARAMETERS tcCont, tcTipCont + * tcCont (optional) cont + * tcTipCont (optional) A/P pentru selectia incasarilor/platilor din reg. jurnal de pe debit/credit + + LOCAL loCont, lcTipCont + PRIVATE pcCont + Local locauta, loFrm, loFrmPerioada, lcCursor, lcCursor1 + Local lcCursor2, lcExceptii, lcPerioada, lcSelect, lcSelect1, lcSql, lcTitlu, lnAn1, lnAn2, lnFinal + Local lnInit, lnLuna1, lnLuna2, lnSucces, lnSucces1 + *:Global oInc + Private pcondper + Store "" To pcondper + + IF !EMPTY(m.tcCont) + pcCont = ALLTRIM(m.tcCont) + lcTipCont = IIF(!EMPTY(m.tcTipCont), UPPER(ALLTRIM(m.tcTipCont)), 'A') && Activ/Pasiv/Bifunctional + ELSE + loCont=ret_cont("Selectati contul",'4') + IF TYPE('loCont') # 'O' OR buton = 2 + RELEASE loCont + RETURN + ENDIF + pcCont = locont.cont + lcTipCont = UPPER(ALLTRIM(NVL(loCont.tip_cont, ''))) && A/P/B + ENDIF + IF EMPTY(m.pcCont) + RETURN + ENDIF + lcTipCont = IIF(!INLIST(m.lcTipCont, 'A', 'P'), 'A', m.lcTipCont) + + locauta = caut_parteneri(m.pcCont, 'Alegeti partenerul ' + m.pcCont) + If m.gnButon = 2 + RETURN + ENDIF + loFrmPerioada = Createobject('frm_perioada_luni') + loFrmPerioada.Show(1) + + If m.gnButon = 2 + Return + Endif + + If At('_', pcondper) > 0 + lnAn1 = Val(Substr(pcondper, 3, 4)) + lnLuna1 = Val(Substr(pcondper, 1, 2)) + lnAn2 = Val(Substr(pcondper, 10, 4)) + lnLuna2 = Val(Substr(pcondper, 8, 2)) + + lcPerioada = Substr(pcondper, 1, 2) + '/' + Substr(pcondper, 3, 4) + ' - ' + Substr(pcondper, 8, 2) + '/' + Substr(pcondper, 10, 4) + Else + lnAn1 = Val(Substr(pcondper, 3, 4)) + lnLuna1 = Val(Substr(pcondper, 1, 2)) + lnAn2 = Val(Substr(pcondper, 3, 4)) + lnLuna2 = Val(Substr(pcondper, 1, 2)) + + lcPerioada = Substr(pcondper, 1, 2) + '/' + Substr(pcondper, 3, 4) + ' - ' + Substr(pcondper, 1, 2) + '/' + Substr(pcondper, 3, 4) + Endif + lnInit = lnAn1 * 12 + lnLuna1 + lnFinal = lnAn2 * 12 + lnLuna2 + + Local loTherm + loTherm = Newobject("_thermometer", "_therm", "", "Istoric ...") + loTherm.Show() + + *!* Facturi din ireg_parteneri + loTherm.Update(15, "Culegere date facturi...") + TEXT TO lcSelect TEXTMERGE NOSHOW +select a.an, + a.luna, + a.cod, + a.nume, + a.cod_fiscal, + a.contract, + a.nrord, + a.venchelt, + a.explicatia, + a.fdoc, + a.id_fact, + a.data_factura, + a.serie_factura, + a.nr_factura, + a.id_valuta, + a.nume_val, + a.prec_suma_factura, + a.prec_suma_val_factura, + a.suma_factura, + a.suma_val_factura, + Nvl(b.nr, 0) as nratasamente + from (select an, + luna, + cod, + nume, + cod_fiscal, + contract, + nrord, + venchelt, + explicatia, + id_fact, + dataact as data_factura, + serie_act as serie_factura, + nract as nr_factura, + id_valuta, + nume_val, + SUM(case an*12+luna when <> then <> else 0 end) as prec_suma_factura, + SUM(case an*12+luna when <> then <> else 0 end) as prec_suma_val_factura, + SUM(<>) as suma_factura, + Sum(<>) as suma_val_factura + from vireg_parteneri + where cont = ?pcCont + and id_part = <> + and an*12+luna between <> and <> <> + group by an, + luna, + cod, + nume, + cod_fiscal, + contract, + nrord, + venchelt, + explicatia, + id_fact, + dataact as data_factura, + serie_act as serie_factura, + nract as nr_factura, + id_valuta, + nume_val) a + left join (select count(*) as nr, cod + from vatasamente_vanzari + group by cod) b on a.cod = b.cod + ENDTEXT + + Use In (SELECT('cFacturi')) + lnSucces = goExecutor.oExecute(lcSelect, [cFacturi]) + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + ENDIF + + If Reccount('cFacturi') = 0 + amessagebox("Nu exista facturi pentru " + Alltrim(locauta.denumire) + " (" + lcPerioada + ") !", 64, "Istoric facturi clienti") + USE IN (SELECT('cFacturi')) + RETURN + ENDIF + + *!* Incasari/plati + loTherm.Update(45, "Culegere date incasari/plati...") + + TEXT TO lcSelect TEXTMERGE NOSHOW +Select a.dataact as data_incasare, + a.serie_act as serie_incasare, + a.nract as nr_incasare, + a.pereche as nr_factura, + CAST(null as date) as data_factura, + CAST(null as varchar2) as serie_factura, + a.id_fact, + a.suma as incasat, + a.suma_val as incasat_val, + a.id_valuta as id_valuta_inc, + b.nume_val as nume_val_inc, + p.denumire as nume, + p.cod_fiscal +from (select dataact, serie_act, nract, id_part, id_fact, pereche, suma, suma_val, id_valuta +from (select dataact, serie_act, nract, id_partc as id_part, id_factc as id_fact, perechec as pereche, suma, suma_val, id_valuta + from act + where sters = 0 + and (scc = ?pcCont <> and id_partc = <> and id_factc <> 0) + and (scd not in (select cont_c from exceptii_ireg where cont = ?pcCont and invers = 1)) + and an*12 + luna between <> and <> <>) +union all +(select dataact, serie_act, nract, id_partd as id_part, id_factd as id_fact, pereched as pereche, suma, suma_val, id_valuta + from act + where sters = 0 + and (scd = ?pcCont <> and id_partd = <> and id_factd <> 0) + and (scc not in (select cont_c from exceptii_ireg where cont = ?pcCont and invers = 1)) + and an*12+luna between <> and <> <>)) a + left join nom_valute b on a.id_valuta = b.id_valuta + left join nom_parteneri c on a.id_part = c.id_part + ENDTEXT + + Use In (SELECT('crsIncasari')) + + lnSucces = goExecutor.oExecute(m.lcSelect, 'crsIncasari') + If lnSucces < 0 + amessagebox(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + loTherm.Update(75, "Imperechere facturi - incasari...") + + Create Cursor crsIstoric (tip C(1), id_fact N(20), cod N(20), nume C(100), cod_fiscal C(20), contract C(100), nrord C(100), venchelt C(100), explicatia C(100),; + id_valuta N(10), nume_val c(4), id_valuta_inc N(10), nume_val_inc c(4), ; + data_factura d, serie_factura c(10), nr_factura N(14), ; + prec_suma_factura N(18, 4), prec_suma_val_factura N(18, 4), suma_factura N(18, 4), suma_val_factura N(18, 4), ; + incasat N(18, 4), incasat_val N(18, 4), sold N(18, 4), sold_val N(18, 4), nratasamente N(10), ; + data_incasare D, serie_incasare C(10), nr_incasare N(14)) + + * Adaug Facturile in istoric +*!* Insert Into crsIstoric (tip, id_fact, cod, id_valuta, nume_val, data_factura, serie_factura, nr_factura, suma_factura, suma_val_factura, sold, sold_val, nratasamente) ; +*!* Select 'F' as tip, id_fact, cod, id_valuta, nume_val, Nvl(Ttod(data_factura), {}) As data_factura, Nvl(serie_factura, []) As serie_factura, ; +*!* nr_factura, suma_factura, suma_val_factura, ; +*!* suma_factura As sold, suma_val_factura As sold_val, nratasamente ; +*!* From cFacturi Order By data_factura, serie_factura, nr_factura + +*!* USE IN (SELECT('cFacturi')) + +*!* * Completez total incasat pe facturi in istoric +*!* SELECT crsIstoric +*!* INDEX on id_fact TAG id_fact +*!* Select crsIncasari +*!* Scan +*!* Scatter Name oInc +*!* Select crsIstoric +*!* IF SEEK(oInc.id_fact) +*!* Replace incasat With incasat + oInc.incasat, ; +*!* sold With sold - oInc.incasat, ; +*!* incasat_val WITH Iif(id_valuta = oInc.id_valuta_inc And id_valuta <> 0 And suma_val_factura <> 0, incasat_val + oInc.incasat_val, incasat_val), ; +*!* sold_val With Iif(id_valuta = oInc.id_valuta_inc And id_valuta <> 0 And suma_val_factura <> 0, sold_val - oInc.incasat_val, sold_val) +*!* ENDIF +*!* ENDSCAN + +*!* * Adaug incasarile in istoric +*!* Insert Into crsIstoric (tip, id_fact, cod, id_valuta, nume_val, nr_factura, data_incasare, serie_incasare, nr_incasare, incasat, incasat_val) ; +*!* Select 'A' as tip, id_fact, 0 as cod, id_valuta_inc as id_valuta, nume_val_inc as nume_val, nr_factura, data_incasare, serie_incasare, nr_incasare, incasat, incasat_val ; +*!* From crsIncasari order by id_fact, data_incasare, serie_incasare, nr_incasare + SELECT cFacturi + INDEX on id_fact TAG id_fact + Replace All data_incasare With {} For Isnull(data_incasare) + Replace All data_factura With {} For Isnull(data_factura) IN cFacturi + + SELECT crsIncasari + SCAN + lnIdFact = id_fact + IF SEEK(m.lnIdFact,'cFacturi','id_fact') + REPLACE data_factura WITH cFacturi.data_factura, serie_factura WITH cFacturi.serie_factura + ENDIF + ENDSCAN + + + Select 'F' as tip, id_fact, cod, nume, cod_fiscal, contract, nrord, venchelt, explicatia, id_valuta, nume_val, Ttod(data_factura) As data_factura, serie_factura, ; + nr_factura, suma_factura, suma_val_factura, suma_factura As sold, suma_val_factura As sold_val, nratasamente ; + From cFacturi ; + UNION ; + Select 'A' as tip, id_fact, 0 as cod, id_valuta_inc as id_valuta, nume_val_inc as nume_val, nr_factura, data_incasare, serie_incasare, nr_incasare, incasat, incasat_val ; + From crsIncasari ; + ORDER BY data_factura, serie_factura, nr_factura ; + INTO CURSOR crsIstoric + + loTherm.Complete() + Release loTherm + + SELECT crsIstoric + SET ORDER TO + GO TOP + Select crsIncasari + GO TOP + lcTitlu = [Istoric facturi] + Iif(locauta.id_part <> -1, [ ] + Alltrim(locauta.denumire), []) + [ (] + lcPerioada + [)] + loFrm = Createobject('frm_istoric_clienti', lcTitlu) + loFrm.Show(1) + + Use In (SELECT('crsIncasari')) + USE IN (SELECT('crsIstoric')) + +ENDPROC && istoric_terti + +***-------------------------------------------------------------------------------------------------------- +Procedure pondere_clienti + Do pondere_clienti_furnizori With "CLIENTI" +Endproc && pondere_clienti + +***-------------------------------------------------------------------------------------------------------- +Procedure pondere_furnizori + Do pondere_clienti_furnizori With "FURNIZORI" +Endproc && pondere_clienti + +***-------------------------------------------------------------------------------------------------------- +*** +*** pondere clienti/furnizori +*** +*** CLIENTI/FURNIZORI +*** +*** liana.neagu +*** 19.10.2015 +Procedure pondere_clienti_furnizori + Lparameters tctip + + Local lctip, llRON + lctip = Iif(Type('tcTip') = 'C', Upper(m.tctip), 'CLIENTI') + + Private pcli, pcai, pclf, pcaf, plActiv + Private pnSold_Initial, pnDebit, pnCredit, pnSold_Final + + Store m.pcnl To pcli, pclf + Store m.pcan To pcai, pcaf + plActiv = (m.lctip = 'CLIENTI') && pentru schimbarea caption-urilor in grid, raport + + pnSold_Initial = 0 + pnDebit = 0 + pnCredit = 0 + pnSold_Final = 0 + + llRON = .F. + + pcondper = "" + ofrmperioada = Createobject('frm_perioada_luni') + ofrmperioada.Show(1) + If gnButon = 2 + Return + Endif + + plPerioada = .F. + lnPoz = At('_', pcondper) + If lnPoz > 0 + plPerioada = .T. + Endif + + + If plPerioada + lnAn1 = Val(Substr(pcondper, 3, 4)) + lnLuna1 = Val(Substr(pcondper, 1, 2)) + lnAn2 = Val(Substr(pcondper, 10, 4)) + lnLuna2 = Val(Substr(pcondper, 8, 2)) + + lnnrlunii = lnAn1 * 12 + lnLuna1 + lnnrlunif = lnAn2 * 12 + lnLuna2 + lcPerioada = Substr(pcondper, 1, 2) + '/' + Substr(pcondper, 3, 4) + ' - ' + Substr(pcondper, 8, 2) + '/' + Substr(pcondper, 10, 4) + Else + lnAn1 = Val(Substr(pcondper, 3, 4)) + lnLuna1 = Val(Substr(pcondper, 1, 2)) + lnAn2 = Val(Substr(pcondper, 3, 4)) + lnLuna2 = Val(Substr(pcondper, 1, 2)) + + lnnrlunii = lnAn1 * 12 + lnLuna1 + lnnrlunif = lnAn2 * 12 + lnLuna2 + lcPerioada = Substr(pcondper, 1, 2) + '/' + Substr(pcondper, 3, 4) + ' - ' + Substr(pcondper, 1, 2) + '/' + Substr(pcondper, 3, 4) + Endif + + *!* podif = Createobject("frm_datai_dataf") + *!* podif.Show(1) + *!* If buton = 2 + *!* Return + *!* Endif + + *!* lnnrlunii = Val(pcai) * 12 + Val(pcli) + *!* lnnrlunif = Val(pcaf) * 12 + Val(pclf) + *!* SELECT calendar + *!* BROWSE + *!* RETURN + *!* Select nl, an From calendar ; + *!* Where Between(Val(an) * 12 + Val(nl), lnnrlunii, lnnrlunif) ; + *!* Into Cursor cCalendar + lcSql = [SELECT nl, an from calendar where an*12+luna between ] + Alltrim(Str(lnnrlunii)) + [ and ] + Alltrim(Str(lnnrlunif)) + [ order by an, luna] + + lnSucces = goExecutor.oExecute(lcSql, [cCalendar]) + If lnSucces < 0 + Return + Endif + Select cCalendar + If _Tally = 0 + *!* Do mesaj With "Nu exista nici o luna deschisa in perioada", pcli + ' ' + pcai + ' - ' + pclf + ' ' + pcaf + amessagebox("Nu exista nici o luna deschisa in perioada " + Padl(Alltrim(Str(lnLuna1)), '0') + '/' + Alltrim(Str(lnAn1)) + ' - ' + Padl(Alltrim(Str(lnLuna2 )), '0') + '/' + Alltrim(Str(lnAn2)), 0 + 16, "Atentie!") + Return + Endif + + Select cCalendar + Go Top + lcprimaluna = nl + lcprimulan = an + Go Bottom + lcultimaluna = nl + lcultimulan = an + Private pcperioada + pcperioada = "Perioada " + Padl(lcprimaluna, 2, '0') + '/' + lcprimulan + ' - ' + Padl(lcultimaluna, 2, '0') + '/' + lcultimulan + + llprimaluna = .T. + + Private pobalpartfc + Store "" To pobalpartfc + Local lcSelect, lcFiltru, lcSchema, lcOrder, llAfisare, lcGroup, llModParam, lcFiltruOriginal + If m.lctip = 'CLIENTI' + lcSelect = [select an,luna,id_part, nume,cod_fiscal,acont, ] + ; + [(bcredit-bdebit) as avans,debit,credit,precdeb,preccred, ] + ; + [(debit-credit-(bcredit-bdebit)) as soldcur,(bpreccred-bprecdeb) as precavans, ] + ; + [ id_sucursala, sucursala from vbalanta_4111_419 ] + + Else + lcSelect = [select an,luna,id_part, nume,cod_fiscal,acont, ] + ; + [(bdebit-bcredit) as avans,debit,credit,precdeb,preccred, ] + ; + [(credit-debit-(bdebit-bcredit)) as soldcur,(bprecdeb-bpreccred) as precavans, ] + ; + [id_sucursala, sucursala from vbalanta_401_409 ] + Endif + lcOrder = [nume,acont] + lcFiltru = [1=1] + llAfisare = .F. + llModParam = .T. + lcFiltruOriginal = [ an*12+LUNA between ] + Alltrim(Str(lnnrlunii)) + [ and ] + Alltrim(Str(lnnrlunif)) + + If !Isnull(gnIdSucursala) + lcFiltruOriginal = lcFiltruOriginal + gcCondSucursala + Endif + + gencursor('pobalpartfc', 'cPondere', lcSelect, lcFiltru, lcSchema, lcOrder, llAfisare, lcGroup, llModParam, lcFiltruOriginal) + pobalpartfc.ca_baza1.afisare() + Select cPondere + Replace All precAVANS With 0, precdeb With 0, preccred With 0 In cPondere For !(an = lnAn1 And luna = lnLuna1) + + lnSign = Iif(m.lctip = 'CLIENTI', 1, -1) + + Select nume, acont As analitic, Sum(avans) As avans, Sum(debit) As debit, Sum(credit) As credit, ; + Sum(precdeb) As precdeb, Sum(preccred) As preccred, Sum(precAVANS) As precAVANS, ; + Sum(m.lnSign * (precdeb - preccred) - precAVANS) As sold_initial, Sum(m.lnSign * (precdeb - preccred + debit - credit) - (precAVANS + avans)) As sold_final, ; + Cast(0 As N(10, 2)) As pondere_debit, Cast(0 As N(10, 2)) As pondere_credit, Cast(0 As N(10, 2)) As pondere_sold_final ; + From cPondere ; + Group By nume, acont ; + Into Cursor cPondereF Readwrite + + Use In (Select('cPondere')) + + Calculate Sum(avans), Sum(sold_initial), Sum(debit), Sum(credit), Sum(sold_final) ; + To pnAvans, pnSold_Initial, pnDebit, pnCredit, pnSold_Final + + Select cPondereF + If pnDebit = 0 + Replace All pondere_debit With 0.00 + Else + Replace All pondere_debit With Round(debit / m.pnDebit * 100, 2) + Endif + If pnCredit = 0 + Replace All pondere_credit With 0.00 + Else + Replace All pondere_credit With Round(credit / m.pnCredit * 100, 2) + Endif + Replace All pondere_sold_final With sold_final / pnSold_Final * 100 + + Select cPondereF + Go Top + + popc = Createobject("frm_pondere_clienti_furnizori") && contabilitate_rapoarte.vcx + With popc.gridb1 + .column3.header1.Caption = Iif(m.plActiv, "Rulaj debit", "Rulaj credit") + .column3.ControlSource = Iif(m.plActiv, "debit", "credit") + .column4.header1.Caption = Iif(m.plActiv, "Rulaj credit", "Rulaj debit") + .column4.ControlSource = Iif(m.plActiv, "credit", "debit") + + .column7.header1.Caption = Iif(m.plActiv, "Pondere debit (%)", "Pondere credit (%)") + .column7.ControlSource = Iif(m.plActiv, "pondere_debit", "pondere_credit") + .column8.header1.Caption = Iif(m.plActiv, "Pondere credit (%)", "Pondere debit (%)") + .column8.ControlSource = Iif(m.plActiv, "pondere_credit", "pondere_debit") + Endwith + popc.titlufrumos1.Caption = "Pondere " + Lower(m.lctip) + " - " + Alltrim(m.pcperioada) + popc.Show(1) + + Use In (Select('cPondereF')) + +Endproc && pondere_clienti_furnizori diff --git a/Programe/orap_trezorerie.prg b/Programe/orap_trezorerie.prg new file mode 100644 index 0000000..61676ba --- /dev/null +++ b/Programe/orap_trezorerie.prg @@ -0,0 +1,421 @@ +*_____________________________________________________* +* * +* proceduri utilizate pentru generarea rapoartelor: * +* Trezorerie->Casa * +* ->Banca * +* ->Altele * +*_____________________________________________________* + +* PROCEDURE listare_reg_casabanca +* Date : 04/11/2004, 11:42:49 +* author : lavinia.viziru +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 0 +* +********************************* INCEPUT:listare_reg_casabanca ***************************** +Procedure listare_reg_casabanca + Parameters tcCont && 5311 - casa, 5121 - banca + + Local lcTitlu, lcCont, loCasa, lnId_part, lcNume + Store '' To lcTitlu, lcCont, loCasa + Store 0 To lnId_part + + Private pnsoldi + Store 0 To pnsoldi + + lcCont = Alltrim(tcCont) + + lcTitlu = Iif(lcCont = '5311', [Alegeti numele casei], [Alegeti numele bancii]) + loCasa = caut_parteneri(lcCont, lcTitlu) + && rezultatele cautarii: loCasa.nume, loCasa.id_part,loCasa.cod_fiscal + If Empty(loCasa.denumire) + Return + Endif + + lnId_part = loCasa.id_part + lcNume = loCasa.denumire + + Private pcexec, pcselect, pcschema, pcfiltru, pcorder, pobancasa, pnprecdeb, pnpreccred + Store 0 To pnprecdeb, pnpreccred + Store "" To pobancasa + + *pcexec=[begin cbancasaproc(']+ lcCont +[',]+Alltrim(Str(gnluna+gnan*12))+[); end;] + pcexec = [begin pack_sesiune.setcont('] + lcCont + ['); end;] + lnSucces = goExecutor.oExecute(pcexec) + If lnSucces < 0 + aMESSAGEBOX(goExecutor.cEroare, 0 + 16, 'Eroare') + Endif + + If Used('casban') + Use In casban + Endif + *!* modificare v 2.0.117 : am adaugat id_fdoc,id_nume + pcschema = ['nrcrt n(1),fdoc c(30),dataact d,dataireg d,nract N(20),serie_act c(15),bancasa c(50),nume c(50), cod_fiscal c(50),explicatia c(100),'+] + ; + ['incasari n(20,4),plati n(20,4),scd c(4),scc c(4),ascd c(4),ascc c(4),COD N(20),NRORD C(30),nresp c(50),sucursala c(100),id_fdoc n(20),id_nume N(20)'] + pcselect = ['select nrcrt, fdoc, dataact, dataireg, nract,serie_act, bancasa, nume, cod_fiscal, explicatia, incasari,] + ; + [plati, scd, scc, ascd, ascc,COD, NRORD, nresp,sucursala,id_fdoc,id_nume from ] + gcS + [.vbancasa_] + Alltrim(tcCont) + [ where 2=2 '] + + + pcfiltru = [UPPER(TRIM(bancasa)) = '] + Upper(Alltrim(lcNume)) + ['] + gcCondSucursala + pcorder = Iif(lcCont = '5311', [dataireg,dataact,cod], [dataact,cod]) + llAfisare = .F. + gencursor('pobancasa', 'casban', pcselect, pcfiltru, pcschema, pcorder, llAfisare) + pobancasa.ca_baza1.afisare() + + &&preluare ora de pe oracle server: + *!* STORE 0 to pnsucces + *!* pcexec = [select to_char(SYSdate,'dd/mm/yyyy hh:mi:ss AM') as dataora from dual] + *!* pcCursor = [dataora_cursor] + *!* pnsucces = goExecutor.oExecute(pcexec,pcCursor) + *!* IF (pnsucces != 0) + *!* SELECT dataora_cursor + *!* pcdataora = dataora_cursor.dataora + *!* USE IN dataora_cursor + *!* ENDIF + + Select casban + Calculate Sum(incasari), Sum(plati) For nrcrt = 1 To pnprecdeb, pnpreccred + pnsoldi = pnprecdeb - pnpreccred + *!* modificare v 2.0.117 + *!* Select * from casban where nrcrt = 2 into cursor casban_ordonat READWRITE + If raport_regcasa_restrans(1, lcCont = [5311], [casban], [casban_ordonat]) + *!* modificare v 2.0.117 ^ + + *!* 29.05.2008 + *!* daca nu am rulaje in luna vreau sa listez soldul initial = soldul final fara inregistrari + *!* si trebuie sa pun o linie goala in tabel pt listare + If Reccount('casban_ordonat') = 0 + Select bancasa From casban Where nrcrt = 1 Into Cursor cSolduriTemp + Select casban_ordonat + Append From Dbf('cSolduriTemp') + Use In (Select('cSolduriTemp')) + Endif + *!* 29.05.2008 ^ + + lcRaport = Iif(lcCont = '5311', [registru_casa_rpt1], [registru_banca_rpt1]) + goExport.export2frx([casban_ordonat], lcRaport) + *!* modificare v 2.0.117 + Endif + *!* modificare v 2.0.117 ^ + Use In (Select('casban')) + Use In (Select('casban_ordonat')) + +Endproc +********************************* SFARSIT:listare_reg_casabanca ***************************** +********************************* INCEPUT: listare_reg_casacum ***************************** +Procedure listare_reg_casacum + Local lcTitlu, lcCont, loCasa, lnId_part, lcNume + Store '' To lcTitlu, lcCont, loCasa + Store 0 To lnId_part + + Private pnsoldi, pdDataI, pdDataF + Store 0 To pnsoldi + Store {} To pdDataI, pdDataF + *** alegere perioada + ofrm = Createobject("frm_perioada_zzllaaaa") + ofrm.Show(1) + If gnButon = 2 Or Isnull(pdDataI) Or Isnull(pdDataF) + Return + Endif + + *** cautare partener + lcCont = [5311] + lcTitlu = [Registrul de Casa] + llToateIreg = .F. + lcXMLParteneri = caut_parteneri_xml(lcCont, lcTitlu, llToateIreg) + If !Empty(lcXMLParteneri) And gnButon = 1 + Xmltocursor(lcXMLParteneri, "crsCasaTemp") + If Reccount('crsCasaTemp') = 0 + aMESSAGEBOX('Nu ati selectat vreo casa!', 0 + 48, 'Atentie') + Return + Endif + lcSirIdPart = cursor2lista("crsCasaTemp", "id_part", ",") + lcSirNume = cursor2lista("crsCasaTemp", "denumire", ",") + Use In crsCasaTemp + Else + aMESSAGEBOX("Nu ati selectat vreo casa!", 0 + 48, "Atentie") + Return + Endif + + Private pcexec, pcselect, pcschema, pcfiltru, pcorder, pobancasa, pnprecdeb, pnpreccred, pcSubtitlu + pcSubtitlu = [Casa :] + Alltrim(lcSirNume) + [; Data inreg. intre ] + Dtoc(pdDataI) + [ si ] + Dtoc(pdDataF) + Store 0 To pnprecdeb, pnpreccred + Store "" To pobancasa + pcexec = [begin pack_sesiune.setcont('] + lcCont + ['); end;] + lnSucces = goExecutor.oExecute(pcexec) + If lnSucces < 0 + aMESSAGEBOX(goExecutor.cEroare, 0 + 16, 'Eroare') + Endif + + If Used('casban') + Use In casban + Endif + + lcSql = [select sum(incasari) as precdeb,sum(plati) as preccred from ] + gcS + [.vbancasa_] + Alltrim(lcCont) + ; + [ where (nrcrt = 1 or NVL(dataireg,to_date('01011900','DDMMYYYY')) < ?pdDataI)] + gcCondSucursala + lnSucces = goExecutor.oExecute(lcSql, [casban]) + If lnSucces < 0 + aMESSAGEBOX(goExecutor.cEroare, 16, 'Eroare') + Return + Endif + Select casban + pnprecdeb = precdeb + pnpreccred = preccred + pnsoldi = pnprecdeb - pnpreccred + Use In (Select('casban')) + + *!* modificare v 2.0.117 : am adaugat id_fdoc, id_nume + pcschema = ['nrcrt n(1),fdoc c(30),dataact d,dataireg d,nract N(20),serie_act c(15),bancasa c(50),nume c(50), cod_fiscal c(50),explicatia c(100),'+] + ; + ['incasari n(20,4),plati n(20,4),scd c(4),scc c(4),ascd c(4),ascc c(4),COD N(20),NRORD C(30),nresp c(50),sucursala c(100),id_fdoc N(20),id_nume N(20)'] + pcselect = ['select nrcrt, fdoc, dataact, dataireg, nract,serie_act, bancasa, nume, cod_fiscal, explicatia, incasari,] + ; + [plati, scd, scc, ascd, ascc,COD, NRORD, nresp,sucursala,id_fdoc,id_nume from ] + gcS + [.vbancasa_] + Alltrim(lcCont) + [ where 2=2 '] + pcfiltru = [id_bancasa in (] + Alltrim(lcSirIdPart) + [) and ] + ; + [(NVL(dataireg,to_date('01011900','DDMMYYYY')) between ?pdDataI and ?pdDataF or dataireg is null) ] + gcCondSucursala + pcorder = [dataireg,bancasa,dataact,cod] + llAfisare = .F. + gencursor('pobancasa', 'casban', pcselect, pcfiltru, pcschema, pcorder, llAfisare) + pobancasa.ca_baza1.afisare() + + *!* modificare v 2.0.117 + *!* Select * from casban where nrcrt = 2 into cursor casban_ordonat READWRITE + If raport_regcasa_restrans(2, .T., [casban], [casban_ordonat]) + *!* modificare v 2.0.117 ^ + + If Reccount('casban_ordonat') = 0 + Select bancasa From casban Where nrcrt = 1 Into Cursor cSolduriTemp + Select casban_ordonat + Append From Dbf('cSolduriTemp') + Use In (Select('cSolduriTemp')) + Endif + + lcRaport = [registru_casa_rpt3] + goExport.export2frx([casban_ordonat], lcRaport) + *!* modificare v 2.0.117 + Endif + *!* modificare v 2.0.117 ^ + Use In (Select('casban')) + Use In (Select('casban_ordonat')) + +Endproc +********************************* SFARSIT: listare_reg_casacum **************************** +* PROCEDURE listare_reg_casabanca_val +* Date : 05/11/2004, 13:03:15 +* author : lavinia.viziru +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 0 +* +***************************** INCEPUT:listare_reg_casabanca_val ***************************** +Procedure listare_reg_casabanca_val + Parameters tcCont, tlBancasaCum + * tcCont: 5314 - casa in valuta, 5124 - banca in valuta + * tlBancasaCum: registru cumulat pe documente pereche / defalcat pe documente pereche + + Local lcTitlu, lcCont, loCasa, lnId_part, lcNume, llBanCasaCum + Store '' To lcTitlu, lcCont, loCasa + Store 0 To lnId_part + + Private pnsoldi, pnsoldival, pcTiltlu, pcBancasa, pcTitlugrup, pcCampgrup, pnprecdebval, pnpreccredval + Store 0 To pnsoldi, pnsoldival, pnprecdebval, pnpreccredval + Store '' To pcTiltlu, pcBancasa, pcTitlugrup, pcCampgrup + + lcCont = Alltrim(tcCont) + lcTitlu = Iif(lcCont = '5314', [Alegeti numele casei], [Alegeti numele bancii]) + llBanCasaCum = IIF(PCOUNT() = 1, .T., m.tlBancasaCum) + + loCasa = caut_parteneri(lcCont, lcTitlu) + && rezultatele cautarii: loCasa.nume, loCasa.id_part,loCasa.cod_fiscal + If Empty(loCasa.denumire) + Return + Endif + + lnId_part = loCasa.id_part + lcNume = loCasa.denumire + + Private pcexec, pcselect, pcschema, pcfiltru, pcorder, pobancasaval, pnprecdeb, pnpreccred + Store 0 To pnprecdeb, pnpreccred + Store "" To pobancasaval + + *pcexec=[begin cbancasaproc('] + lcCont + [',]+Alltrim(Str(gnluna+gnan*12))+[); end;] + pcexec = [begin pack_sesiune.setcont('] + lcCont + ['); end;] + lnSucces = goExecutor.oExecute(pcexec) + If lnSucces < 0 + aMESSAGEBOX(goExecutor.cEroare, 0 + 16, 'Eroare') + Endif + + Use In (SELECT('casban')) + + *** SELECTIE SOLDURI DIN BALANTA PARTENERI SI INREGISTRARI DIN REGISTRUL JURNAL (VBANCASA SI VBANCASA_VAL) + lcSchema = [nrcrt n(1),fdoc c(30),dataact d,dataireg d,nract N(20),serie_act c(10),bancasa c(50), nume c(50), cod_fiscal c(50), ] + ; + [reg_comert c(50), explicatia c(100), ] + ; + [scd c(4),scc c(4),ascd c(4), ascc c(4),COD N(20),NRORD C(30),NRESP C(30),SUCURSALA C(100),id_nume N(20),id_fdoc N(20),] + ; + [incasari n(19,gnPa),plati n(19,gnPa)] + IIF(Inlist(m.tcCont, '5314','5124'), [,incasval n(19,gnPa),platival n(19,gnPa),numeval C(10),] + IIF(m.tlBancasaCum,[curs C(100)],[curs N(10,4)]), []) + + lcSelect = [select nrcrt,fdoc,dataact,dataireg,nract,serie_act,bancasa,nume,cod_fiscal,reg_comert,explicatia,] + ; + [scd,scc,ascd,ascc,COD,NRORD,NRESP,sucursala,id_nume,id_fdoc,] + ; + [incasari,plati] + IIF(Inlist(m.tcCont, '5314','5124'), [,incasval,platival,numeval,curs], []) + ; + [ from vbancasa_] + Alltrim(m.tcCont) + IIF(m.llBancasaCum,[_CUM],[]) + + lcFiltru = [UPPER(TRIM(bancasa)) = '] + Upper(Alltrim(lcNume)) + ['] + gcCondSucursala + lcOrder = Iif(lcCont = '5314', [dataireg,dataact,cod], [dataact,cod]) + llAfisare = .F. + lcGroup = "" + llModParam = .T. + lcFiltruOriginal = "" + gencursor('pobancasaval','casban', lcSelect, lcFiltru, lcSchema, lcOrder, llAfisare, lcGroup, llModParam, lcFiltruOriginal) + pobancasaval.ca_baza1.afisare() + + Calculate Sum(incasari), Sum(incasval), Sum(plati), Sum(platival) For nrcrt = 1 To ; + pnprecdeb, pnprecdebval, pnpreccred, pnpreccredval + pnsoldi = pnprecdeb - pnpreccred + pnsoldival = pnprecdebval - pnpreccredval + Select * From casban Where nrcrt = 2 Into Cursor casban_ordonat Readwrite + + *!* 29.05.2008 + *!* daca nu am rulaje in luna vreau sa listez soldul initial = soldul final fara inregistrari + *!* si trebuie sa pun o linie goala in tabel pt listare + If Reccount('casban_ordonat') = 0 + Select bancasa From casban Where nrcrt = 1 Into Cursor cSolduriTemp + Select casban_ordonat + Append From Dbf('cSolduriTemp') + Use In (Select('cSolduriTemp')) + Endif + *!* 29.05.2008 ^ + + pcTitlu = Iif(lcCont = '5314', 'REGISTRUL DE CASA IN VALUTA', 'REGISTRUL DE BANCA IN VALUTA') + pcBancasa = Iif(lcCont = '5314', 'Casa: ', 'Banca: ') + pcTitlugrup = Iif(lcCont = '5314', [Data inregistrarii: ], [Data actului: ]) + pcCampgrup = Iif(lcCont = '5314', [dataireg], [dataact]) + + goExport.export2frx([casban_ordonat], [registru_casabanca_valuta_rpt1]) + + Use In (Select('casban')) + Use In (Select('casban_ordonat')) + +Endproc +***************************** SFARSIT: listare_registru_casaval ***************************** + + +* PROCEDURE jurnal_plati_incasari +* Date : 10/11/2004, 09:16:01 +* author : lavinia.viziru +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 1 +* Parameter 1: tlresp +* +****************************** INCEPUT:jurnal_plati_incasari ******************************** +Procedure jurnal_plati_incasari + Parameters tlresp, tlplati + + Private pdData1, pdData2, pdinit1, pdinit2 + Store {} To pdData1, pdData2, pdinit1, pdinit2 + Private pocauta + Store "" To pocauta + + pdinit1 = Ctod('01/' + Alltrim(Str(gnLuna)) + '/' + Alltrim(Str(gnAn))) + pdinit2 = Gomonth(pdinit1, 1) - 1 + + pdData1 = pdinit1 + pdData2 = pdinit2 + + ofrmjur = Createobject("frm_jurnal_plati_incasari") && in orapoarte_cont.vcx + ofrmjur.txtdata1.ControlSource = "pdData1" + ofrmjur.txtdata2.ControlSource = "pdData2" + ofrmjur.opt_afis.Value = Iif(tlplati, 1, 2) + *ofrmjur.opt_recap.enabled = IIF(tlplati,.f.,.t.) + ofrmjur.opt_recap.Value = Iif(tlresp, 2, 1) + ofrmjur.Show(1) + +Endproc +****************************** SFARSIT: jurnal_plati_incasari ******************************* + + + +Procedure listare_reg_incasariplati + Lparameters llExcel + + Local lcCondAct, lcConturi, lnCont + Local lcCuvCurent, lcFile, lcPerioada, lcSql, lncount, loPerioada + PRIVATE pcDataOra, pcTitlu, pcSubtitlu + pcdataora = get_ora(2) + lcCondAct = ".T." + + && citesc din optiuni_firma lista de conturi care nu intra in selectie + lcConturi = ALLTRIM(Upper(Nvl(citeste_optiune('conturi_regincaspl'), ''))) + IF EMPTY(m.lcConturi) + lcConturi = '455,591,581' + ENDIF + If Right(lcConturi, 1) = ',' + lcConturi = Left(lcConturi, Len(lcConturi) - 1) + Endif + If Left(lcConturi, 1) = ',' + lcConturi = Substr(lcConturi, 2) + Endif + + && confirm lista conturi care nu intra in selectie + lcConturi = Inputbox("Conturi", "Conturi care nu intra in selectie", lcConturi) + + && salvez lista de conturi care nu intra in selectie + If !Empty(lcConturi) + scrie_optiune('conturi_regincaspl', m.lcConturi, 'Conturi Reg. Incasari Plati PFA') + Endif + lcCondAct = "" + If !Empty(lcConturi) + lncount = Getwordcount(lcConturi, ",") + For lnCont = 1 To lncount + lcCuvCurent = Getwordnum(lcConturi, m.lnCont, ",") + If At(".", lcCuvCurent) > 0 + + lcCondAct = lcCondAct + " and NOT(TRIM(scd)+'.'+TRIM(ascd) = '" + lcCuvCurent + "'" + ; + " or TRIM(scc)+'.'+ TRIM(ascc) = '" + TRIM(lcCuvCurent) + "')" + Else + lcCondAct = lcCondAct + " and NOT(TRIM(scd) = '" + lcCuvCurent + "'" + ; + " or TRIM(scc) = '" + lcCuvCurent + "')" + Endif + Endfor + Endif + + loPerioada = AlegePerioada() && oproceduri_comune.prg + If loPerioada.an1 * 12 + loPerioada.luna1 = loPerioada.an2 * 12 + loPerioada.luna2 + lcPerioada = [ and an = ] + Alltrim(Str(loPerioada.an1)) + [ and luna = ] + Alltrim(Str(loPerioada.luna1)) + Else + lcPerioada = [ and an*12+luna between ] + Alltrim(Str(loPerioada.an1 * 12 + loPerioada.luna1)) + [ and ] + Alltrim(Str(loPerioada.an2 * 12 + loPerioada.luna2)) + Endif + + Text To lcSql Textmerge Noshow + Select an, luna, cod, Max(FDOC) As FDOC,nract,dataact,dataireg, Max(EXPLICATIA) As EXPLICATIA, Max(nrord) As nrord, Max(dst_chlt) As dst_chlt, + SUM(decode(scd, '5311', suma, '5314', suma, 0.00)) As incasaric, + SUM(decode(scc , '5311', suma, '5314', suma, 0.00)) As platic, + SUM(decode(scd,'5121', suma, '5124', suma, 0.00)) As incasarib, + SUM(decode(scc,'5121', suma, '5124', suma, 0.00)) As platib + FROM vact + WHERE (scd In('5311','5121','5124') Or scc In('5311','5121','5124')) And id_set <> 77777 <> <> + GROUP By an,luna,cod,nract,dataact,dataireg + ORDER By an, luna, dataact + Endtext + + llSucces = goExecutor.oExecuta(m.lcSql, 'crsRegCasaIncasPl') + + IF m.llSucces + IF RECCOUNT('crsRegCasaIncasPl') = 0 + AMESSAGEBOX('Nu exista inregistrari in perioada aleasa!',0+64,_screen.Caption) + ELSE + If m.llExcel + lcFile = Addbs(gcTempPath) + "TempTrezorerie.Xls" + Copy To (lcFile) Type Xl5 + OPEN_DEFAULT_APP(lcFile) + Else + pcTitlu = 'REGISTRU JURNAL DE INCASARI SI PLATI' + pcSubtitlu = loPerioada.perioada + listareuserreport("crsRegCasaIncasPl", "FRX", "rap_reg_incaspl") + ENDIF + ENDIF + ENDIF + Use In (Select('crsRegCasaIncasPl')) + +Endproc && listare_reg_incasariplati \ No newline at end of file diff --git a/Programe/orapoarte.prg b/Programe/orapoarte.prg new file mode 100644 index 0000000..b9df626 --- /dev/null +++ b/Programe/orapoarte.prg @@ -0,0 +1,2350 @@ +*!* 04.11.2010 +*!* marius.mutu +*!* fisa_cont_noua +*!* fisa de cont in valuta nedefalcata pe conturi corespondente +*!* am pus suma pe fiecare document pe debit sau pe credit, in functie de tipul contului +*!* doar la documentele care au si debit si credit +*!* #2756 Conpress + +*!* 08.12.2010 +*!* *!* marius.mutu +*!* list_inventar_p +*!* listare sold 0 (fara documente) + export XLS (goExport.export2frx) +*!* # 2804 Conpress + +*!* 08.12.2010 +*!* marius.mutu +*!* fisa_cont_noua +*!* soldul precedent se reseteaza la schimbarea lunii = precdeb-preccred, in loc de soldul cumulat de la operatia precedenta +*!* in fisegrup3.frx - totalurile lunare se calculeaza din sumele afisate in tabel, in loc de totdeb si totcred +*!* daca totdeb si totcred nu sunt corect initializate in balanta parteneri, nu mai dau matematic cu sumele din tabel + +*!* 24.10.2011 +*!* marius.mutu +*!* raport_regvanz2007_restrans +*!* am corectat selectia + +*!* 18.11.2011 +*!* marius.mutu +*!* fisa_cont_noua +*!* fisa de cont se listeaza cu foxypreviewer + +*!* 08.02.2013 +*!* marius.mutu +*!* raport_regvanz2007_restrans +*!* TVA INCASARE + +*!* 25.06.2014 +*!* marius.mutu +*!* fisa_cont_noua: +*!* se tine cont si de analiticul ales +*!* optiune daca se calculeaza sau nu sold documente + +*!* 25.01.2017 +*!* marius.mutu +*!* raport_regvanz2007_restrans +*!* + RO19NB, RO19NT + + +*!* 02.01.2018 +*!* marius.mutu +*!* + TVADefalcatIncasariBanca +*!* Raport facturi incasate in luna curenta prin banca (conturi curente, conturi TVA) + baza/tva din registrul de vanzari +*!* contine atentionari la facturile care nu sunt incasate corect baza/tva in contul curent/TVA + +*!* 15.01.2018 +*!* marius.mutu +*!* TVADefalcatIncasariBanca +*!* inainte sa defalc suma incasata curent pe cote tva, diminuez sumele pe cote TVA cu suma incasata anterior + +*!* 05.03.2018 +*!* marius.mutu +*!* + TVADefalcatFacturiFurnizori tva defalcat pentru soldul facturilor de funizori +*!* TVADefalcatIncasariBanca + stare tva, splittva, tva incasare, inactiv + +*!* 07.03.2018 +*!* marius.mutu +*!* TVADefalcatIncasariBanca - 5121/5311 = 473 operare monetare Conpress + +*!* 13.03.2018 +*!* marius.mutu +*!* TVADefalcatIncasariPlati +*!* s-au inclus si incasari de tipul 5311/473 = 4111... pentru bonurile fiscale Conpress Group +*!* se poate genera si raportul pentru plati din casa 401 ... = 5311 + +*!* TVADefalcatIncasariPlati +*!* 473 doar daca este raportul de incasari casa lei 5311, nu si pentru banca lei 5121 +*!* + se includ si incasari/plati la 4511 +*!* TVADefalcatFacturiFurnizori +*!* se poate defalca o valoare diferita de sold, pentru o singura factura + +*!* 22.03.2018 +*!* marius.mutu +*!* TVADefalcatFacturi, TVADefalcatIncasariPlati - facturi, incasari doar de pe sucursala curenta; corectat sold baza si sold tva cu suma incasata anterior +*!* TVADefalcatFacturi - si facturi clienti, nu doar furnizori, doar facturi cu sold + +*!* 23.03.2018 +*!* marius.mutu +*!* TVADefalcatIncasariPlati +*!* se iau in considerare si platile din 542 la platile din casa + +*!* 28.03.2018 +*!* marius.mutu +*!* TVADefalcatIncasariPlati +*!* se tine cont de sucursala si analiticul contului 4111.. la join incasari cu facturi + +*!* 29.03.2018 +*!* marius.mutu +*!* TVADefalcatIncasariPlati +*!* se tine cont de contul 5126 la incasarile prin banca 5121 - nu apareau incasarile prin 5126 + +*!* 30.03.2018 +*!* marius.mutu +*!* TVADefalcatIncasariPlati +*!* corectat eroare iif + +*!* 03.04.2018 +*!* marius.mutu +*!* TVADefalcatIncasariPlati +*!* corectat defalcare incasari/plati cu semn diferit fata de semnul facturii + +*!* 11.07.2018 +*!* marius.mutu +*!* fisa_cont_noua - denumirea contului + +*!* 10.06.2019 +*!* marius.mutu +*!* fisa_cont_noua - lucrare este acum camp distinct pentru exportul xls + +*!* 24.11.2025 +*!* fisa_cont_noua - MAX(LEFT(explicatia,255)) rezolvat eroare la group by mai mare de 255 caractere + +#Define ListenerPreview 1 +************************************ +**** procedura viz_form_rapbal ***** +************************************ +Procedure viz_form_rapbal + Parameters tcRaport + + *!* PRIVATE T, lccont1, lccont2 + *!* STORE '' TO lccont1, lccont2 + *!* T='.t.' + lnLuna = gnLuna + lnAn = gnAn + Do make_tbalanta With .F., lnLuna, lnAn, lnLuna, lnAn + If glEMama + Select * From tbalanta Where Inlist(BNIVEL, 6, 7) Into Cursor tbalanta Readwrite + Endif + orap_bal = Createobject("frm_rap_balana") + orap_bal.raport = tcRaport + orap_bal.Show(1) + Use In tbalanta + +Endproc +******* sfartsit viz_form_rapbal + + +************************************ +**** procedura viz_form_rapjurnal ***** +************************************ +Procedure viz_form_rapjurnal + Parameters tcRaport + + *!* PRIVATE poregjur, pcschema, pclcampuri + *!* STORE '' TO poregjur + + *!* pcschema=['LUNA N(2),AN N(4),NRACT N(14),DATAACT D,EXPLICATIA C(150),'+]+; + *!* ['SCD C(4),ASCD C(4),SCC C(4), ASCC C(4),SUMA N(19,gnPa),PERECHED N(14),PERECHEC N(14),'+]+; + *!* ['NRORD C(30),PARTC C(50),PARTD C(50),FDOC C(30),'+]+; + *!* ['EXPLICATIA4 C(100),EXPLICATIA5 C(100)',id_valuta n(5),suma_val n(16,gnPval),curs n(6,gnPcurs),nume_val c(10)] + *!* pclcampuri = [LUNA, AN, NRACT, DATAACT, NVL(EXPLICATIA,' '), SCD, ASCD, SCC, ASCC, SUMA, ] + ; + *!* [PERECHED, PERECHEC, NVL(NRORD,' '), NVL(PARTC,' '), NVL(PARTD,' '), NVL(FDOC,' '), ] +; + *!* [NVL(EXPLICATIA4,' '), NVL(EXPLICATIA5,' '),NVL(id_valuta,0), suma_val, curs, nume_val ] + + *!* pcselect=["select ] + pclcampuri + [ from ] + gcS + [.vact where 1=2"] + *!* *pcfiltru=[luna=]+ALLTRIM(STR(gnluna))+[ and an=]+ALLTRIM(STR(gnan)) + *!* pcFiltru = [1=1] + + *!* IF AT([6;],gcAcces)>0 + *!* pcfiltru = pcfiltru + [ AND ID_UTIL=]+ALLTRIM(STR(gnidutil))+[ ] + *!* ENDIF + + *!* pcorder=[dataact] + *!* llAfisare=.F. + *!* gencursor('poregjur','regjurnal',pcselect,pcfiltru,pcschema,pcorder,llAfisare) + *!* *!* poregjur.ca_baza1.afisare() + *!* SELECT * FROM regjurnal1 INTO CURSOR regjurnal READWRITE + *!* SELECT regjurnal + + orap_jurnal = Createobject("frm_rap_jurnal") + orap_jurnal.raport = tcRaport + *!* orap_jurnal.oObj = [poregjur] + *!* orap_jurnal.ctabel = [regjurnal] + *!* orap_jurnal.cFiltru = pcFiltru + orap_jurnal.Show(1) + *USE IN regjurnal + +Endproc +******* sfartsit viz_form_rapjurnal + + +******************************************* INCEPUT:fisa_cont_noua ****************** +Procedure fisa_cont_noua + *!* modificare v 2.0.58 + Lparameters tlInValuta + *!* modificare v 2.0.58 ^ + + *!* modificare v 2.0.64 - 12.09.2008 + * Fisa contului pt. toate conturile unui partener + * adaugat in selectia lcSqlT coloana cont + * ramuri pt. empty(cont) + Local llConturiCorespondente, llDocumenteSold, llLucrari + llConturiCorespondente = .T. + llDocumenteSold = .F. + llLucrari = .F. && defalcare dupa lucrari + gnbuton = 2 + Private xrec, pnOptiune, plExcel + Store 1 To pnOptiune && modificare v 2.0.125 + Store .F. To plExcel + xrec = Createobject('custom') + xrec.AddProperty('id_part', '0') + xrec.AddProperty('cont', '') + xrec.AddProperty('acont', '') + xrec.AddProperty('dencont', '') + xrec.AddProperty('lunai', Padl(Alltrim(Str(gnLuna)), 2, '0')) + xrec.AddProperty('lunaf', Padl(Alltrim(Str(gnLuna)), 2, '0')) + xrec.AddProperty('activ', '') + xrec.AddProperty('ani', Alltrim(Str(gnAn))) + xrec.AddProperty('anf', Alltrim(Str(gnAn))) + xrec.AddProperty('numepart', '') + *!* modificare v 2.0.58 + xrec.AddProperty('in_valuta', Iif(tlInValuta, 1, 0)) + xrec.AddProperty('id_valuta', 0) + xrec.AddProperty('nume_val', [LEI]) + xrec.AddProperty('conturicorespondente', m.llConturiCorespondente) + xrec.AddProperty('documentesold', m.llDocumenteSold) && daca se calculeaza sold pe documente (valabil doar pentru conturicorespondente = .F.) + xrec.AddProperty('lucrari', m.llLucrari) + + If xrec.in_valuta = 1 + Local loCauta + loCauta = caut_valuta(.F., .F., .T.) + If gnbuton = 1 + xrec.id_valuta = loCauta.id_valuta + xrec.nume_val = loCauta.nume_val + gnbuton = 2 + Release loCauta + Else + Release loCauta + Return + Endif + Endif + *!* modificare v 2.0.58 ^ + + Do Form fisa_cont_noua Noshow Name loFisaCont Linked + loFisaCont.clb_luna_intre1.tx_n1.Value = xrec.lunai + xrec.ani + loFisaCont.clb_luna_intre1.tx_n2.Value = xrec.lunaf + xrec.anf + loFisaCont.Show(1) + + If Used('v_nom_cont') + Use In v_nom_cont + Endif + If Used('v_acont_tot') + Use In v_acont_tot + Endif + If Used('v_nom_cont') + Use In v_nom_cont + Endif + If gnbuton = 2 + Return + Endif + + Local loTherm, lcTask, lnPercent, lnSeconds, x, i + i = 0 + loTherm = Newobject("_thermometer", "_therm", "", 'FISA CONT ' + xrec.Cont) + lcTask = "Progres" + loTherm.Show() + + If Empty(xrec.Cont) And xrec.id_part = "0" && si + AMESSAGEBOX('Alegeti partenerul!', 0 + 48, 'Atentie') + Return + Endif + + llConturiCorespondente = xrec.conturicorespondente + llDocumenteSold = xrec.documentesold + llLucrari = xrec.lucrari + + xrec.Cont = Alltrim(Nvl(xrec.Cont, '')) + xrec.acont = Alltrim(Nvl(xrec.acont, '')) + lcBal = IIF(LEFT(xrec.cont,1) = '8', 'vbal_c8', IIF(LEFT(xrec.cont,1) = '9', 'vbal_c9', 'vbal')) + lcBalana = IIF(LEFT(xrec.cont,1) = '8', 'vbalana_c8', IIF(LEFT(xrec.cont,1) = '9', 'vbalana_c9', 'vbalana')) + xrec.id_part = Alltrim(xrec.id_part) + lcNrLuni1 = Transform(Val(xrec.ani) * 12 + Val(xrec.lunai)) + lcNrLuni2 = Transform(Val(xrec.anf) * 12 + Val(xrec.lunaf)) + + && explicatia = partener ( partd) ,partener coresp ,explicatia,explicatie4 si explicatie 5 + *!* modificare v 2.0.58 + *!* lcPrecDeb = [pack_sesiune.suma_ron(a.precdeb,a.an,a.luna,] + Alltrim(Str(gnpa)) + [)] + *!* lcPrecCred = [pack_sesiune.suma_ron(a.preccred,a.an,a.luna,] + Alltrim(Str(gnpa)) + [)] + *!* lcRulDeb = [pack_sesiune.suma_ron(a.ruldeb,a.an,a.luna,] + Alltrim(Str(gnpa)) + [)] + *!* lcRulCred = [pack_sesiune.suma_ron(a.rulcred,a.an,a.luna,] + Alltrim(Str(gnpa)) + [)] + *!* lcTotDeb = [pack_sesiune.suma_ron(a.totdeb,a.an,a.luna,] + Alltrim(Str(gnpa)) + [)] + *!* lcTotCred = [pack_sesiune.suma_ron(a.totcred,a.an,a.luna,] + Alltrim(Str(gnpa)) + [)] + *!* lcSumaAct = [pack_sesiune.suma_ron(a.suma,a.an,a.luna,] + Alltrim(Str(gnpa)) + [)] + *!* lcBal = [vbal] + *!* in valuta : + *!* lcPrecDeb = [a.precvaldeb] + *!* lcPrecCred = [a.precvalcred] + *!* lcRulDeb = [a.valdebit] + *!* lcRulCred = [a.valcredit] + *!* lcTotDeb = [a.totvaldeb] + *!* lcTotCred = [a.totvalcred] + *!* lcSumaAct = [a.suma_val] + *!* lcBal = [vbalanta_parteneri] + + *!* modificare v 2.0. + *!* am adaugat in lcSqlT "||' ; '|| TRIM(a.explicatia4)" pe coloana "explicatia" + If xrec.in_valuta = 1 + lcSql = [select a.cont,] + ; + [SUM(a.precvaldeb) as precdeb,] + ; + [SUM(a.precvalcred) as preccred,] + ; + [SUM(a.valdebit) as ruldeb,] + ; + [SUM(a.valcredit) as rulcred,] + ; + [SUM(a.totvaldeb) as totdeb,] + ; + [SUM(a.totvalcred) as totcred,] + ; + [a.luna,a.an from ] + If xrec.id_part <> "0" + * Cu partener + If Empty(xrec.Cont) && "" *!* modificare v 2.0.64 + * Fara Cont + lcSqlT = [select a.an,a.luna,a.nract,a.serie_act,a.dataact,a.dataireg,a.fdoc, ] + ; + [decode(a.id_partd,] + xrec.id_part + [,a.suma_val,0) as debit,] + ; + [decode(a.id_partc,] + xrec.id_part + [,a.suma_val,0) as credit,] + ; + [decode(a.id_partd,] + xrec.id_part + [,a.scd,a.scc) as cont,] + ; + [decode(a.id_partd,] + xrec.id_part + [,a.ascd,a.ascc) as ana_cont,] + ; + [decode(a.id_partd,] + xrec.id_part + [,a.scc,a.scd) as cont_cor,] + ; + [decode(a.id_partd,] + xrec.id_part + [,a.ascc,a.ascd) as ana_coresp,] + ; + [NVL(partd,'') || (case when partc is not null then ', ' || NVL(partc,' ') else '' end) || ] + ; + [(case when a.nresp is not null then '; ' || TRIM(a.nresp) else '' end) || ] + ; + [(case when a.nrord is not null then '; ' || TRIM(a.nrord) else '' end) || ] + ; + [(case when a.explicatia is not null then '; ' || TRIM(a.explicatia) else '' end) || ] + ; + [(case when a.explicatia4 is not null then '; '|| TRIM(a.explicatia4) else '' end) as explicatia, ] + ; + iif(m.llLucrari, 'a.nrord' , ['']) + [ as lucrare] + ; + [ from ] + Else + * Cu Cont + lcSqlT = [select a.an,a.luna,a.nract,a.serie_act,a.dataact,a.dataireg,a.fdoc, ] + ; + [ (case when a.id_partd = ] + xrec.id_part + [ and a.scd= '] + xrec.Cont + ['] + Iif(!Empty(xrec.acont), [ and a.ascd = '] + xrec.acont + ['], []) + [ then a.suma_val else 0 end) as debit, ] + ; + [ (case when a.id_partc = ] + xrec.id_part + [ and a.scc= '] + xrec.Cont + ['] + Iif(!Empty(xrec.acont), [ and a.ascc = '] + xrec.acont + ['], []) + [ then a.suma_val else 0 end) as credit, ] + ; + [decode(a.scd,'] + xrec.Cont + [',a.scd,a.scc) as cont,] + ; + [decode(a.scd,'] + xrec.Cont + [',a.ascd,a.ascc) as ana_cont,] + ; + [decode(a.scd,'] + xrec.Cont + [',a.scc,a.scd) as cont_cor,] + ; + [decode(a.scd,'] + xrec.Cont + [',a.ascc,a.ascd) as ana_coresp,] + ; + [NVL(partd,'') || (case when partc is not null then ', ' || NVL(partc,' ') else '' end) || ] + ; + [(case when a.nresp is not null then '; ' || TRIM(a.nresp) else '' end) || ] + ; + [(case when a.nrord is not null then '; ' || TRIM(a.nrord) else '' end) || ] + ; + [(case when a.explicatia is not null then '; ' || TRIM(a.explicatia) else '' end) || ] + ; + [(case when a.explicatia4 is not null then '; '|| TRIM(a.explicatia4) else '' end) as explicatia, ] + ; + iif(m.llLucrari, 'a.nrord' , ['']) + [ as lucrare] + ; + [ from ] + Endif && Empty(xrec.Cont) + Else + * Fara partener + lcSqlT = [select a.an,a.luna,a.nract,a.serie_act,a.dataact,a.dataireg,a.fdoc, ] + ; + [case when a.scd= '] + xrec.Cont + ['] + Iif(!Empty(xrec.acont), [ and a.ascd = '] + xrec.acont + ['], []) + [ then a.suma_val else 0 end as debit,] + ; + [case when a.scc= '] + xrec.Cont + ['] + Iif(!Empty(xrec.acont), [ and a.ascc = '] + xrec.acont + ['], []) + [ then a.suma_val else 0 end as credit,] + ; + [decode(a.scd,'] + xrec.Cont + [',a.scd,a.scc) as cont,] + ; + [decode(a.scd,'] + xrec.Cont + [',a.ascd,a.ascc) as ana_cont,] + ; + [decode(a.scd,'] + xrec.Cont + [',a.scc,a.scd) as cont_cor,] + ; + [decode(a.scd,'] + xrec.Cont + [',a.ascc,a.ascd) as ana_coresp,] + ; + [NVL(partd,'') || (case when partc is not null then ', ' || NVL(partc,' ') else '' end) || ] + ; + [(case when a.nresp is not null then '; ' || TRIM(a.nresp) else '' end) || ] + ; + [(case when a.nrord is not null then '; ' || TRIM(a.nrord) else '' end) || ] + ; + [(case when a.explicatia is not null then '; ' || TRIM(a.explicatia) else '' end) || ] + ; + [(case when a.explicatia4 is not null then '; '|| TRIM(a.explicatia4) else '' end) as explicatia, ] + ; + iif(m.llLucrari, 'a.nrord' , ['']) + [ as lucrare] + ; + [ from ] + + Endif && xrec.id_part <> "0" + + *** Sold initial + Do Case + Case xrec.id_part = '0' + If Empty(Nvl(xrec.acont, '')) Or Nvl(xrec.acont, '') = '-1' + lcSql = lcSql + ; + [vbalanta_parteneri a where a.cont = '] + xrec.Cont + [' and ] + ; + [(a.an * 12 + a.luna between ] + lcNrLuni1 + [ and ] + lcNrLuni2 + [) and a.id_valuta = ] + Alltrim(Str(xrec.id_valuta)) + ; + Strtran(gcCondSucursala, [id_sucursala], [a.id_sucursala]) + ; + [ group by a.cont,a.an,a.luna] + + lcSqlT = lcSqlT + ; + [vact a where (a.scd = '] + xrec.Cont + [' or a.scc = '] + xrec.Cont + [') and ] + ; + [(a.an * 12 + a.luna between ] + lcNrLuni1 + [ and ] + lcNrLuni2 + [) and a.id_valuta = ] + Alltrim(Str(xrec.id_valuta)) + ; + Strtran(gcCondSucursala, [id_sucursala], [a.id_sucursala]) + Else + lcSql = lcSql + ; + [vbalanta_parteneri a where a.cont = '] + xrec.Cont + [' and a.acont = '] + xrec.acont + ; + [' and a.an * 12 + a.luna between ] + lcNrLuni1 + [ and ] + lcNrLuni2 + [ and a.id_valuta = ] + Alltrim(Str(xrec.id_valuta)) + ; + Strtran(gcCondSucursala, [id_sucursala], [a.id_sucursala]) + ; + [ group by a.cont,a.acont,a.luna,a.an] + + lcSqlT = lcSqlT + ; + [vact a where ((a.scd = '] + xrec.Cont + [' and a.ascd = '] + xrec.acont + [') or (a.scc = '] + ; + xrec.Cont + [' and a.ascc = '] + xrec.acont + [')) and ] + ; + [(a.an * 12 + a.luna between ] + lcNrLuni1 + [ and ] + lcNrLuni2 + [) and a.id_valuta = ] + Alltrim(Str(xrec.id_valuta)) + ; + Strtran(gcCondSucursala, [id_sucursala], [a.id_sucursala]) + Endif + Case Empty(Nvl(xrec.acont, '')) Or Nvl(xrec.acont, '') = '-1' + If Empty(xrec.Cont) && "" *!* modificare v 2.0.64 + lcSql = [select a.cont,] + ; + [SUM(a.precvaldeb) as precdeb,] + ; + [SUM(a.precvalcred) as preccred,] + ; + [SUM(a.valdebit) as ruldeb,] + ; + [SUM(a.valcredit) as rulcred,] + ; + [SUM(a.precvaldeb + a.valdebit) as totdeb,] + ; + [SUM(a.precvalcred + a.valcredit) as totcred,] + ; + [a.luna,a.an from ] + ; + [vbalanta_parteneri a where a.id_part = ] + xrec.id_part + [ and ] + ; + [(a.an * 12 + a.luna between ] + lcNrLuni1 + [ and ] + lcNrLuni2 + [) and a.id_valuta = ] + Alltrim(Str(xrec.id_valuta)) + ; + Strtran(gcCondSucursala, [id_sucursala], [a.id_sucursala]) + ; + [ group by a.cont,a.id_part,a.an,a.luna] + + lcSqlT = lcSqlT + ; + [vact a where (a.id_partd = ] + xrec.id_part + [ or a.id_partc = ] + xrec.id_part + [) ] + ; + [and (a.an * 12 + a.luna between ] + lcNrLuni1 + [ and ] + lcNrLuni2 + [) ] + ; + [and a.id_valuta = ] + Alltrim(Str(xrec.id_valuta)) + ; + Strtran(gcCondSucursala, [id_sucursala], [a.id_sucursala]) + + Else + lcSql = [select a.cont,] + ; + [SUM(a.precvaldeb) as precdeb,] + ; + [SUM(a.precvalcred) as preccred,] + ; + [SUM(a.valdebit) as ruldeb,] + ; + [SUM(a.valcredit) as rulcred,] + ; + [SUM(a.precvaldeb + a.valdebit) as totdeb,] + ; + [SUM(a.precvalcred + a.valcredit) as totcred,] + ; + [a.luna,a.an from ] + ; + [vbalanta_parteneri a where a.cont = '] + xrec.Cont + [' and a.id_part = ] + xrec.id_part + [ and ] + ; + [(a.an * 12 + a.luna between ] + lcNrLuni1 + [ and ] + lcNrLuni2 + [) and a.id_valuta = ] + Alltrim(Str(xrec.id_valuta)) + ; + Strtran(gcCondSucursala, [id_sucursala], [a.id_sucursala]) + ; + [ group by a.cont,a.id_part,a.an,a.luna] + + lcSqlT = lcSqlT + ; + [vact a where ((a.id_partd = ] + xrec.id_part + [ AND a.scd = '] + xrec.Cont + [') or (a.id_partc = ] + xrec.id_part + [ AND a.scc = '] + xrec.Cont + [')) ] + ; + [and (a.an * 12 + a.luna between ] + lcNrLuni1 + [ and ] + lcNrLuni2 + [) ] + ; + [and a.id_valuta = ] + Alltrim(Str(xrec.id_valuta)) + ; + Strtran(gcCondSucursala, [id_sucursala], [a.id_sucursala]) + Endif + Otherwise + lcSql = [select a.cont,] + ; + [SUM(a.precvaldeb) as precdeb,] + ; + [SUM(a.precvalcred) as preccred,] + ; + [SUM(a.valdebit) as ruldeb,] + ; + [SUM(a.valcredit) as rulcred,] + ; + [SUM(a.precvaldeb + a.valdebit) as totdeb,] + ; + [SUM(a.precvalcred + a.valcredit) as totcred,] + ; + [a.luna,a.an from ] + ; + [vbalanta_parteneri a where a.cont = '] + xrec.Cont + [' and a.acont = '] + xrec.acont + ; + [' and a.id_part = ] + xrec.id_part + [ and ] + ; + [(a.an * 12 + a.luna between ] + lcNrLuni1 + [ and ] + lcNrLuni2 + [) and a.id_valuta = ] + Alltrim(Str(xrec.id_valuta)) + ; + Strtran(gcCondSucursala, [id_sucursala], [a.id_sucursala]) + ; + [ group by a.cont,a.id_part,a.acont,a.an,a.luna] + + lcSqlT = lcSqlT + ; + [vact a where ((a.id_partd=] + xrec.id_part + [ AND a.scd = '] + xrec.Cont + [' and a.ascd = '] + xrec.acont + [') or ] + ; + [(a.id_partc = ] + xrec.id_part + [ AND a.scc = '] + xrec.Cont + [' and a.ascc = '] + xrec.acont + [')) AND ] + ; + [(a.an * 12 + a.luna between ] + lcNrLuni1 + [ and ] + lcNrLuni2 + [) and a.id_valuta = ] + Alltrim(Str(xrec.id_valuta)) + ; + Strtran(gcCondSucursala, [id_sucursala], [a.id_sucursala]) + Endcase + Else + *** Suma in lei + *!* modificare v 2.0.58 ^ + lcSql = [select a.cont,] + ; + [SUM(pack_sesiune.suma_ron(a.precdeb,a.an,a.luna,] + Alltrim(Str(gnpa)) + [)) as precdeb,] + ; + [SUM(pack_sesiune.suma_ron(a.preccred,a.an,a.luna,] + Alltrim(Str(gnpa)) + [)) as preccred,] + ; + [SUM(pack_sesiune.suma_ron(a.ruldeb,a.an,a.luna,] + Alltrim(Str(gnpa)) + [)) as ruldeb,] + ; + [SUM(pack_sesiune.suma_ron(a.rulcred,a.an,a.luna,] + Alltrim(Str(gnpa)) + [)) as rulcred,] + ; + [SUM(pack_sesiune.suma_ron(a.totdeb,a.an,a.luna,] + Alltrim(Str(gnpa)) + [)) as totdeb,] + ; + [SUM(pack_sesiune.suma_ron(a.totcred,a.an,a.luna,] + Alltrim(Str(gnpa)) + [)) as totcred,] + ; + [a.luna,a.an from ] + + If xrec.id_part <> "0" + *!* modificare v 2.0.58 aveam coloana credit inca o data : + *!* [ decode(a.scc,'] + xrec.Cont + [',pack_sesiune.suma_ron(a.suma,a.an,a.luna,] + Alltrim(Str(gnpa)) + [),0) as credit,] + *!* modificare v 2.0.58 ^ + * Cu partener + If Empty(xrec.Cont) && "" *!* modificare v 2.0.64 + * Fara cont + lcSqlT = [select a.an,a.luna,a.nract,a.serie_act,a.dataact,a.dataireg,a.fdoc, ] + ; + [ (case when a.id_partd =] + xrec.id_part + [ then ] + ; + [ pack_sesiune.suma_ron(a.suma,a.an,a.luna,] + Alltrim(Str(gnpa)) + [) else 0 end) as debit, ] + ; + [ (case when a.id_partc =] + xrec.id_part + [ then ] + ; + [ pack_sesiune.suma_ron(a.suma,a.an,a.luna,] + Alltrim(Str(gnpa)) + [) else 0 end) as credit, ] + ; + [decode(a.id_partd,'] + xrec.id_part + [',a.scd,a.scc) as cont,] + ; + [decode(a.id_partd,'] + xrec.id_part + [',a.ascd,a.ascc) as ana_cont,] + ; + [decode(a.id_partd,'] + xrec.id_part + [',a.scc,a.scd) as cont_cor,] + ; + [decode(a.id_partd,'] + xrec.id_part + [',a.ascc,a.ascd) as ana_coresp,] + ; + [NVL(partd,'') || (case when partc is not null then ', ' || NVL(partc,' ') else '' end) || ] + ; + [(case when a.nresp is not null then '; ' || TRIM(a.nresp) else '' end) || ] + ; + [(case when a.nrord is not null then '; ' || TRIM(a.nrord) else '' end) || ] + ; + [(case when a.explicatia is not null then '; ' || TRIM(a.explicatia) else '' end) || ] + ; + [(case when a.explicatia4 is not null then '; '|| TRIM(a.explicatia4) else '' end) as explicatia, ] + ; + iif(m.llLucrari, 'a.nrord' , ['']) + [ as lucrare] + ; + [ from ] + Else + * Cu cont + lcSqlT = [select a.an,a.luna,a.nract,a.serie_act,a.dataact,a.dataireg,a.fdoc, ] + ; + [ (case when a.id_partd =] + xrec.id_part + [ and a.scd= '] + xrec.Cont + ['] + Iif(!Empty(xrec.acont), [ and a.ascd = '] + xrec.acont + ['], []) + [ then ] + ; + [ pack_sesiune.suma_ron(a.suma,a.an,a.luna,] + Alltrim(Str(gnpa)) + [) else 0 end) as debit, ] + ; + [ (case when a.id_partc =] + xrec.id_part + [ and a.scc= '] + xrec.Cont + ['] + Iif(!Empty(xrec.acont), [ and a.ascc = '] + xrec.acont + ['], []) + [ then ] + ; + [ pack_sesiune.suma_ron(a.suma,a.an,a.luna,] + Alltrim(Str(gnpa)) + [) else 0 end) as credit, ] + ; + [decode(a.scd,'] + xrec.Cont + [',a.scd,a.scc) as cont,] + ; + [decode(a.scd,'] + xrec.Cont + [',a.ascd,a.ascc) as ana_cont,] + ; + [decode(a.scd,'] + xrec.Cont + [',a.scc,a.scd) as cont_cor,] + ; + [decode(a.scd,'] + xrec.Cont + [',a.ascc,a.ascd) as ana_coresp,] + ; + [NVL(partd,'') || (case when partc is not null then ', ' || NVL(partc,' ') else '' end) || ] + ; + [(case when a.nresp is not null then '; ' || TRIM(a.nresp) else '' end) || ] + ; + [(case when a.nrord is not null then '; ' || TRIM(a.nrord) else '' end) || ] + ; + [(case when a.explicatia is not null then '; ' || TRIM(a.explicatia) else '' end) || ] + ; + [(case when a.explicatia4 is not null then '; '|| TRIM(a.explicatia4) else '' end) as explicatia, ] + ; + iif(m.llLucrari, 'a.nrord' , ['']) + [ as lucrare] + ; + [ from ] + Endif && Empty(xrec.Cont) + Else + * Fara partener + lcSqlT = [select a.an,a.luna,a.nract,a.serie_act,a.dataact,a.dataireg,a.fdoc,] + ; + [case when a.scd= '] + xrec.Cont + ['] + Iif(!Empty(xrec.acont), [ and a.ascd = '] + xrec.acont + ['], []) + [ then pack_sesiune.suma_ron(a.suma,a.an,a.luna,] + Alltrim(Str(gnpa)) + [) else 0 end as debit,] + ; + [case when a.scc= '] + xrec.Cont + ['] + Iif(!Empty(xrec.acont), [ and a.ascc = '] + xrec.acont + ['], []) + [ then pack_sesiune.suma_ron(a.suma,a.an,a.luna,] + Alltrim(Str(gnpa)) + [) else 0 end as credit,] + ; + [decode(a.scd,'] + xrec.Cont + [',a.scd,a.scc) as cont,] + ; + [decode(a.scd,'] + xrec.Cont + [',a.ascd,a.ascc) as ana_cont,] + ; + [decode(a.scd,'] + xrec.Cont + [',a.scc,a.scd) as cont_cor,] + ; + [decode(a.scd,'] + xrec.Cont + [',a.ascc,a.ascd) as ana_coresp,] + ; + [NVL(partd,'') || (case when partc is not null then ', ' || NVL(partc,' ') else '' end) || ] + ; + [(case when a.nresp is not null then '; ' || TRIM(a.nresp) else '' end) || ] + ; + [(case when a.nrord is not null then '; ' || TRIM(a.nrord) else '' end) || ] + ; + [(case when a.explicatia is not null then '; ' || TRIM(a.explicatia) else '' end) || ] + ; + [(case when a.explicatia4 is not null then '; '|| TRIM(a.explicatia4) else '' end) as explicatia, ] + ; + iif(m.llLucrari, 'a.nrord' , ['']) + [ as lucrare] + ; + [ from ] + Endif && xrec.id_part <> "0" + + + Do Case + Case xrec.id_part = '0' + If Empty(Nvl(xrec.acont, '')) Or Nvl(xrec.acont, '') = '-1' + lcSql = lcSql + ; + m.lcBal + [ a where a.cont = '] + xrec.Cont + [' and ] + ; + [(a.an * 12 + a.luna between ] + lcNrLuni1 + [ and ] + lcNrLuni2 + [) ] + ; + Strtran(gcCondSucursala, [id_sucursala], [a.id_sucursala]) + ; + [ group by a.cont,a.an,a.luna] + + lcSqlT = lcSqlT + ; + [vact a where (a.scd = '] + xrec.Cont + [' or a.scc = '] + xrec.Cont + [') and ] + ; + [(a.an * 12 + a.luna between ] + lcNrLuni1 + [ and ] + lcNrLuni2 + [) ] + ; + Strtran(gcCondSucursala, [id_sucursala], [a.id_sucursala]) + Else + lcSql = lcSql + ; + m.lcBalana + [ a where a.cont = '] + xrec.Cont + [' and a.acont = '] + xrec.acont + ; + [' and ] + ; + [(a.an * 12 + a.luna between ] + lcNrLuni1 + [ and ] + lcNrLuni2 + [) ] + ; + Strtran(gcCondSucursala, [id_sucursala], [a.id_sucursala]) + ; + [ group by a.cont,a.acont,a.luna,a.an] + + lcSqlT = lcSqlT + ; + [vact a where ((a.scd = '] + xrec.Cont + [' and a.ascd = '] + xrec.acont + [') or (a.scc = '] + ; + xrec.Cont + [' and a.ascc = '] + xrec.acont + [')) and ] + ; + [(a.an * 12 + a.luna between ] + lcNrLuni1 + [ and ] + lcNrLuni2 + [) ] + ; + Strtran(gcCondSucursala, [id_sucursala], [a.id_sucursala]) + Endif + Case Empty(Nvl(xrec.acont, '')) Or Nvl(xrec.acont, '') = '-1' + + If Empty(xrec.Cont) && "" + lcSql = [select a.cont,] + ; + [SUM(pack_sesiune.suma_ron(a.precdeb,a.an,a.luna,] + Alltrim(Str(gnpa)) + [)) as precdeb,] + ; + [SUM(pack_sesiune.suma_ron(a.preccred,a.an,a.luna,] + Alltrim(Str(gnpa)) + [)) as preccred,] + ; + [SUM(pack_sesiune.suma_ron(a.debit,a.an,a.luna,] + Alltrim(Str(gnpa)) + [)) as ruldeb,] + ; + [SUM(pack_sesiune.suma_ron(a.credit,a.an,a.luna,] + Alltrim(Str(gnpa)) + [)) as rulcred,] + ; + [SUM(pack_sesiune.suma_ron(a.precdeb + a.debit,a.an,a.luna,] + Alltrim(Str(gnpa)) + [)) as totdeb,] + ; + [SUM(pack_sesiune.suma_ron(a.preccred + a.credit,a.an,a.luna,] + Alltrim(Str(gnpa)) + [)) as totcred,] + ; + [a.luna,a.an from ] + ; + [vbalanta_parteneri a where id_part = ] + xrec.id_part + [ and ] + ; + [(a.an * 12 + a.luna between ] + lcNrLuni1 + [ and ] + lcNrLuni2 + [) ] + ; + Strtran(gcCondSucursala, [id_sucursala], [a.id_sucursala]) + ; + [ group by a.cont,a.id_part,a.an,a.luna] + + lcSqlT = lcSqlT + ; + [vact a where (a.id_partd = ] + xrec.id_part + ; + [ or a.id_partc = ] + xrec.id_part + [) and ] + ; + [(a.an * 12 + a.luna between ] + lcNrLuni1 + [ and ] + lcNrLuni2 + [) ] + ; + Strtran(gcCondSucursala, [id_sucursala], [a.id_sucursala]) + Else + lcSql = [select a.cont,] + ; + [SUM(pack_sesiune.suma_ron(a.precdeb,a.an,a.luna,] + Alltrim(Str(gnpa)) + [)) as precdeb,] + ; + [SUM(pack_sesiune.suma_ron(a.preccred,a.an,a.luna,] + Alltrim(Str(gnpa)) + [)) as preccred,] + ; + [SUM(pack_sesiune.suma_ron(a.debit,a.an,a.luna,] + Alltrim(Str(gnpa)) + [)) as ruldeb,] + ; + [SUM(pack_sesiune.suma_ron(a.credit,a.an,a.luna,] + Alltrim(Str(gnpa)) + [)) as rulcred,] + ; + [SUM(pack_sesiune.suma_ron(a.precdeb + a.debit,a.an,a.luna,] + Alltrim(Str(gnpa)) + [)) as totdeb,] + ; + [SUM(pack_sesiune.suma_ron(a.preccred + a.credit,a.an,a.luna,] + Alltrim(Str(gnpa)) + [)) as totcred,] + ; + [a.luna,a.an from ] + ; + [vbalanta_parteneri a where a.cont = '] + xrec.Cont + [' and id_part = ] + xrec.id_part + [ and ] + ; + [(a.an * 12 + a.luna between ] + lcNrLuni1 + [ and ] + lcNrLuni2 + [) ] + ; + Strtran(gcCondSucursala, [id_sucursala], [a.id_sucursala]) + ; + [ group by a.cont,a.id_part,a.an,a.luna] + + lcSqlT = lcSqlT + ; + [vact a where ((a.id_partd = ] + xrec.id_part + [ AND a.scd = '] + xrec.Cont + [')] + ; + [ OR (a.id_partc = ] + xrec.id_part + [ and a.scc = '] + xrec.Cont + ['))] + ;&&&&&&&& 25.02.2009 + [ and ] + ; + [(a.an * 12 + a.luna between ] + lcNrLuni1 + [ and ] + lcNrLuni2 + [) ] + ; + Strtran(gcCondSucursala, [id_sucursala], [a.id_sucursala]) + Endif + Otherwise + lcSql = [select a.cont,] + ; + [SUM(pack_sesiune.suma_ron(a.precdeb,a.an,a.luna,] + Alltrim(Str(gnpa)) + [)) as precdeb,] + ; + [SUM(pack_sesiune.suma_ron(a.preccred,a.an,a.luna,] + Alltrim(Str(gnpa)) + [)) as preccred,] + ; + [SUM(pack_sesiune.suma_ron(a.debit,a.an,a.luna,] + Alltrim(Str(gnpa)) + [)) as ruldeb,] + ; + [SUM(pack_sesiune.suma_ron(a.credit,a.an,a.luna,] + Alltrim(Str(gnpa)) + [)) as rulcred,] + ; + [SUM(pack_sesiune.suma_ron(a.precdeb + a.debit,a.an,a.luna,] + Alltrim(Str(gnpa)) + [)) as totdeb,] + ; + [SUM(pack_sesiune.suma_ron(a.preccred + a.credit,a.an,a.luna,] + Alltrim(Str(gnpa)) + [)) as totcred,] + ; + [a.luna,a.an from ] + ; + [vbalanta_parteneri a where a.cont = '] + xrec.Cont + [' and a.acont = '] + xrec.acont + ; + [' and id_part = ] + xrec.id_part + [ and ] + ; + [(a.an * 12 + a.luna between ] + lcNrLuni1 + [ and ] + lcNrLuni2 + [) ] + ; + Strtran(gcCondSucursala, [id_sucursala], [a.id_sucursala]) + ; + [ group by a.cont,a.id_part,a.acont,a.an,a.luna] + + lcSqlT = lcSqlT + ; &&&&&&&&& 25.02.09 + [vact a where ((a.id_partd=] + xrec.id_part + [ AND a.scd = '] + xrec.Cont + [' and a.ascd = '] + xrec.acont + [')] + ; + [ or (a.id_partc = ] + xrec.id_part + [ and a.scc = '] + xrec.Cont + [' and a.ascc = '] + xrec.acont + [')) ] + ; + [ and (a.an * 12 + a.luna between ] + lcNrLuni1 + [ and ] + lcNrLuni2 + [) ] + ; + Strtran(gcCondSucursala, [id_sucursala], [a.id_sucursala]) + Endcase + *!* modificare v 2.0.58 + Endif + *!* modificare v 2.0.58 ^ + + lcCursor = [v_fisa_cont] + lnSucces = goExecutor.oExecute(lcSqlT, lcCursor) + + If lnSucces < 0 + AMESSAGEBOX(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + lcCursor = [v_sold_fisa] + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + AMESSAGEBOX(goExecutor.cEroare, 0 + 16, 'Eroare') + Return + Endif + + If !Empty(xrec.Cont) + lcCursorCont = update_plcont(xrec.Cont, gnAn) + Else + lcCursorCont = update_plcont('', gnAn) + Endif + + + *!* 09.08.2010 + *!* modificare v 2.0.61 : am pus MAX(LEFT(explicatia,500)) in loc de 250 + If !m.llConturiCorespondente + Select an, luna, nract, serie_act, dataact, dataireg, fdoc, Cont, ana_cont, lucrare, Max(Left(explicatia, 255)) As explicatia, '' As cont_cor, '' As ana_coresp, ; + Sum(debit) As debit, Sum(credit) As credit ; + From v_fisa_cont ; + Group By 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 ; + Into Cursor v_fisa_contTemp + Use In (Select('v_fisa_cont')) + + Select * From v_fisa_contTemp Into Cursor v_fisa_cont Readwrite + Use In (Select('v_fisa_contTemp')) + Endif + *!* 09.08.2010 ^ + + Select Nvl(F.Cont, v.Cont) As Cont, ; + Iif(Empty(xrec.Cont), p.tip_sold, xrec.Activ) As tip_sold, ; + CAST(IIF(NVL(f.debit,0)<>0, ALLTRIM(NVL(f.cont,'')) + IIF(!EMPTY(NVL(f.ana_cont,'')), '.' + ALLTRIM(f.ana_cont), ''), ALLTRIM(NVL(f.cont_cor, '')) + IIF(!EMPTY(NVL(f.ana_coresp,'')), '.' + ALLTRIM(f.ana_coresp), '')) as C(10)) as scd, ; + CAST(IIF(NVL(f.credit,0)<>0, ALLTRIM(NVL(f.cont,'')) + IIF(!EMPTY(NVL(f.ana_cont,'')), '.' + ALLTRIM(f.ana_cont), ''), ALLTRIM(NVL(f.cont_cor, '')) + IIF(!EMPTY(NVL(f.ana_coresp,'')), '.' + ALLTRIM(f.ana_coresp), '')) as C(10)) as scc, ; + Nvl(F.an, v.an) As an, ; + Nvl(F.luna, v.luna) As luna, ; + Nvl(F.nract, 00000000000000) As nract, ; + Nvl(Ttod(F.dataact), {}) As dataact, ; + Nvl(F.serie_act, []) As serie_act, ; + Nvl(Ttod(F.dataireg), {}) As dataireg, ; + Nvl(F.fdoc, Space(20)) As fdoc, ; + Nvl(F.debit, 000000000000.0000) As debit, Nvl(F.credit, 000000000000.0000) As credit, ; + F.ana_cont, F.cont_cor, F.ana_coresp, F.explicatia, F.lucrare, ; + v.precdeb, v.preccred, v.ruldeb, v.rulcred, v.totdeb, v.totcred, 00000000000000.0000 As sold_op, ; + 00000000000000.0000 As sold_prec ; && modificare v 2.0.125 + From v_fisa_cont F ; + Right Join v_sold_fisa v On F.luna = v.luna And F.an = v.an And F.Cont = v.Cont ; + Join (lcCursorCont) p On p.Cont = v.Cont ; + Into Cursor fisa_final Readwrite ; + Order By v.Cont, v.an, v.luna, F.dataact, F.nract + *!* SELECT * FROM v_fisa_cont INTO TABLE C:\fisacont.dbf + *!* SELECT * FROM v_sold_fisa INTO TABLE C:\soldfisa.dbf + *!* SELECT * FROM fisa_final INTO TABLE C:\fisafinal.dbf + + *!* 04.11.2010 + If m.llDocumenteSold && !llConturiCorespondente + Update fisa_final Set debit = debit - credit, credit = 0 Where tip_sold = 'A' And debit <> 0 And credit <> 0 + Update fisa_final Set credit = credit - debit, debit = 0 Where tip_sold = 'P' And debit <> 0 And credit <> 0 + Endif + *!* 04.11.2010 ^ + + If Used(lcCursorCont) + Use In (lcCursorCont) + Endif + + Local lnsold, lcCont, lcContPrec, lnSoldPrec && modificare v 2.0.125 : lnSoldPrec + Store '' To lcCont, lcContPrec + + Select fisa_final + x = Reccount() + lnNrLuna = 0 + Scan + lcCont = Cont + If lcCont <> lcContPrec + lcContPrec = lcCont + lnsold = 0 + lnSoldPrec = 0 && modificare v 2.0.125 + Endif + + If Empty(xrec.Cont) + If an * 12 + luna = lnNrLuna + lnsold = lnsold + Iif(xrec.Activ = 'A', 1, -1) * (debit - credit) + Else + lnsold = Iif(xrec.Activ = 'A', 1, -1) * ((precdeb - preccred) + (debit - credit)) + *!* 18.05.2011 + lnSoldPrec = Iif(xrec.Activ = 'A', 1, -1) * (precdeb - preccred) + *!* 18.05.2011 ^ + lnNrLuna = an * 12 + luna + Endif + Else + If an * 12 + luna = lnNrLuna + lnsold = lnsold + Iif(tip_sold = 'P', -1, 1) * (debit - credit) + Else + lnsold = Iif(tip_sold = 'P', -1, 1) * ((precdeb - preccred) + (debit - credit)) + *!* 18.05.2011 + lnSoldPrec = Iif(tip_sold = 'P', -1, 1) * (precdeb - preccred) + *!* 18.05.2011 ^ + lnNrLuna = an * 12 + luna + Endif + Endif + *!* modificare v 2.0.125 + *!* Replace sold_op With lnsold + Replace sold_op With lnsold, sold_prec With lnSoldPrec + lnSoldPrec = lnsold + *!* modificare v 2.0.125 ^ + i = i + 1 + lnPercent = i / x * 100 + loTherm.Update(lnPercent, lcTask) + Select fisa_final + Endscan + + *!* modificare v 2.0.125 + If pnOptiune = 2 + Local lnPrecDeb, lnPrecCred, lcCont + If Used('crstmpsold') + Use In crstmpsold + Endif + Select Distinct precdeb, preccred, Cont From fisa_final Where an = Val(xrec.ani) And luna = Val(xrec.lunai) ; + Into Cursor crstmpsold + Select crstmpsold + *!* SELECT * FROM crstmpsold INTO TABLE C:\crstmpsold.dbf + Scan + lnPrecDeb = precdeb + lnPrecCred = preccred + lcCont = Cont + Select fisa_final + Replace sold_prec With Iif(an = Val(xrec.ani) And luna = Val(xrec.lunai), (-1) * Iif(tip_sold = 'P', lnPrecDeb - lnPrecCred, lnPrecCred - lnPrecDeb), sold_prec), ; + precdeb With precdeb - lnPrecDeb, totdeb With totdeb - lnPrecDeb, ; + preccred With preccred - lnPrecCred, totcred With totcred - lnPrecCred ; + For Cont = lcCont + Select crstmpsold + Endscan + Use In crstmpsold + Release lnPrecDeb, lnPrecCred, lcCont + Else + Select fisa_final + Replace sold_prec With Iif(tip_sold = 'P', - (precdeb - preccred), - (preccred - precdeb)) For an = Val(xrec.ani) And luna = Val(xrec.lunai) + Endif + *!* modificare v 2.0.125 ^ + + *!* Select * From fisa_final Into Table c:\fisa_final.Dbf + + loTherm.Complete() + Release loTherm + + If Used('v_sold_fisa') + Use In v_sold_fisa + Endif + + If Used('v_fisa_cont') + Use In v_fisa_cont + Endif + + *!* modificare v 2.0.125 + If !m.plExcel + *!* modificare v 2.0.125 ^ + *!* modificare v 2.0.58 + *!* pctitlu = "FISA CONTULUI " + xrec.Cont + Iif(!Empty(xrec.acont) And xrec.acont#'-1'," . " + xrec.acont,'') + pctitlu = "FISA CONTULUI " + ALLTRIM(xrec.Cont) + Iif(!Empty(Nvl(xrec.acont, '')) And Nvl(xrec.acont, '') # '-1', " . " + ALLTRIM(xrec.acont), '') + [ - ] + ALLTRIM(NVL(xrec.dencont,'')) + [ - ] + xrec.nume_val + *!* modificare v 2.0.58 ^ + *!* 18.11.2011 + goExport.export2frx([fisa_final], [fisegrup3], , , , , , .T.) + *!* 18.11.2011 ^ + plExcel = (AMESSAGEBOX('Doriti export in format xls?',4+32,_screen.Caption) = 6) + ENDIF + + If m.plExcel + Create Cursor inregistrari_fisa(fdoc c(60) Null, dataact d Null, dataireg d Null, serie_act c(20) Null, nract N(20) Null, explicatia c(200) Null, debit N(14, gnpa) Null, credit N(14, gnpa) Null, sold_op N(14, gnpa) Null, sold_prec N(14, gnpa) Null, cont_cor c(4) Null, ana_coresp c(4) Null, lucrare C(100) null, scd c(10) NULL, scc c(10) NULL) + Select fisa_final + Go Top + Scatter Name lorec Memo + lorec.explicatia = 'SUME PRECEDENTE LUNA ' + Alltr(Str(luna)) + ' / ' + Alltr(Str(an)) + ' ' + xrec.numepart + lorec.credit = lorec.preccred + lorec.debit = lorec.precdeb + *lorec.sold_op=Iif(xrec.Activ='A',lorec.precdeb-lorec.preccred,lorec.preccred-lorec.precdeb) + lorec.sold_op = Iif(tip_sold = 'P', - (lorec.precdeb - lorec.preccred), - (lorec.preccred - lorec.precdeb)) + lorec.dataact = Null + lorec.dataireg = Null + lorec.fdoc = "" + lorec.serie_act = "" + lorec.nract = Null + lorec.cont_cor = "" + lorec.ana_coresp = "" + Select inregistrari_fisa + Insert Into inregistrari_fisa From Name lorec + Append From Dbf('fisa_final') + * Insert into fisa_final(Debit,Credit,Sold_Op,Explicatia) values(Precdeb,Preccred,IIF(xrec.activ='A',precdeb-preccred,preccred-precdeb),'ABCD') + export_xls('inregistrari_fisa') + Endif + If Used('fisa_final') + Use In fisa_final + Endif + Release xrec +Endproc && fisa_cont_noua +******************************************* SFARSIT: fisa_cont_noua ***************** +******************************************* INCEPUT : notificari ***************** +Procedure meniu_notificari + Local lcSql, lcCursor, lcCursorParteneri, lcMeniu, lnOptiune, loFrm + lcSql = [select * from notificari where sters = 0 order by ordine] + lcCursor = [crsnotificari] + lcCursorParteneri = [crsparteneri] + lcCursorParteneriNot = [crspartnot] + lcMeniu = [] + If goExecutor.oExecuta(lcSql, lcCursor) + If Reccount(lcCursor) > 0 + Select (lcCursor) + Scan + lcMeniu = lcMeniu + [;] + Alltrim(titlu) + Endscan + lnOptiune = xmenu(Substr(lcMeniu, 2)) + If Between(lnOptiune, 1, Reccount(lcCursor)) + Select (lcCursor) + Go (lnOptiune) + Scatter Name loDateNotificare Memo + lcSql = [{call parteneri_notificari(] + Alltrim(Str(loDateNotificare.id_notificare)) + [,?gnAn,?gnIdSucursala)}] + If goExecutor.oExecuta(lcSql, lcCursorParteneri) + Select 0 As ales, a.* From (lcCursorParteneri) a ; + Into Cursor (lcCursorParteneriNot) Readwrite + loFrm = Createobject("frm_notificari", loDateNotificare) + + lnCol = Fcount(lcCursorParteneriNot) + loFrm.grid_parteneri.RecordSource = lcCursorParteneriNot + loFrm.grid_parteneri.ColumnCount = lnCol - 4 + lnDiferenta = 0 + For i = 1 To lnCol + Select (lcCursorParteneriNot) + lcField = Upper(Alltrim(Field(i))) + lcI = Alltrim(Str(i - lnDiferenta)) + Do Case + Case lcField = [ALES] + loFrm.grid_parteneri.Column&lcI..ControlSource = lcField + Case Inlist(lcField, [ADRESA], [COD_FISCAL], [REG_COMERT]) + lnDiferenta = lnDiferenta + 1 + Case lcField <> [ID_PART] + lcHeader = lcField + With loFrm.grid_parteneri + .Column&lcI..ControlSource = lcField + If Val(Substr(lcField, 2)) <> 0 && sct "_" de la _401, _411, etc... + .Column&lcI..ControlSource = [IIF(!empty(] + lcField + [),"X"," ")] + lcHeader = Substr(lcField, 2) + Endif + .Column&lcI..header1.Caption = lcHeader + .Column&lcI..header1.FontName = 'Arial Narrow' + Endwith + Otherwise + lnDiferenta = lnDiferenta + 1 + Endcase + Endfor + loFrm.grid_parteneri.AutoFit() + loFrm.Show(1) + If Used(lcCursorParteneri) + Use In (lcCursorParteneri) + Endif + Endif + Endif + Else + AMESSAGEBOX("Nu au fost definite modele de notificari!", 48, "Atentie") + Endif + If Used(lcCursor) + Use In (lcCursor) + Endif + Endif + Release lcSql, lcCursor, lcMeniu, lnOptiune, loFrm +Endproc +******************************************* SFARSIT: notificari ***************** +Procedure inventar_patrimoniu + + Local lcSelCont, lcSelFact, lcSelX, lnSucces + lnSucces = 1 + lcSelX = [{call pack_situatii_financiare.inventar_patrimoniu(?gnAn,?gnLuna,'1=1',?gnIdSucursala)}] + lcSelCont = [select cont, explicatie, 0 as ales from ] + gcS + [.config_cont_ireg order by cont] + *where cu_inregistrari = 1 + *!* lcSelFact = [select i.fel_cont, p.cont, p.acont ,p.id_part,e.NUME,e.cod_fiscal,e.reg_comert,e.adresa,e.localitate,p.dataact,p.serie_act,p.nract,p.datascad, ] + ; + *!* [SUM(case i.fel_cont when 0 then p.precdeb+p.debit else p.preccred+p.credit end) as totctva, ] +; + *!* [SUM(case i.fel_cont when 0 then p.preccred+p.credit else p.precdeb+p.debit end) as achitat, ] +; + *!* [SUM((case i.fel_cont when 0 then 1 else -1 end)*(p.precdeb+p.debit-p.preccred-p.credit)) as sold ] +; + *!* [from ] + gcS + [.config_cont_ireg i ] +; + *!* [left join ] + gcS + [.ireg_parteneri p on i.cont = p.cont ] +; + *!* [left join ] + gcS + [.vnom_parteneri e on p.id_part = e.id_part ] + + + If lnSucces > 0 + lcCursor = 'crs_parteneri' + lnSucces = goExecutor.oExecute(lcSelX, lcCursor) + If lnSucces < 0 + AMESSAGEBOX('Call inventar_patrimoniu' + Chr(13) + goExecutor.cEroare, 0 + 16, "Eroare") + Endif + Endif + If lnSucces > 0 + lcCursor = 'crs_conturi' + lnSucces = goExecutor.oExecute(lcSelCont, lcCursor) + If lnSucces < 0 + AMESSAGEBOX('Select conturi cu inregistrari' + Chr(13) + goExecutor.cEroare, 0 + 16, "Eroare") + Endif + Endif + If lnSucces > 0 + oinvp = Createobject('frm_part_cont') && in orapoarte.vcx + Select crs_parteneri + *REPLACE nume WITH '' FOR id_part = -1 + + lnCol = Fcount() + + oinvp.grid_parteneri.RecordSource = [crs_parteneri] + oinvp.grid_parteneri.ColumnCount = lnCol + For i = 1 To lnCol + lcI = Alltrim(Str(i)) + lcField = Upper(Alltrim(Field(i))) + lcHeader = lcField + With oinvp.grid_parteneri + .Column&lcI..ControlSource = lcField + If Val(Substr(lcField, 2)) <> 0 && sct "_" de la _401, _411, etc... + .Column&lcI..Width = 25 + .Column&lcI..ControlSource = [IIF(!empty(] + lcField + [),"X"," ")] + lcHeader = Substr(lcField, 2) + Endif + .Column&lcI..header1.Caption = lcHeader + .Column&lcI..header1.FontName = 'Arial' + Endwith + If lcField = [ID_PART] + oinvp.grid_parteneri.Column&lcI..Visible = .F. + Endif + Endfor + + With oinvp.ct_grid_search1 + *!* .cselect = lcSelFact + *!* .cschema = [fel_cont n(1),cont c(4),acont c(4),id_part n(10),nume c(50),e.cod_fiscal c(20), reg_comert c(20), adresa c(250), localitate c(100), dataact d,nract n(9),datascad d,totctva n(14,2),achitat n(14,2),sold n(14,2)] + .cTitlu_coloane = [Nume,Data act,Serie act,Nr.act,Data scad.,Valoare Document,Achitat/Facturat,Sold,Valoare Document Valuta,Achitat/Facturat Valuta,Sold Valuta,Nume Valuta,Cont,Analitic,Explicatia] + .cNume_coloane = [nume;dataact;serie_act;nract;datascad;totctva;achitat;sold;valtotctva;achitatval;soldval;nume_val;cont;acont;explicatia] + .cMask = "[1]=;[2]=;[3]=;[4]=replicate('9',12);[5]=;[6]=get_mask(12,gnPc);[7]=get_mask(12,gnPc);[8]=get_mask(12,gnPc);[9]=get_mask(12,gnPc);[10]=get_mask(12,gnPc);[11]=get_mask(12,gnPc);[12]=;[13]=;[14]=;[15]=" + *!* .cMask = "[1]=;[2]=;[3]=;[4]=replicate('9',12);[5]=;[6]=get_mask(12,gnPc);[7]=get_mask(12,gnPc);[8]=get_mask(12,gnPc);[9]=;[10]=" + *!* .cFiltruOriginal = [i.cu_inregistrari = 1 and (p.precdeb+p.debit-p.preccred-p.credit) <> 0 and p.an = ?gnAn and p.luna = ?gnLuna ] + .cFiltru = [] + *!* .cOrder = [e.nume,p.cont,p.acont] + *!* .cGroup = [i.fel_cont, p.id_part,e.NUME,e.cod_fiscal,e.reg_comert,e.adresa,e.localitate,p.dataact,p.nract,p.datascad,p.cont,p.acont] + .cTitlu = [INREGISTRARI] + .cnumeCursor = [crs_facturi] + .lmodparam = .T. + *!* .cSelect = [select pack_situatii_financiare.inventar_patrimoniu_ireg(?pcSchema, ?pnAn, ?pnLuna, ?pnId_Part, ?pnCont, ?pnAcont) from dual] + .cSelect = [{call pack_situatii_financiare.inventar_patrimoniu_ireg(?pnAn, ?pnLuna, ?pnId_Part, ?pnCont, ?pnAcont, ?gnIdSucursala)}] + Endwith + oinvp.Show(1) + Endif + + If Used('crs_parteneri') + Use In crs_parteneri + Endif + If Used('crs_conturi') + Use In crs_conturi + Endif + If Used('crs_facturi') + Use In crs_facturi + Endif +Endproc &&inventar_patrimoniu +***-------------------------------------------------------------------------------------------------------- + +Procedure list_inventar_p + Parameters tcCursor, tnGroup, tlValuta, tnTipRaport + * tnGroup = 1 : grupare dupa cont + * tnGroup = 2 : grupare dupa analitic + * tnGroup = 3 : grupare dupa cont, analitic + * tnTipRaport: 1=STANDARD (text + lista facturi), 2= INAINTARE (doar text si total sold, fara facturi) + ANEXA (lista facturi pe conturi) + + Private pcNumeProc, pcMesaj1, pcMesaj2, pcmesaj3, pcdataora, pcGrupCont, pcSumainCont, pdData, plValuta + Local lcVal, lnTipRaport, lcRaport, lcSelect, lcSql + + Store '' To pcMesaj1, pcMesaj2, pcmesaj3 + plValuta = m.tlValuta + pcSumainCont = 'suma de .................................. in contul ....... ' + pdData = {} + lnTipRaport = m.tnTipRaport + + lcSelect = SELECT() + + If Empty(tcCursor) Or Type('tcCursor') # 'C' + tcCursor = 'crs_facturi' + ENDIF + + If Empty(tnGroup) Or Type('tnGroup') # 'N' + tnGroup = 3 + ENDIF + Do Case + Case tnGroup = 1 + pcGrupCont = [NVL(cont,'')] + Case tnGroup = 2 + pcGrupCont = [NVL(acont,'')] + Case tnGroup = 3 + pcGrupCont = [LEFT(NVL(cont,''),4)+'.'+LEFT(NVL(acont,''),4)] + Otherwise + pcGroupCont = [] + Endcase + + + lcRaport = [rap_inventar_patrimoniu] + + Use In (SELECT('crs_texte')) + + pcNumeProc = IIF(m.lnTipRaport = 1, [INVENTAR_PATRIMONIU], [INVENTAR_PATRIMONIU_INAINTARE]) + + lcSql = [select id_mesaj,mesaj,numar from mesaje where procedura = ?pcNumeProc] + lcCursor = 'crs_texte' + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + If lnSucces < 0 + AMESSAGEBOX('Select texte' + Chr(13) + goExecutor.cEroare, 0 + 16, "Eroare") + Return + Endif + + pdData = Gomonth(Date(gnAn, gnLuna, 1), 1) - 1 && ultima zi din luna + + Select crs_texte + Locate For numar = 1 + If Found() + pcMesaj1 = Alltrim(mesaj) + lnidmesaj1 = id_mesaj + Endif + Locate For numar = 2 + If Found() + pcMesaj2 = Alltrim(mesaj) + lnidmesaj2 = id_mesaj + Endif + Locate For numar = 3 + If Found() + pcMesaj3 = Alltrim(mesaj) + lnidmesaj3 = id_mesaj + Endif + omsg = Createobject('frm_text_inventar') +*!* omsg.Ed_tx_simplu1._edbase1.Value = pcMesaj1 + omsg.Ed_tx_simplu1.Tag = Transform(lnidmesaj1) + +*!* omsg.Ed_tx_simplu2._edbase1.Value = pcMesaj2 + omsg.Ed_tx_simplu2.Tag = Transform(lnidmesaj2) + +*!* omsg.Ed_tx_simplu3._edbase1.Value = pcmesaj3 + omsg.Ed_tx_simplu3.Tag = Transform(lnidmesaj3) + omsg.Show() + + + pcMesaj1 = Strtran(pcMesaj1, 'DD/MM/YYYY', Alltrim(Dtoc(m.pdData)),1,10,1) + pcMesaj1 = Strtran(pcMesaj1, '<>', Alltrim(Dtoc(m.pdData)),1,10,1) +*!* pcMesaj3 = Strtran(m.pcMesaj3, '<>', m.pcSumainCont,1,10,1) + + If gnbuton = 1 + DO CASE + CASE m.lnTipRaport = 1 + lcRaport = [rap_inventar_patrimoniu] + goExport.export2frx(m.tcCursor, m.lcRaport, , , , , , .T.) + CASE m.lnTipRaport = 2 + + * Daca nu am aceeasi explicatie la toate inregistrarile, nu o arat + * Vreau sa arat explicatia doar pentru conturile care nu au inregistrari, si explicatia este aceeasi din planul de conturi + + SELECT id_part, nume, cod_fiscal, reg_comert, email, LEFT(adresa,250) as adresa, cont, acont, nume_val, ; + CAST(MIN(IIF(EMPTY(NVL(nract,0)) AND EMPTY(NVL(dataact,{})),NVL(explicatia,''), '')) as C(100)) as explicatia, ; + SUM(totctva) as totctva, SUM(achitat) as achitat, SUM(valtotctva) as valtotctva, SUM(achitatval) as achitatval ; + FROM (m.tcCursor) ; + GROUP BY 1,2,3,4,5,6,7,8, 9 ; + ORDER BY nume, cod_fiscal ; + INTO CURSOR cInventarTemp readwrite + + lcRaport = [rap_inventar_patrimoniu_inaintare] + goExport.export2frx([cInventarTemp], m.lcRaport, , , , , , .T.) + USE IN (SELECT('cInventarTemp')) + + IF (AMESSAGEBOX('Doriti sa listati anexa?',4+32,_Screen.Caption) = 6) + lcRaport = [rap_inventar_patrimoniu_anexa] + goExport.export2frx(m.tcCursor, m.lcRaport, , , , , , .T.) + ENDIF + ENDCASE + ENDIF && gnbuton + + *!* 08.12.2010 ^ + Release pcGrupCont + Use In (SELECT('crs_texte')) + SELECT (m.lcSelect) +Endproc &&list_inventar_p +***-------------------------------------------------------------------------------------------------------- + +************************************ +* Intoarce text pentru raportul rap_inventar_patrimoniu, rap_inventar_patrimoniu_inaintare +************************************ +FUNCTION GetSumainCont + LPARAMETERS tnIdPart + LOCAL lcSumainCont, lcSelect + + lcSelect = SELECT() + + SELECT distinct cont, nume_val ; + FROM crs_list ; + WHERE id_part = m.tnIdPart ; + ORDER BY cont ; + INTO CURSOR cGrupContTotalTemp + + lcSumainCont = '' + SELECT cGrupContTotalTemp + SCAN + lcSumainCont = m.lcSumainCont + 'suma de ..................' + ALLTRIM(nume_val) + ' in contul ' + ALLTRIM(cont) + + lcSumainCont = m.lcSumainCont + IIF(RECNO()<>RECCOUNT(), ', ', '') + ENDSCAN + + IF EMPTY(m.lcSumainCont) + lcSumainCont = 'suma de .................................. in contul ....... ' + ENDIF + + SELECT (m.lcSelect) + RETURN m.lcSumainCont +ENDFUNC +************************************ + +Procedure datorii_buget + PcTitluCol = [] + pcNumeCol = [] + lcSel = [{call pack_situatii_financiare.datorii_buget(?gnAn,?gnLuna,?gnIdSucursala)}] + lcSchema = [] + lcCursor = 'crs_Datorii' + lnSucces = goExecutor.oExecute(lcSel, lcCursor) + + If lnSucces < 0 + AMESSAGEBOX(goExecutor.cEroare, 0 + 16, "Eroare") + Return + Endif + + Select crs_datorii + odat = Crea('frm_datorii_buget') + odat.Show(1) + +Endproc +***-------------------------------------------------------------- + +** =============================================================== +** listeaza cartea mare pentru o lista de conturi +** do cartea_mare with 4111,401 in orapoarte.prg +** tcCorespondente debitoare/creditoare:D/C +** am luat initial din oracle corespondentele debitoare si creditoare - dar se pare ca trebuie doar creditoare +** nu am mai modificat selectia din oracle - am filtrat doar rezultatele in foxpro +** =============================================================== +Procedure cartea_mare + Lparameters tcListaConturi, tcCorespondente + + If Pcount() = 0 Or Type('tcListaConturi') <> 'C' Or Empty(tcListaConturi) + Return + Endif + + + Local i, j, lcSql, lcCursor, lnSucces, lcListaColoane, lorec, loRecTemp, nConturi, lnConturi, loHash + Local lcField, lcColumn, lcCreateCursor, lcSumColumns, lnColumnCount, lnGrupe12, lnRest12, llUltimaPagina + llUltimaPagina = .F. + + Private pcCont, pnAn, pnLuna, pcConturiCorespondente, pnSold, pcdataora, pcCorespondente + Private pnTotalPagini, pnPaginaCurenta + pnTotalPagini = 0 + pnPaginaCurenta = 0 + If Empty(tcCorespondente) Or Pcount() < 2 Or Type('tcCorespondente') <> 'C' + pcCorespondente = 'C' + Else + pcCorespondente = Iif(tcCorespondente $ 'D/C', tcCorespondente, 'C') + Endif + Private Array c, d + Dimension c[100], d[100] + Store '' To c, d + + + Local ox As ReportListener + + *-- Create a ReportListener + ox = Createobject('ReportListener') + ox.DynamicLineHeight = .F. + ox.ListenerType = 1 && Preview + + loHash = GetHash() + loHash.SetValue("oListener", ox) + + pcConturiCorespondente = "" + pnSold = 0 + lnConturi = Getwordcount(tcListaConturi, ",") + For nConturi = 1 To lnConturi + + llUltimulCont = nConturi = lnConturi + If !llUltimulCont + LCNOPAGEEJECT = 'NOPAGEEJECT' + Else + LCNOPAGEEJECT = 'TO PRINTER PROMPT' + Endif + + + pcCont = Getwordnum(tcListaConturi, nConturi, ",") + pnAn = gnAn + pnLuna = gnLuna + + Wait Window 'CONT: ' + pcCont Nowait + + && sold initial la 1 ianuarie + lcSql = [select ABS(precdeb - preccred) as sold from vbal where an = ?pnAn and luna = 1 and cont = ?pcCont] + ; + gcCondSucursala + lcCursor = 'cSold' + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + AMESSAGEBOX(goExecutor.cEroare, 0 + 16, "Eroare") + Return + Endif + + pnSold = cSold.sold + Use In cSold + + && cursorul crostabulat cu coloane de tipul LUNA, NUMELUNA, D701, D702, C4427 + lcSql = [{call pack_contab_rapoarte.cartea_mare(?pcCont, ?pcCorespondente, ?pnAn, ?pnLuna, ?gnIdSucursala)}] + lcCursor = 'cCarteaMare1' + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + AMESSAGEBOX(goExecutor.cEroare, 0 + 16, "Eroare") + Return + Endif + + lcListaColoane = "" + + Select cCarteaMare1 + For i = 3 To Fcount() + lcField = Upper(Field(i)) + If Inlist(lcField, 'TOTDEB', 'TOTCRED', 'SOLDDEB', 'SOLDCRED') + Loop + Endif + lcListaColoane = lcListaColoane + "," + lcField + Endfor + lcListaColoane = "LUNA, NUMELUNA " + Iif(!Empty(lcListaColoane), lcListaColoane, "") + ", TOTDEB, TOTCRED, SOLDDEB, SOLDCRED" + + ** CREEZ CARTEA MARE PENTRU CONTURILE DEBITOARE SI CARTEA MARE PENTRU CONTURILE CREDITOARE + lnColumnCount = 0 + + * listez doar corespondentele DEBITOARE sau CREDITOARE + + If Empty(lcListaColoane) + Loop + Endif + + lcSelect = "select " + lcListaColoane + " from cCarteaMare1 into cursor cCarteaMare nofilter" + &lcSelect + + pcConturiCorespondente = Iif(tcCorespondente = 'D', "CREDITOARE", "DEBITOARE") + + ** CREEZ UN CURSOR CU 99 DE COLOANE C01, C02, ..C30 + ** COMPLETEZ ARRAY-UL D[1], C[lnFcount] cu numele coloanelor D701, D702, D703, D707 + + lcCreateCursor = "CREATE CURSOR cCarteaMareTemp(numeluna c(30), luna n(2), trimestru n(1), totdeb n(20,4), totcred n(20,4), solddeb n(20,4), soldcred n(20,4)" + lnFcount = Fcount('cCarteaMare') + && cCarteaMare(luna, numeluna, D701, D702, ETC) + lcSumColumns = "" + Store "" To c, d + + For i = 3 To 101 + lcColumn = "c" + Padl(i - 2, 2, "0") + If i <= lnFcount - 4 && FARA TOTDEB, TOTCRED, SOLDDEB, SOLDCRED + lcField = Field(i, "cCarteaMare") + If Inlist(Left(lcField, 1), 'D', 'C') + d[i - 2] = Substr(lcField, 2) + lcSumColumns = lcSumColumns + ", sum(" + lcColumn + ") as " + lcColumn + lnColumnCount = lnColumnCount + 1 && numarul de coloane cu sume + Endif + Endif + + lcCreateCursor = lcCreateCursor + ", " + lcColumn + " N(20,4)" + Endfor && i = 3 TO 102 + + lcSumColumns = Iif(!Empty(Alltrim(lcSumColumns)), Substr(Alltrim(lcSumColumns), 2) + ", ", "") + " SUM(totdeb) as totdeb, SUM(totcred) as totcred" + + lcCreateCursor = lcCreateCursor + ")" + &lcCreateCursor + + Select cCarteaMare + Scan + Scatter Name lorec + Select cCarteaMareTemp + Scatter Name loRecTemp Blank + + && cCarteaMareTemp.C01 = cCarteaMare.D701, cCarteaMareTemp.C02 = cCarteaMare.D702 ETC + For i = 3 To lnFcount - 4 + lcField = "lorec." + Field(i, "cCarteaMare") + If Inlist(Left(Field(i, "cCarteaMare"), 1), 'D', 'C') + lnValue = Nvl(Evaluate(lcField), 0.00) + lcFieldTemp = "loRecTemp.c" + Padl(i - 2, 2, "0") + &lcFieldTemp = lnValue + Endif + Endfor + loRecTemp.totdeb = Nvl(lorec.totdeb, 0) + loRecTemp.totcred = Nvl(lorec.totcred, 0) + loRecTemp.solddeb = Nvl(lorec.solddeb, 0) + loRecTemp.soldcred = Nvl(lorec.soldcred, 0) + loRecTemp.luna = lorec.luna + loRecTemp.numeluna = lorec.numeluna + Do Case + Case Between(lorec.luna, 1, 3) + loRecTemp.trimestru = 1 + Case Between(lorec.luna, 4, 6) + loRecTemp.trimestru = 2 + Case Between(lorec.luna, 7, 9) + loRecTemp.trimestru = 3 + Otherwise + loRecTemp.trimestru = 4 + Endcase + + Insert Into cCarteaMareTemp From Name loRecTemp + + && TOTALURI + If Inlist(lorec.luna, 3, 6, 9, 12) + lcSelectTotals = "SELECT " + lcSumColumns + " from cCarteaMareTemp where LEFT(NUMELUNA,2) # 'TR' INTO CURSOR cTotaluriTemp" + &lcSelectTotals + Select cTotaluriTemp + Scatter Name loTotal + + + && numeluna c(20), luna n(2), trimestru n(1), totdeb n(20,4), totcred, n(20,4), solddeb n(20,4), soldcred n(20,4) + AddProperty(loTotal, "numeluna", "TR " + Iif(lorec.luna = 3, "I", Iif(lorec.luna = 6, "I+II", Iif(lorec.luna = 9, "I+II+III", "I+II+III+IV"))) ) + AddProperty(loTotal, "luna", lorec.luna) + AddProperty(loTotal, "trimestru", loRecTemp.trimestru) + AddProperty(loTotal, "solddeb", loRecTemp.trimestru) + AddProperty(loTotal, "soldcred", loRecTemp.trimestru) + Select cCarteaMareTemp + loTotal.solddeb = Iif(pnSold + loTotal.totdeb - loTotal.totcred >= 0, Abs(pnSold + loTotal.totdeb - loTotal.totcred), 0) + loTotal.soldcred = Iif(pnSold + loTotal.totdeb - loTotal.totcred < 0, Abs(pnSold + loTotal.totdeb - loTotal.totcred), 0) + + Insert Into cCarteaMareTemp From Name loTotal + Endif && TOTALURI + + Endscan && cCarteaMare + pcdataora = get_ora(2) + + + + lnGrupe12 = Int(lnColumnCount / 12) + lnRest12 = Mod(lnColumnCount, 12) + If lnRest12 > 8 + lnGrupe12 = lnGrupe12 + 1 + lnRest12 = 0 + Endif + pnTotalPagini = lnGrupe12 + Iif(lnRest12 > 0, 1, 0) + pnTotalPagini = Iif(pnTotalPagini > 0, pnTotalPagini, 1) + + pnPaginaCurenta = 0 + llUltimaPagina = .F. + For i = 1 To 5 + Store '' To c + If llUltimaPagina + Exit + Endif + lnOffset = (i - 1) * 12 + lcSelect1 = "" + lcSelect2 = "" + For j = 1 To 12 + If i <= lnGrupe12 && AND lnOffset + j <= lnColumnCount + If lnOffset + j <= lnColumnCount + lcSelect1 = lcSelect1 + ", C" + Padl(lnOffset + j, 2, '0') + " as C" + Padl(j, 2, '0') + Else + lcSelect1 = lcSelect1 + ", 0 as C" + Padl(j, 2, '0') + Endif + Else + If j <= 8 && AND lnOffset + j <= lnColumnCount + If lnOffset + j <= lnColumnCount + lcSelect2 = lcSelect2 + ", C" + Padl(lnOffset + j, 2, '0') + " as C" + Padl(j, 2, '0') + Else + lcSelect2 = lcSelect2 + ", 0 as C" + Padl(j, 2, '0') + Endif + Endif + Endif + c[j] = d[(i - 1) * 12 + j] + Endfor + + + If !Empty(lcSelect1) + lcSelect1 = "select luna, numeluna " + lcSelect1 + " from cCarteaMareTemp into cursor cCarteaMareTempCurent" + &lcSelect1 + Select cCarteaMareTempCurent + With loHash + .SetValue("cRaport", "rap_carteamare1") + .SetValue("cCommandClauses", "NOPAGEEJECT") + Endwith + pnPaginaCurenta = pnPaginaCurenta + 1 + LISTAREUSERREPORT_HASH(loHash) && oproceduri_rapoarte + * goExport.export2frx('cCarteaMareTempCurent', 'rap_carteamare1', , , , 'NOPAGEEJECT', , .T.) + + Use In (Select ('cCarteaMareTempCurent')) + Else + llUltimaPagina = .T. + lcSelect2 = "select luna, numeluna " + lcSelect2 + ", totdeb,totcred,solddeb,soldcred from cCarteaMareTemp into cursor cCarteaMareTempCurent" + &lcSelect2 + Select cCarteaMareTempCurent + With loHash + .SetValue("cRaport", "rap_carteamare") + .SetValue("cCommandClauses", LCNOPAGEEJECT) + Endwith + pnPaginaCurenta = pnPaginaCurenta + 1 + Keyboard '{CTRL+F10}' + LISTAREUSERREPORT_HASH(loHash) && proceduri_rapoarte + *goExport.export2frx('cCarteaMareTempCurent', 'rap_carteamare', , , , m.LCNOPAGEEJECT, , .T.) + Use In (Select ('cCarteaMareTempCurent')) + Endif + + Endfor + + Use In (Select('cCarteaMareTemp')) + + Use In (Select('cCarteaMareTemp1')) + Use In (Select('cTotaluriTemp')) + Endfor && nConturi = 1 TO lnConturi + *!* SET REPORTBEHAVIOR &lcReportBehaviour +Endproc && cartea mare +***-------------------------------------------------------------- +*************************************************************************** +Function raport_regvanz2007_restrans + Lparameters tnTip, tcCursor + Private pnTipZile + Store 0 To pnTipZile + + Select Distinct 0 As ales, fel_document, id_fdoc From (tcCursor) ; + Order By fel_document Into Cursor crsdocumente Readwrite + + Select Distinct 0 As ales, id_part, denumire, cod_fiscal From (tcCursor) ; + Order By denumire, cod_fiscal Into Cursor crsparteneri Readwrite + + ofrmcriterii = Createobject('frm_regvanz2007_restrans') + ofrmcriterii.Show(1) + If gnbuton = 1 + && pnTipZile + *!* select id_jv,an,luna,cod,dataact,cod_fiscal,nract,serie_act,id_part,id_fdoc,totctva,ro19b,ro19t,ro9b, + *!* ro9t,roti,cescdd1,cescdd2,wrscdd,fodd,fofdd,wrscfdd,wrn,fel_document,denumire from (tcCursor) + Do Case + Case gnAn * 12 + gnLuna < 2010 * 12 + 7 + If pnTipZile = 1 + *!* cumulat pe perioada + Select 0 As tip, Min(dataact) As dataact, cod_fiscal, Min(nract) As nract, serie_act, id_part, id_fdoc, Sum(totctva) As totctva, ; + Sum(ro19b) As ro19b, Sum(ro19t) As ro19t, Sum(ro9b) As ro9b, Sum(ro9t) As ro9t, ; + Sum(ro5b) As ro5b, Sum(ro5t) As ro5t, Sum(roti) As roti, ; + Sum(cescdd1 + ceoptr) As cescdd1, Sum(cescdd2) As cescdd2, Sum(wrscdd) As wrscdd, ; + Sum(fodd + cesvdd) As fodd, Sum(fofdd + cesvfdd) As fofdd, Sum(cesvfs) As cesvfs, ; + Sum(wrscfdd) As wrscfdd, Sum(wrn) As wrn, fel_document, denumire From (tcCursor) ; + Where id_fdoc In (Select id_fdoc From crsdocumente Where ales = 1) And ; + id_part In (Select id_part From crsparteneri Where ales = 1) ; + Group By serie_act, cod_fiscal, id_part, id_fdoc, fel_document, denumire ; + Union All ; + Select 0 As tip, a.dataact, a.cod_fiscal, a.nract, a.serie_act, a.id_part, a.id_fdoc, a.totctva, a.ro19b, a.ro19t, ; + a.ro9b, a.ro9t, a.ro5b, a.ro5t, ; + a.roti, a.cescdd1 + a.ceoptr As cescdd1, a.cescdd2, a.wrscdd, ; + a.fodd + a.cesvdd As fodd, a.fofdd + a.cesvfdd As fofdd, a.cesvfs, ; + a.wrscfdd, a.wrn, a.fel_document, a.denumire ; + From (tcCursor) a ; + Where a.id_fdoc Not In (Select id_fdoc From crsdocumente Where ales = 1) ; + Or (a.id_fdoc In (Select id_fdoc From crsdocumente Where ales = 1) And ; + a.id_part Not In (Select id_part From crsparteneri Where ales = 1)) ; + Order By a.dataact, a.nract Into Cursor cListRC + Else + *!* cumulat in fiecare zi a perioadei + Select 0 As tip, dataact, cod_fiscal, Min(nract) As nract, serie_act, id_part, id_fdoc, Sum(totctva) As totctva, Sum(ro19b) As ro19b, ; + Sum(ro19t) As ro19t, Sum(ro9b) As ro9b, Sum(ro9t) As ro9t, Sum(ro5b) As ro5b, Sum(ro5t) As ro5t, ; + Sum(roti) As roti, Sum(cescdd1 + ceoptr) As cescdd1, ; + Sum(cescdd2) As cescdd2, Sum(wrscdd) As wrscdd, Sum(fodd + cesvdd) As fodd, Sum(fofdd + cesvfdd) As fofdd, ; + Sum(cesvfs) As cesvfs, Sum(wrscfdd) As wrscfdd, ; + Sum(wrn) As wrn, fel_document, denumire From (tcCursor) ; + Where id_fdoc In (Select id_fdoc From crsdocumente Where ales = 1) And ; + id_part In (Select id_part From crsparteneri Where ales = 1) ; + Group By serie_act, dataact, cod_fiscal, id_part, id_fdoc, fel_document, denumire ; + Union All ; + Select 0 As tip, a.dataact, a.cod_fiscal, a.nract, a.serie_act, a.id_part, a.id_fdoc, a.totctva, a.ro19b, a.ro19t, ; + a.ro9b, a.ro9t, a.ro5b, a.ro5t, ; + a.roti, a.cescdd1 + a.ceoptr As cescdd1, a.cescdd2, a.wrscdd, ; + a.fodd + a.cesvdd As fodd, a.fofdd + a.cesvfdd As fofdd, a.cesvfs, ; + a.wrscfdd, a.wrn, a.fel_document, a.denumire ; + From (tcCursor) a ; + Where a.id_fdoc Not In (Select id_fdoc From crsdocumente Where ales = 1) ; + Or (a.id_fdoc In (Select id_fdoc From crsdocumente Where ales = 1) And ; + a.id_part Not In (Select id_part From crsparteneri Where ales = 1)) ; + Order By a.dataact, a.nract Into Cursor cListRC + Endif + Case gnAn * 12 + gnLuna < 2012 * 12 + 12 + *!* 24.10.2011 + If pnTipZile = 1 + *!* cumulat pe perioada + Select 0 As tip, Min(dataact) As dataact, cod_fiscal, Min(nract) As nract, serie_act, id_part, id_fdoc, Sum(totctva) As totctva, ; + Sum(ro24b) As ro24b, Sum(ro24t) As ro24t, Sum(ro19b) As ro19b, Sum(ro19t) As ro19t, Sum(ro9b) As ro9b, Sum(ro9t) As ro9t, ; + Sum(ro5b) As ro5b, Sum(ro5t) As ro5t, Sum(roti) As roti, ; + Sum(cescdd1) As cescdd1, Sum(cescdd2) As cescdd2, Sum(ceoptr) As ceoptr, Sum(wrscdd) As wrscdd, ; + Sum(fodd) As fodd, Sum(cesvdd) As cesvdd, Sum(fofdd) As fofdd, Sum(cesvfdd) As cesvfdd, Sum(cesvfs) As cesvfs, ; + Sum(wrscfdd) As wrscfdd, Sum(wrn) As wrn, fel_document, denumire From (tcCursor) ; + Where id_fdoc In (Select id_fdoc From crsdocumente Where ales = 1) And ; + id_part In (Select id_part From crsparteneri Where ales = 1) ; + Group By serie_act, cod_fiscal, id_part, id_fdoc, fel_document, denumire ; + Union All ; + Select 0 As tip, a.dataact, a.cod_fiscal, a.nract, a.serie_act, a.id_part, a.id_fdoc, a.totctva, a.ro24b, a.ro24t, a.ro19b, a.ro19t, ; + a.ro9b, a.ro9t, a.ro5b, a.ro5t, ; + a.roti, a.cescdd1, a.ceoptr, a.cescdd2, a.wrscdd, ; + a.fodd, a.cesvdd, a.fofdd, a.cesvfdd, a.cesvfs, ; + a.wrscfdd, a.wrn, a.fel_document, a.denumire ; + From (tcCursor) a ; + Where a.id_fdoc Not In (Select id_fdoc From crsdocumente Where ales = 1) ; + Or (a.id_fdoc In (Select id_fdoc From crsdocumente Where ales = 1) And ; + a.id_part Not In (Select id_part From crsparteneri Where ales = 1)) ; + Order By a.dataact, a.nract Into Cursor cListRC + Else + *!* cumulat in fiecare zi a perioadei + Select 0 As tip, dataact, cod_fiscal, Min(nract) As nract, serie_act, id_part, id_fdoc, Sum(totctva) As totctva, ; + Sum(ro24b) As ro24b, Sum(ro24t) As ro24t, Sum(ro19b) As ro19b, Sum(ro19t) As ro19t, Sum(ro9b) As ro9b, Sum(ro9t) As ro9t, ; + Sum(ro5b) As ro5b, Sum(ro5t) As ro5t, Sum(roti) As roti, ; + Sum(cescdd1) As cescdd1, Sum(cescdd2) As cescdd2, Sum(ceoptr) As ceoptr, Sum(wrscdd) As wrscdd, ; + Sum(fodd) As fodd, Sum(cesvdd) As cesvdd, Sum(fofdd) As fofdd, Sum(cesvfdd) As cesvfdd, Sum(cesvfs) As cesvfs, ; + Sum(wrscfdd) As wrscfdd, Sum(wrn) As wrn, fel_document, denumire From (tcCursor) ; + Where id_fdoc In (Select id_fdoc From crsdocumente Where ales = 1) And ; + id_part In (Select id_part From crsparteneri Where ales = 1) ; + Group By serie_act, dataact, cod_fiscal, id_part, id_fdoc, fel_document, denumire ; + Union All ; + Select 0 As tip, a.dataact, a.cod_fiscal, a.nract, a.serie_act, a.id_part, a.id_fdoc, a.totctva, a.ro24b, a.ro24t, a.ro19b, a.ro19t, ; + a.ro9b, a.ro9t, a.ro5b, a.ro5t, ; + a.roti, a.cescdd1, a.ceoptr, a.cescdd2, a.wrscdd, ; + a.fodd, a.cesvdd, a.fofdd, a.cesvfdd, a.cesvfs, ; + a.wrscfdd, a.wrn, a.fel_document, a.denumire ; + From (tcCursor) a ; + Where a.id_fdoc Not In (Select id_fdoc From crsdocumente Where ales = 1) ; + Or (a.id_fdoc In (Select id_fdoc From crsdocumente Where ales = 1) And ; + a.id_part Not In (Select id_part From crsparteneri Where ales = 1)) ; + Order By a.dataact, a.nract Into Cursor cListRC + Endif + Otherwise && 01/2013 && TVA INCASARE + If pnTipZile = 1 + *!* cumulat pe perioada + Select 0 As tip, Max(COD) As COD, Max(id_fact) As id_fact, Min(dataact) As dataact, cod_fiscal, Min(nract) As nract, serie_act, id_part, id_fdoc, Sum(totctva) As totctva, ; + tva_incasare, Sum(totftvatax) As totftvatax, Sum(tottvatax) As tottvatax, ; + Sum(ro24b) As ro24b, Sum(ro24t) As ro24t, Sum(ro20b) As ro20b, Sum(ro20t) As ro20t, Sum(ro19b) As ro19b, Sum(ro19t) As ro19t, Sum(ro9b) As ro9b, Sum(ro9t) As ro9t, ; + Sum(ro5b) As ro5b, Sum(ro5t) As ro5t, Sum(roti) As roti, ; + Sum(ro24nb) As ro24nb, Sum(ro24nt) As ro24nt, Sum(ro20nb) As ro20nb, Sum(ro20nt) As ro20nt, Sum(ro19nb) As ro19nb, Sum(ro19nt) As ro19nt, Sum(ro9nb) As ro9nb, Sum(ro9nt) As ro9nt, Sum(ro5nb) As ro5nb, Sum(ro5nt) As ro5nt, ; + Sum(cescdd1) As cescdd1, Sum(cescdd2) As cescdd2, Sum(ceoptr) As ceoptr, Sum(wrscdd) As wrscdd, ; + Sum(fodd) As fodd, Sum(cesvdd) As cesvdd, Sum(fofdd) As fofdd, Sum(cesvfdd) As cesvfdd, Sum(cesvfs) As cesvfs, ; + Sum(wrscfdd) As wrscfdd, Sum(wrn) As wrn, fdoc, denumire From (tcCursor) ; + Where id_fdoc In (Select id_fdoc From crsdocumente Where ales = 1) And ; + id_part In (Select id_part From crsparteneri Where ales = 1) ; + Group By serie_act, cod_fiscal, id_part, id_fdoc, fdoc, denumire, tva_incasare ; + Union All ; + Select 0 As tip, a.COD, a.id_fact, a.dataact, a.cod_fiscal, a.nract, a.serie_act, a.id_part, a.id_fdoc, a.totctva, ; + a.tva_incasare, a.totftvatax, a.tottvatax, ; + a.ro24b, a.ro24t, a.ro20b, a.ro20t, a.ro19b, a.ro19t, ; + a.ro9b, a.ro9t, a.ro5b, a.ro5t, ; + a.ro24nb, a.ro24nt, a.ro20nb, a.ro20nt, a.ro19nb, a.ro19nt, a.ro9nb, a.ro9nt, a.ro5nb, a.ro5nt, ; + a.roti, a.cescdd1, a.ceoptr, a.cescdd2, a.wrscdd, ; + a.fodd, a.cesvdd, a.fofdd, a.cesvfdd, a.cesvfs, ; + a.wrscfdd, a.wrn, a.fdoc, a.denumire ; + From (tcCursor) a ; + Where a.id_fdoc Not In (Select id_fdoc From crsdocumente Where ales = 1) ; + Or (a.id_fdoc In (Select id_fdoc From crsdocumente Where ales = 1) And ; + a.id_part Not In (Select id_part From crsparteneri Where ales = 1)) ; + Order By a.dataact, a.nract Into Cursor cListRC + Else + *!* cumulat in fiecare zi a perioadei + Select 0 As tip, Max(COD) As COD, Max(id_fact) As id_fact, dataact, cod_fiscal, Min(nract) As nract, serie_act, id_part, id_fdoc, Sum(totctva) As totctva, ; + tva_incasare, Sum(totftvatax) As totftvatax, Sum(tottvatax) As tottvatax, ; + Sum(ro24b) As ro24b, Sum(ro24t) As ro24t, Sum(ro20b) As ro20b, Sum(ro20t) As ro20t, Sum(ro19b) As ro19b, Sum(ro19t) As ro19t, Sum(ro9b) As ro9b, Sum(ro9t) As ro9t, ; + Sum(ro5b) As ro5b, Sum(ro5t) As ro5t, Sum(roti) As roti, ; + Sum(ro24nb) As ro24nb, Sum(ro24nt) As ro24nt, Sum(ro20nb) As ro20nb, Sum(ro20nt) As ro20nt, Sum(ro19nb) As ro19nb, Sum(ro19nt) As ro19nt, Sum(ro9nb) As ro9nb, Sum(ro9nt) As ro9nt, Sum(ro5nb) As ro5nb, Sum(ro5nt) As ro5nt, ; + Sum(cescdd1) As cescdd1, Sum(cescdd2) As cescdd2, Sum(ceoptr) As ceoptr, Sum(wrscdd) As wrscdd, ; + Sum(fodd) As fodd, Sum(cesvdd) As cesvdd, Sum(fofdd) As fofdd, Sum(cesvfdd) As cesvfdd, Sum(cesvfs) As cesvfs, ; + Sum(wrscfdd) As wrscfdd, Sum(wrn) As wrn, fdoc, denumire From (tcCursor) ; + Where id_fdoc In (Select id_fdoc From crsdocumente Where ales = 1) And ; + id_part In (Select id_part From crsparteneri Where ales = 1) ; + Group By serie_act, dataact, cod_fiscal, id_part, id_fdoc, fdoc, denumire, tva_incasare ; + Union All ; + Select 0 As tip, a.COD, a.id_fact, a.dataact, a.cod_fiscal, a.nract, a.serie_act, a.id_part, a.id_fdoc, a.totctva, ; + a.tva_incasare, a.totftvatax, a.tottvatax, ; + a.ro24b, a.ro24t, a.ro20b, a.ro20t, a.ro19b, a.ro19t, a.ro9b, a.ro9t, a.ro5b, a.ro5t, ; + a.ro24nb, a.ro24nt, a.ro20nb, a.ro20nt, a.ro19nb, a.ro19nt, a.ro9nb, a.ro9nt, a.ro5nb, a.ro5nt, ; + a.roti, a.cescdd1, a.ceoptr, a.cescdd2, a.wrscdd, ; + a.fodd, a.cesvdd, a.fofdd, a.cesvfdd, a.cesvfs, ; + a.wrscfdd, a.wrn, a.fdoc, a.denumire ; + From (tcCursor) a ; + Where a.id_fdoc Not In (Select id_fdoc From crsdocumente Where ales = 1) ; + Or (a.id_fdoc In (Select id_fdoc From crsdocumente Where ales = 1) And ; + a.id_part Not In (Select id_part From crsparteneri Where ales = 1)) ; + Order By a.dataact, a.nract Into Cursor cListRC + Endif + + Endcase + lnTip = tnTip + Else + lnTip = 0 + Endif + + If Used('crsdocumente') + Use In crsdocumente + Endif + + If Used('crsparteneri') + Use In crsparteneri + Endif + + Release ofrmcriterii, pnTipZile + Return lnTip +Endfunc && raport_regvanz2007_restrans +*************************************************************************** + + +Procedure registrul_inventar + Local lnAn, lnLuna, lcSelect + lcSelect = SELECT() + lnLuna = m.gnLuna + lnAn = m.gnAn + Do make_tbalanta With .F., m.lnLuna, m.lnAn, m.lnLuna, m.lnAn + If m.glEMama + Select * From tbalanta Where Inlist(BNIVEL, 6, 7) Into Cursor tbalanta Readwrite + Endif + + SELECT tbalanta + SET FILTER TO !EMPTY(NVL(cont, '')) AND EMPTY(NVL(acont, '')) + + goExport.export2frx("tbalanta", "registru_inventar.frx", , , , , , .T.) + + Use In (Select('tbalanta')) + SELECT (m.lcSelect) +Endproc && registrul_inventar + +***************** +*** Raport facturi incasate in luna curenta prin banca (conturi curente, conturi TVA) + baza/tva din registrul de vanzari +*** contine atentionari la facturile care nu sunt incasate corect baza/tva in contul curent/TVA +***************** +Procedure TVADefalcatIncasariPlati + LPARAMETERS tcCont, tcTip + * tcCont: cont banca sau casa 5121/5311 + * tcTip: INCASARI/PLATI ex: TVADefalcatIncasariPlati('5311', 'PLATI') = plati prin casa + + Private pdDataI, pdDataF + Local lofrm As "frm_perioada_zzllaaaa" + Local laCoteTVA[1], lcField, lcIndex, lcItem, lcSelect, lcSelectAct, lcSelectBanca, lcSelectBanca2 + Local lcSir, lcSirActcv, lcSirBaza, lcSirBazaTVA, lcSirNeimpozabil, lcSirTVA, lcSirTVAAltele + Local lcWhereA, lcXlsFile, lcnume, ldDataCurenta, llSucces, lnBaza, lnBazaIncasat, lnCotaTVA + Local lnField, lnIncasat, lnItem, lnItems, lnTVA, lnTVAIncasat, loFact, loFactTVACE, loFactTVAFO + Local loFactTVARO, loFactTVAWR, lcTipJurnal + LOCAL lcCont, llFound, lnIdFact, llIncasari, lcTip, lnSign + + lcCont = IIF(TYPE('tcCont') = 'C' and !EMPTY(m.tcCont), m.tcCont, '5121') && incasari banca default + lcTip = IIF(TYPE('tcTip') = 'C' and !EMPTY(m.tcTip), UPPER(ALLTRIM(m.tcTip)), 'INCASARI') + lcTip = IIF(INLIST(m.lcTip, "INCASARI", "PLATI"), m.lcTip, "INCASARI") + llIncasari = (m.lcTip = "INCASARI") + lcTipJurnal = IIF(m.llIncasari, "JV", "JC") + + ldDataCurenta = Date() + If m.gnAn * 12 + m.gnLuna = Year(m.ldDataCurenta) * 12 + Month(m.ldDataCurenta) + pdDataI = m.ldDataCurenta + Else + pdDataI = DATE(m.gnAn, m.gnLuna, 1) + Endif + pdDataF = m.pdDataI + + *** alegere perioada + lofrm = Createobject("frm_perioada_zzllaaaa") + lofrm.Show(1) + If m.gnButon = 2 Or EMPTY(NVL(m.pdDataI, {})) Or EMPTY(NVL(m.pdDataF, {})) + Return + Endif + + +IF m.llIncasari + TEXT TO lcWhereA NOSHOW TEXTMERGE +a.an = <> and a.luna = <> and a.sters = 0 and a.dataact between to_date('<>', 'yyyymmdd') and to_date('<>', 'yyyymmdd') And +a.scd <> And a.scc in ('411', '4111', '418', '461', '4118', '4511') And NVL(pd.denumire, 'X') not like '%COMPENS%' <> + ENDTEXT +ELSE + TEXT TO lcWhereA NOSHOW TEXTMERGE +a.an = <> and a.luna = <> and a.sters = 0 and a.dataact between to_date('<>', 'yyyymmdd') and to_date('<>', 'yyyymmdd') And +a.scc <> And a.scd in ('401', '404', '408', '462', '473', '4511') And NVL(pc.denumire, 'X') not like '%COMPENS%' <> + ENDTEXT +ENDIF + + *** Selectez incasarile/platile prin/din banca/casa din Registrul Jurnal +IF m.llIncasari + TEXT TO lcSelectAct NOSHOW TEXTMERGE +Select a.an, a.luna, a.dataact, a.id_partc as id_part, pc.denumire As partener, pc.cod_fiscal, id_factc as id_fact, perechec As nrfact, a.id_partd as id_banca, pd.denumire As banca, stringagg(a.scd) as contc, a.scc As cont, a.id_sucursala, SUM(a.suma) as suma + From act a left join nom_parteneri pd on a.id_partd = pd.id_part + left join nom_parteneri pc on a.id_partc = pc.id_part + Where <> + group by a.an, a.luna, a.dataact, a.id_partc, pc.denumire, pc.cod_fiscal, id_factc, perechec, a.id_partd, pd.denumire, a.scc, a.id_sucursala + ENDTEXT +ELSE + TEXT TO lcSelectAct NOSHOW TEXTMERGE +Select a.an, a.luna, a.dataact, a.id_partd as id_part, pd.denumire As partener, pd.cod_fiscal, id_factd as id_fact, pereched As nrfact, a.id_partc as id_banca, pc.denumire As banca, stringagg(a.scc) as contc, a.scd As cont, a.id_sucursala, SUM(a.suma) as suma + From act a left join nom_parteneri pc on a.id_partc = pc.id_part + left join nom_parteneri pd on a.id_partd = pd.id_part + Where <> + group by a.an, a.luna, a.dataact, a.id_partd, pd.denumire, pd.cod_fiscal, id_factd, pereched, a.id_partc, pc.denumire, a.scd, a.id_sucursala + ENDTEXT +ENDIF + llSucces = goExecutor.oExecuta(m.lcSelectAct, "cIncasariBanca") + + IF !m.llSucces + RETURN + ENDIF + + If RECCOUNT('cIncasariBanca') = 0 + AMESSAGEBOX('Nu exista inregistrari pentru perioada aleasa!', 0 + 48, _Screen.Caption) + Use In (Select('cIncasariBanca')) + Return + ENDIF + + Select Distinct BANCA, BANCA As cbanca, Iif('TVA' $ BANCA, 2, 1) As ordine From cIncasariBanca Order By 3, 2 Into Cursor cbanca Readwrite + Update cbanca Set cbanca = Strtran(Strtran(Alltrim(cbanca), ' ', '_'), '-', '_') + Update cbanca Set cbanca = 'contx_' + Strtran(Alltrim(cbanca), '__', '_') + + lcSelectBanca = '' + lcSelectBanca2 = '' + Select cbanca + Scan + lcSelectBanca = lcSelectBanca + [, SUM(CASE banca WHEN '] + Alltrim(BANCA) + [' THEN suma ELSE 0.00 END) as "] + LEFT(Alltrim(cbanca),30) + ["] + lcSelectBanca2 = lcSelectBanca2 + [, "] + LEFT(Alltrim(cbanca),30) + ["] + Endscan + + *** Selectez datele facturilor din Ireg_parteneri (nract, dataact, serie_act, total_fact, total_achitat) + TEXT TO lcSelect NOSHOW textmerge +WITH actsel as (SELECT an, luna, dataact, id_part, partener, cod_fiscal, id_fact, nrfact, SUBSTR(stringagg(contc),1, 100) as contc, cont, id_sucursala, + SUM(suma) as total_cont_incasat, + SUM(CASE when banca like '%TVA%' then 0.00 else suma end) as cont_curent, + SUM(CASE when banca like '%TVA%' then suma else 0.00 end) as cont_tva + <> +from (<>) +group by an, luna, dataact,id_part,partener,cod_fiscal,id_fact,nrfact, cont, id_sucursala) +select b.dataact, b.id_part, b.partener, b.cod_fiscal, b.id_fact, b.nrfact, b.contc, b.cont, ip.dataact as datafact, ip.serie_act as seriefact, b.id_sucursala, + <> as totalfact, + <> as totalachitat, + <> as totalsold, + CAST(0 as Number(20,4)) as total_baza_si_tva, CAST(0 as Number(20,4)) as baza, CAST(0 as Number(20,4)) as tva, + CAST(0 as Number(20,4)) as neimpozabil, CAST(0 as Number(20,4)) as alte_tva, + CAST(0 as Number(20,4)) as baza_incasat, CAST(0 as Number(20,4)) as tva_incasat, + CAST(0 as Number(20,4)) as difbaza, CAST(0 as Number(20,4)) as diftva, + b.total_cont_incasat, b.cont_curent, b.cont_tva + <> +from actsel b +left join (select ip1.dataact, ip1.serie_act, ip1.cont, ip1.id_fact, ip1.an, ip1.luna, ip1.id_sucursala, + sum(ip1.precdeb) as precdeb, sum(ip1.preccred) as preccred, sum(ip1.debit) as debit, sum(ip1.credit) as credit + from ireg_parteneri ip1 join actsel b1 + on b1.cont = ip1.cont + and b1.id_fact = ip1.id_fact + and b1.an = ip1.an + and b1.luna = ip1.luna + and NVL(b1.id_sucursala, 0) = NVL(ip1.id_sucursala, 0) + group by ip1.dataact, ip1.serie_act, ip1.cont, ip1.id_fact, ip1.an, ip1.luna, ip1.id_sucursala) ip +on b.cont = ip.cont and b.id_fact = ip.id_fact and b.an = ip.an and b.luna = ip.luna and NVL(b.id_sucursala, 0) = NVL(ip.id_sucursala, 0) +order by b.dataact, b.partener, b.nrfact, b.cont + ENDTEXT + + llSucces = goExecutor.oExecuta(m.lcSelect, "cIncasariBanca2") + + Use In (Select('cIncasariBanca')) + + IF !m.llSucces + RETURN + ENDIF + + *** Selectez prima aparitie a facturilor din Jurnalul de Vanzari, pentru a lua sume pe cote TVA +*!* SELECT distinct a.an, +*!* a.luna, +*!* a.dataact, +*!* a.id_partc as id_part, +*!* id_factc as id_fact, +*!* perechec As nrfact, +*!* scc As cont +*!* from act a left join nom_parteneri pd on a.id_partd = pd.id_part +*!* where <> + +TEXT TO lcSelect TEXTMERGE NOSHOW +select * + from (select j.*, + rank() over(partition by j.nract, j.serie_act, j.dataact, j.id_part order by j.an, j.luna) as rn + from <> j + join (select distinct ip.id_part, + ip.id_fact, + ip.nract, + ip.cont, + ip.dataact, + ip.serie_act, + ip.id_sucursala + from (<>) b + join ireg_parteneri ip + on b.cont = ip.cont + and b.id_fact = ip.id_fact + and b.an = ip.an + and b.luna = ip.luna + and NVL(b.id_sucursala,0) = NVL(ip.id_sucursala,0)) f + on j.id_part = f.id_part + and j.dataact = f.dataact + and nvl(j.serie_act, 'xxx') = nvl(f.serie_act, 'xxx') + and j.nract = f.nract + and nvl(j.id_fact,f.id_fact) = f.id_fact + and NVL(j.id_sucursala,0) = NVL(f.id_sucursala,0)) + where rn = 1 + ENDTEXT + + llSucces = goExecutor.oExecuta(m.lcSelect, "cJurnalTVATemp") + + IF !m.llSucces + USE IN (SELECT('cIncasariBanca2')) + RETURN + ENDIF + + REPLACE ALL serie_act WITH '' FOR ISNULL(serie_act) IN cJurnalTVATemp + REPLACE ALL seriefact WITH '' FOR ISNULL(seriefact) IN cIncasariBanca2 + + Select cJurnalTVATemp + Index On Padr(id_part, 20, ' ') + Dtos(dataact) + Padr(serie_act, 10, ' ') + Padl(nract, 14, '0') + PADL(NVL(id_sucursala,0), 10, '0') Tag ordine + INDEX on id_fact TAG id_fact + + + lcSir = '' + lcSirBaza = '0' + lcSirTVA = '0' + lcSirNeimpozabil = '0' + lcSirTVAAltele = '0' + lcSirBazaTVA = '0' + For lnField = 1 To Fcount() + lcField = UPPER(Field(m.lnField)) + If Inlist(Left(lcField, 2), 'RO', 'CE', 'WR', 'FO') + lcSir = lcSir + ',j.' + m.lcField + + Do Case + Case Left(m.lcField, 2) = 'RO' And Right(m.lcField, 1) = 'B' + lcSirBaza = m.lcField + '+' + m.lcSirBaza + Case Left(m.lcField, 2) = 'RO' And Right(m.lcField, 1) = 'T' + lcSirTVA = m.lcField + '+' + m.lcSirTVA + Case Left(m.lcField, 2) = 'RO' + lcSirNeimpozabil = m.lcField + '+' + m.lcSirNeimpozabil + Otherwise + lcSirTVAAltele = m.lcField + '+' + m.lcSirTVAAltele + Endcase + lcSirBazaTVA = m.lcField + '+' + m.lcSirBazaTVA + Endif && Inlist(Left(lcField, 2), 'RO', 'CE', 'WR', 'FO') + Endfor && lnField + + If Used('cJurnalTVATemp') + Select cIncasariBanca2 + lcSirActcv = '' + For lnField = 1 To Fcount() + lcField = Field(m.lnField) + lcSirActcv = lcSirActcv + ',a.' + m.lcField + Endfor + lcSirActcv = Substr(m.lcSirActcv, 2) + + lcSelect = [SELECT ] + m.lcSirActcv + ; + [, SPACE(2) as platitortva, SPACE(2) as splittva, SPACE(2) as tvaincasare, SPACE(2) as inactiv ] + ; + lcSir + ; + [ FROM cIncasariBanca2 a, cJurnalTVATemp j where .F. INTO CURSOR cFacturiTVA READWRITE] + &lcSelect + + Select cIncasariBanca2 + Scan + Scatter Name loFact + lcIndex = Padr(id_part, 20, ' ') + Dtos(datafact) + Padr(seriefact, 10, ' ') + Padl(nrfact, 14, '0') + PADL(NVL(id_sucursala,0), 10, '0') + lnIdFact = id_fact + Select cFacturiTVA + Append Blank + Gather Name loFact + + llFound = .F. + Select cJurnalTVATemp + If !Seek(m.lnIdFact,"cJurnalTVATemp","id_fact") + If Seek(m.lcIndex,"cJurnalTVATemp","ordine") + llFound = .T. + ENDIF + ELSE + llFound = .T. + ENDIF + IF m.llFound + Scatter Name loFactTVARO Fields Like 'RO*' + Scatter Name loFactTVACE Fields Like 'CE*' + Scatter Name loFactTVAWR Fields Like 'WR*' + Scatter Name loFactTVAFO Fields Like 'FO*' + + Select cFacturiTVA + Gather Name loFactTVARO + Gather Name loFactTVACE + Gather Name loFactTVAWR + Gather Name loFactTVAFO + + Replace baza With Evaluate(m.lcSirBaza), TVA With Evaluate(m.lcSirTVA), ; + neimpozabil With Evaluate(m.lcSirNeimpozabil), alte_tva With Evaluate(m.lcSirTVAAltele), ; + total_baza_si_tva With Evaluate(m.lcSirBazaTVA) + + *** Defalcare suma incasata pe cote TVA + lnIncasat = total_cont_incasat + lnIncasatAnterior = loFact.totalachitat - m.lnIncasat + lnSign = SIGN(loFact.totalfact) + + Create Cursor cCoteTVAFactura(cota N(5, 2), baza N(20, 4), TVA N(20, 4)) + lnItems = Amembers(laCoteTVA, loFactTVARO) + For lnItem = 1 To m.lnItems + lcItem = Upper(laCoteTVA[m.lnItem]) && RO19B, RO19T, RO19NB, RO19NT + lnBaza = 0 + lnTVA = 0 + + If Right(m.lcItem, 1) = 'T' + lnTVA = EVALUATE('loFactTVARO.' + m.lcItem) + ELSE + lnBaza = EVALUATE('loFactTVARO.' + m.lcItem) + Endif + + lnCotaTVA = Val(Strtran(m.lcItem, 'RO', '')) + Select cCoteTVAFactura + Locate For cota = m.lnCotaTVA + If Found() + REPLACE baza WITH baza + m.lnBaza, TVA WITH TVA + m.lnTVA + Else + Insert Into cCoteTVAFactura(cota, baza, TVA) Values (m.lnCotaTVA, m.lnBaza, m.lnTVA) + Endif + Endfor + + Select cota, Sum(baza) As baza, Sum(TVA) As TVA, Cast(0 As N(20, 4)) As bazaincasat, Cast(0 As N(20, 4)) As tvaincasat ; + From cCoteTVAFactura ; + Group By cota ; + Order By cota Desc ; + Into Cursor cCoteTVAFactura2 Readwrite + + Use In (Select('cCoteTVAFactura')) + + *** Actualizez suma pe cote TVA conform sumei incasate anterior + IF m.lnIncasatAnterior <> 0 + Select cCoteTVAFactura2 + Scan + If (baza <> 0 OR tva <> 0) AND (ABS(m.lnIncasatAnterior) < ABS(baza + TVA) OR SIGN(m.lnIncasatAnterior) <> SIGN(baza+tva)) + lnTVA = ROUND(cota / (100 + cota) * m.lnIncasatAnterior, 2) + lnBaza = (m.lnIncasatAnterior - m.lnTVA) + Else + lnTVA = tva + lnBaza = baza + Endif + Replace tva With tva - m.lnTVA, baza With baza - m.lnBaza + lnIncasatAnterior = m.lnIncasatAnterior - (m.lnBaza + m.lnTVA) + + If m.lnIncasatAnterior = 0 && OR SIGN(m.lnIncasatAnterior) <> m.lnSign + Exit + Endif + ENDSCAN + ENDIF && m.lnIncasatAnterior <> 0 + + *** Scad suma achitata curent conform cote TVA, din sold + Select cCoteTVAFactura2 + Scan + If (baza <> 0 OR tva <> 0) AND (ABS(m.lnIncasat) < ABS(baza + TVA) OR SIGN(m.lnIncasat) <> SIGN(baza+tva)) + Replace tvaincasat With ROUND(cota / (100 + cota) * m.lnIncasat, 2) + Replace bazaincasat With m.lnIncasat - tvaincasat + Else + Replace tvaincasat With TVA, bazaincasat With baza + Endif + lnIncasat = m.lnIncasat - (bazaincasat + tvaincasat) + If m.lnIncasat = 0 + Exit + Endif + Endscan + + Calculate Sum(bazaincasat), Sum(tvaincasat) To lnBazaIncasat, lnTVAIncasat In cCoteTVAFactura2 + Use In (Select('cCoteTVAFactura2')) + + * Daca a mai ramas un rest de incasat fara cota de tva, il pun pe baza incasat + SELECT cFacturiTVA + Replace baza_incasat With m.lnBazaIncasat + (total_cont_incasat - m.lnBazaIncasat - m.lnTVAIncasat), tva_incasat With m.lnTVAIncasat + REPLACE difbaza WITH cont_curent - baza_incasat, diftva WITH cont_tva - tva_incasat + Endif && SEEK(m.lcIndex) + Endscan && ales + Endif && USED('cJurnalTVATemp') + + Use In (Select('cIncasariBanca2')) + + *** Verific pe ANAF starea split tva la data curenta + SELECT distinct cod_fiscal FROM cFacturiTVA INTO CURSOR cCodFiscalTemp + loVerificareANAF = CREATEOBJECT("VerificareANAF") + loVerificareANAF.VerificaListaCIF("cCodFiscalTemp", m.pdDataI, "crsANAF") + USE IN (SELECT('cCodFiscalTemp')) + IF USED("crsAnaf") +*!* crsANAF (cui N(13), data D, denumire V(100), firma V(100), adresa C(244), scpTVA L, data_inceput_ScpTVA D, data_sfarsit_ScpTVA D, data_anul_imp_ScpTVA D, mesaj_ScpTVA C(244), ; +*!* dataInceputTvaInc D, dataSfarsitTvaInc D, dataActualizareTvaInc D, dataPublicareTvaInc D, tipActTvaInc C(100), statusTvaIncasare L, dataInactivare D, dataReactivare D, dataPublicare D, dataRadiere D, statusInactivi L, ; +*!* dataInceputSplitTVA D, dataAnulareSplitTVA D, statusSplitTVA L, ; +*!* tva L, tvaincasare L, splittva L, inactiv L, ; +*!* mesaj V(100), judet V(100), strada V(100), nr V(20), localitate V(100), Bloc V(20), scara V(20), etaj V(20), apart V(20)) + + SELECT crsANAF + SCAN + SCATTER NAME loANAF + UPDATE cFacturiTVA SET platitortva = IIF(loANAF.TVA, "DA", "NU"), ; + splittva = IIF(loANAF.splittva, "DA", "NU"), ; + tvaincasare = IIF(loANAF.tvaincasare, "DA", "NU"), ; + inactiv = IIF(loANAF.inactiv, "DA", "NU") ; + WHERE ALLTRIM(STR(loANAF.cui))$cod_fiscal + ENDSCAN + ENDIF + + lcnume = '' + Select cFacturiTVA + If Reccount() > 0 + Go Top + lcnume = 'splittva' + + + lcXlsFile = Putfile('Facturi TVA defalcat', 'facturitva_' + LOWER(m.lcTip) + '_' + m.lcCont + '_' + Alltrim(Str(gnAn)) + '_' + Padl(m.gnLuna, 2, '0') + '_' + DTOS(m.pdDataI) + '_' + DTOS(m.pdDataF) + '_' + m.lcnume, 'xls') + If !Empty(m.lcXlsFile) + Select cFacturiTVA + Copy To (m.lcXlsFile) Type Xl5 + OPEN_DEFAULT_APP(m.lcXlsFile) + Endif + Endif + + + Use In (Select('cFacturiTVA')) + Use In (Select('cJurnalTVATemp')) +Endproc && TVADefalcatIncasariPlati + + +***************** +*** Raport facturi funizori/clienti pentru un parteneri + baza/tva din registrul de vanzari +*** pentru a sti ce suma TVA trebuie achitata in contul de TVA al furnizorului +*** Optional tnIdFact, tnValoare - doar pentru o factura +***************** +Procedure TVADefalcatFacturi + LPARAMETERS tcCont, tlActiv, tnIdPart, tnIdFact, tnValoare + * tcCont: (obligatoriu) contul 401/4111... + * tlActiv: (obligatoriu) contul este de activ sau pasiv - pentru JV sau JC + * tnIdPart: (obligatoriu) id_partener pentru care se face raportul + * tnIdFact: (optional) id-ul facturii pentru care se face raportul + * tnValoare: (optional) valoarea achitata pentru care se calculeaza raportul, pentru o singura factura + + Private pdDataI, pdDataF + Local lofrm As "frm_perioada_zzllaaaa" + Local laCoteTVA[1], lcField, lcIndex, lcItem, lcSelect, lcSelectAct, lcSelectBanca, lcSelectBanca2 + Local lcSir, lcSirActcv, lcSirBaza, lcSirBazaTVA, lcSirNeimpozabil, lcSirTVA, lcSirTVAAltele + Local lcWhereA, lcXlsFile, lcnume, ldDataCurenta, llSucces, lnBaza, lnBazaIncasat, lnCotaTVA + Local lnField, lnIncasat, lnItem, lnItems, lnTVA, lnTVAIncasat, loFact, loFactTVACE, loFactTVAFO + Local loFactTVARO, loFactTVAWR, lcTipJurnal + LOCAL lcCont, llFound, lnIdFact, llActiv + lcCont = IIF(TYPE('tcCont') = 'C' and !EMPTY(m.tcCont), m.tcCont, '401') && 401 furnizori default + llActiv = m.tlActiv + + lcTipJurnal = IIF(m.llActiv, "JV", "JC") + + lcWhereIreg = [i.an = ] + ALLTRIM(STR(m.gnAn)) + [ and i.luna = ] + ALLTRIM(STR(m.gnLuna)) + [ and i.cont = '] + ALLTRIM(m.lcCont) + ; + [' and i.id_part = ] + ALLTRIM(STR(m.tnIdPart)) + IIF(!EMPTY(m.tnIdFact), [ and i.id_fact = ] + ALLTRIM(STR(m.tnIdFact)), []) + ; + [ and i.precdeb + i.debit - i.preccred - i.credit <> 0] + ; + Strtran(m.gcCondSucursala, [id_sucursala], [i.id_sucursala]) + + *** Selectez datele facturilor din Ireg_parteneri (nract, dataact, serie_act, total_fact, total_achitat) + TEXT TO lcSelect NOSHOW textmerge +SELECT i.dataact, + i.id_part, + p.denumire as partener, + p.cod_fiscal, + i.id_fact, + i.nract as nrfact, + i.cont, + CAST(stringagg(i.acont) as varchar2(100)) as acont, + i.dataact as datafact, + i.serie_act as seriefact, + sum(<>) as totalfact, + sum(<>) as totalachitat, + SUM(<>) as sold, + CAST(0 as Number(20, 4)) as total_baza_si_tva, + CAST(0 as Number(20, 4)) as baza, + CAST(0 as Number(20, 4)) as tva, + CAST(0 as Number(20, 4)) as neimpozabil, + CAST(0 as Number(20, 4)) as alte_tva, + CAST(0 as Number(20, 4)) as total_achitat, + CAST(0 as Number(20, 4)) as baza_achitat, + CAST(0 as Number(20, 4)) as tva_achitat + from ireg_parteneri i + LEFT JOIN NOM_PARTENERI P + ON I.ID_PART = P.ID_PART + where <> + group by i.dataact, + i.id_part, + p.denumire, + p.cod_fiscal, + i.id_fact, + i.nract, + i.cont, + i.dataact, + i.serie_act + order by i.dataact, p.denumire, i.nract, i.cont + ENDTEXT + + llSucces = goExecutor.oExecuta(m.lcSelect, "cIncasariBanca2") + + Use In (Select('cIncasariBanca')) + + IF !m.llSucces + RETURN + ENDIF + + *** Selectez prima aparitie a facturilor din Jurnalul de Vanzari, pentru a lua sume pe cote TVA +TEXT TO lcSelect TEXTMERGE NOSHOW +select * + from (select j.*, + rank() over(partition by j.nract, j.serie_act, j.dataact, j.id_part order by j.an, j.luna) as rn + from <> j + join (select distinct id_part, + id_fact, + nract, + dataact, + serie_act + from ireg_parteneri i + where <>) f + on j.id_part = f.id_part + and j.dataact = f.dataact + and nvl(j.serie_act, 'xxx') = nvl(f.serie_act, 'xxx') + and j.nract = f.nract + and nvl(j.id_fact,f.id_fact) = f.id_fact) + where rn = 1 + ENDTEXT + + llSucces = goExecutor.oExecuta(m.lcSelect, "cJurnalTVATemp") + + IF !m.llSucces + USE IN (SELECT('cIncasariBanca2')) + RETURN + ENDIF + + REPLACE ALL serie_act WITH '' FOR ISNULL(serie_act) IN cJurnalTVATemp + REPLACE ALL seriefact WITH '' FOR ISNULL(seriefact) IN cIncasariBanca2 + + Select cJurnalTVATemp + Index On Padr(id_part, 20, ' ') + Dtos(dataact) + Padr(serie_act, 10, ' ') + Padl(nract, 14, '0') Tag ordine + INDEX on id_fact TAG id_fact + + + lcSir = '' + lcSirBaza = '0' + lcSirTVA = '0' + lcSirNeimpozabil = '0' + lcSirTVAAltele = '0' + lcSirBazaTVA = '0' + For lnField = 1 To Fcount() + lcField = UPPER(Field(m.lnField)) + If Inlist(Left(lcField, 2), 'RO', 'CE', 'WR', 'FO') + lcSir = lcSir + ',j.' + m.lcField + + Do Case + Case Left(m.lcField, 2) = 'RO' And Right(m.lcField, 1) = 'B' + lcSirBaza = m.lcField + '+' + m.lcSirBaza + Case Left(m.lcField, 2) = 'RO' And Right(m.lcField, 1) = 'T' + lcSirTVA = m.lcField + '+' + m.lcSirTVA + Case Left(m.lcField, 2) = 'RO' + lcSirNeimpozabil = m.lcField + '+' + m.lcSirNeimpozabil + Otherwise + lcSirTVAAltele = m.lcField + '+' + m.lcSirTVAAltele + Endcase + lcSirBazaTVA = m.lcField + '+' + m.lcSirBazaTVA + Endif && Inlist(Left(lcField, 2), 'RO', 'CE', 'WR', 'FO') + Endfor && lnField + + If Used('cJurnalTVATemp') + Select cIncasariBanca2 + lcSirActcv = '' + For lnField = 1 To Fcount() + lcField = Field(m.lnField) + lcSirActcv = lcSirActcv + ',a.' + m.lcField + Endfor + lcSirActcv = Substr(m.lcSirActcv, 2) + + lcSelect = [SELECT ] + m.lcSirActcv + ; + [, SPACE(2) as platitortva, SPACE(2) as splittva, SPACE(2) as tvaincasare, SPACE(2) as inactiv ] + ; + lcSir + ; + [ FROM cIncasariBanca2 a, cJurnalTVATemp j where .F. INTO CURSOR cFacturiTVA READWRITE] + &lcSelect + + Select cIncasariBanca2 + Scan + Scatter Name loFact + lcIndex = Padr(id_part, 20, ' ') + Dtos(datafact) + Padr(seriefact, 10, ' ') + Padl(nrfact, 14, '0') + lnIdFact = id_fact + Select cFacturiTVA + Append Blank + Gather Name loFact + + llFound = .F. + Select cJurnalTVATemp + If !Seek(m.lnIdFact,"cJurnalTVATemp","id_fact") + If Seek(m.lcIndex,"cJurnalTVATemp","ordine") + llFound = .T. + ENDIF + ELSE + llFound = .T. + ENDIF + IF m.llFound + Scatter Name loFactTVARO Fields Like 'RO*' + Scatter Name loFactTVACE Fields Like 'CE*' + Scatter Name loFactTVAWR Fields Like 'WR*' + Scatter Name loFactTVAFO Fields Like 'FO*' + + Select cFacturiTVA + Gather Name loFactTVARO + Gather Name loFactTVACE + Gather Name loFactTVAWR + Gather Name loFactTVAFO + + Replace baza With Evaluate(m.lcSirBaza), TVA With Evaluate(m.lcSirTVA), ; + neimpozabil With Evaluate(m.lcSirNeimpozabil), alte_tva With Evaluate(m.lcSirTVAAltele), ; + total_baza_si_tva With Evaluate(m.lcSirBazaTVA) + + *** Defalcare suma incasata pe cote TVA + lnIncasat = IIF(EMPTY(m.tnIdFact), loFact.sold, m.tnValoare) && defalc soldul sau valoarea trimisa ca parametru pentru o singura factura + lnIncasatAnterior = loFact.totalachitat + lnSign = SIGN(loFact.totalfact) + REPLACE total_achitat WITH m.lnIncasat + + Create Cursor cCoteTVAFactura(cota N(5, 2), baza N(20, 4), TVA N(20, 4)) + lnItems = Amembers(laCoteTVA, loFactTVARO) + For lnItem = 1 To m.lnItems + lcItem = Upper(laCoteTVA[m.lnItem]) && RO19B, RO19T, RO19NB, RO19NT + lnBaza = 0 + lnTVA = 0 + + If Right(m.lcItem, 1) = 'T' + lnTVA = EVALUATE('loFactTVARO.' + m.lcItem) + ELSE + lnBaza = EVALUATE('loFactTVARO.' + m.lcItem) + Endif + + lnCotaTVA = Val(Strtran(m.lcItem, 'RO', '')) + Select cCoteTVAFactura + Locate For cota = m.lnCotaTVA + If Found() + REPLACE baza WITH baza + m.lnBaza, TVA WITH TVA + m.lnTVA + Else + Insert Into cCoteTVAFactura(cota, baza, TVA) Values (m.lnCotaTVA, m.lnBaza, m.lnTVA) + Endif + Endfor + + Select cota, Sum(baza) As baza, Sum(TVA) As TVA, Cast(0 As N(20, 4)) As bazaincasat, Cast(0 As N(20, 4)) As tvaincasat ; + From cCoteTVAFactura ; + Group By cota ; + Order By cota Desc ; + Into Cursor cCoteTVAFactura2 Readwrite + + Use In (Select('cCoteTVAFactura')) + + *** Diminuez baza si TVA pe cote TVA cu suma incasate anterior + IF m.lnIncasatAnterior <> 0 + Select cCoteTVAFactura2 + SCAN + If ABS(m.lnIncasatAnterior) < ABS(baza + TVA) + lnTVA = ROUND(cota / (100 + cota) * m.lnIncasatAnterior, 2) + lnBaza = (m.lnIncasatAnterior - m.lnTVA) + Else + lnTVA = tva + lnBaza = baza + Endif + Replace tva With tva - m.lnTVA, baza With baza - m.lnBaza + lnIncasatAnterior = m.lnIncasatAnterior - (m.lnBaza + m.lnTVA) + If m.lnIncasatAnterior = 0 OR SIGN(m.lnIncasatAnterior) <> m.lnSign + Exit + Endif + ENDSCAN + ENDIF && m.lnIncasatAnterior <> 0 + + *** Scad suma achitata curent conform cote TVA, din sold + Select cCoteTVAFactura2 + Scan + If ABS(m.lnIncasat) < ABS(baza + TVA) + Replace tvaincasat With ROUND(cota / (100 + cota) * m.lnIncasat, 2) + Replace bazaincasat With m.lnIncasat - tvaincasat + Else + Replace tvaincasat With TVA, bazaincasat With baza + Endif + lnIncasat = lnIncasat - (bazaincasat + tvaincasat) + If m.lnIncasat = 0 OR SIGN(m.lnIncasat) <> m.lnSign + Exit + Endif + Endscan + + Calculate Sum(bazaincasat), Sum(tvaincasat) To lnBazaIncasat, lnTVAIncasat In cCoteTVAFactura2 + Use In (Select('cCoteTVAFactura2')) + + * Daca a mai ramas un rest de incasat fara cota de tva, il pun pe baza incasat + * Daca am transmis o valoare de defalcat, nu mai adaug nimic ??? nu imi da corect + SELECT cFacturiTVA + Replace baza_achitat With m.lnBazaIncasat + IIF(EMPTY(m.tnIdFact),(sold - m.lnBazaIncasat - m.lnTVAIncasat), 0), tva_achitat With m.lnTVAIncasat +*!* REPLACE difbaza WITH cont_curent - baza_sold, diftva WITH cont_tva - tva_sold + Endif && SEEK(m.lcIndex) + Endscan && ales + Endif && USED('cJurnalTVATemp') + + Use In (Select('cIncasariBanca2')) + + *** Verific pe ANAF starea split tva la data curenta + SELECT distinct cod_fiscal FROM cFacturiTVA INTO CURSOR cCodFiscalTemp + loVerificareANAF = CREATEOBJECT("VerificareANAF") + loVerificareANAF.VerificaListaCIF("cCodFiscalTemp", Date(), "crsANAF") + USE IN (SELECT('cCodFiscalTemp')) + IF USED("crsAnaf") +*!* crsANAF (cui N(13), data D, denumire V(100), firma V(100), adresa C(244), scpTVA L, data_inceput_ScpTVA D, data_sfarsit_ScpTVA D, data_anul_imp_ScpTVA D, mesaj_ScpTVA C(244), ; +*!* dataInceputTvaInc D, dataSfarsitTvaInc D, dataActualizareTvaInc D, dataPublicareTvaInc D, tipActTvaInc C(100), statusTvaIncasare L, dataInactivare D, dataReactivare D, dataPublicare D, dataRadiere D, statusInactivi L, ; +*!* dataInceputSplitTVA D, dataAnulareSplitTVA D, statusSplitTVA L, ; +*!* tva L, tvaincasare L, splittva L, inactiv L, ; +*!* mesaj V(100), judet V(100), strada V(100), nr V(20), localitate V(100), Bloc V(20), scara V(20), etaj V(20), apart V(20)) + + SELECT crsANAF + SCAN + SCATTER NAME loANAF + UPDATE cFacturiTVA SET platitortva = IIF(loANAF.TVA, "DA", "NU"), ; + splittva = IIF(loANAF.splittva, "DA", "NU"), ; + tvaincasare = IIF(loANAF.tvaincasare, "DA", "NU"), ; + inactiv = IIF(loANAF.inactiv, "DA", "NU") ; + WHERE ALLTRIM(STR(loANAF.cui))$cod_fiscal + ENDSCAN + ENDIF + + lcnume = '' + Select cFacturiTVA + If Reccount() > 0 + Go Top + lcNume = 'splittva_' + ALLTRIM(cFacturiTVA.cod_fiscal) + + lcXlsFile = Putfile('Facturi TVA defalcat', 'facturitva_achitat_' + m.lcCont + '_' + lcTipJurnal + '_' + Alltrim(Str(gnAn)) + Padl(m.gnLuna, 2, '0') + '_' + m.lcnume, 'xls') + If !Empty(m.lcXlsFile) + Select cFacturiTVA + Copy To (m.lcXlsFile) Type Xl5 + OPEN_DEFAULT_APP(m.lcXlsFile) + Endif + Endif + + + Use In (Select('cFacturiTVA')) + Use In (Select('cJurnalTVATemp')) +Endproc && TVADefalcatFacturi \ No newline at end of file diff --git a/Programe/osituatii_operative.prg b/Programe/osituatii_operative.prg new file mode 100644 index 0000000..665d8b7 --- /dev/null +++ b/Programe/osituatii_operative.prg @@ -0,0 +1,603 @@ +*!* 04.08.2011 +*!* marius.mutu +*!* PrepareRptSitOp +*!* soldul initial se ia din max(luna de initializare, luna de inceput) in loc de luna de inceput care putea sa nu aiba sume +*!* #3086 + +*!* 10.11.2011 +*!* marius.mutu +*!* PrepareRptSitOp +*!* luna de initializare este (precdeb <> 0 sau preccred <> 0) sau (debit <> 0 sau credit <> 0) +*!* nu detecta corect luna de initializare pentru clienti cu sume in luna + +*!* 02.07.2019 +*!* marius.mutu +*!* PrepareRptSitOp - corectie grupare la !"defalcare dupa documente pereche" + + +********************************************************************************** +PROCEDURE PrepareRptBalantaFC +LPARAMETERS tcCont,tcTitlu,tcNumeRaport,tleActiv + +** daca nu este precizat contul => va fi cerut + + +STORE "" TO lctitlu,lcNumeRaport,lcCont +STORE .F. TO eActiv + +lcNumeRaport = tcNumeRaport +eActiv = tleActiv + +IF EMPTY(tcTitlu) + lctitlu = "Jurnal" +ELSE + lctitlu = tcTitlu +ENDIF + +IF EMPTY(tcCont) && cere cont, titlu + DO Alege_Cont_Titlu WITH lcCont,eActiv,lctitlu +ELSE + lcCont = tcCont + ** cere & propune [doar] titlu raport: + DO ceretitlu_raport_v2 WITH 'Titlul Raportului','lcTitlu' +ENDIF + +**preluare ora de pe oracle server: +*!* STORE 0 TO pnsucces +*!* pcexec = [select to_char(SYSdate,'dd/mm/yyyy hh24:mi:ss') as dataora from dual] +*!* pcCursor = [dataora_cursor] +*!* pnsucces = goExecutor.oExecute(pcexec,pcCursor) +*!* IF (pnsucces != 0) +*!* SELECT dataora_cursor +*!* pcdataora = dataora_cursor.dataora +*!* USE IN dataora_cursor +*!* ENDIF +*!* pcDataOra = get_ora(2) +If glEMama + pcexec = [select sum(precdeb1) as precdeb1,sum(preccred1) as preccred1,] + ; + [sum(precdeb) as precdeb,sum(preccred) as preccred,] + ; + [sum(debit) as debit,sum(credit) as credit,] + ; + [sum(totdeb) as totdeb,sum(totcred) as totcred,] + ; + [sum(solddeb) as solddeb,sum(soldcred) as soldcred,] + ; + [sum(precvaldeb1) as precvaldeb1,sum(precvalcred1) as precvalcred1,] + ; + [sum(precvaldeb) as precvaldeb,sum(precvalcred) as precvalcred,] + ; + [sum(valdebit) as valdebit,sum(valcredit) as valcredit,] + ; + [sum(totvaldeb) as totvaldeb,sum(totvalcred) as totvalcred,] + ; + [sum(soldvaldeb) as soldvaldeb,sum(soldvalcred) as soldvalcred,] + ; + [id_part,nume,cod_fiscal,cont,acont,an,luna,id_valuta,] + ; + [nume_val,moneda_nationala ] + ; + [from ] + gcS + [.vbalanta_parteneri ] + ; + [WHERE cont = ] + Alltrim(lcCont) + [ and luna = ] + Alltrim(Str(gnluna)) + ; + [ and an = ] + Alltrim(Str(gnan)) + ; + [ group by id_part,nume,cod_fiscal,cont,acont,an,luna,] + ; + [id_valuta,nume_val,moneda_nationala order by nume] +Else + pcexec = [SELECT * from ] + gcS + [.vbalanta_parteneri ] + ; + [WHERE cont = ] + Alltrim(lcCont) + [ and luna = ] + Alltrim(Str(gnluna)) + ; + [ and an = ] + Alltrim(Str(gnan)) + gcCondSucursala + [ order by nume] +Endif +pcCursor = [curent_bal_cursor] +pnsucces = goExecutor.oExecute(pcexec,pcCursor) +If (pnsucces != 0) +*!* If reccount(pcCursor) > 0 +*!* Select (pcCursor) +*!* Report Format &lcNumeRaport To Printer Prompt Noconsole Preview +*!* Use In (pcCursor) +*!* Else +*!* amessagebox("Nu exista inregistrari pentru listare!",48,"Atentie") +*!* Endif + goExport.export2frx(pcCursor,lcNumeRaport) +Endif +Endproc +**************************************************************************************** +******************************************************************************************** + +PROCEDURE Alege_Cont +LPARAMETERS tcCont,tleActiv + +PRIVATE polista,pcschema1,pcselect1,pcfiltru1,pcorder1 +STORE "" TO polista +pcschema1=['cont c(4),acont c(4),explicatie c(50)'] +pcselect1=['select distinct cont,rpad(CHR(32),4,CHR(32)) as acont,explicatie from ]+gcS+[.vcoresp_tip_cont where 1=2'] +pcfiltru1=[2=2] +pcorder1=[cont] +llAfisare=.F. +gencursor('polista','clista',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfisare) +polista.ca_baza1.afisare() + + +SELECT clista +loCont=myscatter('blank') + +PRIVATE eActiv +STORE .T. TO eActiv + +Ol=CREATEOBJECT("frm_cere_cont") +WITH Ol + .titlufrumos1.CAPTION= 'Selectati contul' + IF EMPTY(.cboCont.ROWSOURCE) + .cboCont.ROWSOURCE="clista.cont,acont" + ENDIF + .ocont=loCont + IF EMPTY(.cAlias) + .cAlias=LEFT(.cboCont.ROWSOURCE,AT(".",.cboCont.ROWSOURCE)-1) + ENDIF + .HEIGHT = 190 +ENDWITH +Ol.SHOW(1) + +IF buton = 2 + USE IN clista + RETURN +ENDIF + +tcCont = loCont.CONT +tleActiv = eActiv +ENDPROC + +******************************************************************************************** + +PROCEDURE ceretitlu_raport_v2 +PARAMETERS pc_tit,pc_var +obj1=CREATEOBJECT("frm_cere_titlu") +obj1.clb_tx_simplu1.lb_simplu1.CAPTION = pc_tit +obj1.clb_tx_simplu1.text_simplu1.CONTROLSOURCE = pc_var +obj1.SHOW(1) + +******************************************************************************************** + +PROCEDURE Alege_Cont_Titlu +LPARAMETERS tcCont,tleActiv,tcTitlu + +PRIVATE polista,pcschema1,pcselect1,pcfiltru1,pcorder1 +STORE "" TO polista +pcschema1=['cont c(4),acont c(4),explicatie c(50)'] +pcselect1=['select distinct cont,rpad(CHR(32),4,CHR(32)) as acont,explicatie from ]+gcS+[.vcoresp_tip_cont where 1=2'] +pcfiltru1=[2=2] +pcorder1=[cont] +llAfisare=.F. +gencursor('polista','clista',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfisare) +polista.ca_baza1.afisare() + + +SELECT clista +loCont=myscatter('blank') + +PRIVATE eActiv +STORE .T. TO eActiv + +Ol=CREATEOBJECT("frm_cere_cont_titlu") +WITH Ol + .titlufrumos1.CAPTION= 'Selectati contul' + IF EMPTY(.cboCont.ROWSOURCE) + .cboCont.ROWSOURCE="clista.cont,acont" + ENDIF + .ocont=loCont + IF EMPTY(.cAlias) + .cAlias=LEFT(.cboCont.ROWSOURCE,AT(".",.cboCont.ROWSOURCE)-1) + ENDIF + .HEIGHT = 190 +ENDWITH +Ol.SHOW(1) + +IF buton = 2 + tcCont = "0" + USE IN clista + RETURN +ELSE + tcCont = loCont.CONT + tleActiv = eActiv +ENDIF + +ENDPROC + +******************************************************************************************** + +**************************************************************************************** +** daca NU primeste cont si activ => va alege utilizatoru pt. ce cont vrea situatia, +** altfel va fi blocat pe contul primit ca parametru +** daca primeste cont si activ => trebuie sa primeasca si ceilalti parametrii:tlCauta_alfa_Cu_Toti,tlPerioada_Blocata,tcRaport_sau_Vizualizare,tc_NumeForma +**altfel nu este nevoie de ei +PROCEDURE PrepareRptSitOp +LPARAMETERS tcCont,tlActiv,tcTitlu,tlCauta_alfa_Cu_Toti,tlPerioada_Blocata,tcRaport_sau_Vizualizare,tc_NumeForma, tcLuna_sau_Perioada +**rol parametrii: +**___________________ +**tcCont : contul +**tlActiv : e true daca contu e activ, false dac e pasiv +**tcTitlu : titlul raportului +**tlCauta_alfa_Cu_Toti: true <=> sa apara "" in cauta_alfa, false <=> sa nu apara +**tlPerioada_Blocata : true <=> utilizatorul are blocata perioada, este predefinita, false <=> utilizatorul poate selecta o perioada +**tcRaport_sau_Vizualizare: "Vizualizare" <=> e vizulaizare, lasat gol (sau lipsa) <=>direct raport +**tc_NumeForma : numele clasei dupa care va fi facuta forma de vizualizare (cum e aceeasi in toate cazurile, ar putea lipsi...) +Private plDefalcatDocumentPereche, pnSemn, pnId_part, pcCont, pcPerioada, pcAnalitic, plActiv +Private lctitlu,lcPerioada,lcEntitateAleasa,lnId_part,lnFel_raport, llFormRelease, lcluna1, lcluna2, lclunaAn1, lclunaAn2, lcAn1, lcAn2 +PRIVATE lnSold_Final_Total, lnSold_Initial_Total + +Local lnNrLuni1, lnNrLuni2, lcConditieAnaliticCredit, lcConditieAnaliticDebit, lcRaport, lcSelect, lcSql +Local lnId_part_curent, lnSoldInit, lnSucces, j + +plDefalcatDocumentPereche = .T. && daca documentele de incasare/plata se defalca dupa documentele pereche + +STORE "" TO lctitlu,lcPerioada,lcEntitateAleasa, pcAnalitic +STORE 0 TO lnId_part,lnFel_raport +STORE .F. TO plActiv + +STORE .F. TO llFormRelease + +pcCont = IIF(EMPTY(tcCont),[],tcCont) + +DECLARE laId_part(1,1) && stocare id-uri parteneri +laId_part[1,1] = 0 + +IF EMPTY(tcRaport_sau_Vizualizare) + tcRaport_sau_Vizualizare = "Raport" +ENDIF + +IF EMPTY(tcTitlu) + lctitlu = "Situatii Operative "+pcCont && titlu default +ELSE + lctitlu = tcTitlu +ENDIF + +** daca primeste parametrii de restrictie => creaza forma de introducere cont si partener cu acesti parametrii: +**daca NU => o creaza cu totul selectabil: +IF !EMPTY(tcCont) + OsitOp = CREATEOBJECT('frm_lans_sit_op',tcCont,tlActiv,tlCauta_alfa_Cu_Toti,tlPerioada_Blocata,tcLuna_sau_Perioada) +ELSE && elsu asta deocamdata nu-l face deloc... + *!* lctitlu = "Situatie Operativa Entitati" + *!* DO ceretitlu_raport_v2 WITH 'Titlul Raportului','lcTitlu' + OsitOp = CREATEOBJECT('frm_lans_sit_op') +ENDIF +OsitOp.SHOW(1) + +IF !llFormRelease + RETURN +ENDIF + +IF (AT("-",lcPerioada)!=0) + lclunaAn1 = SUBSTR(lcPerioada,1,7) + lclunaAn2 = SUBSTR(lcPerioada,9) + lcluna1=SUBSTR(lclunaAn1,1,2) + lcAn1 = SUBSTR(lclunaAn1,4) + lcluna2=SUBSTR(lclunaAn2,1,2) + lcAn2 = SUBSTR(lclunaAn2,4) +ELSE + lcluna1=SUBSTR(PADL(lcPerioada,7,"0"),1,2) + lcAn1 = SUBSTR(PADL(lcPerioada,7,"0"),4) + lcluna2 = lcluna1 + lcAn2 = lcAn1 +ENDIF + +IF lcEntitateAleasa = "" + lcEntitateAleasa = "Toate Entitatile" +ENDIF + + +pnSemn = IIF(plActiv = .T., 1, -1) +pnId_part = lnId_part +*!* modificare v 2.0.85 +*!* pcCont = tcCont +*!* modificare v 2.0.85 ^ +pcPerioada = lcPerioada + +pcAnalitic=ALLTRIM(pcAnalitic) +*MESSAGEBOX(pcAnalitic) +** restrictii: +** totzi partenerii => doar luna curenta, (simplu=NEgrupat sau grupat) +** singur partener => raport simplu=NEgrupat (pe o luna sau pe un interval de luni) + +*** creare structura cursor: + + +CREATE CURSOR cursor_raport (nrord c(50) NULL, contract c(30) NULL, fel_document c(30) NULL, PART c(100) NULL, partX c(100) NULL, serie_act C(10) NULL, nract N(20), dataact d NULL,datascad d NULL, ; + debit N(20,4), credit N(20,4), soldi N(20,4), soldf N(20,4), dataireg d NULL, id_lucrare N(10), id_fdoc N(10), an N(4), luna N(2), ; + id_part N(10), id_partX N(10), id_fact N(10), id_factX N(10), perecheX N(14), contX c(4)) + +*** sold initial: +*** luna pentru soldurile initiale = max(luna de initializare solduri, luna de inceput) +*!* 04.08.2011 +LOCAL lnAnLunaInitializare, lnAnInitializare, lnLunaInitializare +lnAnLunaInitializare = 0 +lnLunaInitializare = VAL(m.lcLuna1) +lnAnInitializare = VAL(m.lcAn1) +lnNrLuni1 = VAL(m.lcAn1)*12 + VAL(m.lcLuna1) +lnNrLuni2 = VAL(m.lcAn2)*12 + VAL(m.lcLuna2) + +lcSql = [SELECT MIN(an*12 + luna) as luna_initializare FROM balanta_parteneri WHERE cont = ?pcCont and (precdeb <> 0 OR preccred <> 0 or debit <> 0 or credit <> 0) and an*12+luna BETWEEN ] + ; + ALLTRIM(STR(lnNrLuni1)) + [ and ] + ALLTRIM(STR(lnNrLuni2)) + IIF(pnId_part <> 0,[ and id_part = ?pnId_part],[]) +lnSucces = goExecutor.oSelect2Value(lcSql, @lnAnLunaInitializare) +IF lnSucces < 0 + aMESSAGEBOX(goExecutor.cEroare, 0+48, _screen.Caption) +ENDIF +lnAnLunaInitializare = MAX(NVL(m.lnAnLunaInitializare,0), lnAnInitializare * 12 + lnLunaInitializare ) + +NrLuni2AnLuna(lnAnLunaInitializare, @lnAnInitializare, @lnLunaInitializare) +lcAn1 = ALLTRIM(STR(INT(lnAnInitializare))) +lcLuna1 = PADL(INT(lnLunaInitializare), 2, '0') +*!* 04.08.2011 ^ + +*!* IF (lnId_part != 0) && simplu=NEgrupat <=> un singur partener +pcexec = [SELECT ?pnSemn*sum(precdeb-preccred) as sold_init from ] + ; + gcS + [.balanta_parteneri WHERE ] + IIF(pnId_part <> 0,[id_part =?pnId_part],[1=1]) + ; + [ and luna=] + ALLTRIM(STR(lnLunaInitializare)) + [ and an=] + ALLTRIM(STR(lnAnInitializare)) + [ and cont = ?pcCont] +IIF(EMPTY(pcAnalitic),[],[ and acont=?pcAnalitic ])+ gcCondSucursala +*!* ELSE +*!* pcexec = [SELECT ?pnSemn*(precdeb-preccred) as sold_init from ] + gcS + [.bal WHERE luna = ] + ALLTRIM(lcluna1) + [ and an=] + ALLTRIM(lcAn1) + [ and cont=] + ALLTRIM(lcCont) +*!* ENDIF + +pcCursor = [sold_cursor] +pnsucces = goExecutor.oExecute(pcexec,pcCursor) +SELECT sold_cursor +GO TOP +IF ISNULL(sold_init) + lnSoldInit = 0 +ELSE + lnSoldInit = sold_init +ENDIF +USE IN sold_cursor + +*** inserare prima linie cu sold initial: +SELECT cursor_raport +IF (pnSemn = 1) && activ + INSERT INTO cursor_raport(nrord,debit,an,luna) VALUES("SOLD INITIAL "+lcluna1+"/"+lcAn1,lnSoldInit,VAL(lcAn1),VAL(lcluna1)) +ELSE + INSERT INTO cursor_raport(nrord,credit,an,luna) VALUES("SOLD INITIAL "+lcluna1+"/"+lcAn1,lnSoldInit,VAL(lcAn1),VAL(lcluna1)) +ENDIF + +*** umplere cursor_raport cu datele din act: +If pcAnalitic #"" +lcConditieAnaliticDebit=[ and ascd = ?pcAnalitic] +lcConditieAnaliticCredit=[ and ascc = ?pcAnalitic] +Else +lcConditieAnaliticDebit=[] +lcConditieAnaliticCredit=[] +EndIf + + +IF (lnId_part != 0) && simplu=NEgrupat <=> un singur partener + pcexec = [select l.nrord, c.contract, f.fel_document, p.nume as part, px.nume as partX,a.serie_act,a.nract,a.dataact,a.datascad, ] +; + [SUM(a.debit) as debit, SUM(a.credit) as credit,a.dataireg,a.id_lucrare,a.id_ctr, a.id_fdoc,a.an,a.luna,a.id_part,a.id_partX, a.id_fact, a.id_factX, a.perecheX, MAX(a.contX) as contX from ] +; + [(select (case when scd = ?pcCont then id_partd when scc = ?pcCont then id_partc else 00000000000000000 end) as id_part,]+; + [(case when scd = ?pcCont then id_partc when scc = ?pcCont then id_partd else 00000000000000000 end) as id_partX,]+; + Iif(!plDefalcatDocumentPereche, ; + [00000000000000000 as perecheX,], ; + [(case when scd = ?pcCont then perecheD when scc = ?pcCont then perecheC else 00000000000000000 end) as perecheX,]) + ; + Iif(!plDefalcatDocumentPereche, ; + [00000000000000000 as id_factX,], ; + [(case when scd = ?pcCont then id_factD when scc = ?pcCont then id_factC else 00000000000000000 end) as id_factX,]) + ; + [(case when scd = ?pcCont and ?pnSemn = -1 then scc when scc = ?pcCont and ?pnSemn = 1 then scd else ' ' end) as contX,]+; + [(case when (scd = ?pcCont and NVL(e.exceptie,0)=0) or (scc = ?pcCont and ?pnSemn=1 and NVL(e.exceptie,0)=1) then CASE WHEN NVL(E.EXCEPTIE,0) = 1 THEN -SUMA ELSE SUMA END else 0.0000 end) as debit,]+; + [(case when (scc = ?pcCont and NVL(e.exceptie,0)=0 ) or (scd = ?pcCont and ?pnSemn=-1 and NVL(e.exceptie,0)=1) then CASE WHEN NVL(E.EXCEPTIE,0) = 1 THEN -SUMA ELSE SUMA END else 0.0000 end) as credit,]+; + [id_fact, serie_act, nract, dataact,datascad, dataireg, id_lucrare, id_ctr, id_fdoc, an, luna ] +; + [ from act ] +; + [LEFT JOIN (SELECT DISTINCT 1 AS EXCEPTIE,]+; + [DECODE(DEBIT, 1, CONT_C, CONT) AS SCDe,]+; + [DECODE(DEBIT, 1, CONT, CONT_C) AS SCCe ]+; + [FROM EXCEPTII_IREG ]+; + [WHERE INVERS = 1 ]+; + [AND CONT = ']+pcCont+[') E ON Act.SCD = E.SCDe ]+; + [AND Act.SCC = E.SCCe ]+; + [where sters = 0 and ((scd = ?pcCont and id_partd = ?pnId_part]+lcConditieAnaliticDebit+[) or (scc = ?pcCont and id_partc = ?pnId_part]+lcConditieAnaliticCredit+[))] + ; + gcCondSucursala + ; + [ and an*12+luna between ] + ALLTRIM(lcAn1) + [*12+] + ALLTRIM(lcluna1) + [ and ] + ALLTRIM(lcAn2) + [*12+] + ALLTRIM(lcluna2) + [) a ] +; + [left join vnom_lucrari l on a.id_lucrare = l.id_lucrare ] +; + [left join vcontracte c on a.id_ctr = c.id_ctr ] +; + [left join nom_fdoc f on a.id_fdoc = f.id_fdoc ] +; + [left join nom_parteneri p on a.id_part = p.id_part ] +; + [left join nom_parteneri px on a.id_partX = px.id_part ] +; + [group by l.nrord, c.contract, f.fel_document, p.nume, px.nume,a.serie_act, a.nract,a.dataact,a.datascad,a.dataireg,a.id_lucrare,a.id_ctr,a.id_fdoc,a.an,a.luna,a.id_part,a.id_partX, a.id_fact ] + ; + [,a.id_factX, a.perecheX ] + ; + [order by a.dataact, a.nract] +ELSE + pcexec = [select l.nrord, c.contract, f.fel_document, p.nume as part, px.nume as partX,a.serie_act,a.nract,a.dataact,a.datascad, ] +; + [SUM(a.debit) as debit, SUM(a.credit) as credit,a.dataireg,a.id_lucrare,a.id_ctr,a.id_fdoc,a.an,a.luna,a.id_part,a.id_partX, a.id_fact, a.id_factX, a.perecheX, MAX(a.contX) from ] +; + [(select (case when scd = ?pcCont then id_partd when scc = ?pcCont then id_partc else 00000000000000000 end) as id_part,]+; + [(case when scd = ?pcCont then id_partc when scc = ?pcCont then id_partd else 00000000000000000 end) as id_partX,]+; + Iif(!plDefalcatDocumentPereche, [00000000000000000 as perecheX,], ; + [(case when scd = ?pcCont then perecheD when scc = ?pcCont then perecheC else 00000000000000000 end) as perecheX,]) + ; + Iif(!plDefalcatDocumentPereche, [00000000000000000 as id_factX,], ; + [(case when scd = ?pcCont then id_factD when scc = ?pcCont then id_factC else 00000000000000000 end) as id_factX,]) + ; + [(case when scd = ?pcCont and ?pnSemn = -1 then scc when scc = ?pcCont and ?pnSemn = 1 then scd else ' ' end) as contX,]+; + [(case when (scd = ?pcCont and NVL(e.exceptie,0)=0) or (scc = ?pcCont and ?pnSemn=1 and NVL(e.exceptie,0)=1) then CASE WHEN NVL(E.EXCEPTIE,0) = 1 THEN -SUMA ELSE SUMA END else 0.0000 end) as debit,]+; + [(case when (scc = ?pcCont and NVL(e.exceptie,0)=0) or (scd = ?pcCont and ?pnSemn=-1 and NVL(e.exceptie,0)=1) then CASE WHEN NVL(E.EXCEPTIE,0) = 1 THEN -SUMA ELSE SUMA END else 0.0000 end) as credit,]+; + [id_fact, serie_act, nract, dataact,datascad, dataireg, id_lucrare, id_ctr,id_fdoc, an, luna ]+; + [ from act ] +; + [LEFT JOIN (SELECT DISTINCT 1 AS EXCEPTIE,]+; + [DECODE(DEBIT, 1, CONT_C, CONT) AS SCDe,]+; + [DECODE(DEBIT, 1, CONT, CONT_C) AS SCCe ]+; + [FROM EXCEPTII_IREG ]+; + [WHERE INVERS = 1 ]+; + [AND CONT = ']+pcCont+[') E ON Act.SCD = E.SCDe ]+; + [AND Act.SCC = E.SCCe ]+; + [where sters = 0 and ((scd = ?pcCont]+lcConditieAnaliticDebit+[) or (scc = ?pcCont ]+lcConditieAnaliticCredit+[))] + ; + gcCondSucursala + ; + [ and an*12+luna between ] + ALLTRIM(lcAn1) + [*12+] + ALLTRIM(lcluna1) + [ and ] + ALLTRIM(lcAn2) + [*12+] + ALLTRIM(lcluna2) + [) a ] +; + [left join vnom_lucrari l on a.id_lucrare = l.id_lucrare ] +; + [left join vcontracte c on a.id_ctr = c.id_ctr ] +; + [left join nom_fdoc f on a.id_fdoc = f.id_fdoc ] +; + [left join nom_parteneri p on a.id_part = p.id_part ] +; + [left join nom_parteneri px on a.id_partX = px.id_part ] +; + [group by l.nrord, c.contract, f.fel_document, p.nume, px.nume,a.serie_act,a.nract,a.dataact,a.datascad,a.dataireg,a.id_lucrare,a.id_ctr,a.id_fdoc,a.an,a.luna,a.id_part,a.id_partX, a.id_fact ] + ; + [,a.id_factX, a.perecheX ] + ; + [order by ] + IIF(lnFel_raport = 1,[p.nume,a.id_part,],[]) + [a.dataact, a.nract] +ENDIF + +pcCursor = [cursor_act] +pnsucces = goExecutor.oExecute(pcexec,pcCursor) +IF pnsucces < 0 + AMESSAGEBOX('Eroare la cursor_act : ' + goExecutor.cEroare) + RETURN +ENDIF + +SELECT cursor_raport +APPEND FROM DBF('cursor_act') +** calculare si inserare sold cumulat: +**[prinde in calcul si soldul initial, acesta fiind trecut pe coloana debit sau credit, pe prima linie] + +*---------------- UN FEL DE DENOMINARE daca data in care am intrat este mai mare decat 7/2005 +IF (gnan*12 + gnluna >= gnAnRon*12 + gnLunaRon) AND (VAL(lcluna1) + VAL(lcAn1)*12 < gnAnRon*12 + gnLunaRon) + SELECT cursor_raport + REPLACE ALL debit WITH debit/10000 FOR an *12 + luna < gnAnRon*12 + gnLunaRon + REPLACE ALL credit WITH credit/10000 FOR an *12 + luna < gnAnRon*12 + gnLunaRon +ENDIF +*---------------- END UN FEL DE DENOMINARE + +IF !(lnFel_raport = 1) && NEgrupat + STORE 0 TO lnSold_Initial_Total + STORE 0 TO lnSold_Final_Total + STORE 0 TO sold_cumulat + + SELECT cursor_raport + LOCATE + lnSold_Initial_Total = lnSold_Initial_Total + pnSemn*(debit - credit) + SCAN + sold_cumulat = sold_cumulat + pnSemn*(debit - credit) + REPLACE soldf WITH sold_cumulat + ENDSCAN + lnSold_Final_Total = sold_cumulat +ELSE + ** incarcare vector cu solduri initiale pe fiecare partener: + *** sold initial/partener: + pcexec = [SELECT id_part, nume as part, sum(?pnSemn*(precdeb-preccred)) as sold_init, 0 as ales ] + ; + [from vbalanta_parteneri WHERE luna=] + ALLTRIM(STR(lnLunaInitializare)) + [ and an=] + ALLTRIM(STR(lnAnInitializare)) + [ and cont = ?pcCont ] +; + gcCondSucursala + ; + [ group by id_part, nume order by nume ] + *!* 04.08.2011 ^ + pcCursor = [sold_cursor] + pnsucces = goExecutor.oExecute(pcexec,pcCursor) + + ** calculare si inserare sold initial,sold final/fiece partener: + STORE 0 TO lnSold_Initial_Total + STORE 0 TO lnSold_Final_Total + STORE 1 TO j + STORE 0 TO sold_final, sold_ini + STORE 0 TO lnId_part_curent + + SELECT sold_cursor + SCAN + SCATTER NAME osold + lnSold_Initial_Total = lnSold_Initial_Total + osold.sold_init + lnSold_Final_Total = lnSold_Final_Total + osold.sold_init + sold_final = osold.sold_init + SELECT cursor_raport + SCAN FOR id_part = osold.id_part + sold_final = sold_final + pnSemn*(debit - credit) + lnSold_Final_Total = lnSold_Final_Total + pnSemn*(debit - credit) + REPLACE soldf WITH sold_final + REPLACE soldi WITH osold.sold_init + osold.ales = 1 + SELECT cursor_raport + ENDSCAN + IF osold.ales = 0 AND osold.sold_init <> 0 + SELECT cursor_raport + APPEND BLANK + REPLACE id_part WITH osold.id_part, PART WITH osold.PART, soldi WITH osold.sold_init, soldf WITH osold.sold_init + ENDIF + SELECT sold_cursor + ENDSCAN + IF USED('sold_cursor') + USE IN sold_cursor + ENDIF + + ****** cu array + *!* SELECT DISTINCT id_part, sold_init FROM sold_cursor INTO ARRAY laId_part + *!* SELECT cursor_raport + *!* LOCATE + *!* *sold_final = pnSemn*(debit - credit)&& sa calculeze in functie de soldu init + *!* IF RECCOUNT()>1 + *!* GOTO 2 && pe prima e soldu init, nu partener + *!* lnId_part_curent = id_part + *!* lnNrRand = ALEN(laId_part,1) + *!* lnElem = ASCAN(laId_part, lnId_part_curent,1,lnNrRand,1) + *!* lnLinie = ASUBSCRIPT(laId_part, lnElem, 1) + *!* sold_ini = laId_part[lnLinie,2] + *!* sold_final = sold_ini + *!* lnSold_Initial_Total = lnSold_Initial_Total + sold_ini + *!* lnSold_Final_Total = lnSold_Final_Total + sold_ini + *!* + *!* SCAN FOR id_part <> 0 && prima linie = cea cu soldu init total=> are id_part = 0 =>fara ea + *!* *** sold final calculat: e sold final deabia pe ultima linie corespunzatoare fiecarui partener, in rest (pana acolo) e sold_cumulat + *!* IF (id_part != lnId_part_curent) + *!* lnId_part_curent = id_part + *!* lnElem = ASCAN(laId_part, lnId_part_curent,1,lnNrRand,1) + *!* lnLinie = ASUBSCRIPT(laId_part, lnElem, 1) + *!* sold_ini = laId_part[lnLinie,2] + *!* sold_final = sold_ini + *!* lnSold_Initial_Total = lnSold_Initial_Total + sold_ini + *!* lnSold_Final_Total = lnSold_Final_Total + sold_ini + *!* ENDIF + *!* sold_final = sold_final + pnSemn*(debit - credit) + *!* lnSold_Final_Total = lnSold_Final_Total + pnSemn*(debit - credit) + *!* REPLACE soldf WITH sold_final + *!* *REPLACE soldi WITH laId_part[lnLinie,2] + *!* REPLACE soldi WITH sold_ini + *!* ENDSCAN + *!* ENDIF +ENDIF + + +**afisare raport sau forma de vizualizare: +If tcRaport_sau_Vizualizare == "Vizualizare" + op=Createobject(tc_NumeForma,laId_part) + op.Lb_titlu_alb_b121.Caption = 'SITUATIE OPERATIVA ' + pcCont + ' - ' +lcEntitateAleasa + op.Show(1) +Else +*!* modificare v 2.0.84 +*!* If Reccount('cursor_raport')>0 + If Reccount('cursor_raport')>1 && are intotdeauna o linie (soldul initial) + Private pnOptiune + Local lnNrOptiuni,loFrmOpt + pnOptiune = 1 + lnNrOptiuni=2 + Do While gnButon = 1 + loFrmOpt=Createobject("frm_optiune",[Vizualizare raport],[Alegeti modalitatea de vizualizare:],lnNrOptiuni,[Listare la imprimanta;Export in Excel;]) + loFrmOpt.Show(1) + Release loFrmOpt + If gnButon = 1 + If pnOptiune = 1 +*!* modificare v 2.0.84 ^ + pctitlu = lcTitlu +*!* pcdataora = get_ora(2) +*!* Select cursor_raport +*!* IF (lnId_part != 0) +*!* REPORT FORMAT sit_oper_sing_rpt1 TO PRINTER PROMPT NOCONSOLE PREVIEW +*!* ELSE + Select cursor_raport + Set Filter To ID_PART <> 0 + If (lnFel_raport = 1) && grupat +*!* Report Format sit_oper_multi_gr_rpt1 To Printer Prompt Noconsole Preview + lcRaport = [sit_oper_multi_gr_rpt1] + Else && NEgrupat +*!* Report Format sit_oper_multi_NEgr_rpt1 To Printer Prompt Noconsole Preview + lcRaport = [sit_oper_multi_NEgr_rpt1] + Endif + goExport.export2frx([cursor_raport],lcRaport,, , , , , .T.) +*!* ENDIF +*!* modificare v 2.0.84 + ELSE + If Used('cursor_excel') + Use In cursor_excel + Endif + lcSelect = [Select Cast(fel_document As c(100)) As fel_document,dataireg as data_inreg,dataact as data_act,] + ; + [CAST((Alltrim(Alltrim(Nvl(serie_act,''))+' '+Alltrim(Str(nract,20)))) As c(100)) As nr_act,] + ; + [CAST(part as c(100)) as partener,CAST(allt(nvl(nrord, ''))+IIF(!EMPTY(NVL(contract,'')),';', '')+allt(nvl(contract,'')) As c(100)) As lucrare_contract,] + ; + [CAST(credit As N(14,gnPa)) As credit,Cast(debit As N(14,gnPa)) As debit,] + ; + [CAST(soldi As N(14,gnPa)) As soldi,Cast(soldf As N(14,gnPa)) As soldf] + ; + IIF(plDefalcatDocumentPereche,[,CAST(ALLTRIM(STR(perechex)) As c(50)) As doc_pereche],[]) + [ From cursor_raport ] + ; + [ORDER BY ] + IIF(lnFel_raport = 1,[5,],[]) + [3,4 Into Cursor cursor_excel] + &lcSelect + goExport.export2xlsx([cursor_excel]) + Use In cursor_excel + Endif + Endif + Enddo +*!* modificare v 2.0.84 ^ + Else + amessagebox("Nu exista inregistrari pentru listare/export!",48,"Atentie") + Endif + Use In cursor_raport +Endif + +ENDPROC + +******************************************************************************************** + \ No newline at end of file diff --git a/Programe/penalitati.prg b/Programe/penalitati.prg new file mode 100644 index 0000000..44cdfc0 --- /dev/null +++ b/Programe/penalitati.prg @@ -0,0 +1,113 @@ +Procedure penalitati + Lparameters tlEvaluare + *!* 10.03.2010 + *** tlEvaluare : .T. daca se doreste un calcul al penalitatilor in functie de o data de referinta + *** tlEvaluare : .F. (default) daca se doreste facturare penalitati la momentul incasarii facturilor restante + *!* 10.03.2010 ^ + Private pdDataReferinta + pdDataReferinta = Date() + + Private pcNumeFiltru, pcContractFiltru, pcExplicatiaFiltru + Store "" To pcNumeFiltru, pcContractFiltru, pcExplicatiaFiltru + + *!* selectez incasarile din registrul jurnal care s-au incasat dupa data scadenta a facturilor corespondente + *!* left join cCurs ci on c.id_tipv = ci.id_tipv AND i.dataact = ci.datacurs ; + *!* LEFT JOIN tipv tv ON c.id_tipv = tv.id ; + + If !tlEvaluare + *!* 14.03.2011 + SELECT NUME, NRACT, DATAACT, PERECHE2, SUM(SUMA) as suma, SUM(SUMA_2) as suma_2 ; + FROM act ; + WHERE INLIST(SCC,'411','461') AND SCD <> '4118' ; + GROUP BY NUME, NRACT, DATAACT, PERECHE2 ; + INTO CURSOR cAct + + + Select F.Id As FACT_ID, Cl.Id As clie_id, F.PL_CLIE_ID As ctr_id, F.NRFACT, F.DATAFACT, F.DATASCAD, F.VALCTVA, F.TOTVAL, F.Curs, F.VALUTA, F.INTERN, ; + F.EXPLICATIA, C.contract, ; + I.NUME, I.nract, I.DATAACT, I.SUMA, I.SUMA_2 AS SUMAVAL, I.PERECHE2, C.PPENZI, I.DATAACT - F.DATASCAD As NR_ZILE, ; + round(Round(PPENZI/100*SUMA,GNZ)*(I.DATAACT - F.DATASCAD), GNZ) As penalitati ; + from FACTURARE F Join ACNCONTRACTE C On F.PL_CLIE_ID = C.Id ; + join ACNCLIENTI Cl On C.clie_id = Cl.Id ; + join cAct I On F.NRFACT = I.PERECHE2 And Padr(Cl.NUME,30,' ') = Padr(I.NUME,30,' ') ; + where F.TIP <> 6 AND I.DATAACT > F.DATASCAD ; + order By I.NUME, F.DATAFACT, F.NRFACT, I.DATAACT, I.nract ; + into Cursor cFiordTemp Readwrite + *!* 14.03.2011 ^ + Select penalitati + Scan For Year(DATAACT)*12 + Month(DATAACT) = Val(m.gcAn) * 12 + Val(m.gcNl) + Scatter Name loRec + Delete From cFiordTemp Where FACT_ID = loRec.FACT_ID And nract = loRec.nract And DATAACT = loRec.DATAACT + Endscan + + && nu facturez facturile/incasarile pe care utilizatorul le-a sters + Select penalitati_sters + Scan For Year(DATAACT)*12 + Month(DATAACT) = Val(m.gcAn) * 12 + Val(m.gcNl) + Scatter Name loRec + Delete From cFiordTemp Where FACT_ID = loRec.FACT_ID And nract = loRec.nract And DATAACT = loRec.DATAACT And SUMA = loRec.SUMA + Endscan + + Select * From cFiordTemp Into Cursor CFIORD NOFILTER Readwrite + Use In (Select('cFiordTemp')) + Else + + loPenalitatiInfo = Createobject("frm_penalitati_info") + loPenalitatiInfo.Show(1) + If gnButon = 2 + Return + ENDIF + *!* 14.03.2011 + *** SELECTEZ FACTURILE DIN FACTURARE (EMISE DE COMERCIAL) DAR CU SOLD IN VANZLUN SI DEBLUN IN LUNA CURENTA + *!* 12.09.2011 + Select i.id_fact, i.id_part, c.id_ctr, i.nract as nrfact, i.dataact as datafact, i.datascad, (i.precdeb+i.debit) as valctva, ; + (i.precvaldeb+i.valdebit) as totval, i.Curs, i.id_valuta, i.nume_val as valuta, ; + i.explicatia, c.contract, ; + i.nume, 0 As nract, pdDataReferinta As DATAACT, ; + (i.precdeb+i.debit)-(i.preccred+i.credit) As suma, ; + (i.precvaldeb+i.valdebit)-(i.precvalcred+i.valcredit) AS sumaval, ; + 0 As PERECHE2, c.ppenzi, pdDataReferinta - i.datascad As nr_zile, ; + round(Round(c.ppenzi/100*((i.precdeb+i.debit)-(i.preccred+i.credit)), gnPA)*(pdDataReferinta - i.datascad), gnPA) As penalitati ; + from vireg_parteneri i Join contracte C On i.id_part = c.id_part ; + where i.an = gnAn AND i.luna = gnLuna AND F.TIP <> 6 AND pdDataReferinta > F.DATASCAD And ; + V.TOTCTVA - V.ACHITAT > 0 ; + order By Cl.NUME, F.DATAFACT, F.NRFACT ; + into Cursor CFIORD Readwrite + *!* 12.09.2011 ^ + *!* 14.03.2011 ^ + Endif + + *!* 14.03.2011 + UPDATE cFiord SET valuta = "", totval = 0, sumaval = 0 WHERE intern + GO TOP IN cFiord + *!* 14.03.2011 ^ + + Select NUME Where .F. From CFIORD Into Cursor cClientiTemp Readwrite + Select Distinct NUME From CFIORD Order By NUME Into Cursor cClientiTemp2 + If _Tally > 1 && daca vreau facturile pentru toti client nu mai adaug pentru filtrarea facturilor + Insert Into cClientiTemp (NUME) Values ('') + Endif + Select cClientiTemp + Append From Dbf('cClientiTemp2') + Use In (Select('cClientiTemp2')) + + Select CFIORD + *!*Do Form frm_penalitati Name loPenalitati Noshow + loPenalitati = Createobject("frm_penalitati") + *!* 10.03.2010 + loPenalitati.lEvaluare = .T. + loPenalitati.dDataReferinta = pdDataReferinta + If tlEvaluare + loPenalitati.lb_titlu_alb_b121.Caption = 'Penalitati - evaluare la ' + Dtoc(m.pdDataReferinta) + loPenalitati.grdPenalitati.cNrDoc.Visible = .F. + loPenalitati.grdPenalitati.cSuma.Header1.Caption = 'Sold restant' + loPenalitati.grdPenalitati.cDataDoc.Header1.Caption = 'Data referinta' + loPenalitati.cmd_Executa1.Visible = .F. + loPenalitati.cmd_Executa1.Visible = .F. + + Endif + *!* 10.03.2010 ^ + loPenalitati.Show(1) + + Use In (Select('cFiord')) + +Endproc && Penalitati diff --git a/Programe/proceduri.prg b/Programe/proceduri.prg new file mode 100644 index 0000000..b7da698 --- /dev/null +++ b/Programe/proceduri.prg @@ -0,0 +1,227 @@ +*!* *_________________________________________________________ +PROCEDURE caut_alfa_cursor +PARAMETERS NUMEBAZA,NUMECIMP,CAPTEXT,VARMEM +LOCAL MC0,MC1,MC2, llVizibil +SET SAFETY OFF +llVizibil = .t. + +MC0='SELE '+NUMEBAZA +MC1='VARMEM=M.'+NUMECIMP +MC2 = [INDEX ON ] +NUMECIMP+ [ TAG nume OF &loc\&nfscurt\tempo\xindex.idx COMPACT ASCENDING ] + + +LOCAL lcNumeCol2 +STORE '' TO lcNumeCol2 + +LcCol = ALLTRIM(NUMEBAZA) + '.cod_fiscal' +IF TYPE(LcCol) # 'U' + lcNumeCol2 = 'cod_fiscal' +ENDIF + +LcCol = ALLTRIM(NUMEBAZA) + '.gest' +IF TYPE(LcCol) # 'U' + lcNumeCol2 = 'gest' +ENDIF + +LcCol = ALLTRIM(NUMEBAZA) + '.id_sectie' +IF TYPE(LcCol) # 'U' + lcNumeCol2 = 'id_sectie' +ENDIF + +IF EMPTY(lcNumeCol2) + lcNumeCol2 = 'space(4)' + llVizibil = .f. +ENDIF + +LcCol = ALLTRIM(NUMEBAZA) + '.id' +IF TYPE(LcCol) # 'U' + lcNumeCol3 = 'id' +ELSE + lcNumeCol3 = 'space(4)' +ENDIF + +SELECT DISTINCT &NUMECIMP, &lcNumeCol2, &lcNumeCol3 FROM (numebaza) INTO CURSOR tnomenclator READWRITE ORDER BY &NUMECIMP + +OCA=CREATEOBJECT("CAUTALFa") +OCA.CAPTION=CAPTEXT +OCA.GRID1.RECORDSOURCE='tnomenclator' +OCA.GRID1.COLUMN1.CONTROLSOURCE = NUMECIMP +OCA.GRID1.COLUMN2.CONTROLSOURCE = lcNumeCol2 +OCA.GRID1.COLUMN2.visible = llVizibil +OCA.cmdrenunt1.visible=.t. +OCA.command1.visible=.f. +OCA.command2.visible=.f. +OCA.command3.visible=.f. +OCA.SHOW(1) + +IF buton=2 + USE IN tnomenclator + RETURN +ENDIF + +lcFile = ADDBS(gcTempPath) + 'xindex.idx' +IF FILE(lcFile) + SET INDEX TO + DELETE FILE &lcFile +ENDIF +*!* &MC1 + +SELECT tnomenclator +SCATTER MEMVAR + +&MC1 + + +USE IN tnomenclator +RETURN + + +*!* *___________________________________________ +PROCEDURE MESAJ +PARAMETERS m1,m2 +ot=create('text') +ot.label2.caption=m1 +ot.label3.caption=m2 +ot.show(1) +RETURN + + +*!* *___________________________________________ +*!* PROCEDURE mesajmare +*!* PARAMETERS m1 +*!* ot=create('textmare') +*!* ot.label2.caption=m1 +*!* ot.show(1) +*!* RETURN + +*!* *___________________________________________ +*!* PROCEDURE mesajval +*!* PARAMETERS m1,m2 +*!* ot=create('textval') +*!* ot.label2.caption=m1 +*!* ot.valoare=m2 +*!* ot.show(1) +*!* RETURN + +*!* *___________________________________________ +PROCEDURE mesajatent +PARAMETERS m1,m2 +ot=create('atentie') +ot.label2.caption=m1 +ot.label3.caption=m2 +ot.show(1) +RETURN + +*!* *___________________________________________ +*!* PROCEDURE mesajrosu +*!* PARAMETERS m1,m2 +*!* ot=create('atentierosu') +*!* ot.label2.caption=m1 +*!* ot.label3.caption=m2 +*!* ot.show(1) +*!* RETURN + + +*!* *_____________________________________- +*!* PROCEDURE mesajm +*!* PARAM txt,i + +*!* LOCAL t,p +*!* p=iif(i<10,str(i,1),str(i,2)) +*!* T='orm.label'+p+'.caption="'+txt+'"' +*!* &t +*!* IF i<20 +*!* i=i+1 +*!* ENDIF +*!* p=iif(i<10,str(i,1),str(i,2)) +*!* T='orm.IMAGE'+p+'.VISIBLE=.T.' +*!* &t + +*!* RETURN + + + + +*!* *___________________________________________ +PROCEDURE danu +PARAMETERS m1 +od=create('danu') +od.label1.caption=m1 +od.show(1) +RETURN +*!* *___________________________________________ +*!* *____________________________________ +*!* PROC PR +*!* PARAM J +*!* IF J>M +*!* op.release +*!* op=crea('progresbar') +*!* J=0 +*!* op.show() +*!* ENDIF +*!* op.PRBAR.VALUE=J +*!* op.p=ROUND(100*op.PRBAR.VALUE/op.PRBAR.MAX,2) +*!* op.REFRESH +*!* J=J+1 +*!* RETURN + + +*!* *_________________________ +*!* PROC MESAJT +*!* PARAM M.denumire +*!* OTEXT.oleTreeview.NODES.add(,,,M.denumire,) +*!* STARE=STARE+1 +*!* RETURN + + + + + + + +*!* *!* ***------------------------------------------------------------------------------------ + +*!* *!* Procedure lanseaza_excel_standard +*!* *!* Parameters tcalias + +*!* *!* Private lcTabelSectii +*!* *!* lcTabelSectii = Alltrim(tcalias) + +*!* *!* Select (lcTabelSectii) + +*!* *!* lcexcel=Addbs(pccaletempo)+"Fisa de calcul a eficientei"+".XLS" +*!* *!* x=Newobject("XL_Sectie_standard","EXCELX") && alternatively you can drop this class on a VFP form +*!* *!* x.SaveAs=lcexcel && PART.XLS to be created in your TEMP folder + +*!* *!* Select centre_profit +*!* *!* Set Filter To + +*!* *!* Count For ((!virtual And contribuie) Or SOCIETATE) And ales To lnNrSectii +*!* *!* If !lnNrSectii>0 +*!* *!* Return +*!* *!* Endif + +*!* *!* Dimension x.oWorkSheet[lnNrSectii] && need four pages + +*!* *!* I=0 +*!* *!* Select centre_profit +*!* *!* Scan For ((!virtual And contribuie) Or SOCIETATE) And ales +*!* *!* lccentru = Alltrim(centru) +*!* *!* I=I+1 +*!* *!* x.oWorkSheet[I] = lccentru +*!* *!* Endscan + +*!* *!* x.Go() && remember this calls .populate_pages(). +*!* *!* Release x + +*!* *!* **************************8 + +*!* *!* OLEAPP = Getobject("","Excel.Application") +*!* *!* If Type('OLEAPP')!='O' +*!* *!* OLEAPP = Createobject("Excel.Application") +*!* *!* Endif +*!* *!* OLEAPP.WorkBooks.Open(lcexcel) +*!* *!* OLEAPP.Visible=1 + +*!* *!* Return +*!* *!* Endproc &&lanseaza_excel_standard diff --git a/Programe/roacont.prg b/Programe/roacont.prg new file mode 100644 index 0000000..bd7b82d --- /dev/null +++ b/Programe/roacont.prg @@ -0,0 +1,1217 @@ +*!* 11.05.2015 +*!* marius.mutu +*!* gcArticolBonFiscalCont: numele articolului care se va lista pe bonul fiscal. daca nu este completat se listeaza (Fact. Nr.) + +*!* 26.06.2015 +*!* marius.mutu +*!* goKeepAlive: Tin conexiunea deschisa. La wert??? apare eroarea odbc "timeout occured" daca se lasa peste 1 minut programul fara sa se lucreze + +Parameters tparam + +Private gcParameters +If !Empty(tparam) And Type('tparam') = 'C' + gcParameters = tparam +Else + gcParameters = "" +Endif +&&& cont2003 + +* messagebox(sys(2019,2)) && locatia config.fpw + +Public gnewcryptfll +Public gnewcryptxml +PUBLIC gTransferTotal +STORE -1 TO gTransferTotal +gnewcryptfll=.F. +gnewcryptxml=.F. + +Local lchost, lcUserName, lcPassword, lnIdUtil, lnIdProgram, lcUserNameApp,lcPasswordApp +Public gcNumeProgram,gcAntet,gfiltru,gfiltruro +Store '' To lchost, lcUserName, lcPassword, lcUserNameApp,lcPasswordApp, gcAntet +Store 0 To lnIdUtil, lnIdProgram +gcNumeProgram=[ROACONT] +_Screen.Icon=gcNumeProgram+'.ico' +If !Like(gcNumeProgram + '*', Upper(Alltrim(Juststem(Sys(16,0))))) + Messagebox("Nu puteti porni acest program!",0+16,"Atentie") + Return +Endif +*!* _screen.Icon = 'D:\CONTAFIN_ORACLE\COMUN\GRAFICE\ICONITE\CONT2003.ICO' + + +Set Century On +Set Deleted On +Set Date To Dmy +Set Mark To '/' +Set Exclusive Off +Set Cpdialog Off +Set Talk Off +Set Safety Off +Set Escape Off +Set Exact On +Set Ansi On +Set Console Off +Set Notify Off +Set Seconds Off +*SET NULLDISPLAY TO '*' +Set NullDisplay To '' +Set Decimals To 4 +Set Point To '.' + +*!* 06.06.2007 +*!* mutu.marius +Set SQLBUFFERING On + +_Screen.Visible=.T. + + + + +*VARIABILE_______ +Local lcMainClassLib +Local lcLastSetTalk,lcLastSetPath,lcLastSetClassLib,lcOnShutdown + +*VARIABILE__________________________________________________________________________ +Declare nror[65000] +Declare RTVA[22,2] +err1=.F. + +Public CRLF +Store Chr(13) + Chr(10) To CRLF +Public pcNl,pcAn +Store "" To pcNl,pcAn && se initializeaza in start00 + +Public pcTitlu,pl_verificat +Store "" To pcTitlu +Store .F. To pl_verificat + +Public BUTON, luna_inchisa, luna_neplatita, PRIMADATA, m.ctva, m.ctvam, m.ctvai, antet, m.nivel +Public OStart,OSETVIZ,OSETTULBAR,OSETINSTRUM,orm,OTEXT,OJUR,osetgest,tlbr_INSTR,tlbr_VIZ,oprinc,DIRGEN +Public pcapsocsub,pcapsocvar +pcapsocsub=0 +pcapsocvar=0 +Public a4 +a4=.T. +m.nrgrup=999 + +Store .F. To luna_inchisa,tlbr_INSTRum,tlbr_VIZ +Store 1 To BUTON,col_menu +Store .T. To PRIMADATA,luna_neplatita + + +*-- Save and configure environment.*********************** +lcLastSetTalk=Set("TALK") +Set Talk Off +lcLastSetPath=Set("PATH") + +*!* Set Path To ;Date;Include;FERESTRE;GRAFICE;Help;CLASE;MENIURI;PROGRAME;RAPOARTE;PROGS;LIBS + +Public gcAppPath,gcAppName, gcTempPath, gcCaleServerDate, gcUserNameApp, gcPasswordApp, gcSettingsFile +Store '' To gcUserNameApp, gcPasswordApp, gnNivelUtilizator, gnGrupUtilizator, gcAcces +PUBLIC gcBasePath + +*!* PUBLIC gcSchemaPath +*!* STORE '' TO gcSchemaPath + +*!* gcAppPath=ADDBS(JUSTPATH(SYS(16,0))) && d:\contafin\cont2003\ +Set Procedure To "D:\ROA\ROACONT\COMUN\UTILE\web\WWUTILS.PRG" Additive +Set Procedure To "D:\ROA\ROACONT\COMUN\UTILE\web\WWAPI.PRG" Additive + +gcAppPath = Addbs(ShortPath(GetAppStartPath())) +If Right(gcAppPath ,9)="PROGRAME\" + gcAppPath = Substr(gcAppPath ,1,Len(gcAppPath )-9) +Endif +gcAppName=Allt(Uppe(Juststem(Sys(16,0)))) && "cont2003" +*!*Set Path To Addbs(Substr(gcAppPath,1,Rat([\],gcAppPath,2)))+[COMUNROA\] Additive && modificare v 2.0.59 + + +*gcAppDataPath=gcAppPath+"Date_"+gcAppName+"\" && D:\CONTAFIN\TRANS\DATE_TRANS && PT OPTIUNI , FISIERE SPECIFICE PROGRAMULUI SI +gcUtilizatoriPath = gcAppPath + "UTILIZATORI\" + +Set Default To (gcAppPath) +lcPath = gcAppPath + 'Date;' + ; + gcAppPath + 'Include;' + ; + gcAppPath + 'FERESTRE;' + ; + gcAppPath + 'GRAFICE;' + ; + gcAppPath + 'CLASE;' + ; + gcAppPath + 'MENIURI;' + ; + gcAppPath + 'PROGRAME;' + ; + gcAppPath + 'RAPOARTE;' + ; + gcAppPath + 'COMUN\CLASE;' + ; + gcAppPath + 'COMUN\FERESTRE;' + ; + gcAppPath + 'COMUN\PROGRAME;' + ; + gcAppPath + 'COMUN\GRAFICE;' + ; + gcAppPath + 'COMUN\RAPOARTE;' + ; + gcAppPath + 'COMUN\UTILE\CALENDAR;' + ; + gcAppPath + 'COMUN\UTILE\CTL32;' + ; + gcAppPath + 'COMUN\UTILE\HPDF;' + ; + gcAppPath + 'COMUN\UTILE\HPDF\REPORTOUTPUT;' + ; + gcAppPath + 'COMUN\UTILE\WEB;' + ; + gcAppPath + 'COMUN\UTILE\NFJSON;' + ; + gcAppPath + 'COMUN\UTILE\NFXML;' + ; + gcAppPath + 'COMUN\UTILE\EXCEL;' + ; + gcAppPath + 'COMUN\UTILE\GridExtras ;' + ; + Addbs(Substr(gcAppPath,1,Rat([\],gcAppPath,2)))+[COMUNROA\] + +*!*Set Path To Date;Include;FERESTRE;GRAFICE;Help;CLASE;MENIURI;PROGRAME;RAPOARTE;PROGS;LIBS + +SET PATH TO &lcPath ADDITIVE + + + PUSH Menu _Msysmenu +lcLastSetClassLib=Set("CLASSLIB") +lcMainClassLib="clase\cont2000" + + + +*CLASE__________________________________________________________ +Set Classlib To (lcMainClassLib) Additive +Set Classlib To CAUT Additive +* SET CLASSLIB TO FERESTREBAZA ADDITIVE +Set Classlib To BAZA Additive +Set Classlib To contab Additive +Set Classlib To comun Additive +Set Classlib To registry Additive +Set Classlib To cauta_alfa_forms.vcx Additive +Set Classlib To obalanta Additive +Set Classlib To ocriterii.vcx Additive +Set Classlib To ctl32_statusbar.vcx Additive +Set Classlib To ctl32_common.vcx Additive +Set Classlib To ctl32_structs.vcx Additive +Set Classlib To ctl32_progressbar.vcx Additive +*!* SET CLASSLIB TO ctl32_scontainer.vcx additive + + +*PROCEDURI______________________________________________________ +Set Procedure To PROCEDURI Additive +Set Procedure To pmenu Additive +Set Procedure To proceduri_comune Additive +Set Procedure To mesaje Additive +Set Procedure To acces_meniu Additive +Set Procedure To quitapp Additive +Set Procedure To init_program Additive +Set Procedure To oproceduri_maintenance.PRG Additive +Set Procedure To gridproc Additive +Set Procedure To proceduri_excel Additive +Set Procedure To oserii_numere.PRG Additive +Set Procedure To cauta_alfa Additive +Set Procedure To oproceduri_parteneri Additive +Set Procedure To oproceduri_incasari Additive +Set Procedure To oserii_numere Additive +Set Procedure To wwconfig Additive +Set Procedure To oexport Additive +SET PROCEDURE TO ocasabanca ADDITIVE +SET PROCEDURE TO importfromxlsx ADDITIVE +SET PROCEDURE TO appendfromxlsx.prg ADDITIVE +SET PROCEDURE TO excelxml.prg ADDITIVE +SET PROCEDURE TO overificari.prg ADDITIVE +SET PROCEDURE TO onomenclatoare.prg ADDITIVE + +SET PROCEDURE TO saft_d406.prg ADDITIVE +SET PROCEDURE TO ofacturare.prg ADDITIVE +SET PROCEDURE TO ofacturare_comun.prg ADDITIVE +SET PROCEDURE TO oproceduri_facturare.prg ADDITIVE +SET PROCEDURE TO anaf_efactura.prg ADDITIVE +SET PROCEDURE TO import_efactura.prg ADDITIVE +SET PROCEDURE TO xmlefactura.prg ADDITIVE + +SET PROCEDURE TO oscrie_in_fisiere.prg ADDITIVE +SET PROCEDURE TO chatbot.prg ADDITIVE + +SET PROCEDURE TO oproceduri_listari.prg ADDITIVE && listare NIR gestiune din import eFactuar + +&& CLASE ORACLE +Set Classlib To DECABAZA Additive +Set Classlib To onomenclatoare Additive +Set Classlib To oparteneri Additive +Set Classlib To OCASABANCA Additive +Set Classlib To OVANZCUMP Additive +Set Classlib To oCompensari Additive +Set Classlib To oRapoarte_cont Additive +Set Classlib To oSit_Op Additive +Set Classlib To overificari Additive +Set Classlib To oteste Additive +Set Classlib To omodificari Additive +Set Classlib To ooptiuni Additive +Set Classlib To ointroduceri_cont Additive +Set Classlib To onote_contabile Additive +Set Classlib To odebcred Additive +Set Classlib To ferestre_oracle Additive +Set Classlib To caut_ora Additive +Set Classlib To otoolbar Additive +Set Classlib To inchideri_sal Additive +Set Classlib To serii_numere Additive +***19.10.2015 +***liana.neagu +Set Classlib To contabilitate_rapoarte Additive +*** 02.08.2006 +*** marius.mutu +Set Classlib To oconversii Additive + +*!* 16.01.2007 +*!* marius.mutu +Set Classlib To oactualizari Additive +SET CLASSLIB TO onom_articole ADDITIVE + +&& CLASE UTILITARE +Set Classlib To Messagebox Additive +SET CLASSLIB TO wwdialogs ADDITIVE +*!* modificare v 2.0.140 +SET CLASSLIB TO orapoarte.vcx additive +SET CLASSLIB TO orapoarte_contabilitate.vcx additive +*!* modificare v 2.0.140 ^ + +SET CLASSLIB TO accessibility.vcx ADDITIVE +SET CLASSLIB TO _calendar.vcx ADDITIVE + +SET CLASSLIB TO orapoarte_comun.vcx ADDITIVE + +SET CLASSLIB TO saft_d406.vcx ADDITIVE +SET CLASSLIB TO anaf_efactura.vcx ADDITIVE + + +&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& + +&& PROCEDURI ORACLE +Set Procedure To GENCURSOR.PRG Additive +Set Procedure To OPROCEDURI_COMUNE.PRG Additive +Set Procedure To OINIT_OPTIUNI.PRG Additive +Set Procedure To updateserver.PRG Additive +Set Procedure To oCompensari.PRG Additive +Set Procedure To oSituatii_Operative.PRG Additive +Set Procedure To oOperatii_comune.PRG Additive + +Set Procedure To OCONT2003.PRG Additive +Set Procedure To OPROCEDURI_aMS.PRG Additive +Set Procedure To oparteneri.PRG Additive +Set Procedure To orapoarte.PRG Additive +Set Procedure To orap_trezorerie Additive +Set Procedure To ocautare Additive +Set Procedure To omeniu_initializari Additive +Set Procedure To osecurity Additive +Set Procedure To oheader Additive +Set Procedure To orefaceri Additive +Set Procedure To oproceduri_casademarcat Additive +*!* modificare v 2.0.74 +*!* Set Procedure To oproceduri_casa_marcat_e500 Additive +Set Procedure To controllerecr Additive +*!* modificare v 2.0.74 ^ +*!* 12.07.2006 +*!* marius.mutu +Set Procedure To oproceduri_comune_imob.PRG Additive +*!* 02.08.2006 +*!* marius.mutu +Set Procedure To oproceduri_conversie.PRG Additive + +*!* 17.08.2006 +*!* marius.mutu +Set Procedure To odocumente.PRG Additive + +*!* 16.01.2007 +*!* marius.mutu +Set Procedure To oproceduri_actualizari.PRG Additive + +*!* modificare v 2.0.140 +SET PROCEDURE TO orapoarte_dinamice.prg additive +*!* modificare v 2.0.140 ^ + +SET PROCEDURE TO update_imob.prg ADDITIVE + +SET PROCEDURE TO oproceduri_import.prg ADDITIVE +&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& + +*!* 21.06.2006 +*!* marius.mutu +Set Procedure To wwutils.PRG Additive +Set Procedure To wwxmlhttp.PRG Additive +Set Procedure To ini.PRG Additive + +*!* 28.06.2007 +Set Procedure To regex.PRG Additive +Set Procedure To validare.PRG Additive && validare cif + +&& pt. recalculare randuri la decont TVA +Set Procedure To oproceduri_evolutie Additive +Set Procedure To oproceduri_decont Additive + +Set Procedure To proceduri_rapoarte.PRG Additive + +*!* modificare v 2.0.95 +SET PROCEDURE TO iniacces.prg ADDITIVE +SET PROCEDURE TO oupdate.prg additive +SET PROCEDURE TO procese.prg additive +SET PROCEDURE TO version.prg additive +SET PROCEDURE TO xmlaccess.prg additive +SET PROCEDURE TO xmlparser.prg additive +SET PROCEDURE TO filebringer.prg additive +SET PROCEDURE TO wwcodeupdate.prg additive +SET PROCEDURE TO wwhttp.prg ADDITIVE +SET PROCEDURE TO wwapi.prg ADDITIVE +*!* modificare v 2.0.95^ + +*!* modificare v 2.5.28 +Declare Integer GetPrivateProfileString In WIN32API ; + string, String, String, String @, Integer, String +Declare Integer WritePrivateProfileString In Win32Api ; + string, String, String, String +Declare Integer CopyFile In WIN32API ; + STRING lpExistingFileName,; + STRING lpNewFileName,; + INTEGER bFailIfExists +Declare Integer URLDownloadToFile In urlmon.Dll; + INTEGER pCaller, String szURL, String szFileName,; + INTEGER dwReserved, Integer lpfnCB +Declare Integer PathFileExists In shlwapi; + STRING pszPath +*!* modificare v 2.5.28 ^ + +If Type('goApi') = 'U' + Public goApi + goApi = Newobject("wwAPI", "wwAPI.prg") +ENDIF + + +*!* modificare v 2.0.74 +Private goControllerEcr +goControllerEcr = Createobject('oControllerEcr') +*!* modificare v 2.0.74 ^ + +If Pcount() = 1 And Type('tparam') = 'C' + glParametri = .T. + Private laParametri + Declare laParametri[1] + lcParam = Alltrim(tparam) + lnNr = lista2array(lcParam,@laParametri,";") + If lnNr < 5 + Messagebox('Numar incorect de parametri',0+16,'Eroare') + Return + Endif + lchost = laParametri[1] + lcUserName = laParametri[2] + lcPassword = laParametri[3] + lnIdUtil = Round(Val(laParametri[4]),0) + lnIdProgram = Round(Val(laParametri[5]),0) +Else + glParametri = .F. + lchost = 'JCSSERVER' + lcUserName = 'CONTAFIN_ORACLE' + lcPassword = '' + lnIdUtil = 0 + lnIdProgram = 0 + +Endif + +Public glVerificTabel && daca se verifica structura tabelelor in totv.prg +glVerificTabel=.T. + +Public glQuit +glQuit = .F. + +Public gnIdIstoric +gnIdIstoric = 0 + + + +Store "" To gcTempPath, gcCaleServerDate +liat=Rat("\",gcAppPath,2) +gcDirMare=Left(gcAppPath,liat) + + + + +*!* IF !DIRECTORY(gcAppDataPath) +*!* MD (gcAppDataPath) +*!* ENDIF + + + +*** DIRGEN +liat = Rat("\",gcAppPath,2) +DIRGEN = Addbs(Left(gcAppPath,liat-1)) + + +gcSecurityPath = DIRGEN + 'Security\' +gcSecurityFile = gcSecurityPath + 'ROA_SECURITY.TXT' + +Cd &DIRGEN +gcBasePath = DIRGEN + +*!* 21.06.2006 +*!* marius.mutu +Private gcGeneralIniFile +gcGeneralIniFile = DIRGEN + "settings.ini" +gcSettingsFile = m.gcGeneralIniFile +If !File(gcGeneralIniFile) + + TEXT TO lcSettings NOSHOW +[errors] +host=http://romfast.dnsalias.com:3000/errors/create_xml + ENDTEXT + + Strtofile(lcSettings, gcGeneralIniFile) +Endif + + +*** Tin conexiunea deschisa. La wert??? apare eroarea odbc "timeout occured" daca se lasa peste 1 minut programul fara sa se lucreze +LOCAL lcKeepAlive, lnKeepAlive +PRIVATE goKeepAlive +lcKeepAlive = NVL(getini(m.gcGeneralIniFile,'update','keepalive_seconds'), '') +lnKeepAlive = 0 +IF EMPTY(m.lcKeepAlive) + setini(m.gcGeneralIniFile,'update','keepalive_seconds', '0') + lnKeepAlive = 0 +ELSE + lnKeepAlive = VAL(m.lcKeepAlive) +ENDIF +IF m.lnKeepAlive >= 5 && minim 5 secunde + goKeepAlive = NEWOBJECT("keepalive","utility.vcx") + goKeepAlive.interval = m.lnKeepAlive * 1000 + goKeepAlive.enabled = .T. +ENDIF + +PUBLIC poLog,goLog && obiect pt logarea mesajelor sistemului +poLog = Newobject("Log_Mesaje","Log_Mesaje.prg") +goLog = poLog + + +*!* Locale +Set Classlib To locale Additive +Private gcLocalePath, goLocale, gcLocale, glTraducere +gcLocalePath = gcAppPath + "Locale\" +glTraducere = .F. +*!* lcLocaleDb = gcLocalePath + "locale.dbc" +*!* Open Database (m.lcLocaleDb) +*!* modificare v 2.0.85 +*!* goLocale=Newobject("Locale","Locale.vcx") +lcLanguage = getini(gcGeneralIniFile,"locale","lang") +llLocale= getini(gcGeneralIniFile,"locale","llocale") +*!* IF !EMPTY(m.llLocale) AND m.llLocale<>'0' +*!* goLocale.llocale=.T. +*!* ENDIF +*!* modificare v 2.0.85 ^ +If Empty(m.lcLanguage) + gcLocale = 'Romana' +Else + gcLocale = m.lcLanguage +ENDIF +*!* modificare v 2.0.85 +Local lcObjLocale +If gcLocale = 'Romana' + lcObjLocale = [Locale_dummy] +Else + lcObjLocale = [Locale] +Endif +goLocale=Newobject(lcObjLocale,"Locale.vcx") +If !Empty(m.llLocale) And m.llLocale<>'0' + goLocale.llocale=.T. +Endif +Release lcObjLocale +*!* modificare v 2.0.85 ^ +goLocale.locale = gcLocale +*!* Locale ^ + +If verificari() + _Screen.Visible=.T. + Do mesaj With "Se fac verificari programului","Va rugam reveniti" + glQuit= .T. + Quit +Endif + +If !Debug_Start() + lcParam=tparam + If Empty(tparam) Or (Type('tParam')='C' And !verific_start(tparam,DIRGEN,gcAppName)) + _Screen.Visible=.T. + Do mesaj With "Programul trebuie pornit doar din START","" + Quit + Endif +Endif + + + + +*!* modificare v 2.0.140 +*!* Public tipar,SER_PERM,SER_PERI,VERSIUNE +*!* Store .F. To SER_PERM,SER_PERI +*!* modificare v 2.0.140 ^ +***************************** VARIABILE ORACLE +Private goUtilizator +Private gnHandle,gnidutil,GCCODFISCAL,GCADRESA,GCNUMEFIRMA,GCMONEDA,GNDIFZILE, gcUserNameApp, gcPasswordApp, gcAcces +Private gnButon && variabila pentru renunt si terminat +Store 2 To gnButon +Store '' To GCCODFISCAL,GCADRESA,GCNUMEFIRMA,GCMONEDA, gcUserNameApp, gcPasswordApp, gcNivelUtilizator, gcGrupUtilizator, gcAcces +gcAcces = [] +gnHandle = -1 +gnidutil = 0 + +Private gcHost, gcUserName, gcPassword,gofundal, gnIdProgram, gnId_Prg_Owner +gnIdProgram = 0 +gnId_Prg_Owner = 0 +gofundal='' + +Private goFirma,gnIdFirma,gcFirma,gnAn,gnLuna && ,gnPA,gnPC +&& STORE 0 TO gnPA,gnPC && nr. de zecimale afisare, calcul +Store Null To goFirma + +Store 0 To gnIdFirma, gnAn, gnLuna +Store '' To gcFirma + +***toolbar*** +Private otool,ohelp +Store '' To otool,ohelp +***toolbar*** + +Private glUltimaLuna,glPrimaLuna, glLunaBuna,glLuna_neplatita,glLunaInchisa,glListareBonFiscalCont, gcArticolBonFiscalCont + +Store .F. To glUltimaLuna,glPrimaLuna, glLunaBuna,glLuna_neplatita,glLunaInchisa,glListareBonFiscalCont +gcArticolBonFiscalCont = "" && numele articolului care se va lista pe bonul fiscal. daca nu este completat se listeaza (Fact. Nr.) + +Private gcS && schema firmei +Store 'CONTAFIN' To gcS + +If Type('laparametri',1)="A" + If Alen(laParametri,1)=10 + gnAn = Val(laParametri[7]) + gnLuna = Val(laParametri[8]) &&lansare noua + gcS = laParametri[9] + gnIdFirma = Val(laParametri[10]) + Endif +Endif + +Private gcCopyRight +gcCopyRight = '© ROA Romfast SRL' + +&& obiect global wrap pentru sqlexec cu text eroare si succes +Private goExecutor +goExecutor = Createobject("oExecutor") + +&& obiect global wrap pentru sqlconnect, sqldisconnect; apeleaza proceduri postconectare pentru setare variabile sesiune +Private goConn +goConn = Createobject("oConn") + +&& obiect global pentru export : frx, xls +Private goExport +goExport = Createobject("oExportConfig") + +*!* 21.06.2006 +*!* marius.mutu +Private goMyXMLHTTP +lcHostErrors = getini(gcGeneralIniFile,'errors','host') +goMyXMLHTTP = Createobject("MyXMLHTTP", lcHostErrors) + +Private goCalendar +Store Null To goCalendar + + + +gcHost = lchost +gcUserName = lcUserName +gcPassword = lcPassword +gcUserNameApp = lcUserNameApp +gcPasswordApp = lcPasswordApp +gnidutil = lnIdUtil +gnIdProgram = lnIdProgram + + +If !glParametri + lnValid = getcrsSecurity(gcSecurityFile) + If lnValid > 0 + If Used('crsHost') + Select crsHost + Go Top + gcHost = Alltrim(Host) + gcUserName = Alltrim(schema) + gcPassword = Alltrim(pwd) + Use In crsHost + Endif + Endif +Endif +***************************** VARIABILE ORACLE + +&& DECLARARE VARIABILE GLOBALE SPECIFICE APLICATIEI CARE NU SE AFLA IN OPTIUNI_FIRMA +&& (SE AFLA IN DIRECTORUL PROIECTULUI, NU IN COMUN) +Do OVARIABILE_GLOBALE.PRG + +*!* modificare v 2.0.140 +MODEL_PROGRAM = [M] +*!* Use &gcAppPath\SERCONT In 0 Alias SER Shared +*!* Select SER +*!* Go Top +*!* tipar=TIP +*!* SER_PERM=SER_PERMAN +*!* SER_PERI=SER_PERIOD +*!* VERSIUNE=VERcont +*!* MODEL_PROGRAM=MODEL +*!* Use In SER +*!* parolamea=Substr(tipar,Month(Date()),1) +*!* parolamea=parolamea+Allt(Str(Day(Date())))+Allt(Str(Month(Date()))) + +*!* If !_DEBUG() +*!* If SER_PERM And !verif_ser_perm() +*!* * daca exista comdir.snr - trec mai departe :) presupun ca s-a instalat kitul de client chiar daca nu s-a verificat seria +*!* If !File(getCaleWin() + 'comdir.snr') +*!* Quit +*!* Endif +*!* Endif +*!* Endif +*!* modificare v 2.0.140 ^ +Public NUMEPROGRAM,MENIUPROGRAM,FUNDALPROGRAM + + + +m.contab = 'TOTAL' +Do Case + Case M.contab='CASA' + NUMEPROGRAM='CONTAFIN CASA' + MENIUPROGRAM=gcAppPath+"meniuri\contORICEcasa.mpr" + FUNDALPROGRAM=gcAppPath+"FERESTRE\FUNDALORICE.scx" + _program='cont' + Case M.contab='COMERT' + NUMEPROGRAM='CONTAFIN COMERCIAL' + MENIUPROGRAM=gcAppPath+"meniuri\contCOMERT.mpr" + FUNDALPROGRAM=gcAppPath+"FERESTRE\FUNDALORICE.scx" + _program='cont' + Otherwise + NUMEPROGRAM='ROA Financiar Contabilitate '+MODEL_PROGRAM + MENIUPROGRAM=gcAppPath+"meniuri\cont2000.mpr" + FUNDALPROGRAM=gcAppPath+"FERESTRE\FUNDAL.scx" + _program='cont' + +Endcase + +*-- Configure application object.***************************** + + +*!* 08.12.2010 +PRIVATE gcReportPreviewer, gcReportPreviewerPath +gcReportPreviewer = "FoxyPreview" && oexport.prg && "FoxyPreview" && foloseste apelarea simpla a comunroa\foxypreviewer.app +gcReportPreviewerPath = dirgen + "COMUNROA\" +*!* 08.12.2010 ^ + + +_Screen.WindowState=2 + + +lcOnShutdown="ShutDown()" +On Shutdown &lcOnShutdown +On Error ErrorHandler(Error(),Program(),Lineno()) +*_Shell="DO Cleanup IN progs\cont2003" + +*-- Instantiate application object.*************************** +Release goApp +private goApp +goApp=Createobject("cApplication") + +Local laVersion +Dimension laVersion(12) +If Agetfileversion(laVersion, Sys(16,0)) > 0 + NUMEPROGRAM = laVersion(10) +Endif +Release laVersion + +goApp.SetCaption(NUMEPROGRAM) +goApp.cStartupMenu=MENIUPROGRAM +*goApp.cStartupForm=FUNDALPROGRAM +goApp.cStartupForm = gcAppPath + 'COMUN\ferestre\frm_login.scx' + + +_Screen.WindowState=2 +*-- Show application. +goApp.Show + + + +*-- Release application. +Release goApp + +*-- Restore default menu. +*!* Pop Menu _Msysmenu + +*-- Restore environment. +On Error +On Shutdown +If Not lcLastSetClassLib==Set("classlib") + Release Classlib gcAppPath + 'clase\cont2000.vcx' +Endif +If Empty(lcLastSetPath) + Set Path To +Else + Set Path To &lcLastSetPath +Endif +If lcLastSetTalk=="ON" + Set Talk On +Else + Set Talk Off +Endif +cleanup() + +Return + + + + +* FUNCTII______________________________________________________________________ +Function ErrorHandler(nError,cMethod,nLine) + Local lcErrorMsg,lcCodeLineMsg + local loEx as Exception + + goLog.Log('1','ErrorHandler') + Wait Clear + lcErrorMsg = 'nErrror: ' + transform(m.nError) + ' cMethod: ' + transform(m.cMethod) + ' line: ' + transform(m.nLine) + chr(13) + GETCALLSTACK() + goLog.Log(m.lcErrorMsg,'ErrorHandler') + + lcErrorMsg = "" + lcCodeLineMsg = "" + + try + goLog.Log('2','ErrorHandler') + lcErrorMsg=Message()+Chr(13)+Chr(13) + lcErrorMsg=lcErrorMsg+"Method: "+cMethod + lcCodeLineMsg=Message(1) + goLog.Log('3','ErrorHandler') + If Between(nLine,1,10000) And Not lcCodeLineMsg="..." + lcErrorMsg=lcErrorMsg+Chr(13)+"Line: "+Alltrim(Str(nLine)) + If Not Empty(lcCodeLineMsg) + lcErrorMsg=lcErrorMsg+Chr(13)+Chr(13)+lcCodeLineMsg + Endif + endif + goLog.Log('4','ErrorHandler') + lcErrorMsg = lcErrorMsg + Chr(13) + Chr(10) + Chr(13) + Chr(10) + GETCALLSTACK() + goLog.Log('5','ErrorHandler') + catch to loEx + lcErrorMsg = 'Error ' + loEx.Message + Chr(13)+"Line: " + loEx.LineNo + Chr(13) + Chr(13) + loEx.Procedure + goLog.Log('6','ErrorHandler') + endtry + + goLog.Log(lcErrorMsg,'ErrorHandler') + try + If Type('goMyXMLHTTP') = 'O' + lcLunaHTTP = Iif(Type('gnLuna') = 'N', Transform(gnLuna) + "/","") + Iif(Type('GNAN') = 'N', Transform(gnAn),"") + lcErrorMsgHTTP = Sys(0) + ":" + Iif(Type('GCS')='C'," " + gcS,"") + ": " + lcLunaHTTP + Chr(13) +Chr(10) + lcErrorMsg + lcUserName = gcUserNameApp + lcProgram = Juststem(Sys(16,0)) + goMyXMLHTTP.postError(lcErrorMsgHTTP, lcUserName, lcProgram) + endif + catch to loEx + * + endtry + goLog.Log('7','ErrorHandler') + + If AMESSAGEBOX(lcErrorMsg,17,_Screen.Caption)#1 + On Error + On Shutdown + If _vfp.StartMode = 0 + Debug + Suspend + Else + Quit + Endif + *!* RETURN .F. + endif + goLog.Log('8','ErrorHandler') +Endfunc + + + +Function Shutdown + If Type("goApp")=="O" And Not Isnull(goApp) + RETURN goApp.OnShutDown() + Endif + On Shutdown + ON ERROR + CLEAR events +Endfunc + + +Function Cleanup + + If Cntbar("_msysmenu")=7 + Return + Endif + On Error + On Shutdown + Set Classlib To + Set Path To + Clear All +* Close All + Pop Menu _Msysmenu + Return + + + + + + *----------------------------------------------------- + +Function verif_ser_perm + Clear + + Return PORNIRE() + ******** + *?pornire() + +Function PORNIRE + Set Exact On + Private calewin,calesys,checksum1,checksum2,serinreg,serdisk,file1,file2,valret,serdisktemp,ser1,ser2,key1,KEY2 + Store '' To calewin,serinreg,serdisk,calesys,serdisktemp,catehd,ser1,ser2,key1,KEY2 + Store 0 To checksum1,checksum2 + Store .T. To valret + Declare Integer SHGetFolderPath In SHFOLDER.Dll ; + INTEGER hwndOwner, ; + INTEGER nFolder, ; + INTEGER hToken, ; + INTEGER dwFlags, ; + STRING @ pszPath + Declare Integer GetActiveWindow In WIN32API + #Define CSIDL_WINDOWS 36 + #Define CSIDL_SYSTEM 37 + #Define CSIDL_PROGRAMS 38 + lcPath = Repl(Chr(0),261) + =SHGetFolderPath(GetActiveWindow(),CSIDL_WINDOWS,0,0,@lcPath) + calewin=Left(lcPath,At(Chr(0),lcPath)-1) + lcPath = Repl(Chr(0),261) + =SHGetFolderPath(GetActiveWindow(),CSIDL_SYSTEM,0,0,@lcPath) + calesys=Left(lcPath,At(Chr(0),lcPath)-1) + &&se verifica existenta celor trei fisiere + lcTextEroare = "" + If (Not File(calesys+'\diskserial.dll')) Or (Not File(calesys+'\getmacip.dll')) Or (Not File(calewin+'\comdir.snr')) + valret=.F. + lcTextEroare = lcTextEroare + calesys + '\diskserial.dll ' + Transform(File(calesys+'\diskserial.dll')) + ; + ' ' + calesys+'\getmacip.dll' + Transform(File(calesys+'\getmacip.dll')) + ' ' + calewin+'\comdir.snr' + Transform(File(calewin+'\comdir.snr')) + Chr(13) + Chr(10) + Endif + If valret + file1=Filetostr(calesys+'\diskserial.dll') + checksum1=Sys(2007,file1) + file2=Filetostr(calesys+'\getmacip.dll') + checksum2=Sys(2007,file2) + &&severifica daca dll-urile nu au fost modificate + If (Val(checksum1) != 58755) Or (Val(checksum2) != 30476) + valret=.F. + lcTextEroare = lcTextEroare + 'checksum1 ' + checksum1 + ' checksum2 ' + checksum2 + Chr(13) + Chr(10) + Endif + Endif + &&se citesc seriile tutturor celor patru hard disk-uri posibile(pe IDE primary master,primary slave...) + &&se tine minte primul cu seria nenula-daca nu s-a putut citi seria de la nici unul se pune o serie default + &&seria default este "NUAREHAR" + If valret + Declare Integer GetSerialNumber In diskSerial.Dll Integer ,String + catehd=0 + For i=0 To 3 + serdisktemp=Space(40) + GetSerialNumber(i,@serdisktemp) + If (Len(Alltrim(serdisktemp))!=0) And (catehd=0) + serdisktemp=sircaracter(serdisktemp) + serdisk=serdisktemp + catehd=catehd+1 + Endif + Endfor + If (Len(Alltrim(serdisk))=0) + serdisk='NUAREHAR' + Else + If ((Len(Alltrim(serdisk))>0) And (Len(Alltrim(serdisk))<8)) + serdisk=serdisk+Replicate('1',8-Len(Alltrim(serdisk))) + Endif + Endif + serdisk=Substr(Alltrim(serdisk),Len(Alltrim(serdisk))-7,8) + Endif + &&se citeste din comdir.snr seria de inregistrare si se verifica egalitatea cu seria obtinuta anterior + If valret + gnFileHandle = Fopen(calewin+'\comdir.snr') + nSize = Fseek(gnFileHandle, 0, 2) && Move pointer to EOF + If nSize!=9 + valret=.F. + lcTextEroare = lcTextEroare + 'nSize ' + Transform(nSize) + Chr(13) + Chr(10) + Else + = Fseek(gnFileHandle, 0, 0) && Move pointer to BOF + cString = Fread(gnFileHandle,9) + ser1=Substr(cString,1,4) + ser2=Substr(cString,5,4) + key1=Substr(cString,9,1) + KEY2=DECTOBIN(Alltrim(HEXDEC(key1))) + serinreg=decodare1(Alltrim(Upper(ser1)),KEY2)+decodare1(Alltrim(Upper(ser2)),KEY2) + If serdisk!=serinreg + valret=.F. + lcTextEroare = lcTextEroare + 'serdisk ' + serdisk + ' serinreg ' + serinreg + Chr(13) + Chr(10) + Endif + Endif + = Fclose(gnFileHandle) + Endif + seriedisk1=serdisk + serieinreg1=serinreg + On Error valret=.F. + poLog.Log('Eroare verificare serie ' + Chr(13) + Chr(10) + lcTextEroare, Program()) + If Type('goMyXMLHTTP') = 'O' + If !Empty(lcTextEroare) + goMyXMLHTTP.postError('Eroare verificare serie ' + Chr(13) + Chr(10) + lcTextEroare, gcUserNameApp, Juststem(Sys(16,0))) + Endif + Endif + Return valret + ************* +Function decodare1 + Parameters lstring,CHEIE + Local lens,poz1,poz2,POZ3,lret,LRET2,lcstring,val1,lret1 + lret='' + lret1='' + LRET2='' + lcstring=Alltrim(Upper(lstring)) + lens=Len(lcstring) + For i=1 To 4 + poz1=Substr(lcstring,i,1) + val1=Asc(poz1) + POZ3=Substr(CHEIE,i,1) + Do Case + Case val1>=48 And val1<=57 + If ((val1-47)+Int(Val(POZ3)))<=10 + poz2=Chr(val1+Int(Val(POZ3))) + Else + poz2=Chr(val1+Int(Val(POZ3))-10) + Endif + Case val1>=65 And val1<=90 + If ((val1-64)+2*Int(Val(POZ3)))<=26 + poz2=Chr(val1+2*Int(Val(POZ3))) + Else + poz2=Chr(val1+2*Int(Val(POZ3))-26) + Endif + Endcase + LRET2=LRET2+poz2 + Endfor + For i=1 To lens + poz1=Substr(LRET2,i,1) + val1=Asc(poz1) + Do Case + Case val1>=48 And val1<=57 + If ((val1-47)+i)<=10 + poz2=Chr(val1+i) + Else + poz2=Chr(val1+i-10) + Endif + Case val1>=65 And val1<=90 + If ((val1-64)+2*i)<=26 + poz2=Chr(val1+2*i) + Else + poz2=Chr(val1+2*i-26) + Endif + Endcase + lret=lret+poz2 + Endfor + lens=Len(lret) + For i=1 To lens + poz1=Substr(lret,i,1) + val1=Asc(poz1) + Do Case + Case val1>=48 And val1<=57 + poz2=Chr(val1+17)&& din 0-9 in A-J + Case val1>=65 And val1<=74 + poz2=Chr(val1-17)&& din A-J in 0-9 + Case val1>=75 And val1<=82 + poz2=Chr(val1+8)&&din K-R in S-Z + Case val1>=83 And val1<=90 + poz2=Chr(val1-8)&&din S-Z in K-R + Endcase + lret1=lret1+poz2 + Endfor + Return lret1 + *********** + &&transformarea in decimal a unui caracter hexa +Function HEXDEC + Lparameters LC + Local LV + Do Case + Case LC=='0' + LV='0' + Case LC=='1' + LV='1' + Case LC=='2' + LV='2' + Case LC=='3' + LV='3' + Case LC=='4' + LV='4' + Case LC=='5' + LV='5' + Case LC=='6' + LV='6' + Case LC=='7' + LV='7' + Case LC=='8' + LV='8' + Case LC=='9' + LV='9' + Case LC=='A' + LV='10' + Case LC=='B' + LV='11' + Case LC=='C' + LV='12' + Case LC=='D' + LV='13' + Case LC=='E' + LV='14' + Case LC=='F' + LV='15' + Endcase + Return LV + **************** + &&codarea binara din hexa pe patru biti +Function DECTOBIN + Parameters sc + Local lretf + Do Case + Case sc=='0' + lretf='0000' + Case sc=='1' + lretf='0001' + Case sc=='2' + lretf='0010' + Case sc=='3' + lretf='0011' + Case sc=='4' + lretf='0100' + Case sc=='5' + lretf='0101' + Case sc=='6' + lretf='0110' + Case sc=='7' + lretf='0111' + Case sc=='8' + lretf='1000' + Case sc=='9' + lretf='1001' + Case sc=='10' + lretf='1010' + Case sc=='11' + lretf='1011' + Case sc=='12' + lretf='1100' + Case sc=='13' + lretf='1101' + Case sc=='14' + lretf='1110' + Case sc=='15' + lretf='1111' + Endcase + Return lretf + *********** +Function ECARACTER + Parameters strg1 + Private pz,ch,lcstring,vret,lg1 + Store 0 To pz,lg1 + Store '' To ch,lcstring + Store .T. To vret + lcstring=Upper(strg1) + lg1=Len(lcstring) + For ind1=1 To lg1 + ch=Substr(lcstring,ind1,1) + If (Not Between(Asc(ch),48,57)) And (Not Between(Asc(ch),65,90)) + vret=.F. + Exit + Endif + Endfor + Return vret + ************ +Function sircaracter + Parameters strg1 + Private pz,ch,lcstring,vret,lg1,lciesire + Store 0 To pz,lg1 + Store '' To ch,lcstring,lciesire + Store .T. To vret + strg1=Strtran(strg1,Alltrim(Chr(39)),'')&&caracterul ' + strg1=Strtran(strg1,Alltrim(Chr(39)),'')&&caracterul " + lcstring=Upper(Alltrim(strg1)) + lg1=Len(lcstring) + For ind1=1 To lg1 + ch=Substr(lcstring,ind1,1) + If Between(Asc(ch),48,57) Or Between(Asc(ch),65,90) + lciesire=lciesire+ch + Endif + Endfor + Return lciesire + + + + ***------------------------------------- +Procedure _DEBUG + + Private lcret,lcfisier,lcPath,lccalewin + Declare Integer SHGetFolderPath In SHFOLDER.Dll ; + INTEGER hwndOwner, ; + INTEGER nFolder, ; + INTEGER hToken, ; + INTEGER dwFlags, ; + STRING @ pszPath + Declare Integer GetActiveWindow In WIN32API + #Define CSIDL_WINDOWS 36 + + + lcPath = Repl(Chr(0),261) + =SHGetFolderPath(GetActiveWindow(),CSIDL_WINDOWS,0,0,@lcPath) + lccalewin=Left(lcPath,At(Chr(0),lcPath)-1) + + lcret=.F. + lcfisier=Addbs(lccalewin)+[DEBUG.TXT] + + If File(lcfisier) + LCVAL=Filetostr(lcfisier) + + LNVAL1=Mod(Val(Right(LCVAL,1)),2) && restul 1 sau 0; daca e impar e 1 + lnval2=Val(Left(LCVAL,Len(LCVAL)-1)) + If LNVAL1=1 Or Year(Date())-Month(Date())=lnval2 + lcret=.T. + Endif + Endif + Return lcret + +Endproc + + +Function Start_Nou + + Return Exista_Branch(,,DIRGEN) + +Endfunc && start_nou + +Procedure Debug_Start + + lcFile = gcAppPath + "debug.txt" + + If File(lcFile) Or !Start_Nou() + Return .T. + Endif + Return .F. + +Endproc && Debug_Start +************************************************************************ +Procedure verificari + Parameters tcFisierVerif + + lcverificari = Addbs(gcAppPath)+gcAppName+".txt" + + + If File(lcverificari) + Return .T. + Endif + Return .F. + +Endproc && verificari + +Function getCaleWin + Local lcPath, lccalewin + lcPath = "" + lccalewin = "c:\windows\" + + Declare Integer SHGetFolderPath In SHFOLDER.Dll ; + INTEGER hwndOwner, ; + INTEGER nFolder, ; + INTEGER hToken, ; + INTEGER dwFlags, ; + STRING @ pszPath + Declare Integer GetActiveWindow In WIN32API + #Define CSIDL_WINDOWS 36 + + + lcPath = Repl(Chr(0),261) + =SHGetFolderPath(GetActiveWindow(),CSIDL_WINDOWS,0,0,@lcPath) + lccalewin=Left(lcPath,At(Chr(0),lcPath)-1) + lccalewin = Addbs(lccalewin) + + Return lccalewin + +Endfunc diff --git a/Programe/saft_d406.prg b/Programe/saft_d406.prg new file mode 100644 index 0000000..341e654 --- /dev/null +++ b/Programe/saft_d406.prg @@ -0,0 +1,6051 @@ +* 27.05.2022 +* wSalesPurchaseInvoices corectare valoare InvoiceLineAmount (valoare in loc de pret unitar) + +*!* 23.02.2023 +*!* oSalesInvoices - corectare cont venit pentru articolele din gestiune si facturare + +*!* 10.05.2023 +*!* oPurchaseInvoices - includere bonuri fiscale + +*!* 15.05.2023 +*!* do_genereaza_xml - se asteapta maxim 30 secunde pentru validare xml + +*!* 07.07.2023 +*!* oSalesInvoices - se genereaza linii cu articole pentru notele contabile suplimentare fata de articolele din gestiune/facturare +*!* tratare cont 667 = 4111 la diferente contabilitate fata de gestiune/facturare + +*!* 21.07.2023 +*!* oSalesInvoices - se genereaza linii cu diferente contabilitate - gestiune/facturare doar daca sunt diferente pe taxcode, nu si pe cont +*!* se poate modifica contul in contabilitate, dar in facturare se citeste din nota contabila + +*!* 31.08.2023 +*!* oPurchaseInvoices - se ia curs valutar, id_valuta din rulaj, in loc de RON + +*!* 15.09.2023 +*!* oPurchaseInvoices - se includ si tip_doc = "INV" pentru facturile de achizitie din import + +*!* 03.11.2023 +*!* oSalesInvoices - nu mai completez contul pe articole cu 707 daca nu gasesc in politici de preturi sau note contabile +*!* completez cu contul din registrul jurnal + +*!* 19.12.2023 +*!* oSalesInvoices - se scade discountul unitar din pretul unitar + +*!* 30.04.2024 +*!* oAssets - calculare Amortizare precedenta la inceputul perioadei din prima inregistrare. +*!* calculare amortizare totala la sfarsitul perioadei din ultima inregistrare +*!* este posibil ca amortizarea precedenta sa se reevalueze, si amortizarea totala era diferita de amortizarea precedenta de la inceputul perioadei + amortizarea din perioada +*!* VerificareImobilizari: corectie verificare amortizare la inceputul perioadei, la sfarsitul perioadei +*!* VerificareImobilizari: aquisitionandproductioncostend nu era egala cu valoarea de inventar daca existau reevaluari (+ reevaluare pozitiva-reevaluare negativa) + +*!* 04.10.2024 +*!* do_verifica_tva - se verifica inregistrarile contabile D406 conturi TVA 442x care au taxa. Nu trebuie sa aiba taxa + +*!* 28.11.2024 +*!* wSalesPurchaseInvoices - nu se mai scrie nimic daca sunt 0 facturi + +*!* 21.01.2025 +*!* wGeneralLedgerEntries - completare customerId pentru contul 463 + +*!* 25.04.2025 +*!* wPayments - tratare caz fara plati + +*!* 16.06.2025 +*!* CompletareCodTaxaPlata - se completeaza pentru perioada curenta (ex: trimestru) in loc de luna curenta + +*!* 25.06.2025 +*!* oSalesInvoices, oPurchaseInvoices - se iau doar facturile cu data inregistrarii din luna in care au fost emise +*!* la SAFT Trimestrial, aveam facturi cu TVA Incasare care apareau in mai multe luni si se duplicau + +*!* 27.06.2025 +*!* wHeader - corectare nume firma cu caractere speciale + +*!* 27.08.2025 +*!* wHeader - limitare nume firma la 70 caractere + + + +*!* 30.01.2026 +*!* Robert +*!* opayments - sa nu mai selecteze conturile de tip 512x/531x/542x/581 = 512x/531x/542x/581 +*!* adaugat procedura do_verifica_solduri - face toate verificarile (balanta, registru jurnal, clienti, furnizori) + +*!* 03.02.2026 +*!* do_verifica_plati - Mesaj randuri plati fara cont de terti - probabil nu sunt plati/incasari catre terti + +*!* 21.05.2026 +*!* oAssets - am tratat o eroare la join cAmortizareLunara daca nu avea nici o inregistrare (firma fara imobilizari nu avea completat an si luna) +*!* do_verifica_imobilizari - salvare in 4 fisiere xlsx, dar aleg o singura data directorul de salvare + + +*!* 01.072026 +*!* oSalesInvoices - se facea join dublu vanzari - jv2007 in cazul facturilor cu tva la incasare + +* saft_D406 +Procedure viz_saft_d406 + loD406 = Createobject("D406") + m.loD406.List() +Endproc && viz_saft_d406 + +Define Class d406 As Custom + Perioada = 1 + oForm = Null && formular D406 + oUnitate = Null + TipDescriere = 'LUNAR' + Tip = 'L' + SegmentIndex = 1 + TotalSegmentsInSequence = 1 + TaxAccountingBasis = 'A' + TaxEntity = 'Company' + + CaleFisierPDF = '' && director fisier pdf + + Procedure List + Local loFrm + Local loDecl As Form + Local lcPerioadaTVA, lcSelect, lcTip, lcTipDescriere, lnCustSupType +*!* loFrm = CREATEOBJECT("frm_saft_d406") + + Private poResponsabil + Private pounitate + + poResponsabil = Null + + lcSelect = Select() + + If Type('gofirma.codfiscalfro') = 'U' + AddProperty(gofirma, 'codfiscalfro', ALLTRIM(Strtran(Alltrim(gofirma.cod_fiscal), 'RO', ''))) + Endif + + pounitate = Createobject("empty") + AddProperty(m.pounitate, "tva_incasare", goCalendar.tva_incasare) + + AddProperty(m.pounitate, "an1", m.gnAn) + AddProperty(m.pounitate, "an2", m.gnAn) + AddProperty(m.pounitate, "luna1", m.gnLuna) + AddProperty(m.pounitate, "luna2", m.gnLuna) + + lcPerioadaTVA = Upper(Nvl(citeste_optiune('PERIOADA_TVA'), '')) + If Empty(m.lcPerioadaTVA) + AMESSAGEBOX('Configurati optiunea "PERIOADA_TVA" in Definirea Companiei!', 0 + 48, _Screen.Caption) + lcPerioadaTVA = 'LUNAR' + Endif + lcTipDescriere = Iif(!Inlist(m.lcPerioadaTVA, 'LUNAR', 'TRIMESTRIAL', 'ANUAL', 'LA CERERE'), 'LUNAR', m.lcPerioadaTVA) + + lcTip = Iif(lcTipDescriere = 'LUNAR', 'L', Iif(lcTipDescriere = 'TRIMESTRIAL', 'T', Iif(lcTipDescriere = 'ANUAL', 'A', Iif(lcTipDescriere = 'LA CERERE', 'C', 'L')))) + AddProperty(m.pounitate, "perioada_tva", m.lcPerioadaTVA) && tip LUNAR/TRIMESTRIAL/SEMESTRIAL/ANUAL + AddProperty(m.pounitate, "tip", m.lcTip) && tip L/T/A/C/NL/NT (Lunar/Trimestrial/Anual/Cerere/Nerezidenti lunar/Nerezidenti trimestrial) + AddProperty(m.pounitate, "tipDescriere", m.lcTipDescriere) && tip lung + + AddProperty(m.pounitate, "codi", ALLTRIM(Strtran(Strtran(Alltrim(Upper(Nvl(gofirma.cod_fiscal, ''))), 'RO', ''), 'R', ''))) + AddProperty(m.pounitate, "deni", Nvl(Alltrim(gofirma.firma), '')) + AddProperty(m.pounitate, "adr", Nvl(Alltrim(gofirma.adresa), '')) + AddProperty(m.pounitate, "tel", Nvl(Alltrim(gofirma.telefon), '')) + AddProperty(m.pounitate, "fax", Nvl(Alltrim(gofirma.fax), '')) + AddProperty(m.pounitate, "email", Nvl(Alltrim(gofirma.email), '')) + + AddProperty(m.pounitate, "taraR", "") + AddProperty(m.pounitate, "codiR", "") + AddProperty(m.pounitate, "deniR", "") + AddProperty(m.pounitate, "adrR", "") + AddProperty(m.pounitate, "telR", "") + AddProperty(m.pounitate, "faxR", "") + AddProperty(m.pounitate, "emailR", "") + + AddProperty(m.pounitate, "numeD", "") + AddProperty(m.pounitate, "functieD", "") + + AddProperty(m.pounitate, "tvaincasare", goCalendar.tva_incasare) + lnCustSupType = INT(VAL(Alltrim(citeste_optiune('D406_CUST_SUP_TYPE')))) + lnCustSupType = IIF(INLIST(m.lnCustSupType,9999,2020,2021,2022,2023,2024,2025), m.lnCustSupType, 9999) && 9999 = Toti clientii/furnizorii/ 2022 = Incepand cu anul 2022 (intreprinderi mari), 2023 = 2023 (intreprinderi mijlocii), 2025 = 2025 (intreprinderi mici) + AddProperty(m.pounitate, "CustSupType", m.lnCustSupType) + +******************************** + AddProperty(m.pounitate, "FunctieContact", Alltrim(citeste_optiune('D406_FUNCTIE_CONTACT'))) + AddProperty(m.pounitate, "PrenumeContact", Alltrim(citeste_optiune('D406_PRENUME_CONTACT'))) + AddProperty(m.pounitate, "NumeContact", Alltrim(citeste_optiune('D406_NUME_CONTACT'))) + With m.pounitate + .PrenumeContact = Iif(!Empty(Nvl(.PrenumeContact, '')), .PrenumeContact, Alltrim(Nvl(gofirma.prenume_declarant, ''))) + .NumeContact = Iif(!Empty(Nvl(.NumeContact, '')), .NumeContact, Alltrim(Nvl(gofirma.nume_declarant, ''))) + .FunctieContact = Iif(!Empty(Nvl(.FunctieContact, '')), .FunctieContact, Alltrim(Nvl(gofirma.functie, ''))) + Endwith +******************************* + AddProperty(m.pounitate, "MasterFiles", .T.) + AddProperty(m.pounitate, "GeneralLedgerEntries", .T.) + AddProperty(m.pounitate, "SourceDocuments", .T.) + + AddProperty(m.pounitate, "GeneralLedgerAccounts", .F.) + AddProperty(m.pounitate, "Customers", .F.) + AddProperty(m.pounitate, "Suppliers", .F.) + AddProperty(m.pounitate, "TaxTable", .F.) + AddProperty(m.pounitate, "UOMTable", .F.) + AddProperty(m.pounitate, "AnalysisTypeTable", .F.) + AddProperty(m.pounitate, "MovementTypeTable", .F.) + AddProperty(m.pounitate, "Products", .F.) + AddProperty(m.pounitate, "PhysicalStock", .F.) + AddProperty(m.pounitate, "Owners", .F.) + AddProperty(m.pounitate, "Assets", .F.) + + AddProperty(m.pounitate, "SalesInvoices", .F.) + AddProperty(m.pounitate, "PurchaseInvoices", .F.) + AddProperty(m.pounitate, "Payments", .F.) + AddProperty(m.pounitate, "MovementofGoods", .F.) + AddProperty(m.pounitate, "AssetTransactions", .F.) + + +***************************************************************************************************** +*!* AddProperty(pounitate, "TipRepr", Alltrim(citeste_optiune('D406_TIP_REPREZ'))) +*!* AddProperty(pounitate, "TelRepr", Alltrim(citeste_optiune('D406_TEL_REPREZ'))) +*!* AddProperty(pounitate, "FaxRepr", Alltrim(citeste_optiune('D406_FAX_REPREZ'))) +*!* AddProperty(pounitate, "EmailRepr", Alltrim(citeste_optiune('D406_EMAIL_REPREZ'))) + +*!* AddProperty(pounitate, "DenIntocmit", Alltrim(citeste_optiune('D406_DEN_INTOCMIT'))) +*!* AddProperty(pounitate, "CuiIntocmit", Alltrim(citeste_optiune('D406_CUI_INTOCMIT'))) +*!* AddProperty(pounitate, "PJIntocmit", Int(Val(Nvl(citeste_optiune('D406_PJ_INTOCMIT'), '1'))) ) +*!* AddProperty(pounitate, "CalitateIntocmit", Alltrim(citeste_optiune('D406_CALITATE_INTOCMIT'))) +*!* AddProperty(pounitate, "Calitate2Intocmit", Alltrim(citeste_optiune('D406_CALITATE2_INTOCMIT'))) +*!* AddProperty(pounitate, "FunctieIntocmit", Alltrim(citeste_optiune('D406_FUNCTIE_INTOCMIT'))) + + This.oUnitate = m.pounitate + + Do Form frm_decl406_saft Name m.loDecl Linked Noshow + This.oForm = m.loDecl + loDecl.oParent = This + m.loDecl.Show() + + scrie_optiune('D406_FUNCTIE_CONTACT', pounitate.FunctieContact, 'D406 functie contact') + scrie_optiune('D406_PRENUME_CONTACT', pounitate.PrenumeContact, 'D406 prenume contact') + scrie_optiune('D406_NUME_CONTACT', pounitate.NumeContact, 'D406 nume contact') + + scrie_optiune('D406_CUST_SUP_TYPE', pounitate.CustSupType, 'D406 tip clienti, furnizori: 1=Toti;2=2022;3=2023;4=2025') + +*!* scrie_optiune('D406_TIP', pounitate.TIP, 'Tip declaratie 394: LUNAR/TRIMESTRIAL/SEMESTRIAL/ANUAL') + Endproc && List + + +* Intoarce fragment xml + Function wxml + Lparameters tcTag, tcValue, tlForce +* tcTag: StreetName (obligatoriu) +* tcValue: alabala (optional) +* tlForce: (optional, implicit .F.) daca se scrie tag-ul indiferent daca exista sau nu valoarea + Local lcText, lcValue, llValue, llForce + llForce = m.tlForce + lcText = '' + IF ISNULL(tcValue) + lcValue = '' + ELSE + lcValue = TRANSFORM(m.tcValue) + ENDIF + + If !Empty(m.lcValue) Or m.tlForce +* daca s-a transmis parametrul valoare sau tag-ul trebuie afisat indiferent daca are sau nu valoare + lcText = [] + m.lcValue + [] + Endif + Return m.lcText + Endfunc && wxml + + Procedure do_genereaza_xml + LPARAMETERS tlTest + * tlTest: .T. D406T, .F. D406 + + Local lcCustomers, lcGeneralLedgerAccounts, lcHeader, lcSuppliers, lcXML + Local lcAnalysisTypeTable, lcMovementTypeTable, lcGeneralLedgerEntries, lcPayments, lcPurchaseInvoices, lcSalesInvoices + Local lcTaxTable, lcTipDeclaratie + LOCAL lnBytes, llSucces + Local lcAssetTransactions, lcAssets, lcCaleFisier, lcComunPath, lcConfigDir, lcFileName + Local lcFisierRaspuns, lcMovementofGoods, lcNumeFisier, lcOwners, lcParams, lcPhysicalStock + Local lcProducts, lcUOMTable, lcValidator, lcXMLTemp, lnFileHandle, lnSec, lcSufixCale, lcSufixFisier + LOCAL lcMessage, loChatBot + LOCAL lnAn1, lnAn2, lnLuna1, lnLuna2 + + lnAn1 = This.oUnitate.an1 + lnLuna1 = This.oUnitate.luna1 + lnAn2 = This.oUnitate.an2 + lnLuna2 = This.oUnitate.luna2 + + DO CASE + CASE goFirma.id_forma_juridica = 13 + This.TaxAccountingBasis = 'ONG' && asociatii, organizatii nonguvernamentale + OTHERWISE + This.TaxAccountingBasis = 'A' && societati comertiale + ENDCASE + + lcCaleFisier = m.gcBasePath + IIF(m.tlTest, "D406T\", "D406\") && D:\ROA\D406\ + If !Directory(m.lcCaleFisier) + Md (m.lcCaleFisier) + Endif + + lcTip = UPPER(This.Tip) && L/T/A/C + lcSufixCale = IIF(m.lcTip = 'A', 'anual\', IIF(m.lcTip = 'C', 'cerere\', '')) + lcSufixFisier = IIF(m.lcTip = 'A', '_anual', IIF(m.lcTip = 'C', '_cerere', '')) + + lcCaleFisier = m.lcCaleFisier + Alltrim(Str(gnAn)) + "_" + Padl(Alltrim(Str(gnLuna)), 2, "0") + "\" && D:\ROA\D406\2022_01\ + If !Directory(m.lcCaleFisier) + Md (m.lcCaleFisier) + Endif + + lcCaleFisier = m.lcCaleFisier + Strtran(gcFirma, [ ], [_]) + "\" + m.lcSufixCale && D:\ROA\D406\2022_01\firma\ + If !Directory(m.lcCaleFisier) + Md (m.lcCaleFisier) + ENDIF + + lcNumeFisier = IIF(m.tlTest, 'd406t_', 'd406_') + gofirma.codfiscalfro + "_" + Alltrim(Str(gnAn)) + "_" + Padl(gnLuna, 2, "0") + lcFileName = m.lcCaleFisier + lcNumeFisier + m.lcSufixFisier + '.xml' + lcFisierRaspuns = m.lcFileName + '.txt' + + IF FILE(m.lcFileName) + DELETE FILE (m.lcFileName) + ENDIF + + IF FILE(m.lcFisierRaspuns) + DELETE FILE (m.lcFisierRaspuns) + ENDIF + + WAIT WINDOW 'Generare Header ' NOWAIT + lcHeader = This.wHeader() + + WAIT WINDOW 'Generare GeneralLedgerAccounts' NOWAIT + lcGeneralLedgerAccounts = This.wGeneralLedgerAccounts() + + WAIT WINDOW 'Generare Customers ' NOWAIT + lcCustomers = This.wCustomersSuppliers('customers') + + WAIT WINDOW 'Generare Suppliers ' NOWAIT + lcSuppliers = This.wCustomersSuppliers('suppliers') + + WAIT WINDOW 'Generare TaxTable ' NOWAIT + lcTaxTable = This.wTaxTable() + + WAIT WINDOW 'Generare UOMTable ' NOWAIT + lcUOMTable = This.wUOMTable() + + WAIT WINDOW 'Generare AnalysysTypeTable ' NOWAIT + lcAnalysisTypeTable = This.wAnalysisTypeTable() + + WAIT WINDOW 'Generare GeneralLedgerEntries ' NOWAIT + lcGeneralLedgerEntries = This.wGeneralLedgerEntries() + + WAIT WINDOW 'Generare Sales Invoices ' NOWAIT + lcSalesInvoices = IIF(This.oUnitate.SalesInvoices, This.wSalesInvoices(), '') + + WAIT WINDOW 'Generare Purchase Invoices ' NOWAIT + lcPurchaseInvoices = IIF(This.oUnitate.PurchaseInvoices, This.wPurchaseInvoices(), '') + + WAIT WINDOW 'Generare Payments ' NOWAIT + lcPayments = IIF(This.oUnitate.Payments, This.wPayments(), '') + + WAIT WINDOW 'Generare MovementTypeTable ' NOWAIT + lcMovementTypeTable = IIF(This.oUnitate.MovementTypeTable, This.wMovementTypeTable(), '') + + WAIT WINDOW 'Generare Products ' NOWAIT + lcProducts = This.wProducts() + IF EMPTY(m.lcProducts) And This.oUnitate.Products + TEXT TO m.lcProducts NOSHOW + + + 7493049347 + 01 + Product 1 + 25261000 + 58 + 58 + 1.0 + + + ENDTEXT + ENDIF + + WAIT WINDOW 'Generare PhysicalStock ' NOWAIT + lcPhysicalStock = This.wPhysicalStock() + + WAIT WINDOW 'Generare MovementofGoods ' NOWAIT + lcMovementofGoods = This.wMovementofGoods() + + WAIT WINDOW 'Generare Owners ' NOWAIT + lcOwners = This.wOwners() + + WAIT WINDOW 'Generare Assets ' NOWAIT + lcAssets = This.wAssets() + + WAIT WINDOW 'Generare AssetTransactions ' NOWAIT + lcAssetTransactions = This.wAssetTransactions() + + + lcTipDeclaratie = IIF(m.tlTest, 'd406t', 'd406') + + WAIT WINDOW 'Scriere XML Header...' NOWAIT + lcXML = "" + + lnFileHandle = FCREATE(m.lcFileName) + + WAIT WINDOW 'Scriere XML Header...' NOWAIT + + Text To m.lcXMLTemp Textmerge NOSHOW + + + + <> + + ENDTEXT + lcXML = m.lcXMLTemp + + lnBytes = FPUTS(m.lnFileHandle, m.lcXMLTemp) + + + WAIT WINDOW 'Scriere XML GeneralLedgerAccounts...' NOWAIT + lcXMLTemp = [] + CHR(13) + CHR(10) + m.lcGeneralLedgerAccounts + [] + lnBytes = FPUTS(m.lnFileHandle, m.lcXMLTemp) + + + WAIT WINDOW 'Scriere XML Customers...' NOWAIT + lnBytes = FPUTS(m.lnFileHandle, []) + IF This.oUnitate.Customers + lnBytes = FPUTS(m.lnFileHandle, m.lcCustomers) + ENDIF + lnBytes = FPUTS(m.lnFileHandle, []) + + + WAIT WINDOW 'Scriere XML Suppliers...' NOWAIT + lnBytes = FPUTS(m.lnFileHandle, []) + IF This.oUnitate.Suppliers + lnBytes = FPUTS(m.lnFileHandle, m.lcSuppliers) + ENDIF + lnBytes = FPUTS(m.lnFileHandle, []) + + + WAIT WINDOW 'Scriere XML TaxTable...' NOWAIT + lnBytes = FPUTS(m.lnFileHandle, []) + IF This.oUnitate.TaxTable + lnBytes = FPUTS(m.lnFileHandle, m.lcTaxTable) + ENDIF + lnBytes = FPUTS(m.lnFileHandle, []) + + + WAIT WINDOW 'Scriere XML UOMTable...' NOWAIT + lnBytes = FPUTS(m.lnFileHandle, []) + IF This.oUnitate.UOMTable + lnBytes = FPUTS(m.lnFileHandle, m.lcUOMTable) + ENDIF + lnBytes = FPUTS(m.lnFileHandle, []) + + + WAIT WINDOW 'Scriere XML AnalysisTypeTable...' NOWAIT + lcXMLTemp = this.wxml("AnalysisTypeTable", m.lcAnalysisTypeTable, This.oUnitate.AnalysisTypeTable) + lnBytes = FPUTS(m.lnFileHandle, m.lcXMLTemp) + + WAIT WINDOW 'Scriere XML MovementTypeTable...' NOWAIT + lcXMLTemp = this.wxml("MovementTypeTable", m.lcMovementTypeTable, .T.) + lnBytes = FPUTS(m.lnFileHandle, m.lcXMLTemp) + + WAIT WINDOW 'Scriere XML Products...' NOWAIT + lnBytes = FPUTS(m.lnFileHandle, []) + IF This.oUnitate.Products + lnBytes = FPUTS(m.lnFileHandle, m.lcProducts) + ENDIF + lnBytes = FPUTS(m.lnFileHandle, []) + + WAIT WINDOW 'Scriere XML PhysicalStock...' NOWAIT + IF This.oUnitate.PhysicalStock + lnBytes = FPUTS(m.lnFileHandle, []) + lnBytes = FPUTS(m.lnFileHandle, m.lcPhysicalStock) + lnBytes = FPUTS(m.lnFileHandle, []) + ENDIF + + WAIT WINDOW 'Scriere Owners...' NOWAIT + lnBytes = FPUTS(m.lnFileHandle, []) + IF This.oUnitate.Owners + lnBytes = FPUTS(m.lnFileHandle, m.lcOwners) + ENDIF + lnBytes = FPUTS(m.lnFileHandle, []) + + + WAIT WINDOW 'Scriere XML Assets...' NOWAIT + lnBytes = FPUTS(m.lnFileHandle, []) + IF This.oUnitate.Assets + lnBytes = FPUTS(m.lnFileHandle, m.lcAssets) + ENDIF + lnBytes = FPUTS(m.lnFileHandle, []) + + + Text To m.lcXMLTemp Textmerge NOSHOW + + ENDTEXT + lnBytes = FPUTS(m.lnFileHandle, m.lcXMLTemp) + + WAIT WINDOW 'Scriere XML GeneralLedgerEntries...' NOWAIT + lnBytes = FPUTS(m.lnFileHandle, []) + IF This.oUnitate.GeneralLedgerEntries + lnBytes = FPUTS(m.lnFileHandle, m.lcGeneralLedgerEntries ) + ENDIF + lnBytes = FPUTS(m.lnFileHandle, []) + + + WAIT WINDOW 'Scriere XML SourceDocuments...' NOWAIT + lcXMLTemp = '' + lnBytes = FPUTS(m.lnFileHandle, m.lcXMLTemp) + + WAIT WINDOW 'Scriere XML SalesInvoices...' NOWAIT + lnBytes = FPUTS(m.lnFileHandle, []) + lnBytes = FPUTS(m.lnFileHandle, m.lcSalesInvoices) + lnBytes = FPUTS(m.lnFileHandle, []) + + WAIT WINDOW 'Scriere XML PurchaseInvoices...' NOWAIT + lnBytes = FPUTS(m.lnFileHandle, []) + lnBytes = FPUTS(m.lnFileHandle, m.lcPurchaseInvoices) + lnBytes = FPUTS(m.lnFileHandle, []) + + WAIT WINDOW 'Scriere XML Payments...' NOWAIT + lnBytes = FPUTS(m.lnFileHandle, []) + lnBytes = FPUTS(m.lnFileHandle, m.lcPayments) + lnBytes = FPUTS(m.lnFileHandle, []) + + WAIT WINDOW 'Scriere XML MovementOfGoods...' NOWAIT + lnBytes = FPUTS(m.lnFileHandle, []) + lnBytes = FPUTS(m.lnFileHandle, m.lcMovementOfGoods) + lnBytes = FPUTS(m.lnFileHandle, []) + + WAIT WINDOW 'Scriere XML AssetTransactions...' NOWAIT + IF this.oUnitate.AssetTransactions + lnBytes = FPUTS(m.lnFileHandle, []) + lnBytes = FPUTS(m.lnFileHandle, m.lcAssetTransactions) + lnBytes = FPUTS(m.lnFileHandle, []) + ENDIF + + Text To m.lcXMLTemp Textmerge NOSHOW + + + Endtext + lnBytes = FPUTS(m.lnFileHandle, m.lcXMLTemp) + + WAIT WINDOW 'Salvare fisier XML...' NOWAIT + + * scriu fisierul xml + llSucces = FCLOSE(m.lnFileHandle) + + WAIT WINDOW 'Validare fisier ' + m.lcFileName NOWAIT + + * validez xml + lcComunPath = m.gcBasePath + Iif(gcAppName = "CONCONT", "COMUNCONTAFIN\", "COMUNROA\") + lcValidator = m.lcComunPath + [dist] + IIF(m.tlTest, [406], []) + [\DUKIntegrator.jar] && ROA\COMUNROA\DIST[406]\DUKIntegrator.jar + IF !FILE(m.lcValidator) + open_default_app('https://static.anaf.ro/static/10/Anaf/Informatii_R/saf_t.htm') + AMESSAGEBOX('Nu exista fisierul: "' + m.lcValidator + '"!' + CHR(13) + CHR(10) + ; + 'Pentru validare xml D406, instalati validatorul D406 in directorul: "' + JUSTPATH(m.lcValidator) + '"',0+48, _screen.Caption) + ELSE + lcConfigDir = m.lcComunPath + [dist] + IIF(m.tlTest, [406], []) + [\config] + lcParams = ' -c "' + m.lcConfigDir + '" -v ' + IIF(m.tlTest, 'D406T', 'D406') + ' "' + m.lcFileName + '" "' + m.lcFisierRaspuns + '"' + " $ $ an=" + ALLTRIM(STR(m.lnAn2)) + " luna=" + ALLTRIM(STR(m.lnLuna2)) + + _cliptext = m.lcValidator + " " + m.lcParams + + OPEN_DEFAULT_APP(m.lcValidator, m.lcParams) + + lnSec = 0 + DO WHILE !(File(m.lcFisierRaspuns) OR m.lnSec > 30) + Wait Window Timeout 1 "" + lnSec = lnSec + 1 + ENDDO + + If File(m.lcFisierRaspuns) + IF LOWER(FILETOSTR(m.lcFisierRaspuns)) = "ok" + AMESSAGEBOX('Validare fara erori fisier: ' + m.lcFileName,0+48,_screen.Caption) + DELETE FILE(m.lcFisierRaspuns) + + * Lansare validator pentru creare PDF + lcParams = ' "' + m.lcFileName + '"' + OPEN_DEFAULT_APP(m.lcValidator, m.lcParams) + + ELSE + IF AMESSAGEBOX('Validare cu erori fisier: ' + m.lcFileName + CHR(13) + CHR(10) + 'Doriti sa interogati chatbot-ul de suport tehnic?',0+4+48,_screen.Caption) = 6 + lcMessage = FILETOSTR(m.lcFisierRaspuns) + loChatBot = CREATEOBJECT("oChatBotLaunch", m.lcMessage) + loChatBot.Launch() + ENDIF + OPEN_DEFAULT_APP(m.lcFisierRaspuns) + ENDIF + ELSE + AMESSAGEBOX('Nu s-a creat fisierul raspuns ' + m.lcFisierRaspuns + ' dupa validare!', 0+48,_screen.Caption) + + * Lansare validator pentru creare PDF + lcParams = ' "' + m.lcFileName + '"' + OPEN_DEFAULT_APP(m.lcValidator, m.lcParams) + ENDIF + ENDIF + + *** deschid explorer in directorul de export + OPEN_DEFAULT_APP(m.lcCaleFisier) + + RETURN m.lcFileName + Endproc && do_genereaza_xml + + * Rapoarte verificare + + ********************************* + * verific daca toate notele 512/531/542 si toate notele 4xx = x/ x = 4xx au cod plata + ********************************* + PROCEDURE do_verifica_plati + Local lcSql, llOk, llSucces, lnAn1, lnAn2, lnLuna1, lnLuna2, lnDif + lnAn1 = This.oUnitate.an1 + lnLuna1 = This.oUnitate.luna1 + lnAn2 = This.oUnitate.an2 + lnLuna2 = This.oUnitate.luna2 + + * 1 = Inregistrarile tip 512/531/542 = x sau x = 512/531/542 fara Cod Plata + * 2 = Inregistrari tip plati 40x/462/4xx = x sau x = 41x/461/4xx fara Cod Plata + * 3 = Inregistrari cu cod plata diferit de cod plata implicit NU MAI VERIFIC - PREA MULTE FALS POZITIVE + * 4 = Inregistrari cu cod plata, care nu reprezinta plati terti. Trebuie sters codul de plata de pe aceste note + + Text To m.lcSql Noshow Textmerge +select tip, + CAST(null as NUMBER(10)) as nrand, + an, + luna, + fdoc, + nract, + dataact, + partd, + partc, + scd, + scc, + suma, + codplata, + codplata_implicit + from (SELECT 1 as tip, + a.an, + a.luna, + a.fdoc, + a.nract, + a.dataact, + partd, + partc, + a.scd, + a.scc, + a.suma, + a.paymentname as codplata, + a.paymentname as codplata_implicit + FROM vact a + WHERE a.an * 12 + a.luna between <> and <> + and (SUBSTR(scd, 1, 3) in ('512', '531', '542') or + SUBSTR(scc, 1, 3) in ('512', '531', '542')) + and not (SUBSTR(scd,1,3) = '581' or SUBSTR(scc,1,3) = '581') + and not (partd like '%BANCA COMPENSARI%' or partc like '%BANCA COMPENSARI%') + and a.paymentcode is null + union all + SELECT 2 as tip, + a.an, + a.luna, + a.fdoc, + a.nract, + a.dataact, + partd, + partc, + a.scd, + a.scc, + a.suma, + a.paymentname as codplata, + a.paymentname as codplata_implicit + FROM vact a + join plcont p + on a.scd = p.cont + and p.an = a.an + and p.acont is null + and p.tip_sold = 'P' + and substr(p.cont, 1, 2) in ('40', '41', '46') and p.cont <> '408' + WHERE a.an * 12 + a.luna between <> and <> + and (SUBSTR(scc, 1, 3) not in ('512', '531', '542', '581', '765')) + and a.paymentcode is null + union all + SELECT 2 as tip, + a.an, + a.luna, + a.fdoc, + a.nract, + a.dataact, + partd, + partc, + a.scd, + a.scc, + a.suma, + a.paymentname as codplata, + a.paymentname as codplata_implicit + FROM vact a + join plcont p + on a.scc = p.cont + and p.an = a.an + and p.acont is null + and p.tip_sold = 'A' + and substr(p.cont, 1, 2) in ('40', '41', '46') and p.cont <> '418' + WHERE a.an * 12 + a.luna between <> and <> + and (SUBSTR(scd, 1, 3) not in ('512', '531', '542', '581', '665')) + and a.paymentcode is null) + ENDTEXT + + llSucces = goExecutor.oExecuta(m.lcSql, 'cSAFTPlatiTemp2') + If m.llSucces + * Excludere din verificari plati + * diferente de curs valutar, reevaluari solduri banca/casa in valuta nu trebuie declarate cu cod de plata + DELETE FROM cSAFTPlatiTemp2 WHERE INLIST(SUBSTR(scd,1,3), '512', '531') AND scc like '765%' + DELETE FROM cSAFTPlatiTemp2 WHERE INLIST(SUBSTR(scc,1,3), '512', '531') AND scd like '665%' + + * exclud platile din 542 pentru cheltuieli directe (ex: diurne), fara terti/furnizori + DELETE FROM cSAFTPlatiTemp2 WHERE INLIST(SUBSTR(scc,1,3), '542') AND scd like '6%' + + * discount, scont, reduceri, inchidere avansuri + DELETE FROM cSAFTPlatiTemp2 WHERE INLIST(SUBSTR(scd,1,2), '40', '46') AND INLIST(SUBSTR(scc,1,3), '609', '767', '409') + DELETE FROM cSAFTPlatiTemp2 WHERE INLIST(SUBSTR(scc,1,2), '41', '46') AND INLIST(SUBSTR(scd,1,3), '709', '667', '419') + + * garantii retinute din factura. nu sunt plati + DELETE FROM cSAFTPlatiTemp2 WHERE INLIST(SUBSTR(scc,1,3), '401', '404') AND SUBSTR(scd,1,3) = '167' + + * EXTRAG RANDURI FARA CONT - NU SUNT CONTURI DE TERTI SI PROBABIL NU SUNT PLATI/INCASARI CATRE TERTI + lcLista4 = '' + SELECT cPayments + SCAN FOR EMPTY(NVL(cont, '')) + SCATTER NAME loRec + lnRand = RECNO('cPayments') + + WITH loRec + Insert Into cSAFTPlatiTemp2 (tip, nrand, dataact, partd, suma, codplata); + VALUES (4, m.lnRand, .dataact, .denumire, .suma, .paymentcode) + + lcLista4 = lcLista4 + IIF(!EMPTY(m.lcLista4), ', ', '') + ALLTRIM(STR(m.lnRand)) + ENDWITH + ENDSCAN + + + CALCULATE CNT() TO lnDif IN cSAFTPlatiTemp2 + IF m.lnDif > 0 + SELECT INT(tip) as tip, an, luna, nrand as rand, fdoc as fel_document, nract, TTOD(dataact) as dataact, partd, partc, scd, scc, suma, codplata, codplata_implicit FROM cSAFTPlatiTemp2 ORDER BY tip, an, luna, dataact, nract INTO CURSOR cSaftPlatiTemp + +*!* llOk = ExportExcelXml("cSAFTPlatiTemp", "plati_saft",'plati',.T.) + goExport.export2xlsx("cSAFTPlatiTemp", "verificare_plati_saft_" + gofirma.codfiscalfro + '_' + ALLTRIM(STR(m.gnAn)) + PADL(m.gnLuna,2,'0')) + + USE IN (SELECT('cSAFTPlatiTemp')) + + AMESSAGEBOX('Tip = 1 : Plati/incasari (512/531/542) care nu au completat Cod Plata SAFT (exclusiv 581, 665/765, BANCA COMPENSARI)' + CHR(13) + CHR(10) + ; + 'Tip = 2 : Plati/incasari 40x/462/4xx = x sau x = 41x/461/4xx care nu au completat Cod Plata SAFT' + CHR(13) + CHR(10) + ; + IIF(EMPTY(m.lcLista4), '', ; + CHR(13) + CHR(10) + ; + 'Randurile urmatoare nu au conturi de terti dar au cod de plata in Registrul Jurnal: ' + m.lcLista4 + CHR(13) + CHR(10) + ; + 'Stergeti codul de plata daca nu sunt incasari/plati catre terti!'), 0+64, _screen.Caption) + ELSE + AMESSAGEBOX('Nu sunt diferente!' + CHR(13) + CHR(10) + ; + 'Tip = 1 : Plati/incasari (512/531/542) care nu au completat Cod Plata SAFT (exclusiv 581, 665/765, BANCA COMPENSARI)' + CHR(13) + CHR(10) + ; + 'Tip = 2 : Plati/incasari 40x/462/4xx = x sau x = 41x/461/4xx care nu au completat Cod Plata SAFT', 0+64, _screen.Caption) + ENDIF + USE IN (SELECT('cSAFTPlatiTemp2')) + + ENDIF + ENDPROC && do_verifica_plati + + ********************************* + * verific daca toate notele cu explicatie TVA au cod taxa + ********************************* + PROCEDURE do_verifica_tva + Local lcSql, llOk, llSucces, lnAn1, lnAn2, lnLuna1, lnLuna2 + lnAn1 = This.oUnitate.an1 + lnLuna1 = This.oUnitate.luna1 + lnAn2 = This.oUnitate.an2 + lnLuna2 = This.oUnitate.luna2 + + * 1 = Inregistrarile cu Explicatie TVA, dar fara TaxCode, inclusiv note TVA 4426/4427, fara 4428 ,exceptand Limitare deducere TVA) + * 2 = Inregistrari cu TaxCode diferit fata de TaxCode implicit (bazat pe Explicatie TVA, data, furnizor TVAI) + * 3 = Inregistrari 442x cu explicatie TVA baza in loc de TVA ??? + Text To m.lcSql Noshow Textmerge +select 1 as tip, + an, + luna, + nract, + dataact, + partd, + partc, + scd, + scc, + suma, + explicatie_tva, + taxname as codtaxa, + taxname as codtaxa_implicit + FROM vact a + WHERE a.an * 12 + a.luna between <> and <> + and NVL(a.id_jtva_coloana, 0) <> 0 + and a.taxcode is null + and ((a.scd not in ('4428') + and a.scc not in ('4428')) or a.id_jtva_coloana in (1001,1004,1005)) +union all +SELECT b.tip, + b.an, + b.luna, + b.nract, + b.dataact, + b.partd, + b.partc, + b.scd, + b.scc, + b.suma, + b.explicatie_tva, + b.taxname as codtaxa, + t.taxname as codtaxa_implicit + from (select 2 as tip, + an, + luna, + nract, + dataact, + a.partd, + a.partc, + scd, + scc, + a.suma, + explicatie_tva, + taxname, + taxcode, + pack_saft.gettaxcode(a.an, + a.luna, + a.dataact, + a.id_jtva_coloana, + a.cod, + nvl(a.id_partc, id_partd)) as taxcodex + FROM vact a + WHERE a.an * 12 + a.luna between <> and <> + and NVL(a.id_jtva_coloana, 0) <> 0 + and a.taxcode is not null) b + left join vsaft_taxtable t + on b.taxcodex = t.taxcode + where NVL(b.taxcode, 0) <> NVL(b.taxcodex, 0) + Endtext + + llSucces = goExecutor.oExecuta(m.lcSql, 'cSAFTTaxaTemp2') + + If m.llSucces + * 3 = Inregistrari 442x cu explicatie TVA baza in loc de TVA ??? + SELECT 3 as tip, m.gnAn as an, m.gnLuna as luna, nract, dataact, IIF(tipdc = 'D', cont, SPACE(4)) as scd, IIF(tipdc = 'C', cont, SPACE(4)) as scc, ; + suma, explicatie_tva,taxname, taxcode ; + FROM cGeneralLedgerEntries ; + WHERE LEFT(cont, 3) = '442' AND taxa <> 0; + ORDER BY dataact, nract ; + INTO CURSOR cAct442x + + SELECT cSAFTTaxaTemp2 + APPEND FROM DBF('cAct442x') + USE IN (SELECT('cAct442x')) + + IF RECCOUNT('cSAFTTaxaTemp2') > 0 + SELECT INT(tip) as tip, an, luna, nract, TTOD(dataact) as dataact, partd, partc, scd, scc, suma, explicatie_tva, codtaxa, codtaxa_implicit FROM cSAFTTaxaTemp2 ORDER BY tip, an, luna, dataact, nract INTO CURSOR cSAFTTaxaTemp + + * llOk = ExportExcelXml("cSAFTTaxaTemp", "taxa_tva_saft",'taxa',.T.) + goExport.export2xlsx("cSAFTTaxaTemp", "verificare_taxa_tva_saft_" + gofirma.codfiscalfro + '_' + ALLTRIM(STR(m.gnAn)) + PADL(m.gnLuna,2,'0')) + + USE IN (SELECT('cSAFTTaxaTemp')) + + AMESSAGEBOX('Tip = 1 : Note Reg. Jurnal - Explicatie TVA fara Cod Taxa SAFT' + CHR(13) + CHR(10) + ; + 'Tip = 2 : Note Reg. Jurnal - Cod Taxa SAFT diferit fata de Cod Taxa implicit' + CHR(13) + CHR(10) + ; + 'Tip = 3 : Note D406 - conturi TVA 442x care au suma TVA completata. Verificati Explicatia TVA in Reg. Jurnal', 0+64, _screen.Caption) + ELSE + AMESSAGEBOX('Nu sunt diferente!' + CHR(13) + CHR(10) + CHR(13) + CHR(10) + ; + 'Tip = 1 : Note Reg. Jurnal - Explicatie TVA fara Cod Taxa SAFT' + CHR(13) + CHR(10) + ; + 'Tip = 2 : Note Reg. Jurnal - Cod Taxa SAFT diferit fata de Cod Taxa implicit' + CHR(13) + CHR(10) + ; + 'Tip = 3 : Note D406 - conturi TVA 442x care au suma TVA completata. Verificati Explicatia TVA in Reg. Jurnal', 0+64, _screen.Caption) + ENDIF + USE IN (SELECT('cSAFTTaxaTemp2')) + ENDIF + ENDPROC && do_verifica_tva + + + ********************************* + * verific daca toate notele cu explicatie TVA au cod taxa + ********************************* + PROCEDURE do_verifica_wht + Local lcSql, llOk, llSucces, lnAn1, lnAn2, lnLuna1, lnLuna2 + lnAn1 = This.oUnitate.an1 + lnLuna1 = This.oUnitate.luna1 + lnAn2 = This.oUnitate.an2 + lnLuna2 = This.oUnitate.luna2 + + * 1 = Inregistrarile 4423,4424,441,444,431,436,446,448, fara TaxCode + * 2 = Inregistrari cu TaxCode diferit fata de TaxCode implicit + + Text To m.lcSql Noshow Textmerge +select 1 as tip, + an, + luna, + nract, + dataact, + partd, + partc, + scd, + scc, + explicatie_tva, + taxname as codtaxa, + taxname as codtaxa_implicit + FROM vact a + WHERE a.an * 12 + a.luna between <> and <> + and (a.scd in ('4423','4424') or SUBSTR(a.scd,1,3) in ('441','444','431','436','446','448') + or a.scc in ('4423','4424') or SUBSTR(a.scc,1,3) in ('441','444','431','436','446','448')) + and a.taxcode is null + Endtext + + llSucces = goExecutor.oExecuta(m.lcSql, 'cSAFTTaxaTemp2') + + If m.llSucces + IF RECCOUNT('cSAFTTaxaTemp2') > 0 + SELECT INT(tip) as tip, an, luna, nract, TTOD(dataact) as dataact, partd, partc, scd, scc, explicatie_tva, codtaxa, codtaxa_implicit FROM cSAFTTaxaTemp2 ORDER BY tip, an, luna, dataact, nract INTO CURSOR cSAFTTaxaTemp + + * llOk = ExportExcelXml("cSAFTTaxaTemp", "taxe_impozite_saft",'taxa',.T.) + goExport.export2xlsx("cSAFTTaxaTemp", "verificare_taxe_impozite_saft_" + gofirma.codfiscalfro + '_' + ALLTRIM(STR(m.gnAn)) + PADL(m.gnLuna,2,'0')) + + USE IN (SELECT('cSAFTTaxaTemp')) + + AMESSAGEBOX('Tip = 1 : Note din Registrul Jurnal (taxe si impozite) 4423,4424,441,444,431,436,446,448, care nu au completat Cod Taxa SAFT' + CHR(13) + CHR(10) + ; + 'Este obligatoriu sa aiba cod taxa notele care reprezinta impozite cu retinere la sursa', 0+64, _screen.Caption) + ELSE + AMESSAGEBOX('Nu sunt diferente' + CHR(13) + CHR(10) + CHR(13) + CHR(10) + ; + 'Tip = 1 : Note din Registrul Jurnal (taxe si impozite) 4423,4424,441,444,431,436,446,448, care nu au completat Cod Taxa SAFT' + CHR(13) + CHR(10) + ; + 'Este obligatoriu sa aiba cod taxa notele care reprezinta impozite cu retinere la sursa', 0+64, _screen.Caption) + ENDIF + USE IN (SELECT('cSAFTTaxaTemp2')) + ENDIF + + ENDPROC && do_verifica_wht + + + ************************************************* + * Verifica coduri fiscale cu serviciul web ANAF doar partnerii activi in perioada de raportare + * verifica solduri cu balanta de parteneri + ************************************************* + PROCEDURE do_verifica_cui + LPARAMETERS tcCursor, tlSilent + * tcCursor: cCustomers/cSuppliers + + #Define CRLF Chr(13) + Chr(10) + + LOCAL llSilent, lcMesaj, lcListaGol + + lcMesaj = '' + + llSilent = m.tlSilent + + Local lcCursor, lcSelect, lcSql, llClient, llSucces, lnAn1, lnAn2, lnLuna1, lnLuna2 + lcSelect = Select() + + llClient = 'CUSTOMER'$Upper(Alltrim(m.tcCursor)) + lcCursor = m.tcCursor + lcListaConturi = Iif(m.llClient, ['4111','4118','461','418', '419'], ['401','404','462','408','409']) + + lnAn1 = This.oUnitate.an1 + lnLuna1 = This.oUnitate.luna1 + lnAn2 = This.oUnitate.an2 + lnLuna2 = This.oUnitate.luna2 + +*!* lnOptiune = XMENU('Verifica solduri; Verifica toti partenerii - ANAF') + lnOptiune = 1 + If Empty(m.lnOptiune) + Return + Endif + + * Pot sa fac verificarea pentru un singur nume si cu formularul pentru mai multi parteneri, dar arata mai dragut informatia intr-un messagebox pentru unul singur + If m.lnOptiune = 1 && verifica solduri + + * cursor solduri initiale, finale din vbalanta_parteneri + TEXT TO m.lcSql TEXTMERGE NOSHOW +select nvl(b1.id_part, b2.id_part) as id_part, + NVL(b1.denumire, b2.denumire) as denumire, + nvl(b1.cont, b2.cont) as cont, + (case + when b1.precdeb >= b1.preccred then + b1.precdeb - b1.preccred + else + 0 + end) as soldideb, + (case + when b1.preccred > b1.precdeb then + b1.preccred - b1.precdeb + else + 0 + end) as soldicred, + (case + when b2.solddeb >= b2.soldcred then + b2.solddeb - b2.soldcred + else + 0 + end) as soldfdeb, + (case + when b2.soldcred > b2.solddeb then + b2.soldcred - b2.solddeb + else + 0 + end) as soldfcred + from (select id_part, + nume as denumire, + cont, + sum(precdeb) as precdeb, + sum(preccred) as preccred + from vbalanta_parteneri + where an = <> + and luna = <> + and cont in (<>) + group by id_part,nume,cont) b1 + full join (select id_part, + nume as denumire, + cont, + SUM(solddeb) as solddeb, + SUM(soldcred) as soldcred + from vbalanta_parteneri + where an = <> + and luna = <> + and cont in (<>) + group by id_part,nume,cont) b2 + on b1.id_part = b2.id_part +and b1.cont = b2.cont + ENDTEXT + + llSucces = goExecutor.oExecuta(m.lcSql, 'cBalPartTemp') + + If m.llSucces + SELECT NVL(a.id_part, b.id_part) as id_part, NVL(a.cont, b.cont) as cont, ; + NVL(a.denumire, b.denumire) as denumire, ; + IIF(m.llClient, a.soldideb - a.soldicred, a.soldicred-a.soldideb) as saft_soldi, ; + IIF(m.llClient, a.soldfdeb - a.soldfcred, a.soldfcred-a.soldfdeb) as saft_soldf, ; + IIF(m.llClient, b.soldideb - b.soldicred, b.soldicred-b.soldideb) as balp_soldi, ; + IIF(m.llClient, b.soldfdeb - b.soldfcred, b.soldfcred-b.soldfdeb) as balp_soldf, ; + IIF(m.llClient, a.soldideb - a.soldicred - (b.soldideb - b.soldicred), a.soldicred-a.soldideb - (b.soldicred-b.soldideb)) as diferenta ; + FROM (m.lcCursor) a JOIN cBalPartTemp b ON a.id_part = b.id_part AND a.cont = b.cont ; + WHERE NVL(a.soldideb,0) <> NVL(b.soldideb,0) OR ; + NVL(a.soldicred,0) <> NVL(b.soldicred,0) OR ; + NVL(a.soldfdeb,0) <> NVL(b.soldfdeb,0) OR ; + NVL(a.soldfcred,0) <> NVL(b.soldfcred,0) ; + INTO CURSOR cPartDif + + + * EXTRAG RANDURI FARA cod partener saft - probabil sunt persoane juridice fara cod fiscal sau persoane fizice marcate ca persoane juridice fara cod fiscal + lcListaGol = '' + IF m.llClient + SELECT cCustomers + ELSE + SELECT cSuppliers + ENDIF + SCAN FOR !EMPTY(NVL(id_part,0)) AND EMPTY(NVL(saftpartid, '')) + SCATTER NAME loRec + lnRand = RECNO() + lcListaGol = lcListaGol + IIF(!EMPTY(m.lcListaGol ), ', ', '') + ALLTRIM(STR(m.lnRand)) + ENDSCAN + GO TOP + + IF RECCOUNT('cPartDif') > 0 + *llOk = ExportExcelXml("cverifica_solduri", "solduri" + IIF(m.llClient, '_clienti', '_furnizori'),'solduri',.T.) + goExport.export2xlsx("cverifica_solduri", "verificare_solduri" + IIF(m.llClient, '_clienti_', '_furnizori_') + ALLTRIM(STR(m.gnAn)) + PADL(m.gnLuna,2,'0') ) + + lcMesaj = 'SOLDURI DIFERITE FATA DE BALANTA PARTENERI!' + ; + IIF(EMPTY(m.lcListaGol), '', CHR(13) + CHR(10) + SPACE(10) + 'Randuri cu ' + IIF(m.llClient, 'clienti', 'furnizori') + ' fara cod fiscal: ' + ALLTRIM(LEFT(m.lcListaGol, 50))) + IF !m.llSilent + AMESSAGEBOX(lcMesaj,0+64, _screen.Caption) + ENDIF + + ELSE + *!* lcMesaj ='Nu exista parteneri cu solduri in declaratie diferite fata de soldurile din balanta de parteneri' + lcMesaj ='Nu sunt diferente fata de balanta parteneri' + ; + IIF(EMPTY(m.lcListaGol), '', CHR(13) + CHR(10) + SPACE(10) + 'Randuri cu ' + IIF(m.llClient, 'clienti', 'furnizori') + ' fara cod fiscal: ' + ALLTRIM(LEFT(m.lcListaGol, 50))) + IF !m.llSilent + AMESSAGEBOX(lcMesaj + CHR(13) + CHR(10) + m.lcText,0+64,_screen.Caption) + ENDIF + + ENDIF + ENDIF + USE IN (SELECT('cBalPartTemp')) + USE IN (SELECT('cPartDif')) + Else + llDontCloseCursor = .F. + llExperimental = .F. + llVerificarePlatitorTVA = .F. && verific VIES pentru toti partenerii + llMFIN = .T. && verific MFIN pentru toata lumea + llValidare = .T. && verific algoritmul codurilor fiscale + llAutoVerificare = .T. && lanseaza verificarea automata la activate-ul formularului de verificare + llServiciuWebANAF = .T. + + * verific is_activ = 1 (exista in JV/JC in perioada de raportare) + lcFilter = Filter(m.tcCursor) + lcWhere = [is_activ = 1 and (EMPTY(NVL(cod_tara,'')) OR cod_tara = 'RO') and ] + Iif(m.lnOptiune = 1, "recno() = " + Alltrim(Str(Recno())), Iif(!Empty(m.lcFilter), m.lcFilter, ".T.")) + Select Distinct id_part, cod_fiscal, denumire, Iif(Left(Upper(cod_fiscal), 2) = "RO", "RO", " ") As ATRIBUT_FISCAL, .T. As IsCIF, .F. As codvalid ; + From (m.tcCursor) ; + Where &lcWhere ; + Into Cursor crsCoduriFiscale ; + Order By denumire, cod_fiscal ; + Readwrite + + + Local lcXMLParteneri + lcXMLParteneri = "" + Cursortoxml('crsCoduriFiscale', "lcXMLParteneri", 1, 0, 0, "1") + + Do verificare_parteneri With m.lcXMLParteneri, m.llValidare, m.llMFIN, m.llVerificarePlatitorTVA, m.llAutoVerificare, m.llDontCloseCursor, m.llExperimental, m.llServiciuWebANAF + + USE IN (SELECT('crsCoduriFiscale')) + Endif && x = 1 + + RETURN lcMesaj + ENDPROC && do_verifica_cui + + && IAU SOLDURILE DIN BALANTA DE VERIFICARE PENTRU CONTURILE DE IMOBLIZARI SI AMORTIZARI + && SI LE COMPAR CU VALOAREA DE INVENTAR SI AMORTIZAREA TOTALA DIN IMOBILIZARI CORPORALE/NECORPORALE CONTABIL + Procedure do_verifica_imobilizari + LPARAMETERS tlSingleXLSX + * tlSingleXLSX: .T. daca se exporta un singur xlsx cu toate verificarile + + Private pnAn, pnLuna, pcCond, pnFiscala, pnIdTipImobilizare + Local lcSql, lnSucces, lcMesaj, lnAn, lnLuna, lnTipImobilizare, lcCondSucursala, lcBal, lcImob, lcDif + LOCAL llSucces, llExperimental, llImobObiecteInventar, lnNrLuni1 + Local lcCursor, lcFisier, lcListaTabele, lcPath, llDiferenta, llDiferenta1, llDiferenta2 + Local llDiferenta3, llDiferenta4, lnAn1, lnAn2, lnLuna1, lnLuna2, lnPerioada, lnSoldAmortizare + Local lnSoldInventar, lnSoldRamasBal01, lnSoldRamasBal12, lnSoldRamasImob01, lnSoldRamasImob12 + + lcMesaj = '' + llImobObiecteInventar = .F. && daca verific si contul 303 (obiecte de inventar) + + lnAn1 = This.oUnitate.an1 + lnLuna1 = This.oUnitate.luna1 + lnAn2 = This.oUnitate.an2 + lnLuna2 = This.oUnitate.luna2 + lnNrLuni1 = m.lnAn1*12+m.lnLuna1 + + * Verificare daca valoarea de inventar la inceputul perioadei + intrari - iesiri este diferita fata de valoare de inventar de la sfarsitul perioadei + SELECT id_mf, accountId, assetid, description, acquisitionandproductioncostsbegin, assetaddition, transfers, assetdisposal, acquisitionandproductioncostsend, ; + acquisitionandproductioncostsbegin + assetaddition - transfers - assetdisposal as valoareinv_final_calculat, ; + acquisitionandproductioncostsbegin + assetaddition - transfers - assetdisposal - acquisitionandproductioncostsend as diferenta ; + FROM cAssets ; + INTO CURSOR cAssetsInvDif + + * Solduri 2xx si 28x din balanta de verificare + lnTipImobilizare = Iif(Type('tnTip') <> 'N', 1, Iif(Inlist(tnTip, 1, 2), tnTip, 1)) + pcCond = [] + pnFiscala = 0 + llImobObiecteInventar = (TYPE('gnIMOB_OBI') = 'N' and m.gnIMOB_OBI = 1) + lcCondSucursala = Strtran(gcCondSucursala, "id_sucursala", "b.id_sucursala", 1, 1, 1) + + FOR lnPerioada = 1 TO 2 + IF m.lnPerioada = 1 + pnAn = m.lnAn1 + pnLuna = m.lnLuna1 + lcCursor = 'cConturiBalanta01' + + * soldurile la 1 ianuarie + Text To lcSql Textmerge Noshow +select 1 as tip, c.cont, c.cont_amortizare, + b.precdeb as sold + from imob_conturi c + left join <> b on c.cont = b.cont <> and b.an = ?pnAn and b.luna = ?pnLuna + where c.id_tip_imobilizare in (1,2) and substr(c.cont,1,3) <> '303' +union +select 2 as tip, c.cont, c.cont_amortizare, + b.preccred as sold + from imob_conturi c + left join <> b on c.cont_amortizare = b.cont <> and b.an = ?pnAn and b.luna = ?pnLuna + where c.id_tip_imobilizare in (1,2) and substr(c.cont,1,3) <> '303' +order by 1,2 + ENDTEXT + + llSucces = goExecutor.oExecuta(lcSql, m.lcCursor) + IF m.llSucces + SELECT (m.lcCursor) + CALCULATE SUM(sold) FOR tip = 1 TO lnSoldInventar + + * Contul 6811, 6812 ... apar de mai multe ori, pentru aceleasi conturi de imobilizari + * Iau soldul doar o data + SELECT distinct cont_amortizare, sold FROM (m.lcCursor) WHERE tip = 2 INTO CURSOR cSoldAmortizare + SELECT cSoldAmortizare + CALCULATE SUM(sold) TO lnSoldAmortizare + USE IN (SELECT('cSoldAmortizare')) + + lnSoldRamasBal01 = m.lnSoldInventar - m.lnSoldAmortizare + ENDIF + + Select AccountId as Cont, Sum(acquisitionandproductioncostsbegin) As valinv, SUM(AccumulatedDepreciationBegin) As amorttot, SUM(bookvaluebegin) as valramas ; + From cAssets ; + Group By Cont ; + Into Cursor cImobilizari01 + + SELECT cImobilizari01 + CALCULATE SUM(valramas) TO lnSoldRamasImob01 + + * Diferente intre valori inventar si amortizare totala + SELECT NVL(a.id_mf, b.id_mf) as id_mf, NVL(a.assetId, ALLTRIM(STR(b.id_tip_imobilizare)) + '_' + ALLTRIM(STR(b.nr_inventar))) as assetid, NVL(a.accountId, b.cont) as cont, NVL(a.description, b.denumire) as Denumire, ; + a.acquisitionandproductioncostsBegin as valoare_saft, ; + CAST(IIF(YEAR(NVL(b.data_pif, DATE()))*12+MONTH(NVL(b.data_pif, DATE())) >= m.lnNrLuni1, 0, c.valoare) as N(18,2)) as valoare_imobilizari, ; + NVL(a.acquisitionandproductioncostsBegin, 0) - NVL(c.valoare, 0) as DiferentaValoareInventar, ; + a.AccumulatedDepreciationBegin as amortizare_saft, ; + b.amort_prec as amortizare_imobilizari, ; + (NVL(a.AccumulatedDepreciationBegin, 0)) - NVL(b.amort_prec,0) as DiferentaAmortizare, ; + NVL(b.iesit_din_gest, 0) as iesit_din_gestiune ; + FROM cAssets a FULL JOIN cAssets01 b ON a.id_mf = b.id_mf ; + FULL JOIN cAssets00 c ON a.id_mf = c.id_mf ; + ORDER BY 2 ; + INTO CURSOR cVerValoriImob01 READWRITE + + UPDATE cVerValoriImob01 SET DiferentaValoareInventar = valoare_Saft - valoare_imobilizari + + ELSE + pnAn = m.lnAn2 + pnLuna = m.lnLuna2 + lcCursor = 'cConturiBalanta12' + + * soldurile la 31 decembrie + Text To lcSql Textmerge Noshow +select 1 as tip, c.cont, c.cont_amortizare, + b.solddeb as sold + from imob_conturi c + left join <> b on c.cont = b.cont <> and b.an = ?pnAn and b.luna = ?pnLuna + where c.id_tip_imobilizare in (1,2) and substr(c.cont,1,3) <> '303' +union +select 2 as tip, c.cont, c.cont_amortizare, + b.soldcred as sold + from imob_conturi c + left join <> b on c.cont_amortizare = b.cont <> and b.an = ?pnAn and b.luna = ?pnLuna + where c.id_tip_imobilizare in (1,2) and substr(c.cont,1,3) <> '303' +order by 1,2 + ENDTEXT + + llSucces = goExecutor.oExecuta(lcSql, m.lcCursor) + + IF m.llSucces + SELECT (m.lcCursor) + CALCULATE SUM(sold) FOR tip = 1 TO lnSoldInventar + + * Contul 6811, 6812 ... apar de mai multe ori, pentru aceleasi conturi de imobilizari + * Iau soldul doar o data + SELECT distinct cont_amortizare, sold FROM (m.lcCursor) WHERE tip = 2 INTO CURSOR cSoldAmortizare + SELECT cSoldAmortizare + CALCULATE SUM(sold) TO lnSoldAmortizare + USE IN (SELECT('cSoldAmortizare')) + + lnSoldRamasBal12 = m.lnSoldInventar - m.lnSoldAmortizare + ENDIF + + * Nu iau amortizarea totala pentru imobilizarile iesite din gestiune. In balanta soldul creditor 28x nu include amortizarea pentru imobilizarile iesite din gestiune + Select a.AccountId, a.acquisitionandproductioncostsend, a.AppreciationForPeriod, a.AppreciationForPeriodMinus, ; + CAST(IIF(NVL(b.iesit_din_gest,0) = 0, a.AccumulatedDepreciation, 0) as N(18,4)) as AccumulatedDepreciation, ; + CAST(IIF(NVL(b.iesit_din_gest,0) = 0, a.bookvalueend, 0) as N(18,4)) as bookvalueend ; + From cAssets a FULL JOIN cAssets12 b ON a.id_mf = b.id_mf ; + Into Cursor cImobilizari12Temp + + Select AccountId as Cont, Sum(NVL(acquisitionandproductioncostsend,0) + NVL(AppreciationForPeriod, 0) - NVL(AppreciationForPeriodMinus, 0)) As valinv, SUM(AccumulatedDepreciation) As amorttot, SUM(bookvalueend) as valramas ; + From cImobilizari12Temp ; + Group By Cont ; + Into Cursor cImobilizari12 + + USE IN (SELECT('cImobilizari12Temp')) + + + SELECT cImobilizari12 + CALCULATE SUM(valramas) TO lnSoldRamasImob12 + + * Diferente intre valori inventar si amortizare totala + SELECT NVL(a.id_mf, b.id_mf) as id_mf, NVL(a.assetId, ALLTRIM(STR(b.id_tip_imobilizare)) + '_' + ALLTRIM(STR(b.nr_inventar))) as assetid, NVL(a.accountId, b.cont) as cont, NVL(a.description, b.denumire) as Denumire, ; + NVL(a.acquisitionandproductioncostsEnd,0) + NVL(a.AppreciationForPeriod, 0) - NVL(a.AppreciationForPeriodMinus, 0) as valoare_saft, CAST(IIF(b.iesit_din_gest = 0, b.valoare, 0) as N(18,4)) as valoare_imobilizari, ; + NVL(a.acquisitionandproductioncostsEnd,0) + NVL(a.AppreciationForPeriod, 0) - NVL(a.AppreciationForPeriodMinus, 0) - NVL(IIF(b.iesit_din_gest = 0, b.valoare, 0), 0) as DiferentaValoareInventar, ; + a.AccumulatedDepreciation as amortizare_saft, b.amort_prec+b.rata as amortizare_imobilizari, NVL(a.AccumulatedDepreciation, 0) - (NVL(b.amort_prec,0) + NVL(b.rata,0)) as DiferentaAmortizare, ; + NVL(b.iesit_din_gest, 0) as iesit_din_gestiune ; + FROM cAssets a FULL JOIN cAssets12 b ON a.id_mf = b.id_mf ; + ORDER BY 2 ; + INTO CURSOR cVerValoriImob12 + + ENDIF + + If !m.llSucces + EXIT + ENDIF + ENDFOR + + If m.llSucces + && V.TIP: 1 = CONTURI IMOBILIZARI; 2 = CONTURI AMORTIZARI + Select v.tip, v.Cont, Nvl(v.sold, Cast(0 As N(18, 4))) As bal_valoare, Nvl(i.valinv, Cast(0 As N(18, 4))) As imob_valoare; + From cConturiBalanta01 v Full Join cImobilizari01 i On ALLTRIM(v.Cont) == ALLTRIM(i.Cont) ; + Where v.tip = 1 ; + Union ; + Select v.tip, v.cont_amortizare As Cont, Nvl(v.sold, Cast(0 As N(18, 4))) As bal_valoare, Sum(Nvl(i.amorttot, Cast(0 As N(18, 4)))) As imob_valoare ; + From cConturiBalanta01 v Full Join cImobilizari01 i On ALLTRIM(v.Cont) == ALLTRIM(i.Cont) ; + Where v.tip = 2 ; + Group By v.tip, v.cont_amortizare, v.sold ; + Order By 1, 2 ; + Into Cursor cVerificareImob01 + + && V.TIP: 1 = CONTURI IMOBILIZARI; 2 = CONTURI AMORTIZARI + Select v.tip, v.Cont, Nvl(v.sold, Cast(0 As N(18, 4))) As bal_valoare, Nvl(i.valinv, Cast(0 As N(18, 4))) As imob_valoare; + From cConturiBalanta12 v Full Join cImobilizari12 i On ALLTRIM(v.Cont) == ALLTRIM(i.Cont) ; + Where v.tip = 1 ; + Union ; + Select v.tip, v.cont_amortizare As Cont, Nvl(v.sold, Cast(0 As N(18, 4))) As bal_valoare, Sum(Nvl(i.amorttot, Cast(0 As N(18, 4)))) As imob_valoare ; + From cConturiBalanta12 v Full Join cImobilizari12 i On ALLTRIM(v.Cont) == ALLTRIM(i.Cont) ; + Where v.tip = 2 ; + Group By v.tip, v.cont_amortizare, v.sold ; + Order By 1, 2 ; + Into Cursor cVerificareImob12 + + + Use In (Select('cConturiBalanta01')) + Use In (Select('cConturiBalanta12')) + Use In (Select('cImobilizari01')) + Use In (Select('cImobilizari12')) + + + * Diferente valori inventar, amortizare totala global SAFT fata de Balanta + SELECT '1. Valoare inventar la inceputul perioadei' as ctip, cont, imob_valoare as saft, bal_valoare as balanta, imob_valoare - bal_valoare as diferenta ; + FROM cVerificareImob01 ; + WHERE tip = 1 AND (imob_valoare <> 0 OR bal_valoare <> 0) ; + UNION ; + SELECT '2. Amortizare totala la inceputul perioadei' as tip, cont, imob_valoare as saft, bal_valoare as balanta, imob_valoare - bal_valoare as diferenta ; + FROM cVerificareImob01 ; + WHERE tip = 2 AND (imob_valoare <> 0 OR bal_valoare <> 0) ; + UNION ; + SELECT '3. Valoare inventar la sfarsitul perioadei' as tip, cont, imob_valoare as saft, bal_valoare as balanta, imob_valoare - bal_valoare as diferenta ; + FROM cVerificareImob12 ; + WHERE tip = 1 AND (imob_valoare <> 0 OR bal_valoare <> 0) ; + UNION ; + SELECT '4. Amortizare totala la sfarsitul perioadei' as tip, cont, imob_valoare as saft, bal_valoare as balanta, imob_valoare - bal_valoare as diferenta ; + FROM cVerificareImob12 ; + WHERE tip = 2 AND (imob_valoare <> 0 OR bal_valoare <> 0) ; + UNION ; + SELECT '5. Valoare ramasa de amortizat la inceputul perioadei' as tip, SPACE(20) as cont, m.lnSoldRamasImob01 as saft, m.lnSoldRamasBal01 as balanta, m.lnSoldRamasImob01 - m.lnSoldRamasBal01 as diferenta ; + FROM dual ; + UNION ; + SELECT '6. Valoare ramasa de amortizat la sfarsitul perioadei' as tip, SPACE(20) as cont, m.lnSoldRamasImob12 as saft, m.lnSoldRamasBal12 as balanta, m.lnSoldRamasImob12 - m.lnSoldRamasBal12 as diferenta ; + FROM dual ; + ORDER BY 1, 2 ; + INTO CURSOR cAssetsDif + + Use In (Select('cVerificareImob01')) + Use In (Select('cVerificareImob12')) + + * Diferente valoare inventar, amortizare totala pe fiecare imobilizare SAFT fata de ROAIMOB + SELECT '1. Valoare inventar la inceputul perioadei' as ctip, id_mf, AssetId, cont, Denumire, ; + valoare_saft as saft, valoare_imobilizari as imobilizari, DiferentaValoareInventar as diferenta, iesit_din_gestiune ; + FROM cVerValoriImob01 ; + UNION ; + select '2. Amortizare totala la inceputul perioadei' as ctip, id_mf, AssetId, cont, Denumire, ; + amortizare_saft as saft, amortizare_imobilizari as imobilizari, DiferentaAmortizare as diferenta, iesit_din_gestiune ; + FROM cVerValoriImob01 ; + UNION ; + SELECT '3. Valoare inventar la sfarsitul perioadei' as ctip, id_mf, AssetId, cont, Denumire, ; + valoare_saft as saft, valoare_imobilizari as imobilizari, DiferentaValoareInventar as diferenta, iesit_din_gestiune ; + FROM cVerValoriImob12 ; + UNION ; + select '4. Amortizare totala la sfarsitul perioadei' as ctip, id_mf, AssetId, cont, Denumire, ; + amortizare_saft as saft, amortizare_imobilizari as imobilizari, DiferentaAmortizare as diferenta, iesit_din_gestiune ; + FROM cVerValoriImob12 ; + ORDER BY 1, 3 ; + INTO CURSOR cValoriImobDif + + USE IN (SELECT('cVerValoriImob01')) + USE IN (SELECT('cVerValoriImob12')) + + * Verificare AssetTransactions + SELECT id_mf, denumire, ; + SUM(AcquisitionAndProductionCostsOnTransaction) as AcquisitionAndProductionCosts, ; + CAST(SUM(IIF(ALLTRIM(AssetTransactionType) = '30',BookValueOnTransaction, 0)) as N(18,4)) as amortizare, ; + CAST(SUM(IIF(ALLTRIM(AssetTransactionType) = '10',BookValueOnTransaction, 0)) as N(18,4)) as intrare, ; + CAST(SUM(IIF(INLIST(ALLTRIM(AssetTransactionType), '20', '40', '50'), BookValueOnTransaction, 0)) as N(18,4)) as iesire, ; + CAST(SUM(IIF(ALLTRIM(AssetTransactionType) = '60',BookValueOnTransaction, 0)) as N(18,4)) as reevaluarenegativa, ; + CAST(SUM(IIF(ALLTRIM(AssetTransactionType) = '70',BookValueOnTransaction, 0)) as N(18,4)) as reevaluarepozitiva, ; + CAST(SUM(IIF(ALLTRIM(AssetTransactionType) = '130',BookValueOnTransaction, 0)) as N(18,4)) as altele ; + FROM cAssetTransactions ; + GROUP BY id_mf, denumire ; + INTO CURSOR cAssetTransactionsCum + + SELECT NVL(a.id_mf, b.id_mf) as id_mf, a.AssetId, NVL(a.description, b.denumire) as denumire, a.accountid as cont,; + a.AssetAddition as aAssetAddition, b.intrare + b.altele as bAssetAddition, ; + CAST(IIF(a.AssetDisposal <> 0, a.AssetDisposal - a.AccumulatedDepreciation, 0.00) as N(18,4)) as aAssetDisposal, b.iesire as bAssetDisposal, ; + a.DepreciationForPeriod as aDepreciationForPeriod, b.amortizare as bDepreciationForPeriod, ; + a.AppreciationForPeriod as aAppreciationForPeriod, b.reevaluarepozitiva as bAppreciationForPeriod ; + FROM cAssets a JOIN cAssetTransactionsCum b ON a.id_mf = b.id_mf ; + INTO CURSOR cAssetTransactionsDifTemp + + USE IN (SELECT('cAssetTransactionsCum')) + + SELECT id_mf, AssetId, denumire, cont, ; + '1. Intrari incl. majorari' as tip, aAssetAddition as saft_assets, bAssetAddition as saft_transactions, aAssetAddition - bAssetAddition as diferenta ; + FROM cAssetTransactionsDifTemp ; + UNION ; + SELECT id_mf, AssetId, denumire, cont, ; + '2. Iesiri (valoare neta)' as tip, aAssetDisposal as saft_assets, bAssetDisposal as saft_transactions, aAssetDisposal - bAssetDisposal as diferenta ; + FROM cAssetTransactionsDifTemp ; + UNION ; + SELECT id_mf, AssetId, denumire, cont, ; + '3. Depreciere/Amortizare' as tip, aDepreciationForPeriod as saft_assets, bDepreciationForPeriod as saft_transactions, aDepreciationForPeriod - bDepreciationForPeriod as diferenta ; + FROM cAssetTransactionsDifTemp ; + UNION ; + SELECT id_mf, AssetId, denumire, cont, ; + '4. Apreciere/Reevaluare' as tip, aAppreciationForPeriod as saft_assets, bAppreciationForPeriod as saft_transactions, aAppreciationForPeriod - bAppreciationForPeriod as diferenta ; + FROM cAssetTransactionsDifTemp ; + ORDER BY 4, 2 ; + INTO CURSOR cAssetTransactionsDif + + USE IN (SELECT('cAssetTransactionsDifTemp')) + llDiferenta = .F. + llDiferenta1 = .F. + llDiferenta2 = .F. + llDiferenta3 = .F. + llDiferenta4 = .F. + SELECT cAssetsInvDif + LOCATE FOR diferenta <> 0 + llDiferenta = FOUND() + llDiferenta1 = FOUND() + IF !m.llDiferenta + SELECT cAssetsDif + LOCATE FOR diferenta <> 0 + llDiferenta = FOUND() + llDiferenta2 = FOUND() + ENDIF + IF !m.llDiferenta + SELECT cValoriImobDif + LOCATE FOR diferenta <> 0 + llDiferenta = FOUND() + llDiferenta3 = FOUND() + ENDIF + IF !m.llDiferenta + SELECT cAssetTransactionsDif + LOCATE FOR diferenta <> 0 + llDiferenta = FOUND() + llDiferenta4 = FOUND() + ENDIF + + IF m.tlSingleXLSX + lcListaTabele = "cAssetsInvDif,cAssetsDif,cValoriImobDif,cAssetTransactionsDif" + goExport.exportMultiTable2Xlsx(m.lcListaTabele, "verificare_assets_" + gofirma.codfiscalfro + '_' + ALLTRIM(STR(m.gnAn))) + ELSE + SET STEP ON + lcFisier = "verificare_assets1_saft_" + gofirma.codfiscalfro + '_' + ALLTRIM(STR(m.gnAn)) + '.xlsx' + lcFisier = Putfile('Nume fisier:', m.lcFisier, 'xlsx') + lcPath = ADDBS(JUSTPATH(m.lcFisier)) + IF !EMPTY(m.lcFisier) + goExport.export2xlsx("cAssetsInvDif", m.lcFisier) + + lcFisier = m.lcPath + "verificare_assets2_saft_" + gofirma.codfiscalfro + '_' + ALLTRIM(STR(m.gnAn)) + '.xlsx' + goExport.export2xlsx("cAssetsDif", m.lcFisier) + + lcFisier = m.lcPath + "verificare_assets3_saft_" + gofirma.codfiscalfro + '_' + ALLTRIM(STR(m.gnAn)) + '.xlsx' + goExport.export2xlsx("cValoriImobDif", m.lcFisier) + + lcFisier = m.lcPath + "verificare_assets4_saft_" + gofirma.codfiscalfro + '_' + ALLTRIM(STR(m.gnAn)) + '.xlsx' + goExport.export2xlsx("cAssetTransactionsDif", m.lcFisier) + + open_default_app(m.lcPath) + ENDIF + ENDIF + + AMESSAGEBOX('A. ' + IIF(m.llDiferenta1, '', 'NU EXISTA ') + 'Diferente intre valoare inventar finala SAFT si valoare inventar initiala SAFT + intrari - iesiri' + CHR(13) + CHR(10) + CHR(13) + CHR(10) + ; + 'B. ' + IIF(m.llDiferenta2, '', 'NU EXISTA ') + 'Diferente intre valorile Imobilizari SAFT si Balanta de verificare 2xx/28x' + CHR(13) + CHR(10) + ; + ' 1. Valoare inventar la inceputul perioadei' + CHR(13) + CHR(10) + ; + ' 2. Amortizare totala la inceputul perioadei' + CHR(13) + CHR(10) + ; + ' 3. Valoare inventar la sfarsitul perioadei' + CHR(13) + CHR(10) + ; + ' 4. Amortizare totala la sfarsitul perioadei' + CHR(13) + CHR(10) + ; + ' 5. Valoare ramasa de amortizat la inceputul perioadei' + CHR(13) + CHR(10) + ; + ' 6. Valoare ramasa de amortizat la sfarsitul perioadei' + CHR(13) + CHR(10) + CHR(13) + CHR(10) + ; + 'C. ' + IIF(m.llDiferenta3, '', 'NU EXISTA ') + 'Diferente intre valoare inventar, amortizare SAFT si Registrul de imobilizari' + CHR(13) + CHR(10) + CHR(13) + CHR(10) + ; + 'D. ' + IIF(m.llDiferenta4, '', 'NU EXISTA ') + 'Diferente intre Imobilizari SAFT si Tranzactii imobilizari SAFT' + CHR(13) + CHR(10) + ; + ' 1. Intrari' + CHR(13) + CHR(10) + ; + ' 2. Iesiri (valoare neta)' + CHR(13) + CHR(10) + ; + ' 3. Depreciere/Amortizare' + CHR(13) + CHR(10) + ; + ' 4. Apreciere/Reevaluare', 0+64, _screen.Caption) + + ENDIF && llSucces + + USE IN (SELECT('cAssetsDif')) + USE IN (SELECT('cAssetsInvDif')) + USE IN (SELECT('cValoriImobDif')) + USE IN (SELECT('cAssetTransactionsDif')) + Endproc && do_verifica_imobilizari + + + ********************************* + * verific soldurile din GeneralLedgerAccounts cu soldurile din Balanta de Verificare, Registru jurnal, Clienti si Furnizori + ********************************* + PROCEDURE do_verifica_solduri + LPARAMETERS tlLunar + + LOCAL lcMesaj, lcMesajTotal, llSilent + llSilent = .T. && apelare verificari silentios + + lcMesajTotal = '' + lcMesaj = This.do_verifica_balanta(m.llSilent) + lcMesajTotal = m.lcMesajTotal + ' 1. ' + m.lcMesaj + CHR(13) + CHR(10) + CHR(13) + CHR(10) + + IF m.tlLunar + * SAFT lunar/trimestrial se verifica solduri balanta, clienti, furnizori pe perioada + * SAFT anual/cerere - se verifica doar solduri balanta pe perioada + lcMesaj = This.do_verifica_jurnal(m.llSilent) + lcMesajTotal = m.lcMesajTotal + ' 2. '+ m.lcMesaj + CHR(13) + CHR(10) + CHR(13) + CHR(10) + + lcMesaj = This.do_verifica_cui('ccustomers', m.llSilent) && verificare clienti + lcMesajTotal = m.lcMesajTotal + ' 3. Clienti: '+ m.lcMesaj + CHR(13) + CHR(10) + CHR(13) + CHR(10) + + lcMesaj = This.do_verifica_cui('csuppliers', m.llSilent) && verificare furnizori + lcMesajTotal = m.lcMesajTotal + ' 4. Furnizori: '+ m.lcMesaj + CHR(13) + CHR(10) + CHR(13) + CHR(10) + ENDIF && m.tlLunar + + AMESSAGEBOX(lcMesajTotal) + + ENDPROC && do_verifica_solduri + + + ********************************* + * verific soldurile din GeneralLedgerAccounts cu soldurile din Balanta de Verificare + ********************************* + PROCEDURE do_verifica_balanta + LPARAMETERS tlSilent + + * tlSilent (optional) : .T. = nu arata mesaje cu/fara diferente ci intoarce mesajul la procedura apelanta + + + Local lcSelect, lcSql, llOk, llSucces, lnAn1, lnAn2, lnLuna1, lnLuna2, lnDif, lcDif, lnTip, lcText, llNuContAlternativ + LOCAL llSilent, lcMesaj + + lcMesaj = '' + + llSilent = m.tlSilent + lcSelect = SELECT() + + lnAn1 = This.oUnitate.an1 + lnLuna1 = This.oUnitate.luna1 + lnAn2 = This.oUnitate.an2 + lnLuna2 = This.oUnitate.luna2 + + * Creez cursor balanta de verificare + llNuContAlternativ = .T. + Do make_tbalanta With .F., m.lnLuna1, m.lnAn1, m.lnLuna2, m.lnAn2, "bal", m.llNuContAlternativ + + && BNIVEL IN (4,6) : TOTALURI PE CONTURI SINTETICE - 4 = SUCURSALA/FIRMA INDEPENDENTA; 6 = CENTRALIZATA + SELECT cont, SUM(precdeb) as precdeb, ; + SUM(preccred) as preccred,; + SUM(solddeb) as solddeb, ; + SUM(soldcred) as soldcred ; + FROM tBalanta ; + WHERE (bnivel = 6 AND m.glEmama) OR (bnivel = 4 AND !m.glEmama) ; + GROUP BY cont ; + INTO CURSOR cBalantaTemp1 + + + SELECT cont, ; + SUM(iif(precdeb>=preccred, abs(precdeb-preccred), 0.00)) as soldideb,; + SUM(iif(precdeb=soldcred, abs(solddeb-soldcred), 0.00)) as soldfdeb,; + SUM(iif(solddeb 0 OR soldicredd <> 0 OR soldfdebd <> 0 OR soldfcredd <> 0 ; + ORDER BY cont ; + INTO CURSOR cBalantaDiferente + + + + IF RECCOUNT('cBalantaDiferente') = 0 + lcMesaj = 'Balanta de verificare: Nu sunt diferente' + IF !m.llSilent + AMESSAGEBOX(m.lcMesaj, 0+64, _screen.Caption) + ENDIF + ELSE + lcText = '' + Select cBalantaDiferente + SCAN + lcCont = SPACE(20) + 'Cont: ' + PADR(ALLTRIM(NVL(cont,'')), 4, ' ') + FOR lnTip = 1 TO 4 + DO CASE + CASE lnTip = 1 + lnDif = soldidebd + lcDif = 'sold initial debit' + CASE lnTip = 2 + lnDif = soldicredd + lcDif = 'sold initial credit' + CASE lnTip = 3 + lnDif = soldfdebd + lcDif = 'sold final debit' + CASE lnTip = 4 + lnDif = soldfcredd + lcDif = 'sold final credit' + ENDCASE + IF m.lnDif = 0 + LOOP + ENDIF + + lcText = m.lcText + m.lcCont + ' diferenta ' + m.lcDif + ' ' + ALLTRIM(TRANSFORM(m.lnDif,'999 999 999 999.99')) + CHR(13) + CHR(10) + ENDFOR + ENDSCAN && cBalantaDiferente + + lcMesaj = 'Balanta de verificare: EXISTA DIFERENTE!' + CHR(13) + CHR(10) + m.lcText + + IF !m.llSilent + AMESSAGEBOX(lcMesaj,0+64,_screen.Caption) + ENDIF + + ENDIF && reccount + + USE IN (SELECT('tBalanta')) + USE IN (SELECT('cBalantaTemp1')) + USE IN (SELECT('cBalantaTemp')) + USE IN (SELECT('cBalantaDiferente1')) + USE IN (SELECT('cBalantaDiferente')) + + SELECT (m.lcSelect) + + RETURN lcMesaj + ENDPROC && do_verifica_balanta + + ********************************* + * verific rulajele din GeneralLedgerEntries cu rulajele din Registrul Jurnal + ********************************* + PROCEDURE do_verifica_jurnal + + LPARAMETERS tlSilent + + Local lcSelect, lcSql, llOk, llSucces, lnAn1, lnAn2, lnLuna1, lnLuna2, lnDif, lcDif, lnTip, lcText, llNuContAlternativ + + LOCAL llSilent, lcMesaj + + lcMesaj = '' + + llSilent = m.tlSilent + + lcSelect = SELECT() + + lnAn1 = This.oUnitate.an1 + lnLuna1 = This.oUnitate.luna1 + lnAn2 = This.oUnitate.an2 + lnLuna2 = This.oUnitate.luna2 + + SELECT cont, tipdc, SUM(suma) as suma, SUM(suma_val) as suma_val ; + FROM cGeneralLedgerEntries ; + GROUP BY cont, tipdc ; + INTO CURSOR cGeneralLedgerEntriesTemp + + TEXT TO lcSql TEXTMERGE NOSHOW +select scd as cont, 'D' as tipdc, SUM(suma) as suma, SUM(suma_val) as suma_val + FROM act + WHERE sters = 0 and an * 12 + luna between <> and <> + and TO_NUMBER(SUBSTR(scd, 1, 1)) <= 7 + Group by scd +union +select scc as cont, 'C' as tipdc, SUM(suma) as suma, SUM(suma_val) as suma_val + FROM act + WHERE sters = 0 and an * 12 + luna between <> and <> + and TO_NUMBER(SUBSTR(scc, 1, 1)) <= 7 + Group by scc + ENDTEXT + + llSucces = goExecutor.oExecuta(m.lcSql, 'cActTemp') + + If m.llSucces + SELECT NVL(a1.cont, a2.cont) as cont, NVL(a1.tipdc, a2.tipdc) as tipdc, ; + NVL(a1.suma, 0.00) - NVL(a2.suma, 0.00) as sumad,; + NVL(a1.suma_val, 0.00) - NVL(a2.suma_val, 0.00) as suma_vald ; + FROM cGeneralLedgerEntriesTemp a1 FULL JOIN cActTemp a2 ON ALLTRIM(NVL(a1.cont,'')) == ALLTRIM(NVL(a2.cont,'')) AND a1.tipdc = a2.tipdc ; + ORDER BY 1, 2 ; + INTO CURSOR cActDiferente1 + + SELECT * FROM cActDiferente1 WHERE sumad <> 0 OR suma_vald <> 0 INTO CURSOR cActDiferente + + IF RECCOUNT('cActDiferente') = 0 + lcMesaj = 'Registru jurnal: Nu sunt diferente' + IF !m.llSilent + AMESSAGEBOX(0+64,_screen.Caption) + ENDIF + + ELSE + lcText = '' + Select cActDiferente + SCAN + lcCont = 'Cont: ' + PADR(ALLTRIM(NVL(cont,'')), 4, ' ') + lcTipDC = ALLTRIM(tipdc) + FOR lnTip = 1 TO 2 + DO CASE + CASE lnTip = 1 + lnDif = sumad + lcDif = 'lei' + CASE lnTip = 2 + lnDif = suma_vald + lcDif = 'valuta' + ENDCASE + IF m.lnDif = 0 + LOOP + ENDIF + + lcText = m.lcText + m.lcCont + ' ' + m.lcTipDC + ' diferenta ' + m.lcDif + ' ' + TRANSFORM(m.lnDif,'999 999 999 999.99') + CHR(13) + CHR(10) + ENDFOR + ENDSCAN && cActDiferente + + lcMesaj = 'Registrul Jurnal: EXISTA DIFERENTE!' + CHR(13) + CHR(10) + m.lcText + IF !m.llSilent + AMESSAGEBOX(lcMesaj,0+64,_screen.Caption) + ENDIF + + ENDIF && reccount + ENDIF && llSucces + + USE IN (SELECT('cGeneralLedgerEntriesTemp')) + USE IN (SELECT('cActTemp')) + USE IN (SELECT('cActDiferente1')) + USE IN (SELECT('cActDiferente')) + + SELECT (m.lcSelect) + + RETURN lcMesaj + ENDPROC && do_verifica_jurnal + + ********************************* + * verific suma valorilor de pe articolele din facturi cu valoarea facturii din Jurnalele TVA + * verific daca exista articole facturi fara taxcode + ********************************* + PROCEDURE do_verifica_facturi + Lparameters tcTip + * tcTip: customers/suppliers + + Local lcSelect, lcText, lcJurnalTVA, lcExceptie + Local lcCursor, lcCursorDup, lcCursorLines, lcSql, llClient, llSucces, lnAn1, lnAn2, lnLuna1 + Local lnLuna2, lnSuma, loFact, loRec + + lcText = '' + lcSelect = Select() + + lnAn1 = This.oUnitate.an1 + lnLuna1 = This.oUnitate.luna1 + lnAn2 = This.oUnitate.an2 + lnLuna2 = This.oUnitate.luna2 + + llClient = (Upper(Alltrim(m.tcTip)) = 'CUSTOMERS') + lcCursor = Iif(m.llClient, 'cSalesInvoices', 'cPurchaseInvoices') + lcCursorDup = Iif(m.llClient, 'cSalesInvoicesDup', 'cPurchaseInvoicesDup') + lcJurnalTVA = Iif(m.llClient, 'jv2007', 'jc2007') + lcExceptie = Iif(m.llClient, 'a.scc = cont AND a.scd = cont_c', 'a.scd = cont AND a.scc = cont_c') + lcCursorLines = Iif(m.llClient, 'cSalesInvoicesLines', 'cPurchaseInvoicesLines') + + CREATE CURSOR cverifica_facturi_saft (tip N(1), an N(4), luna N(2), nract N(20) null, dataact D null, denumire C(70) null, ; + valoare_totala_factura N(20,2) null, valoare_totala_jurnal_tva N(20,2) null, diferenta_valoare_totala N(20,2) null, ; + taxcode N(6) null, valoare_taxcode_factura N(20,2) null, valoare_taxcode_regjurnal N(20,2) NULL, diferenta_valoare_taxcode N(20,2) null) + + * Diferente valoare factura - valoare jurnal TVA > 0.5 + * taxa = valoarea taxei (cantitate * pret * proc_tva/100) + * Tratez facturile de achizitie de import , nu adun taxa, pentru ca taxa este platita la Biroul Vamal si apare separat de factura, pe DVI (taxcode = 301201, 301202, 301203) + SELECT a.an, a.luna, a.id_fact, a.nract, a.dataact, a.id_part, a.denumire, a.totctva, ; + SUM(b.cantitate * b.pret + IIF(!INLIST(b.taxcode, 301201, 301202, 301203), b.taxa, 0)) as valctva, SUM(IIF(EMPTY(NVL(b.taxcode,0)), 1, 0)) as ntaxcode ; + FROM (m.lcCursor) a LEFT JOIN (m.lcCursorLines) b ON a.id_fact = b.id_fact ; + GROUP BY a.an, a.luna, a.id_fact, a.nract, a.dataact, a.id_part, a.denumire, a.totctva ; + INTO CURSOR cFacturiDiferente1 + + SELECT an, luna, id_fact, nract, dataact, id_part, denumire, totctva, valctva, totctva-valctva as diferenta, ntaxcode ; + FROM cFacturiDiferente1 ; + WHERE ABS(totctva - valctva) > 0.5 ; + ORDER BY an, luna, dataact, nract, denumire ; + INTO CURSOR cFacturiDiferente + + INSERT INTO cverifica_facturi_saft(tip, an, luna, nract, dataact, denumire, valoare_totala_factura, valoare_totala_jurnal_tva, diferenta_valoare_totala) ; + SELECT 1 as tip, an, luna, nract, dataact, denumire, NVL(valctva,0), NVL(totctva,0), NVL(diferenta,0) ; + FROM cFacturiDiferente ; + order by an, luna, dataact, nract + + + * Diferente valori pe fiecare taxcode facturi.Taxcode = registrul jurnal.taxcode + SELECT a.an, a.luna, a.id_fact, a.nract, a.dataact, a.id_part, a.denumire, b.taxcode, ; + SUM(b.cantitate * b.pret) as valoare, ; + SUM(b.cantitate * b.pretv) as valoarev ; + FROM (m.lcCursor) a LEFT JOIN (m.lcCursorLines) b ON a.id_fact = b.id_fact ; + GROUP BY a.an, a.luna, a.id_fact, a.nract, a.dataact, a.id_part, a.denumire, b.taxcode ; + order by a.an, a.luna, a.dataact, a.nract ; + INTO CURSOR cFacturiTaxCode1 + + + * suma din Registrul Jurnal fara TVA + * tratez regularizare facturi nesosite/neintocmite 408=401, 4111=418 + TEXT TO lcSql TEXTMERGE NOSHOW +select id_fact, + taxcode, + sum(decode(exceptie, 1, -1, 1) * suma) as suma, + sum(decode(exceptie, 1, -1, 1) * suma_val) as suma_val + from (select a.id_fact, + (CASE when (a.scd = '408' AND a.scc like '4%') or (a.scd like '4%' AND a.scc = '418') then ROUND(a.suma * 100 / (100 + st.procent_taxa), 2) else a.suma end) as suma, + (CASE when (a.scd = '408' AND a.scc like '4%') or (a.scd like '4%' AND a.scc = '418') then ROUND(a.suma_val * 100 / (100 + st.procent_taxa), 2) else a.suma_val end) as suma_val, + a.taxcode, + (SELECT DISTINCT 1 AS EXCEPTIE + FROM EXCEPTII_IREG + WHERE INVERS = 1 + and <>) as exceptie + from act a + join <> j + on a.an = j.an + and a.luna = j.luna + and a.id_fact = j.id_fact + join nom_fdoc f + on j.id_fdoc = f.id_fdoc + left join vsaft_taxtable st on a.taxcode = st.taxcode + where a.an * 12 + a.luna between <> and <> + and a.sters = 0 + AND substr(a.scd, 1, 3) <> '442' and substr(a.scc, 1, 3) <> '442' + and f.tip_doc in ('F', 'M'<>)) + group by id_fact, taxcode + ENDTEXT + + llSucces = goExecutor.oExecuta(m.lcSql, 'cFacturiTaxCode2T') + IF m.llSucces + + * Unific facturile cu acelasi numar, bagate din bucati - au id_fact diferite(contabilitate, gestiune, facturare) + SELECT (m.lcCursorDup) + SCAN + SCATTER NAME loFact + UPDATE cFacturiTaxCode2T SET id_fact = loFact.id_fact2 WHERE id_fact = loFact.id_fact + ENDSCAN + + SELECT id_fact, taxcode, SUM(suma) as suma, SUM(suma_val) as suma_val FROM cFacturiTaxCode2T GROUP BY id_fact, taxcode INTO CURSOR cFacturiTaxCode2 + USE IN (SELECT('cFacturiTaxCode2T')) + + SELECT cFacturiTaxCode1 + SCAN + SCATTER NAME loRec + SELECT cFacturiTaxCode2 + LOCATE FOR id_fact = loRec.id_fact AND NVL(taxcode,0) = NVL(loRec.taxcode,0) + IF FOUND() + lnSuma = suma + ELSE + lnSuma = 0 + ENDIF + IF ABS(NVL(lorec.valoare,0) - NVL(m.lnSuma,0)) > 0.5 + INSERT INTO cverifica_facturi_saft(tip, an, luna, nract, dataact, denumire, taxcode, valoare_taxcode_factura, valoare_taxcode_regjurnal, diferenta_valoare_taxcode) ; + VALUES (2, loRec.an, loRec.luna, loRec.nract, loRec.dataact, loRec.denumire, loRec.taxcode, NVL(loRec.valoare, 0), NVL(m.lnSuma, 0), NVL(loRec.valoare, 0) - NVL(m.lnSuma, 0)) + ENDIF + ENDSCAN + ENDIF && llSucces + + * Facturi cu articole cu TVA, dar fara cod de taxa + SELECT distinct 3 as tip, a.an, a.luna, a.id_fact, a.nract, a.dataact, a.id_part, a.denumire ; + FROM (m.lcCursor) a LEFT JOIN (m.lcCursorLines) b ON a.id_fact = b.id_fact ; + WHERE EMPTY(NVL(b.taxcode,0)) ; + order by a.an, a.luna, a.dataact, a.nract ; + INTO CURSOR cFacturiTaxCode3 + + SELECT cverifica_facturi_saft + APPEND FROM DBF('cFacturiTaxCode3') + + IF RECCOUNT('cverifica_facturi_saft') > 0 + + * llOk = ExportExcelXml("cverifica_facturi_saft", "facturi_saft" + IIF(m.llClient, '_vanzare', '_achizitie'),'facturi',.T.) + goExport.export2xlsx("cverifica_facturi_saft", "verificare_facturi_saft" + IIF(m.llClient, '_vanzare_', '_achizitie_') + gofirma.codfiscalfro + '_' + ALLTRIM(STR(m.gnAn)) + PADL(m.gnLuna,2,'0')) + AMESSAGEBOX('Tip = 1 : Facturi cu valoare diferita fata de Jurnalul de TVA (> 0.5)' + CHR(13) + CHR(10) + ; + 'Tip = 2 : Facturi cu valoare pe coduri de taxa diferita fata de Registrul Jurnal (> 0.5)'+ CHR(13) + CHR(10) + ; + 'Tip = 3 : Facturi cu articole cu TVA, dar fara cod de taxa',0+64, _screen.Caption) + ELSE + AMESSAGEBOX('Nu sunt diferente fata de Jurnalul TVA si fata de Registrul Jurnal' + CHR(13) + CHR(10) + CHR(13) + CHR(10) + ; + 'Tip = 1 : Facturi cu valoare diferita fata de Jurnalul de TVA (> 0.5)' + CHR(13) + CHR(10) + ; + 'Tip = 2 : Facturi cu valoare pe coduri de taxa diferita fata de Registrul Jurnal (> 0.5)'+ CHR(13) + CHR(10) + ; + 'Tip = 3 : Facturi cu articole cu TVA, dar fara cod de taxa',0+64,_screen.Caption) + ENDIF + + USE IN (SELECT('cFacturiDiferente1')) + USE IN (SELECT('cFacturiDiferente')) + USE IN (SELECT('cFacturiTaxCode1')) + USE IN (SELECT('cFacturiTaxCode2')) + USE IN (SELECT('cFacturiTaxCode3')) + USE IN (SELECT('cverifica_facturi_saft')) + + SELECT (m.lcSelect) + ENDPROC && do_verifica_facturi + + ********************************* + * verific soldurile din PhysicalStock cu soldurile din STOC + ********************************* + PROCEDURE do_verifica_stocuri + Local lcSelect, lcSql, llOk, llSucces, lnAn1, lnAn2, lnLuna1, lnLuna2, lnDif, lcDif, lnTip, lcText + + lcSelect = SELECT() + + lnAn1 = This.oUnitate.an1 + lnLuna1 = This.oUnitate.luna1 + lnAn2 = This.oUnitate.an2 + lnLuna2 = This.oUnitate.luna2 + + * Creez cursor balanta de verificare + TEXT TO lcSql TEXTMERGE NOSHOW +select s.id_gestiune, + s.cgest, + s.id_articol, + a.denumire, + s.pret, + s.cont, + s.id_part_rez as id_part, + p.denumire as partener, + sum(s.canti) as canti, + sum(s.cantf) as cantf, + round(s.pret * sum(s.canti), 6) as vali, + round(s.pret * sum(s.cantf), 6) as valf + from (select s.id_gestiune, g.cgest, s.id_articol, decode(g.nr_pag, 6, s.pretv+s.tvav, s.pret) as pret, s.cont, s.id_part_rez, s.cants as canti, 0 as cantf + from stoc s join nom_gestiuni g on s.id_gestiune = g.id_gestiune + where s.an = <> and s.luna = <> + and not (SUBSTR(s.cont,1,3) = '303' or SUBSTR(s.cont,1,2) in ('32', '39')) + union all + select s.id_gestiune, g.cgest, s.id_articol, decode(g.nr_pag, 6, s.pretv+s.tvav, s.pret) as pret, s.cont, s.id_part_rez, 0 as canti, s.cants + s.cant - s.cante as cantf + from stoc s join nom_gestiuni g on s.id_gestiune = g.id_gestiune + where s.an = <> and s.luna = <> + and not (SUBSTR(s.cont,1,3) = '303' or SUBSTR(s.cont,1,2) in ('32', '39'))) s + left join nom_parteneri p on s.id_part_rez = p.id_part + left join nom_articole a on s.id_articol = a.id_articol + group by s.id_gestiune, s.cgest, s.id_articol, a.denumire, s.pret, s.cont, s.id_part_rez, p.denumire + ENDTEXT + llSucces = goExecutor.oExecuta(m.lcSql, 'cStocuriTemp') + + SELECT NVL(s1.cgest, s2.cgest) as cgest, ; + NVL(s1.denumire, s2.denumire) as denumire, ; + NVL(s1.cont, s2.cont) as cont, ; + NVL(s1.partener, s2.partener) as partener, ; + NVL(s1.pret, s2.pret) as pret, ; + NVL(s1.vali, 0.00) as vali1, ; + NVL(s2.vali, 0.00) as vali2, ; + NVL(s1.valf, 0.00) as valf1, ; + NVL(s2.valf, 0.00) as valf2, ; + NVL(s1.vali, 0.00) - NVL(s2.vali, 0.00) as valid,; + NVL(s1.valf, 0.00) - NVL(s2.valf, 0.00) as valfd ; + FROM cPhysicalStock s1 FULL JOIN cStocuriTemp s2 ON s1.id_gestiune = s2.id_gestiune AND s1.id_articol = s2.id_articol AND NVL(s1.cont, 'x') = NVL(s2.cont, 'x') AND s1.pret = s2.pret AND NVL(s1.id_part, 0) = NVL(s2.id_part, 0) ; + ORDER BY 1,2,3,4,5 ; + INTO CURSOR cStocuriDiferente1 + + + SELECT cgest, denumire, cont, partener, pret, ; + vali1 as valoare_initiala_saft, vali2 as valoare_initiala_stoc, valid as valoare_initiala_dif, ; + valf1 as valoare_finala_saft, valf2 as valoare_finala_stoc, valfd as valoare_finala_dif ; + FROM cStocuriDiferente1 ; + WHERE valid <> 0 OR valfd <> 0 ; + ORDER BY cgest, denumire, cont, pret ; + INTO CURSOR cStocuriDiferente + + IF RECCOUNT('cStocuriDiferente') = 0 + AMESSAGEBOX('Nu sunt diferente fata de soldurile articolelor din stocuri (exclusiv 303, 32x, 39x)!',0+64,_screen.Caption) + ELSE + goExport.export2xlsx("cStocuriDiferente", "verificare_stocuri_saft_" + gofirma.codfiscalfro + '_' + ALLTRIM(STR(m.gnAn)) + PADL(m.gnLuna,2,'0')) + + AMESSAGEBOX('Diferente fata de soldurile articolelor din stocuri (exclusiv 303, 32x, 39x)!' + CHR(13) + CHR(10) + m.lcText,0+64,_screen.Caption) + ENDIF && reccount + + USE IN (SELECT('cStocuriDiferente1')) + USE IN (SELECT('cStocuriDiferente')) + + SELECT (m.lcSelect) + ENDPROC && do_verifica_stocuri + + ********************************* + * verific rulajele din cMovementOfGoods cu RULL + ********************************* + PROCEDURE do_verifica_rulaje + Local lcSelect, lcSql, llOk, llSucces, lnAn1, lnAn2, lnLuna1, lnLuna2, lnDif, lcDif, lnTip, lcText + + lcSelect = SELECT() + + lnAn1 = This.oUnitate.an1 + lnLuna1 = This.oUnitate.luna1 + lnAn2 = This.oUnitate.an2 + lnLuna2 = This.oUnitate.luna2 + + * Creez cursor balanta de verificare + TEXT TO lcSql TEXTMERGE NOSHOW +select a.id_articol, a.denumire, SUM(r.cant) as cant, SUM(r.cante) as cante, SUM(ROUND(decode(g.nr_pag, 6, r.pretv+r.tvav, r.pret) * (case when cant <> 0 then cant else cante end), <>)) as valoare + from rul r left join vnom_articole a on r.id_articol = a.id_articol + join nom_gestiuni g on r.id_gestiune = g.id_gestiune + where r.an * 12 + r.luna between <> and <> and r.sters = 0 + and not (SUBSTR(r.cont,1,3) = '303' or SUBSTR(r.cont,1,2) in ('32')) + group by a.id_articol, a.denumire + ENDTEXT + llSucces = goExecutor.oExecuta(m.lcSql, 'cRulajeTemp') + + SELECT id_articol, denumire, SUM(cant) as cant, SUM(cante) as cante, SUM(valoare) as valoare ; + from cMovementOfGoods ; + GROUP BY id_articol, denumire ; + INTO CURSOR cMovementOfGoodsTemp + + + SELECT NVL(r1.denumire, r2.denumire) as denumire, ; + NVL(r1.cant, 0.00) as cant1, ; + NVL(r2.cant, 0.00) as cant2, ; + NVL(r1.cante, 0.00) as cante1, ; + NVL(r2.cante, 0.00) as cante2, ; + NVL(r1.valoare, 0.00) as valoare1, ; + NVL(r2.valoare, 0.00) as valoare2, ; + NVL(r1.valoare, 0.00) - NVL(r2.valoare, 0.00) as valoared ; + FROM cMovementOfGoodsTemp r1 FULL JOIN cRulajeTemp r2 ON r1.id_articol = r2.id_articol ; + ORDER BY 1 ; + INTO CURSOR cRulajeDiferente1 + + + SELECT denumire, ; + cant1 as intrari_saft, cant2 as intrari_rulaje, ; + cante1 as iesiri_saft, cante2 as iesiri_rulaje, ; + valoare1 as valoare_saft, valoare2 as valoare_rulaje, valoared as valoare_dif ; + FROM cRulajeDiferente1 ; + WHERE cant1 <> cant2 OR cante1 <> cante2 or valoare1 <> valoare2 ; + ORDER BY denumire ; + INTO CURSOR cRulajeDiferente + + IF RECCOUNT('cRulajeDiferente') = 0 + AMESSAGEBOX('Nu sunt diferente fata de rulaje (exclusiv 303, 32x)!',0+64,_screen.Caption) + ELSE + goExport.export2xlsx("cRulajeDiferente", "verificare_rulaje_saft_" + gofirma.codfiscalfro + '_' + ALLTRIM(STR(m.gnAn)) + PADL(m.gnLuna,2,'0')) + + AMESSAGEBOX('Diferente fata de rulajele articolelor (exclusiv 303, 32x)!' ,0+64,_screen.Caption) + ENDIF && reccount + + USE IN (SELECT('cMovementOfGoodsTemp')) + USE IN (SELECT('cRulajeDiferente1')) + USE IN (SELECT('cRulajeDiferente')) + + SELECT (m.lcSelect) + ENDPROC && do_verifica_rulaje + + ************************************* + * Completare inregistrari (Registru Jurnal, Rulaje, Vanzari) care nu au coduri de taxa/plata SAF-T cu coduri de taxa/plata implicite + PROCEDURE CompletareCodTaxaPlata + Local lcParola + Local lcMesaj, lcSql, llSucces, lnOptiune + PRIVATE pnAn1, pnLuna1, pnAn2, pnLuna2 +*!* lcParola = INPUTBOX('Parola','Parola','') +*!* IF m.lcParola # TRANSFORM(YEAR(DATE())) + PADL(TRANSFORM(MONTH(DATE())),2,'0') + PADL(TRANSFORM(DAY(DATE())),2,'0') +*!* RETURN +*!* ENDIF + + lnOptiune = xmenu('Completare cod taxa SAF-T;Completare cod plata SAF-T;\-;Completare coduri plata implicite pe documente;Corectare tip persoana fizica in nomenclatorul de parteneri') + IF EMPTY(m.lnOptiune) + RETURN + ENDIF + + pnAn1 = This.oUnitate.an1 + pnLuna1 = This.oUnitate.luna1 + pnAn2 = This.oUnitate.an2 + pnLuna2 = This.oUnitate.luna2 + + DO CASE + CASE m.lnOptiune = 1 + lcMesaj = 'Doriti sa completati inregistrarile din perioada curenta (Registrul Jurnal, Rulaj, Vanzari) care nu au coduri de taxa cu coduri de taxa implicite SAFT?' + lcSql = [begin PACK_SAFT.UpdateTaxCode(?pnAn1, ?pnLuna1, ?pnAn2, ?pnLuna2); end;] + CASE m.lnOptiune = 2 + lcMesaj = 'Doriti sa completati inregistrarile din perioada curenta (Registrul Jurnal) care nu au coduri de plata cu coduri de plata implicite SAFT?' + lcSql = [begin PACK_SAFT.UpdatePaymentCode(?pnAn1, ?pnLuna1, ?pnAn2, ?pnLuna2); end;] + CASE m.lnOptiune = 4 + lcMesaj = 'Doriti sa initializati codul de plata implicit in nomenclatorul "Fel document"?' + CHR(13) + CHR(10) + 'Dupa initializare, verificati asocierea codurilor de plata in Definirea Companiei > Nomenclatoare > Tip document' + lcSql = [begin PACK_SAFT.UpdatePaymentCodeFdoc(?gnAn); end;] + CASE m.lnOptiune = 5 + lcMesaj = 'Doriti sa corectati tipul de persoana = "Fizica" pentru persoanele cu tip persoana = "Juridica" si cod fiscal 13 cifre?' + lcSql = [begin PACK_SAFT.UpdateTipPersoanaFizica(); end;] + + ENDCASE + + IF AMESSAGEBOX(m.lcMesaj,4+32,_screen.Caption) = 6 + llSucces = goExecutor.oExecuta(m.lcSql) + IF m.llSucces + AMESSAGEBOX('Completari efectuate cu succes!' + CHR(13) + CHR(10) + ; + 'Apasati pe 1. Citeste date pentru a actualiza datele din declaratie',0+64,_screen.Caption) + ENDIF + ENDIF + ENDPROC && CompletareCodTaxaPlata + + *********************************** + * Creare cusoare din baza de date + Function CitesteDate + Local lcSelect, llSucces + lcSelect = Select() + llSucces = .T. + + If m.llSucces And This.oUnitate.GeneralLedgerAccounts + WAIT WINDOW 'GeneralLedgerAccounts...' NOWAIT + llSucces = This.oGeneralLedgerAccounts() + Endif + + If m.llSucces And This.oUnitate.Customers + WAIT WINDOW 'Customers...' NOWAIT + llSucces = This.oCustomersSuppliers('customers') + Endif + + If m.llSucces And This.oUnitate.Suppliers + WAIT WINDOW 'Suppliers...' NOWAIT + llSucces = This.oCustomersSuppliers('suppliers') + Endif + + If m.llSucces And This.oUnitate.TaxTable + WAIT WINDOW 'TaxTable...' NOWAIT + llSucces = This.oTaxTable() + Endif + + If m.llSucces And This.oUnitate.UOMTable + WAIT WINDOW 'UOMTable...' NOWAIT + llSucces = This.oUOMTable() + Endif + + + If m.llSucces And This.oUnitate.AnalysisTypeTable + WAIT WINDOW 'AnalysisTypeTable...' NOWAIT + llSucces = This.oAnalysisTypeTable() + Endif + + If m.llSucces And This.oUnitate.GeneralLedgerEntries + WAIT WINDOW 'GeneralLedgerEntries...' NOWAIT + llSucces = This.oGeneralLedgerEntries() + Endif + + If m.llSucces And This.oUnitate.SalesInvoices + WAIT WINDOW 'SalesInvoices...' NOWAIT + llSucces = This.oSalesInvoices() + Endif + + If m.llSucces And This.oUnitate.PurchaseInvoices + WAIT WINDOW 'PurchaseInvoices...' NOWAIT + llSucces = This.oPurchaseInvoices() + Endif + + If m.llSucces And This.oUnitate.Payments + WAIT WINDOW 'Payments...' NOWAIT + llSucces = This.oPayments() + Endif + + If m.llSucces And This.oUnitate.Owners + WAIT WINDOW 'Owners...' NOWAIT + llSucces = This.oOwners() + ENDIF + + If m.llSucces And This.oUnitate.Assets + WAIT WINDOW 'Assets...' NOWAIT + llSucces = This.oAssets() + ENDIF + + If m.llSucces And This.oUnitate.MovementTypeTable + WAIT WINDOW 'MovementTypeTable...' NOWAIT + llSucces = This.oMovementTypeTable() + ENDIF + + If m.llSucces And This.oUnitate.Products + WAIT WINDOW 'Products...' NOWAIT + llSucces = This.oProducts() + ENDIF + + If m.llSucces And This.oUnitate.PhysicalStock + WAIT WINDOW 'PhysicalStock...' NOWAIT + llSucces = This.oPhysicalStock() + ENDIF + + If m.llSucces And This.oUnitate.MovementOfGoods + WAIT WINDOW 'MovementOfGoods...' NOWAIT + llSucces = This.oMovementOfGoods() + ENDIF + + + Select (m.lcSelect) + Return m.llSucces + + Endfunc && CitesteDate + +************************************************ +* cursor cGeneralLedgerAccounts +************************************************ + Function oGeneralLedgerAccounts + + Local lcSelect, lcSql, llSucces, lnAn1, lnAn2, lnLuna1, lnLuna2 + lcSelect = Select() + lnAn1 = This.oUnitate.an1 + lnLuna1 = This.oUnitate.luna1 + lnAn2 = This.oUnitate.an2 + lnLuna2 = This.oUnitate.luna2 + +* 26.04.2023 +* am folosit bal full join plcont in loc de left join, pentru ca nu se afisau descrierile de la toate conturile din plcont. nu stiu de ce + +* GeneralLedgerAccounts + Text To m.lcSql Noshow Textmerge +SELECT b.cont, + p.explicaties as denumire, + DECODE(UPPER(NVL(p.tip_sold,'B')), 'A', 'Activ', 'P', 'Pasiv', 'Bifunctional') AS tip, + nvl(b.soldideb, 0) as soldideb, + nvl(b.soldicred, 0) as soldicred, + nvl(b.soldfdeb, 0) as soldfdeb, + nvl(b.soldfcred, 0) as soldfcred + FROM (select nvl(b1.cont, b2.cont) as cont, + (case + when precdeb >= preccred then + precdeb - preccred + else + 0 + end) as soldideb, + (case + when preccred > precdeb then + preccred - precdeb + else + 0 + end) as soldicred, + (case + when nvl(precdeb,0) + nvl(debit,0) >= nvl(preccred,0) + nvl(credit,0) then + nvl(precdeb,0) + nvl(debit,0) - nvl(preccred,0) - nvl(credit,0) + else + 0 + end) as soldfdeb, + (case + when nvl(preccred,0) + nvl(credit,0) > nvl(precdeb,0) + nvl(debit,0) then + nvl(preccred,0) + nvl(credit,0) - nvl(precdeb,0) - nvl(debit,0) + else + 0 + end) as soldfcred + from (select cont, + sum(precdeb) as precdeb, + sum(preccred) as preccred + from bal + where an = <> + and luna = <> + and TO_NUMBER(SUBSTR(cont, 1, 1)) <= 7 + group by cont) b1 + full join (select cont, + sum(ruldeb) as debit, + sum(rulcred) as credit + from bal + where an * 12 + luna between <> and <> + and TO_NUMBER(SUBSTR(cont, 1, 1)) <= 7 + group by cont) b2 + on b1.cont = b2.cont) b + FULL JOIN VPLCONT_SINTETIC p + ON b.cont = p.cont + AND p.an = <> + WHERE b.cont is not null + order by b.cont + Endtext + + llSucces = goExecutor.oExecuta(m.lcSql, 'cGeneralLedgerAccounts') + + Select (m.lcSelect) + Return m.llSucces + + Endfunc && oGeneralLedgerAccounts + +************************************************ +* cursor cCustomers/cSuppliers +************************************************ + Function oCustomersSuppliers + Lparameters tcTip +* tcTip: customers/suppliers + + Local lcCursor, lcSelect, lcSql, llClient, llSucces, lnAn1, lnAn2, lnLuna1, lnLuna2 + lcSelect = Select() + llClient = (Upper(Alltrim(m.tcTip)) = 'CUSTOMERS') + lcCursor = Iif(m.llClient, 'cCustomers', 'cSuppliers') + lcCont = Iif(m.llClient, '4111', '401') + lcListaConturi = Iif(m.llClient, ['4111','4118','461','418', '419'], ['401','404','462','408','409']) + lcTipCont = Iif(m.llClient, 'Activ', 'Pasiv') + lcJTVA = Iif(m.llClient, 'jv2007', 'jc2007') + + lnAn1 = This.oUnitate.an1 + lnLuna1 = This.oUnitate.luna1 + lnAn2 = This.oUnitate.an2 + lnLuna2 = This.oUnitate.luna2 + + * Anul incepand cu care se iau clientii/furnizorii din balanta de parteneri + * Poate nu vreau sa iau toti clientii/furnizorii, cu coduri fiscale eronate din istoric + * Clientii/furnizorii din balanta de parteneri, dupa lista de conturi clienti/furnizori, in loc de jurnalul TVA vanzari/cumparari + * Era posibil sa nu existe in Jurnalele de TVA, daca erau initializati doar in balantele de parteneri + lnCustSupType = This.oUnitate.CustSupType && 9999 = Toti, 2022 = Incepand cu 2022, 2023 = 2023, 2025 = 2025 + lnAnInitial = IIF(m.lnCustSupType = 9999, 1900, m.lnCustSupType) + + Text To m.lcSql Noshow Textmerge +select p.id_part, + NVL(TRIM(p.denumire), 'NEDEFINIT') as denumire, + p.cod_fiscal, + p.tip_persoana, + p.sters, + a.strada, + a.numar, + a.localitate, + a.indicativ_judet, + a.codpostal, + a.cod_tara, + (CASE when j.is_activ > 0 then 1 else 0 end) as is_activ, + NVL(b.cont, '<>') as cont, + '<>' as tip, + nvl(b.soldideb, 0) as soldideb, + nvl(b.soldicred, 0) as soldicred, + nvl(b.soldfdeb, 0) as soldfdeb, + nvl(b.soldfcred, 0) as soldfcred, + CAST(null as varchar2(30)) as saftpartid + FROM NOM_PARTENERI P + left join (select id_part, SUM(case when an * 12 + luna between <> and <> then 1 else 0 end) as is_activ from <> + group by id_part) j + on p.id_part = j.id_part + left join (select nvl(b1.id_part, b2.id_part) as id_part, + nvl(b1.cont, b2.cont) as cont, + (case + when nvl(precdeb,0) >= nvl(preccred,0) then + nvl(precdeb,0) - nvl(preccred,0) + else + 0 + end) as soldideb, + (case + when nvl(preccred,0) > nvl(precdeb,0) then + nvl(preccred,0) - nvl(precdeb,0) + else + 0 + end) as soldicred, + (case + when nvl(precdeb,0) + nvl(debit,0) >= nvl(preccred,0) + nvl(credit,0) then + nvl(precdeb,0) + nvl(debit,0) - nvl(preccred,0) - nvl(credit,0) + else + 0 + end) as soldfdeb, + (case + when nvl(preccred,0) + nvl(credit,0) > nvl(precdeb,0) + nvl(debit,0) then + nvl(preccred,0) + nvl(credit,0) - nvl(precdeb,0) - nvl(debit,0) + else + 0 + end) as soldfcred + from (select id_part, + cont, + sum(precdeb) as precdeb, + sum(preccred) as preccred + from balanta_parteneri + where an = <> + and luna = <> + and cont in (<>) + group by id_part, cont) b1 + full join (select id_part, + cont, + sum(debit) as debit, + sum(credit) as credit + from balanta_parteneri + where an * 12 + luna between <> and <> + and cont in (<>) + group by id_part, cont) b2 + on b1.id_part = b2.id_part + and b1.cont = b2.cont) b + on p.id_part = b.id_part + LEFT JOIN (SELECT ap.id_part, + ap.strada, + ap.numar, + l.localitate, + j.indicativ as indicativ_judet, + ap.codpostal, + t.prescurtare as cod_tara + FROM ADRESE_PARTENERI ap + left join syn_nom_localitati l + on l.id_loc = ap.id_loc + left join syn_nom_judete j + on j.id_judet = l.id_judet + left join syn_nom_tari t + on t.id_tara = ap.id_tara + WHERE ap.STERS = 0 + AND ap.PRINCIPALA = 1) a + ON p.id_part = a.id_part + where exists (select id_part, sum(debit) as debit, sum(credit) as credit, sum(precdeb-preccred) as soldi from balanta_parteneri + WHERE AN >= <> and id_part = p.id_part and cont in (<>) + group by id_part + having (sum(debit) <> 0 or sum(credit) <> 0 or sum(precdeb-preccred) <> 0)) + or exists + (select distinct id_part from ireg_parteneri + WHERE AN >= <> and id_part = p.id_part and cont in (<>)) + ORDER BY p.denumire + Endtext + + llSucces = goExecutor.oExecuta(m.lcSql, m.lcCursor) + + IF m.llSucces + lcCodUnitate = this.ounitATE.codi + DELETE FROM (m.lcCursor) WHERE !EMPTY(NVL(sters,0)) && era si partenerul cu ID_PART = 0, STERS + + UPDATE (m.lcCursor) SET cod_fiscal = m.lcCodUnitate WHERE UPPER(ALLTRIM(cod_fiscal)) = 'ANULAT' + UPDATE (m.lcCursor) SET SaftPartId = This.GenCustSupCode(id_part, cod_tara, tip_persoana, cod_fiscal) WHERE !EMPTY(NVL(id_part,0)) + SELECT (m.lcCursor) + INDEX on id_part TAG id_part + SET ORDER TO + ENDIF + GO TOP IN (m.lcCursor) + + Select (m.lcSelect) + Return m.llSucces + + Endfunc && oCustomersSuppliers + + ************************************************ + * cursor cTaxTable + ************************************************ + Function oTaxTable + + Local lcSelect, lcSql, llSucces, lnAn1, lnAn2, lnLuna1, lnLuna2 + lcSelect = Select() + lnAn1 = This.oUnitate.an1 + lnLuna1 = This.oUnitate.luna1 + lnAn2 = This.oUnitate.an2 + lnLuna2 = This.oUnitate.luna2 + + Text To m.lcSql Noshow Textmerge +select * FROM vsaft_taxtable t WHERE to_char(taxcode) <> to_char(taxtype) || '000' AND exists (SELECT taxcode FROM act a WHERE sters = 0 AND an * 12 + luna between <> and <> and a.taxcode = t.taxcode) order by taxcode + Endtext + + llSucces = goExecutor.oExecuta(m.lcSql, 'cTaxTable') + If m.llSucces +* + Endif + + Select (m.lcSelect) + Return m.llSucces + + Endfunc && oTaxTable + + + ************************************************ + * cursor cUOMTable + ************************************************ + Function oUOMTable + + Local lcSelect, lcSql, llSucces, lnAn1, lnAn2, lnLuna1, lnLuna2 + lcSelect = Select() + lnAn1 = This.oUnitate.an1 + lnLuna1 = This.oUnitate.luna1 + lnAn2 = This.oUnitate.an2 + lnLuna2 = This.oUnitate.luna2 + + Text To m.lcSql Noshow Textmerge +select distinct u.cod_um_iso as UnitOfMeasure, u.um_iso as description + from stoc s + join nom_articole a + on s.id_articol = a.id_articol + join vnom_um u + on a.um = u.um + where s.an * 12 + s.luna between <> and <> + and u.cod_um_iso is not null + order by u.cod_um_iso + Endtext + + llSucces = goExecutor.oExecuta(m.lcSql, 'cUOMTable') + If m.llSucces + * Da eroare la depunerea la ANAF daca nu are o inregistrare + IF RECCOUNT('cUOMTable') = 0 + INSERT INTO cUOMTable (unitofmeasure, description) VALUES ('H87', 'bucata') + ENDIF + Endif + + Select (m.lcSelect) + Return m.llSucces + + Endfunc && oUOMTable + + +************************************************ +* cursor cGeneralLedgerEntries +************************************************ + Function oGeneralLedgerEntries + + Local lcSelect, lcSql, llSucces, lnAn1, lnAn2, lnLuna1, lnLuna2 + lcSelect = Select() + lnAn1 = This.oUnitate.an1 + lnLuna1 = This.oUnitate.luna1 + lnAn2 = This.oUnitate.an2 + lnLuna2 = This.oUnitate.luna2 + + * GeneralLedgerEntries + * 4428 este optional sa aiba taxcode + * nu pun taxcode pentru 4428 pentru ca la exigibilizare TVA are un cod 380xxx diferit fata de 4428 301xxx si nu am 2 coduri pe aceeasi inregistrare in Registrul Jurnal + Text To m.lcSql Noshow Textmerge +select c.an, + c.luna, + c.cod, + c.id_fact, + c.nract, + c.dataact, + c.dataireg, + c.cont, + c.tipdc, + c.id_part, + c.id_jtva_coloana, + c.cota_taxa, + c.explicatie_tva, + c.tiptaxa, + c.taxtype, + c.taxcode, + c.taxname, + c.id_sectie, + c.id_valuta, + max(decode(c.n50, 0, 0, 1)) over(partition by id_fact) as n50, + max(decode(c.n100, 0, 0, 1)) over(partition by id_fact) as n100, + c.curs, + c.suma, + c.suma_val, + c.taxa, + c.taxa_val, + p.denumire, + p.cod_fiscal, + p.tip_persoana, + t.prescurtare as cod_tara, + nvl(v.nume_val2, 'RON') as cod_valuta, + CAST(null as varchar2(20)) as saftpartid + from (select an, + luna, + cod, + id_fact, + nract, + dataact, + dataireg, + cont, + tipdc, + id_part, + id_jtva_coloana, + cota_taxa, + explicatie_tva, + tiptaxa, + taxtype, + taxcode, + taxname, + id_sectie, + id_valuta, + curs, + sum(n50) as n50, + sum(n100) as n100, + sum(suma) as suma, + sum(suma_val) as suma_val, + sum(nvl(round(suma * cota_taxa / 100, 2),0)) as taxa, + sum(case when curs <> 0 and suma_val <> 0 then round(suma / curs * cota_taxa / 100, 2) else 0 end) as taxa_val + from (select a.an, + a.luna, + a.cod, + a.id_fact, + a.nract, + a.dataact, + a.dataireg, + a.cont, + a.tipDC, + a.id_part, + a.id_sectie, + a.id_valuta, + a.curs, + a.n50, + a.n100, + a.suma, + a.suma_val, + case + when j.taxcode <> 0 and j.id_tva is null then + null + else + decode(NVL(a.id_jtva_coloana,0), 0, null, a.id_jtva_coloana) + end as id_jtva_coloana, + case + when j.taxcode <> 0 and j.id_tva is null then + 0 + else + decode(NVL(a.id_jtva_coloana,0), 0, 0, j.cota_tva) + end as cota_taxa, + case + when j.taxcode <> 0 and j.id_tva is null then + null + else + decode(NVL(a.id_jtva_coloana,0), 0, null, j.denumire) + end as explicatie_tva, + j.id_tva, + case when j.taxcode is not null and tx.tva = 1 then 'TVA' when tx.wht = 1 then 'WHT' else '' end as tiptaxa, + cast(decode(j.taxcode, null, null, tx.taxtype) as Number) as taxtype, + cast(decode(j.taxcode, null, null, a.taxcode) as number) as taxcode, + cast(decode(j.taxcode, null, null, tx.taxname) as varchar2(250)) as taxname + from (SELECT an, + luna, + cod, + id_fact, + nract, + dataact, + dataireg, + case + when substr(scd, 1, 2) in ('40', '41', '46') then + id_partd + else + null + end as id_part, + scd as cont, + 'D' AS tipDC, + case + when scd in ('4426', '4427', '4428') and taxcode is not null then + ad.id_jtva_coloana + when scd in ('4426', '4427', '4428') and taxcode is null then + null + when substr(scd, 1, 2) in + ('40', '41', '44', '46') then + ad.id_jtva_coloana + else + null + end as id_jtva_coloana, + decode(scd, '4428', cast(null as number(6)), taxcode) as taxcode, + id_sectie, + id_valuta, + curs, + decode(ad.id_jtva_coloana, 1004, 1, 0) as n50, + decode(ad.id_jtva_coloana, 1005, 1, 0) as n100, + SUM(suma) as suma, + sum(suma_val) as suma_val + FROM act ad + where ad.sters = 0 + and ad.an * 12 + luna between <> and <> + and TO_NUMBER(SUBSTR(ad.scd, 1, 1)) <= 7 + group by ad.an, + ad.luna, + ad.cod, + ad.id_fact, + ad.nract, + ad.dataact, + ad.dataireg, + ad.dataora, + ad.scd, + ad.id_partd, + ad.id_jtva_coloana, + ad.taxcode, + ad.id_sectie, + ad.id_valuta, + ad.curs + union all + SELECT an, + luna, + cod, + id_fact, + nract, + dataact, + dataireg, + case + when substr(scc, 1, 2) in ('40', '41', '46') then + id_partc + else + null + end as id_part, + scc as cont, + 'C' AS tipDC, + case + when scc in ('4426', '4427', '4428') and taxcode is not null then + ac.id_jtva_coloana + when scc in ('4426', '4427', '4428') and taxcode is null then + null + when substr(scc, 1, 2) in + ('40', '41', '44', '46') then + ac.id_jtva_coloana + else + null + end as id_jtva_coloana, + decode(scc, '4428', cast(null as number(6)), taxcode) as taxcode, + id_sectie, + id_valuta, + curs, + decode(ac.id_jtva_coloana, 1004, 1, 0) as n50, + decode(ac.id_jtva_coloana, 1005, 1, 0) as n100, + SUM(suma) as suma, + sum(suma_val) as suma_val + FROM act ac + where ac.sters = 0 + and ac.an * 12 + luna between <> and <> + and TO_NUMBER(SUBSTR(ac.scc, 1, 1)) <= 7 + group by ac.an, + ac.luna, + ac.cod, + ac.id_fact, + ac.nract, + ac.dataact, + ac.dataireg, + ac.dataora, + ac.scc, + ac.id_jtva_coloana, + ac.taxcode, + ac.id_partc, + ac.id_sectie, + ac.id_valuta, + ac.curs) a + left join jtva_coloane j + on a.id_jtva_coloana = j.id_jtva_coloana + left join vsaft_taxtable tx on a.taxcode = tx.taxcode) b + group by an, + luna, + cod, + id_fact, + nract, + dataact, + dataireg, + cont, + tipdc, + id_part, + id_jtva_coloana, + cota_taxa, + explicatie_tva, + tiptaxa, + taxtype, + taxcode, + taxname, + id_sectie, + id_valuta, + curs) c + left join nom_parteneri p + on c.id_part = p.id_part + left join adrese_parteneri ap + on (p.id_part = ap.id_part and ap.sters = 0 and ap.principala = 1) + left join syn_nom_tari t + on t.id_tara = ap.id_tara + left join vnom_valute v + on c.id_valuta = v.id_valuta + order by an, + luna, + dataact, + cod, + id_fact, + nract, + tipdc, + cont, + explicatie_tva + Endtext + llSucces = goExecutor.oExecuta(m.lcSql, 'cGeneralLedgerEntries') + + IF m.llSucces + lcCodUnitate = this.ounitATE.codi + UPDATE cGeneralLedgerEntries SET cod_fiscal = m.lcCodUnitate WHERE UPPER(ALLTRIM(cod_fiscal)) = 'ANULAT' + UPDATE cGeneralLedgerEntries SET SaftPartId = This.GenCustSupCode(id_part, cod_tara, tip_persoana, cod_fiscal) WHERE !EMPTY(NVL(id_part,0)) + + * Completez SAFTPARTID contribuabil raportor daca nu exista partener in Registrul TVA + lcSaftPartId = '00' + This.oUnitate.codi + UPDATE cGeneralLedgerEntries SET saftPartId = m.lcSaftPartId WHERE EMPTY(NVL(id_part,0)) + ENDIF + GO TOP IN cGeneralLedgerEntries + + Select (m.lcSelect) + Return m.llSucces + + Endfunc && oGeneralLedgerEntries + + + ************************************************ + * cursor cSalesInvoices, cSalesInvoicesLines + * din registrul jurnal iau doar inregistrarile care au taxcode pentru a genera articole. nu iau orice nota contabila + ************************************************ + Function oSalesInvoices + Local lcSelect, lcSql, llSucces, lnAn1, lnAn2, lnLuna1, lnLuna2, lcCursor, lcCursorLines, lcCursorPartener, loFact + lcSelect = Select() + + lnAn1 = This.oUnitate.an1 + lnLuna1 = This.oUnitate.luna1 + lnAn2 = This.oUnitate.an2 + lnLuna2 = This.oUnitate.luna2 + + lcCursor = 'cSalesInvoices' + lcCursorTemp = 'cSalesInvoicesTemp' + lcCursorLines = 'cSalesInvoicesLines' + lcCursorLinesTemp = 'cSalesInvoicesLinesTemp' + lcCursorPartener = 'cCustomers' + +Create Cursor cSalesInvoicesLines(; + tip N(1) null,; + id_fact N(20) null,; + nrcrt N(10) null,; + cod N(20) null,; + descriere C(100) null,; + cantitate N(20,6) null,; + pret_cu_tva N(1) null,; + pret N(20,4) null,; + pretv N(20,4) null,; + valoare N(20,4) null,; + valoarev N(20,4) null,; + taxa N(20,4) null,; + taxav N(20,4) null,; + id_valuta N(5) null,; + curs N(14,4) null,; + taxcode N(6) null,; + taxtype N(3) null,; + taxname C(250) null,; + proc_tva N(5) null,; + cod_valuta C(5) null,; + cont C(4) null) + + Text To m.lcSql Noshow Textmerge +Select j2.an, + j2.luna, + j2.id_fact, + j2.cod, + j2.nract, + j2.dataact, + j2.id_part, + p.denumire, + j2.totctva, + CAST(null as varchar2(30)) as saftpartid, + CAST(null as varchar2(100)) as localitate, + CAST(null as varchar2(100)) as cod_tara, + CASE + when j2.invoicetype is not null then + j2.invoicetype + when nvl(j2.autofactura, 0) = 1 then + 389 + when j2.totctva < 0 then + 381 + else + 380 + end as invoicetype, + (CASE when j2.invoicetype = 389 or nvl(j2.autofactura, 0) = 1 then 389 ELSE 0 END) as autofactura, + (select MAX(scd) as cont from act where cod = j2.cod and SUBSTR(scd, 1, 2) in ('41', '46')) as cont + from (select an, + luna, + id_fact, + cod, + nract, + dataact, + id_part, + totctva, + (select max(isautofactura) as autofactura + from serii + where serie = j.serie_act) as autofactura, + (select MAX(tip_saft) as tip_saft from vanzari where id_fact = j.id_fact) as invoicetype + from jv2007 j join nom_fdoc f on j.id_fdoc = f.id_fdoc + where j.an * 12 + j.luna between <> and <> + and extract(year from j.dataireg) = j.an and extract(MONTH from j.dataireg) = j.luna + and f.tip_doc in ('F', 'M') + and j.id_fact not in (select distinct id_fact from act where an * 12 + luna between <> and <> and sters= 0 and id_set = 99996)) j2 + left join nom_parteneri p on j2.id_part = p.id_part + order by j2.an, j2.luna, j2.dataact, j2.nract, p.denumire + Endtext + + llSucces = goExecutor.oExecuta(m.lcSql, m.lcCursorTemp) + + IF m.llSucces + SELECT an, luna, id_fact, id_fact as id_fact2, cod, nract, TTOD(dataact) as dataact, id_part, denumire, totctva, saftpartid, localitate, cod_Tara, ; + invoicetype, ; + ALLTRIM(STR(invoicetype)) + ' - ' + IIF(invoicetype = 380, 'FACTURA INITIALA', IIF(invoicetype = 381, 'FACTURA STORNO', IIF(invoicetype = 384, 'FACTURA FINALA', IIF(invoicetype = 389, 'AUTOFACTURA', 'FACTURA INITIALA')))) as invoicetypet, ; + INT(autofactura) as autofactura, cont ; + FROM (m.lcCursorTemp) ; + INTO CURSOR (m.lcCursor) READWRITE + + USE IN (SELECT(m.lcCursorTemp)) + + + * Unific facturile introduse din mai multe bucati (gestiune, facturare, contabilitate) + SELECT nract, dataact, id_part, MIN(id_fact) as id_fact, SUM(totctva) as totctva, COUNT(*) as nr ; + FROM (m.lcCursor) ; + group BY nract, dataact, id_part ; + HAVING COUNT(*) > 1 ; + INTO CURSOR cFacturiDup READWRITE + + SELECT cFacturiDup + SCAN + SCATTER NAME loFact + UPDATE (m.lcCursor) SET id_fact2 = loFact.id_fact, totctva = loFact.totctva WHERE nract = loFact.nract AND dataact = loFact.dataact AND id_part = loFact.id_part + ENDSCAN + USE IN (SELECT('cFacturiDup')) + + SELECT id_fact, id_fact2 FROM (m.lcCursor) WHERE id_fact <> id_fact2 INTO CURSOR cSalesInvoicesDup + + + * Completez saftpartid, localitate, cod_tara din cCustomers/cSuppliers + * UPDATE (m.lcCursor) SET SaftPartId = This.GetCustSupCode('CUSTOMERS', id_part) WHERE !EMPTY(NVL(id_part,0)) + + SELECT distinct id_part FROM (m.lcCursor) INTO CURSOR cIdpartTemp + SELECT cIdPartTemp + SCAN + lnIdPart = id_part + IF !EMPTY(m.lnIdPart) + IF SEEK(m.lnIdPart,m.lcCursorPartener,'id_part') + lcSaftPartId = ALLTRIM(&lcCursorPartener..SaftPartId) + lcLocalitate = ALLTRIM(&lcCursorPartener..localitate) + lcCodTara = ALLTRIM(&lcCursorPartener..cod_Tara) + UPDATE (m.lcCursor) SET saftPartId = m.lcSaftPartId, localitate = m.lcLocalitate, cod_tara = m.lcCodTara WHERE id_part = m.lnIdPart + ENDIF + ENDIF + ENDSCAN + + * Completez SAFTPARTID contribuabil raportor daca nu exista partener in Registrul TVA + lcSaftPartId = '00' + This.oUnitate.codi + UPDATE (m.lcCursor) SET saftPartId = m.lcSaftPartId WHERE EMPTY(NVL(id_part,0)) + + USE IN (SELECT('cIdpartTemp')) + + * LINII FACTURI + * Tip 1 = vanzari detalii + * Tip = 2 articole facturi din gestiune (rul) + * mai sunt diferente intre liniile din Rulaj si notele contabile, posibil din rotunjiri pe baza/TVA, pentru care s-au pus note suplimentare in Registrul Jurnal + * Trebuie sa generez linie cu articol din nota din Registrul Jurnal + + * Tip = 3 articole facturi din Contabilitate (act) - tratez cazul 4111 = 418 total cu TVA. Pun doar 100/119 din suma pe baza + * Tip = 4 note din contabilitate (act) ex: cheltuieli rotunjire zecimale, transport, discount pentru facturile din gestiune + * Tip 4 se sterge si se lasa doar diferentele fata de Tip = 2 + TEXT TO m.lcSql NOSHOW textmerge +select 1 as tip, + CAST(0 as number(5,0)) as nrcrt, + j.id_fact, + j.cod, + CAST(a.denumire as varchar2(100)) as descriere, + vd.cantitate, + vd.pret_cu_tva, + ROUND(NVL(vc.curs, 1) * ROUND(decode(vd.pret_cu_tva, 0, NVL(vd.pret, 0)-NVL(vd.discount_unitar,0), (NVL(vd.pret, 0)-NVL(vd.discount_unitar,0)) / decode(NVL(vd.proc_tvav,0), 0, 1, vd.proc_tvav)), <>) / NVL(vc.multiplicator, 1), 4) as pret, + DECODE(v.in_valuta, 0, 0.00, ROUND(decode(vd.pret_cu_tva, 0, NVL(vd.pret, 0), NVL(vd.pret, 0) / decode(NVL(vd.proc_tvav,0), 0, 1, vd.proc_tvav)), <>)) as pretv, + CAST(0 as number(20,4)) as valoare, + CAST(0 as number(20,4)) as valoarev, + CAST(0 as number(20,4)) as taxa, + CAST(0 as number(20,4)) as taxav, + DECODE(v.in_valuta, 0, 0, vd.id_valuta) as id_valuta, + DECODE(v.in_valuta, 0, 0, nvl(v.curs, 0)) as curs, + vd.taxcode, + st.taxtype, + st.taxname, + (vd.proc_tvav - 1) * 100 as proc_tva, + DECODE(v.in_valuta, 0, '', vi.iso_valuta) as cod_valuta, + cast(NVL(NVL(cvc.cont_venit, decode(nc.scc, '4111', nc.scd, nc.scc)),'') as varchar2(4)) as cont + from vanzari_detalii vd + join vanzari v + on vd.id_vanzare = v.id_vanzare + join jv2007 j + on v.id_fact = j.id_fact + join nom_fdoc f on j.id_fdoc = f.id_fdoc + left join nom_articole a on vd.id_articol = a.id_articol + left join vanzari_cursuri vc on vd.id_vanzare = vc.id_vanzare and vd.id_valuta = vc.id_valuta + left join nom_valute nv + on v.id_valuta = nv.id_valuta + left join syn_nom_valute_iso vi + on nv.id_valuta_iso = vi.id_valuta_iso + left join CRM_POLITICI_PRETURI pp + on vd.id_pol = pp.id_pol + left join crm_note_vanzari nv2 + on pp.id_nota = nv2.id_nota + left join note_contabile nc + on nv2.id_set = nc.id_set + left join vsaft_taxtable st on vd.taxcode = st.taxcode + left join CORESP_CONT_VENCHELT cvc on vd.cont = cvc.cont + where j.an * 12 + j.luna between <> and <> + and extract(year from j.dataireg)*12 + extract(MONTH from j.dataireg) between <> and <> + and extract(year from j.dataireg) = j.an and extract(MONTH from j.dataireg) = j.luna + and f.tip_doc in ('F', 'M') + and v.sters = 0 +union all +select 2 as tip, + CAST(0 as number(5,0)) as nrcrt, + r.id_fact, + r.cod, + CAST(a.denumire as varchar2(100)) as descriere, + r.cante as cantitate, + 0 as pret_cu_tva, + r.pretv as pret, + 0.00 as pretv, + CAST(0 as number(20,4)) as valoare, + CAST(0 as number(20,4)) as valoarev, + CAST(0 as number(20,4)) as taxa, + CAST(0 as number(20,4)) as taxav, + 0 as id_valuta, + 0 as curs, + r.taxcode, + st.taxtype, + st.taxname, + st.procent_taxa as proc_tva, + 'RON' as cod_valuta, + NVL(vc.cont_venit, '707') as cont + from rul r + join jv2007 j + on r.an = j.an + and r.luna = j.luna + and r.id_fact = j.id_fact + join nom_fdoc f on j.id_fdoc = f.id_fdoc + left join nom_articole a on r.id_articol = a.id_articol + left join vsaft_taxtable st on r.taxcode = st.taxcode + left join CORESP_CONT_VENCHELT vc on r.cont = vc.cont + where r.an * 12 + r.luna between <> and <> + and r.sters = 0 + and j.id_fact not in (select id_fact + from vanzari + where extract(year from data_act) * 12 + + extract(month from data_act) between + <> and <> + and id_fact is not null and sters = 0) + and f.tip_doc in ('F', 'M') +union all +select 3 as tip, + CAST(0 as number(5,0)) as nrcrt, + id_fact, + cod, + CAST(MAX(explicatia) as varchar2(100)) as descriere, + 1 as cantitate, + 0 as pret_cu_tva, + sum(decode(exceptie, 1, -1, 1) * suma) as pret, + sum(decode(exceptie, 1, -1, 1) * suma_val) as pretv, + CAST(0 as number(20,4)) as valoare, + CAST(0 as number(20,4)) as valoarev, + CAST(0 as number(20,4)) as taxa, + CAST(0 as number(20,4)) as taxav, + id_valuta, + curs, + taxcode, + taxtype, + taxname, + proc_tva, + cod_valuta, + decode(exceptie, 1, scd, scc) as cont + from (select a.id_fact, + a.cod, + a.explicatia, + (CASE when a.scd like '4%' AND a.scc = '418' then ROUND(a.suma * 100 / (100 + st.procent_taxa), 2) else a.suma end) as suma, + (CASE when a.scd like '4%' AND a.scc = '418' then ROUND(a.suma_val * 100 / (100 + st.procent_taxa), 2) else a.suma_val end) as suma_val, + a.id_valuta, + a.curs, + a.taxcode, + st.taxtype, + st.taxname, + st.procent_taxa as proc_tva, + vi.iso_valuta as cod_valuta, + a.scd, + a.scc, + (SELECT DISTINCT 1 AS EXCEPTIE + FROM EXCEPTII_IREG + WHERE INVERS = 1 + AND CONT = a.scc and cont_c = a.scd) as exceptie + from act a + join jv2007 j + on a.an = j.an + and a.luna = j.luna + and a.id_fact = j.id_fact + join nom_fdoc f on j.id_fdoc = f.id_fdoc + left join nom_valute nv + on a.id_valuta = nv.id_valuta + left join syn_nom_valute_iso vi + on nv.id_valuta_iso = vi.id_valuta_iso + left join vsaft_taxtable st on a.taxcode = st.taxcode + where a.an * 12 + a.luna between <> and <> + and a.sters = 0 + and a.id_set <> 99996 + and a.taxcode is not null + AND substr(a.scd, 1, 3) <> '442' and substr(a.scc, 1, 3) <> '442' + and a.id_fact not in + (select id_fact + from vanzari + where extract(year from data_act) * 12 + + extract(month from data_act) between <> and <> + and id_fact is not null and sters = 0 + union + select id_fact + from rul + where an * 12 + luna between <> and <> + and id_fact is not null and sters = 0) + and f.tip_doc in ('F', 'M')) + group by id_fact, + cod, + id_valuta, + curs, + taxcode, + taxtype, + taxname, + proc_tva, + cod_valuta, + decode(exceptie, 1, scd, scc) +union all +select 4 as tip, + CAST(0 as number(5,0)) as nrcrt, + id_fact, + cod, + CAST('VERIFICARE' as varchar2(100)) as descriere, + 1 as cantitate, + 0 as pret_cu_tva, + sum(decode(exceptie, 1, -1, 1) * suma) as pret, + sum(decode(exceptie, 1, -1, 1) * suma_val) as pretv, + CAST(0 as number(20,4)) as valoare, + CAST(0 as number(20,4)) as valoarev, + CAST(0 as number(20,4)) as taxa, + CAST(0 as number(20,4)) as taxav, + id_valuta, + curs, + taxcode, + taxtype, + taxname, + proc_tva, + cod_valuta, + decode(exceptie, 1, scd, scc) as cont + from (select a.id_fact, + a.cod, + a.explicatia, + (CASE when a.scd like '4%' AND a.scc = '418' then ROUND(a.suma * 100 / (100 + st.procent_taxa), 2) else a.suma end) as suma, + (CASE when a.scd like '4%' AND a.scc = '418' then ROUND(a.suma_val * 100 / (100 + st.procent_taxa), 2) else a.suma_val end) as suma_val, + a.id_valuta, + a.curs, + a.taxcode, + st.taxtype, + st.taxname, + st.procent_taxa as proc_tva, + vi.iso_valuta as cod_valuta, + a.scd, + a.scc, + (SELECT DISTINCT 1 AS EXCEPTIE + FROM EXCEPTII_IREG + WHERE INVERS = 1 + AND CONT = a.scc and cont_c = a.scd) as exceptie + from act a + join jv2007 j + on a.an = j.an + and a.luna = j.luna + and a.id_fact = j.id_fact + join nom_fdoc f on j.id_fdoc = f.id_fdoc + left join nom_valute nv + on a.id_valuta = nv.id_valuta + left join syn_nom_valute_iso vi + on nv.id_valuta_iso = vi.id_valuta_iso + left join vsaft_taxtable st on a.taxcode = st.taxcode + where a.an * 12 + a.luna between <> and <> + and a.sters = 0 + and a.id_set <> 99996 + and a.taxcode is not null + AND substr(a.scd, 1, 3) <> '442' and substr(a.scc, 1, 3) <> '442' + and j.id_fact in + (select id_fact + from vanzari + where extract(year from data_act) * 12 + + extract(month from data_act) between <> and <> + and id_fact is not null and sters = 0 + union + select id_fact + from rul + where an * 12 + luna between <> and <> + and id_fact is not null and sters = 0) + and f.tip_doc in ('F', 'M')) + group by id_fact, + cod, + id_valuta, + curs, + taxcode, + taxtype, + taxname, + proc_tva, + cod_valuta, + decode(exceptie, 1, scd, scc) + ENDTEXT + llSucces = goExecutor.oExecuta(m.lcSql, m.lcCursorLinesTemp) + + IF m.llSucces + + SELECT (m.lcCursorLines) + APPEND FROM DBF(m.lcCursorLinesTemp) + USE IN (SELECT(m.lcCursorLinesTemp)) + + + * la Tip = 4 note din Registrul Jurnal aferente facturilor din gestiune + * verific daca suma din gestiune pe taxcode = suma din registrul jurnal pe taxcode si las doar diferentele fata de rulaj + * articolele preluate din gestiune au pretul in lei + ******************************************* + + * Diferente valori pe fiecare taxcode tip = 1, 2 (facturi din facturare, gestiune) + SELECT a.an, a.luna, a.id_fact, a.nract, a.dataact, a.id_part, a.denumire, b.taxcode, b.cont, ; + SUM(ROUND(b.cantitate * b.pret,2)) as valoare, ; + SUM(ROUND(b.cantitate * b.pretv,2)) as valoarev ; + FROM (m.lcCursor) a LEFT JOIN (m.lcCursorLines) b ON a.id_fact = b.id_fact ; + WHERE INLIST(b.tip, 1, 2) ; + GROUP BY a.an, a.luna, a.id_fact, a.nract, a.dataact, a.id_part, a.denumire, b.taxcode, b.cont ; + order by a.an, a.luna, a.dataact, a.nract ; + INTO CURSOR cFacturiTaxCode2 READWRITE + + SELECT a.id_fact, b.taxcode, ; + SUM(ROUND(b.cantitate * b.pret,2)) as valoare, ; + SUM(ROUND(b.cantitate * b.pretv,2)) as valoarev ; + FROM (m.lcCursor) a LEFT JOIN (m.lcCursorLines) b ON a.id_fact = b.id_fact ; + WHERE INLIST(b.tip, 1, 2) ; + GROUP BY a.id_fact, b.taxcode ; + INTO CURSOR cFacturiTaxCode2a + + + * suma din Registrul Jurnal fara TVA, pentru documentele introduse din gestiune + * tratez regularizare facturi nesosite/neintocmite 408=401, 4111=418 + SELECT a.an, a.luna, a.id_fact, a.nract, a.dataact, a.id_part, a.denumire, b.taxcode, b.cont, ; + SUM(ROUND(b.cantitate * b.pret,2)) as valoare, ; + SUM(ROUND(b.cantitate * b.pretv,2)) as valoarev ; + FROM (m.lcCursor) a LEFT JOIN (m.lcCursorLines) b ON a.id_fact = b.id_fact ; + WHERE b.tip = 4 ; + GROUP BY a.an, a.luna, a.id_fact, a.nract, a.dataact, a.id_part, a.denumire, b.taxcode, b.cont ; + order by a.an, a.luna, a.dataact, a.nract ; + INTO CURSOR cFacturiTaxCode4 + + SELECT a.id_fact, b.taxcode, ; + SUM(ROUND(b.cantitate * b.pret,2)) as valoare, ; + SUM(ROUND(b.cantitate * b.pretv,2)) as valoarev ; + FROM (m.lcCursor) a LEFT JOIN (m.lcCursorLines) b ON a.id_fact = b.id_fact ; + WHERE b.tip = 4 ; + GROUP BY a.id_fact, b.taxcode ; + INTO CURSOR cFacturiTaxCode4a + + SELECT NVL(a.id_fact, b.id_fact) as id_fact, NVL(a.taxcode, b.taxcode) as taxcode, ; + a.valoare as valoare2, b.valoare as valoare4, a.valoarev as valoarev2, b.valoarev as valoarev4 ; + FROM cFacturiTaxCode2a a FULL JOIN cFacturiTaxCode4a b ON a.id_fact = b.id_fact AND a.taxcode = b.taxcode ; + INTO CURSOR cFacturiTaxCode24a + + USE IN (SELECT('cFacturiTaxCode2a')) + USE IN (SELECT('cFacturiTaxCode4a')) + + SELECT cFacturiTaxCode4 + SCAN + SCATTER NAME loRec + + * Completez contul in liniile care nu au cont + UPDATE (m.lcCursorLines) SET cont = loRec.cont WHERE id_fact = loRec.id_fact AND taxcode = loRec.taxcode AND EMPTY(NVL(cont,'')) AND INLIST(tip,1,2) + UPDATE cFacturiTaxCode2 SET cont = loRec.cont WHERE id_fact = loRec.id_fact AND taxcode = loRec.taxcode AND EMPTY(NVL(cont,'')) + + SELECT cFacturiTaxCode2 + LOCATE FOR id_fact = loRec.id_fact AND taxcode = loRec.taxcode AND cont = loRec.cont + IF FOUND() + lnSuma = valoare + lnSumaV = valoarev + ELSE + lnSuma = 0 + lnSumaV = 0 + ENDIF + lnDiferenta = NVL(lorec.valoare,0) - NVL(m.lnSuma,0) + lnDiferentaV = NVL(lorec.valoarev,0) - NVL(m.lnSumaV,0) + + * Verific valoarea doar pe taxcode, fara cont (este posibil sa modifice contul in contabilitate) + llDiferentaContabilitate = .F. + SELECT cFacturiTaxCode24a + LOCATE FOR id_fact = loRec.id_fact AND taxcode = loRec.taxcode + IF FOUND() + llDiferentaContabilitate = (ABS(valoare4-valoare2) > 0.05) + ENDIF + + * Daca este diferenta facturare+gestiune fata de contabilitate pe total taxcode si diferenta este mai mare de 0.05 + IF m.llDiferentaContabilitate AND ABS(m.lnDiferenta) > 0.05 + + SELECT (m.lcCursorLines) + LOCATE FOR id_fact = loRec.id_fact AND taxcode = loRec.taxcode AND cont = loRec.cont AND tip = 4 + IF FOUND() + REPLACE pret WITH m.lnDiferenta, pretv WITH m.lnDiferentaV, descriere WITH 'DIFERENTA' + IF SIGN(pret) = -1 + REPLACE cantitate WITH -1*cantitate, pret WITH ABS(pret), pretv WITH ABS(pretv) + ENDIF + IF pretv = 0 + REPLACE id_valuta WITH null, cod_valuta WITH null, curs WITH null + ENDIF + ENDIF + ENDIF + ENDSCAN + + USE IN (SELECT('cFacturiTaxCode24a')) + + * Sterg liniile articolelor tip = 4 pe care nu le-am modificat cu diferenta fata de rulaj + DELETE FROM (m.lcCursorLines) WHERE tip = 4 AND descriere = 'VERIFICARE' + ******************************************* + + + * Completare Nr. Crt. + lnIdFact = -1 + lnNrCrt = 0 + SELECT (m.lcCursorLines) + SCAN + IF id_fact <> m.lnIdFact + lnNrCrt = 0 + lnIdFact = id_fact + ENDIF + lnNrCrt = lnNrCrt + 1 + REPLACE nrcrt WITH m.lnNrCrt + ENDSCAN + + UPDATE (m.lcCursorLines) SET taxa = ROUND(ROUND(cantitate * pret, 2) * proc_tva / 100, 2), ; + taxav = ROUND(ROUND(cantitate * pretv, 2) * proc_tva / 100, 2), ; + valoare = ROUND(cantitate * pret, 2), valoarev = ROUND(cantitate * pretv, 2) + + * Unificare elemente facturi de pe facturi duplicate (introduse din gestiune, contabilitate, facturare) + SELECT (m.lcCursor) + SCAN FOR id_fact <> id_fact2 + SCATTER NAME loFact + UPDATE (m.lcCursorLines) SET id_fact = loFact.id_fact2 WHERE id_fact = loFact.id_fact + ENDSCAN + DELETE FROM (m.lcCursor) WHERE id_fact <> id_fact2 + ENDIF + ENDIF && m.llSucces + + GO TOP IN (m.lcCursor) + + SELECT (m.lcSelect) + RETURN m.llSucces + ENDFUNC + + ************************************************ + * cursor cPurchaseInvoice, cPurchaseInvoicesLines + * din registrul jurnal iau doar inregistrarile care au taxcode pentru a genera articole. nu iau orice nota contabila + ************************************************ + Function oPurchaseInvoices + Local lcSelect, lcSql, llSucces, lnAn1, lnAn2, lnLuna1, lnLuna2, lcCursor, lcCursorLines, lcCursorPartener + lcSelect = Select() + + lnAn1 = This.oUnitate.an1 + lnLuna1 = This.oUnitate.luna1 + lnAn2 = This.oUnitate.an2 + lnLuna2 = This.oUnitate.luna2 + + lcCursor = 'cPurchaseInvoices' + lcCursorTemp = 'cPurchaseInvoicesTemp' + lcCursorLines = 'cPurchaseInvoicesLines' + lcCursorLinesTemp = 'cPurchaseInvoicesLinesTemp' + lcCursorPartener = "cSuppliers" + + Create Cursor cPurchaseInvoicesLines(; + tip N(1) null,; + id_fact N(20) null,; + nrcrt N(10) null,; + cod N(20) null,; + descriere C(100) null,; + cantitate N(20,6) null,; + pret_cu_tva N(1) null,; + pret N(20,4) null,; + pretv N(20,4) null,; + valoare N(20,4) null,; + valoarev N(20,4) null,; + taxa N(20,4) null,; + taxav N(20,4) null,; + id_valuta N(5) null,; + curs N(14,4) null,; + taxcode N(6) null,; + taxtype N(3) null,; + taxname C(250) null,; + proc_tva N(5) null,; + cod_valuta C(5) null,; + cont C(4) null) + + Text To m.lcSql Noshow Textmerge +Select j2.an, + j2.luna, + j2.id_fact, + j2.cod, + j2.nract, + j2.dataact, + j2.id_part, + p.denumire, + j2.totctva, + CAST(null as varchar2(30)) as saftpartid, + CAST(null as varchar2(100)) as localitate, + CAST(null as varchar2(100)) as cod_tara, + case + when j2.tip_saft is not null then j2.tip_saft + when j2.totctva < 0 then 381 + else 380 + end as invoicetype, + decode(nvl(j2.autofactura, 0), 0, 0, 389) as autofactura, + (select MAX(scc) as cont from act where cod = j2.cod and SUBSTR(scc, 1, 2) in ('40', '46')) as cont + from (select j.an, + j.luna, + j.id_fact, + j.cod, + j.nract, + j.dataact, + j.id_part, + j.totctva, + d.tip_saft, + 0 as autofactura + from jc2007 j join nom_fdoc f on j.id_fdoc = f.id_fdoc + left join documente d on j.id_fact = d.id_doc + where j.an * 12 + j.luna between <> and <> + and extract(year from j.dataireg) = j.an and extract(MONTH from j.dataireg) = j.luna + and f.tip_doc in ('F', 'M', 'C', 'INV')) j2 + left join nom_parteneri p on j2.id_part = p.id_part + order by j2.an, j2.luna, j2.dataact, j2.nract, p.denumire + Endtext + + llSucces = goExecutor.oExecuta(m.lcSql, m.lcCursorTemp) + + IF m.llSucces + SELECT an, luna, id_fact, id_fact as id_fact2, cod, nract, TTOD(dataact) as dataact, id_part, denumire, totctva, saftpartid, localitate, cod_Tara, ; + invoicetype, ; + ALLTRIM(STR(invoicetype)) + ' - ' + IIF(invoicetype = 380, 'FACTURA INITIALA', IIF(invoicetype = 381, 'FACTURA STORNO', IIF(invoicetype = 384, 'FACTURA FINALA', IIF(invoicetype = 389, 'AUTOFACTURA', 'FACTURA INITIALA')))) as invoicetypet, ; + INT(autofactura) as autofactura, cont ; + FROM (m.lcCursorTemp) ; + INTO CURSOR (m.lcCursor) READWRITE + + USE IN (SELECT(m.lcCursorTemp)) + + * Unific facturile introduse din mai multe bucati (gestiune, facturare, contabilitate) + SELECT nract, dataact, id_part, MIN(id_fact) as id_fact, SUM(totctva) as totctva, COUNT(*) as nr ; + FROM (m.lcCursor) ; + group BY nract, dataact, id_part ; + HAVING COUNT(*) > 1 ; + INTO CURSOR cFacturiDup READWRITE + + SELECT cFacturiDup + SCAN + SCATTER NAME loFact + UPDATE (m.lcCursor) SET id_fact2 = loFact.id_fact, totctva = loFact.totctva WHERE nract = loFact.nract AND dataact = loFact.dataact AND id_part = loFact.id_part + ENDSCAN + USE IN (SELECT('cFacturiDup')) + + SELECT id_fact, id_fact2 FROM (m.lcCursor) WHERE id_fact <> id_fact2 INTO CURSOR cPurchaseInvoicesDup + + * Completez saftpartid, localitate, cod_tara din cCustomers/cSuppliers + * UPDATE (m.lcCursor) SET SaftPartId = This.GetCustSupCode('SUPPLIERS', id_part) WHERE !EMPTY(NVL(id_part,0)) + + SELECT distinct id_part FROM (m.lcCursor) INTO CURSOR cIdpartTemp + SELECT cIdPartTemp + SCAN + lnIdPart = id_part + IF SEEK(m.lnIdPart, m.lcCursorPartener,'id_part') + lcSaftPartId = ALLTRIM(&lcCursorPartener..SaftPartId) + lcLocalitate = ALLTRIM(&lcCursorPartener..localitate) + lcCodTara = ALLTRIM(&lcCursorPartener..cod_Tara) + UPDATE (m.lcCursor) SET saftPartId = m.lcSaftPartId, localitate = m.lcLocalitate, cod_tara = m.lcCodTara WHERE id_part = m.lnIdPart + ENDIF + ENDSCAN + USE IN (SELECT('cIdpartTemp')) + + * Completez SAFTPARTID contribuabil raportor daca nu exista partener in Registrul TVA + lcSaftPartId = '00' + This.oUnitate.codi + UPDATE (m.lcCursor) SET saftPartId = m.lcSaftPartId WHERE EMPTY(NVL(id_part,0)) + + * LINII FACTURI + * Tip 1 = vanzari detalii (nu se aplica) + * Tip = 2 articole facturi din gestiune (rul) + * mai sunt diferente intre liniile din Rulaj si notele contabile, posibil din rotunjiri pe baza/TVA, pentru care s-au pus note suplimentare in Registrul Jurnal + * Trebuie sa generez linie cu articol din nota din Registrul Jurnal + + * Tip = 3 articole facturi din Contabilitate (act) - tratez cazul 408 = 401 total cu TVA. Pun doar 100/119 din suma pe baza + * Tip = 4 note din contabilitate (act) ex: cheltuieli rotunjire zecimale, transport, discount pentru facturile din gestiune + * Tip 4 se sterge si se lasa doar diferentele fata de Tip = 2 + TEXT TO m.lcSql NOSHOW textmerge +select 2 as tip, + CAST(0 as number(5,0)) as nrcrt, + r.id_fact, + r.cod, + CAST(a.denumire as varchar2(100)) as descriere, + r.cant as cantitate, + 0 as pret_cu_tva, + r.pret as pret, + r.pretd as pretv, + CAST(0 as number(20,4)) as valoare, + CAST(0 as number(20,4)) as valoarev, + CAST(0 as number(20,4)) as taxa, + CAST(0 as number(20,4)) as taxav, + r.id_valuta, + r.curs, + r.taxcode, + st.taxtype, + st.taxname, + st.procent_taxa as proc_tva, + vi.iso_valuta as cod_valuta, + r.cont + from rul r + join jc2007 j + on r.an = j.an + and r.luna = j.luna + and r.id_fact = j.id_fact + join nom_fdoc f on j.id_fdoc = f.id_fdoc + left join nom_valute nv + on r.id_valuta = nv.id_valuta + left join syn_nom_valute_iso vi + on nv.id_valuta_iso = vi.id_valuta_iso + left join nom_articole a on r.id_articol = a.id_articol + left join vsaft_taxtable st on r.taxcode = st.taxcode + where r.an * 12 + r.luna between <> and <> + and f.tip_doc in ('F', 'M', 'C', 'INV') + and r.sters = 0 +union all +select 3 as tip, + CAST(0 as number(5,0)) as nrcrt, + id_fact, + cod, + CAST(MAX(explicatia) as varchar2(100)) as descriere, + 1 as cantitate, + 0 as pret_cu_tva, + sum(decode(exceptie, 1, -1, 1) * suma) as pret, + sum(decode(exceptie, 1, -1, 1) * suma_val) as pretv, + CAST(0 as number(20,4)) as valoare, + CAST(0 as number(20,4)) as valoarev, + CAST(0 as number(20,4)) as taxa, + CAST(0 as number(20,4)) as taxav, + id_valuta, + curs, + taxcode, + taxtype, + taxname, + proc_tva, + cod_valuta, + decode(exceptie, 1, scc, scd) as cont + from (select a.id_fact, + a.cod, + a.explicatia, + (CASE when a.scd = '408' AND a.scc like '4%' then ROUND(a.suma * 100 / (100 + st.procent_taxa), 2) else a.suma end) as suma, + (CASE when a.scd = '408' AND a.scc like '4%' then ROUND(a.suma_val * 100 / (100 + st.procent_taxa), 2) else a.suma_val end) as suma_val, + a.id_valuta, + a.curs, + a.taxcode, + st.taxtype, + st.taxname, + st.procent_taxa as proc_tva, + vi.iso_valuta as cod_valuta, + a.scd, + a.scc, + (SELECT DISTINCT 1 AS EXCEPTIE + FROM EXCEPTII_IREG + WHERE INVERS = 1 + AND CONT = a.scd and cont_c = a.scc) as exceptie + from act a + join jc2007 j + on a.an = a.an + and a.luna = j.luna + and a.id_fact = j.id_fact + join nom_fdoc f on j.id_fdoc = f.id_fdoc + left join nom_valute nv + on a.id_valuta = nv.id_valuta + left join syn_nom_valute_iso vi + on nv.id_valuta_iso = vi.id_valuta_iso + left join vsaft_taxtable st on a.taxcode = st.taxcode + where a.an * 12 + a.luna between <> and <> + and a.sters = 0 + and a.taxcode is not null + AND substr(a.scd, 1, 3) <> '442' and substr(a.scc, 1, 3) <> '442' + and j.id_fact not in + (select id_fact + from rul + where an * 12 + luna between <> and <> + and id_fact is not null and sters=0) + and f.tip_doc in ('F', 'M', 'C', 'INV')) + group by id_fact, + cod, + id_valuta, + curs, + taxcode, + taxtype, + taxname, + proc_tva, + cod_valuta, + decode(exceptie, 1, scc, scd) +union all +select 4 as tip, + CAST(0 as number(5,0)) as nrcrt, + id_fact, + cod, + CAST('VERIFICARE' as varchar2(100)) as descriere, + 1 as cantitate, + 0 as pret_cu_tva, + sum(decode(exceptie, 1, -1, 1) * suma) as pret, + sum(decode(exceptie, 1, -1, 1) * suma_val) as pretv, + CAST(0 as number(20,4)) as valoare, + CAST(0 as number(20,4)) as valoarev, + CAST(0 as number(20,4)) as taxa, + CAST(0 as number(20,4)) as taxav, + id_valuta, + curs, + taxcode, + taxtype, + taxname, + proc_tva, + cod_valuta, + decode(exceptie, 1, scc, scd) as cont + from (select a.id_fact, + a.cod, + a.explicatia, + (CASE when a.scd = '408' AND a.scc like '4%' then ROUND(a.suma * 100 / (100 + st.procent_taxa), 2) else a.suma end) as suma, + (CASE when a.scd = '408' AND a.scc like '4%' then ROUND(a.suma_val * 100 / (100 + st.procent_taxa), 2) else a.suma_val end) as suma_val, + a.id_valuta, + a.curs, + a.taxcode, + st.taxtype, + st.taxname, + st.procent_taxa as proc_tva, + vi.iso_valuta as cod_valuta, + a.scd, + a.scc, + (SELECT DISTINCT 1 AS EXCEPTIE + FROM EXCEPTII_IREG + WHERE INVERS = 1 + AND CONT = a.scd and cont_c = a.scc) as exceptie + from act a + join jc2007 j + on a.an = a.an + and a.luna = j.luna + and a.id_fact = j.id_fact + join nom_fdoc f on j.id_fdoc = f.id_fdoc + left join nom_valute nv + on a.id_valuta = nv.id_valuta + left join syn_nom_valute_iso vi + on nv.id_valuta_iso = vi.id_valuta_iso + left join vsaft_taxtable st on a.taxcode = st.taxcode + where a.an * 12 + a.luna between <> and <> + and a.sters = 0 + and a.taxcode is not null + AND substr(a.scd, 1, 3) <> '442' and substr(a.scc, 1, 3) <> '442' + and j.id_fact in + (select id_fact + from rul + where an * 12 + luna between <> and <> + and id_fact is not null and sters=0) + and f.tip_doc in ('F', 'M', 'C', 'INV')) + group by id_fact, + cod, + id_valuta, + curs, + taxcode, + taxtype, + taxname, + proc_tva, + cod_valuta, + decode(exceptie, 1, scc, scd) + ENDTEXT + + llSucces = goExecutor.oExecuta(m.lcSql, m.lcCursorLinesTemp) + + *5331938 + IF m.llSucces + SELECT (m.lcCursorLines) + APPEND FROM DBF(m.lcCursorLinesTemp) + USE IN (SELECT(m.lcCursorLinesTemp)) + + * la Tip = 4 note din Registrul Jurnal aferente facturilor din gestiune + * verific daca suma din gestiune pe taxcode = suma din registrul jurnal pe taxcode si las doar diferentele fata de rulaj + * articolele preluate din gestiune au pretul in lei + ******************************************* + + * Diferente valori pe fiecare taxcode tip = 2 (facturi din gestiune) + SELECT a.an, a.luna, a.id_fact, a.nract, a.dataact, a.id_part, a.denumire, b.taxcode, b.cont, ; + SUM(b.cantitate * b.pret) as valoare, ; + SUM(b.cantitate * b.pretv) as valoarev ; + FROM (m.lcCursor) a LEFT JOIN (m.lcCursorLines) b ON a.id_fact = b.id_fact ; + WHERE b.tip = 2 ; + GROUP BY a.an, a.luna, a.id_fact, a.nract, a.dataact, a.id_part, a.denumire, b.taxcode, b.cont ; + order by a.an, a.luna, a.dataact, a.nract ; + INTO CURSOR cFacturiTaxCode2 + + + * suma din Registrul Jurnal fara TVA, pentru documentele introduse din gestiune, scd = 3xx, tip = 4 + * tratez regularizare facturi nesosite/neintocmite 408=401, 4111=418 + SELECT a.an, a.luna, a.id_fact, a.nract, a.dataact, a.id_part, a.denumire, b.taxcode, b.cont, ; + SUM(b.cantitate * b.pret) as valoare, ; + SUM(b.cantitate * b.pretv) as valoarev ; + FROM (m.lcCursor) a LEFT JOIN (m.lcCursorLines) b ON a.id_fact = b.id_fact ; + WHERE b.tip = 4 ; + GROUP BY a.an, a.luna, a.id_fact, a.nract, a.dataact, a.id_part, a.denumire, b.taxcode, b.cont ; + order by a.an, a.luna, a.dataact, a.nract ; + INTO CURSOR cFacturiTaxCode4 + + SELECT cFacturiTaxCode4 + SCAN + SCATTER NAME loRec + SELECT cFacturiTaxCode2 + LOCATE FOR id_fact = loRec.id_fact AND taxcode = loRec.taxcode AND cont = loRec.cont + IF FOUND() + lnSuma = valoare + lnSumaV = valoarev + ELSE + lnSuma = 0 + lnSumaV = 0 + ENDIF + lnDiferenta = NVL(lorec.valoare,0) - NVL(m.lnSuma,0) + lnDiferentaV = NVL(lorec.valoarev,0) - NVL(m.lnSumaV,0) + IF ABS(m.lnDiferenta) > 0.05 + SELECT (m.lcCursorLines) + LOCATE FOR id_fact = loRec.id_fact AND taxcode = loRec.taxcode AND cont = loRec.cont AND tip = 4 + IF FOUND() + REPLACE pret WITH m.lnDiferenta, pretv WITH m.lnDiferentaV, descriere WITH 'DIFERENTA' + ENDIF + ENDIF + ENDSCAN + * Sterg liniile articolelor tip = 4 pe care nu le-am modificat cu diferenta fata de rulaj + DELETE FROM (m.lcCursorLines) WHERE tip = 4 AND descriere = 'VERIFICARE' + ******************************************* + + * Completare Nr. Crt. + lnIdFact = -1 + lnNrCrt = 0 + SELECT (m.lcCursorLines) + SCAN + IF id_fact <> m.lnIdFact + lnNrCrt = 0 + lnIdFact = id_fact + ENDIF + lnNrCrt = lnNrCrt + 1 + REPLACE nrcrt WITH m.lnNrCrt + ENDSCAN + + UPDATE (m.lcCursorLines) SET taxa = ROUND(ROUND(cantitate * pret, 2) * proc_tva / 100, 2), ; + taxav = ROUND(ROUND(cantitate * pretv, 2) * proc_tva / 100, 2), ; + valoare = ROUND(cantitate * pret, 2), valoarev = ROUND(cantitate * pretv, 2) + + * Unificare elemente facturi de pe facturi duplicate (introduse din gestiune, contabilitate, facturare) + SELECT (m.lcCursor) + SCAN FOR id_fact <> id_fact2 + SCATTER NAME loFact + UPDATE (m.lcCursorLines) SET id_fact = loFact.id_fact2 WHERE id_fact = loFact.id_fact + ENDSCAN + DELETE FROM (m.lcCursor) WHERE id_fact <> id_fact2 + + + ENDIF + ENDIF && m.llSucces + + GO TOP IN (m.lcCursor) + + USE IN (SELECT('cFacturiTaxCode2')) + USE IN (SELECT('cFacturiTaxCode4')) + + SELECT (m.lcSelect) + RETURN m.llSucces + ENDFUNC + +************************************************ +* cursor cPayments +* iau toate inregistrarile din act care au paymentcode completat +************************************************ + Function oPayments + + Local lcSelect, lcSql, llSucces, lnAn1, lnAn2, lnLuna1, lnLuna2 + lcSelect = Select() + + lnAn1 = This.oUnitate.an1 + lnLuna1 = This.oUnitate.luna1 + lnAn2 = This.oUnitate.an2 + lnLuna2 = This.oUnitate.luna2 + + Create Cursor cPayments(; + an N(6) null,; + luna N(4) null,; + cod N(20) null,; + id_fact N(20) null,; + dataact T(8) null,; + cont C(4) null,; + tipdc C(4) null,; + id_part N(20) null,; + saftpartid C(30) null,; + taxtype N(3) null,; + taxcode N(6) null,; + taxname C(250) null,; + paymentcode C(9) null,; + paymentname C(250) null,; + methodcode C(10) NULL, ; + id_valuta N(7) null,; + curs N(14,6) null,; + explicatia C(250) null, ; + suma N(20,4) null,; + suma_val N(20,4) null,; + denumire C(250) null, ; + cod_fiscal C(30) null,; + tip_persoana N(1) null,; + cod_tara C(5) null,; + cod_valuta C(3) null) + + Text To m.lcSql Noshow Textmerge +select c.an, + c.luna, + c.cod, + c.id_fact, + c.dataact, + c.cont, + c.tipdc, + c.id_part, + tx.taxtype, + c.taxcode, + tx.taxname, + c.paymentcode, + mp.paymentname, + mp.methodcode, + c.id_valuta, + c.curs, + decode(c.explicatia, NULL, decode(c.tipdc, 'D','INCASARE', 'PLATA'), c.explicatia) as explicatia, + c.suma, + c.suma_val, + p.denumire, + p.cod_fiscal, + p.tip_persoana, + t.prescurtare as cod_tara, + nvl(v.nume_val2, 'RON') as cod_valuta, + CAST(null as varchar2(30)) as saftpartid + from (select an, + luna, + cod, + id_fact, + dataact, + cont, + tipdc, + id_part, + taxcode, + paymentcode, + id_valuta, + curs, + max(explicatia) as explicatia, + sum(suma) as suma, + sum(suma_val) as suma_val + from (select a.an, + a.luna, + a.cod, + a.id_fact, + a.dataact, + case + when substr(a.scd, 1, 3) in ('512', '531', '508') then + scc + when substr(a.scc, 1, 3) in ('512', '531', '508') then + scd + when substr(a.scd, 1, 3) in + ('411', + '401', + '404', + '409', + '461', + '462', + '418', + '419', + '473') then + scd + when substr(a.scc, 1, 3) in + ('411', + '401', + '404', + '409', + '461', + '462', + '418', + '419', + '473') then + scc + when a.id_factd <> 0 then + scd + when a.id_factc <> 0 then + scc + else + cast(null as varchar2(4)) + end as cont, + case + when substr(a.scd, 1, 3) in ('512', '531', '508') then + 'D' + when substr(a.scc, 1, 3) in ('512', '531', '508') then + 'C' + when substr(a.scd, 1, 3) in + ('411', + '401', + '404', + '409', + '461', + '462', + '418', + '419', + '473') then + 'C' + when substr(a.scc, 1, 3) in + ('411', + '401', + '404', + '409', + '461', + '462', + '418', + '419', + '473') then + 'D' + when a.id_factd <> 0 then + 'C' + when a.id_factc <> 0 then + 'D' + else + cast(null as varchar2(4)) + end as tipdc, + case + when substr(a.scd, 1, 3) in ('512', '531', '508') then + id_partc + when substr(a.scc, 1, 3) in ('512', '531', '508') then + id_partd + when substr(a.scd, 1, 3) in + ('411', + '401', + '404', + '409', + '461', + '462', + '418', + '419', + '473') then + id_partd + when substr(a.scc, 1, 3) in + ('411', + '401', + '404', + '409', + '461', + '462', + '418', + '419', + '473') then + id_partc + when a.id_factd <> 0 then + id_partd + when a.id_factc <> 0 then + id_partc + else + cast(null as number(10)) + end as id_part, + a.taxcode, + a.paymentcode, + a.id_valuta, + a.curs, + a.suma, + a.suma_val, + a.explicatia + from act a + where a.sters = 0 + and a.an * 12 + a.luna between <> and <> + and a.paymentcode is not null and scd <> '581' and scc <> '581' and not (substr(a.scd, 1, 3) in ('512', '531', '542') and substr(a.scc, 1, 3) in ('512', '531', '542'))) a + group by an, + luna, + cod, + id_fact, + dataact, + cont, + tipdc, + id_part, + taxcode, + paymentcode, + id_valuta, + curs) c + left join vsaft_taxtable tx + on c.taxcode = tx.taxcode + left join nom_parteneri p + on c.id_part = p.id_part + left join adrese_parteneri ap + on (p.id_part = ap.id_part and ap.sters = 0 and ap.principala = 1) + left join syn_nom_tari t + on t.id_tara = ap.id_tara + left join vnom_valute v + on c.id_valuta = v.id_valuta + left join vsaft_mecanisme_plati mp on c.paymentcode = mp.mechanismcode + Endtext + + llSucces = goExecutor.oExecuta(m.lcSql, 'cPaymentsTemp') + IF m.llSucces + SELECT cPayments + APPEND FROM DBF('cPaymentsTemp') + USE IN (SELECT('cPaymentsTemp')) + + UPDATE cPayments SET SaftPartId = This.GenCustSupCode(id_part, cod_tara, tip_persoana, cod_fiscal) WHERE !EMPTY(NVL(id_part,0)) + ENDIF + GO TOP IN cPayments + + Select (m.lcSelect) + Return m.llSucces + + Endfunc && oPayments + +************************************************ +* cursor cAnalysisTypeTable +************************************************ + Function oAnalysisTypeTable + + Local lcSelect, lcSql, llSucces, lnAn1, lnAn2, lnLuna1, lnLuna2 + lcSelect = Select() + +* AnalysisTypeTable + Text To m.lcSql Noshow Textmerge +select id_sectie, + id_sucursala, + 'S' || CASE + WHEN id_sucursala is NOT NULL THEN + id_sucursala + else + 0 + end || '-C' || id_sectie as cod, + case + when id_sucursala is not null then + sucursala + else + 'S0' + end || '-' || sectie as descriere + from vnom_sectii + Endtext + + llSucces = goExecutor.oExecuta(m.lcSql, 'cAnalysisTypeTable') + If m.llSucces + Select cAnalysisTypeTable + Index On Padl(Nvl(id_sucursala, 0), 20, '0') + Padl(Nvl(id_sectie, 0), 20, '0') Tag cod + Endif + + Select (m.lcSelect) + Return m.llSucces + + Endfunc && oAnalysisTypeTable + + ************************************************ + * cursor cOwners + ************************************************ + Function oOwners + Local lcSelect, lcSql, llSucces, lnAn1, lnAn2, lnLuna1, lnLuna2 + lcSelect = Select() + + lnAn1 = This.oUnitate.an1 + lnLuna1 = This.oUnitate.luna1 + lnAn2 = This.oUnitate.an2 + lnLuna2 = This.oUnitate.luna2 + + Text To m.lcSql Noshow Textmerge +SELECT s.id_part, + NVL(TRIM(p.denumire), 'NEDEFINIT') as denumire, + p.cod_fiscal, + p.tip_persoana, + a.strada, + a.numar, + a.localitate, + a.indicativ_judet, + a.cod_tara, + CAST(null as varchar2(30)) as saftpartid +from (select distinct id_part_rez as id_part + FROM stoc + WHERE an * 12 + luna between <> and <> + and SUBSTR(cont,1,2) = '35' and NVL(id_part_rez,0) <> 0) s + join nom_parteneri p on s.id_part = p.id_part + LEFT JOIN (SELECT ap.id_part, + ap.strada, + ap.numar, + l.localitate, + j.indicativ as indicativ_judet, + ap.codpostal, + t.prescurtare as cod_tara + FROM ADRESE_PARTENERI ap + left join syn_nom_localitati l + on l.id_loc = ap.id_loc + left join syn_nom_judete j + on j.id_judet = l.id_judet + left join syn_nom_tari t + on t.id_tara = ap.id_tara + WHERE ap.STERS = 0 + AND ap.PRINCIPALA = 1) a + ON p.id_part = a.id_part + Endtext + + llSucces = goExecutor.oExecuta(m.lcSql, 'cOwners') + IF m.llSucces + UPDATE cOwners SET SaftPartId = This.GenCustSupCode(id_part, cod_tara, tip_persoana, cod_fiscal) WHERE !EMPTY(NVL(id_part,0)) + SELECT cOwners + INDEX on id_part TAG id_part + SET ORDER TO + ENDIF + GO TOP IN cOwners + * da eroare la validare pe anaf daca este gol + IF RECCOUNT('cOwners') = 0 + APPEND BLANK + REPLACE saftpartid WITH '00' + This.oUnitate.codi, denumire WITH Alltrim(gofirma.firma), localitate WITH gofirma.localitate, cod_tara WITH gofirma.cod_tara, strada WITH goFirma.strada, numar WITH goFirma.numar, indicativ_judet WITH goFirma.indicativ_judet + ENDIF + + Select (m.lcSelect) + Return m.llSucces + + Endfunc && oOwners + + ************************************************ + * cursor cAssets, cAssetTransactions + ************************************************ + Function oAssets + PRIVATE pdDataJ1, pdDataJ2 + Local lcSelect, lcSql, llSucces, lnAn1, lnAn2, lnLuna1, lnLuna2 + Local lcCursor, lnFiscal, lnTip, lnAn, lnLuna, lcListaCursoare + Local lnIdMf, lnIesire, lnIntrare, lnMajorare, lnNrLuni1, lnNrLuni2, lnReevaluare, lnIdOpPrec + Local lcCursorAssets, lcCursorAssetsFinal, lcCursorAssetsInitial, lnCursor + Local lnNrLuna, lnNrLuni + lcSelect = Select() + + CREATE CURSOR cAssets (id_mf I, AssetId C(35) null, AccountId C(20) null, DateOfAcquisition D null, StartUpDate D null, Description C(100) null, ; + AssetValuationType C(20) null, ValuationClass C(20) null, AcquisitionAndProductionCostsBegin N(18,2) null, AcquisitionAndProductionCostsEnd N(18,2) null, InvestmentSupport N(18,2) null, ; + AssetLifeYear N(18,4) null, DepreciationMethod C(20) null, DepreciationPercentage N(18,4) null, ; + AssetAddition N(18,2) null, Transfers N(18,2) null, AssetDisposal N(18,2) null, BookValueBegin N(18,2) null,DepreciationForPeriod N(18,2) null, AppreciationForPeriod N(18,2) null,; + ExtraordinaryDepreciationMethod C(35) null, ExtraordinaryDepreciationAmountForPeriod N(18,2) null,; + AccumulatedDepreciation N(18,2) null, BookValueEnd N(18,2) null, tip_imobilizare C(30) null, ; + AppreciationForPeriodMinus N(18,2) null, AccumulatedDepreciationBegin N(18,2) null) + + CREATE CURSOR cAssetTransactions (AssetTransactionID C(70) null, AssetID C(35) null, AssetTransactionType C(9) null, Description C(250) NULL, ; + AssetTransactionDate D null, TransactionID C(70) null, AssetValuationType C(18) null, ; + AcquisitionAndProductionCostsOnTransaction N(18,2) null, BookValueOnTransaction N(18,2) null, AssetTransactionAmount N(18,2) null, ; + Denumire C(100) null, Tip_imobilizare C(30) null, id_mf I null) + + llSucces = .T. + + lnAn1 = This.oUnitate.an1 + lnLuna1 = This.oUnitate.luna1 + lnAn2 = This.oUnitate.an2 + lnLuna2 = This.oUnitate.luna2 + lnNrLuni1 = m.lnAn1*12+m.lnLuna1 + lnNrLuni2 = m.lnAn2*12+m.lnLuna2 + lnNrLuni0 = m.lnNrLuni1 - 1 && decembrie anterior, pentru valoarea de inventar de la inceputul perioadei + + pdDataJ1 = Date(lnAn1, lnLuna1, 1) + pdDataJ2 = GOMONTH(Date(lnAn2, lnLuna2, 1),1)-1 + + + * Obtin cursoare amortizari lunare + lnFiscal = 0 && amortizarea contabila + lnTip = 0 && toate imobilizarile + lnNrLuna = 0 + + FOR lnNrLuni = m.lnNrLuni0 TO m.lnNrLuni2 + lnNrLuna = m.lnNrLuna + 1 + lnAn = 0 + lnLuna = 0 + NrLuni2AnLuna(m.lnNrLuni, @lnAn, @lnLuna) + * Luna inceput + lcCursor = GET_CURSOR_AMORTIZARI(m.lnFiscal, m.lnAn, m.lnLuna, m.lnTip) + llSucces = !Empty(lcCursor) + lcCursorAssets = 'cAssets' + ALLTRIM(STR(m.lnNrLuna)) + + IF m.llSucces + * Selectez imobilizari corporale si necorporale, aflate in gestiune sau iesite din gestiune in perioada raportarii, fara terenuri cod_mf "0.0." + SELECT * ; + FROM (m.lcCursor) ; + WHERE INLIST(id_tip_imobilizare,1,2) AND (IESIT_DIN_GEST = 0 OR (IESIT_DIN_GEST = 1 AND BETWEEN(YEAR(DATA_OPERATIE)*12+MONTH(data_operatie), m.lnNrLuni1, m.lnNrLuni2))) ; + INTO CURSOR (m.lcCursorAssets) + ENDIF + * Deprecierea lunara (rata de amortizat) + DO CASE + CASE m.lnNrLuna = 1 && luna decembrie anterioara, pentru valori initiale la inceputul perioadei + SELECT m.lnNrLuni as nrluna, m.lnAn as an, m.lnLuna as luna, * FROM (m.lcCursorAssets) INTO CURSOR cAssets00 + CASE m.lnNrLuna = 2 && luna ianuarie, prima luna din perioada + SELECT m.lnNrLuni as nrluna, m.lnAn as an, m.lnLuna as luna, * FROM (m.lcCursorAssets) INTO CURSOR cAmortizareLunara READWRITE + OTHERWISE + SELECT m.lnNrLuni as nrluna, m.lnAn as an, m.lnLuna as luna, * FROM (m.lcCursorAssets) INTO CURSOR cAmortizareLunaraTemp READWRITE + + SELECT cAmortizareLunara + APPEND FROM DBF('cAmortizareLunaraTemp') + USE IN (SELECT('cAmortizareLunaraTemp')) + ENDCASE + + USE IN (select(m.lcCursor)) + USE IN (SELECT(m.lcCursorAssets)) + ENDFOR + + * Prima luna in care apare imobilizarea, ca sa citesc amortizarea precedenta cu care intra in perioada de raportare + SELECT id_mf, MIN(nrluna) as nrluna ; + FROM cAmortizareLunara ; + GROUP BY id_mf ; + INTO CURSOR cIdMfMin + + * Ultima luna in care apare imobilizarea + SELECT id_mf, max(nrluna) as nrluna ; + FROM cAmortizareLunara ; + GROUP BY id_mf ; + INTO CURSOR cIdMfMax + + SELECT a.* FROM cAmortizareLunara a JOIN cIdMfMin b ON a.id_mf = b.id_mf AND a.nrluna = b.nrluna INTO CURSOR cAssetsInitial && prima aparitie a imobilizarii intre ianuarie-decembrie + SELECT a.* FROM cAmortizareLunara a JOIN cIdMfMax b ON a.id_mf = b.id_mf AND a.nrluna = b.nrluna INTO CURSOR cAssetsFinal && ultima aparitie a imobilizarii intre ianuarie-decembrie + + SELECT a.* FROM cAmortizareLunara a WHERE a.nrluna = m.lnNrLuni1 INTO CURSOR cAssets01 && ianuarie + SELECT a.* FROM cAmortizareLunara a WHERE a.nrluna = m.lnNrLuni2 INTO CURSOR cAssets12 && decembrie + + * Valori ale imobilizarilor existente la inceputul si/sau sfarsitul perioadei de raportare & existentei in imobilizari + SELECT NVL(a1.id_mf, a2.id_mf) as id_mfa, CAST(ALLTRIM(STR(NVL(a1.id_tip_imobilizare, a2.id_tip_imobilizare))) + '_' + ALLTRIM(TRANSFORM(NVL(a1.nr_inventar, a2.nr_inventar))) as C(35)) as AssetId, ; + NVL(a1.cont, a2.cont) as AccountId, ; + TTOD(NVL(a1.data_achizitie, a2.data_achizitie)) as DateOfAcquisition, TTOD(NVL(a1.data_pif, a2.data_pif)) as StartUpDate, ; + NVL(a1.denumire, a2.denumire) as Description, 'contabil' as AssetValuationType, NVL(a1.cod_mf, a2.cod_mf) as ValuationClass, ; + CAST(IIF(YEAR(NVL(a1.data_pif, DATE()))*12+MONTH(NVL(a1.data_pif, DATE())) >= m.lnNrLuni1, 0, NVL(a00.valoare, 0)) as N(18,2)) as AcquisitionAndProductionCostsBegin, ; + ROUND(NVL(a1.dns_luni, a2.dns_luni)/12,4) as AssetLifeYear, NVL(a1.tip_amortizare, a2.tip_amortizare) as DepreciationMethod, ; + CAST(IIF(YEAR(NVL(a1.data_pif, DATE()))*12+MONTH(NVL(a1.data_pif, DATE())) >= m.lnNrLuni1, 0, NVL(a00.valoare,0)-NVL(a01.amort_prec,0)) as N(18,2))as BookValueBegin, ; + NVL(a12.valoare,0)-NVL(a12.amort_prec,0) - NVL(a12.rata,0) as BookValueEnd, ; + NVL(a1.tip_imobilizare, a2.tip_imobilizare) as tip_imobilizare ; + from cAssetsInitial a1 FULL JOIN cAssetsFinal a2 ON a1.id_mf = a2.id_mf ; + FULL JOIN cAssets00 a00 ON a1.id_mf = a00.id_mf ; + FULL JOIN cAssets01 a01 ON a1.id_mf = a01.id_mf ; + FULL JOIN cAssets12 a12 ON a2.id_mf = a12.id_mf ; + INTO CURSOR cAssetsTemp1 READWRITE + + USE IN (SELECT('cAssetsInitial')) + USE IN (SELECT('cAssetsFinal')) + * USE IN (SELECT('cAssets01')) + * USE IN (SELECT('cAssets12')) + + * Amortizare precedenta + SELECT a.id_mf, a.amort_prec, a.cota_an ; + FROM cAmortizareLunara a JOIN cIdMfMin b ON a.id_mf = b.id_mf AND a.nrluna = b.nrluna ; + INTO CURSOR cAmortizarePrec + + * Amortizare totala + * daca amortizarea precedenta se modifica in perioada, amortizarea totala nu mai este egala cu amortizarea precedenta initiala + amortizarea in perioada + * iau amortizarea precedenta din ultima luna + amortizarea din ultima luna + SELECT a.id_mf, a.amort_prec + a.rata as amort_tot ; + FROM cAmortizareLunara a JOIN cIdMfMax b ON a.id_mf = b.id_mf AND a.nrluna = b.nrluna ; + INTO CURSOR cAmortizareTot + + USE IN (SELECT('cIdMfMin')) + USE IN (SELECT('cIdMfMax')) + + * Amortizare in perioada + SELECT id_mf, SUM(rata) as rata ; + FROM cAmortizareLunara ; + GROUP BY id_mf ; + INTO CURSOR cAmortizareLuna + + + SELECT NVL(a.id_mf, b.id_mf) as id_mf, CAST(NVL(a.rata, 0) as N(18,2)) as rata, CAST(NVL(b.amort_prec, 0) as N(18,2)) as amort_prec, CAST(NVL(b.cota_an, 0) as N(18,4)) as cota_an, ; + CAST(NVL(c.amort_tot, 0) as N(18,2)) as amort_tot ; + FROM cAmortizareLuna a FULL JOIN cAmortizarePrec b ON a.id_mf = b.id_mf ; + FULL JOIN cAmortizareTot c ON a.id_mf = c.id_mf ; + INTO CURSOR cAmortizarePerioada + + USE IN (SELECT('cAmortizareLuna')) + USE IN (SELECT('cAmortizarePrec')) + USE IN (SELECT('cAmortizareTot')) + + WAIT WINDOW 'Selectie operatii imobilizari ...' NOWAIT + + * Operatii (intrare, iesire, majorare, reevaluare, transfer) + TEXT TO lcSql TEXTMERGE NOSHOW +select extract(year FROM data_operatie)*12+extract(month FROM data_operatie) as nrluna, id_tip_imobilizare, tip_imobilizare, + id_tip_operatie, id_tip_iesire, tip_operatie, id_operatie_mf, id_operatie_prec, data_operatie, + id_mf, denumire, id_calcul_rate, nr_inventar, valoare, valoare_ant, valoare_dif, valoare_ramasa, dns_ramas, valoare_iesire, rata, amort_prec + from imob_vjurnal_operatii_simplu + where (DATA_OPERATIE BETWEEN ?pdDataJ1 and ?pdDataJ2) and id_tip_imobilizare IN(1,2) + ORDER BY ID_MF, ID_OPERATIE_MF + ENDTEXT + + llSucces = goExecutor.oExecuta(m.lcSql, "cJurnalImobTemp") + + * Valori jurnal cumulate pe id_mf (intrare, majorare, iesire, reevaluare) + SELECT id_mf, ; + CAST(SUM(IIF(INLIST(id_tip_operatie, 1, 2, 3), valoare_dif, 0)) as N(18,2)) as intrare, ; + CAST(SUM(IIF(id_tip_operatie = 4, valoare, 0)) as N(18,2)) as iesire, ; + CAST(SUM(IIF(INLIST(id_tip_operatie, 6, 12) OR (valoare_dif <> 0 AND !INLIST(id_tip_operatie, 1, 2, 3, 4, 5, 6, 7, 12, 15)), valoare_dif, 0)) as N(18,2)) as majorare, ; + CAST(SUM(IIF(INLIST(id_tip_operatie, 7, 15) AND valoare_dif > 0, valoare_dif, 0)) as N(18,2)) as reevaluare, ; + CAST(SUM(IIF(INLIST(id_tip_operatie, 7, 15) AND valoare_dif < 0, -valoare_dif, 0)) as N(18,2)) as reevaluareminus ; + FROM cJurnalImobTemp ; + GROUP BY id_mf ; + INTO CURSOR cJurnalImobTemp2 + + SELECT NVL(a.id_mfa, b.id_mf) as id_mfb, a.*, CAST(NVL(b.rata, 0) as N(18,2)) as DepreciationForPeriod, CAST(NVL(b.amort_tot,0) as N(18,2)) as AccumulatedDepreciation, ; + CAST(NVL(b.amort_prec,0) as N(18,2)) as AccumulatedDepreciationBegin, ; + CAST(NVL(b.cota_an,0) as N(18,4)) as DepreciationPercentage ; + FROM cAssetsTemp1 a FULL JOIN cAmortizarePerioada b ON a.id_mfa = b.id_mf ; + INTO CURSOR cAssetsTemp2 + USE IN (SELECT('cAmortizarePerioada')) + USE IN (SELECT('cAssetsTemp1')) + + SELECT NVL(a.id_mfb, b.id_mf) as id_mf, a.*, ; + CAST(NVL(a.AcquisitionAndProductionCostsBegin, 0.00) + NVL(b.intrare, 0.00) - NVL(b.iesire, 0.00) + NVL(b.majorare, 0.00) as N(18,2)) as AcquisitionAndProductionCostsEnd, ; + CAST(NVL(b.intrare, 0.00) + NVL(b.majorare, 0.00) as N(18,2)) as AssetAddition, ; + CAST(NVL(b.iesire, 0.00) as N(18,2)) as AssetDisposal, ; + CAST(NVL(b.reevaluare, 0.00) as N(18,2)) as AppreciationForPeriod, ; + CAST(NVL(b.reevaluareminus, 0.00) as N(18,2)) as AppreciationForPeriodMinus ; + FROM cAssetsTemp2 a FULL JOIN cJurnalImobTemp2 b ON a.id_mfb = b.id_mf ; + INTO CURSOR cAssetsTemp3 + + USE IN (SELECT('cAssetsTemp2')) + USE IN (SELECT('cJurnalImobTemp2')) + + SELECT cAssets + APPEND FROM DBF('cAssetsTemp3') + USE IN (SELECT('cAssetsTemp3')) + + SELECT cAssets + INDEX on AssetId TAG assetid + UPDATE cAssets SET DepreciationPercentage = 0 WHERE DepreciationPercentage < 0 + GO TOP + + ********************* + * Asset Transactions + ********************* + + * Act.cod nota inchidere amortizare corporale id_set 90003, necorporale id_set 90009 + TEXT TO lcSql TEXTMERGE NOSHOW + SELECT an*12+luna as nrluna, decode(id_set, 90003, 1, 2) as id_tip_imobilizare, MAX(cod) as cod + FROM vact + WHERE an*12+luna between <> and <> and id_set in (90003, 90009) + group by an*12+luna,decode(id_set, 90003, 1, 2) + ENDTEXT + llSucces = goExecutor.oExecuta(m.lcSql, 'cNoteInchideriAmortizare') + + * Daca firma nu are imobilizari, da eroare la join-ul de mai jos + * adaug o linie goala + IF RECCOUNT('cAmortizareLunara') = 0 + INSERT INTO cAmortizareLunara (an, luna) VALUES (m.gnAn, m.gnLuna) + ENDIF + + * Amortizari lunare, AssetTransactionType = 30 + SELECT CAST(ALLTRIM(STR(a.id_operatie_mf)) + '_' + ALLTRIM(STR(a.id_calcul_rate)) + '_' + ALLTRIM(STR(a.an)) + PADL(a.luna,2,'0') as C(70)) as AssetTransactionID, ; + CAST(ALLTRIM(STR(NVL(a.id_tip_imobilizare,'1'))) + '_' + ALLTRIM(TRANSFORM(a.nr_inventar)) as C(35)) as AssetID, '30' as AssetTransactionType, ; + 'Amortizare' as Description, GOMONTH(DATE(a.an, a.luna, 1),1)-1 as AssetTransactionDate, ; + CAST(INT(NVL(b.cod, 0)) as C(70)) as TransactionID, 'contabila' as AssetValuationType, ; + 0.00 as AcquisitionAndProductionCostsOnTransaction, a.rata as BookValueOnTransaction, a.rata as AssetTransactionAmount, ; + a.denumire, a.tip_imobilizare, a.id_mf ; + from cAmortizareLunara a LEFT JOIN cNoteInchideriAmortizare b ON a.id_tip_imobilizare = b.id_tip_imobilizare AND a.nrluna = b.nrluna ; + WHERE a.rata <> 0 ; + INTO CURSOR cAssetTransactionsTemp + + SELECT cAssetTransactions + APPEND FROM DBF('cAssetTransactionsTemp') + USE IN (SELECT('cAssetTransactionsTemp')) + + * Operatii (intrare, iesire, majorare, reevaluare, modificare cu istoric) + SELECT CAST(ALLTRIM(STR(a.id_operatie_mf)) + '_' + ALLTRIM(STR(a.id_calcul_rate)) + '_000000' as C(70)) as AssetTransactionID, ; + CAST(ALLTRIM(STR(NVL(a.id_tip_imobilizare,'1'))) + '_' + ALLTRIM(TRANSFORM(a.nr_inventar)) as C(35)) as AssetID, '130' as AssetTransactionType, ; + CAST(a.tip_operatie as C(70)) as Description, TTOD(a.data_operatie) as AssetTransactionDate, ; + CAST(INT(NVL(b.cod, 0)) as C(70)) as TransactionID, 'contabila' as AssetValuationType, ; + id_operatie_prec, id_mf, nr_inventar, denumire, id_tip_operatie, id_tip_iesire, tip_imobilizare, ; + valoare, valoare_ant, valoare_dif, valoare_ramasa, valoare_iesire, ; + CAST(0 as N(18,2)) as AcquisitionAndProductionCostsOnTransaction,; + CAST(0 as N(18,2)) as BookValueOnTransaction,; + CAST(0 as N(18,2)) as AssetTransactionAmount ; + FROM cJurnalImobTemp a LEFT JOIN cNoteInchideriAmortizare b ON a.id_tip_imobilizare = b.id_tip_imobilizare AND a.nrluna = b.nrluna ; + INTO CURSOR cAssetTransactionsTemp READWRITE + + USE IN (SELECT('cNoteInchideriAmortizare')) + + SELECT cAssetTransactionsTemp + SCAN + lnValoare = valoare + lnValoareIesire = NVL(valoare_iesire, 0) + IF m.lnValoareIesire = 0 + lnValoareIesire = valoare_ramasa + ENDIF + lnValoareRamasa = valoare_ramasa + lnValoareRamasaPrec = valoare_ramasa + lnValoareDif = valoare_dif && valoare - valoare_ant + lnIdTipOperatie = id_tip_operatie + lnIdTipIesire = NVL(id_tip_iesire,0) + lnIdOpPrec = NVL(id_operatie_prec, 0) + lnIdMf = NVL(id_mf, 0) + + DO CASE + CASE INLIST(lnIdTipOperatie, 1, 2, 3) && intrare, preluare, transformare in MF + lcAssetTransactionType = '10' + SELECT cAssetTransactionsTemp + REPLACE AcquisitionAndProductionCostsOnTransaction WITH m.lnValoare, BookValueOnTransaction WITH m.lnValoare, AssetTransactionAmount WITH m.lnValoare, AssetTransactionType WITH m.lcAssetTransactionType + + CASE INLIST(lnIdTipOperatie, 4) && iesire + lcAssetTransactionType = IIF(m.lnIdTipIesire = 1, '20', IIF(m.lnIdTipIesire = 2, '50', IIF(m.lnIdTipIesire = 5, '40', '50'))) + lcDescription = IIF(m.lnIdTipIesire = 1, 'Vanzare', IIF(m.lnIdTipIesire = 2, 'Casare', IIF(m.lnIdTipIesire = 5, 'Transfer', ALLTRIM(description)))) + SELECT cAssetTransactionsTemp + REPLACE AcquisitionAndProductionCostsOnTransaction WITH 0, BookValueOnTransaction WITH m.lnValoareRamasa, AssetTransactionAmount WITH m.lnValoareIesire-m.lnValoareRamasa, AssetTransactionType WITH m.lcAssetTransactionType, Description WITH m.lcDescription + + CASE INLIST(lnIdTipOperatie, 6, 12) OR (m.lnValoareDif <> 0 AND !INLIST(id_tip_operatie, 1, 2, 3, 4, 5, 6, 7, 12, 15)) && majorare sau alta operatie cu diferenta de valoare inventar, in afara de reevaluari, intrari, iesiri + lcAssetTransactionType = '130' && altele + SELECT cAssetTransactionsTemp + REPLACE AcquisitionAndProductionCostsOnTransaction WITH m.lnValoareDif, BookValueOnTransaction WITH m.lnValoareDif, AssetTransactionAmount WITH m.lnValoareDif, AssetTransactionType WITH m.lcAssetTransactionType + + CASE INLIST(lnIdTipOperatie, 7, 15) && reevaluare, reevaluare si modificare DNS + lcAssetTransactionType = IIF(m.lnValoareDif < 0, '60', '70') && reevaluare negativa/pozitiva + * aflare valoare_ramasa (Valoare neta) din luna anterioara reevaluarii + SELECT MAX(nrluna) as nrluna FROM cAmortizareLunara WHERE id_mf = m.lnIdMf AND id_operatie_mf = m.lnIdOpPrec INTO CURSOR cMaxLuna + lnNrLuna = NVL(cMaxLuna.nrluna, 0) + IF !EMPTY(m.lnNrLuna) + SELECT cAmortizareLunara + LOCATE FOR id_mf = m.lnIdMf AND id_operatie_mf = m.lnIdOpPrec AND nrluna = m.lnNrLuna + IF FOUND() + lnValoareRamasaPrec = valoare_ramasa + ENDIF + ENDIF + + SELECT cAssetTransactionsTemp + REPLACE AcquisitionAndProductionCostsOnTransaction WITH 0, BookValueOnTransaction WITH m.lnValoareDif, AssetTransactionAmount WITH m.lnValoareRamasa - m.lnValoareRamasaPrec, AssetTransactionType WITH m.lcAssetTransactionType + ENDCASE + ENDSCAN + + SELECT cAssetTransactions + APPEND FROM DBF('cAssetTransactionsTemp') + USE IN (SELECT('cAssetTransactionsTemp')) + + SELECT cAssetTransactions + INDEX on AssetId + AssetTransactionID TAG Ord + INDEX on assetid TAG assetid + INDEX on id_mf TAG id_mf + SET ORDER TO tag ord + + USE IN (SELECT('cAmortizareLunara')) + USE IN (SELECT('cJurnalImobTemp')) + + Select (m.lcSelect) + Return m.llSucces + + Endfunc && oAssets + + + ************************************************ + * cursor cMovementTypeTable + ************************************************ + Function oMovementTypeTable + + Local lcSelect, lcSql, llSucces, lnAn1, lnAn2, lnLuna1, lnLuna2 + lcSelect = Select() + + + Text To m.lcSql Noshow Textmerge +select movementtype, description + from saft_movementtypetable + order by to_number(movementtype) + Endtext + + llSucces = goExecutor.oExecuta(m.lcSql, 'cMovementTypeTable') + If m.llSucces + Select cMovementTypeTable + Index On VAL(movementtype) Tag mtype + Endif + + Select (m.lcSelect) + Return m.llSucces + + Endfunc && oMovementTypeTable + + ************************************************ + * cursor cProducts + ************************************************ + * La sectiunea MF 2.9 Products [Produse] se vor declara toate produsele care au miscari pe conturile de clasa 3, cu exceptia conturilor 303 (Obiete de inventar) si 32x (Stocuri in curs de aprovizionare); + * La sectiunea MF 2.10 PhysicalStock [Stocuri] se vor declara toate produsele existente in stoc la data raportarii cu exceptia valorilor inregistrate in conturile: Diferente de pret (308, 348 etc), Obiecte de inventar (303), Stocuri in curs de aprovizionare (32x), Ajustari (39xx) + * La sectiunea SD 4.4 MovementOfGoods [Mi?cari Bunuri] se vor raporta toate miscarile inregistrate pe clasa 3, cu exceptia contului 303 (Obiecte de Inventar) si Stocuri in curs de aprovizionare (32x). Iar, pentru diferentele de pret si ajustari elementul Quantity va fi "0". + Function oProducts + + Local lcSelect, lcSql, llSucces, lnAn1, lnAn2, lnLuna1, lnLuna2 + lcSelect = Select() + + lnAn1 = This.oUnitate.an1 + lnLuna1 = This.oUnitate.luna1 + lnAn2 = This.oUnitate.an2 + lnLuna2 = This.oUnitate.luna2 + + + Text To m.lcSql Noshow Textmerge +select distinct s.id_articol, a.denumire, a.codnc8, a.um, a.cod_um_iso, a.um_iso, a.codbare, '01' as goodsorservicesid + FROM stoc s join vnom_articole a on s.id_articol = a.id_articol + WHERE s.an * 12 + s.luna between <> and <> + and not (SUBSTR(s.cont,1,3) = '303' or SUBSTR(s.cont,1,2) in ('32', '39')) + order by a.denumire + Endtext + + llSucces = goExecutor.oExecuta(m.lcSql, 'cProducts') + If m.llSucces + * + Endif + + Select (m.lcSelect) + Return m.llSucces + + Endfunc && oProducts + + ************************************************ + * cursor cPhysicalStock + ************************************************ + Function oPhysicalStock + + Local lcSelect, lcSql, llSucces, lnAn1, lnAn2, lnLuna1, lnLuna2 + Local lcSaftPartId, lnIdPart + lcSelect = Select() + + lnAn1 = This.oUnitate.an1 + lnLuna1 = This.oUnitate.luna1 + lnAn2 = This.oUnitate.an2 + lnLuna2 = This.oUnitate.luna2 + + Text To m.lcSql Noshow Textmerge +select s.id_gestiune, + s.cgest, + s.id_articol, + s.pret, + s.cont, + s.id_part_rez as id_part, + p.denumire as partener, + s.canti, + s.vali, + s.cantf, + s.valf, + a.codnc8, + a.um, + a.cod_um_iso, + a.denumire, + CAST(null as varchar2(20)) as saftpartid + from (select id_gestiune, + cgest, + id_articol, + pret, + cont, + id_part_rez, + sum(canti) as canti, + sum(cantf) as cantf, + round(pret * sum(canti), 6) as vali, + round(pret * sum(cantf), 6) as valf + from (select s.id_gestiune, g.cgest, s.id_articol, decode(g.nr_pag, 6, s.pretv+s.tvav, s.pret) as pret, s.cont, s.id_part_rez, s.cants as canti, 0 as cantf + from stoc s join nom_gestiuni g on s.id_gestiune = g.id_gestiune + where s.an = <> and s.luna = <> + and not (SUBSTR(s.cont,1,3) = '303' or SUBSTR(s.cont,1,2) in ('32', '39')) + union all + select s.id_gestiune, g.cgest, s.id_articol, decode(g.nr_pag, 6, s.pretv+s.tvav, s.pret) as pret, s.cont, s.id_part_rez, 0 as canti, s.cants + s.cant - s.cante as cantf + from stoc s join nom_gestiuni g on s.id_gestiune = g.id_gestiune + where s.an = <> and s.luna = <> + and not (SUBSTR(s.cont,1,3) = '303' or SUBSTR(s.cont,1,2) in ('32', '39'))) + group by id_gestiune, cgest, id_articol, pret, cont, id_part_rez) s + join vnom_articole a + on s.id_articol = a.id_articol + left join nom_parteneri p on s.id_part_rez = p.id_part + order by s.cgest, a.denumire, s.pret, s.cont, p.denumire + Endtext + + llSucces = goExecutor.oExecuta(m.lcSql, 'cPhysicalStock') + IF m.llSucces + * completez ownerId pentru contul 35x (stocuri la terti, cu partener rezervare) + SELECT distinct id_part FROM cPhysicalStock WHERE !EMPTY(NVL(id_part, 0)) AND LEFT(cont,2) = '35' INTO CURSOR cIdpartTemp + + SELECT cIdPartTemp + SCAN + lnIdPart = id_part + lcSaftPartId = This.GetOwnerCode(m.lnIdPart) + IF !EMPTY(m.lcSaftPartId) + UPDATE cPhysicalStock SET saftpartid = m.lcSaftPartId WHERE id_part = m.lnIdPart + ENDIF + ENDSCAN && cIdPartTemp + + USE IN (SELECT('cIdPartTemp')) + ENDIF + GO TOP IN cPhysicalStock + Select (m.lcSelect) + Return m.llSucces + + Endfunc && oPhysicalStock + + ************************************************ + * cursor cMovementOfGoods + ************************************************ + Function oMovementOfGoods + + Local lcSelect, lcSql, llSucces, lnAn1, lnAn2, lnLuna1, lnLuna2 + lcSelect = Select() + + lnAn1 = This.oUnitate.an1 + lnLuna1 = This.oUnitate.luna1 + lnAn2 = This.oUnitate.an2 + lnLuna2 = This.oUnitate.luna2 + +Text To m.lcSql Noshow Textmerge +SELECT an, luna, id_rul, id_fact, dataact, nract, nnir, id_tip_rulaj, cont, cod, id_articol, denumire, cant, cante, pret, cod_um_iso, + taxcode, taxtype, procent_taxa, r1.movementtype, CAST(r1.movementtype || ' ' || m.description AS varchar2(200)) as movementtypename, customerid, supplierid, saftpartidc, saftpartids, + (SELECT MAX(t.prescurtare) as cod_tara FROM ADRESE_PARTENERI ap left join syn_nom_tari t on t.id_tara = ap.id_tara WHERE ap.id_part = r1.customerId and ap.STERS = 0 AND ap.PRINCIPALA = 1) as cod_taraC, + (SELECT MAX(t.prescurtare) as cod_tara FROM ADRESE_PARTENERI ap left join syn_nom_tari t on t.id_tara = ap.id_tara WHERE ap.id_part = r1.supplierId and ap.STERS = 0 AND ap.PRINCIPALA = 1) as cod_taraS, + (select cod_fiscal from nom_parteneri where id_part = r1.customerId) as cod_fiscalC, + (select cod_fiscal from nom_parteneri where id_part = r1.SupplierId) as cod_fiscalS, + (select tip_persoana from nom_parteneri where id_part = r1.customerId) as tip_persoanaC, + (select tip_persoana from nom_parteneri where id_part = r1.SupplierId) as tip_persoanaS, + (select denumire from nom_parteneri where id_part = r1.customerId) as denumireC, + (select denumire from nom_parteneri where id_part = r1.supplierId) as denumireS, + (select MAX(f.fel_document) from act a join nom_fdoc f on a.id_fdoc = f.id_fdoc where a.cod = r1.cod) as fdoc + from (select r.an, r.luna, r.id_rul, r.id_fact, r.dataact, r.nract, r.nnir, r.id_tip_rulaj, r.cont, r.cod, r.id_articol, r.cant, r.cante, decode(g.nr_pag, 6, r.pretv+r.tvav, r.pret) as pret, a.cod_um_iso, a.denumire, + r.taxcode, t.taxtype, t.procent_taxa, + (case when r.id_tip_rulaj = 6 and r.cante < 0 then '110' + when r.id_tip_rulaj = 6 and r.cante > 0 then '120' + when r.id_tip_rulaj = 0 and r.cant > 0 and g.nr_pag = 4 then '20' + when r.id_tip_rulaj = 0 and r.cant > 0 then '10' + when r.id_tip_rulaj = 0 and r.cante > 0 then '30' + when r.id_tip_rulaj = 0 and r.cant < 0 then '50' + when r.id_tip_rulaj = 0 and r.cante < 0 then '40' + when r.id_tip_rulaj = 1 then '80' + else '180' end) as movementtype, + (select MAX(id_part) as id_part from jv2007 j where j.an = r.an and j.luna = r.luna and j.id_fact = r.id_fact) as customerId, + (select MAX(id_part) as id_part from jc2007 j where j.an = r.an and j.luna = r.luna and j.id_fact = r.id_fact) as supplierId, + CAST(null as varchar2(20)) as saftpartidc, + CAST(null as varchar2(20)) as saftpartids + from rul r left join vnom_articole a on r.id_articol = a.id_articol + join nom_gestiuni g on r.id_gestiune = g.id_gestiune + left join saft_taxtable t on r.taxcode = t.taxcode + where r.an * 12 + r.luna between <> and <> and r.sters = 0 + and not (SUBSTR(r.cont,1,3) = '303' or SUBSTR(r.cont,1,2) in ('32'))) r1 + left join saft_movementtypetable m on r1.movementtype = m.movementtype + order by dataact, nract, id_rul + Endtext + + llSucces = goExecutor.oExecuta(m.lcSql, 'cMovementOfGoodsTemp') + + create cursor cMovementOfGoods ; + (AN N(4) NULL, ; + LUNA N(2) NULL, ; + ID_RUL N(20) NULL , ; + ID_FACT N(20) NULL, ; + DATAACT D NULL, ; + NRACT N(16) NULL, ; + NNIR N(16) NULL, ; + ID_TIP_RULAJ I NULL, ; + CONT C(4) NULL, ; + COD N(20) NULL, ; + ID_ARTICOL N(20) NULL, ; + DENUMIRE C(250) NULL, ; + CANT N(16,3) NULL, ; + CANTE N(16,3) NULL, ; + PRET N(18,4) NULL, ; + VALOARE N(18,4) NULL, ; + TAXA N(18,4) NULL, ; + COD_UM_ISO C(5) NULL, ; + TAXCODE N(6) NULL, ; + TAXTYPE N(3) NULL, ; + PROCENT_TAXA N(7,2) NULL, ; + MOVEMENTTYPE C(9) NULL, ; + MOVEMENTTYPENAME C(200) NULL, ; + CUSTOMERID N(10) NULL, ; + SUPPLIERID N(10) NULL, ; + SAFTPARTIDC C(20) NULL, ; + SAFTPARTIDS C(20) NULL, ; + COD_TARAC C(5) NULL, ; + COD_TARAS C(5) NULL, ; + COD_FISCALC C(30) NULL, ; + COD_FISCALS C(30) NULL, ; + TIP_PERSOANAC N(1) NULL, ; + TIP_PERSOANAS N(1) NULL, ; + DENUMIREC C(200) NULL, ; + DENUMIRES C(200) NULL, ; + FDOC C(18) NULL) + + SELECT cMovementOfGoods + APPEND FROM DBF('cMovementOfGoodsTemp') + USE IN (SELECT('cMovementOfGoodsTemp')) + + IF m.llSucces + UPDATE cMovementOfGoods SET valoare = ROUND(pret * IIF(cant <> 0, cant, cante), m.gnPC) + UPDATE cMovementOfGoods SET taxa = ROUND(valoare * NVL(procent_taxa,0) / 100 , m.gnPC) + + * Corectez movementid in consum intern in loc de vanzare, daca nu exista client + UPDATE cMovementOfGoods SET movementtype = '70', movementtypename = '70 Consum' WHERE ALLTRIM(movementtype) = '30' AND EMPTY(NVL(customerId,0)) + + + SELECT distinct customerId as id_part, cod_fiscalC as cod_fiscal, tip_persoanaC as tip_persoana, cod_taraC as cod_tara FROM cMovementOfGoods WHERE !EMPTY(NVL(customerId,0)) INTO CURSOR cPartIdTemp + SELECT cPartIdTemp + SCAN + lnIdPart = id_part + lcCodTara = ALLTRIM(NVL(cod_Tara, 'RO')) + lnTipPersoana = tip_persoana + lcCodFiscal = ALLTRIM(NVL(cod_fiscal, '')) + lcSaftPartId = This.GenCustSupCode(m.lnIdPart, m.lcCodTara, m.lnTipPersoana, m.lcCodFiscal) + + UPDATE cMovementOfGoods SET SaftPartIdC = m.lcSaftPartId WHERE customerId = m.lnIdPart + ENDSCAN + USE IN (SELECT('cPartIdTemp')) + + SELECT distinct supplierId as id_part, cod_fiscalS as cod_fiscal, tip_persoanaS as tip_persoana, cod_taraS as cod_tara FROM cMovementOfGoods WHERE !EMPTY(NVL(supplierId,0)) INTO CURSOR cPartIdTemp + SELECT cPartIdTemp + SCAN + lnIdPart = id_part + lcCodTara = ALLTRIM(NVL(cod_Tara, 'RO')) + lnTipPersoana = tip_persoana + lcCodFiscal = ALLTRIM(NVL(cod_fiscal, '')) + lcSaftPartId = This.GenCustSupCode(m.lnIdPart, m.lcCodTara, m.lnTipPersoana, m.lcCodFiscal) + + UPDATE cMovementOfGoods SET SaftPartIdS = m.lcSaftPartId WHERE SupplierId = m.lnIdPart + ENDSCAN + USE IN (SELECT('cPartIdTemp')) + + ENDIF + GO TOP IN cMovementOfGoods + + Select (m.lcSelect) + Return m.llSucces + + Endfunc && oMovementOfGoods + +************************************************ +*** Fragment Header +************************************************ + Function wHeader + Local lcData, lcSelect, lcText, lnAnF, lnAnI, lnLunaF, lnLunaI, lcTip, lcCompanyName + lcText = '' + lcSelect = Select() + + lcData = Dtos(Date()) + lcData = Left(m.lcData, 4) + '-' + Substr(m.lcData, 5, 2) + '-' + Right(m.lcData, 2) + + lnAnI = This.oUnitate.an1 + lnAnF = This.oUnitate.an2 + + lnLunaI = This.oUnitate.luna1 + lnLunaF = This.oUnitate.luna2 + lcTip = This.oUnitate.Tip && L/T/C/A/NL/NT + + lcAddressStructure = This.wAddressStructure(gofirma.localitate,gofirma.cod_tara, goFirma.strada, goFirma.numar, goFirma.indicativ_judet) + lcCompanyName = ALLTRIM(LEFT(XmlSpecialCharacters(RemoveCharacters(Alltrim(Nvl(gofirma.firma, '')), .T.)),70)) + + Set Textmerge On To Memvar m.lcText Noshow +\ +\ 1.0 +\ RO +\ <> +\ ROMFAST SRL +\ ROA-SAFT +\ 1.0.0 +\ +\ <> +\ <> +\ <> +\ +\ +\ <> +\ <> +\ +\ <> +\ <> +\ <> +\ +\ +\ <> +\ <> +\ <> +\ <> +\ <> +\ +\ +\ <> +\ +\ +\ <> +\ +\ <> +\ <> +\ <> +\ <> +\ <> +\ <> +\ +\ <> +\ <> +\ <> +\ <> +\ <> +\ +\ + Set Textmerge To + + Select (m.lcSelect) + + Return m.lcText + Endfunc && wHeader + + +************************************************ +*** Fragment GeneralLedgerAccounts +************************************************ + Function wGeneralLedgerAccounts + Local lcSelect, lcText + lcText = '' + lcSelect = Select() + + + If !Used('cGeneralLedgerAccounts') + Return m.lcText + Endif + + Set Textmerge On To Memvar m.lcText Noshow +\ + Select cGeneralLedgerAccounts + Set Filter To (soldideb <> 0 Or soldicred <> 0 Or soldfdeb <> 0 Or soldfcred <> 0) + Scan +\ +\ <> +\ <> +\ <> + Do Case + Case soldideb <> 0 And soldicred = 0 +\ <> + Case soldicred <> 0 And soldideb = 0 +\ <> + Otherwise + Do Case + Case Alltrim(Tip) = 'Activ' +\ <> + Otherwise +\ <> + Endcase + Endcase + Do Case + Case soldfdeb <> 0 And soldfcred = 0 +\ <> + Case soldfcred <> 0 And soldfdeb = 0 +\ <> + Otherwise + Do Case + Case Alltrim(Tip) = 'Activ' +\ <> + Otherwise +\ <> + Endcase + + Endcase +\ + Endscan && c406Bal +\ + Set Textmerge To + + Select (m.lcSelect) + + Return m.lcText + Endfunc && xGeneralLedgerAccounts + +******************************************** +*** Fragment Customers/Suppliers +******************************************** + Function wCustomersSuppliers + Lparameters tcTip + * tcTip: customers/suppliers + + Local lcCodFiscal, lcCodP, lcCodTara, lcCont, lcCursor, lcDenumire + Local lcIdPart, lcLocalitate, lcNumar, lcPartId, lcRegistrationNumber, lcRegiune, lcSelect, lcStrada, lcIndicativJudet + Local lcTag, lcTagId, lcTags, lcText, lcTipCont, llClient, llEU, lnSoldFCred, lnSoldFDeb + Local lnSoldICred, lnSoldIDeb, lnTipPersoana + + lcText = '' + lcSelect = Select() + llClient = (Upper(Alltrim(m.tcTip)) = 'CUSTOMERS') + lcCursor = Iif(m.llClient, 'cCustomers', 'cSuppliers') + + lcTag = Iif(m.llClient, 'Customer', 'Supplier') + lcTagId = Iif(m.llClient, 'CustomerID', 'SupplierID') + + If !Used(m.lcCursor) + Return m.lcText + Endif + + Set Textmerge On To Memvar m.lcText Noshow +\ + Select(m.lcCursor) + Scan + lnIdPart = Nvl(id_part, 0) + lcCodFiscal = Upper(Alltrim(Nvl(cod_fiscal, ''))) + lcCodTara = Alltrim(Upper(Nvl(cod_tara, 'RO'))) + lcDenumire = ALLTRIM(LEFT(XmlSpecialCharacters(RemoveCharacters(Alltrim(Nvl(denumire, '')), .T.)), 70)) + lcStrada = XmlSpecialCharacters(RemoveCharacters(Alltrim(Nvl(Left(strada, 70), '')), .T.)) + lcNumar = XmlSpecialCharacters(RemoveCharacters(Alltrim(Nvl(numar, '')), .T.)) + lcCodP = XmlSpecialCharacters(RemoveCharacters(Iif(Empty(Nvl(codpostal, 0)), '', Alltrim(Str(codpostal))), .T.)) + lcLocalitate = XmlSpecialCharacters(RemoveCharacters(Alltrim(Nvl(Nvl(localitate, 'BUCURESTI'), '')), .T.)) + lcIndicativJudet = Alltrim(Nvl(indicativ_judet, '')) + lnTipPersoana = Nvl(tip_persoana, 1) && 1 = juridica, 2 = fizica + lcCont = ALLTRIM(NVL(cont,'')) + lnSoldIDeb = soldideb + lnSoldICred = soldicred + lnSoldFDeb = soldfdeb + lnSoldFCred = soldfcred + + * lcPartId = Iif(!Empty(m.lnIdPart), This.GenCustSupCode(m.lnIdPart, m.lcCodTara, m.lnTipPersoana, m.lcCodFiscal), 'NULL') + lcPartId = Iif(!Empty(m.lnIdPart), ALLTRIM(NVL(Saftpartid,'')), 'NULL') + lcRegistrationNumber = m.lcPartId + + lcAddressStructure = This.wAddressStructure(m.lcLocalitate, m.lcCodTara, m.lcStrada, m.lcNumar, m.lcIndicativJudet) + +\ >> +\ +\ <> +\ <> +\ <> +\ +\ <> +\ <> +\ <> + Do Case + Case soldideb <> 0 And soldicred = 0 +\ <> + Case soldicred <> 0 And soldideb = 0 +\ <> + Otherwise + Do Case + Case Alltrim(Tip) = 'Activ' +\ <> + OTHERWISE +\ <> + Endcase + Endcase + Do Case + Case soldfdeb <> 0 And soldfcred = 0 +\ <> + Case soldfcred <> 0 And soldfdeb = 0 +\ <> + Otherwise + Do Case + Case Alltrim(Tip) = 'Activ' +\ <> + OTHERWISE +\ <> + Endcase + Endcase +\ >> + Endscan && cCustomers/cSuppliers +\ + Set Textmerge To + + + Select (m.lcSelect) + + Return m.lcText + Endfunc && wCustomersSuppliers + + Function wTaxTable + Local lcSelect, lcText + lcText = '' + lcSelect = Select() + + + If !Used('cTaxTable') + Return m.lcText + Endif + + lnAn1 = This.oUnitate.an1 + lnLuna1 = This.oUnitate.luna1 + lnAn2 = This.oUnitate.an2 + lnLuna2 = This.oUnitate.luna2 + + Set Textmerge On To Memvar m.lcText Noshow + SELECT distinct taxtype, LEFT(typename,250) as typename FROM cTaxTable INTO CURSOR cTaxTypeTemp + SELECT cTaxTypeTemp + SCAN + lnTaxType = taxtype + lcTypeName = ALLTRIM(NVL(typename, '')) +\ +\ +\ <> +\ <> + SELECT cTaxTable + SCAN FOR taxtype = m.lnTaxType AND RIGHT(ALLTRIM(STR(taxcode)), 3) <> '000' && fara codurile de taxa non-wht, adaugate in ROA +\ +\ <> +\ <> +\ <> +\ 0 +\ RO +\ + ENDSCAN +\ + ENDSCAN +\ + Set Textmerge To + + USE IN (SELECT('cTaxTypeTemp')) + Select (m.lcSelect) + + Return m.lcText + Endfunc && wTaxTable + + Function wUOMTable + Local lcSelect, lcText + lcText = '' + lcSelect = Select() + + + If !Used('cUOMTable') + Return m.lcText + Endif + + Set Textmerge On To Memvar m.lcText Noshow + SELECT cUOMTable + SCAN + lcUnitOfMeasure = ALLTRIM(NVL(unitofmeasure, '')) + lcDescription = ALLTRIM(NVL(description, '')) +\ +\ +\ <> +\ <> +\ + ENDSCAN +\ + Set Textmerge To + + Select (m.lcSelect) + + Return m.lcText + Endfunc && wUOMTable + +************************************************ +*** Fragment GeneralLedgerEntries +************************************************ + Function wGeneralLedgerEntries + Local lcSelect, lcText + lcText = '' + lcSelect = Select() + + + If !Used('cGeneralLedgerEntries') + Return m.lcText + Endif + + lnAn1 = This.oUnitate.an1 + lnLuna1 = This.oUnitate.luna1 + lnAn2 = This.oUnitate.an2 + lnLuna2 = This.oUnitate.luna2 + + Select Count(*) As nr, Sum(Iif(tipdc = 'D', suma, 0.00)) As debit, Sum(Iif(tipdc = 'D', suma, 0.00)) As credit From cGeneralLedgerEntries Into Cursor cEntriesTotals + Select cEntriesTotals + lnTotalDebit = debit + lnTotalCredit = credit + lnNumberOfEntries = nr + Use In (Select('cEntriesTotal')) + + Set Textmerge On To Memvar m.lcText Noshow +\ +\ <> +\ <> +\ <> +\ +\ 1 +\ Jurnal contabil +\ 1 + + Select cGeneralLedgerEntries + Scan + lcCodTara = Alltrim(Nvl(cod_tara, '')) + lnTipPersoana = Nvl(tip_persoana, 1) && 1 = juridica, 2 = fizica + lcCodFiscal = Alltrim(Nvl(cod_fiscal, '')) + lcCustomerId = '0' + lcSupplierId = '0' + lnIdPart = Nvl(id_part, 0) + lcCont = Alltrim(Nvl(Cont, '')) + lcPartId = ALLTRIM(NVL(saftpartid,'')) + If !Empty(m.lnIdPart) + * lcPartId = This.GenCustSupCode(m.lnIdPart, m.lcCodTara, m.lnTipPersoana, m.lcCodFiscal) + Do Case + Case Left(m.lcCont, 2) = '41' OR INLIST(LEFT(m.lcCont,3), '461', '463') + lcCustomerId = m.lcPartId + Case Left(m.lcCont, 2) = '40' OR INLIST(LEFT(m.lcCont,3), '462', '467') + lcSupplierId = m.lcPartId +*!* OTHERWISE +*!* lcCustomerId = '00' + This.oUnitate.codi +*!* lcSupplierId = '00' + This.oUnitate.codi + ENDCASE + ELSE + lcCustomerId = IIF(!EMPTY(m.lcPartId), m.lcPartId, '00' + This.oUnitate.codi) + lcSupplierId = IIF(!EMPTY(m.lcPartId), m.lcPartId, '00' + This.oUnitate.codi) + Endif + lnIdFact = id_fact + lcCont = Alltrim(Nvl(Cont, '')) + lcTipDC = Alltrim(tipdc) + lnSuma = suma + lcCodValuta = Nvl(cod_valuta, 'RON') + lnSumaValuta = suma_val + lnCurs = Iif(Empty(Nvl(Curs, 0)), 1, Curs) + lnTaxa = taxa + lnTaxaValuta = taxa_val + lcAmountStructure = This.wAmountStructure(m.lnSuma, m.lcCodValuta, m.lnSumaValuta, m.lnCurs) + lcTaxAmountStructure = This.wAmountStructure(m.lnTaxa, m.lcCodValuta, m.lnTaxaValuta, m.lnCurs) + + lcTaxType = '000' + lcTaxCode = '000000' +*!* llN50 = (n50=1) && achizitii nedeductibile 50% +*!* llN100 = (n100=1) && achizitii nedeductibile 100% + llTVA = Alltrim(Nvl(tiptaxa, '')) = 'TVA' && taxa = TVA + llWHT = Alltrim(Nvl(tiptaxa, '')) = 'WHT' && taxa = WHT impozit cu retinere la sursa +*!* llRegularizare = !BETWEEN(YEAR(dataact)*12 + MONTH(dataact), m.lnAn1*12+m.lnLuna1, m.lnAn2*12+m.lnLuna2) + lcPerioadaTVA = This.oUnitate.perioada_tva + + Do Case + Case m.llTVA +* Cred ca este singurul TaxType pentru LedgerEntries +* 301-304 se folosesc la plata TVA lunar/trimestrial in Payments +* Dupa verificare trebuie sa sterg ramurile 301-304 + lcTaxType = '300' + Case m.llTVA And m.lcPerioadaTVA = 'LUNAR' + lcTaxType = '301' + Case m.llTVA And m.lcPerioadaTVA = 'TRIMESTRIAL' + lcTaxType = '302' + Case m.llTVA And m.lcPerioadaTVA = 'SEMESTRIAL' + lcTaxType = '303' + Case m.llTVA And m.lcPerioadaTVA = 'ANUAL' + lcTaxType = '304' + Case m.llWHT And !Empty(Nvl(taxtype, 0)) + lcTaxType = Alltrim(Str(taxtype)) + Endcase + lcTaxCode = Iif(!Empty(Nvl(taxcode, 0)), Alltrim(Str(taxcode)), m.lcTaxCode) + + * Am creat taxcode suplimentar pentru taxtype care nu aveau corespondent in taxtable: ex: 390000,410000 Pun taxcode = 000000 + * Facturile de achizitie import trebuie trecute cu TaxCode 000000. Am introdus cod taxa 300000 + IF m.lcTaxCode == '0' OR RIGHT(lcTaxCode,3) = '000' && ex: 410000 + lcTaxCode = '000000' + ENDIF + +\ +\ <> +\ <> +\ <> +\ <> +\ <> +\ <> +\ <> +\ <> +\ <> +\ +\ <> +\ <> +\ <> +\ <> +\ <> +\ <> +\ +\ <> +\ <> +\ <> +\ +\ +\ + Endscan && cGeneralLedgerEntries + +\ +\ + Set Textmerge To + + Select (m.lcSelect) + + Return m.lcText + Endfunc && wGeneralLedgerEntries + + Function wAnalysisTypeTable + Local lcSelect, lcText + lcText = '' + lcSelect = Select() + + + If !Used('cAnalysisTypeTable') + Return m.lcText + Endif + + Set Textmerge On To Memvar m.lcText Noshow +\ + Select cAnalysisTypeTable + Scan +\ +\ CC +\ Centre de cost +\ <> +\ <> +\ + Endscan +\ + Set Textmerge To + + Select (m.lcSelect) + + Return m.lcText + + Endfunc && wAnalysisTypeTable + + + ************************************************ + *** Fragment SalesInvoices + ************************************************ + FUNCTION wSalesInvoices + RETURN This.wSalesPurchaseInvoices('customers') + ENDFUNC && wSalesInvoices + + ************************************************ + *** Fragment PurchaseInvoices + ************************************************ + FUNCTION wPurchaseInvoices + RETURN This.wSalesPurchaseInvoices('suppliers') + ENDFUNC && wSalesInvoices + + ************************************************ + *** Fragment SalesInvoices / PurchaseInvoices + ************************************************ + Function wSalesPurchaseInvoices + Lparameters tcTip + * tcTip: customers/suppliers + + Local lcSelect, lcText + lcText = '' + lcSelect = Select() + + llClient = (Upper(Alltrim(m.tcTip)) = 'CUSTOMERS') + lcCursor = Iif(m.llClient, 'cSalesInvoices', 'cPurchaseInvoices') + lcCursorLines = Iif(m.llClient, 'cSalesInvoicesLines', 'cPurchaseInvoicesLines') + lcCursorParteneri = Iif(m.llClient, 'cCustomers', 'cSuppliers') + lcTagInfo = Iif(m.llClient, 'CustomerInfo', 'SupplierInfo') + lcTagId = Iif(m.llClient, 'CustomerID', 'SupplierID') + + If !Used(m.lcCursor) + Return m.lcText + ENDIF + + + If !Used(m.lcCursor) + Return m.lcText + Endif + + lnAn1 = This.oUnitate.an1 + lnLuna1 = This.oUnitate.luna1 + lnAn2 = This.oUnitate.an2 + lnLuna2 = This.oUnitate.luna2 + + * Clientii au sume pe credit? (contul din liniile de articole cu valoare) + IF m.llClient + SELECT SUM(valoare) as debit, 0 as credit FROM (m.lcCursorLines) Into Cursor cEntriesTotals + ELSE + SELECT 0 as debit, SUM(valoare) as credit FROM (m.lcCursorLines) Into Cursor cEntriesTotals + ENDIF + + Select cEntriesTotals + lnTotalDebit = debit + lnTotalCredit = credit + lnNumberOfEntries = RECCOUNT(m.lcCursor) + + Use In (Select('cEntriesTotals')) + + + Set Textmerge On To Memvar m.lcText Noshow + IF m.lnNumberOfEntries > 0 +\ +\ <> +\ <> +\ <> + ENDIF + + SELECT (m.lcCursorLines) + lcFilterLines = FILTER() + SET FILTER TO + + SELECT (m.lcCursor) + Scan + lnNumarFactura = nract + lcDataFactura = This.FormatDate(dataact) + lcPartId = ALLTRIM(NVL(SaftPartId,'')) + lnIdPart = id_part + lnIdFact = id_fact +*!* lcAddressStructure = This.GetStructuraAdresaPartener(m.tcTip, m.lnIdPart) + lcLocalitate = ALLTRIM(NVL(localitate, '')) + lcCodTara = ALLTRIM(NVL(cod_tara, '')) + lcAddressStructure = This.wAddressStructure(m.lcLocalitate, m.lcCodTara) + + lcCont = IIF(m.llClient, '4111', '401') + lnLuna = luna + lnAn = an + lnInvoiceType = invoicetype + lnSelfBillingIndicator = autofactura + +\ +\ <> +\ >> +\ <> +\ <> +\ >> +\ <> +\ <> +\ <> +\ <> +\ <> +\ <> + + lnLineNumber = 0 + SELECT (m.lcCursorLines) + SCAN FOR id_fact = m.lnIdFact + lnLineNumber = lnLineNumber + 1 + lcCont = ALLTRIM(NVL(cont,'')) + lnCantitate = cantitate + lcDescriere = XmlSpecialCharacters(RemoveCharacters(Alltrim(Nvl(NVL(descriere, 'DIVERSE'), '')), .T.)) + lnPret = pret + lnSuma = valoare + lcCodValuta = Nvl(cod_valuta, 'RON') + lnCurs = Iif(Empty(Nvl(Curs, 0)), 1, Curs) + lnSumaValuta = valoarev && IIF(m.lcCodValuta <> 'RON', ROUND(m.lnSuma / m.lnCurs, 2), 0) + lnTaxa = taxa && ROUND(m.lnSuma * proc_tva / 100, 2) + lnTaxaValuta = taxav && IIF(m.lcCodValuta <> 'RON', ROUND(m.lnTaxa / m.lnCurs, 2), 0) + + lcAmountStructure = This.wAmountStructure(m.lnSuma, m.lcCodValuta, m.lnSumaValuta, m.lnCurs) + lcTaxAmountStructure = This.wAmountStructure(m.lnTaxa, m.lcCodValuta, m.lnTaxaValuta, m.lnCurs) + lcTipDC = IIF(m.llClient, 'D', 'C') + + * Facturile achizitie import au Taxcode 0 (000000) + lcTaxType = IIF(EMPTY(NVL(taxtype,0)), '000', ALLTRIM(STR(taxtype))) + lcTaxCode = IIF(EMPTY(NVL(taxcode,0)), '000000', ALLTRIM(STR(taxcode))) + + * Facturi de import + * Pentru importul efectuat, in aceasta subsectiune se va raporta factura de import, iar la TaxType se va completa 000 (3 de zero), TaxCode 0000000(6 de zero). + lcTaxType = IIF(EMPTY(NVL(taxtype,0)), '000', ALLTRIM(STR(taxtype))) + IF INLIST(NVL(taxcode,0), 301201, 301202, 301203) + lcTaxType = '000' + lcTaxCode = '000000' + ENDIF + * Am creat taxcode suplimentar pentru taxtype care nu aveau corespondent in taxtable: ex: 390000,410000 Pun taxcode = 000000 + * Facturile de achizitie import trebuie trecute cu TaxCode 000000. Am introdus cod taxa 300000 + IF m.lcTaxCode == '0' OR RIGHT(lcTaxCode,3) = '000' && ex: 410000 + lcTaxCode = '000000' + ENDIF + +\ +\ <> +\ <> +\ <> +\ <> +\ <> +\ <> +\ <> +\ <> +\ +\ <> +\ <> +\ <> +\ +\ + ENDSCAN && cSalesInvoicesLines/cPurchaseInvoicesLines +\ + + ENDSCAN && cSalesInvoices/cPurchaseInvoices +\ + Set Textmerge To + + SELECT (m.lcCursorLines) + SET FILTER TO &lcFilterLines + + Select (m.lcSelect) + + Return m.lcText + Endfunc && wSalesInvoices + +************************************************ +*** Fragment Payments +************************************************ + Function wPayments + Local lcSelect, lcText + Local lcAmountStructure, lcCodValuta, lcCont, lcDescription, lcPaymentMethod, lcPerioadaTVA + Local lcTaxAmountStructure, lcTaxCode, lcTaxType, lcTipDC, llTVA, lnAn1, lnAn2, lnCurs, lnLuna1 + Local lnLuna2, lnNumberOfEntries, lnSuma, lnSumaValuta, lnTaxa, lnTaxaValuta, lnTotalCredit + Local lnTotalDebit + lcText = '' + lcSelect = Select() + + If !Used('cPayments') + Return m.lcText + Endif + + lnAn1 = This.oUnitate.an1 + lnLuna1 = This.oUnitate.luna1 + lnAn2 = This.oUnitate.an2 + lnLuna2 = This.oUnitate.luna2 + + Select Count(*) As nr, Sum(Iif(tipdc = 'D', suma, 0.00)) As debit, Sum(Iif(tipdc = 'D', suma, 0.00)) As credit From cPayments Into Cursor cEntriesTotals + Select cEntriesTotals + lnTotalDebit = debit + lnTotalCredit = credit + lnNumberOfEntries = nr + Use In (Select('cEntriesTotal')) + + lcPerioadaTVA = This.oUnitate.perioada_tva + + IF m.lnNumberOfEntries = 0 + RETURN m.lcText + ENDIF + + Set Textmerge On To Memvar m.lcText Noshow +\ +\ <> +\ <> +\ <> + + Select cPayments + Scan + lcTipDC = Alltrim(tipdc) && D = incasare ; C = plata + lnSuma = suma + lcSuma = This.FormatValue(suma) + lcCodValuta = Nvl(cod_valuta, 'RON') + lnSumaValuta = suma_val + lnCurs = Iif(Empty(Nvl(Curs, 0)), 1, Curs) + lnTaxa = IIF(!EMPTY(NVL(taxcode,0)), suma, 0) + lnTaxaValuta = IIF(!EMPTY(NVL(taxcode,0)), suma_val, 0) + lcPaymentMethod = ALLTRIM(NVL(methodcode,'')) + llTVA = .F. + lcDescription = STRTRAN(ALLTRIM(explicatia),CHR(2), '',1,10,1) && scot CHR(2) = STX start of text, probabil copiat dintr-un extras de cont + lcDescription = ALLTRIM(XmlSpecialCharacters(RemoveCharacters(Alltrim(Nvl(m.lcDescription, '')), .T.))) + + lcTaxType = Iif(Empty(Nvl(taxtype, 0)), '000', Alltrim(Str(taxtype))) + lcTaxCode = Iif(Empty(Nvl(taxcode, 0)), '000000', Alltrim(Str(taxcode))) + + Do Case + Case m.llTVA And m.lcPerioadaTVA = 'LUNAR' + lcTaxType = '301' + Case m.llTVA And m.lcPerioadaTVA = 'TRIMESTRIAL' + lcTaxType = '302' + Case m.llTVA And m.lcPerioadaTVA = 'SEMESTRIAL' + lcTaxType = '303' + Case m.llTVA And m.lcPerioadaTVA = 'ANUAL' + lcTaxType = '304' + ENDCASE + + * Am creat taxcode suplimentar pentru taxtype care nu aveau corespondent in taxtable: ex: 390000,410000 + * Pun taxcode = 000000 + IF RIGHT(lcTaxCode,3) = '000' && ex: 410000 + lcTaxCode = '000000' + ENDIF + * Am creat taxcode suplimentar pentru taxtype care nu aveau corespondent in taxtable: ex: 390000,410000 Pun taxcode = 000000 + * Facturile de achizitie import trebuie trecute cu TaxCode 000000. Am introdus cod taxa 300000 + IF m.lcTaxCode == '0' OR RIGHT(lcTaxCode,3) = '000' && ex: 410000 + lcTaxCode = '000000' + ENDIF + + lcCodTara = Alltrim(Nvl(cod_tara, '')) + lnTipPersoana = Nvl(tip_persoana, 1) && 1 = juridica, 2 = fizica + lcCodFiscal = Alltrim(Nvl(cod_fiscal, '')) + lcCustomerId = '0' && unul dintre CustomerId sau SupplierId trebuie sa fie "0" + lcSupplierId = '0' + lnIdPart = Nvl(id_part, 0) + lcCont = Alltrim(Nvl(Cont, '')) + + *lcPartId = IIF(EMPTY(m.lnIdPart), This.oUnitate.codi, This.GenCustSupCode(m.lnIdPart, m.lcCodTara, m.lnTipPersoana, m.lcCodFiscal)) + lcPartId = IIF(EMPTY(m.lnIdPart), '00' + This.oUnitate.codi, ALLTRIM(saftpartid)) + Do Case + Case lcTipDC = 'D' + lcCustomerId = m.lcPartId + OTHERWISE + lcSupplierId = m.lcPartId + ENDCASE + + lcAmountStructure = This.wAmountStructure(m.lnSuma, m.lcCodValuta, m.lnSumaValuta, m.lnCurs) + lcTaxAmountStructure = This.wAmountStructure(m.lnTaxa, m.lcCodValuta, m.lnTaxaValuta, m.lnCurs) + + +\ +\ <> +\ <> +\ <> +\ <> +\ <> +\ <> +\ +\ <> +\ <> +\ <> +\ <> +\ <> +\ +\ <> +\ <> +\ <> +\ +\ +\ +\ <> +\ +\ + Endscan && cPayments +\ + Set Textmerge To + + Select (m.lcSelect) + + Return m.lcText + Endfunc && wPayments + + + Function wOwners + Local lcSelect, lcText + Local lcCompanyStructure, lcSaftPartId + lcText = '' + lcSelect = Select() + + If !Used('cOwners') + Return m.lcText + Endif + + Set Textmerge On To Memvar m.lcText Noshow +\ + Select cOwners + SCAN + lcSaftPartId = ALLTRIM(NVL(saftpartid, '')) + lcCompanyStructure = This.wCompanyStructure(saftpartid, denumire, localitate, cod_tara, strada, numar, indicativ_judet) +\ +\ <> +\ <> +\ <> +\ + + Endscan + Set Textmerge To + + Select (m.lcSelect) + + Return m.lcText + Endfunc && wOwners + + Function wAssets + Local lcSelect, lcText + Local lcDescription, lnAn1, lnAn2, lnLuna1, lnLuna2 + lcText = '' + lcSelect = Select() + + If !Used('cAssets') + Return m.lcText + Endif + + Set Textmerge On To Memvar m.lcText Noshow +\ + Select cAssets + SCAN + lcDescription = ALLTRIM(XmlSpecialCharacters(RemoveCharacters(Alltrim(Nvl(description, '')), .T.))) + lcExtraordinaryDepreciationMethod = IIF(!EMPTY(NVL(ExtraordinaryDepreciationMethod,'')), ALLTRIM(ExtraordinaryDepreciationMethod), 'NULL') + +\ +\ <> +\ <> +\ <> +\ <> +\ <> +\ +\ +\ <> +\ <> +\ <> +\ <> +\ <> +\ <> +\ <> +\ <> +\ <> +\ <> +\ <> +\ <> +\ <> +\ <> +\ +\ +\ <> +\ <> +\ +\ +\ <> +\ <> +\ +\ +\ + ENDSCAN && cAssets +\ + Set Textmerge To + + Select (m.lcSelect) + + Return m.lcText + Endfunc && wAssets + + FUNCTION wAssetTransactions + Local lcSelect, lcText + Local lnNumberOfAssetTransactions + lcText = '' + + lcSelect = Select() + + If !Used('cAssetTransactions') + Return m.lcText + ENDIF + + SET TEXTMERGE ON TO memvar lcText NOSHOW +\ + Select cAssetTransactions + lnNumberOfAssetTransactions = RECCOUNT() +\ <> + SCAN +\ +\ <> +\ <> +\ <> +\ <> +\ <> +\ <> +\ +\ +\ <> +\ <> +\ <> +\ <> +\ +\ +\ + ENDSCAN +\ + SET TEXTMERGE TO + Select (m.lcSelect) + + Return m.lcText + ENDFUNC && wAssetTransactions + + Function wMovementTypeTable + Local lcSelect, lcText + lcText = '' + lcSelect = Select() + + If !Used('cMovementTypeTable') + Return m.lcText + Endif + + Set Textmerge On To Memvar m.lcText Noshow +\ + Select cMovementTypeTable + Scan +\ +\ <> +\ <> +\ + ENDSCAN +\ + Set Textmerge To + + Select (m.lcSelect) + + Return m.lcText + + Endfunc && wMovementTypeTable + + Function wProducts + Local lcSelect, lcText + Local lcCodBare, lcCodUMISO, lcDenumire, lcGoodsOrServiceId, lcProductCommodityCode, lnIdArticol + lcText = '' + lcSelect = Select() + + + If !Used('cProducts') + Return m.lcText + Endif + + Set Textmerge On To Memvar m.lcText Noshow +\ + Select cProducts +* s.id_articol, a.denumire, a.codnc8, a.cod_um, a.cod_um_iso + SCAN + lnIdArticol = id_articol + lcGoodsOrServicesId = ALLTRIM(goodsorservicesid) && 01 = goods, 02 = services + lcDenumire = XmlSpecialCharacters(RemoveCharacters(Alltrim(Nvl(denumire, '')), .T.)) + lcProductCommodityCode = IIF(!EMPTY(ALLTRIM(NVL(codnc8,''))), ALLTRIM(codnc8), '00000000') + lcCodBare = ALLTRIM(NVL(codbare, '')) + lcCodUMISO = ALLTRIM(NVL(cod_um_iso, 'H87')) +\ +\ <> +\ <> +\ <> +\ <> +\ <> +\ <> +\ <> +\ <> +\ + ENDSCAN +\ + Set Textmerge To + + Select (m.lcSelect) + + Return m.lcText + + Endfunc && wProducts + + Function wPhysicalStock + Local lcSelect, lcText + Local lcCodUMISO, lcCont, lcCont2, lcOwnerId, lcProductType, lcStockAccountCommodityCode + Local lnIdArticol, lnIdGestiune, lnPret, lnStocF, lnStocI, lnValF, lnValI, lcSaftPartIdUnitate + lcText = '' + lcSelect = Select() + + + If !Used('cPhysicalStock') + Return m.lcText + Endif + +* select s.id_gestiune,s.id_articol,s.pret,s.cont,s.id_part_rez,s.canti,s.vali,s.cantf,s.valf,a.codnc8,a.um,a.cod_um_iso + + lcSaftPartIdUnitate = '00' + This.oUnitate.codi + + Set Textmerge On To Memvar m.lcText Noshow + Select cPhysicalStock + SCAN + lnIdGestiune = id_gestiune + lnIdArticol = id_articol + lcCont = ALLTRIM(NVL(cont,'')) + lcCont2 = SUBSTR(cont,1,2) +*!* lcProductType = IIF(m.lcCont2 = '30','MATERII PRIME', ; +*!* IIF(m.lcCont2 = '32','IN CURS DE APROVIZIONARE', ; +*!* IIF(m.lcCont2 = '33','IN CURS DE EXECUTIE', ; +*!* IIF(m.lcCont2 = '34','PRODUSE', ; +*!* IIF(m.lcCont2 = '35','LA TERTI', ; +*!* IIF(m.lcCont2 = '36','ACTIVE BIOLOGICE', ; +*!* IIF(m.lcCont2 = '37','MARFURI', ; +*!* IIF(m.lcCont2 = '38','AMBALAJE', ; +*!* IIF(m.lcCont2 = '39','AJUSTARI', 'MATERII PRIME'))))))))) + lcProductType = m.lcCont + + lcStockAccountCommodityCode = IIF(!EMPTY(ALLTRIM(NVL(codnc8,''))), ALLTRIM(codnc8), '00000000') + lcOwnerId = IIF(!EMPTY(ALLTRIM(NVL(saftpartid, ''))), ALLTRIM(saftpartid), m.lcSaftPartIdUnitate) + + lcCodUMISO = ALLTRIM(NVL(cod_um_iso,'H87')) + lnPret = pret + lnStocI = canti + lnValI = vali + lnStocF = cantf + lnValF = valf +\ +\ +\ <> +\ <> +\ <> +\ <> +\ <> +\ <> +\ <> +\ <> +\ <> +\ <> +\ <> +\ <> +\ +\ <> +\ <> +\ +\ + ENDSCAN +\ + Set Textmerge To + + Select (m.lcSelect) + + Return m.lcText + + Endfunc && wPhysicalStock + + Function wMovementOfGoods + Local lcSelect, lcText + Local lcCodValuta, lcCont, lcCustomerId, lcSaftPartIdUnitate, lcSupplierId, lcTaxCode + Local lcTaxInformationStructure, lcTaxType, lcUnitOfMeasure, lnCantitate, lnCurs, lnLineNumber + Local lnMovementType, lnNumberOfMovementLines, lnProductCode, lnTaxa, lnTaxaValuta + Local lnTotalQuantityIssued, lnTotalQuantityReceived, lnValoare + Local ldDataAct, lnIdFact + lcText = '' + lcSelect = Select() + + If !Used('cMovementOfGoods') + Return m.lcText + ENDIF + IF RECCOUNT('cMovementOfGoods') = 0 + Return m.lcText + ENDIF + + lcSaftPartIdUnitate = '00' + This.oUnitate.codi + + Select Count(*) As nr, Sum(cant) As cant, Sum(cante) As cante From cMovementofGoods Into Cursor cEntriesTotals + Select cEntriesTotals + lnNumberOfMovementLines = nr + lnTotalQuantityReceived = cant + lnTotalQuantityIssued = cante + Use In (Select('cEntriesTotal')) + + Set Textmerge On To Memvar m.lcText Noshow +\<<''>> + IF m.lnNumberOfMovementLines > 0 +\ <> +\ <> +\ <> + ENDIF + + + SELECT distinct id_fact, dataact, nract, fdoc, MAX(movementtype) as movementtype ; + FROM cMovementofGoods ; + GROUP BY id_fact, dataact, nract, fdoc ; + ORDER BY dataact, nract ; + INTO CURSOR cDocumenteTemp + + Select cDocumenteTemp + SCAN + lnIdFact = id_fact + ldMovementDate = dataact + lcMovementType = ALLTRIM(NVL(movementtype, '')) + lcDocumentType = ALLTRIM(NVL(fdoc, 'ALTE')) + lnDocumentNumber = nract + +\ +\ <> +\ <> +\ <> +\ +\ <> +\ <> +\ + lnLineNumber = 0 + SELECT cMovementOfGoods + SCAN FOR id_fact = m.lnIdFact AND dataact = m.ldMovementDate AND nract = m.lnDocumentNumber + lnLineNumber = m.lnLineNumber + 1 + lcCont = ALLTRIM(NVL(cont, '')) + + lcCustomerId = '0' + lcSupplierId = '0' + DO CASE + CASE !EMPTY(ALLTRIM(NVL(saftPartIdC,''))) + lcCustomerId = ALLTRIM(saftPartIdC) + CASE !EMPTY(ALLTRIM(NVL(saftPartIdS,''))) + lcSupplierId = ALLTRIM(saftPartIdS) + OTHERWISE + lcCustomerId = m.lcSaftPartIdUnitate + lcSupplierId = m.lcSaftPartIdUnitate + ENDCASE + lnProductCode = id_articol + lnCantitate = IIF(cant <> 0, cant, cante) + lcUnitOfMeasure = ALLTRIM(NVL(cod_um_iso, 'H87')) + lnValoare = valoare + lcMovementType = ALLTRIM(NVL(movementType,'')) + lnTaxa = taxa + lcCodValuta = 'RON' + lnTaxaValuta = 0 + lnCurs = 1 + lcTaxType = ALLTRIM(STR(taxtype)) + lcTaxCode = ALLTRIM(STR(taxcode)) + lcTaxInformationStructure = This.wTaxInformationStructure(m.lnTaxa, m.lcCodValuta, m.lnTaxaValuta, m.lnCurs, m.lcTaxType, m.lcTaxCode) + +\ +\ <> +\ <> +\ <> +\ <> +\ <> +\ <> +\ <> +\ <> +\ <> +\ <> +\ <> + IF !EMPTY(m.lcTaxCode) +\ <> + ENDIF +\ + ENDSCAN && cMovementOfGoods +\ + ENDSCAN && cDocumenteTemp + USE IN (SELECT('cDocumenteTemp')) +\ + Set Textmerge To + + Select (m.lcSelect) + + Return m.lcText + + Endfunc && wMovementOfGoods + + ************************** + * Structura AmountStructure + ************************** + Function wAmountStructure + Lparameters tnSuma, tcCodValuta, tnSumaValuta, tnCurs + + Local lcText + lcText = Chr(13) + Chr(10) + ; + Space(24) + [] + This.FormatValue(m.tnSuma) + [] + Chr(13) + Chr(10) + ; + Space(24) + [] + Alltrim(NVL(m.tcCodValuta,'')) + [] + Chr(13) + Chr(10) + ; + Space(24) + [] + This.FormatValue(m.tnSumaValuta) + [] + Chr(13) + Chr(10) + ; + Space(24) + [] + This.FormatCurs(m.tnCurs) + [] + Chr(13) + Chr(10) + + Return m.lcText + Endfunc && wAmountStructure + + ************************** + * Structura AddressStructure + ************************** + FUNCTION wAddressStructure + LPARAMETERS tcLocalitate, tcCodTara, tcStrada, tcNumar, tcIndicativJudet + Local lcText, lcLocalitate, lcCodTara, lcStrada, lcNumar, lcRegiune + + lcLocalitate = XmlSpecialCharacters(RemoveCharacters(Alltrim(Nvl(Nvl(m.tcLocalitate, 'BUCURESTI'), '')), .T.)) + lcCodTara = Alltrim(Upper(Nvl(m.tcCodTara, 'RO'))) + lcStrada = LEFT(IIF(!EMPTY(m.tcStrada) and !ISNULL(m.tcStrada), XmlSpecialCharacters(RemoveCharacters(Alltrim(Nvl(m.tcStrada, '')), .T.)), ''), 70) + lcNumar = IIF(!EMPTY(m.tcNumar) and !ISNULL(m.tcNumar), ALLTRIM(TRANSFORM(m.tcNumar)), '') + IF EMPTY(m.lcLocalitate) + lcLocalitate = 'BUCURESTI' + ENDIF + IF EMPTY(m.lcCodTara) + lcCodTara = 'RO' + ENDIF + lcRegiune = Iif(m.lcCodTara = 'RO' and !EMPTY(NVL(m.tcIndicativJudet, '')), m.lcCodTara + '-' + Alltrim(UPPER(m.tcIndicativJudet)), '') + lcText = Chr(13) + Chr(10) + ; + IIF(!EMPTY(m.lcStrada), Space(50) + [] + m.lcStrada + [] + Chr(13) + Chr(10), '') + ; + IIF(!EMPTY(m.lcNumar), Space(50) + [] + m.lcNumar + [] + Chr(13) + Chr(10), '') + ; + Space(50) + [] + Alltrim(NVL(m.lcLocalitate,'')) + [] + Chr(13) + Chr(10) + ; + IIF(!EMPTY(m.lcRegiune), Space(50) + [] + m.lcRegiune + [] + Chr(13) + Chr(10), '') + ; + Space(50) + [] + Alltrim(NVL(m.lcCodTara,'')) + [] + Chr(13) + Chr(10) + Return m.lcText + ENDFUNC && wAddressStructure + + ************************** + * Structura CompanyStructure + ************************** + FUNCTION wCompanyStructure + LPARAMETERS tcSaftPartId, tcDenumire, tcLocalitate, tcCodTara, tcStrada, tcNumar, tcIndicativJudet + + Local lcAddressStructure, lcDenumire, lcRegistrationNumber, lcText + + lcRegistrationNumber = Iif(!Empty(NVL(m.tcSaftPartId, '')), ALLTRIM(m.tcSaftPartId), 'NULL') + lcDenumire = ALLTRIM(NVL(m.tcDenumire, '')) + lcAddressStructure = This.wAddressStructure(m.tcLocalitate, m.tcCodTara, m.tcStrada, m.tcNumar, m.tcIndicativJudet) + + lcText = Chr(13) + Chr(10) + ; +' ' + This.wxml("RegistrationNumber", m.lcRegistrationNumber) + CHR(13) + CHR(10) + ; +' ' + This.wxml("Name", m.lcDenumire) + CHR(13) + CHR(10) + ; +' ' + This.wxml("Address", m.lcAddressStructure) + CHR(13) + CHR(10) + RETURN m.lcText + ENDFUNC + + ************************** + * Structura TaxInformationStructure + ************************** + FUNCTION wTaxInformationStructure + LPARAMETERS tnTaxa, tcCodValuta, tnTaxaValuta, tnCurs, tcTaxType, tcTaxCode + LOCAL lcTaxAmountStructure, lcTaxType, lcTaxCode + + lcTaxAmountStructure = This.wAmountStructure(m.tnTaxa, m.tcCodValuta, m.tnTaxaValuta, m.tnCurs) + lcTaxType = IIF(!EMPTY(ALLTRIM(NVL(m.tcTaxType, ''))), ALLTRIM(m.tcTaxType), '000') + lcTaxCode = IIF(!EMPTY(ALLTRIM(NVL(m.tcTaxCode, ''))), ALLTRIM(m.tcTaxCode), '000000') + lcText = Chr(13) + Chr(10) + ; +' ' + CHR(13) + CHR(10) + ; +' ' + This.wxml("TaxType", m.lcTaxType) + CHR(13) + CHR(10) + ; +' ' + This.wxml("TaxCode", m.lcTaxCode) + CHR(13) + CHR(10) + ; +' ' + This.wxml("TaxAmount", m.lcTaxAmountStructure) + CHR(13) + CHR(10) + ; +' ' + RETURN m.lcText + ENDFUNC && wTaxInformationStructure + + + ************************** + * Intoarce id din AnalysisTypeTable pe baza id_sectie, id_sucursala + ************************** + Function GetAnalysisId + Lparameters tnIdSucursala, tnIdSectie + lcCod = '' + If !Empty(Nvl(tnIdSectie, 0)) + lcCod = 'S' + Alltrim(Str(Nvl(tnIdSucursala, 0))) + '-C' + Alltrim(Str(tnIdSectie)) + Endif + Return m.lcCod + Endfunc && GetAnalysisId + + * Intorce o structura cu adresa partenerului dupa ID_PART + FUNCTION GetStructuraAdresaPartener + LPARAMETERS tcCursor, tnIdPart + * tcCursor: cCUSTOMERS/cSUPPLIERS/cOwners + + lcSelect = SELECT() + lcAdressStructure = '' + + SELECT (m.tcCursor) + IF SEEK(m.tnIdPart, m.tcCursor, 'id_part') + lcLocalitate = localitate + lcCodTara = cod_tara + lcStrada = strada + lcNumar = numar + lcIndicativJudet = indicativ_judet + lcAdressStructure = This.wAddressStructure(m.lcLocalitate, m.lcCodTara, m.lcStrada, m.lcNumar, m.lcIndicativJudet) + ENDIF + + SELECT (m.lcSelect) + RETURN m.lcAdressStructure + ENDFUNC + + ********************************************************** + * Intoarce codul client/furnizor/owner dupa Id Part din cCustomers/cSuppliers/cOwners + ********************************************************** + FUNCTION GetCustomerCode + LPARAMETERS tnIdPart + RETURN This.GetCustSupCode('cCustomers', m.tnIdPart) + ENDFUNC + + FUNCTION GetSupplierCode + LPARAMETERS tnIdPart + RETURN This.GetCustSupCode('cSuppliers', m.tnIdPart) + ENDFUNC + + FUNCTION GetOwnerCode + LPARAMETERS tnIdPart + RETURN This.GetCustSupCode('cOwners', m.tnIdPart) + ENDFUNC + + FUNCTION GetCustSupCode + LPARAMETERS tcCursor, tnIdPart + * tcCursor: cCustomers/cSuppliers/cOwners + + Local lcCursor, lcSelect, lcSaftPartId + lcSelect = Select() + lcCursor = m.tcCursor + lcSaftPartId = '' + IF SEEK(m.tnIdPart, m.lcCursor, 'id_part') + lcSaftPartId = ALLTRIM(&lcCursor..SaftPartId) + ENDIF + + SELECT (m.lcSelect) + RETURN m.lcSaftPartId + ENDFUNC && GetcustSupCode + + ********************************************************** + * Genereaza codul client/furnizor + ********************************************************** + Function GenCustSupCode + Lparameters tnIdPart, tcCodTara, tnTipPersoana, tcCodFiscal +* tcCodTara = nom_tari.prescurtare +* tnTipPersoana: 1 = PJ, 2 = FIZICA +* tcCodFiscal: cu sau fara cod tara + + Local lcCodTara, llPJ, lcCodFiscal, lcAtributFiscal, lcCodFiscalFRO, llEU, lcCustSupCode, llRO + llPJ = (Nvl(m.tnTipPersoana, 1) = 1) + lcCodFiscal = Alltrim(Transform(m.tcCodFiscal)) + lcCodTara = Alltrim(Nvl(m.tcCodTara, 'RO')) + lcCodTara = Iif(!Empty(NVL(m.lcCodTara,'')), ALLTRIM(m.lcCodTara), 'RO') + lcIdPart = Alltrim(Transform(m.tnIdPart)) + + lcAtributFiscal = Substr(Trim(Upper(m.lcCodFiscal)), 1, 2) + IF !ISALPHA(m.lcAtributFiscal) + lcAtributFiscal = '' + ENDIF + lcCodFiscalFRO = Strtran(m.lcCodFiscal, m.lcCodTara, '', 1, 1, 1) + lcCodFiscalFRO = Strtran(m.lcCodFiscalFRO, m.lcAtributFiscal, '', 1, 1, 1) && in caz ca atributul fiscal <> codul de tara (GR <> EL) + lcCodFiscalFRO = Strtran(Strtran(Strtran(m.lcCodFiscalFRO, ' ', ''), 'RO', ''), 'R', '') + lcCodFiscalFRO = ALLTRIM(m.lcCodFiscalFRO) + + llEU = Inlist(m.lcCodTara, 'AT', 'BE', 'BG', 'CY', 'CZ', 'DE', 'DK', 'EE', 'EL', 'ES', 'FI', 'FR', 'HR', 'GR') Or Inlist(m.lcCodTara, 'HU', 'IE', 'IT', 'LT', 'LU', 'LV', 'MT', 'NL', 'PL', 'PT', 'SE', 'SI', 'SK') + llRO = (m.lcCodTara = 'RO') + + lcCustSupCode = '08' + '0000000000000' + Do Case + Case m.llPJ And m.lcCodTara = 'RO' And !Empty(m.lcCodFiscalFRO) + lcCustSupCode = '00' + m.lcCodFiscalFRO + + Case m.llPJ And !Empty(m.lcAtributFiscal) And m.llEU + lcCustSupCode = '01' + m.lcCodTara + m.lcCodFiscalFRO + + Case m.llPJ And !Empty(m.lcAtributFiscal) And !m.llEU AND !m.llRO + lcCustSupCode = '02' + m.lcCodTara + m.lcCodFiscalFRO + + Case m.llPJ And Empty(m.lcAtributFiscal) And m.llEU AND !m.llRO + lcCustSupCode = '05' + m.lcCodTara + m.lcIdPart + + Case m.llPJ And Empty(m.lcAtributFiscal) And !m.llEU AND !m.llRO + lcCustSupCode = '06' + m.lcCodTara + m.lcIdPart + + CASE m.llPJ AND EMPTY(m.lcCodFiscal) + lcCustSupCode = '' && Nu ar trebui sa se intample. O sa dea eroare la verificare + + Case !m.llPJ + If !Empty(m.lcCodFiscal) + If m.lcCodTara = 'RO' + lcCustSupCode = '03' + m.lcCodFiscal + Endif + Else + lcCustSupCode = '04' + STRTRAN(m.lcIdPart,'-', '0',1,1,1) && inlocuiesc -1000 din id_part cu 01000 + Endif + Endcase + + Return m.lcCustSupCode + + Endfunc && GenCustSupCode + + ******************************************* + * Formateaza data conform ISO8601 + * aaaa-ll-zz + ******************************************* + Function FormatDate + Lparameters tdData + + Local lcData + lcData = '' + If !Empty(Nvl(m.tdData, {})) + lcData = Dtos(m.tdData) + lcData = Left(m.lcData, 4) + '-' + Substr(m.lcData, 5, 2) + '-' + Right(m.lcData, 2) + Endif + Return m.lcData + Endfunc && FormatDate + + ******************************************* + * Formateaza valoare cu 2 zecimale + * 1234.65 + ******************************************* + FUNCTION FormatValue + LPARAMETERS tnValoare + + RETURN This.FormatVal(m.tnValoare, 20,2) + ENDFUNC && FormatValue + + ******************************************* + * Formateaza curs cu 4 zecimale + * 4.9492 + ******************************************* + FUNCTION FormatCurs + LPARAMETERS tnCurs + + RETURN This.FormatVal(m.tnCurs, 14,4) + ENDFUNC && FormatCurs + + ******************************************* + * Formateaza cantitate cu 6 zecimale + ******************************************* + FUNCTION FormatQuantity + LPARAMETERS tnCantitate + + RETURN This.FormatVal(tnCantitate, 22,6) + ENDFUNC && + + ******************************************* + * Formateaza valoare cu zecimale + ******************************************* + FUNCTION FormatVal + LPARAMETERS tnValue, tnDigits, tnDecimals + + RETURN Alltrim(STR(NVL(m.tnValue,0), tnDigits, tnDecimals)) + ENDFUNC && FormatVal + + + +Enddefine + \ No newline at end of file diff --git a/Programe/shutdown.prg b/Programe/shutdown.prg new file mode 100644 index 0000000..91623e3 --- /dev/null +++ b/Programe/shutdown.prg @@ -0,0 +1,3 @@ +IF TYPE("goApp")=="O" AND NOT ISNULL(goApp) + RETURN goApp.OnShutDown() +ENDIF diff --git a/Programe/update_nomenclator.prg b/Programe/update_nomenclator.prg new file mode 100644 index 0000000..fcbd1bb --- /dev/null +++ b/Programe/update_nomenclator.prg @@ -0,0 +1,85 @@ +*!* 01.04.2009 +*!* marius.mutu +*!* xsets, xitems... de pe server in loc din executabil + +*!* 27.05.2011 +*!* marius.mutu +*!* creare cursor cparteneriemail pentru addressbook la trimitere email din listare cu foxypreviewer + +********************************************************** +PROCEDURE update_nomenclator + + *!* DO update_coresp_tip_part + *!* DO update_coresp_tip_cont + DO update_lunilean + + *** tabele meniu deschise din proiect + LOCAL lcCaleDateMenu + + lcCaleDateMenu=gcAppPath+[\COMUN\DATEMENU\] + + IF !USED('MILA1') + USE &lcCaleDateMenu.MILA1 IN 0 ALIAS MILA1 + ENDIF + +*!* IF !USED('XREQUEST') +*!* USE &lcCaleDateMenu.XREQUEST IN 0 ALIAS XREQUEST +*!* ENDIF +*!* IF !USED('xitems') +*!* USE &lcCaleDateMenu.xitems IN 0 ALIAS xitems +*!* ENDIF +*!* *!* IF !USED('YACT') +*!* *!* USE &lcCaleDateMenu.YACT IN 0 ALIAS YACT +*!* *!* ENDIF +*!* IF !USED('XSETS') +*!* USE &lcCaleDateMenu.XSETS IN 0 ALIAS XSETS ORDER TAG ID_SET +*!* ENDIF +*!* IF !USED('xACT') +*!* USE &lcCaleDateMenu.xACT IN 0 ALIAS xACT +*!* ENDIF +*!* IF !USED('xnote') +*!* USE &lcCaleDateMenu.xnote IN 0 ALIAS xnote +*!* ENDIF + + IF !USED('menu1') + USE &lcCaleDateMenu.menu1 IN 0 ALIAS menu1 EXCL + ENDIF + + IF !USED('INFISIERE') + USE &lcCaleDateMenu.INFISIERE IN 0 ALIAS INFISIERE + ENDIF + + IF !USED('nom_meniu') + USE &lcCaleDateMenu.nom_meniu IN 0 ALIAS nom_meniu + ENDIF + + IF !USED('refaceri') + USE &lcCaleDateMenu.refaceri IN 0 ALIAS refaceri + ENDIF + + IF !USED('tabela_fisa_cont') + USE &lcCaleDateMenu.tabela_fisa_cont IN 0 ALIAS tabela_fisa_cont + ENDIF + + *!* 06.06.2007 + *!* marius.mutu + CREATE CURSOR dual (dummy c(10)) + INSERT INTO dual (dummy) VALUES ("") + + lnSucces = xdate() && xdate.prg + IF m.lnSucces > 0 + *!* 27.05.2011 + lnSucces = update_parteneriemail() && updateserver.prg + *!* 27.05.2011 ^ + ENDIF + + IF m.lnSucces > 0 + llSucces = update_saft_taxtable() + lnSucces = IIF(m.llSucces, 1, -1) + ENDIF + IF m.lnSucces > 0 + llSucces = update_saft_mecanisme_plati() + lnSucces = IIF(m.llSucces, 1, -1) + ENDIF + RETURN lnSucces +ENDPROC && update_nomenclator \ No newline at end of file diff --git a/Programe/verificare.prg b/Programe/verificare.prg new file mode 100644 index 0000000..99db65d --- /dev/null +++ b/Programe/verificare.prg @@ -0,0 +1,93 @@ + +FUNCTION verif_ser_perm +CLEAR +?PORNIRE() +Function pornire +Set Exact On +Private calewin,calesys,checksum1,checksum2,serinreg,serdisk,file1,file2,valret,serdisktemp +Store '' To calewin,serinreg,serdisk,calesys,serdisktemp,catehd +Store 0 To checksum1,checksum2 +Store .T. To valret +Declare Integer SHGetFolderPath In SHFOLDER.Dll ; + INTEGER hwndOwner, ; + INTEGER nFolder, ; + INTEGER hToken, ; + INTEGER dwFlags, ; + STRING @ pszPath +Declare Integer GetActiveWindow In WIN32API +#Define CSIDL_WINDOWS 36 +#Define CSIDL_SYSTEM 37 +#Define CSIDL_PROGRAMS 38 +lcPath = Repl(Chr(0),261) +=SHGetFolderPath(GetActiveWindow(),CSIDL_WINDOWS,0,0,@lcPath) +calewin=Left(lcPath,At(Chr(0),lcPath)-1) +lcPath = Repl(Chr(0),261) +=SHGetFolderPath(GetActiveWindow(),CSIDL_SYSTEM,0,0,@lcPath) +calesys=Left(lcPath,At(Chr(0),lcPath)-1) +&&se verifica existenta celor trei fisiere +If (Not File(calesys+'\diskserial.dll')) Or (Not File(calesys+'\getmacip.dll')) Or (Not File(calewin+'\comdir.snr')) + valret=.F. +Endif +If valret + file1=Filetostr(calesys+'\diskserial.dll') + checksum1=Sys(2007,file1) + file2=Filetostr(calesys+'\getmacip.dll') + checksum2=Sys(2007,file2) + If (VAL(checksum1) != 58755) Or (VAL(checksum2) != 30476) + valret=.F. + Endif +Endif +If valret + Declare Integer GetSerialNumber In diskSerial.Dll Integer ,String + serdisktemp=Space(40) + catehd=0 + For i=0 To 3 + GetSerialNumber(i,@serdisktemp) + If (Len(Alltrim(serdisktemp))!=0) And catehd=0 + serdisk=Substr(Alltrim(serdisktemp),Len(Alltrim(serdisktemp))-8,8) + serdisk=Upper(serdisk) + catehd=catehd+1 + Endif + Endfor +Endif +If valret + gnFileHandle = Fopen(calewin+'\comdir.snr') + nSize = Fseek(gnFileHandle, 0, 2) && Move pointer to EOF + If nSize<8 + valret=.F. + Else + = Fseek(gnFileHandle, 0, 0) && Move pointer to BOF + cString = Fread(gnFileHandle,8) + serinreg=DECODARE1(Alltrim(Upper(cString))) + If serdisk!=serinreg + valret=.F. + Endif + Endif + = Fclose(gnFileHandle) +Endif +On Error valret=.F. +Return valret +************* +FUNCTION decodare1 +PARAMETERS lstring +LOCAL lens,poz1,poz2,lret,lcstring,val1 +lret='' +lcstring=ALLTRIM(UPPER(lstring)) +lens=LEN(lcstring) +FOR i=1 TO lens +poz1=SUBSTR(lcstring,i,1) +val1=ASC(poz1) +DO CASE +CASE val1>=48 AND val1<=57 + poz2=CHR(val1+33)&& din 0-9 in Q-Z +CASE val1>=81 AND val1<=90 + poz2=CHR(val1-33)&& din Q-Z in 0-9 +CASE val1>=65 AND val1<=72 + poz2=CHR(val1+8)&&din K-R in S-Z +CASE val1>=73 AND val1<=80 + poz2=CHR(val1-8)&&din S-Z in K-R +ENDCASE +lret=lret+poz2 +endfor +RETURN lret + diff --git a/ROACONT.ARM b/ROACONT.ARM new file mode 100644 index 0000000..348a17d --- /dev/null +++ b/ROACONT.ARM @@ -0,0 +1,46 @@ + +[Project] +BackupKeyOptions=3 +BitmapSeconds=1 +CertificateCount=1 +Compression=0 +IniStyle=ArmadilloV3 +Language=English (US) +MessageLanguage1=English (US) +Name=faz +ShowLoading=0 +TargetFile=roacont.exe +Version=100 + +[Project#Certificate0] +BitmapSeconds=1 +Key=DEFAULT +KeyTypes=0x44 +Name=default + +[Project#Certificate0#ExpireType] +Revert=0 + +[Project#Certificate0#Nag] +ShowBefore=0 + +[Project#Certificate0#NagAfter] +ShowAfter=0 + +[Project#InterceptedLibs] +Lib0=+MSVBVM50.DLL +Lib1=+MSVBVM60.DLL +Lib2=+VFP5R.DLL +Lib3=+VFP6R.DLL +Lib4=+VFP7R.DLL +Lib5=+VFP8R.DLL +Lib6=+VFP9R.DLL +Lib7=+PBVM70.DLL +Lib8=+MSVCRT.DLL +Lib9=+PROJ.DLL +Lib10=+MSJAVA.DLL +Lib11=+OLE32.DLL +Lib12=+VDFVM8.DLL +Lib13=+MFC71.DLL +Lib14=-* +LibCount=15 diff --git a/Rapoarte/bal_analitice.fr2 b/Rapoarte/bal_analitice.fr2 new file mode 100644 index 0000000..f787deb --- /dev/null +++ b/Rapoarte/bal_analitice.fr2 @@ -0,0 +1,1394 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="bal_analitice.frx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* + + + + +